IncludeBinary() für Webgadget
Verfasst: 01.02.2007 12:40
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 :
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.
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)- Dateiname.s(1) = Logo.gif"
mit der Meldung
- Illegal Instruction (executing binary data?)
ab.
Ich kann mit der Meldung nichts anfangen.
