TBitmap / TImage als TGA speichern macht Probleme

[k--]

Hallo werte DP-Community.


Wie der Titel des Threads bereits ankündigt habe ich Probleme den Inhalt eines TImage (wahlweise auch eines TBitmap) Ordnungsgemäß als Targa-Datei zu speichern. Habe bereits verschiedene Lösungsansätze ausprobiert:


1. GraphicEx Lib: Datei wird gespeichert, scheint aber komprimiert zu werden, was ich (in jedem Fall) vermeiden muss.

2. Graph64: Überhauptkeine Funktionalität — Verweigert den Programmstart mit einer Unmenge an Compilerfehlern.

3. Davie Reed's Targa Unit: Bisher am erfolgversprechendsten, unkomprimierte Speicherung etc. wie gewünscht (256px * 256px = 192kB)...
Problem: Ergebnisse sehen ähnlich diesen aus:
http://img155.imageshack.us/img155/790/crsu6.jpg | http://img155.imageshack.us/img155/5015/crqr4.jpg

4. turboPASCAL's Methoden (DP-Thread): 'Lange Version' gibt jedes Mal einen Fehler in der Zeile

Delphi-Quellcode:

Color32ToRGBA(P^ , c.r, c.g, c.b, c.a);

aus. 'Kurze Version' erzielt nur eine Zugriffsverletzung. (Habe darauf geachtet, bei diesen Prozeduren nur TBitmap32 zu verwenden)


Nun zur weiteren Definition: Geöffnet wird ein Bild verschiedenster Formate (*.bmp; *.jpg; *.png; *.tga), was durch GraphicEx möglich gemacht wird. Anschließend soll ein Teil des Bildes (256px * 256px - Textur) als TGA, wie oben beschrieben, gespeichert werden. Realisiert habe ich das bisher über TImage-Komponenten und der Prozedur CopyRect().


Hoffe, jemand kann mir bei diesem Problem helfen. Bestensfalls unter Nutzung von Davie Reed's Targa Unit.



MfG.

[Dani]

Hi :hi:

GraphicEx:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Targa: TTargaGraphic;
  FormImg: TBitmap;
  FS: TFileStream;
begin
  FS := TFileStream.Create('C:\targa.tga', fmCreate or fmShareDenyWrite);
  Targa := TTargaGraphic.Create;
  FormImg := GetFormImage;
  try
    Targa.Assign(FormImg);
    Targa.SaveToStream(FS, false);
  finally
    FS.Free;
    FormImg.Free;
    Targa.Free;
  end;
end;

TTargaGrahpic.SaveToStream() hat nen Parameter "Compressed"

[shmia]

Die GraphicEx Lib dürfte wohl die beste und intelligenteste Implementierung sein.
Davie Reed's Targa Unit ist z.B. keine richtige Erweiterung, sondern bietet nur eine Load- und Save-Funktion an.
Dazu muss man wissen, dass die VCL eine Art Plugin-System für neu Grafikformate anbietet.

Um mit GraphicEx Lib unkomprimiert zu speichern, muss man schreiben:

Delphi-Quellcode:

 (bitmap as TGraphicExGraphic).ImageProperties.Compression := ctNone;    // no compression at all

[k--]

Danke ersteinmal für die Hilfe. Problem ist, dass die TGA's vom Zielprogramm aus irgendeinem Grund nicht richtig verarbeitet werden können (erscheinen kurz, und verschwinden wieder). Das Problem hatte ich bei den Fehlerhaften von Davie Reed bspw. nicht. Auffällig ist, dass die 256*256-TGA's jetzt 256kB groß sind.

Bietet GraphicEx eventuell noch irgendwelche anderen Schalter wie Beispielsweise Farbtiefe oder Ähnliches?


MfG

[turboPASCAL]

Du müsstest schon ein wenig mehr Infos und ggf. Quelltext herausrücken damit
wir dir besser helfen können.