Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Software-Projekte der Mitglieder (https://www.delphipraxis.net/26-software-projekte-der-mitglieder/)
-   -   File2Code v1 (https://www.delphipraxis.net/118717-file2code-v1.html)

sk0r 13. Aug 2008 14:17


File2Code v1
 
Bitte löschen

Neutral General 13. Aug 2008 14:57

Re: File2Code v1
 
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 13. Aug 2008 16:24

Re: File2Code v1
 
Hmm, ist wohl nicht die richtige Vokabel.^^


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:04 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz