delphi ile opencv

Yazdığınız makaleleri ve üyelerimizin işine yarayacağını düşündüğünüz kodlarınızı gönderebilirsiniz. Bu foruma soru sormayın!
Cevapla
burhanbarakli
Üye
Mesajlar: 38
Kayıt: 04 Kas 2005 12:18
Konum: sakarya - sakaraya ünv.
İletişim:

delphi ile opencv

Mesaj gönderen burhanbarakli »

görüntü işleme uğraşanların çok iyi bildikleri opencv kütüphanesi ile ilgili çalışmalara başladım.
opencv nin kütüphanesini delphi ye çevirmişler.
bende opencv nin kendi dökümantasyonundakihttp://opencv.itseez.com/doc/tutorials/ ... ing-images delphi de hazırlayayıp, artık delphi ile birlikte opencv fonksiyonlarının kullanıldığını göstermek istedim.

kaynak kodları bir siteye koydum.(barakli.net)

Kod: Tümünü seç

procedure TForm2.addweightedClick(Sender: TObject);
var
      img1,img2:PIplImage;
      dst1:PIplImage;
      bt:TBitmap;
      alpha:Double;
      beta,input:Double;
      a:Integer;
begin
      alpha:=0.5;
      img1:=cvLoadImage('de.jpg',1);
      img2:=cvLoadImage('op.jpg',1);
      cvNamedWindow('de',1);
      cvShowImage('de',img1);
      cvNamedWindow('op',1);
      cvShowImage('op',img2);
      dst1:=cvCreateImage(cvGetSize(img1),8,3);
     //dst:=cvLoadImageM('lena.jpg',1);
      beta:=1-alpha;
      cvAddWeighted(img1,alpha,img2,beta,0.0,dst1);
    // cvSaveImage('sadf.jpg',dst1);
      cvNamedWindow('bb',1);
      cvShowImage('bb',dst1);
      //cvResizeWindow('bb',200,200);
      Image1.Stretch:=True;
      bt:=cvImage2Bitmap(dst1);
      Image1.Picture.Bitmap:= bt;
      Image1.Picture.SaveToFile('aa.jpg');
end;
Resim
hg=herkes gidici
Burhan BARAKLI
Kullanıcı avatarı
ender_arslanturk
Kıdemli Üye
Mesajlar: 709
Kayıt: 18 Şub 2005 03:38
Konum: İstanbul

Re: delphi ile opencv

Mesaj gönderen ender_arslanturk »

Selâmlar,

Yeni başlattığımız bir projede (www.gonulkitabi.com) faydalı olacak bilgiler.
Cevapla