jsj_Delphi关于Socket编程.pdf

《jsj_Delphi关于Socket编程.pdf》由会员分享，可在线阅读，更多相关《jsj_Delphi关于Socket编程.pdf（17页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、 Delphi?Socket?2008-07-07?03:01?Socket?TServerSocket?TClientSocket?ClientSocket?ServerSocket?ServerSocket?ClientSocket?ClientSocket?type client_record=record CHandle:integer;/?CSocket:TCustomWinSocket;/?CName:string;/?CAddress:string;/?IP?CUsed:boolean;/?end;?CHandle?Csocket?Cused?ServerSocket?Clien

2、tSocket?ServerSocket?Port?1025?ServerTypt?stNonBlocking?ThreadCacheSize?10?ClientSocket?Port?1025?ClientType?stNonBlocking?Host?IP?:?uServerMain.pas?unit uServerMain;interface uses Windows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,ScktComp,ToolWin,ComCtrls,ExtCtrls,StdCtrls,Buttons;c

3、onst CMax=10;/?type client_record=record CHandle:integer;/?CSocket:TCustomWinSocket;/?CName:string;/?CAddress:string;/?IP?CUsed:boolean;/?end;type TfrmServerMain=class(TForm)ServerSocket:TServerSocket;ControlBar1:TControlBar;ToolBar1:TToolBar;tbConnect:TToolButton;tbClose:TToolButton;tbDisconnected:

4、TToolButton;Edit1:TEdit;Memo1:TMemo;StatusBar:TStatusBar;procedure tbConnectClick(Sender:TObject);procedure tbDisconnectedClick(Sender:TObject);procedure ServerSocketClientRead(Sender:TObject;Socket:TCustomWinSocket);procedure ServerSocketListen(Sender:TObject;Socket:TCustomWinSocket);procedure Serv

5、erSocketClientConnect(Sender:TObject;Socket:TCustomWinSocket);procedure ServerSocketClientDisconnect(Sender:TObject;Socket:TCustomWinSocket);procedure tbCloseClick(Sender:TObject);procedure FormCreate(Sender:TObject);procedure FormClose(Sender:TObject;var Action:TCloseAction);procedure ServerSocketG

6、etSocket(Sender:TObject;Socket:Integer;var ClientSocket:TServerClientWinSocket);procedure ServerSocketClientError(Sender:TObject;Socket:TCustomWinSocket;ErrorEvent:TErrorEvent;var ErrorCode:Integer);private Private declarations public Public declarations session:array0.CMax of client_record;/?Sessio

7、ns:integer;/?end;var frmServerMain:TfrmServerMain;implementation$R*.DFM /?procedure TfrmServerMain.tbConnectClick(Sender:TObject);begin ServerSocket.Open;end;/?procedure TfrmServerMain.tbDisconnectedClick(Sender:TObject);begin ServerSocket.Close;StatusBar.Panels0.Text:=?.;end;/?procedure TfrmServerM

8、ain.ServerSocketClientRead(Sender:TObject;Socket:TCustomWinSocket);var i:integer;begin /?Memo1?Memo1.Lines.Add(Socket.ReceiveText);for i:=0 to sessions do begin /?if sessioni.CHandle=Socket.SocketHandle then begin sessioni.CSocket.SendText(?+sessioni.CAddress+=+Edit1.Text);end;end;end;/?procedure Tf

9、rmServerMain.ServerSocketListen(Sender:TObject;Socket:TCustomWinSocket);begin StatusBar.Panels0.Text:=?;end;/?procedure TfrmServerMain.ServerSocketClientConnect(Sender:TObject;Socket:TCustomWinSocket);var i,j:integer;begin j:=-1;for i:=0 to sessions do begin /?if not sessioni.CUsed then begin sessio

10、ni.CHandle:=Socket.SocketHandle;/?sessioni.CSocket:=Socket;/?sessioni.CName:=Socket.RemoteHost;/?sessioni.CAddress:=Socket.RemoteAddress;/?IP sessioni.CUsed:=True;/?Break;end;j:=i;end;if j=sessions then begin inc(sessions);sessionj.CHandle:=Socket.SocketHandle;sessionj.CSocket:=Socket;sessionj.CName

11、:=Socket.RemoteHost;sessionj.CAddress:=Socket.RemoteAddress;sessionj.CUsed:=True;end;StatusBar.Panels0.Text:=?+Socket.RemoteHost+?;end;/?procedure TfrmServerMain.ServerSocketClientDisconnect(Sender:TObject;Socket:TCustomWinSocket);var i:integer;begin for i:=0 to sessions do begin if sessioni.CHandle

12、=Socket.SocketHandle then begin sessioni.CHandle:=0;sessioni.CUsed:=False;Break;end;end;StatusBar.Panels0.Text:=?+Socket.RemoteHost+?;end;/?procedure TfrmServerMain.tbCloseClick(Sender:TObject);begin Close;end;procedure TfrmServerMain.FormCreate(Sender:TObject);begin sessions:=0;end;procedure TfrmSe

13、rverMain.FormClose(Sender:TObject;var Action:TCloseAction);begin ServerSocket.Close;end;/?procedure TfrmServerMain.ServerSocketGetSocket(Sender:TObject;Socket:Integer;var ClientSocket:TServerClientWinSocket);begin StatusBar.Panels0.Text:=?;end;/?procedure TfrmServerMain.ServerSocketClientError(Sende

14、r:TObject;Socket:TCustomWinSocket;ErrorEvent:TErrorEvent;var ErrorCode:Integer);begin StatusBar.Panels0.Text:=?+Socket.RemoteHost+?;ErrorCode:=0;end;end.?(uClientMain.pas)?unit uClientMain;interface uses Windows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,ScktComp,ComCtrls,ToolWin,ExtC

15、trls,StdCtrls,Buttons;const SocketHost=172.16.1.6;/?type TfrmClientMain=class(TForm)ControlBar1:TControlBar;ToolBar1:TToolBar;tbConnected:TToolButton;tbSend:TToolButton;tbClose:TToolButton;tbDisconnected:TToolButton;ClientSocket:TClientSocket;Edit1:TEdit;Memo1:TMemo;StatusBar:TStatusBar;btnSend:TBit

16、Btn;procedure tbConnectedClick(Sender:TObject);procedure tbDisconnectedClick(Sender:TObject);procedure ClientSocketRead(Sender:TObject;Socket:TCustomWinSocket);procedure tbSendClick(Sender:TObject);procedure tbCloseClick(Sender:TObject);procedure FormShow(Sender:TObject);procedure ClientSocketConnec

17、t(Sender:TObject;Socket:TCustomWinSocket);procedure ClientSocketConnecting(Sender:TObject;Socket:TCustomWinSocket);procedure ClientSocketDisconnect(Sender:TObject;Socket:TCustomWinSocket);procedure FormClose(Sender:TObject;var Action:TCloseAction);procedure ClientSocketError(Sender:TObject;Socket:TC

18、ustomWinSocket;ErrorEvent:TErrorEvent;var ErrorCode:Integer);private Private declarations public Public declarations end;var frmClientMain:TfrmClientMain;implementation$R*.DFM /?procedure TfrmClientMain.tbConnectedClick(Sender:TObject);begin ClientSocket.Open;end;/?procedure TfrmClientMain.tbDisconn

19、ectedClick(Sender:TObject);begin ClientSocket.Close;end;/?procedure TfrmClientMain.ClientSocketRead(Sender:TObject;Socket:TCustomWinSocket);begin Memo1.Lines.Add(Socket.ReceiveText);end;/?procedure TfrmClientMain.tbSendClick(Sender:TObject);begin ClientSocket.Socket.SendText(Edit1.Text);end;procedur

20、e TfrmClientMain.tbCloseClick(Sender:TObject);begin Close;end;/?procedure TfrmClientMain.FormShow(Sender:TObject);begin ClientSocket.Host:=SocketHost;end;/?procedure TfrmClientMain.ClientSocketConnect(Sender:TObject;Socket:TCustomWinSocket);begin tbSend.Enabled:=True;tbDisconnected.Enabled:=True;btn

21、Send.Enabled:=True;StatusBar.Panels0.Text:=?+Socket.RemoteHost;end;/?procedure TfrmClientMain.ClientSocketConnecting(Sender:TObject;Socket:TCustomWinSocket);begin StatusBar.Panels0.Text:=?;end;/?procedure TfrmClientMain.ClientSocketDisconnect(Sender:TObject;Socket:TCustomWinSocket);begin tbSend.Enab

22、led:=False;btnSend.Enabled:=False;tbDisconnected.Enabled:=False;StatusBar.Panels0.Text:=?+Socket.RemoteHost+?;end;procedure TfrmClientMain.FormClose(Sender:TObject;var Action:TCloseAction);begin ClientSocket.Close;end;/?procedure TfrmClientMain.ClientSocketError(Sender:TObject;Socket:TCustomWinSocke

23、t;ErrorEvent:TErrorEvent;var ErrorCode:Integer);begin StatusBar.Panels0.Text:=?;ErrorCode:=0;end;end.?Socket?DFM?uServerMain.pas?DFM?(uServerMain.dfm)object frmServerMain:TfrmServerMain Left=297 Top=258 BorderIcons=biSystemMenu,biMinimize BorderStyle=bsSingle Caption=ServerSocket ClientHeight=279 Cl

24、ientWidth=476 Color=clBtnFace Font.Charset=DEFAULT_CHARSET Font.Color=clWindowText Font.Height=-11 Font.Name=MS Sans Serif Font.Style=OldCreateOrder=False OnClose=FormClose OnCreate=FormCreate PixelsPerInch=96 TextHeight=13 object ControlBar1:TControlBar Left=0 Top=0 Width=476 Height=30 Align=alTop

25、AutoSize=True TabOrder=0 object ToolBar1:TToolBar Left=11 Top=2 Width=459 Height=22 ButtonHeight=21 ButtonWidth=55 Caption=ToolBar1 EdgeInner=esNone EdgeOuter=esNone Flat=True ShowCaptions=True TabOrder=0 object tbConnect:TToolButton Left=0 Top=0 Caption=?ImageIndex=0 OnClick=tbConnectClick end obje

26、ct tbDisconnected:TToolButton Left=55 Top=0 Caption=?ImageIndex=4 OnClick=tbDisconnectedClick end object tbClose:TToolButton Left=110 Top=0 Caption=?ImageIndex=3 OnClick=tbCloseClick end end end object Edit1:TEdit Left=0 Top=232 Width=473 Height=21 TabOrder=1 Text=?end object Memo1:TMemo Left=0 Top=

27、30 Width=476 Height=195 Align=alTop TabOrder=2 end object StatusBar:TStatusBar Left=0 Top=257 Width=476 Height=22 Panels=SimplePanel=False end object ServerSocket:TServerSocket Active=False Port=1025 ServerType=stNonBlocking OnListen=ServerSocketListen OnGetSocket=ServerSocketGetSocket OnClientConne

28、ct=ServerSocketClientConnect OnClientDisconnect=ServerSocketClientDisconnect OnClientRead=ServerSocketClientRead OnClientError=ServerSocketClientError Left=368 end end uClientMain.pas?DFM?(uClientMain.dfm)object frmClientMain:TfrmClientMain Left=361 Top=290 BorderIcons=biSystemMenu,biMinimize Border

29、Style=bsSingle Caption=ClientSocket ClientHeight=230 ClientWidth=402 Color=clBtnFace Font.Charset=DEFAULT_CHARSET Font.Color=clWindowText Font.Height=-11 Font.Name=MS Sans Serif Font.Style=OldCreateOrder=False Position=poScreenCenter OnClose=FormClose OnShow=FormShow PixelsPerInch=96 TextHeight=13 o

30、bject ControlBar1:TControlBar Left=0 Top=0 Width=402 Height=30 Align=alTop AutoSize=True TabOrder=0 object ToolBar1:TToolBar Left=11 Top=2 Width=385 Height=22 ButtonHeight=21 ButtonWidth=55 Caption=ToolBar1 EdgeInner=esNone EdgeOuter=esNone Flat=True ShowCaptions=True TabOrder=0 object tbConnected:T

31、ToolButton Left=0 Top=0 Caption=?ImageIndex=0 OnClick=tbConnectedClick end object tbSend:TToolButton Left=55 Top=0 Caption=?Enabled=False ImageIndex=1 OnClick=tbSendClick end object tbDisconnected:TToolButton Left=110 Top=0 Caption=?Enabled=False ImageIndex=3 OnClick=tbDisconnectedClick end object t

32、bClose:TToolButton Left=165 Top=0 Caption=?ImageIndex=2 OnClick=tbCloseClick end end end object Edit1:TEdit Left=0 Top=184 Width=321 Height=21 TabOrder=1 Text=?end object Memo1:TMemo Left=0 Top=30 Width=402 Height=147 Align=alTop TabOrder=2 end object StatusBar:TStatusBar Left=0 Top=208 Width=402 He

33、ight=22 Panels=SimplePanel=False end object btnSend:TBitBtn Left=336 Top=183 Width=60 Height=22 Caption=?Enabled=False TabOrder=4 OnClick=tbSendClick end object ClientSocket:TClientSocket Active=False ClientType=ctNonBlocking Port=1025 OnConnecting=ClientSocketConnecting OnConnect=ClientSocketConnect OnDisconnect=ClientSocketDisconnect OnRead=ClientSocketRead OnError=ClientSocketError Left=320 end end