procedure TMainWin.FormCreate(Sender: TObject); begin ServerSocket1.Port := 23; ServerSocket1.Active := True; end; procedure TMainWin.FormClose(Sender: TObject; var Action: TCloseAction); begin ServerSocket1.Active := false; end; procedure TMainWin.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket); var i:integer; sRec : string; begin for i := 0 to ServerSocket1.Socket.ActiveConnections-1 do begin with ServerSocket1.Socket.Connections[i] do begin sRec := ReceiveText; if sRec <> '' then begin Memo1.Lines.Add(RemoteAddress + ' sends :') ; Memo1.Lines.Add(sRec); end; end; end; end; procedure TMainWin.ServerSocket1ClientConnect(Sender: TObject; Socket: TCustomWinSocket); begin ShowMessage('Client Has Connected'); end;
procedure TForm1.FormCreate(Sender: TObject); begin ClientSocket1.Port := 23; //local TCP/IP address of the server ClientSocket1.Host := '192.168.167.12'; ClientSocket1.Active := true; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin ClientSocket1.Active := false; end; procedure TForm1.Button1Click(Sender: TObject); begin if ClientSocket1.Active then ClientSocket1.Socket.SendText(Edit1.Text); ShowMessage('Text Sent ' + Edit1.Text); end; procedure TForm1.ClientSocket1Connect(Sender: TObject; Socket: TCustomWinSocket); begin ShowMessage('Connected'); end;
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)