***请问如何用多线程调用这个过程***

[bigmingming]

procedure TfrmPlayMain.RunMode;
var
actcmd:string;
dllName:string;
dllH:THandle;
appPath:string;
ActionCmd:TActionCmd;
i:integer;
CmdLoc:TCmd;
begin
appPath:=extractFilePath(application.ExeName);
for i:=0 to Length(DLLInfo)-1 do
begin
dllH := loadlibrary(pchar(appPath+DLLInfo[i].DLLName));
DLLInfo[i].handle:= dllH;
@CmdLoc:= windows.getProcAddress(dllH,pchar('CreateForm'));
try
CmdLoc(DLLInfo[i].LocX,DLLInfo[i].LocY,Application,conAdo);
finally
CmdLoc := nil;
end;
end;
end;


想通过多线程调用一组DLL,不知道如何调用?谢谢

[bigmingming]

constructor RunDLL.Create(AHandle: THandle; B: Boolean);
begin
FHandle:= AHandle;****

end;
请问这里为什么不能赋值?会报错

[chenzhuo]

报什么错?

[chenzhuo]

你是指一个线程序调用一个DLL,还是在一个线程里调用所有的DLL

[dabaicai]

把这段代码封装到一个类里面，然后在各个线程里面创建对象，来调用

[chenzhuo]

写一个类继承TThread
在Execute里去调用这个函数

[bigmingming]

想用一个线程序调用一个DLL,谢谢

[chenzhuo]

for i:=0 to Length(DLLInfo)-1 do
begin
dllH := loadlibrary(pchar(appPath+DLLInfo[i].DLLName));
DLLInfo[i].handle:= dllH;
TDllThread.Create(dllh,true);
end;

把Handle当成TThread的子类的参数传入
TDllThread = class(TThread)
private
FHandle: THandle;
public
constructor Create(AHandle: THandle; B: Boolean);
procedure Execute;override;
end;

procedure TDllThread.Execute;
begin
...
end;

[bigmingming]

Project PlayScreen.exe raised exception class EAccessViolation
with message 'Access violation at address 00403721 in module
'PlayScreen.exe'. Read of address 0000000 Process stopped.
Use Step or Run to continue

谢谢

[zouqiang122]

up...

[zouqiang122]

up...

[bigmingming]

谢谢