Das deutsche QBasic- und FreeBASIC-Forum

[tom_dehn]

FBC64Bit / File Truncating crasht

Hallo,

ich habe vergeblich nach einer Standard-Funktion gesucht, die eine Datei verkürzen kann. Auf Englisch sagt man dazu "truncate". Und zwar _auch_ unter FBC /64, Win64 7..10. Alles probiert, was bei x32 geht, nix hat geklappt.

Auch in der fbext-LIB habe ich nichts gefunden.
Nach ca. 3 Stunden Stöbern in den FreeBASIC Seiten in USA und auch auf diesen Seiten hier gebe ich auf.

Das Einzige, was vielleicht einschlägig wäre:

declare function _chsize (byval as long, byval as clong) as long

(aus der "io.bi" zur C-Runtime Library, 64er Version)
_Vielleicht_ einschlägig. Das "ch" könnte von "Ch"ange kommen.

Ach ja, die Demo (zu dem von mir verdächtigten) "Fileattr" unter:

mk:@MSITStore:C:\prg\fbc\Help\FB.chm::/KeyPgFileattr.html

crasht unter FBC64 genauso hartnäckig wie die zu "FileTruncate" von "coderJeff sep/2006", betitelt als "Example of how to call a low-level crt io routine"

Wie schon erwähnt, vermute ich als Missetäter das Casting:

f = Cast( FILE Ptr, FileAttr( 1, fbFileAttrHandle ))

fbFileAttrHandle ist AFAIK eine Konstante = 2, und die function FileAttr gibt ein Long zurück. Wenn ich das auf einen Pointer64 caste, scheint der Ärger vorprogrammiert.

Wie schon angedeutet, die beiden genannten Demos laufen ohne erkennbare Fehler unter FBC32. Der Fehler dürfte also wieder mal irgendwo in der Kette FBC->"C"->Assembler zu suchen sein. Und, wenn ich weiter vermuten darf, höchstwahrscheinlich in der Umsetzung der Header-Dateien von CRT auf BASIC.



Das erste long (siehe oben) dürfte irgendwie ein Handle sei, das 2. folgerichtig die gewünschte Länge. Wobei Long allgemein als 32Bit definiert wird. Das wäre dann vielleicht ein internes Win32 handle, aber kein Pointer. Jedenfalls nicht auf 64 Bit. Der Beriffswirrwar ist gerade bei Pointern so umfassend, daß man eine perfekte Satire draus mache könnte.

OK, weiter im Text.

mk:@MSITStore:C:\prg\fbc\Help\FB.chm::/ProPgCruntime.html#FILES
hingegen und wiederum sagt:

fopen(filename as zstring ptr, access_mode as zstring ptr) as FILE ptr

Unter FBC64 jedoch sollte ein "FILE ptr" 64bittig sein(registerbreitig, so zu sagen) und mit voller Breite auf eine FILE Struktur zeigen, aus der wiederum das betreffende OS das interne handle mit seinen wie oben 32Bit auslesen könnte. Reine Spekulation.

Also nehme ich mal an, daß ich den Rückgabewert von fopen() nicht an _chsize() verfüttern kann. Jedenfalls wie es aussieht nicht unter Windows.
Kurz und gut: Ich suche nach einer Funktion, die mir erlaubt, unter FreeBASIC/64 eine Datei in ihrer Länge zu kürzen. Und zwar FreeBASIC allgemein, nicht nur Windows API. Mit der gleichen Syntax für alle.
Etwa:

Seek (ThisFile,SizeofFile(ThisFile) - xx)
Truncate (ThisFile)
Close (ThisFile)

oder noch simpler:
ReSize(ThisFILE,-xx)
(macht automatisch seek & flush & close & reopen & verify new length)


Danke jetzt schon.

Tom

[nemored]

Du könntest die Datei zum Lesen öffnen, den Inhalt (komplett oder so viele Bytes, wie du brauchst) in den Speicher lesen und die Datei schließen. Dann die Datei erneut zum Schreiben öffnen und so viele Bytes vom Speicher reinschreiben, wie du brauchst. Vielleicht gibt es elegantere Lösungen, aber so funktioniert es jedenfalls.
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1.

[tom_dehn]

nemored meinte...

[nemored]

Ich dachte, du wolltest BASIC, so richtig die Grundlagen und so.


edit bzw. Nachtrag: Du schreibst, FILEATTR gibt ein LONG zurück; in der file.bi steht allerdings

[St_W]

Es gibt mehrere Wege mit Dateien umzugehen, z.B.:
- fopen, fclose, ... aus der CRT
- open, close, ... aus der POSIX API
- _open, _close, ... aus der MSVCRT
- CreateFile, CloseHandle, ... aus der Win32 API
- ...
Siehe z.B. http://stackoverflow.com/questions/19564797/difference-between-fclose-and-Close

Grundsätzlich verwalten diese APIs Dateien in unterschiedlicher Art und Weise, weswegen man sie auch nicht untereinander mischen darf (z.B. öffnen mit fopen, aber Schließen mit _close funktioniert NICHT).

Hier ein Beispiel mit fopen, _open und Open:

[tom_dehn]

St_W schrieb:

[tom_dehn]

Hi Nemored,

hast ja Recht.
>> Vielleicht könntest du immer einen Link zu dem jeweiligen Quelltext angeben, auf den du dich beziehst <<

1. Ich werds mir angewöhnen. Oder zumindest versuchen. Aber St_W hat ja schon den auch von mir vermuteten Missetäter ausfindig gemacht. Und da scheint`s genau um die Frage 8 Byte oder 4 Byte zu gehen.
2. Das (wieder mal: vermutlich so alte...) 2006er Demo

>>"tippe ich einfach mal darauf, dass der neun Jahre alte Code inzwischen nicht mehr so problemlos funktioniert".<<

Merkwürdigerweise mit FBC/32 ohne, wie erwähnt, erkennbare Fehler.

Tom

[St_W]

Hier gibts Code in einer Vielzahl an Programmiersprachen; in einigen funktionierts auch nur mittels neu erstellen:
http://rosettacode.org/wiki/Truncate_a_file
Unter Linux scheints entsprechend eine Funktion "ftruncate" zu geben. (siehe "C" Beispiel auf der verlinkten Seite).

[tom_dehn]

Hartnäckigkeit zahlt sich aus

Die Sache ist dann so weit erledigt; der Code compiliert läuft unverändert unter und als win32/64/Win10

LINUX sollte man mal probieren.
Weitere Infos als comment im code.
Danke für Eure Hilfe!

Tom

[St_W]

[tom_dehn]

St_W schrieb: