Windows Fehler in X2 mit ntdll.dll

[Transrapidfan]

Hallo an Alle!

Ich habe nun endlich mein X2 bei JDS bestellt und erhalten und installiert.
Bisher habe ich mit der Free-Version 11 gearbeitet.
Beim Versuch, Dateien aus Verzeichnissen einzulesen, gab es unter X2
die folgende Fehlermeldung (siehe Anlage).
Dabei habe ich den im Forum veröffentlichen Quellcode verwendet, der
Windows Routinen aufruft. Unter dem 11er Interpreter ist alles OK.
Unter der X2 jedoch nicht - was muss ich unter X2 andes machen???

Betriebssystem: Windows 7 - 64 Bit

Vielen Dank im Voraus: Matthias

[Transrapidfan]

Hallo nochmals,

sorry, das mit dem Bild (Fehlermeldung) ging daneben!

Hier also noch einmal , besser lesbar!

Vielen vielen Dank im Voraus: Matthias

[AHT]

Welchen Code fürst du denn genau aus?

[Jonathan]

Ich sehe gerade, in deinem Quellcode sind dynamische Arrays. In XProfan X2 hat sich ein kleiner Bug eingeschlichen, durch den sowas hier nicht mehr funktioniert:

Input DynamischesArray$[Nummer]
Input #Dateinummer, DynamischesArray$[Nummer]

Kommt sowas eventuell in deinem Code vor?


Gruß
Jonathan

[Volkmar]

Ein lauffähiges Codebeispiel wäre hilfreicher als die Fehlermeldung. Da kann ich nur vermuten, daß möglicherweise eine Stringvariable leer ist und dort ein Inhalt erwartet wird oder ein Bereich, der das Ergebnis aufnehmen soll falsch declariert ist. Kann aber auch was Anderes sein.
Und hat sicherlich auch nicht unbedingt mit den Patch zu tun?

Gruß Volkmar

[Transrapidfan]

@AHT

Ja, welchen?
Am besten, ich stelle ihn hier mal ein.
Wie gesagt das Original stammt aus dem Forum, ich habe ihn nur leicht
modifiziert. Lief aber prima unter der Free 11er.
Ich nehme an, dass es irgendwie an der Deklaration der Routinen
im Kernel32 liegt. Aber warum reagiert X2 anders als die Free 11er?

Erst mal vielen Dank für die schnelle Reaktion: Matthias

' Vorgabe rekrusives Einlesen von Dateien
' +++++++++++++++++++++++++++++++++++++++

' Abwandlung wie folgt:
' 1. Parameter sind Startpfad, Filter (gesuchtr Dateityp), Ausgabearray
'
Def FindFirstFile(2) !"kernel32","FindFirstFileA"
Def FindNextFile(2) !"kernel32","FindNextFileA"
Def FindClose(1) !"kernel32","FindClose"
Def $Maske "*"

Struct WIN32_FIND_DATA= \
dwFileAttributes&, \
ftCreationTime#(8), \
ftLastAccessTime#(8), \
ftLastWriteTime#(8), \
nFileSizeHigh&, \
nFileSizeLow&, \
dwReserved0&, \
dwReserved1&, \
cFileName#(260), \
cAlternate#(14)

Declare HandleA&[]
Declare HandleA$[]
Declare FH&
Declare FindData#
Declare PM$

Dim FindData#, Win32_Find_Data

Proc DirListFiles
Parameters pPfad$, pFilter$, pListArray$[], pPos&
declare iFilter$

iFilter$ = upper$(pFilter$)
PM$ = pPfad$ + "\\" + $Maske
FH& = FindFirstFile(Addr(PM$),FindData#)
While (pPos& >= 1) And (FH& >= 0) = 1
Repeat
If (@String$(FindData#,44) <> ".") And (@String$(FindData#,44) <> "..")
' Wenn ein Verzeichnis
If (FindData#.dwFileAttributes& & $10) = $10
HandleA&[pPos&] = FH&
HandleA$[pPos&] = pPfad$
pPfad$ = pPfad$ + "\\" + @String$(FindData#,44)
Inc pPos&
DirListFiles(pPfad$, pFilter$, pListArray$[], pPos&)
Else
' Wenn eine Datei, dann Filtern bestimmter Dateien
if (right$(upper$(@String$(FindData#,44)), len(pFilter$)) = iFilter$) OR (pFilter$ = "")
setsize pListArray$[], sizeof(pListArray$[]) +1
pListArray$[sizeof(pListArray$[])-1] = pPfad$ + "\\" + @String$(FindData#,44)
endif
EndIf
EndIf
Until FindNextFile(FH&,FindData#) = 0
Dec pPos&
If pPos& >= 1
FH& = HandleA&[pPos&]
pPfad$ = HandleA$[pPos&]
Case FindNextFile(FH&,FindData#) = 0 : Break
Else
Break
EndIf
EndWhile
EndProc

[Transrapidfan]

Hallöle!

Also das mit dem X2 Bug kann auch sein.
Ich werde das Problem am besten mal einkreisen,
indem ich meinen Quellcode zerlege und mal einzeln
einem Test unterziehe.

Dazu werde ich mich dann morgen mal melden.
Ist auf alle Fälle eine Idee, den Fehler auch in diesem Fall
woanders zu suchen.
Dachte nur, es liegt an der Win32/Win64 Geschichte.

Also, bis morgen abend erst mal, denn mein Tag fängt sehr früh an.


PS: Ich habe auch einen Kumpel für XFrofan begeistern können.
Er ist auch mit der Forumhilfe sehr zufrieden.

Grüße aus dem kalten Harz: Matthias alias Transrapidfan (der Ungeduldige)

[Volkmar]

Das Beispiel war zwar noch nicht lauffähig, die Prozedur wird ja nie aufgerufen und der 4. Parameter ist auch nicht dokumentiert. Aber wenn ich den Code mal so ergänze, dann kommt das raus, vom dem ich denke, was der Code machen soll, eine rekursive Auflistung aller Dateien eines Typs ab dem angegebenen Ordner.

Declare Ergebnis$[], _zeile$, _Zahl&
DirListFiles "C:\\Program Files\\Adressen", "bmp", Ergebnis$[], 1
_Zahl& = sizeof(Ergebnis$[])
WhileLoop _Zahl&
  Print Ergebnis$[&Loop-1]
EndWhile
Print _Zahl&
WaitInput

Die Prozedur als Solche macht also kein Problem, es wird irgendwo in der Verarbeitung des Ergebnisses liegen.

Gruß Volkmar

[Transrapidfan]

@Volkmar!

Hallo Volkmar!
Bin nochmal ins Forum rein geschlickert.... (ist ja glatt draußen)
Ja, Deine Vermutung ist richtig. Rekrusives Einlesen von Dateinamen.
(Ich möchte alle Textdateien ab einem Startpfad bearbeiten)
Das die Verarbeitung der Ergebnisse scheitert, könnte eine Ursache sein.
Vielleicht wieder die Sache mit den dynamischen Arrays.
Dann liege ich vielleicht damit falsch, dass es die Rotinenaufrufe sind.
Das werde ich dann morgen gleich mal testen, denn ich möchte ab sofort
nur noch mit meiner X2 arbeiten, um EXE damit zu erzeugen.
Wenn ich mein kleines Tool fertig habe, stelle ich es mal ins Forum.
Vielleicht hat ja der eine oder andere auch EEP6?

@Alle: Transrapidfan Matthias dankt allen Helfern!
Bis morgen!

[Frabbing]

Das mit dem ersten Bild passte schon, Matthias. Kann man auf Originalgröße klicken.

[Andreas Miethe]

Zitat von Transrapidfan

Ja, Deine Vermutung ist richtig. Rekrusives Einlesen von Dateinamen.

Probier mal diesen Code aus, der wesentlich schneller !
Ist nur ein Test, also kein Abbrechen möglich usw.

Bei mir dauert das Einlesen von über 1800 Dateien ca. 1 Sekunde.

'##############################################
'# Autor           : ampsoft (Andreas Miethe) #
'# Datum           : 05.03.2011               #
'# Thema           : Rekursive Dateisuche     #
'# XProfan-Version : X2                       #
'##############################################

$H windows.ph
$H messages.ph


Var Dll& = Importdll("DbgHelp.dll","")

clearlist

If ~GetProcAddress(Dll&,"EnumDirTree")
  
  Declare Ende&
  Windowstyle 536
  WINDOW %maxx,%maxy
  ~SetClassLong(%hwnd,~GCL_STYLE,(~getClassLong(%hwnd,~GCL_STYLE)- ~CS_HREDRAW - ~CS_VREDRAW))
  CLS ~GetSysColor(~Color_BTNFACE)
  WindowTitle "Rekursive Dateisuche"
  SetDialogFont ~GetStockObject(~DEFAULT_GUI_FONT)
  Var Text& = Create("TEXT",%hwnd,"",0,0,width(%hwnd),24)
  Var Gefunden& = Create("TEXT",%hwnd,"",0,28,width(%hwnd),24)
  Var Liste& = Create("Listbox",%hwnd,0,0,100,width(%hwnd),height(%hwnd)-100)
  Var Anzahl& = 0
  Var hProcess& = ~GetCurrentProcess()
  Var Buffer$ = space$(100)
  Var Time& = ~GetTickCount()

  'Initialisieren
  '############################################################################
  SymInitialize(hProcess&,0,0)
  'Redraw der Listbox abschalten
  '############################################################################
  SendMessage(Liste&,~WM_SETREDRAW,0,0)
  Repaint
  'Dateien suchen
  'Processhandle&,Suchpfad$,Dateiname$,BufferPointer&,ProzedurAdresse&,Userdata&
  '############################################################################
  Settext Text&,"Warten bitte...."

  'Hier den Suchpfad angeben
  '############################################################################
  EnumDirTree(hProcess&,"D:\\","*.txt",0,ProcAddr("EnumDirTreeProc",2),Liste&)
  '############################################################################
  SendMessage(Liste&,~WM_SETREDRAW,1,0)
  Repaint
  'Aufräumen
  '############################################################################
  SymCleanup(hProcess&)
  
Else
  MessageBox("Keine Unterstützung gefunden","Fehler",0)
  End
EndIf

External("shlwapi.dll","StrFromTimeIntervalA",Addr(Buffer$),100, Int(~GetTickCount() - Time&),12)

Settext Text&,Buffer$
Settext Gefunden&,"Suche beendet : " + Str$(Anzahl&) + " Dateien gefunden die dem Suchkriterium entsprechen"
Waitinput
End

Proc  EnumDirTreeProc
  PARAMETERS PPath&,CData&
  Var Path$ = String$(PPath&,0)
  AddString(Liste&,Path$)
  SetText Text&,Path$
  Inc Anzahl&
  Return 0
EndProc

[AHT]

Läuft leider nicht auf allen Systemen - sicher wohl erst ab Vista.
Trotzdem tolle Methode!
Deine Lösung in XProfan braucht mit dem Code 23 Sekunden bei mir für Laufwerk C:.
Leider zum Einbau in "richtige Programme" keine Lösung.

[ts-soft]

Zitat von AHT

Läuft leider nicht auf allen Systemen - sicher wohl erst ab Vista.

Naja, unter Win9x ist die Imagehlp.dll zu importieren, dann sollte es auch mit
dem Nachbarn klappen

[AHT]

Für den Nachbarn kein Problem - will man das aber über das Internet verteilen, wird es problematisch. Die DLL braucht man ab Version 6.0, und das ist Vista.
Wie gesagt - wenn ein Programm nicht zwingend überall laufen muss, kann man das verwenden, ansonsten besser nicht.

[ts-soft]

Hab mich sowieso geiirt , die DLL ist zwar redistributable, enthält aber die
Funktion "EnumDirTree" nicht, insofern ab Vista