Inkludierte Datei wie speichern?

[AND51]

Hallo!

Wie kann ich eine Datei, die ich mit IncludeBinary in die EXE gepackt habe, in eine externe Datei speichern?
MfG, AND51

[roherter]

so in etwa

Code: Alles auswählen

If CreateFile(#files,hr$)
 WriteData(?hr,?seite - ?hr) 
    CloseFile(#files) 

wobei die includes bei mir diese sind hoffe du kannst was mit anfangen:

Code: Alles auswählen

hr:
IncludeBinary "hr.jpg"
seite:
IncludeBinary "seite.jpg"
Ende:

Übrigens dein www link geht nicht!

[Macros]

Das hatte ich auch probiert,
aber dann kommt:
Invalid Memory Access
und er verweist mich auf
die erste Sprungmarke.

[ts-soft]

Das hatte ich auch probiert,
aber dann kommt:
Invalid Memory Access
und er verweist mich auf
die erste Sprungmarke.

Dann haste irgendwas verkehrt gemacht, weil es funzt so. Dann schau Dir Deinen Code nochmal genau an, ich kanns ja nicht, weil ich sehe hier nichts

[roherter]

Das es geht weiß ich habs im Gallerymaker ja benutzt

[Macros]

Es werde Licht:

Code: Alles auswählen

hr:
IncludeBinary "gr.ico"
Ende: 

If CreateFile(1,hr$)
 WriteData(?hr,?Ende - ?hr)
    CloseFile(1)
EndIf

[roherter]

lol,sag ich doch!

[Macros]

Nein, DAS verursacht den Error

[AND51]

mein www link? oh, hm... ich mache meine hp zuerzeit nicht weiter deshalb vllt.

Inkludierte Dateien werden so eingebunden:

Code: Alles auswählen

DataSection
	icon: IncludeBinary "C:\Dokumente und Einstellungen\André\Desktop\PureBasic\Multi Clipboard\ico.ico"
	hilfe: IncludeBinary "C:\Dokumente und Einstellungen\André\Desktop\PureBasic\Multi Clipboard\hilfe_de.htm"
	help: IncludeBinary "C:\Dokumente und Einstellungen\André\Desktop\PureBasic\Multi Clipboard\help_en.htm"
EndDataSection
#files=0
If CreateFile(#files,"C:\mydatei.htm") 
 WriteData(?hilfe, MemoryStringLength(?hilfe)-1) 
CloseFile(#files) 
EndIf

Übrigens, dieser Code funktioniert bei mir einwandfrei. geht das auch mit Binärdaten, z. B. JPGs, BMPs, etc.? Und die Dateigröße, ist die auch egal?

Nochmals danke!

[ts-soft]

Nein, DAS verursacht den Error

dann mach es richtig

DataSection
  hr:
  IncludeBinary "gr.ico"
  Ende:
EndDataSection

If CreateFile (1,hr$)
  WriteData (?hr,?Ende - ?hr)
     CloseFile (1)
EndIf