Socket !!!
Estou fazendo um sistema para controle de cyber. Mas estou com um probleminha com sockets. Eu quero q o programa cliente,onde está o ClienteSocket, mande uma menssagem para o servidor , onde está o ServerSocket (recebendo a msg em um edit, label etc...) . Como nao tenho muita intimidade com sockets, agradeço qualquer ajuda.
Obrigado.
Obrigado.
Geisonc
Curtidas 0
Respostas
Anderson Belém
21/10/2003
No Micro Cliente: Evento OnConnect
procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
ClientSocket1.Socket.SendText(´Conectado...´);
end;
No Micro Servidor: Evento OnClientConnect
procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
edit1.Text := ServerSocket1.Socket.Connections[0].ReceiveText;
end;
Espero ter ajudado!!
procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
ClientSocket1.Socket.SendText(´Conectado...´);
end;
No Micro Servidor: Evento OnClientConnect
procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
edit1.Text := ServerSocket1.Socket.Connections[0].ReceiveText;
end;
Espero ter ajudado!!
GOSTEI 0