Access Violation - Interface win 32 - win 64

[Daniel]

Bitte gib Deinem Beitrag einen aussagekräftigen Titel - das kannst Du tun, indem Du diesen entsprechend bearbeitest.

[TomyN]

Hi Daniel

Danke für die Erinnerung. Irgendwie hat es da was zerhaut..

Sollte jetzt behoben sein.

Tomy

[TomyN]

Hi,

Es wird immer seltsamer .....

Code:

 
 //dl:= IA4APrivate.iA4APrivateGetVersion;
 dl:= $12345678;
 versionString:= IntToHex(hiWord(dl),4) + '.' + IntToHex(loWord(dl), 4);

Funktioniert wunderbar, inkl. Abruf des Resultats über GetVersionString.
Auch der Originalcode liefert intern den richtigen String ab. Die AV kommt erst beim Aufruf von GetVersionString.

Code:

type TA4APrivate = Class (TObject)
  Private
    IA4APrivate: A4APrivateDeclaration.IA4APRIVATE;
    versionString:  String;
    function InterfaceOk: boolean;
    function IsResultOk(const lastResult: dWord): boolean;
  Public
    constructor Create;
    Destructor  Destroy; override;
    Function InitInterface(const asioInterface: Asio.IAsio): boolean;
    Function GetVersionString:string;
end;

implementation
Uses sysUtils, activeX;

....

Function TA4APrivate.GetVersionString: string;
begin
  result:= versionString;
end;

[TiGü]

Zeig uns mal den Aufruf von TA4APrivate.Create und die Zuweisung zu einer Variablen.

[TomyN]

Code:

  iA4AP:            Asio4AllPrivate.TA4APrivate;
...

iA4AP:=         Asio4AllPrivate.TA4APrivate.create;

[TiGü]

Kommt denn auch eine AV, wenn du den Inhalt der Funktion ersetzt?

Delphi-Quellcode:

Function TA4APrivate.GetVersionString: string;
begin
  result:= 'beliebiger konstanter String';
end;