社区
Delphi
帖子详情
IdTcpCli控件怎么用啊?
ade2003
2003-09-12 12:54:31
IdTcpCli控件怎么用啊?
...全文
67
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、音频
控件
Qt5(C++)高级篇之6:QML常用
控件
自定义组件及多媒体入门
1.带领您深入学习QT5/C++:QML常用
控件
编程、QML的多媒体入门、逐步提升Qml编程水平。2.所有章节均有理论知识介绍、接口讲解、实例代码讲解,讲解过程中不断穿插老师在开发过程中遇到的问题及解决方法(可以下载所有...
WdatePicker 非常实用的时间js
控件
+demo
WdatePicker 非常实用的时间js
控件
+demo WdatePicker 非常实用的时间js
控件
+demo WdatePicker 非常实用的时间js
控件
+demo
使用Internet
控件
的简单Web浏览器
使用Micrsoft Internet
控件
的简单Web浏览器,简单FTP程序
Delphi
5,392
社区成员
262,731
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章