Yaitu dengan menggunakan delphi versi 7.karna saya juga belajarnya pakai versi 7,makanya saya juga buat programnya pakai versi 7.berikut adalah contoh Tampilan program kalkulator sederhana pada saat di running. Buat para pembaca yang berminat pebngen nyobain buat kalkulator seperti gambar diatas,berikut langkah – langkahnya: 1. Kali ini saya akan membagikan turorial Cara Membuat Media Video Player ( Pemutar Video ) menggunakan delphi 7. Sebenarnya ada banyak cara untuk membuat pemutar video seperti ini, namun yang saya tahu baru tiga yaitu pemutar video berbentuk Flash Player ActiveX, GomX ActiveX, atau Windows Media Player ActiveX.
Membuat Keygen Dengan Delphi 7 Windows 7
Buat Form Seperti Berikut
Merubah citra berwarna menjadi citra Grayscale. Untuk membuat citra berwarna menjadi citra dengan grayscale (abu-abu) maka nilai warna ditiap piksel citra kita manipulasi menggunakan Sourcode Berikut:
unit uMain;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, ExtCtrls, jpeg, StdCtrls, ExtDlgs, ComCtrls, Menus;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, ExtCtrls, jpeg, StdCtrls, ExtDlgs, ComCtrls, Menus;
type
TfGray = class(TForm)
BackGround: TImage;
Header: TPanel;
spdbtnExit: TSpeedButton;
spdMinimize: TSpeedButton;
ImgLoad: TImage;
EdtSourceFile: TEdit;
spdbtnUpload: TSpeedButton;
SpeedButton2: TSpeedButton;
ImgGray: TImage;
OpdLoad: TOpenPictureDialog;
SpeedButton1: TSpeedButton;
OpdSave: TSavePictureDialog;
PopupMenu1: TPopupMenu;
Pembuat1: TMenuItem;
SpeedButton3: TSpeedButton;
StatusBar1: TStatusBar;
procedure spdbtnExitClick(Sender: TObject);
procedure spdMinimizeClick(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure spdbtnUploadClick(Sender: TObject);
procedure EdtSourceFileClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure HeaderDblClick(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure Pembuat1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fGray: TfGray;
Jpg: TJPEGImage;
Bmp :TBitmap;
TfGray = class(TForm)
BackGround: TImage;
Header: TPanel;
spdbtnExit: TSpeedButton;
spdMinimize: TSpeedButton;
ImgLoad: TImage;
EdtSourceFile: TEdit;
spdbtnUpload: TSpeedButton;
SpeedButton2: TSpeedButton;
ImgGray: TImage;
OpdLoad: TOpenPictureDialog;
SpeedButton1: TSpeedButton;
OpdSave: TSavePictureDialog;
PopupMenu1: TPopupMenu;
Pembuat1: TMenuItem;
SpeedButton3: TSpeedButton;
StatusBar1: TStatusBar;
procedure spdbtnExitClick(Sender: TObject);
procedure spdMinimizeClick(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure spdbtnUploadClick(Sender: TObject);
procedure EdtSourceFileClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure HeaderDblClick(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure Pembuat1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fGray: TfGray;
Jpg: TJPEGImage;
Bmp :TBitmap;
implementation
uses Math, uPembuat;
uses Math, uPembuat;
{$R *.dfm}
procedure TfGray.spdbtnExitClick(Sender: TObject);
begin
Application.Terminate;
end;
begin
Application.Terminate;
end;
procedure TfGray.spdMinimizeClick(Sender: TObject);
begin
Application.Minimize;
end;
begin
Application.Minimize;
end;
procedure TfGray.SpeedButton2Click(Sender: TObject);
var brs, kol, r : Integer;
clr : Longint;
temp : PByteArray;
rgb1 : array [0..2] of Integer;
begin
ImgGray.Picture.Bitmap := ImgLoad.Picture.Bitmap;
ImgGray.Picture.Bitmap.PixelFormat := pf24bit;
for brs := 0 to ImgGray.Picture.Bitmap.Height-1 do
begin
temp := ImgGray.Picture.Bitmap.ScanLine[brs];
Application.ProcessMessages;
kol := 0;
repeat
//clr :=((temp[kol])+(temp[kol+1])+(temp[kol+2]))div 3;
Rgb1[0] := temp[kol];
Rgb1[1] := temp[kol+1];
Rgb1[2] := temp[kol+2];
clr := MaxIntValue(rgb1);
for r:=0 to 2 do
temp[kol+r] := clr;
inc(kol,3);
until kol >= 3*ImgGray.Picture.Bitmap.Width-1;
end;
ImgGray.Invalidate;
end;
var brs, kol, r : Integer;
clr : Longint;
temp : PByteArray;
rgb1 : array [0..2] of Integer;
begin
ImgGray.Picture.Bitmap := ImgLoad.Picture.Bitmap;
ImgGray.Picture.Bitmap.PixelFormat := pf24bit;
for brs := 0 to ImgGray.Picture.Bitmap.Height-1 do
begin
temp := ImgGray.Picture.Bitmap.ScanLine[brs];
Application.ProcessMessages;
kol := 0;
repeat
//clr :=((temp[kol])+(temp[kol+1])+(temp[kol+2]))div 3;
Rgb1[0] := temp[kol];
Rgb1[1] := temp[kol+1];
Rgb1[2] := temp[kol+2];
clr := MaxIntValue(rgb1);
for r:=0 to 2 do
temp[kol+r] := clr;
inc(kol,3);
until kol >= 3*ImgGray.Picture.Bitmap.Width-1;
end;
ImgGray.Invalidate;
end;
procedure TfGray.spdbtnUploadClick(Sender: TObject);
var
ImageJpg: TJPEGImage;
Imagebmp: TBitmap;
Strfile:string;
formatInfo:string;
begin
Imagejpg := TJPEGImage.Create();
Imagebmp := TBitmap.Create();
if (OpdLoad.Execute) then
begin
if ((ExtractFileExt(OpdLoad.FileName)=’.jpeg’)
OR (ExtractFileExt(OpdLoad.FileName)=’.jpg’))then
begin
ImageJpg.LoadFromFile(OpdLoad.FileName);
StrFile:=OpdLoad.FileName;
ImgLoad.Picture.LoadFromFile(strfile);
EdtSourceFile.Text:=strfile;
Imagebmp.Assign(imagejpg);imgLoad.Picture.Bitmap:=imagebmp;
end
else if (ExtractFileExt(OpdLoad.FileName)=’.bmp’) then
begin
Imagebmp.LoadFromFile(OpdLoad.FileName);
ImgLoad.Picture.Bitmap:=imagebmp;
end else MessageDlg(‘Ekstensi tidak diketahui’, mtCustom, mbOKCancel, 0)
end;
StatusBar1.SimpleText:= OpdLoad.FileName +’ ‘+
IntToStr(ImgLoad.Picture.Width) + ‘x’+
IntToStr(ImgLoad.Picture.Height) + ‘ ‘+
formatInfo;
end;
var
ImageJpg: TJPEGImage;
Imagebmp: TBitmap;
Strfile:string;
formatInfo:string;
begin
Imagejpg := TJPEGImage.Create();
Imagebmp := TBitmap.Create();
if (OpdLoad.Execute) then
begin
if ((ExtractFileExt(OpdLoad.FileName)=’.jpeg’)
OR (ExtractFileExt(OpdLoad.FileName)=’.jpg’))then
begin
ImageJpg.LoadFromFile(OpdLoad.FileName);
StrFile:=OpdLoad.FileName;
ImgLoad.Picture.LoadFromFile(strfile);
EdtSourceFile.Text:=strfile;
Imagebmp.Assign(imagejpg);imgLoad.Picture.Bitmap:=imagebmp;
end
else if (ExtractFileExt(OpdLoad.FileName)=’.bmp’) then
begin
Imagebmp.LoadFromFile(OpdLoad.FileName);
ImgLoad.Picture.Bitmap:=imagebmp;
end else MessageDlg(‘Ekstensi tidak diketahui’, mtCustom, mbOKCancel, 0)
end;
StatusBar1.SimpleText:= OpdLoad.FileName +’ ‘+
IntToStr(ImgLoad.Picture.Width) + ‘x’+
IntToStr(ImgLoad.Picture.Height) + ‘ ‘+
formatInfo;
end;
procedure TfGray.EdtSourceFileClick(Sender: TObject);
var
Strfile:string;
formatInfo:string;
begin
Jpg := TJPEGImage.Create();
Bmp := TBitmap.Create();
if (OpdLoad.Execute) then
begin
if ((ExtractFileExt(OpdLoad.FileName)=’.jpeg’)
OR (ExtractFileExt(OpdLoad.FileName)=’.jpg’))then
begin
Jpg.LoadFromFile(OpdLoad.FileName);
StrFile:=OpdLoad.FileName;
ImgLoad.Picture.LoadFromFile(strfile);
EdtSourceFile.Text:=strfile;
Bmp.Assign(Jpg);imgLoad.Picture.Bitmap:=Bmp;
end
else if (ExtractFileExt(OpdLoad.FileName)=’.bmp’) then
begin
Bmp.LoadFromFile(OpdLoad.FileName);
ImgLoad.Picture.Bitmap:=Bmp;
end else MessageDlg(‘Ekstensi tidak diketahui’, mtCustom, mbOKCancel, 0)
end;
StatusBar1.SimpleText:= OpdLoad.FileName +’ ‘+
IntToStr(ImgLoad.Picture.Width) + ‘x’+
IntToStr(ImgLoad.Picture.Height) + ‘ ‘+
formatInfo;
end;
var
Strfile:string;
formatInfo:string;
begin
Jpg := TJPEGImage.Create();
Bmp := TBitmap.Create();
if (OpdLoad.Execute) then
begin
if ((ExtractFileExt(OpdLoad.FileName)=’.jpeg’)
OR (ExtractFileExt(OpdLoad.FileName)=’.jpg’))then
begin
Jpg.LoadFromFile(OpdLoad.FileName);
StrFile:=OpdLoad.FileName;
ImgLoad.Picture.LoadFromFile(strfile);
EdtSourceFile.Text:=strfile;
Bmp.Assign(Jpg);imgLoad.Picture.Bitmap:=Bmp;
end
else if (ExtractFileExt(OpdLoad.FileName)=’.bmp’) then
begin
Bmp.LoadFromFile(OpdLoad.FileName);
ImgLoad.Picture.Bitmap:=Bmp;
end else MessageDlg(‘Ekstensi tidak diketahui’, mtCustom, mbOKCancel, 0)
end;
StatusBar1.SimpleText:= OpdLoad.FileName +’ ‘+
IntToStr(ImgLoad.Picture.Width) + ‘x’+
IntToStr(ImgLoad.Picture.Height) + ‘ ‘+
formatInfo;
end;
Membuat Keygen Dengan Delphi 7 Crack
procedure TfGray.FormCreate(Sender: TObject);
begin
EdtSourceFile.Text:=”;
end;
begin
EdtSourceFile.Text:=”;
end;
procedure TfGray.HeaderDblClick(Sender: TObject);
begin
ShowMessage(‘Aplikasi Tidak Bisa Diperbesar’);
end;
begin
ShowMessage(‘Aplikasi Tidak Bisa Diperbesar’);
end;
procedure TfGray.SpeedButton1Click(Sender: TObject);
begin
if OpdSave.Execute then
begin
jpg:=TJPEGImage.Create;
jpg.Assign(ImgGray.Picture.Graphic);
jpg.SaveToFile(OpdSave.FileName);
jpg.Free;
ShowMessage(‘Done’);
end;
end;
begin
if OpdSave.Execute then
begin
jpg:=TJPEGImage.Create;
jpg.Assign(ImgGray.Picture.Graphic);
jpg.SaveToFile(OpdSave.FileName);
jpg.Free;
ShowMessage(‘Done’);
end;
end;
procedure TfGray.Pembuat1Click(Sender: TObject);
begin
fPembuat.ShowModal;
end;
end.
begin
fPembuat.ShowModal;
end;
end.