关于DELPHI多线程同步的问题 - Delphi / 非技术区
各位朋友大家好,本人刚开始研究多线程,还有很多不明白的地方,望大家指教,谢谢!
问题是这样的:
定义两个线程,当按钮连接时执行连接创建一个线程序,连接成功后执行查询按扭再创建一个线程,现在问题是查询线程
中无法利用 连接线程的SocketConnection1,如何同步呢?
部分代码如下:
定义:
type
Tthread1 = class(Tthread)
protected
procedure Execute;override;
procedure getSocketConn;
end;
type
Tthread2 = class(Tthread)
protected
procedure Execute;override;
procedure getClientDataSet;
end;
procedure Tthread1.Execute;
begin
Try
FreeOnTerminate:=true;
ConToolsFrm.SocketConnection1.ServerGUID:='{2C8E3F43-ABE4-11D4-B352-00E04C67568C}';
ConToolsFrm.SocketConnection1.ServerName:='apply_tier.Apply_data';
ConToolsFrm.SocketConnection1.Connected:=False;
ConToolsFrm.SocketConnection1.Host:= ConToolsFrm.edtHost.Text;
ConToolsFrm.SocketConnection1.Connected:=True;
ShowMessage('连接成功!');
Except
ShowMessage('连接失败,请断开后再试!');
ConToolsFrm.SocketConnection1.Connected:=False;
end;
end;
procedure Tthread2.Execute;
var
sqlStr:string;
begin
ConToolsFrm.ClientDataSet1.Close;
&nb
相关问答:
已知Python 中:
s = unicode("测试", "gb2312")
s = u'\u6d4b\u8bd5'
print s
测试
在Delphi里面如何将\u6d4b\u8bd5这样的还原成Gb2312的汉字呢?
找到个方法
......
1、我能否在delphi里调用另外一个后台程序,但是我不需要等待这个后台程序执行完成,还可以继续执行别的程序。请问具体怎么样才能实现。
2、我能否在delphi上执行一个快捷键,使delphi窗口程序能够刷新一下。[/size ......
各位好!!
假设我有两个text文件
一个名叫 1.text
内容:
I like PC....
另外一是2.text
内容:
function yk as string
endfunction
globals
endglobals
***********************分界线********** ......
例子程序见附件,用Delphi 7进行编译
问题代码为
Delphi(Pascal) code:
if Node.ChildNodes <> nil then
begin
for i := 0 to Node.ChildNodes.Count - 1 do
begin
cNode := N ......
数据: 年 月 日 开盘 收盘
使用下面语句搜索到了 每年每个月的月初和月末都是几号
select 年,月,MIN(日) as frist,MAX(日) AS laset from mt4his.DB GROUP BY 年,月
我想得到 每年每个月的月初和月末 ......