Данный код загружает dll, но не загружает функцию из нее (addr(wsRoPT)
возвращает nil
).
type
TFunc2Double = function (P:double;T:double):double;
var
dllHandle:THandle;
wsRoPT:TFunc2Double;
begin
dllHandle:= LoadLibrary('ws.dll');
if dllHandle<>0 then
begin
@wsRoPT:= GetProcAddress(dllHandle,'wsRoPt');
if addr(wsRoPT)<>nil then
WRoEdit.Text:=FloatToStr(wsRoPT(p,t))
else
ShowMessage('0');
end;
В dll функция имеет следующий вид:
function wsRoPT(P:double;T:double):double;
Ошибка появляется в месте, до этого все нормально.
@wsRoPT:= GetProcAddress(dllHandle,'wsRoPt');
Ошибка: не найден указанный модуль.
end
потеряли?