Autor Beitrag
Zimond
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 49



BeitragVerfasst: Fr 26.03.04 03:10 
Moin.
Ich versuche eine JPEG datei in eine Bitmap Datei umzuwandeln dazu verwende ich:

ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
VAR
Bild1 : TImage;
Bild2 : TBitmap;


BEGIN

Bild1 := TImage.create(nil);
Bild2 := TBitmap.create();

Bild1.picture.loadfromfile('test1.jpg');
Bild2 := Bild1.picture.bitmap;

Bild2.savetofile('test2.bmp');

END


Anfür sich ja eine simple Sache... aber die resultierende Bitmapdatei ist immer leer (0 Byte)
Horst
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 120



BeitragVerfasst: Fr 26.03.04 03:55 
Hallo,

die Lösung sieht wie folgt aus:

ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
procedure TFormMain.TestClick(Sender: TObject);
var jp : TJpegImage;
    bm : TBitmap;
    cDatei : string;
begin
    cDatei:='bild.jpg';
    jp :=TJpegImage.Create;
    try
      jp.LoadFromFile(cDatei);
      jp.DIBNeeded;
      bm := TBitmap.Create;
      try
         bm.Assign(jp);
         bm.Savetofile('bild.bmp');
      finally
        bm.Free;
      end;
    finally
      jp.Free;
    end;

end;


So funzt es :dance:

Gruß

Horst
:wave:
Zimond Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 49



BeitragVerfasst: Fr 26.03.04 12:49 
Aaaah!! DIBneeded! Klar.

Damit wird das JPEG Image überhaupt erst angewiesen die Bitmap Daten zu produzieren...

THX :)