社区
Delphi
帖子详情
IdTcpCli控件怎么用啊?
ade2003
2003-09-12 12:54:31
IdTcpCli控件怎么用啊?
...全文
64
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、菜单...
WdatePicker 非常实用的时间js
控件
+demo
WdatePicker 非常实用的时间js
控件
+demo WdatePicker 非常实用的时间js
控件
+demo WdatePicker 非常实用的时间js
控件
+demo
使用Internet
控件
的简单Web浏览器
使用Micrsoft Internet
控件
的简单Web浏览器,简单FTP程序
XPDesign让你的
控件
变成Windows XP风格
XPDesign让你的
控件
变成Windows XP风格 有源代码
Delphi
5,388
社区成员
262,729
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章