Problem mit Call?

[AHT]

Habe gerade beim Testen von KernelLeak eine Merkwürdigkeit entdeckt und bitte mal um Screenshots von dem Quelltext unten unter XProfan11:

DEF OpenProcess(3) !"KERNEL32","OpenProcess"
Def GetModuleFileNameEx(4) !"Psapi","GetModuleFileNameExA"
DEF CloseHandle(1) !"kernel32","CloseHandle" 'Schließt ein Handle.
DEF GetCurrentProcessId(0) !"kernel32","GetCurrentProcessId" 
Def GetModuleHandle(1) !"KERNEL32","GetModuleHandleA"
DEF GetProcAddress(2) !"KERNEL32","GetProcAddress"
Declare Kernel32$,KERNEL32&,Funktion$,CloseHandle&,Pro_Handle&
Declare Fehler&,Filename#
CLS
LET Kernel32$=$SYSPATH+"\"+"KERNEL32.DLL"
Let KERNEL32&=GetModuleHandle(addr(Kernel32$))
Let Funktion$="CloseHandle"
LET CloseHandle&=GetProcAddress(KERNEL32&,addr(Funktion$))
DIM Filename#,1000
Pro_Handle&=OpenProcess($400 | $10,0,GetCurrentProcessId())
Call(CloseHandle&,Pro_Handle&)
Clear Filename#
FEHLER&=GetModuleFileNameEx(Pro_Handle&,0,Filename#,280)
PRINT "Prozesserzeugendes Modul nach Call auf CloseHandle: "+String$(Filename#,0)
'Waitinput
CloseHandle(Pro_Handle&)
Clear Filename#
FEHLER&=GetModuleFileNameEx(Pro_Handle&,0,Filename#,280)
PRINT "Prozesserzeugendes Modul nach API Aufruf von CloseHandle: "+String$(Filename#,0)
Dispose Filename#
waitKey

Bereits gefixt, liegt's an mir oder noch nicht gefixt?

[Frabbing]

Scheint nicht gefixt zu sein...

[RGH]

Hallo,
bist Du sicher, dass Du die APIs korrekt verwendest?
Ich habe noch nie Probleme mit der Rückgabe von Strings in Bereichen bei API-Aufrufen gehabt. Von XProfan-Seite aus sollte es funktionieren.Ich wüßte nicht,wo hier ein Bug in XProfan sein sollte.
Gruß
Roland

[RGH]

Nachtrag:
GetModuleFileNameExe() liefert im Fehlerfall 0 zurück und im Erfolgsfall die Länge des Dateinamens mit Pfad.
Im Beispiel wird das Prozesshandle vorher geschlossen und GetModuleFileNameEx() liefert korrekterweise 0 zurück. FILENAME# ist also nur auszulesen, wenn dass Ergebnis nicht 0 ist! Der Inhalt von FILENAME# ist in diesem Fall nicht aussagekräftig.

Gruß
Roland

[AHT]

Zitat von RGH

Nachtrag:
GetModuleFileNameExe() liefert im Fehlerfall 0 zurück und im Erfolgsfall die Länge des Dateinamens mit Pfad.
Im Beispiel wird das Prozesshandle vorher geschlossen und GetModuleFileNameEx() liefert korrekterweise 0 zurück. FILENAME# ist also nur auszulesen, wenn dass Ergebnis nicht 0 ist! Der Inhalt von FILENAME# ist in diesem Fall nicht aussagekräftig.

Gruß
Roland

Das ist ja mein Test . Bei mir läuft der Call auf CloseHandle schief und das Handle wird nicht geschlossen (XProfan9.0) - deswegen ist der Pfad weiter auslesbar. Wie ich an Franks Screenshot sehe, ist der Bug in XProfan11 wohl aber schon gefixt. Ich schaue noch einmal auf XP. Das das Handle wirklich nicht geschlossen wird, sehe ich an KernelLeak.

[AHT]

Hallo Frank (oder RGH)...

Compilierst du mir mal die Sache und schickst mir das ganze als EXE zu?

[AHT]

...hier ist meine compilierte EXE zu finden :
http://freenet-homepage.de/ahfundgru...le_Problem.exe

[AHT]

Kleiner Gedankengang... Mal angenommen, ich mache hier keinen Fehler - wandelt XPSE nicht alles in Calls um?
Es hauen da bei mir auch andere Sachen nicht hin und es hat wohl nicht jeder die neuste XProfan Version.

[AHT]

Profan²7.5 getestet, da geschieht der Fehler nicht.

[AHT]

Die Freeware von 10 gestarten, da geschieht der Fehler ebenfalls nicht - dürfte an Version 9 liegen.

[RGH]

Zitat von AHT

Die Freeware von 10 gestarten, da geschieht der Fehler ebenfalls nicht - dürfte an Version 9 liegen.

Hallo,
hast Du Dir das Update auf Version 9.1 geholt? (Das gibt es konstenlos auf der offiziellen XProfan Homepage im Support-Bereich. Siehe hier: PROFAN Support (Etwas runter Scrollen.) Da hatte ich einen eher selten auftretenden Bug beim Call-Befehl gefixt.
Ich kann mich momentan nicht erinnern, dass ich später noch etwas an der funktion geändert hätte.

Gruß
Roland

[AHT]

Zitat von RGH

Hallo,
hast Du Dir das Update auf Version 9.1 geholt? (Das gibt es konstenlos auf der offiziellen XProfan Homepage im Support-Bereich. Siehe hier: PROFAN Support (Etwas runter Scrollen.) Da hatte ich einen eher selten auftretenden Bug beim Call-Befehl gefixt.
Ich kann mich momentan nicht erinnern, dass ich später noch etwas an der funktion geändert hätte.

Gruß
Roland

Ist noch nicht installiert - werde ich aber tun. Das wird es wohl sein. Danke!

[Frabbing]

Die Exe ist also nicht mehr nötig?

[AHT]

Zitat von Frabbing

Die Exe ist also nicht mehr nötig?

Nein. Schau noch mit dem Update auf 9.1 - ab XProfan 10 ist der Fehler auf jeden Fall gefixt.

[AHT]

OK, mit 9.1 ist die Sache gefixt.