Ver Mensaje Individual
  #1  
Antiguo 31-03-2008
TROMPO TROMPO is offline
Registrado
 
Registrado: mar 2008
Posts: 2
Reputación: 0
TROMPO Va por buen camino
Red face proxy TServerSocket/TClientSocket

holas.. alguien me puede ayudar con eso.. ?

estoy intentando de hacer un proxy con esos componentes pero al parecer tengo problemas de sincronizacion, soy nuevo en delphi.. y pues no se como solucionarlo

Código:
procedure TForm1.client44405Read(Sender: TObject;
  Socket: TCustomWinSocket);
var
  data:string;
begin
  if socket.ReceiveLength<1 then
    Exit;
  data:=socket.ReceiveText;

  if server44405.Socket.Connected then
      server44405.Socket.SendText(data)   // <<<- aki error 10057
  else
      memo2.Lines.Add('Recv '+ asciitohex(data,true));

end;
nota.. si alguien tiene algun proxy/"man in the middle" de ejemplo plz
Responder Con Cita