button click bir türlü çalışmıyor

[forumsad]

arkadaşlar ip kamera ile ilğili bir active x kompenantım var forma ekliyorum çalıştırmak için bir butona gerekli kodları yazıyorum

çalıştırıp butana tıkladığıma ip kameradan görüntü alıyorum buraya kadar bir sorun yok


ama otomatik çalıştırmak için bir timer koyup timer ile buton click yaptırıyorum ama çalışmıyor kafayı yiyeceğim

tecrübeli arkadaşların yardımlarına ihtiyacım var teşekkürler..

Kod: Tümünü seç

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,Buttons, OleCtrls, DVM_IPCAM2Lib_TLB, StdCtrls;


procedure TForm1.Button1Click(Sender: TObject);
begin
DVM_IPCam21.MonitorConnect('169.254.1.126',81,'admin','admin');
DVM_IPCam21.PlayVideo;
end;


procedure TForm1.Timer1Timer(Sender: TObject);
begin
Button1.Click;
Timer1.Enabled:=false;
end;

hiç bir şekilde otomatik çalışmıyor butona elle tıkladığımda ise çalışıyor

saygılarımla

[forumsad]

sorunu 2 timer kullanarak çözdüm
1 timer:
DVM_IPCam21.MonitorConnect('169.254.1.126',81,'admin','admin');

bu komutu gönderiyor komut ip kamera ile iletişime geçip şifreleri onaylıyor bu işlem için 2 sn gibi bir süre vermek
gerekiyor arkasından

2 timer:
DVM_IPCam21.PlayVideo; dediğimde çalışıyor...


lazım olan arkadaşlara buyrun bu arda..

DVM_IPCam21.Photo2('resim\res1.jpg') ; //resim alma kodu..
DVM_IPCam21.StopVideo; //durdurma kodu


teşekkürler

[orhancc]

Bu şekilde düğmeyi otmatik tetikler başka bir kodun timeri durduruyor olabilir mi ? Form açılırken timer enabled değilse zaten tetikleme yapmaz.

[forumsad]

hocam hiç bir şey anlamadım çok garip bir kompenant timer ile çalıştığına duacıyız başka bir sorunu daha çıktı

active x hangi formda ise ve o form aktif değilse gene çalışmıyor yani mutlaka o formu açmalıyım arkaplanda kalarak çalıştıramıyorum

bende mecbur bu şekilde yaptım
kameraform.show;

//2 timer ile kamerayı aç

kameraform.hide;


bu şekilde çalıştırıyorum başka çare bulamadım

saygılarımla