Передать файл через Socket соединение

Для данной цели можно воспользоваться компонентами TNMStrmServ и TNMStrm, которые предназначены для обмена потоками данных.

Обработчик для клиента:

var

MyStream: TMemoryStream;

begin

MyStream := TMemoryStream.Create;

MyStream.LoadFromFile('c:\windows\рабочий стол\DelphiWorld.txt');

NMStrm1.PostIt(MyStream);

MyStream.Free;

end;

Обработчик для сервера:

procedure TForm1.NMStrmServ1MSG(Sender: TComponent;

const sFrom: string; strm: TStream);

var

MyStream: TMemoryStream;

begin

MyStream := TMemoryStream.Create;

MyStream.CopyFrom(strm, NMStrmServ1.BytesTotal);

MyStream.SaveToFile('c:\windows\рабочий стол\DelphiWorld2.txt');

end;

Добавить комментарий