📄 socket编程.htm
字号:
OnClose = FormClose<br>
OnCreate = FormCreate<br>
PixelsPerInch = 96<br>
TextHeight = 13<br>
<font color="#000000"><b>object</b></font> ControlBar1:
TControlBar<br>
Left = 0<br>
Top = 0<br>
Width = 476<br>
Height = 30<br>
Align = alTop<br>
AutoSize = <font color="#000000"><b>True</b></font><br>
TabOrder = 0<br>
<font color="#000000"><b>object</b></font> ToolBar1: TToolBar<br>
Left = 11<br>
Top = 2<br>
Width = 459<br>
Height = 22<br>
ButtonHeight = 21<br>
ButtonWidth = 55<br>
Caption = 'ToolBar1'<br>
EdgeInner = esNone<br>
EdgeOuter = esNone<br>
Flat = <font color="#000000"><b>True</b></font><br>
ShowCaptions = <font color="#000000"><b>True</b></font><br>
TabOrder = 0<br>
<font color="#000000"><b>object</b></font> tbConnect:
TToolButton<br>
Left = 0<br>
Top = 0<br>
Caption = ' 连接 '<br>
ImageIndex = 0<br>
OnClick = tbConnectClick<br>
<font color="#000000"><b>end</b></font><br>
<font color="#000000"><b>object</b></font> tbDisconnected:
TToolButton<br>
Left = 55<br>
Top = 0<br>
Caption = '断开'<br>
ImageIndex = 4<br>
OnClick = tbDisconnectedClick<br>
<font color="#000000"><b>end</b></font><br>
<font color="#000000"><b>object</b></font> tbClose: TToolButton<br>
Left = 110<br>
Top = 0<br>
Caption = '关闭'<br>
ImageIndex = 3<br>
OnClick = tbCloseClick<br>
<font color="#000000"><b>end</b></font><br>
<font color="#000000"><b>end</b></font><br>
<font color="#000000"><b>end</b></font><br>
<font color="#000000"><b>object</b></font> Edit1: TEdit<br>
Left = 0<br>
Top = 232<br>
Width = 473<br>
Height = 21<br>
TabOrder = 1<br>
Text = '你好！'<br>
<font color="#000000"><b>end</b></font><br>
<font color="#000000"><b>object</b></font> Memo1: TMemo<br>
Left = 0<br>
Top = 30<br>
Width = 476<br>
Height = 195<br>
Align = alTop<br>
TabOrder = 2<br>
<font color="#000000"><b>end</b></font><br>
<font color="#000000"><b>object</b></font> StatusBar: TStatusBar<br>
Left = 0<br>
Top = 257<br>
Width = 476<br>
Height = 22<br>
Panels = <<br>
item<br>
Width = 50<br>
<font color="#000000"><b>end</b></font>><br>
SimplePanel = <font color="#000000"><b>False</b></font><br>
<font color="#000000"><b>end</b></font><br>
<font color="#000000"><b>object</b></font> ServerSocket:
TServerSocket<br>
Active = <font color="#000000"><b>False</b></font><br>
Port = 1025<br>
ServerType = stNonBlocking<br>
OnListen = ServerSocketListen<br>
OnGetSocket = ServerSocketGetSocket<br>
OnClientConnect = ServerSocketClientConnect<br>
OnClientDisconnect = ServerSocketClientDisconnect<br>
OnClientRead = ServerSocketClientRead<br>
OnClientError = ServerSocketClientError<br>
Left = 368<br>
<font color="#000000"><b>end</b></font><br>
<font color="#000000"><b>end</b></font><br>
uClientMain.pas对应的DFM文件(uClientMain.dfm)<br>
<font color="#000000"><b>object</b></font> frmClientMain:
TfrmClientMain<br>
Left = 361<br>
Top = 290<br>
BorderIcons = [biSystemMenu, biMinimize]<br>
BorderStyle = bsSingle<br>
Caption = 'ClientSocket'<br>
ClientHeight = 230<br>
ClientWidth = 402<br>
Color = clBtnFace<br>
Font.Charset = <font color="#000000"><b>DEFAULT</b></font>_CHARSET<br>
Font.Color = clWindowText<br>
Font.Height = -11<br>
Font.Name = 'MS Sans Serif'<br>
Font.Style = []<br>
OldCreateOrder = <font color="#000000"><b>False</b></font><br>
Position = poScreenCenter<br>
OnClose = FormClose<br>
OnShow = FormShow<br>
PixelsPerInch = 96<br>
TextHeight = 13<br>
<font color="#000000"><b>object</b></font> ControlBar1:
TControlBar<br>
Left = 0<br>
Top = 0<br>
Width = 402<br>
Height = 30<br>
Align = alTop<br>
AutoSize = <font color="#000000"><b>True</b></font><br>
TabOrder = 0<br>
<font color="#000000"><b>object</b></font> ToolBar1: TToolBar<br>
Left = 11<br>
Top = 2<br>
Width = 385<br>
Height = 22<br>
ButtonHeight = 21<br>
ButtonWidth = 55<br>
Caption = 'ToolBar1'<br>
EdgeInner = esNone<br>
EdgeOuter = esNone<br>
Flat = <font color="#000000"><b>True</b></font><br>
ShowCaptions = <font color="#000000"><b>True</b></font><br>
TabOrder = 0<br>
<font color="#000000"><b>object</b></font> tbConnected:
TToolButton<br>
Left = 0<br>
Top = 0<br>
Caption = ' 连接 '<br>
ImageIndex = 0<br>
OnClick = tbConnectedClick<br>
<font color="#000000"><b>end</b></font><br>
<font color="#000000"><b>object</b></font> tbSend: TToolButton<br>
Left = 55<br>
Top = 0<br>
Caption = '发送'<br>
Enabled = <font color="#000000"><b>False</b></font><br>
ImageIndex = 1<br>
OnClick = tbSendClick<br>
<font color="#000000"><b>end</b></font><br>
<font color="#000000"><b>object</b></font> tbDisconnected:
TToolButton<br>
Left = 110<br>
Top = 0<br>
Caption = '断开'<br>
Enabled = <font color="#000000"><b>False</b></font><br>
ImageIndex = 3<br>
OnClick = tbDisconnectedClick<br>
<font color="#000000"><b>end</b></font><br>
<font color="#000000"><b>object</b></font> tbClose: TToolButton<br>
Left = 165<br>
Top = 0<br>
Caption = '退出'<br>
ImageIndex = 2<br>
OnClick = tbCloseClick<br>
<font color="#000000"><b>end</b></font><br>
<font color="#000000"><b>end</b></font><br>
<font color="#000000"><b>end</b></font><br>
<font color="#000000"><b>object</b></font> Edit1: TEdit<br>
Left = 0<br>
Top = 184<br>
Width = 321<br>
Height = 21<br>
TabOrder = 1<br>
Text = '问候'<br>
<font color="#000000"><b>end</b></font><br>
<font color="#000000"><b>object</b></font> Memo1: TMemo<br>
Left = 0<br>
Top = 30<br>
Width = 402<br>
Height = 147<br>
Align = alTop<br>
TabOrder = 2<br>
<font color="#000000"><b>end</b></font><br>
<font color="#000000"><b>object</b></font> StatusBar: TStatusBar<br>
Left = 0<br>
Top = 208<br>
Width = 402<br>
Height = 22<br>
Panels = <<br>
item<br>
Width = 50<br>
<font color="#000000"><b>end</b></font>><br>
SimplePanel = <font color="#000000"><b>False</b></font><br>
<font color="#000000"><b>end</b></font><br>
<font color="#000000"><b>object</b></font> btnSend: TBitBtn<br>
Left = 336<br>
Top = 183<br>
Width = 60<br>
Height = 22<br>
Caption = '发送'<br>
Enabled = <font color="#000000"><b>False</b></font><br>
TabOrder = 4<br>
OnClick = tbSendClick<br>
<font color="#000000"><b>end</b></font><br>
<font color="#000000"><b>object</b></font> ClientSocket:
TClientSocket<br>
Active = <font color="#000000"><b>False</b></font><br>
ClientType = ctNonBlocking<br>
Port = 1025<br>
OnConnecting = ClientSocketConnecting<br>
OnConnect = ClientSocketConnect<br>
OnDisconnect = ClientSocketDisconnect<br>
OnRead = ClientSocketRead<br>
OnError = ClientSocketError<br>
Left = 320<br>
<font color="#000000"><b>end</b></font><br>
<font color="#000000"><b>end</b></font></code></td>
</tr>
</tbody>
</table>
</div>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -