Конвертирование bmp в jpeg [D5, Win95/98]
VlNek © (2002-01-04 18:00:00)
Как перевести из bmp в jpeg, чтобы работало свойство
transparent в компоненте Image
Андрей Сенченко (2002-01-05 10:53:00) [1]
Перевод BMP в JPG - вот он. Взято из местного FAQ, слегка
заточено под себя.
PROGRAM bmptojpg;
USES
Windows, Graphics, JPEG;
VAR
JPGpic: TJPEGImage;
BMPpic: TBitmap;
BMPName, JPGName : string;
BEGIN
If ParamCount = 2
Then
Begin
BMPName := ParamStr(1);
JPGName := ParamStr(2);
JPGpic := TJPEGImage.Create;
BMPpic := TBitmap.Create;
Try
BMPpic.LoadFromFile(BMPName);
JPGpic.Assign(BMPpic);
JPGpic.SaveToFile(JPGName);
Finally
JPGpic.Free;
BMPpic.Free;
End { Try }
End { Then }
Else
MessageBox(0,PChar("Необходимо запускать эту
программу"+#13+"с параметрами :"+#13+"Имя файла.bmp Имя
файла.jpg"),PChar("Внимание !"),MB_OK+MB_ICONSTOP);
END.
C Tranparent не пробовал, но по-моему проблем быть не
должно
Наверх 
ЧАТ |
Орешник |
|
