Einzelnen Beitrag anzeigen

pantarhei

Registriert seit: 22. Jul 2010
9 Beiträge
 
Delphi 7 Professional
 
#1

BSTR* als Parameter für externe DLL?

  Alt 22. Jul 2010, 08:30
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
  Mit Zitat antworten Zitat