A ver, vamos por partes dijo el forense:
CLiente
Código Delphi
[-]
procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
var msg:string;
begin
msg:='Hola';
ClientSocket1.Socket.SendText(msg);
end;
Código Delphi
[-]
procedure TForm1.ClientSocket1Disconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
ShowMessage('Desconectado');
end;
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
ClientSocket1.Host:='210.59.25.15';
ClientSocket1.Port:=210; ClientSocket1.Open;
end;
Código Delphi
[-]
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var msg:string;
begin
msg:=ClientSocket1.Socket.ReceiveText;
ShowMessage(msg);
end;
Servidor
Código Delphi
[-]
procedure TForm1.Button2Click(Sender: TObject);
begin
ServerSocket1.Port:=210;
ServerSocket1.Active:=True;
end;
Código Delphi
[-]
procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
ShowMessage('Cliente conectado desde: '+ServerSocket1.Socket.RemoteHost);
end;
Código Delphi
[-]
procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
var msg:string;
begin
msg:='Bienvenido';
ServerSocket1.Socket.SendText(msg);
ShowMessage('Cliente conectado desde: '+ServerSocket1.Socket.RemoteHost);
end;
Bueno, te adjunte algunas formas de encarar el tema, como para que te guíes.
Saludos