İnternet Cafe Programı sorunu?

[G.Arkas]

Merhaba arkadaşlar.

Cafedeki bağlı pc listesi serverda listview içerisinde listelenmektedir.
Soru şu Herhangi bir pc reset atınca yada kapanınca veya veya program kapanınca server daki listeden otomatik olarak düşmesini nasıl sağlarım?

Sürekli server dan dan ping atmak bana pek mantıklı gelmedi.Bunun içinde bir thread oluşturmak gerekli.Daha kolay bir yolu olmalı.


iyi çalışmalar arkadaşlar.

[Ertugrul]

ListView a bir sormak lazım o kadar item tcpconnection yoluyla mı yoksa veritabanı yoluyla mı ekleniyor

[G.Arkas]

Ben bizzat kendisine sordum.Ama yeterli cevap alamadım.

Anlık bağlantı veritabanı değil ağ yolu bildiğin socket programlama.

[Ertugrul]

Kullanılan socket bileşeninde onclientdisconnect , onstatechange vb event olmalı. State'i değişen tcp client'ın IP adresinden bağlantısı kopan makina bulunabilir.

[G.Arkas]

arkadaşlar olayı çözdüm takılan olursa diye yayınlıyorum.

Kod: Tümünü seç

for i := 0 To control.Socket.ActiveConnections -1 do

[oguthan]

S.a. arkadaşlar benimde bu konu ile kısmen ilgili bir sorum olacaktı.
Şu anda Diyarbakırda askerlik yapmaktayım ve buradan sizlere selam ederim.

askerliğimi yaptım yerde bir kafeterya var burada arkadaşlar garsonluk yaparak sipariş alıyorlar. bir program geliştirdim masaların tanıtıldığı stokların eklendiği vs..

masalar masa tablosundan while ile tablo sonuna kadar süren bir döngü ile Jvlistview e taşınıyor. Sorunum şu eğer masa dolu ise imagelisteki indexi 0 olan icon, masa dolu ise imagelisteki indexi 1 oln icon yer alsın Jvlistviewimin iteminde.

Kod: Tümünü seç

procedure Tfrm_main.JvExpressButton8Click(Sender: TObject);
begin
Jvlistview1.Items.Clear;
q_liste.Close;
q_liste.Open;

while not q_liste.Eof do
  begin
     if q_listeDURUM.Value='BOŞ' then
     begin
       Jvlistview1.AddItem(q_listeMASA_NO.Value, Pointer(0));
     end;
     if q_listeDURUM.Value='DOLU' then
     begin
       Jvlistview1.AddItem(q_listeMASA_NO.Value, Pointer(1));
     end;
       q_liste.Next;
  end;
end;

bu şekilde tablomdaki masa sayısına göre itemlerim oluşuyor ancak dedğim gibi masa durumuna göre farklı icon kullansın istiyorum ..


yardımlarınız için şimdiden teşekkür ederim..


Allaha emanet olsun. Ramazanımız mübaek olsun.

[conari]

bir imagelist ekle ve resimleri yükle.
Listview BOŞ DOLU yerine StateIndex e 0 veya 1 değerlerini ata.
Listview in stateimages kısmında bu imagelisti göster.
İşlem bu kadar.

[Ertugrul]

Kod: Tümünü seç

procedure Tfrm_main.JvExpressButton8Click(Sender: TObject);
begin
Jvlistview1.Items.Clear;
q_liste.First;
while not q_liste.Eof do
  begin
        with Jvlistview1.Items.Add do
        begin
            if q_listeDURUM.Value='BOŞ' then
              ImageIndex:=0;
            if q_listeDURUM.Value='DOLU' then
               ImageIndex:=1;
            Caption:=q_listeMASA_NO.Value;
        end;
       q_liste.Next;
  end;
end;

[oguthan]

teşekkür ederim. Allah razı olsun.