Webcam-Entwicklung: Brauche Eure Hilfe!

[JPSelter]

Au mann... habn Brett vorm Kopf :D

Aber der Speicher läuft immernoch voll. Konnte aber jetzt den Übertäter einkreisen:

Delphi-Quellcode:

procedure processGrab;
begin
  Form1.tsCap321.CapOrder:=start;
  Form1.tsCap321.CapOrder:=grab; <-- jedesmal werden 2MB auf den Speicher addiert
  Form1.tsCap321.CapOrder:=stop;
end;

Hmmmm... ich fürchte jetzt kann mir nur wer weiterhelfen, der Erfahrung mit tsCap32 hat...

[JPSelter]

Noch eine Überlegung: Der grab Befehl löst jedesmal OnBitmap aus, wobei jedesmal eine Bitmap erzeugt wird. Kann es sein, dass er immerwieder neue Bitmaps erzeugt und die alten nicht aus dem Speicher löscht? Wie werde ich diese Bitmaps in

Delphi-Quellcode:

procedure TForm1.tsCap321Bitmap(Sender: TObject; Bitmap: TBitmap;
  msSinceFirstFrame: Cardinal);

wieder los?

[JPSelter]

OK, jetzt klappts. Es fehlte ein Bitmap.Destroy ... := Danke für die zahlreichen Tips :)

[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