TGA Unit

[RobertP]

Hallo,
ich suche eine Unit mit der man Bitmaps in Targas umwandeln kann. Die hier http://www.efg2.com/Lab/Library/Delp...Conversion.htm aus der DP geht leider nicht...

[SirThornberry]

was bedeutet "geht nicht"? Kommt eine Fehlermeldung? wenn ja - welche?
Ich hab vor kurzem auch mal TGA genutzt. Dazu hab ich einfach eine Klasse von TBitmap abgeleitet und dann SaveToStream und LoadFromStream überschrieben. Die Infos zum Aufbau einer TGA-Datei hab ich aus Wikipedia gehabt.

[RobertP]

Nee keine Fehlermeldung aber wenn ich speicher hat die Datei keinen Inhalt.

[turboPASCAL]

Dann zeig mal deinen Quelltext und man kann gucken warum. ;)

[RobertP]

Naja da gibts wenig zu zeigen ^^

Delphi-Quellcode:

try
        bmp := TBitmap.Create;

        bmp.Assign(sourceimg);
        SaveToFileX(outpath, bmp, 2);
      finally
        bmp.Free;
      end;

In der targa.pas musste ich am Anfang noch was ändern, da sonst der Compiler gestreikt hat (Index1 und 2 werden im Code Werte zugewiesen):

Delphi-Quellcode:

const
  Index1:Word=0;
  Index2:Word=0;
  Const4096=8*1024;

zu

Delphi-Quellcode:

var
  Index1:Word=0;
  Index2:Word=0;
const
  Const4096=8*1024;

Das TGA wird auch gespeichert und ohne Fehlermeldung vom Grafikprogramm geöffnet, aber ist halt einfach nur schwarz.

[uligerhardt]

Hast du schon mal Mike Lischkes GraphicEx probiert? Die kann auch tga.

HTH,
Uli.

[Edit: URL korrigiert]

[turboPASCAL]

Zitat:

Zitat von RobertP

Naja da gibts wenig zu zeigen ^^

Delphi-Quellcode:

try
  bmp := TBitmap.Create;

  bmp.Assign(sourceimg);
  SaveToFileX(outpath, bmp, 2);
finally
  bmp.Free;
end;

[...]

Ja etwas zu wenig. ;) Was für ein Bild(typ) ist sourceimg ? Wenn es kein Bitmap ist wird es nicht funktionieren.

Zitat:

Zitat von uligerhardt

Hast du schon mal Mike Lischkes GraphicEx probiert? Die kann auch tga.

HTH,
Uli.

Aber nicht speichern oder ?

[uligerhardt]

Zitat:

Zitat von turboPASCAL

Aber nicht speichern oder ?

Ups. Das wäre denkbar. :oops: :)

[turboPASCAL]

Ja doch sie kann TGA's speichern. Habs gerade noch mal nachgeschaut im QT. :oops:

@uligerhardt, dein Link klappt nicht.
Der hier aber: http://www.soft-gems.net/Graphics.php

[RobertP]

sourceimg ist ein TBitmap32. Die Umwandlung von TBitmap32 in ein normales TBitmap funktioniert. (überprüft)

GraphicEx hab ich auch schon versucht, die kann zwar TGAs laden und speichern, aber kein Bitmap in ein TGA umwandeln.