OnStatus 事件中判断AStatus或AStatusText
解决方案 »
- 在查询语句中如何增加序号字段(利用临时表)
- 关于STRINGGRID的问题,如何知道已退出某个cell?急……
- 如何动态加载并显示 Formula One 控件?
- websnap问题,老规矩,第一个回答正确给全分!~~~~~~~~~
- 怎样使用打印机的控制码??
- 如果有下辈子,我不做程序了~
- 用MS SQL视图,究竟怎样判断那些是可以修改的视图,那些是不可修改的视图呢,怎样区分的
- 问个问题,很重要的思想,谢谢.
- delphi中new开辟的内存在form关闭后会不会主动释放?
- 怎样打印dbtext和dbedit的内容?
- 斑马打印机状态如何获取?usb数据
- 这种格式的文本文件怎样用delphi将数据解析出来?
begin
{ Place thread code here }
FreeOnTerminate :=true; While b_EnRead do
begin
if Terminated then Break ;
with frm_Main do
begin
if not IdTCPClient_MW100.Connected then
begin
try
frm_Main.IdTCPClient_MW100.Connect(5000);
b_Suc :=True ;
Synchronize(buildCom);
except
b_Suc:=False ;
b_EnSend :=True ;
Synchronize(buildCom);
IdTCPClient_MW100.Disconnect ;
end;
end;
end;
end;
end;我现在这么写自动连接代码的