Ĺadny brzuch
Mam pytanko, jak zmienić aby program nie zapisywał pliku w formacie BMP, tylko JPG (posiadam delphi 6)
www.serial.crack.pl Strona poświęcona skinom do winamp'a
Najprostszym sposobem wykonania tego zadania jest wykorzystanie modułu JPEG dostarczanego począwszy od wersji 3.x pakietu Delphi. Wystarczy bowiem utworzyć obiekt typu TJEPGImage, przyporządkować mu obraz przechowywany w dowolnym obiekcie TBitmap, by na końcu zapisać jego wartość do pliku JPG posługując się standardową funkcją SaveToFile. W tym celu po pierwsze potrzebujemy zadeklarować odpowiedni moduł: uses JPEG; a po drugie wybrać interesującą nas metodę konwersji...
Konwersja BMP na JPEG
Poniższa procedura przedstawia sposób konwersji z formatu BMP na JPEG w przypadku, gdy znamy jedynie nazwę pliku. Wtedy to musimy najpierw stworzyć obiekt typu TBitmap, do którego następnie wczytujemy nasz plik. W drugim kroku tworzymy obiekt typu TJPEGImage i próbujemy przyporządkować mu zawartość poprzednio utworzonego obiektu z bitmapą. O ile nie wystąpi żaden bład, zapisujemy plik JPG i zwalniamy oba obiekty.
var
RysunekJPEG : TJPEGImage;
RysunekBMP : TBitmap;
begin
RysunekBMP:=TBitmap.Create;
try
RysunekBMP.LoadFromFile('NazwaPliku.BMP');
RysunekJPEG:=TJPEGImage.Create;
try
RysunekJPEG.Assign(RysunekBMP);
RysunekJPEG.SaveToFile('NazwaPliku.JPEG');
finally
RysunekJPEG.Free;
finally
RysunekBMP.Free;
end;
Czasem zdarza się jednak, że bitmapę przechowujemy w postaci innego obiektu (np. TImage). Wtedy to wystarczy jedynie utworzyć nowy obiekt typu TJPEGImage, przyporządkować mu tę właściowość naszego obiektu z rysunkiem, która posiada typ TBitmap (np. TImage.Picture.Bitmap) i na koniec zapisać obiekt JPEG.
//----------------------
gg :3183960
SZUKAM BETATESTERÓW - chętnych prosze o kontakt mail/gg
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
www.serial.crack.pl Strona poświęcona skinom do winamp'a
Najprostszym sposobem wykonania tego zadania jest wykorzystanie modułu JPEG dostarczanego począwszy od wersji 3.x pakietu Delphi. Wystarczy bowiem utworzyć obiekt typu TJEPGImage, przyporządkować mu obraz przechowywany w dowolnym obiekcie TBitmap, by na końcu zapisać jego wartość do pliku JPG posługując się standardową funkcją SaveToFile. W tym celu po pierwsze potrzebujemy zadeklarować odpowiedni moduł: uses JPEG; a po drugie wybrać interesującą nas metodę konwersji...
Konwersja BMP na JPEG
Poniższa procedura przedstawia sposób konwersji z formatu BMP na JPEG w przypadku, gdy znamy jedynie nazwę pliku. Wtedy to musimy najpierw stworzyć obiekt typu TBitmap, do którego następnie wczytujemy nasz plik. W drugim kroku tworzymy obiekt typu TJPEGImage i próbujemy przyporządkować mu zawartość poprzednio utworzonego obiektu z bitmapą. O ile nie wystąpi żaden bład, zapisujemy plik JPG i zwalniamy oba obiekty.
var
RysunekJPEG : TJPEGImage;
RysunekBMP : TBitmap;
begin
RysunekBMP:=TBitmap.Create;
try
RysunekBMP.LoadFromFile('NazwaPliku.BMP');
RysunekJPEG:=TJPEGImage.Create;
try
RysunekJPEG.Assign(RysunekBMP);
RysunekJPEG.SaveToFile('NazwaPliku.JPEG');
finally
RysunekJPEG.Free;
finally
RysunekBMP.Free;
end;
Czasem zdarza się jednak, że bitmapę przechowujemy w postaci innego obiektu (np. TImage). Wtedy to wystarczy jedynie utworzyć nowy obiekt typu TJPEGImage, przyporządkować mu tę właściowość naszego obiektu z rysunkiem, która posiada typ TBitmap (np. TImage.Picture.Bitmap) i na koniec zapisać obiekt JPEG.
//----------------------
gg :3183960
SZUKAM BETATESTERÓW - chętnych prosze o kontakt mail/gg