Home > Delphi, Grafika Komputer > Aplikasi Pengolahan Citra Dengan Delphi

Aplikasi Pengolahan Citra Dengan Delphi

Aplikasi berikut merupakan contoh penggunaan pengolahan citra menggunakan Delphi. Image yang diproses berupa file citra *.bmp, dengan beberapa teknik analisis citra sebagai berikut :

  • Analisis Grayscale
  • Analisis dengan Sobel
  • Analisis Konvolusi Step 1
  • Analisis Konvolusi Step 2  
  • Analisis Kompresi Step 1
  • Analisis Kompresi Step 2
  • Analisis dengan Treatmen
  • Analisis Invert

Screenshot aplikasi :

>> DOWNLOAD SOURCE CODE APLIKASI PENGOLAHAN CITRA DENGAN DELPHI <<

  1. bungsu
    August 16, 2010 at 5:24 pm

    mas,tolong dong Dokumentasi/Laporan Aplikasi pengolahan citra lagi belajar delphi nich

  2. akbar
    October 18, 2010 at 4:41 pm

    mas ko ga bisa di donlot sih???? pgen dunk

    • October 19, 2010 at 5:07 pm

      ga bisanya bagaimana? error atau bagaimana?

      • jevissa
        November 30, 2010 at 2:24 pm

        ga bsa mas donlodnya…….
        cz link 4sharednya dah ilang

  3. muhamad rosikin
    October 19, 2010 at 8:55 pm

    untuk bahan kuliah
    mahasiswa universitas bung hatta

  4. ade
    December 22, 2010 at 6:42 am

    wah..
    ane ucapkan terimakasih yang sebesar2nya gan..
    akhirnya ane bisa nyelesaiin tugas ane beberapa jam sebelum presentasi…
    jadi terharu.. T_T

  5. shincan
    January 5, 2011 at 11:15 pm

    gak bisa didonlot mas, gak muncul tampilan apapun..

  6. blekotrok
    January 20, 2011 at 9:49 am

    mana g bs di download,mbohongin ya..

    • January 24, 2011 at 2:55 pm

      barusan di cek, dan link nya masih bisa di donlot…

  7. elva_ivana
    January 27, 2011 at 2:11 pm

    betul mas..link nya ada
    pas mau donload kembali ke link semula
    http://www.4shared.com/file/HuLIbojC/image_processing_using_delphi.html

    • January 29, 2011 at 5:32 pm

      “Server downloading session limit is reached. Please try again in a few minutes.” server nya kena limit.. coba lagi nanti..

  8. April 14, 2011 at 12:48 pm

    mas mau nanya.. kl penggolahan gambar,untuk segmentasi menggunakan fuzzy c-means gimana mas, contoh nya..!!

  9. saeafan
    April 28, 2011 at 7:12 pm

    mas mau tanya pada ni q pake databasenya mysql terus mengkoneksi delphin7 dengan menggunakan dbexpres.. tp nda bisa terus ada kata libmysql.ddl belum di ketahui…? padahal q dah di pintas libmysql.ddl ke sistem32 pada progam file/windows tp blm bisa jga…. mohon solusiny ni… q pake win7..

  10. August 7, 2011 at 7:45 pm

    mas klo untuk vb ada source program dan ada referensi nggak, misalnya ebook…
    tolon dunk

  11. December 1, 2011 at 4:01 pm

    monk kumaha cara ngedit ngaran profil?/?

    • December 1, 2011 at 8:36 pm

      ngaran profil dina naon?

      ________________________________

  12. December 1, 2011 at 5:39 pm

    tes

    • December 1, 2011 at 8:35 pm

      tes naon na mang ojos? haha…

      ________________________________

  13. December 4, 2011 at 6:37 pm

    Bang,tolongin dunk,kirimin source code pengolahan citra digital dalam bahasa delphi khususnya yang berhubungan dengan kriptografi DES …
    minta tolong sekali …….

    • December 6, 2011 at 9:36 am

      kaga ada bang kalo yg seperti itu…

      ________________________________

  14. apri
    December 10, 2011 at 1:57 pm

    Mas, ada ga contoh aplikasi buat pengolahan citra jpeg?
    Saya lagi mengalami kesulitan dalam pembuatan tugas akhir..

  15. February 27, 2012 at 11:54 am

    makasih gan source code nya udah ane coba… jangan lupa kunjungan balik nya.. hehe😀

  16. widhi_candra@yahoo.com
    May 20, 2012 at 11:41 pm

    Gan bisa minta tolong source moment invariant dari sebuah citra digital
    ini source code x tapi gak jalan

    unit Unit1;

    interface

    uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs;

    type
    TForm1 = class(TForm)
    procedure momentinv;
    private
    { Private declarations }
    public
    { Public declarations }
    end;

    var
    Form1: TForm1;
    k:array[0..18] of Real;
    implementation

    uses Math;

    {$R *.dfm}
    procedure TForm1.momentinv;
    var x,y:array[0..10]of Integer;
    dim,unit1:Integer;
    xmax,xmin,ymax,ymin:Integer;
    dx,dy:Real;
    n00,n01,n02,n03,n10,n11,n12,n20,n21,n30:Real;
    w,w2,w3:Real;
    xx,yy:Integer;
    i,j:Integer;
    begin
    n00:=dim/(unit1*unit1);
    n01:=0;n02:=0;n03:=0;n10:=0;n11:=0;n12:=0;n20:=0;n21:=0;n30:=0;
    w:=dim;w2:=w*w;w3:=sqrt(w * w * w * w * w);

    for i:=10 downto dim-1 do begin
    n10:=n10+x[i];
    n01:=n01+y[i];
    end;
    n10:=n10/dim;
    n01:=n01/dim;

    for i:=10 downto dim-1 do begin
    n10:=n10+x[i];
    n01:=n01+y[i];
    end;

    for i:=10 downto dim-1 do begin
    xx:=x[i];

    if xxxmax then xmax := xx;

    yy:=y[i];

    if yyymax then ymax := yy;
    end;

    for i:=10 downto dim-1 do begin
    dx := x[i] – n10;
    dy := y[i] – n01;
    n11 :=n11+ (dx * dy);
    n12 :=n12+ (dx * dy * dy);
    n21 :=n21+ (dx * dx * dy);
    n20 :=n20+ (dx * dx);
    n02 :=n02+ (dy * dy);
    n30 :=n30+ (dx * dx * dx);
    n03 :=n03+ (dy * dy * dy);
    end;

    n11 :=n11 / w2;
    n20 :=n20 / w2;
    n02 :=n02 / w2;
    //
    // p + q = 3
    n12 :=n12 / w3;
    n21 :=n21 / w3;
    n30 :=n30 / w3;
    n03 :=n03 / w3;

    k[10] := n20 + n02;
    //
    k[11] := ((n20 – n02) * (n20 – n02)) + (4 * n11 * n11);
    //
    k[12] := ((n30 – (3 * n12)) * (n30 – (3 * n12))) +
    ((n03 – (3 * n21)) * (n03 – (3 * n21)));
    //
    k[13] := ((n30 + n12) * (n30 + n12)) + ((n03 + n21) * (n03 + n21));
    //
    k[14] := ((n30 – (3 * n12)) * (n30 + n12) * (((n30 + n12) * (n30 + n12)) –
    (3 * (n21 + n03) * (n21 +
    n03)))) +
    ((n03 – (3 * n21)) * (n03 + n21) * (((n03 + n21) * (n03 + n21)) –
    (3 * (n12 + n30) * (n12 +
    n30))));
    //
    k[15] := ((n20 – n02) * (((n30 + n12) * (n30 + n12)) –
    ((n03 + n21) * (n03 + n21)))) +
    (4 * n11 * (n30 + n12) * (n03 + n21));
    //
    k[16] := (((3 * n21) – n03) * (n30 + n12) * (((n30 + n12) * (n30 + n12)) –
    (3 * (n21 + n03) * (n21 +
    n03)))) –
    (((3 * n12) – n30) * (n03 + n21) * (((n03 + n21) * (n03 + n21)) –
    (3 * (n12 + n30) * (n12 +
    n30))));

    // Mass center placed here
    k[17] := n10; // xBar
    k[18] := n01; // yBar

    end;

    end.

  17. Ryan
    April 6, 2014 at 10:01 pm

    Mas, ada ga contoh aplikasi buat pengolahan citra jpeg?

  18. lisbetty
    July 4, 2014 at 3:44 pm

    bg ada gk, cara menghiung rumus moment invariant dari sebuah citra

  1. No trackbacks yet.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: