Moin Forum,

Ich habe ein paar Grafiken, die ich mit ausliefern muss, aber möchte verhindern, dass jemand diese Grafiken einfach kopieren und weiterverwenden kann.
Ich habe etwas mit dem schönen Namen "MyArchiv" gefunden, was eigentlich ganz gut passen könnte.
Siehe www.delphi-treff.de/...myarchiv/einleitung/
Ich kopiere alle meine Grafiken in ein solches Archiv, ich lese eine gewünschte Datei aus diesem Archiv und habe sie in einer Variable vom Typ FILE gespeichert.

Delphi-Quelltext    ausgeblendet	markieren
1: 2: 3: 4: 5: 6: 7: 8: type TArchivTyp = record ArchivFile :File; Archivname :String; FileStart :TStringList; FileNames :TStringList; RueckgabeDatei :File; end; var Archiv :TArchiv;

In Rueckgabedatei habe ich jetzt meine Datei.
Als nächstes möchte ich sie in Funktion wie z.B. TImage.Picture.LoadFromFile verwenden.
Aber da hakts irgendwie...

Delphi-Quelltext    ausgeblendet	markieren
1: Image1.Picture.LoadFromFile(Archiv.Ruekgabedatei)

Das geht ja nun einmal nicht.
Ich hoffe Ihr könnt mir helfen?

Gruß Oliver

Hast du Anleitung komplett gelesen?
Um auf die Datei zugreifen zu können, musst du diese (temporär) erzeugen und dann öffnen/laden.
Hier zu lesen

Du kannst natürlich eine Routine, bzw. besser eine Klasse dazu schreiben, die das für dich macht.

Aber das würde ja bedeuten: Ich lese die Datei ein(Aus meinem Archiv), dann schreibe ich sie in eine temporäre Datei, und dann lese sie dann wieder ein. Also brauche ich dann ungefähr die dreifache Zeit?
Hintergrund: Es sind 3D-Dateien, die ich mit GL-Scene darstelle. Insgesamt ~200MB

Gibt es denn vielleicht noch eine andere elegante Möglichkeit?

Du könntest die Rückgabedatei z.B. ein ein Byte-Array einlesen und damit weiter arbeiten, du könntest es auch mit einem TMemoryStream versuchen.

TMemoryStream wäre jetzt auch mein Vorschlag gewesen.

TMemoryStream?
Könntet Ihr vielleicht mal einen kleinen Ansatz posten?

So vielleicht ungefähr?

Delphi-Quelltext    ausgeblendet	markieren
1: 2: 3: 4: 5: 6: 7: var fs : TStream; begin fs := TMemoryStream.Create; fs.Write(MyArchiv.RueckgabeDatei,SizeOf(MyArchiv.RueckgabeDatei)); GLFreeForm1.LoadFromStream(Dir + 'temp.stl',fs); fs.Free; end;

Also, ich habe jetzt den Weg mit der temporären Datei gewählt. Das funktioniert ganz gut, nicht so langsam wie ich gedacht habe. Ehrlich gesagt kommt es mir genau so schnell vor wie vorher, als ich die Dateien direkt eingelesen habe


Danke an alle, die sich den Kopf zerbrochen haben

Gruß Oliver