X
Xiaoxong
Unregistered / Unconfirmed
GUEST, unregistred user!
大家帮忙看一下啊，在下不胜感激啊
源码：
Function func_test(Var InStr,InBz,OutStr:ShortString):ShortString;
type Lfunc1=Function (Var _InStr, _InBz , _OutStr:ShortString):ShortString;stdcall;
Var
Lib1:Thandle;
Lsfunc1 : Lfunc1;
begin
Lib1 := Loadlibrary('test.dll');
If Lib1 >= 32 then
begin
try
@Lsfunc1 :=GetProcAddress(Lib1 ,'_DataDown_sp@12');
if @Lsfunc1 <> nil then
Result := Lsfunc1(InStr,InBz,OutStr)
else
Result := '动态链接库加载错误';
finally
FreeLibrary(Lib1);
end;
end
else
begin
Result := '动态链接库加载错误';
end;
end;
不知道哪儿错了，执行时总提示地址出错
还有一个，Delphi5.0调用PB写的Dll有没有什么要特别注意的地方
分不够可以再加
源码：
Function func_test(Var InStr,InBz,OutStr:ShortString):ShortString;
type Lfunc1=Function (Var _InStr, _InBz , _OutStr:ShortString):ShortString;stdcall;
Var
Lib1:Thandle;
Lsfunc1 : Lfunc1;
begin
Lib1 := Loadlibrary('test.dll');
If Lib1 >= 32 then
begin
try
@Lsfunc1 :=GetProcAddress(Lib1 ,'_DataDown_sp@12');
if @Lsfunc1 <> nil then
Result := Lsfunc1(InStr,InBz,OutStr)
else
Result := '动态链接库加载错误';
finally
FreeLibrary(Lib1);
end;
end
else
begin
Result := '动态链接库加载错误';
end;
end;
不知道哪儿错了，执行时总提示地址出错
还有一个，Delphi5.0调用PB写的Dll有没有什么要特别注意的地方
分不够可以再加