Data Snap Service Application Uygulamasında Timer kullanımı

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
RADCoder
Üye
Mesajlar: 129
Kayıt: 21 Ara 2013 04:03

Data Snap Service Application Uygulamasında Timer kullanımı

Mesaj gönderen RADCoder »

Merhabalar,
Data Snap ile Service Application uygulamasında Timer kullanmak istedim çalışmadı.
Arkadaşlar, service kullandığımız projede belirli saniye içinde bir şeyleri kontrol etmeye çalışıyorum.
Bunu farklı şekilde nasıl yapa bilirim acaba?
Her bir fikriniz için önceden teşekkür ederim..
Kullanıcı avatarı
SimaWB
Üye
Mesajlar: 1316
Kayıt: 07 May 2009 10:42
Konum: İstanbul
İletişim:

Re: Data Snap Service Application Uygulamasında Timer kullanımı

Mesaj gönderen SimaWB »

Burada kodlarını paylaştığım Thread işinizi görür tahmin ediyorum.
There's no place like 127.0.0.1
Kullanıcı avatarı
RADCoder
Üye
Mesajlar: 129
Kayıt: 21 Ara 2013 04:03

Re: Data Snap Service Application Uygulamasında Timer kullanımı

Mesaj gönderen RADCoder »

Merhabalar, Cevabınız için teşekkür ederim..
Verdiyiniz kodları inceledeim, tek sorum:
Kontrol etmek istediyim işlemleri Execute içindemi yazılacak acaba?
Kullanıcı avatarı
SimaWB
Üye
Mesajlar: 1316
Kayıt: 07 May 2009 10:42
Konum: İstanbul
İletişim:

Re: Data Snap Service Application Uygulamasında Timer kullanımı

Mesaj gönderen SimaWB »

Hayır, belirlediğiniz süre sonunda(Interval) TTimerThread'in OnTimer olayı tetiklenecek. Bu thread'in kullanımına örnek uPublicIP.pas içerisinde mevcut.
Dikkat etmeniz gereken; benim örneğimde Interval dakika cinsinden gerekiyordu o yüzden TTimerThread.Create içinde intervali 60*1000 ile çarptım.
There's no place like 127.0.0.1
Kullanıcı avatarı
sabanakman
Kıdemli Üye
Mesajlar: 3081
Kayıt: 17 Nis 2006 08:11
Konum: Ah bi Antalya olaydı keşke (Ankara)

Re: Data Snap Service Application Uygulamasında Timer kullanımı

Mesaj gönderen sabanakman »

Eğer uygulamanızın TService modülünün onExecute olayını örnekteki kod gibi yaparsanız bu modülde bulunan Timer bileşeni çalışacaktır.
vkamadan yazdı:

Kod: Tümünü seç

while not Terminated do ServiceThread.ProcessRequests(True);
Şaban Şahin AKMAN
_________________
Derin olan kuyu değil kısa olan iptir. - .
Cevapla