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 <<
Like this:
Categories: Delphi, Grafika Komputer
delphi, download, pengolahan citra, script, source code
mas,tolong dong Dokumentasi/Laporan Aplikasi pengolahan citra lagi belajar delphi nich
mas ko ga bisa di donlot sih???? pgen dunk
ga bisanya bagaimana? error atau bagaimana?
ga bsa mas donlodnya…….
cz link 4sharednya dah ilang
untuk bahan kuliah
mahasiswa universitas bung hatta
silahkan…
wah..
ane ucapkan terimakasih yang sebesar2nya gan..
akhirnya ane bisa nyelesaiin tugas ane beberapa jam sebelum presentasi…
jadi terharu.. T_T
gak bisa didonlot mas, gak muncul tampilan apapun..
mana g bs di download,mbohongin ya..
barusan di cek, dan link nya masih bisa di donlot…
betul mas..link nya ada
pas mau donload kembali ke link semula
http://www.4shared.com/file/HuLIbojC/image_processing_using_delphi.html
“Server downloading session limit is reached. Please try again in a few minutes.” server nya kena limit.. coba lagi nanti..
mas mau nanya.. kl penggolahan gambar,untuk segmentasi menggunakan fuzzy c-means gimana mas, contoh nya..!!
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..
mas klo untuk vb ada source program dan ada referensi nggak, misalnya ebook…
tolon dunk
monk kumaha cara ngedit ngaran profil?/?
ngaran profil dina naon?
________________________________
tes
tes naon na mang ojos? haha…
________________________________
Bang,tolongin dunk,kirimin source code pengolahan citra digital dalam bahasa delphi khususnya yang berhubungan dengan kriptografi DES …
minta tolong sekali …….
kaga ada bang kalo yg seperti itu…
________________________________
Mas, ada ga contoh aplikasi buat pengolahan citra jpeg?
Saya lagi mengalami kesulitan dalam pembuatan tugas akhir..
makasih gan source code nya udah ane coba… jangan lupa kunjungan balik nya.. hehe
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.