1,593
社区成员
发帖
与我相关
我的任务
分享
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ScktComp, ExtCtrls;
type
TForm1 = class(TForm)
GroupBox2: TGroupBox;
Listen: TButton;
SSME: TMemo;
SS: TServerSocket;
SS_Edit: TEdit;
SS_Send: TButton;
GroupBox1: TGroupBox;
Cennect: TButton;
CSME: TMemo;
CS: TClientSocket;
CS_Edit: TEdit;
CS_Send: TButton;
procedure ListenClick(Sender: TObject);
procedure CennectClick(Sender: TObject);
procedure SSClientConnect(Sender: TObject; Socket: TCustomWinSocket);
procedure CSRead(Sender: TObject; Socket: TCustomWinSocket);
procedure CS_SendClick(Sender: TObject);
procedure SS_SendClick(Sender: TObject);
procedure SSClientRead(Sender: TObject; Socket: TCustomWinSocket);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.ListenClick(Sender: TObject);
begin
ss.Port :=808;
ss.Active := true;
end;
procedure TForm1.CennectClick(Sender: TObject);
begin
cs.Host :='127.0.0.1';
cs.Port := 808;
cs.Open ;
end;
procedure TForm1.SSClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
SOCKET.SendText('连接成功');
end;
procedure TForm1.CSRead(Sender: TObject; Socket: TCustomWinSocket);
begin
csme.Lines.Add(socket.ReceiveText);
end;
procedure TForm1.CS_SendClick(Sender: TObject);
begin
cs.Socket.SendText (cs_edit.Text);
end;
procedure TForm1.SS_SendClick(Sender: TObject);
begin
ss.Socket.SendText (ss_edit.text);
end;
procedure TForm1.SSClientRead(Sender: TObject; Socket: TCustomWinSocket);
begin
ssme.Lines.Add(ss.Socket.ReceiveText);
end;
end.