Em 09/01/2010 23:55, klanp...@hotmail.com escreveu:
>
> Como é seu sistema humberto ?
>
>
desculpa a demora... o sistema trabalha +/- assim....
Todos os eventos estao ligados ao ONClientRead.
exemplo:
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
VAR
MSG : STRING;
begin
MSG := SOCKET.ReceiveText;
if pos('ARQ!',MSG) = 1 THEN
begin
Tratamento(Socket);
end;
end;
procedure Tform1.Tratamento( Socket: TCustomWinSocket);
begin
socket.sendtext := 'Preparado para receber o arquivo'.
end;
[As partes desta mensagem que não continham texto foram removidas]
