Unit1.pas
上传用户:cnjnqp
上传日期:2022-05-02
资源大小:194k
文件大小:1k
源码类别:

打印编程

开发平台:

Delphi

  1. unit Unit1;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  5.   Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  6.   IdTCPClient, IdTelnet;
  7. type
  8.   TForm1 = class(TForm)
  9.     IdTelnet1: TIdTelnet;
  10.     Button1: TButton;
  11.     procedure Button1Click(Sender: TObject);
  12.   private
  13.     { Private declarations }
  14.   public
  15.     { Public declarations }
  16.   end;
  17.                   
  18. var
  19.   Form1: TForm1;
  20. implementation
  21. {$R *.dfm}
  22. procedure TForm1.Button1Click(Sender: TObject);
  23. begin
  24.         if( not IdTelnet1.Connected ) then
  25.         begin
  26.                 IdTelnet1.Connect;
  27.         end
  28. end;
  29. end.