1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
procedure GetAll( const task:IOmniTask);
var
aa:TClientRuleClient;
f:OleVariant;
msgData: TOmniValue;
msgID : word;
begin
task.Comm.Send(2,'start');
Form1.ClientDataSet2.Close;
aa:=TClientRuleClient.Create(Form1.SQLConnection1.DBXConnection);
f:= aa.GetAll;
FreeAndNil(aa);
// Form1.ClientDataSet2.Data := f;
if task.Comm.Receive(msgID,msgData) then begin
if msgID = 0 then Exit;
end;
task.Comm.Send(4,'sleep');
Sleep(3000);
task.Comm.Send(3,'end');
task.Comm.Send(1, tomnivalue.CastFrom(f));
end;
|