Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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 не пробовал, но по-моему проблем быть не должно



Страницы: 1 вся ветка

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

Наверх





Память: 0.54 MB
Время: 0.023 c
14-66360
Феликс
2001-11-23 13:03
2002.01.21
Жизнь все лучше и лучше?


3-66205
fishka
2001-12-18 12:10
2002.01.21
Поле типа Identity - как задать значение, с которого начинать нумерацию?


7-66377
Sirgo
2001-10-07 13:51
2002.01.21
Температура процесора и системы


1-66252
Gol2000
2002-01-02 08:43
2002.01.21
Как в TRichEdit у отдельных строк поменять цвет фона (цвет бумаги) ?


7-66380
Lizard
2001-09-30 14:03
2002.01.21
Как к письму приаттачить не один, а несколько файлов ?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский