PureBoard

Verfasst: **04.01.2006 21:14**

Hallo!

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

Verfasst: **04.01.2006 21:44**

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!

Verfasst: **04.01.2006 21:49**

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

Verfasst: **04.01.2006 21:52**

Macros hat geschrieben: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

Verfasst: **04.01.2006 21:52**

Das es geht weiß ich habs im Gallerymaker ja benutzt

Verfasst: **04.01.2006 21:53**

Es werde Licht:

Code: Alles auswählen

hr:
IncludeBinary "gr.ico"
Ende: 

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

Verfasst: **04.01.2006 21:54**

lol,sag ich doch!

Verfasst: **04.01.2006 21:55**

Nein, DAS verursacht den Error

Verfasst: **04.01.2006 21:57**

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!

Verfasst: **04.01.2006 21:58**

Macros hat geschrieben: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

PureBoard

Inkludierte Datei wie speichern?

Inkludierte Datei wie speichern?