Форум: "Основная";
Текущий архив: 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