поток файлов

[мандарин]

как можно передать файл от клиента серверу

[НЕ_АЙС]

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

var
  MyStream: TMemoryStream;
begin
  MyStream := TMemoryStream.Create;
  MyStream.LoadFromFile('c:\windows\рабочий стол\Programmersforum.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\рабочий стол\Programmersforum2.txt');
end;