Danke für die schnellen Antworten...!
Zur 1. Antwort:
Die genannten Samples hatte ich schon, fand darin nichts dazu...Wie eben überhaupt nicht zu dem Thema, außer dem Trick mit dem Timer...
Zu 2.:
Ja, Warnmeldung gibt es (für _CapturedFrames), ist klar...Ohne Timer hatte ich sie auch initialisiert, das mit dem Timer war nur ein Versuch, wenn ich die Variable global deklariere und in FormCreate mit 0 belege, dann lese ich "0".
Wenn eine Variable nicht initialisiert ist, müßte ihr dennoch ein Wert aus einer Funktion zugewiesen werden können...Hier kommt keiner, und dann krieg' ich den Wert, der gerade im Speicher steht. Frage also: Wieso bekomme ich keinen Wert...
Zitat:
Du musst diese Struktur irgendwo dem Capturing-Prozess übergeben ansonsten werden eben diese Variablen nie geändert
Hab's so versucht:
Delphi-Quellcode:
public
_CapStatus: TCapStatus ;
var
Main: TMain;
_CapturedFrames: Int64 ;
implementation
...
procedure TMain.FormCreate(Sender: TObject);
var
...
...
begin
_CapStatus := TCapStatus.Create ;
_CapturedFrames := 0 ;
...
procedure TMain.Timer1Timer(Sender: TObject);
begin
_CapturedFrames:= _CapStatus.dwCurrentVideoFrame + _CapturedFrames ;
Edit_Frame.Text := IntToStr(_CapturedFrames) ;
end;
Klappt auch nicht- Fehlermeldung: Objekt oder Klassentyp erforderlich.
Ohne den Eintrag in Create: Bleibt der Wert der Variable "O".
Eine Struktur dem Cap- Prozeß übergeben, aus dem sie kommt...Grübel...
http://hometown.aol.de/OF001/gruebel_anim.gif
Könnte mich jemand erleuchten ?