WriteData Parameter

[Raphi]

Ich hab ein kleines Problem!

Ich möchte die Datei SysInternalsBluescreen.scr in ein File schreiben:

Und hab das so versucht:

Code: Alles auswählen

DataSection
IncludeBinary "SysInternalsBluescreen.scr"
EndDataSection
 
 

  *blub = AllocateMemory(700000)
  size = FileSize("SysInternalsBluescreen.scr")
  CreateFile(0, "SysInternalsBluescreenhi.scr")
    WriteData(0, *blub, size)
    CloseFile(0)

Das hat aber irgendwie nicht geklappt?

[KeauHou]

Du kannst nicht über den Namen auf die Datei zugreifen, teste mal das hier

Code: Alles auswählen

DataSection
blueScreenStart:
IncludeBinary "SysInternalsBluescreen.scr"
blueScreenEnd:
EndDataSection
 
 

If  CreateFile(0, "SysInternalsBluescreenhi.scr")
  WriteData(0, ?blueScreenStart, ?blueScreenEnd - ?blueScreenStart)
  CloseFile(0)
EndIf

[Kaeru Gaman]

@KaeuHou
du musst aber *blub und size weglassen.
FileSize() funktioniert nicht, wenn das File nicht da ist,
und die 70000 bytes Speicher werden nicht gebraucht.
dafür musst du wieder DataSection drumrum setzen, zusätzlich zu den Labels.

@Raphi
und trotzdem, das ganze Vorhaben ist Humbug.
setz dich lieber hin und schreib deinen eigenen BlueScreen.

[KeauHou]

Oh mann ich hab nur Copy & Paste und die 3 Zeilen geändert ^.^

EDIT: Habs geändert

[Raphi]

Vielen Dank,

Es funzt!