Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Binäre Resource einbinden und als Datei speichern (https://www.delphipraxis.net/90511-binaere-resource-einbinden-und-als-datei-speichern.html)

ThE_-_BliZZarD 18. Apr 2007 21:05


Binäre Resource einbinden und als Datei speichern
 
Hallo liebe Gemeinde,

auch nachdem ich Hilfe/Tutorials/Code-Library gewälst habe, bin ich mit meinem Problem leider noch nicht weiter :-(

Ich will eine binärdatei (.ttf [TrueType-Font]) als Resource in mein Programm packen, und dann zur Laufzeit als eine Datei "auspacken" und in den Windows/Fonts Ordern kopieren.

Habe mich jetzt schon eine Weile mit Resources beschäftigt, verstehe aber nicht was ich mit Binärdateien mache, da es ja kein Text-dokument ist (RC-DATA)...

Hoffe ich stehe nicht wieder mit dem 5Tonner aufm Schlauch ;-) :-D

Luckie 18. Apr 2007 22:00

Re: Binäre Resource einbinden und als Datei speichern
 
Nimm als Ressourcentyp RC_DATA ud und zum Auspacken einen ResourcenStream.

ThE_-_BliZZarD 19. Apr 2007 13:12

Re: Binäre Resource einbinden und als Datei speichern
 
Hey cool ;-)

Soweit geht es jetzt, aber nun will ich die Datei benutzen bzw. als eine Datei speichern.

In der Code-Library hab ich folgende Funktion gefunden:
Delphi-Quellcode:
function GetStringFromResource(Name: String): String;
begin
  with TResourceStream.Create(HInstance, Name, RT_RCDATA) do
  try
    SetLength(Result, Size);
    Read(Result[1], Size);
  finally
    Free;
  end;
end;
Meine Fragen:

Ich bekomme damit einen String zurück. Funktioniert das mit meiner Binärdatei (ich meine da sind ja nicht-darstellbare Zeichen drinne) und wie kann ich es "wie gewünscht" bekommen?

Wie gibt diese Funktion eigentlich was zurück?


Vielen Dank im Vorraus
BliZZarD


Alle Zeitangaben in WEZ +1. Es ist jetzt 20:56 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