File2Code v1

[sk0r]

Bitte löschen

[Neutral General]

Hi,

Also ich finds ehrlichgesagt ein bisschen sinnlos... Aber naja.

Ansonsten ist deine Delphi Funktion zum zusammenbauen der Datei nicht gerade die performanteste ;)

Von AssignFile etc hab ich jetzt nicht so viel Ahnung. Aber ich schätze man kann es auch so machen:

Delphi-Quellcode:

procedure CreateFileByte0(const fileName: String);
var
  hFile: File;
  g: Cardinal;
begin
  AssignFile(hFile, filename);
  ReWrite(hFile, 1);
  BlockWrite(hFile, aFileByteArray0[0], SizeOf(aFileByteArray0));
  CloseFile(hFile);
end;

oder eben auch so:

Delphi-Quellcode:

procedure CreateFileByte0(const fileName: String);
var fs: TFileStream;
begin
  fs := TFileStream.Create(filename,fmOpenWrite);
  try
    fs.Write(aFileByteArray0[0], SizeOf(aFileByteArray0));
  finally  
    fs.Free;
  end;
end;

PS: Bei dieser Meldung:

Zitat:

---------------------------
Success
---------------------------
All files have been converted successfully
---------------------------
OK
---------------------------

hab ich erstmal einen riesen Schreck bekommen: "??? Was hat der mit meiner Datei gemacht? Was, wie konvertiert??!!" ;)
Kam vielleicht aber auch davon,das ich mir anfangs nicht verstanden habe wofür das Programm gut ist.

[sk0r]

Hmm, ist wohl nicht die richtige Vokabel.^^