delphi使用IdTCPServer、TIdTCPClient收发消息
2012-03-06 14:51:58| 分类: 编程 | 标签: |字号大中小 订阅
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdTCPServer, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient;
type
TForm1 = class(TForm)
IdTCPClient1: TIdTCPClient;
IdTCPServer1: TIdTCPServer;
Button1: TButton;
Button2: TButton;