SoloCodigo

Hola, estoy haciendo un cliente/servidor muy basico, trabajo con los componentes   Indy http://www.indyproject.org

no me estan funcionando, si establecen conexion pero fallan
al enviar o recibir datos.

En el cliente pongo este procedimiento:

procedure TFCliente.BComandoClick(Sender: TObject);
var
com: string;
begin
com:= NComando.Text;
UDP.Send(com); // ??enviar string al server
end;

y en el servidor

procedure TFServ.UDPUDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);


begin
comando:= UDP.ReceiveString; // leer un dato enviado desde el cliente.
if comando= '1' then
  begin
   Ejecutar comando 1 //hacer cualquier cosa
  end;
........................

No se donde esta el fallo.

alguien sabe como soluciono este problema? la idea
es que el cliente envie datos (tipo string) y el servidor los lea correctamente, mediante udp.
Gracias.

 Para enviar debes de utilizar el UDP cliente, y para capturar el server UDP.
En los dos debes definir el puerto y el host

para enviar

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
IdUDPClient.Host:= txthost.Text;
IdUDPClient.Port:=  strtoint(txtpuerto.Text );
IdUDPClient.Send(txtSend.Text );
end;


para capturar


procedure TForm1.OnUDPRead(Sender: TObject; AData: TStream; ABinding: TIdSocketHandle);
const
   BlockSize = 2048;


begin

// Adata es lo que envio el cliente
end;