Konwersja JPEG --> BMP !!!

0

Czy ktoś wie jak przekonwertować obrazek JPEG na BMP ? Zaznaczam JPEG na BMP . Wszędzie jest opisane BMP --> JPEG, a mi chodzi o coś odwrotnego. Thank's za wszystkie odpowiedzi [diabel]

0

loooool :-] chłe chłe chłe. A copyrect to używać nie umiesz? np JPG.Canvas.CopyRect(BMP.Canvas, Rect(0, 0, JPEG.Width, JPG.Height) czy jakoś tak, bo mogło mi sie coś popiprzyc że smiechu, wiecej ci powie help delphi

0

oks. thank's sprawdzę jak będę miał okazję. Wyjaśniam grafiką w delphi się nie zajmowałem a to tak z przymusu. co do copyrect to zawsze miałem opory przed tym , ale i tak wielkie dizęki.

0
uses Jpeg;
procedure TForm1.Button1Click(Sender: TObject);
var
  jpg:TJpegImage;
  bmp:TBitmap;
begin
   jpg:=TJpegImage.Create;
   bmp:=TBitmap.Create;
   jpg.LoadFromFile('c:\test.jpg');
   bmp.Assign(jpg);
   bmp.SaveToFile('c:\test.bmp');
   bmp.Free;
   jpg.Free;
end;
0

a jak to zrobić w Lazarusie?
bo to jest o tyle fajny programik że nawet nie trzeba dodawać jpeg do uses
za to bitmapy to jakaś czarna magia
nie ma nawet polecenia Create
nic nie ma...

1 użytkowników online, w tym zalogowanych: 0, gości: 1