| Pregunta: | 16379 - SOCKETS AYUDA POR FAVOR |
| Autor: | Santiago G |
| Estoy haciendo un pro, quiero que se conecte a un SERVIDOR ( programado por mi ) mediante internet, y baje una lista o almenos, que baje alguna informacion. ( via sockets)
Por ahora pude conectar las dos PC´s usando SOCKET ( client socket, serversocket ) utilizando una IP y puerto, lo que quiero, es poder interactuar entre las dos pcs, solo necesito q me expliquen algo simple, por ejemplo, que con el cliente, se le puede mandar un mensaje al servidor mediante un Edit. Bueno, desde ya, MUCHA GRACIAS. Un saludo cordial. | |
| Respuesta: | Gandazgul Mirth |
| El evento OnRead y OnClientRead se ejecutan cuando el cliente o el servidor escriben en el socket, para escribir en el utiliza ClientSocket1.Socket.SendText o SendStream y para el server ServerSocket1.Socket.Conections[No. de coneccion].SendText o SendStream, En el OnRead utiliza un procedimiento que procese los mensajes, por ejemplo Para un chat: podrias utilizar /Nombrecomando para los comandos y texto normal para el habla y en tu fincion verificar si el primer caracter (s[1]='/') es igual a "/" procesar el comando segun su nombre, y si no mostrarlo en un memo.
Procedure ProcessMessages(Mess : String); var cmd, parameters : string; begin if mess[1]='/' then begin cmd=copy(Mess,0,Length(Mess)-Pos(' ',Mess)); Parameters=copy(Mess,Pos(' ',Mess), length(Mess)); if cmd='Nick' then begin //Codigo para cambiar el nick end else if cmd='otrocomando' then begin //Codigo para el otrocomando end; end else Form1.Memo1.Lines.Add(Mess) end; Utiliza este esqueleto Asi lo hago yo y me funciona. Si tienes dudas contastte tu mismo la pregunta esta y dirige elk texo de la respuesta a mi que yo te la aclaro. Chao | |
| Respuesta: | mamcx m |
| En la carpeta DEMOS de Delphi 5 hay una aplicacion de CHAT... tal vez te sea util. | |