| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Передача файлов через TidTCP...

Ezorcist ©   (2007-06-11 16:05:00) 

Сервер: 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:00) [1]

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

---

Наверх