Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.21;
Скачать: [xml.tar.bz2];




Вниз

Конвертирование bmp в jpeg 


VlNek   (2002-01-04 18:00) [0]

Как перевести из bmp в jpeg, чтобы работало свойство transparent в компоненте Image



Андрей Сенченко   (2002-01-05 10:53) [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 не пробовал, но по-моему проблем быть не должно




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.21;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.014 c
1-66279           Antoniz               2002-01-04 15:12  2002.01.21  
Как через TopenDialog выбрать папку


14-66359          fliz                  2001-11-23 17:14  2002.01.21  
Пародия на


1-66234           Vovan V               2001-12-31 01:38  2002.01.21  
Вывод от программы. СРОЧНО - нужна помощь!


1-66293           BFG                   2002-01-04 21:18  2002.01.21  
Mortal Combat 4


3-66191           Гоша                  2001-12-13 19:00  2002.01.21  
Delete from master-detail via stored procedure