Das deutsche QBasic- und FreeBASIC-Forum

[licer]

Bin jetzt schon tagelang am ausprobieren wie der getopenfilename befehl der Api funktioniert. Aber leider krieg ich es einfach nicht auf die reihe.

Welche werte muss ich den dem openfilename typ mitgeben?

Ich steig einfach nicht durch. Kann mir vielleicht mal jemand ein ein programm geben in dem der getopenfilename befehl verwendet wird? Denn meiner Meinung nach lernt man doch am besten aus dem Quellcode.

Und dann noch ne Frage: In der commdlg32.bi ist der openfilename typ wie folgt deklariert:

[PeterHarder]

Dieses Beispiel, dass vor einiger Zeit mal im englischen Forum gepostet wurde, hatte ich auf der Platte gesichert. Vielleicht hilft es ja weiter.

[licer]

Danke das bringt mich schon um einiges weiter . Das Fenster wird erstellt und funktoiniert auch. Allerdings bin ich auf ein weiteres Problem gestoßen:

Wie funktoiniert eigentlich ein NULL-Terminated string?
Wenn ich folgendes schreibe:

[E-P-S]

NULL Terminiert heißt - wie die Wortgruppe schon vermuten lässt - das der String mit CHR$(0) abgeschlossen ist, also der CHR$(0) nur EINMAL am Ende steht. Dadurch kann das System das Ende des Strings erkennen um die Länge zu ermitteln.

Versuch bei der Trennung der Einträge mal das PIPE (|) Zeichen, also z.B:

filter = "XB Files (*.x, *.dec)|*.x;*.dec|Text Files (*.txt)|*.txt|All Files (*.*)|*.*" + CHR$(0)
_________________
Man kann sich öfter als zweimal im Leben halb tot lachen.

[licer]

Das Funktioniert leider nicht.

In der win32.hlp steht drin, dass der Filter aus Paaren von null terminated strings besteht. Der erste teil gibt die beschriftung der zweite den Filter an. Beendet wird das ganze mit zwei chr$(0).

Kann es ein das die Stringvariable von Freebasic nicht dafür ausgelegt ist und nach dem ersten chr$(0) nicht mehr weiter schreibt?

[E-P-S]

hmm....stimmt, vergiss was ich gesagt habe...ich hab grad mal in der MSDN nachgesehen:

"Pointer to a buffer containing pairs of null-terminated filter strings. The last string in the buffer must be terminated by two NULL characters."

Das heißt dein String ist richtig, aber du mußt an die Funktion nicht den String übergeben, sondern nur einen Pointer zu dem String.
_________________
Man kann sich öfter als zweimal im Leben halb tot lachen.

[licer]

Ich hab das Gefühl, dass das chr$(0) garnicht registriert wird.

[E-P-S]

neenee, der CHR$(0) kann nur nicht ausgegeben werden - als Zeichen bzw. Symbol. Probier mal das hier:

Test$ = "ABCD" + CHR$(0) + "ABCD"
PRINT LEN(Test$)

habs jetzt "blind" getippt, sollte aber gehen...
_________________
Man kann sich öfter als zweimal im Leben halb tot lachen.

[licer]

Habs genauso abgeschrieben das Programm gibt eine "4" aus.

Das bestätigt doch meine Theorie das das Chr$(0) nicht von Freebasic strings angenommen wird.

Wenn man ein

[Sebastian]

Tja, wie wär's dann damit, dass du die Zeichenkette (Filter usw.) in ein Bytearray stopfst Zeichen(123) As Byte und dann irgendwie einen Pointer da drauf übergibst? Mit Pointern hab ichs nicht so, aber in einem Bytearray könntest du jeden ASCII Wert der Reihe nach ablegen.
_________________

Die gefährlichsten Familienclans | Opas Leistung muss sich wieder lohnen - für 6 bis 10 Generationen!

[E-P-S]

Fuck....hmmm....dann ist deine Annahme richtig...ich muß jetzt mal erwähnen das ich selbst nicht in FB progge, ich entwickle mit anderen Programmiersprachen in denen sowas aber funktioniert.

Ok, mein Verdacht ist das FB selbst das NULL Zeichen verwendet um seine Strings im Speicher zu terminieren. Ergo würdest du beim anlegen eines solchen Strings zwangsläufig auch nur den Teil bis zum ersten CHR$(0) zurück bekommen.

Eine Idee wäre den String zu dimensionieren wie in QB, möglicherweise geht das, wenn das in FB überhaupt geht, also z.B:

DIM Filter As String * 255

und dann diesen String verwenden. Da dieser in seiner Länge schon festgelegt ist, könnte es funktionieren.
_________________
Man kann sich öfter als zweimal im Leben halb tot lachen.

[licer]

Das wird dann aber bei 5 Filtern ein sehr großes Feld und ziemlich viel schreibarbeit. Das kann man ja auch net mit ner schleife lösen.

Auserdem müsste ich ja dann alle asci zeichen einzeln raussuchen und das würde für jeden null string den ich benutze gemacht werden. Wenn man mit der WinApi arbeitet die nur null strings vordert is das glaub ich keine möglichkeit Und auch un den Toturials steht, dass man in Freebasic null strings verwenden kann. Also irgendeine einfachere möglichkeit muss es da doch geben.

[Sebastian]

Habs gerade ausprobiert, der String bleibt zwar in seiner Länge (255) erhalten, aber alles nach CHR$(0) verschwindet dennoch.
_________________

Die gefährlichsten Familienclans | Opas Leistung muss sich wieder lohnen - für 6 bis 10 Generationen!

[E-P-S]

Tja, dann bleibt wohl nur Sebastians erste Idee zu verwenden - was anderes fällt mir nicht ein.
_________________
Man kann sich öfter als zweimal im Leben halb tot lachen.

[Sebastian]

Du musst das doch nicht manuell machen, licer!

[licer]

hm naja ich probier noch ein bisschen rum wenn ich eine Lösung gefunden hab wird sie dann gepostet.

[Sebastian]

Was hältst du von einer Umwandelsub wie oben?
_________________

Die gefährlichsten Familienclans | Opas Leistung muss sich wieder lohnen - für 6 bis 10 Generationen!

[licer]

Die sub wird grad ausprobiert. Aber der Gedanke is nicht schlecht.

[Sebastian]

Die Sub oben hat kleine Bugs. Folgendes funktioniert aber:

[licer]

Die Idee is toll aber leider wird auch hier chr$(0) einfach verschluckt.