die
DLL exportiert mehrere Funktionen z.B.
Delphi-Quellcode:
function CountryCodeToMCC(CountryCode: String): Integer;
var
i: Integer;
begin
result := 0;
i := 0;
while TabHWName[i].MNC < 999 do
begin
if UpperCase(CountryCode) = UpperCase(TabHWName[i].CountryCode) then
begin
result := TabHWName[i].MCC;
break;
end;
inc(i);
end;
end;
function MCCToCountry(MCC: Integer): String;
var
i: Integer;
begin
result := '';
i := 0;
while TabHWName[i].MNC < 999 do
begin
if MCC = TabHWName[i].MCC then
begin
result := TabHWName[i].Country;
break;
end;
inc(i);
end;
end;
aufrufen tue ich mit
Delphi-Quellcode:
function CountryCodeToMCC(CountryCode: String): Integer; cdecl; external 'ProviderDLL.dll';
function MCCToCountry(MCC: Integer): String; cdecl; external 'ProviderDLL.dll';
wobei die erste tut was sie soll, die 2 (und auch alle anderen Funktionen aber eine
exception werfen)
Zitat:
---------------------------
Dlltest
---------------------------
Zugriffsverletzung bei Adresse 002C4EAA in Modul 'ProviderDLL.dll'. Lesen von Adresse 00194000.
---------------------------
OK
---------------------------
die Funktionen sind alle getestet und tun was sie sollen also schein ich beim Aufruf was falsch zu machen