Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > TCPClient и TCPServer

Автор: Kettle 27.11.2005, 16:06

Доброго время суток господа программисты!
Подскажите пожалуйста чайнику как пересылать потоки с помощью TCPClient и TCPServer.
Клиент посылает поток

Код


procedure TForm1.Button1Click(Sender: TObject);
var Buf : TMemoryStream;
begin
    // в Buf заносится инфа
   ....
  TcpClient1.RemoteHost := Edit1.Text;
  TcpClient1.RemotePort := Edit2.Text;
  try
    if TcpClient1.Connect
    then TcpClient1.SendStream(Buf);
  finally
    TcpClient1.Disconnect;
    Buf.Free;
  end;
end;

А как сделать чтобы сервер получил этот поток?
ЗЫ: Везде примеры только со строками...