社区
Delphi
帖子详情
IdTcpCli控件怎么用啊?
ade2003
2003-09-12 12:54:31
IdTcpCli控件怎么用啊?
...全文
65
1
打赏
收藏
IdTcpCli控件怎么用啊?
IdTcpCli控件怎么用啊?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
1 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
xiangzi8
2003-09-12
打赏
举报
回复
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
StdCtrls;
type
TForm1 = class(TForm)
IdTcpCli: TIdTCPClient;
Label1: TLabel;
Edit2: TEdit;
edit1: TEdit;
Label2: TLabel;
Button1: TButton;
Edit3: TEdit;
Label3: TLabel;
Button2: TButton;
Edit4: TEdit;
Edit5: TEdit;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure IdTcpCliConnected(Sender: TObject);
procedure IdTcpCliDisconnected(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
IdTcpCli.Host:=edit1.Text ;
IdTcpCli.Port:=StrToInt(Edit2.Text);
try
IdTcpCli.Connect;
// IdTcpCli.SendCmd(edit3.Text);
except
on E: Exception do
begin
MessageBox(Handle, PChar(E.Message), nil, MB_OK or MB_ICONSTOP);
IdTcpCli.Disconnect;
end;
end;
end;
procedure TForm1.IdTcpCliConnected(Sender: TObject);
begin
showmessage('连接成功!');
end;
procedure TForm1.IdTcpCliDisconnected(Sender: TObject);
begin
showmessage('连接断开');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
IdTcpCli.Disconnect;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
IdTcpCli.WriteLn(edit3.Text);
end;
end.
C#自定义
控件
库
C#自定义
控件
库
C#
控件
大全
1、数据显示
控件
2、数据绑定和数据定位
控件
3、文本编辑
控件
4、信息显示
控件
5、网页显示
控件
6、从列表中选择
控件
7、图形显示
控件
8、图形存储
控件
9、值的设置
控件
10、数据的设置
控件
11、对话框
控件
12、菜单
控件
13、命令
控件
14、用户帮助
控件
15、分组
控件
16、音频
控件
朱老师QT系列课程-1.7.QT其他标准
控件
和布局
控件
本课程是《朱老师QT完全学习系列课程》第1部分《QT上手》的第7个课程,本课程由2部分构成。一部分主要讲QT的Item类
控件
,包括ItemView类4个
控件
(QListView、QTreeView、QTableView、QColumnView),以及3个ItemW
id
get类
控件
(QListW
id
get、QTreeW
id
get、QTableW
id
get)。另一部分是qt的布局类
控件
,包括 (1)中央布局 CentralLayout(2)水平布局 QHBoxLayout 和 垂直布局 QVBoxLayout(3)格栅布局 QGr
id
Layout(4)窗体布局 QFormLayout(5)分裂器布局 QSplitter,有水平和垂直2个方向(6)弹簧 Spacer,有水平和垂直2个方向
WdatePicker 非常实用的时间js
控件
+demo
WdatePicker 非常实用的时间js
控件
+demo WdatePicker 非常实用的时间js
控件
+demo WdatePicker 非常实用的时间js
控件
+demo
使用Internet
控件
的简单Web浏览器
使用Micrsoft Internet
控件
的简单Web浏览器,简单FTP程序
Delphi
5,388
社区成员
262,730
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章