Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.02 c