Arsip: nangkap gambar dari webcam

 
user image
more 13 years ago

Shaf

gimana ya cara nangkap gambar dari webcam dan nampilkan gambarnya secara realtime?? kayak video streaming gitu.... anybody know??
user image
more 13 years ago

mat_koder

udh sering dibahas, coba gunakan aja fasilitas search di forum ini.
user image
more 13 years ago

herux

contoh sederhana gini aja

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Panel1: TPanel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
type
  PVOID = Pointer;
  {$EXTERNALSYM PVOID}
  LONG  = Longint;
  {$EXTERNALSYM LONG}
  PLONG = ^LONG;
  {$EXTERNALSYM PLONG}
  int   = Integer;
  {$EXTERNALSYM int}
const
    WM_CAP_START                    = WM_USER;
    WM_CAP_SEQUENCE                 = WM_CAP_START + 62;
    WM_CAP_DRIVER_CONNECT           = WM_CAP_START + 10;
    WM_CAP_SET_PREVIEW              = WM_CAP_START + 50;
    WM_CAP_SET_PREVIEWRATE          = WM_CAP_START + 52;
    WM_CAP_SET_SCALE                = WM_CAP_START + 53;

var
  Form1: TForm1;
implementation
{$R *.dfm}
function capCreateCaptureWindow(  
    lpszWindowName      : LPCSTR;
    dwStyle             : DWORD;
    x, y                : int;
    nWidth, nHeight     : int;
    hwndParent          : HWND;
    nID                 : int
    ): HWND; stdcall; external 'avicap32' name 'capCreateCaptureWindowA';
function capDriverConnect(
    hwnd    : HWND;
    iIndex  : int
    ): Bool; stdcall; external 'avicap32' name 'capDriverConnect';
function capCaptureSequence(
    hwnd    : HWND
    ): Bool; stdcall; external 'avicap32' name 'capCaptureSequence';

procedure TForm1.Button1Click(Sender: TObject);
var
  hwndc: HWND;
begin
  hwndc := capCreateCaptureWindow('Video WIndow',WS_CHILD,0,0,160,120,Panel1.Handle,1);
  SendMessage(hwndc,WM_CAP_DRIVER_CONNECT,0,0);
  SendMessage(hwndc,WM_CAP_SEQUENCE,0,0);
  SendMessage(hwndc,WM_CAP_SET_PREVIEW,0,0);
  SendMessage(hwndc,WM_CAP_SET_PREVIEWRATE,0,0);
end;
end.
kembangkan aja sendiri.. helpnya ada di window API bawaan delphi 7 kok .... aku males ah. gak ada proyek buat itu sih.! buat aja jadi library atau sekalian jadi VCL
user image
more 13 years ago

wahyudi_delphi

ada komponennya ndak bos, yang free lho
user image
more 13 years ago

unknown

search engin aja diforum ini pasti nemu. dah banyak yang nanya kaya gini kok :) itulah gunanya search engine boz...
user image
more 13 years ago

luina

kalo mau bikin program delphi pake webcam juga...webcam yang dipake baiknya merk apa?????kalo logitect gimana???
more ...
  • Pages:
  • 1
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com