Sockets en delphi 7?

[jam888]

Gente del foro como hago para leer la informacion que le envia un tcpclient a un tcpserver, en delphi 7 en que evento del tcpserver? y de que manera?
He buscado en el foro y solo hay 31 hilos que tratan el tema y en la mayoria se recomienda las componentes Indy, por que ? no sirven los componentes del delphi 7 o nadie tiene la solucion?
Un Abrazo a todos.

[mierda]

Hola tio, yo no utilizo esos componentes, yo utilizo los ServerSocket y los Clientsocket

y te pongo un ejemplo del onread de cada uno:

procedure TFprincipal.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var
texto_rec: string;
begin
texto_rec := Socket.ReceiveText;
end;

y para enviarlo utilizo el:

ClientSocket1.socket.SendText(cortar);

estos componentes son del delphi 5 .. pero si buscas por aki puedes ver como se ponen en el delphi 7.

Los indy entodavia no me los he estudiao!

Espero que te sirva

[[fer21unmsm]]

Empezado por jam888

Gente del foro como hago para leer la informacion que le envia un tcpclient a un tcpserver, en delphi 7 en que evento del tcpserver? y de que manera?
He buscado en el foro y solo hay 31 hilos que tratan el tema y en la mayoria se recomienda las componentes Indy, por que ? no sirven los componentes del delphi 7 o nadie tiene la solucion?
Un Abrazo a todos.

Hola Jam en la ayuda del delphi indica que tienes que hacer para manejar el tcpclient y tcpserver, por ejemplo para enviar mensajes con el cliente haces:

Código Delphi [-]
var
   resp: string;
begin
....
//para enviar mensaje tanto para cliente como para el servidor
tcpcliente.Sendln('aquí va el mensaje',#$D#$A);  //el #$D#$A = #13#10

//para recibir mensaje tanto para cliente como para el servidor
resp:=tcpsock.Receiveln();  //en resp se almacena la informacion que recibo
....
end;

Tanto el send como el receive están en la ayuda de delphi 7 , y hay diferentes formas para el send y receive.

Saludos.