Kann man ein 32Bit JPEG aus einem TBitmap erzeugen

[torte62]

Kann man ein 32Bit JPEG aus einem TBitmap erzeugen und hat jemand einen Tip für einen brauchbaren Dialog dafür mit Compresionseinstellung?
Gruß torte62

[edit=sakura] Werbung entfernt! Mfg, sakura[/edit]

[Relicted]

hi!

klar kann man :-) wenn du es selbst machen willst dann schau hier - ist sehr hilfreich:

http://de.wikipedia.org/wiki/Jpeg
ich kann dir aber auch gleich noch nen algo schreiben... muss nu erstmal kaffe trinken :-)

edit:

Delphi-Quellcode:

function TForm1.setJPGFileName(BMPFileName: string): string;
var
  i:integer;
  s:string;
begin
  s:=ExtractFileName(BMPFileName);
  for i:=1 to 3 do delete( s,Length(s),1 );
  result := s+'jpg';
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  fNameBMP, fNameJPG : string;
  pic : timage;
begin
  if OpenPictureDialog1.Execute then
  begin
    fNameBMP:=uppercase( OpenPictureDialog1.FileName );
    if ExtractFileExt( fNameBMP ) = '.BMP' then
    begin
      try
        pic := TImage.Create( nil );
        pic.Picture.LoadFromFile( fNameBMP );

        with TJPEGImage.Create do
        begin
          try
            Performance := jpBestQuality;
            CompressionQuality := TrackBar1.Position;
            assign( pic.Picture.Graphic );
            fNameJPG := setJPGFileName( fNameBMP );
            SaveToFile( fNameJPG );
          finally
            Free;
          end;
        end;
      finally
        pic.free;
      end;
    end;
  end;
end;

was du brauchst ist:
eine form, einen button, einen openpicturedialog und eine trackbar mit range 1..100

ich habs mal ned kommentiert... sollte selbsterklärend sein

edit2: sorry vergessen das pic wieder freizugeben... nu sollte es klappen :-)

gruß
reli

[torte62]

das passt,
Danke auch.
torte