Webcam-Entwicklung: Brauche Eure Hilfe!

[Real_Thunder]

Hallo, ich versuche etwas ähnliches nur, das ich das ganze streamen möchte....

Komme mit dieser Komponente nicht ganz klar, und zwar verstehe ich icht wie OnBitmap aufgerufen wird....

Also ich möchte das Bild Grabben, und das gegrabbte bild dann in einem TImage angezeigt wird.

Ich habe s bis jetzt so gemacht:

Delphi-Quellcode:

unit videotest;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, tsLogBox, ExtCtrls, tscap32_rt, Menus;

type
  TForm1 = class(TForm)
    tsCap321: TtsCap32;
    tsLogBox1: TtsLogBox;
    tsCap32Dialogs1: TtsCap32Dialogs;
    tsCap32PopupMenu1: TtsCap32PopupMenu;
    Button1: TButton;
    Image1: TImage;
    Timer1: TTimer;
    Label1: TLabel;
    Label2: TLabel;
    procedure tsCap321Bitmap(Sender: TObject; Bitmap: TBitmap;
      msSinceFirstFrame: Cardinal);
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
tscap321.Connected:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var testbmp: TBitmap;

begin
  if tscap321.Connected=True then begin


  tscap321.CapOrder:=Grab;
  label1.Caption:='Grabbe';

//   label2.caption:='';

 end;
end;

procedure TForm1.tsCap321Bitmap(Sender: TObject; Bitmap: TBitmap;
  msSinceFirstFrame: Cardinal);
begin
image1.Picture.Bitmap:=Bitmap;
image1.Repaint;
  label2.Caption:='Sende Bitmap';

  end;

end.

Im vorruas vielen Dank