Tema: Send Packet
Ver Mensaje Individual
  #12  
Antiguo 28-07-2008
rauros rauros is offline
Miembro
 
Registrado: feb 2008
Ubicación: Alicante - Sax / Sax - Alicante
Posts: 235
Reputación: 17
rauros Va por buen camino
Pues de aquí no sé que falla (he puesto 127.0.0.1).

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
        IdUDPClient1.Send(edit1.text);
end;

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
var
Cadena: TStringStream;
begin
cadena:=TStringStream.Create('');
cadena.CopyFrom(AData, 255);
showmessage(cadena.DataString);
end;

Yo es que de programación entiendo bastante, pero cuando se llega a conexión con otros pc me cuesta comprender.
Responder Con Cita