SoloCodigo
Programación General => Delphi => Mensaje iniciado por: apol en Lunes 21 de Julio de 2003, 03:05
-
Hola, estoy haciendo un cliente/servidor muy basico, trabajo con los componentes Indy http://www.indyproject.org (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.
-
Por que no usas IdTelnet .
Hice algo una vez y funcionaba muy bien .
Creo que trae unas demos :Telnet Server y TelnetClient .
-
:scream: 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;