Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.02.29;
Скачать: [xml.tar.bz2];

Вниз

Помогите вызвать процедуру?   Найти похожие ветки 

 
Santak   (2004-02-17 15:10) [0]

Есть процедура
procedure JPEGtoBMP(const FileName: TFileName);
var
jpeg: TJPEGImage;
bmp: TBitmap;
begin
jpeg := TJPEGImage.Create;
try
jpeg.CompressionQuality := 100; {Default Value}

jpeg.LoadFromFile("c:\temp\image000.jpg");
bmp := TBitmap.Create;
try
bmp.Assign(jpeg);
bmp.SaveTofile(ChangeFileExt("image000", ".bmp"));
finally
bmp.Free
end;
finally
jpeg.Free
end;
end;

Как её вызвать в Button1??? Пробовал так никатит..

procedure TForm1.Button1Click(Sender: TObject);
begin
JPEGtoBMP;
end;


 
DDA   (2004-02-17 15:13) [1]

procedure JPEGtoBMP( onst FileName: TFileName);

В параметрах требуется указать Имя файла


 
VLAD-MAL   (2004-02-17 15:16) [2]

procedure TForm1.Button1Click(Sender: TObject);
begin
JPEGtoBMP("C:\PlayBoy\Girls\Madonna.bmp");
end;


 
Santak   (2004-02-17 15:16) [3]

Все я указал, но как из кнопки вызвать эту процедуру?


 
Palladin   (2004-02-17 15:16) [4]

После [3] можно уже в орешник.


 
VLAD-MAL   (2004-02-17 15:16) [5]

И что, никак?


 
Семен Сорокин   (2004-02-17 15:16) [6]

Есть процедура
procedure JPEGtoBMP(const FileName: TFileName);
var
jpeg: TJPEGImage;
bmp: TBitmap;
begin
jpeg := TJPEGImage.Create;
try
jpeg.CompressionQuality := 100; {Default Value}

jpeg.LoadFromFile( FileName);
bmp := TBitmap.Create;
try
bmp.Assign(jpeg);
bmp.SaveTofile(ChangeFileExt("image000", ".bmp"));
finally
bmp.Free
end;
finally
jpeg.Free
end;
end;

Как её вызвать в Button1??? Пробовал так никатит..

procedure TForm1.Button1Click(Sender: TObject);
begin
JPEGtoBMP ("c:\temp\image000.jpg");
end;


 
TUser   (2004-02-17 15:24) [7]

Сесть на кнопку и крикнуть: "АУуУуУуУуУ...".


 
Santak   (2004-02-17 15:30) [8]

А как сделать чтоб он BMP сохранял не на диск, а копировал в буфер?
Заместо
bmp.SaveTofile(ChangeFileExt("image000", ".bmp"));
Пробовал так bmp.copytocliboard; не получается


 
VLAD-MAL   (2004-02-17 15:54) [9]

...
Image1: TImage;
...

var

MyFormat : Word;
AData : THandle;
APalette : HPALETTE;
begin
...
MyFormat := 0;
APalette := 0;
...
Image1.Picture.Bitmap.SaveToClipboardFormat(MyFormat,AData, APalette);
Clipboard.SetAsHandle(MyFormat, AData);
...
end;



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

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

Наверх




Память: 0.46 MB
Время: 0.011 c
1-93857
xobbit
2004-02-16 02:52
2004.02.29
TTabSheet(Page control) в Рантайм


1-93863
Leech
2004-02-16 14:41
2004.02.29
Парсим ошибки от StrToInt()


1-93852
heady
2004-02-12 19:43
2004.02.29
открыть файл на СОХРАНЕНИЕ


6-94060
BlackSun
2003-12-21 20:59
2004.02.29
Как скачать файл в поток?


6-94051
Alexis
2003-12-24 19:30
2004.02.29
поймать исключение...





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский