procedure TForm1.Button1Click(Sender: TObject);
begin IdTcpCli.Host:=edit1.Text ;
IdTcpCli.Port:=StrToInt(Edit2.Text);
try
IdTcpCli.Connect;
IdTcpCli.SendCmd(edit3.Text);
finally
IdTcpCli.Disconnect;
end;end;
begin IdTcpCli.Host:=edit1.Text ;
IdTcpCli.Port:=StrToInt(Edit2.Text);
try
IdTcpCli.Connect;
IdTcpCli.SendCmd(edit3.Text);
finally
IdTcpCli.Disconnect;
end;end;
解决方案 »
- 有难度的问题来了,录制鼠标动作,并回放,不使用Hook
- 使用delphi 7的image控件来打印,但是打印时想让image控件旋转90度??高手指教
- 请问这个皮肤控件“VCLSkin 4.98.04.23”该怎么安装?
- 关于fastreport的简单问题?
- 一个关于使用ADOCONNECTION同步更新ACCESS数据库数据的问题。
- 有四路输入输出的单片机没有?
- 各位大侠,帮个忙!!
- 你喜欢改板后的csdn吗?欢迎大家进来签名!!!!
- 一个网络方面的问题?(急)
- Delphi5中怎样调用编写的DLL?
- 如何在delphi中通过adoquery把一个mdb数据库的所有表名查询输出到dbgrid中,大家多多帮忙!!!
- 请问如何判断一个字符串的前几位是不是和另一个字符串相等?
IdTcpCli.Connect;
IdTcpCli.SendCmd(edit3.Text);
except
on E: Exception do
MessageBox(Handle, PChar(E.Message), nil, MB_OK or MB_ICONSTOP);
IdTcpCli.Disconnect;
end;