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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
Client1Form.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：1k
源码类别：

Delphi控件源码

开发平台：

Delphi

Client1Form.pas：源码内容
  1. unit Client1Form;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, ScktComp;
  9. type
  10.   TForm1 = class(TForm)
  11.     ClientSocket1: TClientSocket;
  12.     EditMsg: TEdit;
  13.     btnSend: TButton;
  14.     cbActivate: TCheckBox;
  15.     EditServer: TEdit;
  16.     Server: TLabel;
  17.     Label1: TLabel;
  18.     procedure btnSendClick(Sender: TObject);
  19.     procedure ClientSocket1Connect(Sender: TObject;
  20.       Socket: TCustomWinSocket);
  21.     procedure ClientSocket1Disconnect(Sender: TObject;
  22.       Socket: TCustomWinSocket);
  23.     procedure cbActivateClick(Sender: TObject);
  24.   private
  25.     { Private declarations }
  26.   public
  27.     { Public declarations }
  28.   end;
  30. var
  31.   Form1: TForm1;
  33. implementation
  35. {$R *.DFM}
  37. procedure TForm1.btnSendClick(Sender: TObject);
  38. begin
  39.   ClientSocket1.Socket.SendText (EditMsg.Text);
  40. end;
  42. procedure TForm1.ClientSocket1Connect(Sender: TObject;
  43.   Socket: TCustomWinSocket);
  44. begin
  45.   Caption := 'Connected';
  46. end;
  48. procedure TForm1.ClientSocket1Disconnect(Sender: TObject;
  49.   Socket: TCustomWinSocket);
  50. begin
  51.   Caption := 'Disconnected';
  52. end;
  54. procedure TForm1.cbActivateClick(Sender: TObject);
  55. begin
  56.   if not ClientSocket1.Active then
  57.     ClientSocket1.Address := EditServer.Text;
  58.   ClientSocket1.Active := cbActivate.Checked;
  59. end;
  61. end.