PureBoard

H.Brill hat geschrieben: 26.12.2024 09:19

ChrigiGee hat geschrieben: 26.12.2024 07:57 Das mit dem Speicherpuffer habe ich so annähernd begriffen.
Die Logik hatte ich noch nicht gesehen, dass er nicht direkt Relevanz hat,
für das Erstellen des pak Files resp. das entpacken. Musste ich wohl wirklich viel Zeit
aufwenden, bis ich es erkannte. Puffer als Konstante....

Betrachte mal so einen Speicherpuffer wie eine Universal - Variable, wo man praktisch alles
(Zahlen, Strings, sonst.Bytes) reinschreiben kann. Es ist halt ein Stück lineares RAM. Anders,
als bei Stringvariablen, die durch Anhängen (+) erweitert werden kann, muß so eine Speichervariable
ReAllociert werden, da man sonst über die Speichergrenze hinweg schreiben würde, was wieder
unvorhergesehene Reaktionen seitens des Betriebssystems hervorrufen kann.

Was die Herangehensweise betrifft, machst du das ja richtig. Ich selber schaue oft in die Hilfe,
probiere die kleinen Beispiele darin aus und integriere es anschließend in meinen eigenen
Quellcode. Nur Mut, kaputtmachen kannst du da nichts. Höchstens mal eine Datendatei, von
der man aber eine Kopie machen und damit arbeiten sollte.

If OpenFile(0,ReadMeFile$)
If ReadFile(0,ReadMeFile$,#PB_File_SharedRead )
length = Lof(0)

  If OpenPack(0, ReadMeFile_2$, #PB_PackerPlugin_Zip) 
    
    ; Listet alle Einträge auf
    If ExaminePack(0)
      While NextPackEntry(0)
      
FileLength = PackEntrySize(0, #PB_Packer_UncompressedSize)
    
        Debug "Name: " + PackEntryName(0) + ", Size: " + PackEntrySize(#PB_Any)
        Debug FileLength

UncompressMemory(*buff1, FileLength, *buff2, FileLength, #PB_PackerPlugin_Zip)

*buff1 = AllocateMemory(FileLength*3)
*buff2 = AllocateMemory(FileLength*6)

UnPackErg= Len( UncompressMemory(*buff1, FileLength, *buff2, FileLength, #PB_PackerPlugin_Zip))
UnPackErg= Lof( UncompressMemory(*buff1, FileLength, *buff2, FileLength, #PB_PackerPlugin_Zip))
UnPackErg= StringByteLength( UncompressMemory(*buff1, FileLength, *buff2, FileLength, #PB_PackerPlugin_Zip))

UncompressMemory(*buff1, FileLength, *buff2, FileLength, #PB_PackerPlugin_Zip)

UnPackErg= StringByteLength( UncompressMemory(*buff1, FileLength, *buff2, FileLength, #PB_PackerPlugin_Zip))

H.Brill hat geschrieben: 26.12.2024 14:10 Wenn du damit meine Bezeichnung Universalvariable meinst.
Ich meine ja nur, bei Stringvariablen (.s) kommt Text rein und in numerische Variablen (.i, .l, .q)
kommen numerische Werte rein. In so einen Speicherbereich geht alles rein. Deshalb gibt es die verschiedenen
Poke- und Peek Varianten. Auch andere Zeichen, die kein Buchstabe oder Zahl sind, funktionieren.
Bei einer Memoryvariablen kannst du auch mischen, solange du die Wertigkeit vonz.b. numerischen
Variablen(4 Bytes) beachtest. Spiel (Pb_Ascii mal weglassen) doch einfach etwas damit :

Code: Alles auswählen

zahl.l = 1250
zeile.s = "Betrag : "
length.l = Len(zeile) + 1
*buffer = AllocateMemory(50)
PokeS(*buffer, zeile, length, #PB_Ascii)
PokeL(*buffer + length, zahl)
Debug MemorySize(*buffer)
Debug PeekS(*buffer, length, #PB_Ascii)
Debug PeekL(*buffer + length)
FreeMemory(*buffer)

H.Brill hat geschrieben: 27.12.2024 08:55 PackEntrySize() gibt ja auch nur die Größe des nächsten gepackten Blocks zurück.
Das ist dann interssant, wenn du mehrere Blöcke (Dateien) ent/packen möchtest
z.b. mit einer Schleife, so etwa :

Code: Alles auswählen

*buffer = AllocateMemory(100)
If ExaminePack(0)
      While NextPackEntry(0)
        Debug "Name: " + PackEntryName(0) + ", Size: " + PackEntrySize(0)
        *buffer = ReAllocateMemory(*buffer, PackEntrySize(0))
        CatchPack(0, *buffer, MemorySize(*buffer))
        ; jetzt hast du den nächsten Speicherblock ausgelesen
      Wend
    EndIf

Bei nur einem Block bzw. einer Datei nimm besser FileSize(datei$), das dir die tatsächliche Größe
zurück gibt. datei$ ist die Datei, die du bei OpenPack() angibst. Es gibt da 2 Funktionen, die dir
die Größe einer Datei ermitteln. LOF() bei einer bereits geöffneten (OpenFile, Readfile...) und
FileSize() bei einer noch geschlossenen.

Was #PB_Any betrifft : Verwende entweder die Konstanten von z.b. Enumeration bzw. von dir vergebene
Nummern oder halt #PB_Any, aber dann auch für die folgenden abhängigen Funktionen :

Code: Alles auswählen

handle.l OpenPack(#PB_Any, ReadMeFile_2$, #PB_PackerPlugin_Zip)
If ExaminePack(handle1)
; oder hier :
handle2.l = OpenFile(#PB_Any, ReadMeFile$)
If ReadFile(handle2, ...)
  CloseFile(handle2)
EndIf

Also NICHT mischen !!!!!!!!!!!!!!!!!!!!!!!!!!!!

Der Autor Fred wollte das halt nur vereinfachen, indem er Konstanten erlaubt.
PB-intern wird das auch wieder auf Handles umgebogen, wie es halt für Windows
üblich bzw. erforderlich ist.

Hoffentlich habe ich dir nochmals etwas Licht gebracht.