AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Sonstige Fragen zu Delphi Delphi Access Violation - Interface win 32 - win 64
Thema durchsuchen
Ansicht
Themen-Optionen

Access Violation - Interface win 32 - win 64

Ein Thema von TomyN · begonnen am 16. Apr 2021 · letzter Beitrag vom 16. Apr 2021
Antwort Antwort
Daniel
(Co-Admin)

Registriert seit: 30. Mai 2002
Ort: Hamburg
13.920 Beiträge
 
Delphi 10.4 Sydney
 
#1

AW: uer

  Alt 16. Apr 2021, 10:51
Bitte gib Deinem Beitrag einen aussagekräftigen Titel - das kannst Du tun, indem Du diesen entsprechend bearbeitest.
Daniel R. Wolf
mit Grüßen aus Hamburg
  Mit Zitat antworten Zitat
Alt 16. Apr 2021, 12:06     Erstellt von KodeZwerg
Dieser Beitrag wurde von Daniel gelöscht. - Grund: Offtopic
TomyN

Registriert seit: 8. Nov 2006
Ort: Bayreuth
289 Beiträge
 
Delphi 10.3 Rio
 
#3

AW: Access Violation - Interface win 32 - win 64

  Alt 16. Apr 2021, 14:40
Hi Daniel

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

Sollte jetzt behoben sein.

Tomy
Thomas Neumann
Meine Projekte
www.satlive.audio
www.levelcheck.de
  Mit Zitat antworten Zitat
TomyN

Registriert seit: 8. Nov 2006
Ort: Bayreuth
289 Beiträge
 
Delphi 10.3 Rio
 
#4

AW: Access Violation - Interface win 32 - win 64

  Alt 16. Apr 2021, 14:59
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;
Thomas Neumann
Meine Projekte
www.satlive.audio
www.levelcheck.de

Geändert von TomyN (16. Apr 2021 um 15:08 Uhr)
  Mit Zitat antworten Zitat
TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
3.079 Beiträge
 
Delphi 10.4 Sydney
 
#5

AW: Access Violation - Interface win 32 - win 64

  Alt 16. Apr 2021, 16:38
Zeig uns mal den Aufruf von TA4APrivate.Create und die Zuweisung zu einer Variablen.
  Mit Zitat antworten Zitat
TomyN

Registriert seit: 8. Nov 2006
Ort: Bayreuth
289 Beiträge
 
Delphi 10.3 Rio
 
#6

AW: Access Violation - Interface win 32 - win 64

  Alt 16. Apr 2021, 16:43
Code:
  iA4AP:           Asio4AllPrivate.TA4APrivate;
...

iA4AP:=        Asio4AllPrivate.TA4APrivate.create;
Thomas Neumann
Meine Projekte
www.satlive.audio
www.levelcheck.de
  Mit Zitat antworten Zitat
TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
3.079 Beiträge
 
Delphi 10.4 Sydney
 
#7

AW: Access Violation - Interface win 32 - win 64

  Alt 16. Apr 2021, 18:19
Kommt denn auch eine AV, wenn du den Inhalt der Funktion ersetzt?

Delphi-Quellcode:
Function TA4APrivate.GetVersionString: string;
begin
  result:= 'beliebiger konstanter String';
end;
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 09:16 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz