RetourForum Delphi
Nouveau compte - Se connecter - Perdu votre mot de passe?Recherche: Utilisateur - Message

Index > Forum général > Web avec delphiNouveau post - Répondre
Herode
visiteur
Message Web avec delphi message: éditerle 28/01/19 à 19h20


Voici un code qui devrait me permettre de récupérer une image d'une webcam. Chose qu'il ne fait pas. Si quelqu'un pouvait m'aider je lui saurai gré

[code]unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Buttons;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    SaveDialog1: TSaveDialog;
    Button3: TButton;
    Button4: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    hWndC : THandle;
    CapturingAVI : bool;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

const WM_CAP_START                  = WM_USER;
const WM_CAP_STOP                  = WM_CAP_START + 68;
const WM_CAP_DRIVER_CONNECT        = WM_CAP_START + 10;
const WM_CAP_DRIVER_DISCONNECT      = WM_CAP_START + 11;
const WM_CAP_SAVEDIB                = WM_CAP_START + 25;
const WM_CAP_GRAB_FRAME            = WM_CAP_START + 60;
const WM_CAP_SEQUENCE              = WM_CAP_START + 62;
const WM_CAP_FILE_SET_CAPTURE_FILEA = WM_CAP_START + 20;

Function capCreateCapt(dwStyle : longint; x : integer; y : integer; nWidth : integer;nHeight : integerClin d'oeil langue arentWin  : HWND;  nId : integer): HWND; STDCALL EXTERNAL 'AVICAP32.DLL';

procedure TForm1.FormCreate(Sender: TObject);
begin
  CapturingAVI := false;
  hWndC := 0;
  SaveDialog1.Options := [ofHideReadOnly, ofNoChangeDir, ofPathMustExist]
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  hWndC := capCreateCaptureWindowA('My Own Capture Window', WS_CHILD or WS_VISIBLE, Panel1.Left, Panel1.Top, Panel1.Width, Panel1.Height, Form1.Handle, 0);
  if hWndC <> 0 then
    SendMessage(hWndC, WM_CAP_DRIVER_CONNECT, 0, 0 );
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if hWndC <> 0 then begin
    SendMessage(hWndC, WM_CAP_DRIVER_DISCONNECT, 0, 0);
    hWndC := 0;
  end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  if hWndC <> 0 then
    SendMessage(hWndC, WM_CAP_START, 0, 0);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  SendMessage(hWndC, WM_CAP_GRAB_FRAME, 0, 0);
end;

end.

papyvore
visiteur
Message Re: Web avec delphi message: éditerle 05/02/19 à 13h14

salut
ajoutes
 

code


Var function capGetDriverDescriptionA(DrvIndex: Cardinal;
                                  Name: PAnsiChar;
                                  NameLen: Integer;
                                  Description: PAnsiChar;
                                  DescLen: Integer) : Boolean;
                                  stdcall;
                                external 'avicap32.dll' name 'capGetDriverDescriptionA';

function capCreateCaptureWindowA(lpszWindowName: PAnsiChar;
                                dwStyle: Integer;
                                x : Integer;
                                y : Integer;
                                nWidth : Integer;
                                nHeight : Integer;
                                ParentWin: Integer;
                                nId: Integer): Integer;
                                stdcall;
                                external 'avicap32.dll' name 'capCreateCaptureWindowA';


supprime
 

code


Function capCreateCapt(dwStyle : longint; x : integer; y : integer; nWidth : integer;nHeight : integerClin d'oeil langue arentWin  : HWND;  nId : integer): HWND; STDCALL EXTERNAL 'AVICAP32.DLL';


remplace Button1Click par

 

code


procedure TForm7.Button1Click(Sender: TObject);
begin
  if hWndC = 0 then
  begin
  hWndC := CapCreateCaptureWindowA('My Own Capture Window',
    WS_CHILD or WS_VISIBLE, Panel1.Left, Panel1.Top, Panel1.Width,
    Panel1.Height, Form7.Handle, 0);
  end;
  if hWndC <> 0 then
    SendMessage(hWndC, WM_CAP_DRIVER_CONNECT, 0, 0);
end;

Index > Forum général > Web avec delphiNouveau post - Répondre
 page 1 sur 1