PROMO

PROMO
HOSTING NO 1 INDONESIA

Google Analityc Experiment

Konversi Gambar

Adakalanya kita bermaksud mengkonversi gambar dari BMP menjadi JPG atau sebaliknya dengan menggunakan program Delphi. Salah satu kegunaanya misalnya untuk mengupload gambar agar gambar tidak terlalu besar maka dikonversi dari BMP ke JPG, atau masih banyak lagi keperluannya.

Pertama Buat sebuah form, kemudian taruh komponen button 2 buah, komponen label, komponen opendialog,edit, lalu tambahkan komponen button lagi.
Komponen button yang pertama dikasih caption BMPkeJPG
Komponen button yang kedua dikasih caption JPGkeBMP
Komponen button yang ketiga dikasih caption Browse

Komponen edit textnya dikosongkan, komponen edit ini dirubah properties name nya menjadi Ed_FileAwal. Lalu buat procedure Bmp2Jpg dan procedure jpg2bmp.
Berikut kode delphinya secara detail :

type
TForm1 = class(TForm)
Button1: TButton;
Button3: TButton;
Ed_FileAwal: TEdit;
Label1: TLabel;
BitBtn1: TBitBtn;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

Procedure Bmp2Jpg (BmpFileName : String; JpgSavePath : string; Comp : Integer);
{1 = low quality , 100 good quality}
var bmp : TBitmap;
Jpg : TJpegImage;
begin
bmp := TBitmap.Create;
jpg := TJpegImage.Create;
try
bmp.LoadFromFile (BmpFileName);
if comp <> 100 then exit;
Jpg.CompressionQuality := Comp;
Jpg.Assign(bmp);
Jpg.SaveToFile (JpgSavePath + '.jpg');

finally
jpg.Free;
bmp.Free;
end;
end;

procedure jpg2bmp(JpgFilePath : string; BmpSavePath : string);
var bmp : TBitmap;
Jpg : TJpegImage;
begin
bmp := TBitmap.Create;
jpg := TJpegImage.Create;
try
jpg.LoadFromFile (jpgfilepath);
bmp.Assign(jpg);
bmp.SaveToFile (BmpSavePath + '.bmp');

finally
jpg.Free;
bmp.Free;
end;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
bmp2jpg('c:\1.bmp','c:\jpg',100);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
jpg2bmp('c:\jpg.jpg','c:\juhu.bmp');
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
Ed_FileAwal.text:=OpenDialog1.filename;
end;
end;

end.
Selamat mencoba

2 komentar:

Anonim mengatakan...

Boleh Minta Program Konversi Dari BMP Ke String ??
Kalo ada dan Boleh Mohon kirim ke email dong ..
metropolis_star@yahoo.com
trims

Admin mengatakan...

Klo boleh tau, BMP ke String digunakan untuk apa yah Gan?

Baca Juga