Fehler beim Datei öffnen

[Jan]

Moin,

gerade bin ich ein klein wenig am Verzweifeln. Ich möche eine Datei öffnen. Aber plötzlich gibt das einen Laufzeitfehler:

Xbase++ Version : Xbase++ (R) Version 2.00.623
Betriebssystem :Windows 7 06.01 Build 07601 Service Pack 1
------------------------------------------------------------------------------
oError:args :
-> VALTYPE: C VALUE:_DLL ÿt©¢u ÝA
-> VALTYPE: C VALUE:L T $@ p$@ @$@$ ˆ Ó5O`
oError:canDefault : .F.
oError:canRetry : .F.
oError:canSubstitute: .T.
oError:cargo : NIL
oError:description : Interne Datenstrukturen beschädigt
oError:filename :
oError:genCode : 41
oError:operation : pen
oError:osCode : 0
oError:severity : 2
oError:subCode : 5
oError:subSystem : BASE
oError:thread : 4
oError:tries : 0
------------------------------------------------------------------------------
CALLSTACK:
------------------------------------------------------------------------------
Aufgerufen von XBPFILEDIALOG:OPEN(652)
Aufgerufen von OEFFNEGEDCOMDATEI(229)
Aufgerufen von (B)GEDCOMEINLESEN1(187)
Aufgerufen von XBPPUSHBUTTON:HANDLEEVENT(1522)
Aufgerufen von GEDCOMEINLESEN1(198)

Der Code dazu ist:

Code: Alles auswählen

FUNCTION OeffneGEDCOMDatei

LOCAL oFileDlg
LOCAL cFile

oFileDlg := XbpFileDialog():new()
oFileDlg:fileFilters := {{"Familienbuch " + langtext(LANG_GEDCOMDateiEinlesen), "*.ged"}}
oFileDlg:title := langText(LANG_GEDCOMDateiAuswaehlen)
oFileDlg:create()
oFileDlg:center := .T.
cFile := oFileDlg:open() //MEMVAR->gcAppPfad)

oFileDlg:show()

RETURN cFile

Zusätzlich zu den Irritiationen warum und was sind das für merkwürdige Sonderzeichen im Fehlerprotokoll kommt noch:

• Starte ich das Programm im Debugmodus aus der Workbench, klappt alles
• Starte ich das Programm in der Workbench mit ShiftF9, knallt es
• Starte ich das Programm aus dem Explorer, knallt es

Ich hab das Programm schon komplett neu aufgebaut, alle Abhängigkeiten neu aufgebaut, alle obj, res, usw. neu aufgebaut. Hilft alles nichts.

Was kann da los sein?

Jan

[Martin Altmann]

Moin,
eine der beteiligten DLL-Dateien ist veraltet / beschädigt / vom Virenscanner geblockt, würde ich denken.
Schau nach, was für ein Pfad in der Workbench eingestellt ist für die zu nutzenden DLL-Dateien du vergleich diese mit denen, die in Deinem Anwendungsverzeichnis liegen.

Viele Grüße,
Martin

[brandelh]

Die seltsamen Zeichenketten in den ersten Parametern zeigen an, dass die Inhalte der Parameter oder Zeiger defekt waren (wirre Buchstaben/Zeichen statt den Pfaden etc.)

Es kann sein, dass ein anderes Programm / Treiber verrückt gespielt hat oder eine sonstige Störung den Speicher manipuliert hat.
Rechner neu starten und testen ob es immer noch auftritt.

PS: gestern verweigerte mir Chrome den Start weil SECUR32.DLL defekt sei ...
System überprüft und einige Dateien wurden widerhergestellt (Windows Reparatur) ... jetzt geht es wieder ... keine Ahnung warum.

[Jan]

DLL sind kontroliert - alles OK
Rechner mehrfach neu gestartet - keine Änderung
Aber: Der XbpFileDialog funktioniert an anderen Stellen des Programms (andere DLL, aber gleiches Projekt) sauber! Nur an dieser einen Stelle nicht. Auch das Kopieren des funktionierenden Codes an diese Stelle bringt nichts.

Die Verwirrung steigt ...

Jan

[Herbert]

Interne Datenstruckturen... bezieht sich das nicht auf die zu öffnende Datei?
Mit der Gefahr wieder "ganz am Thema vorbei" zu schreiben, die Frage, was ist, wenn du dort eine andere Datei ansprichst?

[Manfred]

öhm,

denke mal an den Fehler von gestern Jan. Ich hatte eine falsche Engine geladen. Das verursachte auch einen internen Dateistrukturfehler.

[Jan]

Hallo Herbert,

der Fehler pasiert beim Aufbau des Datei-Dialoges. Da konnte ich noch garkeine Datei öffnen. Außerdem hatte ich ja geschrieben das ich den Code eines funktionierenden Dialoges des Programms an diese Stelle kopiert hatte - gleicher Fehler.

Jan

[Jan]

Ich hab noch mal ein wenig weiter getestet. Die betreffende prg aus einer Sicherung eingespielt - gleicher Fehler. Insgesamt habe ich in dem Programm 7x ein XbpFileDialog, alle liegen in verschiedenen prg, aber teilweise mehrere in der gleichen dll. Zwei davon produzieren genau diesen Fehler - beide in verschiedenen prg, aber der gleichen dll. Alle anderen fünf funktionieren - alle davon ebenfalls in anderen prg, aber zwei davon in der gleichen dll wie die beiden, die knallen.

Jan

[AUGE_OHR]

hi,

wenn du mehrere XbpFileDialog() in einer DLL hast "könnte" es sein das sich die "Handle" gegenseitig blockieren wenn du Threads verwendest. der CG "sollte" zwar aufräumen ( aber wann ... ) und deshalb würde ich dort o:Destroy() verwenden um das "Handle" explizit freizugeben.

Code: Alles auswählen

cFile := oFileDlg:open() //MEMVAR->gcAppPfad)
// die Anzeige passiert durch o:open()
// oFileDlg:show()
// das würde ich einfügen
oFileDlg:destroy()
RETURN cFile

[Jan]

Hallo Jimmy,

das kann es eher nicht sein. Ich starte das Programm und rufe sofort den betreffenden Dialog auf. Knallt. Da kann es also keine Reste von vorher übrig sein.

Jan

[Herbert]

Jan, Jimmy meint, dass ein früherer Dialog oder Reste davon stören könnten. Daher müsstest du bei jedem Dialog explizit einen Destroy einbauen...

[Jan]

Hallo Herbert,

"normale" Dialoge beende ich immer mit oDlg:destroy(), oDlg := NIL. Zur Sicherheit. Andere GUI-Elemente im Übrigen auch, wenn ich die nicht mit dem Parent zusammen destroye.

Jan

[AUGE_OHR]

das kann es eher nicht sein. Ich starte das Programm und rufe sofort den betreffenden Dialog auf. Knallt. Da kann es also keine Reste von vorher übrig sein.

OK ... aber irgendwas muss "anders" sein ...

XbpFileDialog() basierd auf der GetOpenFileName API function
https://msdn.microsoft.com/en-us/librar ... 85%29.aspx
hier eine Demo mit Ot4xb

OPENFILENAME.zip

(1.39 KiB) 155-mal heruntergeladen

zum Code:

Code: Alles auswählen

oFileDlg:create()
oFileDlg:center := .T.
cFile := oFileDlg:open()

die Instanzvariablen, wie "center", sollten vor o:Create() gesetzt werden.
bei o:Open() könntest du Path+"*.ged" als Parameter angeben.

btw. mit o:Enter := .T. oder als 2nd Parameter bei o:Open() verschwindet links der Treeview !

Fragen :
um wie viel Dateien im Verzeichnis reden wir ?
wie "lang" ist dein langtext(LANG_GEDCOMDateiEinlesen) ?
wird die FUNCTION OeffneGEDCOMDatei() nur aus Modulen der DLL angesprochen ? ( -> STATIC FUNCTION )

"normale" Dialoge beende ich immer mit oDlg:destroy(), oDlg := NIL. Zur Sicherheit. Andere GUI-Elemente im Übrigen auch, wenn ich die nicht mit dem Parent zusammen destroye.

war nur zur Anmerkung weil XbpFileDialog() / XbpPrintDialog() / XbpFontDialog() eben kein "normalen" Dialoge sind.
https://msdn.microsoft.com/en-us/librar ... #open_file

[Jan]

Jimmy,

:center hatte ich vorgestern schon komplett raus genommen, keine Änderung. An den fünf funktionierenden Stellen ist der :caption-Eintrag an gleicher Stelle, und da klappt es ja (trotzdem).

Die Captions etc. sind egal, die Länge ist kurz, und wie gesagt - wenn ich einen funktionierenden Dateidialog an diese Stelle kopioere, knallt es trotzdem.

Jeder FileDialog wird nur genau von einer Stelle aus, die in der gleichen dll liegt, angesprochen. Ich bin noch nicht dazu gekommen, da eine allgemein verwendbare Version daraus zu schreiben.

Wie ich schon schrieb: Ich öffne KEINEN anderen Systemdialog vorher. Also können da auch keine Rest von vorhanden sein.

Jan

[AUGE_OHR]

Wie ich schon schrieb: Ich öffne KEINEN anderen Systemdialog vorher. Also können da auch keine Rest von vorhanden sein.

... wenn du, nach dem XppFatal.LOG, neu gebootet hast.

probieren es doch mal mit der ot4xb Version ob der an den Stellen läuft.

[Jan]

Jimmy,

die gute Nachricht: Das funktioniert. Die schlechte Nachricht: Aber nicht so wie ich das möchte. Und leider habe ich Null Ahnung, was all die Parameter sein sollen bzw. was ich daran drehen kann.

Jan

[AUGE_OHR]

die gute Nachricht: Das funktioniert. Die schlechte Nachricht: Aber nicht so wie ich das möchte.

hm ... "was" macht er nicht wie du willst ?
zumindest zeigt es das "der Weg dorthin" OK ist und es an XbpFileDialog() ( Structure Länge 76 statt 88 ? ) liegen muss.

hier noch ein Openfile Beispiel mit DragDrop

PdfCombine.zip

need ot4xb

(1.54 KiB) 172-mal heruntergeladen

Und leider habe ich Null Ahnung, was all die Parameter sein sollen bzw. was ich daran drehen kann.

die Parameter findest du unter https://msdn.microsoft.com/en-us/librar ... 85%29.aspx
p.s. die meisten Flags dienen dem Erscheinungsbild. wenn der User "nur" auswählen soll reicht meistens

Code: Alles auswählen

oOfn:Flags := nOr( OFN_EXPLORER  , OFN_ENABLESIZING )