IncludeBinary() für Webgadget

[uweb]

Ich habe erfolglos versucht in einem Programm, in dem ich später das Webgadget für verschiedene Dialoge verwenden möchte, die HTML-Seiten und Grafiken per IncludeBinary() einzubinden. Um den Fehler besser zu lokalisieren habe ich noch einen kleinen Dummy geschrieben :

Code: Alles auswählen

Global Dim Dateiadresse(1)
Dateiadresse(0) =  ?filestart0
Dateiadresse(1) =  ?filestart1

Global Dim Dateigroesse(1)
Dateigroesse(0) = ?fileend0 - ?filestart0
Dateigroesse(1) = ?fileend1 - ?filestart1

Global Dim Dateiname.s(1)
Dateiname.s(0) = "Copyright.html"
Dateiname.s(1) = "Logo.gif"

; You can include anything you like into an exe, just use: 
filestart0: 
  IncludeBinary "Copyright.html"
fileend0: 

filestart1: 
  IncludeBinary "Logo.gif"
fileend1: 

Procedure ExpandBinaryfile(Datei)
  If CreateFile(1, Dateiname.s(Datei))
    WriteData(1,Dateiadresse(Datei),Dateigroesse(Datei))
    CloseFile(1)
  EndIf 
EndProcedure 

ExpandBinaryfile(0) 
ExpandBinaryfile(1)

Das Progrmm bricht bei
- Dateiname.s(1) = Logo.gif"
mit der Meldung
- Illegal Instruction (executing binary data?)
ab.

Ich kann mit der Meldung nichts anfangen.

[ts-soft]

DataSection ?

[uweb]

Oh, mein Gott !
Wie peinlich !

Na, wenigstens habe ich die Frage im Anfängerforum gestellt.

DANKE !!!

[ts-soft]

PS: Mit UDRes sparste memory und das wiederherstellen ist auch einfacher
http://www.purebasic.fr/english/viewtop ... ight=udres