Доброго время суток господа программисты! Подскажите пожалуйста чайнику как пересылать потоки с помощью 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;
|
А как сделать чтобы сервер получил этот поток? ЗЫ: Везде примеры только со строками...
|