Sockets Stream - aceito qualquer dica
19/12/2005
0
Alguem saber enviar/receber Stream com Sockets ???
Obs. Para conhecer sockets, [url=http://www.activedelphi.com.br/modules.php?op=modload&name=News&file=article&sid=249&mode=thread&order=0&thold=0]clique aki[/url].
Se não houver uma solução para o TSocket, aceito uma solução com outro componente, mas gostaria q fosse nativo do Delphi.
Abraços
Aloizio Castro
Posts
19/12/2005
Ipc$
19/12/2005
Firekiller
19/12/2005
Firekiller
ClientSocket.SendStream( SeuStream );
Para receber:
var
buf:String;
tm:Integer;
tm := ServerSocket.ReceiveLength;
while tm > 0 do begin
ServerSocket.ReceiveBuf( buf , tm );
SeuStream.Write( buf , tm );
Sleep(200);
tm := ServerSocket.ReceiveLength;
end;
Clique aqui para fazer login e interagir na Comunidade :)