AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Netzwerke Delphi Webcam-Entwicklung: Brauche Eure Hilfe!
Thema durchsuchen
Ansicht
Themen-Optionen

Webcam-Entwicklung: Brauche Eure Hilfe!

Ein Thema von JPSelter · begonnen am 2. Mär 2005 · letzter Beitrag vom 4. Nov 2006
Antwort Antwort
Seite 2 von 2     12   
Benutzerbild von JPSelter
JPSelter

Registriert seit: 24. Jan 2005
Ort: Attendorn/Sauerland
235 Beiträge
 
Turbo Delphi für Win32
 
#11

Re: Webcam-Entwicklung: Brauche Eure Hilfe!

  Alt 2. Mär 2005, 21:47
Au mann... habn Brett vorm Kopf

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=

Visit www.ditonovia.de for our breathtaking movies: Herrin der Ringe (Fantasy 2005), Hemisphere (Science-Fiction 2004) & Braveknife (Parodie 2001) and more...
  Mit Zitat antworten Zitat
Benutzerbild von JPSelter
JPSelter

Registriert seit: 24. Jan 2005
Ort: Attendorn/Sauerland
235 Beiträge
 
Turbo Delphi für Win32
 
#12

Re: Webcam-Entwicklung: Brauche Eure Hilfe!

  Alt 2. Mär 2005, 21:52
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=

Visit www.ditonovia.de for our breathtaking movies: Herrin der Ringe (Fantasy 2005), Hemisphere (Science-Fiction 2004) & Braveknife (Parodie 2001) and more...
  Mit Zitat antworten Zitat
Benutzerbild von JPSelter
JPSelter

Registriert seit: 24. Jan 2005
Ort: Attendorn/Sauerland
235 Beiträge
 
Turbo Delphi für Win32
 
#13

Re: Webcam-Entwicklung: Brauche Eure Hilfe!

  Alt 2. Mär 2005, 21:58
OK, jetzt klappts. Es fehlte ein Bitmap.Destroy ... := Danke für die zahlreichen Tips
=JPSelter=

Visit www.ditonovia.de for our breathtaking movies: Herrin der Ringe (Fantasy 2005), Hemisphere (Science-Fiction 2004) & Braveknife (Parodie 2001) and more...
  Mit Zitat antworten Zitat
Real_Thunder

Registriert seit: 25. Apr 2006
197 Beiträge
 
#14

Re: Webcam-Entwicklung: Brauche Eure Hilfe!

  Alt 4. Nov 2006, 01:14
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
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 2 von 2     12   


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:24 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz