Форум: "Начинающим";
Текущий архив: 2007.07.01;
Скачать: [xml.tar.bz2];

Вниз

Передача файлов через TidTCP...   Найти похожие ветки 

← →
Ezorcist   (2007-06-11 16:05) [0]

Сервер:var m:TMemoryStream;
procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
begin
 m:=TMemoryStream.Create;
 m.Position:=0;
 m.LoadFromFile("C:\1.mp3");
 m.Position:=0;
 AThread.Connection.WriteLn(inttostr(m.Size));
 AThread.Connection.WriteBuffer(m,m.Size,true);
end;

Клиент:

procedure TForm1.Button1Click(Sender: TObject);
var m:tmemorystream;   l:integer;
begin
IdTCPClient1.Connect;
m:=tmemorystream.Create;
m.Position:=0;
try
  IdTCPClient1.WriteLn("");
  l:=strtoint(IdTCPClient1.Readln);
  IdTCPClient1.ReadStream(m,l,false);
  m.SaveToFile("C:\2.mp3");
  memo1.Lines.Add("OK!");
finally
  IdTCPClient1.Disconnect;
  m.Free;
end;

---

← →
Ezorcist   (2007-06-11 16:05) [1]

Размер файла передается правильно, но после этого сервер ошибка EAV. Подскажите пожалуйста что я делаю не правильно?

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.07.01;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.005 c