+- Delphi Can (https://www.delphican.com)
+-- Forum: Delphi (https://www.delphican.com/forumdisplay.php?fid=3)
+--- Forum: Genel Programlama (https://www.delphican.com/forumdisplay.php?fid=6)
+--- Konu Başlığı: delphide kamera (/showthread.php?tid=1978)
delphide kamera - arsl01 - 18-02-2018
merhaba yeniyim ,bi sorum olacak pcye bağlı kamerayı formda butona basınca form içinde nasıl açtırabilirim ?
delphide kamera - KUNTAY - 18-02-2018
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.
Cvp: delphide kamera - arsl01 - 18-02-2018
(18-02-2018, Saat: 16:37)KUNTAY Adlı Kullanıcıdan Alıntı: 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.
Ucretsiz yokmu cracklanmiyormu
Cvp: delphide kamera - Fesih ARSLAN - 18-02-2018
(18-02-2018, Saat: 18:25)arsl01 Adlı Kullanıcıdan Alıntı:(18-02-2018, Saat: 16:37)KUNTAY Adlı Kullanıcıdan Alıntı: 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.
Ucretsiz yokmu cracklanmiyormu
Merhaba,
Formumuzda illegal paylaşımlar yapılamaz.
Bundan sonraki tüm konu ve yorumlarınızda daha dikkatli olursanız sevinirim.
Cvp: delphide kamera - arsl01 - 18-02-2018
(18-02-2018, Saat: 18:42)Fesih ARSLAN Adlı Kullanıcıdan Alıntı:(18-02-2018, Saat: 18:25)arsl01 Adlı Kullanıcıdan Alıntı: Ucretsiz 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
delphide kamera - mcuyan - 18-02-2018
MErhaba
İlgili örneklere C:\Users\Public\Documents\Embarcadero\Studio\19.0\Samples\Object Pascal folderından ulaşabilirsiniz..
Cvp: delphide kamera - KUNTAY - 19-02-2018
(18-02-2018, Saat: 18:25)arsl01 Adlı Kullanıcıdan Alıntı:(18-02-2018, Saat: 16:37)KUNTAY Adlı Kullanıcıdan Alıntı: 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.
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.
Cvp: delphide kamera - Halil Han BADEM - 19-02-2018
(19-02-2018, Saat: 22:49)KUNTAY Adlı Kullanıcıdan Alıntı: Crack konusuna gelince eğer emeğe saygı göstermezsen seninde emeğine kimse saygı göstermeyecektir.
Aynı düşüncedeyim
delphide kamera - esistem - 20-02-2018
DsPack component paketi vardı bi aralar, ama sanırım d7 ye kadar destekliyordu. Bi araştır istersen.
delphide kamera - mrmarman - 27-02-2018
Sana bir güzellik yapalım.
Zamanın birinde bu linkteki kodları sadeleştirmiştim. O örneği arşivimden çıkardım.
( Not: arşivdekileri düzenlesem dahi referansları ile saklıyorum, emeğe saygı
)Ö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.
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;