oversætte bmp til jpg ?

uses
  JPEG;

procedure TForm2.Button3Click(Sender: TObject);
var
  JPEgImage : TJpegImage;
begin
  if not saveDialog1.Execute then
    exit;

  JPEgImage := TJpegImage.Create;
  JPEgImage.Assign(Image1.Picture.Bitmap);
  JPEgImage.SaveToFile(SaveDialog1.FileName);
end;

Også skal du lige tilpasse navne til dit projekt :-)

Jens B

Her findes et eks. på hvordan du kommer begge veje

BMP -> JPG og JPG -> BMP

http://www.efg2.com/Lab/

Hej Boris

Det virker, men hvad gør jeg hvis det er af typen ico, wme, eller wmf.

og hvad nu hvis jeg istedet for at lave om til jpeg heller vil gemme som wmf ?

Så kan du lave en MataFile og skrive på den og gemme den, kig i hjælpen under MetaFileCanvas.

der er dog et problem....hvis man henter et jpeg billede ind og gemmer det på ovenstående måde bliver filen på 0 kB ???

Martin> kun point til kode som virker, den som løser problemet får pointene

Jeg har ikke lige tid til at lave dit program for dig, derfor fik du nogle hint til hvardan du gør :)

/Martin

point flyttes til

http://www.eksperten.dk/spm/119954