Win11 AV in ntdll.dll

[himitsu]

Da es kein CONST gibt, waren es bereits kopienen, allergings mehr als (mit Referenzzählung)

Delphi-Quellcode:

   User := aUser;
   Pass := aPass;
   Host := aHost;
   Port := aPort;

Dein + '' entspricht quasi Folgendem (UniqueString)

Delphi-Quellcode:

function gwInit( aUser, aPass, aHost, aPort : string ) : integer;
begin
  UniqueString(aUser);
  UniqueString(aPass);
  UniqueString(aHost);
  UniqueString(aPort);

Wirklich Variant?
Warum nicht OleVariant?
Ich weiß aber nicht, wie es bei den Parametern des gwInit aussieht, also welcher Typ es genau ist.

Im Variant können delphi-eigene Typen enthalten sein, welche fremde Sprachen nicht verstehen, wie z.B. AnsiString und UnicodeString.
Im OleVariant gibt es nur OLE-kompatible Typen, wie z.B. WideString.

vieleicht mal so probieren

Delphi-Quellcode:

var vUser, vHost, vPass: OleVariant;  // oder WideString
vUser := User;
vHost := '/ipa-' + Host + ' /ipp-' + Port;
vPass := Pass;
GwRAobj := GWobj.Login(vUser, vHost, vPass, 1); 

// oder
GwRAobj := GWobj.Login(OleVariant(User), OleVariant('/ipa-' + Host + ' /ipp-' + Port), OleVariant(Pass), 1);
// oder
GwRAobj := GWobj.Login(WideString(User), WideString('/ipa-' + Host + ' /ipp-' + Port), WideString(Pass), 1);

[cramer]

Danke, ich habe es getestet, alle drei "oder" Versionen schlagen fehl.

Code:

GWobj.Login(1) fehlgeschlagen.
Access violation at address 77500F48 in module 'ntdll.dll'. Read of address FFFF0013
GWobj.Login(2) fehlgeschlagen.
Access violation at address 77500F48 in module 'ntdll.dll'. Read of address 00000014
GWobj.Login(3) fehlgeschlagen.
Access violation at address 77500F48 in module 'ntdll.dll'. Read of address 00000014

Seltsam ist ja auch, daß die function in einer mini console version mit bds2006 unter W-XP bis W11 funktioniert.
Die tForm Version aber nur bis W10 und ab W11 nicht mehr, zwei Systeme mit W11 getestet.

Ich baue jetzt mal eine kleine tForm mit einem Button der die function aufruft.
Wenn das klappt, kann es ja nur an irgendwelchen genutzten Komponenten liegen.

[himitsu]

Muß vor dem Login die Lib vielleicht noch irgendwie ordentlich initialisiert werden?
Fehlt vielleicht noch irgendwo eine DLL?
...

Die Adressen klingen nach NIL
00000014 = nil + offset $14
FFFF0013 = nil - offset $FFED bzw. = nil - $10000 + $13

[Blup]

Sind GwObj, GwRAobj, GwMail als OleVariant deklariert?

[cramer]

Zitat von Blup:

Sind GwObj, GwRAobj, GwMail als OleVariant deklariert?

nein

Code:

var GwObj, GwRAobj, GwMail : variant;

Danke für die Info, ändere ich und teste nochmal.

[cramer]

Code:

var GwObj, GwRAobj, GwMail : olevariant;

Code:

GWobj.Login(1) fehlgeschlagen.
Access violation at address 77500F48 in module 'ntdll.dll'. Read of address C0EC4D84
GWobj.Login(2) fehlgeschlagen.
Access violation at address 77500F48 in module 'ntdll.dll'. Read of address 4D79E641
GWobj.Login(3) fehlgeschlagen.
Access violation at address 77500F48 in module 'ntdll.dll'. Read of address C0EDCD85

Kann man herausfinden was in der ntdll.dll an der Adresse 77500F48 passiert?

[cramer]

FYI, meine simple BDS2006 TForm Anwendung mit Button funktioniert auch mit W11.
Liegt also nicht an W11 und den OleVarianten sondern an irgendwelchen Komponenten.

[cramer]

Zitat:

Die Adressen klingen nach NIL
00000014 = nil + offset $14
FFFF0013 = nil - offset $FFED bzw. = nil - $10000 + $13"

Liegt vielleicht daran, daß die zweiten beiden "oder" jeweils im except Block des vorherigen Aufrufs erfolgt sind, da war ich zu faul, jedes "oder" einzeln zu compilieren und zu testen