Hallo allerseits,
ich habe eine exteren
DLL die mir folgende Funktion zur Verfügung stellt:
Code:
extern "C" int __cdecl GetTemplate(BSTR* bstrTemplate, LONG* lRetCode);
Ich habe die Funktion folgendermassen in D7 deklariert:
Code:
function GetTemplate(ATemplate: PWideString; var ARetCode: Longint): Integer; cdecl; external 'Template.dll';
Verwendet wird das Ganze dann folgendermassen in einer Klasse die von TThread erbt:
Aufruf des Threads:
Code:
templateThread := TScanThread.Create(false);
threadResult := templateThread.WaitFor;
Verwendung der externen
DLL:
Code:
procedure TTemplateThread.Execute;
begin
try
GetTemplate;
ReturnValue := 1;
except
on ex:
Exception do
logger.Error(ex.Message);
end;
end;
Code:
function TTemplateThread.GetTemplate: String;
var
template: PWideString;
retCode: Longint;
begin
New(template);
GetTemplate(template, retCode);
//logger.Info('Template: ' + template^);
Dispose(scanData);
Result := '';
end;
So wie oben beschrieben funktioniert das Ganze auch ohne Fehler. Wenn ich jetzt allerdings in der GetTemplate Methode den Kommentar entferne und per template^ auf den zurückgegebenen Wert zugreife, wird dieser auch wunderbar geloggt. Funktioniert also im Prinzip wie es soll. Allerdings erhalte ich dann eine
Access violation wenn auf ReturnValue in der Execute Methode zugegriffen wird.
Warum erhalte ich eine
Access Violation in der Execute Methode soblad ich den Zeiger in der GetTemplate Funktion dereferenziere? Gibt es da einen generellen Denkfehler? Steige gerade nicht durch.
Jemand eine Idee?
Gruss, Daniel