PureBoard

Code: Alles auswählen

DataSection
  filestart:                                 ;StartLabel (Position)
  IncludeBinary "C:\WINDOWS\explorer.exe"    ;...oder irgendeine andere Datei (hab hier den
                                             ;Explorer gewählt, damit der Code, ohne umgeschrieben
                                             ;werden zu müssen, getestet werden kann)
  fileend:                                   ;EndLabel (Position) wichtig zum berechnen
                                             ;der Datenlänge (siehe unten)
EndDataSection

Procedure CatchFile(FileID,FileName$,Includesection,Length)
  ;FileID :         FileID ist die #FileID, die die Datei später erhalten wird.
  ;FileName :       Es wird die Datei mit dem Namen FileName$ erstellt
  ;IncludeSection : Als IncludeSection muss der Pointer auf das StartLabel
  ;                 des IncludeBinary angegeben werden (hier: ?filestart)
  ;Length :         Length als Datenlänge berechnet sich als Differenz von EndPointer
  ;                 und StartPointer des betroffenen IncludeBinarys.
  ;                 Handelt es sich um mehrere IncludeBinaries, kann als
  ;                 EndPointer auch das StartLabel des nächsten IncludeBinarys
  ;                 angegeben werden:
  ;
  ;                 DataSection
  ;                   file1:
  ;                   IncludeBinary "C:\WINDOWS\notepad.exe"
  ;                   file2:
  ;                   IncludeBinary "C:\WINDOWS\system32\logon.scr"
  ;                   endfiles:
  ;                 EndDataSection
  ;
  ;                 In diesem Fall wäre Length der ersten Datei gleich
  ;                 ?file2-?file1 und als IncludeSection müsste ?file1 angegeben werden.
  ;                 Die letzte Datei in einem solchen DataSection-Block muss natürlich
  ;                 ein eigenes EndLabel erhalten (hier: ?endfiles).
  If CreateFile(FileID,FileName$)
    WriteData(FileID,Includesection,Length)
    CloseFile(FileID)
  EndIf
EndProcedure

;Beispielaufruf:
CatchFile(0,GetHomeDirectory()+"\Desktop\explorer2.exe",?filestart,?fileend-?filestart)

Code: Alles auswählen

CreateFile(FileID,FileName$)

Code: Alles auswählen

If CreateFile(FileID,FileName$)
  WriteData(FileID,Includesection,Length)
  CloseFile(FileID)
EndIf 

Code: Alles auswählen

;// Beschreibung:
;//   Lädt die angegebene Datei 'FileID' von der angegebenen
;//   Speicheradresse. Wenn #PB_Any als '#Image' Parameter
;//   verwendet wird, dann wird die Nummer des neuen Image
;//   als 'Ergebnis' zurückgegeben. Sonst wir der Handle der
;//   FileID zurückgegeben. Auch auslesbar mit FileID(...).
;//   Sie können in der Datei ausschließlich nur
;//   Lese-Operationen ausführen.
;//   
;//   Dieser Befehl ist nützlich in Verbindung mit dem
;//   'IncludeBinary' PureBasic Schlüsselwort. Damit können
;//   Dateien mit in das Executable gepackt werden. Nichts-
;//   destotrotz, benutzen Sie diese Option mit Bedacht,
;//   da hiermit mehr Speicher benötigt wird, als wenn die
;//   Datei in einer externen Datei gespeichert wird (die
;//   Datei befindet sich im Speicher des Executable und
;//   auch geladen im physikalischen Speicher).
;// Parameter:
;//   FileID
;//     Die FileID ist die ID der Datei.
;//     Wenn #PB_Any als 'FileID' Parameter verwendet wird,
;//     dann wird die neue Datei-Nummer als 'Ergebnis'
;//     zurückgegeben.
;//   *Memory
;//     Die Speicheradresse, wo sich die Datei befindet.
;//   Length
;//     Die Länge der Speicheradresse.
;// Rückgabewert:
;//   Der Rückgabewert ist der Handle der FileID (auch
;//   ermittelbar mit FileID(...)) oder wenn in den
;//   'FileID'-Parameter #PB_Any geschrieben wurde die
;//   FileID.
;// Beispiel:
;//   DataSection
;//     file1:
;//     IncludeBinary "C:\WINDOWS\notepad.exe"
;//     file2:
;//     IncludeBinary "C:\WINDOWS\system32\logon.scr"
;//     endfiles:
;//   EndDataSection
;//   
;//   In diesem fall werden die Dateien so eingelanden:
;//   Datei1: CatchFile(XXX, ?file1, ?file2-?file1)
;//   Datei2: CatchFile(XXX, ?file1, ?endfiles-?file1)
Procedure,l CatchFile(FileID, *Memory, Length)
  Protected FileID, ReturnFileID, FileName$
  FileName$=GetEnvironmentVariable("TMP")+"\"+MD5Fingerprint(*Memory, Length)+".tmp")
  ReturnFileID = CreateFile(FileID, FileName$)
  If FileID = #PB_Any
    FileID = ReturnFileID
  EndIf
  If FileID
    WriteData(FileID, *Memory, Length)
    CloseFile(FileID)
  Else
    ProcedureReturn 0
  EndIf
  ReturnFileID = ReadFile(FileID, FileName$)
  ProcedureReturn ReturnFileID
EndProcedure