Hallo zusammen ich habe ein kleines Program geschrieben für eine video aufnahme, welches in einem teil so ausschaut:
Delphi-Quellcode:
procedure TForm1.StartesequenzielleAufnahme1Click(Sender: TObject);
begin
Aufnahme:=true; AnsichtUpdate1Click(self); //aktualisiere Menüs...
if form1.IniEinzelbild then begin
// Foto - Sequenz
timer1.Interval:=form1.IniIntervall*1000;
TimerStatus:=TSBildFolge;
timer1.Enabled:=true;
end else begin
// Video - Folge
TimerStatus:=TSvideoFolge;
repeat
label1.Caption:='Videoaufnahme';
NextDateiname;
EinVideo; // aufnehmen
Timer1.Interval:=form1.IniEinzelVideoDauer*1000;
timer1.Enabled:=true;
repeat
Application.ProcessMessages; //Abbruchmöglichkeit
until TimerStatus<>TSvideoFolge;
label1.Caption:='Videoerholpause';
EinVideoStop; // erholphase
Timer1.Interval:=form1.IniErholzeit;
timer1.Enabled:=true;
repeat
Application.ProcessMessages; //Abbruchmöglichkeit
label1.Caption:=inttostr(timer1.interval)+'x'+inttostr(Timerstatus);
until TimerStatus<>TSvideoFolgePause;
until TimerStatus=TSStopAnforderung; // abbruch?
Aufnahme:=false;
AnsichtUpdate1Click(self);
end;
end;
nun wird das ganze mit hilfe einer optokoppler Karte und einer kleinen steuerspannung über einen taster gestartet,
der teil mit dem programm code müsste so aussehen laut hersteller
Delphi-Quellcode:
while QApiExtReadDl1(...) = 0 do
Application.ProcessMessages;
für mich ist nun die frage wie ich den teil für die aufnahme einbinden muss, damit die aufnahme rein über den taster gemacht wird ohne das ich nun vorher die aufnahme aktivieren muss. also das es nur über den tastendruck aktiviert wird.