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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

— Ну, ты молодец! Вчера сделал больше чем за целый месяц!!

— Да просто у меня Интернет не работал!

Для данной цели можно воспользоваться компонентами 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;

{/codecitation}

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