大家好，请教 DELPHI API 多线程中传递多个参数写法。
大家好，请教个问题。
DELPHI中api创建多线程怎么传递多个参数
如
getf(a,b:Tarr);
BeginThread(nil,0,@getf,nil,0,Tid);
getf(a,b:Tarr);这里的A和B是个动态数组
该怎么写。
以下是引用haiou327在2014-6-23 17:09:09的发言：
Tarr = array of Byte;
pr = record
ta, tb: Tarr;
end;
PPr = ^pr;
var
h: THandle;
Procedure getf(p: PPr); stdcall;
begin
Form1.Button1.Caption := Format('Ta:%d+1, Tb:%d+1', [High(P.ta), High(P.tb)]);
Dispose(P);
ExitThread(0);
end;
procedure Tform1.Button1Click(Sender: TObject);
var
pc: PPr;
tid: Cardinal;
begin
New(pc);
SetLength(PC.ta, 10);
SetLength(pc.tb, 12);
try
h := createThread(nil, 0, @getf, pc, 0, Tid);
finally
if h <> 0 then CloseHandle(h);
end;
end;
Tarr = array of Byte;
pr = record
ta, tb: Tarr;
end;
PPr = ^pr;
var
h: THandle;
Procedure getf(p: PPr); stdcall;
begin
Form1.Button1.Caption := Format('Ta:%d+1, Tb:%d+1', [High(P.ta), High(P.tb)]);
Dispose(P);
ExitThread(0);
end;
procedure Tform1.Button1Click(Sender: TObject);
var
pc: PPr;
tid: Cardinal;
begin
New(pc);
SetLength(PC.ta, 10);
SetLength(pc.tb, 12);
try
h := createThread(nil, 0, @getf, pc, 0, Tid);
finally
if h <> 0 then CloseHandle(h);
end;
end;
感谢您的帮忙，我一阵子没上论坛。看到您的帮助。感谢。
