Tampilan Form aplikasi menarik Delphi 7

Salah satu cara membuat aplikasi yang kita buat menjadi lebih menarik adalah dengan cara membuat tampilan form aplikasi. Dengan form aplikasi yang menarik, akan membuat user aplikasi akan lebih nyaman dan tidak bosan dalam menggunakan aplikasi yang anda buat. Untuk membuat tampilan form tidaklah sulit, yang pertama harus kita lakukan adalah dengan membuat gambar tampilan menggunakan photoshop, corel ataupun aplikasi editing gambar lainnya. Gambarlah sesuai dengan imajinasi anda dan simpan dengan format .bmp.

Contoh gambar form aplikasi :

READ MORE - Tampilan Form aplikasi menarik Delphi 7

Deteksi garis (line detection)

Untuk mendeteksi garis digunakan 4 mask sebagai berikut:

READ MORE - Deteksi garis (line detection)

Listing Program Mengubah Citra Grayscale Menjadi Citra Biner Delphi

Citra biner merupakan citra yang terdiri dari komponen warna hitam dan putih. Sifat pengolahan citra biner relatif sederhana, cepat dan mudah diimplementasikan sehingga bisa dijalankan meski memori yang dimiliki kecil. Berikut listing mengubah citra grayscale menjadi citra biner dengan metode otsu (otsu method).

procedure TForm1.btnBinerClick(Sender: TObject);
const level = 255;
var
  histogram: array[0..255] of integer;
  PH: PByteArray;
  TotalMean, Variance, maxVariance, zerothCumuMoment, firstCumuMoment : real;
  i,k: integer;
   j: integer ;
  p: PByteArray;
  Q: PByteArray;
  threshold: byte;
  area: Word;
begin
  imgbin:= tbitmap.Create;
  imgbin:= imggray;
  for i:=0 to level-1 do
  begin
    histogram[i]:=0;
  end;
  for i:=0 to (imgbin.Height-1) do
  begin
    PH:=imgbin.ScanLine[i];
    for j:= 0 to (imgbin.Width-1) do
    begin
      inc(histogram[PH[j]]);
    end;
  end;
  //compute otsu method
  threshold:=0;
  totalMean := 0;
  maxVariance := 0;
  firstCumuMoment := 0;
  zerothCumuMoment := 0;
  area := imgbin.Height * imgbin.Width;
  for k:= 0 to level-1 do TotalMean := TotalMean + (k * histogram[k] / area);
  for k:= 0 to level-1 do
  begin
    zerothCumuMoment := zerothCumuMoment + histogram[k] / area;
    firstCumuMoment :=  firstCumuMoment + (k * histogram[k] / area);
    variance := totalMean * zerothCumuMoment -  firstCumuMoment;
    variance := variance * variance;
    if ((zerothCumuMoment <> 0) and (zerothCumuMoment <> 1)) then
    begin
      variance := variance /(zerothCumuMoment * (1 - zerothCumuMoment));
      if (maxVariance < variance) then
      begin
        maxVariance := variance;
        threshold := k;
      end;
    end;
  end;

  for i:=0 to imgbin.Height-1 do
  begin
    P:= imgbin.ScanLine[i];
    Q:= imggray.ScanLine[i];
    for j:=0 to imgbin.Width-1 do
    if Q[j] > threshold   then
    P[j] := 255
    else
    P[j] := 0;
  end;
  imgbiner.Picture.Bitmap:= imgbin;
  imgbin.SaveToFile('biner.bmp') ;
end;

Untuk pengambilan gambarnya telah dijelaskan dalam aritkel sebelumnya yaitu melalui webcam.

READ MORE - Listing Program Mengubah Citra Grayscale Menjadi Citra Biner Delphi

Membuat Video Webcam dengan Delphi

Fadlisyah Penulis Beberapa buku komputer 

FAHMI S.T, M.Sc   Alumnus Fachhochschule Karlsruhe, 

Germany Dayat Kurniawan Peneliti di LIPI

Setelah kita mempelajari penangkapan citra, selanjutnya pada bab ini  saya akan menjelaskan tentang bagaimana merekam video melalui  webcam. Untuk itu, ikuti langkah-langkah berikut

1. Jalankan Delphi. 

2. Tambahkan komponen ListBox1 , ListBox2 , ListBox3 , ListBox4 , ComboBox1 ,  FilterGraph1  ,  VideoWindow1  , SaveDialog1  , Filter1  , Timer1  , StatusBar1 , Button1  , Button2  , dan Button3     pada Form1.  

3. Atur properti berbagai komponen di atas, sebagai :

 

 4.  Tampilan Form yang diharapkan akan berupa : 

READ MORE - Membuat Video Webcam dengan Delphi

Listing Program Mengambil Gambar dari Webcam dengan Delphi 7

Listing program dan langkah-langkah yang perlu dilakukan di dalam merancang program menangkap citra menngunakan webcam adalah sebagai berikut :

1. Jalankan Delphi.

2. Tambahkan pada Form Delphi berbagai komponen berikut 

: FilterGraph1 , VideoWindow1 , SampleGrabber1 , Filter1 , DBImage1 , Button1 , dan MainMenu1.

3. Atur properti berbagai komponen di atas, sebagai :

4. Klik 2x pada MainMenu1, atur tampilan sedemikian hingga seperti :

5. Tampilan Form sekarang akan berbentuk :

READ MORE - Listing Program Mengambil Gambar dari Webcam dengan Delphi 7

Permasalahan Dalam Instalasi DSPack Delphi 7

Sering terjadi di dalam mengkompilasi file DSPack Package (DSPack_Dx.dpk), atau setelah mengeksekusi file DSPack_D7, muncul pesan kesalahan [fatal error] Dspack.pas(37).file not found ‘jedi.inc’ dan pesan kesalahan yang sama juga muncul dalam menginstalasi file Design Package (DSPackDesign_Dx.dpk), atau setelah mengeksekusi file DSPackDesign_D7. Pesan kesalahan tersebut muncul karena file ‘jedi.inc’ tidak ditemukan pada direktori C:\Program Files \Borland \Delphi7\ DSPACK234 \packages. Mengatasi kesalahan tersebut, maka cari pada direktori mana letak file ‘jedi.inc’ dan setelah ditemukan copy file ‘jedi.inc’ ke direktrori C:\Program Files \Borland \Delphi7\ DSPACK234 \packages. Hal yang sama juga berlaku untuk beberapa file yang lain yang tidak ditemukan baik dalam proses kompilasi, instalasi, maupun eksekusi. Cara lain mengatasi kesalahan di atas adalah dengan mengatur halaman library, melalui menu Tools �� Environment Option �� Library Path �� tambahkan folder yang terdapat file ‘jedi.inc’ tersebut. Mengatasi masalah diatas tidak cukup hanya dengan mengkopi file jedi.inc ke folder ..\packages karena nanti pada saat run akan muncul lagi pesan kesalahan [fatal Error] unit1.pas(7): File not Found: ‘DSPack.dcu’. Untuk mengatasi kedua masalah diatas adalah dengan menambahkan path src ke library seperti terlihat pada gambar di bawah ini:

READ MORE - Permasalahan Dalam Instalasi DSPack Delphi 7