开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 打印编程 > 查看源码
uClientMain.pas
资源名称：print.rar　[点击查看]
上传用户：cnjnqp
上传日期：2022-05-02
资源大小：194k
文件大小：4k
源码类别：

打印编程

开发平台：

Delphi

uClientMain.pas：源码内容
  1. unit uClientMain;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   ScktComp, ComCtrls, ToolWin, ExtCtrls, StdCtrls, Buttons, Spin;
  8. const
  9.     SocketHost = '172.16.1.6'; //服务器端地址
  10. type
  11.   TfrmClientMain = class(TForm)
  12.     ToolBar1: TToolBar;
  13.     tbConnected: TToolButton;
  14.     ToolButton1: TToolButton;
  15.     tbSend: TToolButton;
  16.     ToolButton2: TToolButton;
  17.     tbClose: TToolButton;
  18.     ToolButton3: TToolButton;
  19.     tbDisconnected: TToolButton;
  20.     ClientSocket: TClientSocket;
  21.     StatusBar: TStatusBar;
  22.     Panel1: TPanel;
  23.     Label2: TLabel;
  24.     Edit3: TEdit;
  25.     Label1: TLabel;
  26.     Label3: TLabel;
  27.     Edit1: TEdit;
  28.     Button1: TButton;
  29.     btnSend: TBitBtn;
  30.     GroupBox1: TGroupBox;
  31.     Memo1: TMemo;
  32.     SpinEdit1: TSpinEdit;
  34.     procedure tbConnectedClick(Sender: TObject);
  35.     procedure tbDisconnectedClick(Sender: TObject);
  36.     procedure ClientSocketRead(Sender: TObject; Socket: TCustomWinSocket);
  37.     procedure tbSendClick(Sender: TObject);
  38.     procedure tbCloseClick(Sender: TObject);
  39.     procedure FormShow(Sender: TObject);
  40.     procedure ClientSocketConnect(Sender: TObject;
  41.       Socket: TCustomWinSocket);
  42.     procedure ClientSocketConnecting(Sender: TObject;
  43.       Socket: TCustomWinSocket);
  44.     procedure ClientSocketDisconnect(Sender: TObject;
  45.       Socket: TCustomWinSocket);
  46.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  47.     procedure ClientSocketError(Sender: TObject; Socket: TCustomWinSocket;
  48.       ErrorEvent: TErrorEvent; var ErrorCode: Integer);
  49.     procedure Button1Click(Sender: TObject);
  50.     procedure Edit1KeyUp(Sender: TObject; var Key: Word;
  51.       Shift: TShiftState);
  52.   private
  53.     { Private declarations }
  54.   public
  55.     { Public declarations }
  56.   end;
  58. var
  59.   frmClientMain: TfrmClientMain;
  61. implementation
  63. {$R *.dfm}
  64. //打开套接字连接
  65. procedure TfrmClientMain.tbConnectedClick(Sender: TObject);
  66. begin
  67.    ClientSocket.Open ;
  68. end;
  69. //关闭套接字连接
  70. procedure TfrmClientMain.tbDisconnectedClick(Sender: TObject);
  71. begin
  72.     ClientSocket.Close;
  73. end;
  74. //接受服务器端的回复
  75. procedure TfrmClientMain.ClientSocketRead(Sender: TObject;
  76.   Socket: TCustomWinSocket);
  77. begin
  78.    Memo1.Lines.Add(Socket.ReceiveText);
  79. end;
  80. //发送信息到服务器端
  81. procedure TfrmClientMain.tbSendClick(Sender: TObject);
  82. begin
  83.     ClientSocket.Socket.SendText(Edit1.Text);
  84. end;
  85. procedure TfrmClientMain.tbCloseClick(Sender: TObject);
  86. begin
  87.     Close;
  88. end;
  89. //设置要连接的服务器端地址
  90. procedure TfrmClientMain.FormShow(Sender: TObject);
  91. begin
  92.     ClientSocket.Host := SocketHost;
  93. end;
  94. //已经连接到服务器端
  95. procedure TfrmClientMain.ClientSocketConnect(Sender: TObject;
  96.   Socket: TCustomWinSocket);
  97. begin
  98.     tbSend.Enabled := True;
  99.     tbDisconnected.Enabled :=True;
  100.     btnSend.Enabled := True;
  101.     StatusBar.Panels[0].Text := '已经连接到 '+ Socket.RemoteHost ;
  102. end;
  103. //正在连接到服务器端
  104. procedure TfrmClientMain.ClientSocketConnecting(Sender: TObject;
  105.   Socket: TCustomWinSocket);
  106. begin
  107.     StatusBar.Panels[0].Text := '正在连接到服务器... ' ;
  108. end;
  109. //当断开与服务器端的连接时发生
  110. procedure TfrmClientMain.ClientSocketDisconnect(Sender: TObject;
  111.   Socket: TCustomWinSocket);
  112. begin
  113.     tbSend.Enabled := False;
  114.     btnSend.Enabled := False;
  115.     tbDisconnected.Enabled := False;
  116.     StatusBar.Panels[0].Text := '已经断开与 '+ Socket.RemoteHost +' 的连接';
  117. end;
  118. procedure TfrmClientMain.FormClose(Sender: TObject;
  119.   var Action: TCloseAction);
  120. begin
  121.     ClientSocket.Close ;
  122. end;
  123. //当与服务器端的连接发生错误时
  124. procedure TfrmClientMain.ClientSocketError(Sender: TObject;
  125.   Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  126.   var ErrorCode: Integer);
  127. begin
  128.   StatusBar.Panels[0].Text := '与服务器端的连接发生错误';
  129.   ErrorCode := 0;
  130. end;
  131. procedure TfrmClientMain.Button1Click(Sender: TObject);
  132. begin
  133.   ClientSocket.Host :=trim(Edit3.Text) ;
  134.   ClientSocket.Port :=SpinEdit1.Value ;
  135.   ToolBar1.Enabled :=true;
  136. end;
  138. procedure TfrmClientMain.Edit1KeyUp(Sender: TObject; var Key: Word;
  139.   Shift: TShiftState);
  140. begin
  141.   if (Key=13) and (trim(Edit1.Text)<>'') then ClientSocket.Socket.SendText(Edit1.Text);
  142. end;
  144. end.