Mematikan Alt+F4

Jika kita membuat applikasi Delphi, kadang kala applikasi kita bisa di bunuh dengan hanya menekan tombol Alt+F4. Biar aman, dan sesuai prosedur applikasi, alangkah baiknya applikasi kita di create prosedur untuk mematikan hal tersebut. Ini sintaknya :

public
procedure AppMessage(var Msg: TMSG; var HAndled: Boolean);
end;
{...}

implementation
{...}

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage := AppMessage;
end;

procedure TForm1.AppMessage(var Msg: TMSG; var Handled: Boolean);
begin
  Handled := False;
  case Msg.Message of
  WM_SYSKEYDOWN:
  if Msg.wParam = VK_F4 then
  Handled := True; // don't allow ALT-F4
 end;
end; 

Looping dengan For

program loop2;
var
 i,j : integer;
 begin
  for i:=15 downto 1 do
   begin
    for j:=1 to i do
     write('*');
     writeln('');
   end;
end.

Menghitung (Luas, Keliling & Panjang Diagonal) Lingkaran dengan Pascal

Ketikan Scrip di Bawah ini

Cara Mengecek Kelulusan (Program Pascal)

Cara untuk mengecek kelulusan dengan program Pascal caranya adalah.. Masukan scrip program dibawah ini

Cara menyimpan gambar JPEG di database MySQL Dengan Program Delphi

Membuat sebuah aplikasi, alangkah indahnya apabila program yang dibuat indah dan menarik. Untuk mencapai tujuan tersebut kadang terhalang dengan cara bagaimana untuk membuatnya.

Postingan ini akan membahas bagaimana cara menyimpan data gambar yang berformat JPEG.
Perlengkapan yang digunakan penulis :

1. Delphi 7
2. Database MySQL, silahkan donlot gratis tanyakan ke bah gugel
3. Koneksi menggunakan ZEOS silahkan donlot dimari

Langkah 1

Masuk ke MySQL buat database beserta tablenya

 Create database jpeg; 
  Use jpeg; 
  Create table contoh( Nomor int auto_increment, Nama varchar(10), Photo longBlob, primary        key(nomor));

Langkah 2

Jalankan delphi 7 buat desain seperti berikut ini


















Langkah 3

Masukan scripnya

procedure TForm1.FormCreate(Sender: TObject);
 begin
  ZConnection1.Connect;
  ZTable1.Open;
end;

procedure TForm1.Image1DblClick(Sender: TObject);
var
op  : TOpenPictureDialog;
str : TStream;
begin
op := TOpenPictureDialog.Create(self);
op.Filter:=’JPEG File  |*.jpg ;*.jpeg’;
try
 if op.Execute then
  begin
   image1.Picture.LoadFromFile(op.FileName);
   str :=TFileStream.Create(op.FileName, fmOpenRead);
   try
     if image1.Picture <> nil then
      begin
       ZTable1.Edit;
       ZTable1photo.LoadFromStream(str);
       ZTable1.Post;
      end;
    finally
     str.Free;
    end;
   end;


  finally
    op.Free;
 end;
end;

procedure TForm1.DBNavigator1Click(Sender: TObject;  Button: TNavigateBtn);
var
  GbJPEG : TJPEGImage;
begin
case button of
  nbFirst..nbLast :
 begin
  GbJPEG := TJPEGImage.Create;
  try
   with GbJPEG do
    begin
     Assign(ZTable1.Fields[2]) ;
     image1.Picture.Assign(gbJPEG);
    end;
   finally
    GbJPEG.free;
   end;
  end;
 end;
end;



Selamat berkreasi


Listing lengkap silahkan donlot disini

sudah di donlot rename jadi file zip kemudian extract