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;