Delphi Can

Orjinalini görmek için tıklayınız: delphide kamera
Şu anda (Arşiv) modunu görüntülemektesiniz. Orjinal Sürümü Görüntüle internal link
merhaba yeniyim ,bi sorum olacak pcye bağlı kamerayı  formda butona basınca form içinde nasıl açtırabilirim ?
Bir dönem uğraşmıştım çok iyi ve kullanışlı bir bileşen var TVideoGrabber onu kullanabilirsin.

Not : Ücretli bir bileşendir test için süreli olarak kullanabiliyorsunuz.
(18-02-2018, Saat: 16:37)KUNTAY Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlBir dönem uğraşmıştım çok iyi ve kullanışlı bir bileşen var TVideoGrabber  onu kullanabilirsin.

Not : Ücretli bir bileşendir test için süreli olarak kullanabiliyorsunuz.

Ucretsiz yokmu cracklanmiyormu
(18-02-2018, Saat: 18:25)arsl01 Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
(18-02-2018, Saat: 16:37)KUNTAY Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlBir dönem uğraşmıştım çok iyi ve kullanışlı bir bileşen var TVideoGrabber  onu kullanabilirsin.

Not : Ücretli bir bileşendir test için süreli olarak kullanabiliyorsunuz.

Ucretsiz yokmu cracklanmiyormu

Merhaba,
Formumuzda illegal paylaşımlar yapılamaz.
Bundan sonraki tüm konu ve yorumlarınızda daha dikkatli olursanız sevinirim.
(18-02-2018, Saat: 18:42)Fesih ARSLAN Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
(18-02-2018, Saat: 18:25)arsl01 Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlUcretsiz yokmu cracklanmiyormu

Merhaba,
Formumuzda illegal paylaşımlar yapılamaz.
Bundan sonraki tüm konu ve yorumlarınızda daha dikkatli olursanız sevinirim.

Kusura bakmayin bilmiyordum yeniyimde ozur dilerim
MErhaba
İlgili örneklere C:\Users\Public\Documents\Embarcadero\Studio\19.0\Samples\Object Pascal folderından ulaşabilirsiniz..
(18-02-2018, Saat: 18:25)arsl01 Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
(18-02-2018, Saat: 16:37)KUNTAY Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlBir dönem uğraşmıştım çok iyi ve kullanışlı bir bileşen var TVideoGrabber  onu kullanabilirsin.

Not : Ücretli bir bileşendir test için süreli olarak kullanabiliyorsunuz.

Ucretsiz yokmu cracklanmiyormu

Bahsettiğim bileşenin deneme sürümü var.  

Tscap32 diye bir bileşen vardı ben kullanamamıştım işletim sistemimde sorun yaşamıştım.   

Crack konusuna gelince eğer emeğe saygı göstermezsen seninde emeğine kimse saygı göstermeyecektir.  
(19-02-2018, Saat: 22:49)KUNTAY Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlCrack konusuna gelince eğer emeğe saygı göstermezsen seninde emeğine kimse saygı göstermeyecektir.  

 Aynı düşüncedeyim Smile
DsPack component paketi vardı bi aralar, ama sanırım d7 ye kadar destekliyordu. Bi araştır istersen.
Sana bir güzellik yapalım.
Zamanın birinde Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol sadeleştirmiştim. O örneği arşivimden çıkardım. 
( Not: arşivdekileri düzenlesem dahi referansları ile saklıyorum, emeğe saygı  Smile  )

Örneği çalıştırmak için Forma bir adet TPanel eklemen yeterli. 

Multimedia DeviceLıst'teki ilk sırada olanı direkt değerlendirmeye alıyor. Çalışmayan olursa Id değerini okuyun, 0 ise 1,2,3 .. 9'a kadar deneyin. Her bilgisayarda çalışsın isterseniz bir ComboBox'a liste oluşturup kullanıcının uygun olanı seçmesini sağlayın. Idea

Procedure PaneldeWebcam( Panel: TPanel );
const
 WM_CAP_START              = $0400;
 WM_CAP_DRIVER_CONNECT     = $0400 + 10;
 WM_CAP_DRIVER_DISCONNECT  = $0400 + 11;

 WM_CAP_SET_PREVIEWRATE    = (WM_CAP_START+  52);
 WM_CAP_SET_SCALE          = (WM_CAP_START+  53);
 WM_CAP_SET_PREVIEW        = (WM_CAP_START+  50);
 WM_CAP_SET_SEQUENCE_SETUP = (WM_CAP_START+  64);
 WM_CAP_SET_CALLBACK_YIELD = (WM_CAP_START+  4);
 MS_FOR_25FPS              = 40;
var
 aAygit                    : cardinal;
 aLibHandle                : cardinal;
 aCapGetDriverDescriptionA : function(DrvIndex:cardinal; Name:pansichar;NameLen:cardinal;Description:pansichar;DescLen:cardinal):boolean; stdcall;
 aCapCreateCaptureWindowA  : function(lpszWindowName: pchar; dwStyle: dword; x, y, nWidth, nHeight: integer; ParentWin: dword; nId: word): dword; stdcall;

 id, i     : Integer;
 strAygit  : string;
 strIcerik : string;
begin
 // --- WebCam Hazırlığı...
 aLibHandle                := LoadLibrary('avicap32.dll');
 aCapGetDriverDescriptionA := GetProcAddress(aLibHandle,'capGetDriverDescriptionA');
 aCapCreateCaptureWindowA  := GetProcAddress(aLibHandle,'capCreateCaptureWindowA' );

 strAygit  := '';
 strIcerik := '';
 i         := -1;
 id        := -1;
 while (i < 9) AND ( id < 0 ) do begin
   inc(i);
   setlength(strAygit,  256);
   setlength(strIcerik, 256);
   if  ( aCapGetDriverDescriptionA(i, PAnsiChar( AnsiString(strAygit)), 256, PAnsiChar(AnsiString(strIcerik)), 256) )
   AND ( Length( strAygit ) > 0 )
     then id := i;
 end;
 if id < 0 then Exit;

 // --- Medya Listesindeki Ilk Sirayı WebCam kabul ediyorum...
 aAygit := aCapCreateCaptureWindowA('Web Kamera Ekranı', WS_CHILD or WS_VISIBLE, 0, 0,
                                   Panel.Width, Panel.Height, Panel.Handle, 0);

 if SendMessage(aAygit, WM_CAP_DRIVER_CONNECT, id, 0) <> 1 then
 begin // Bağlantı Sağlanamadı...
   SendMessage(aAygit, WM_CAP_DRIVER_DISCONNECT, 0, 0);
   SendMessage(aAygit, WM_CLOSE, 0, 0);
   aAygit := 0;
 end;

 if aAygit <> 0 then
 begin
   SendMessage(aAygit, WM_CAP_DRIVER_CONNECT, 0, 0);
   SendMessage(aAygit, WM_CAP_SET_SCALE, 1, 0);
   SendMessage(aAygit, WM_CAP_SET_PREVIEWRATE, MS_FOR_25FPS, 0);
   SendMessage(aAygit, WM_CAP_SET_PREVIEW, 1, 0);
 end;
end;

Kullanmak için

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  PaneldeWebCam( Panel1 );
end;