Remote PC -ile baqlantini yoxlamaq

[rahim_azeri]

Merhaba arkadaslar.Beni Hamachi ile internet uzerinden diger bilgisayarla baqlanti qurmusam,bazen bu baqlantilar kesilmis olur,ben istiyorum ki delphi ile her 2 dakikadan bir bu baqlantiyi control edim eger baqlanti kesilmishse showmessag-da baqlantini kesilmesini bildirsin...!Lutfen yardim edin...ONCEDEN TESEKKURLER....!

[mkysoft]

Eğer bilgisayarların ping portları açıksa, indy companentleri içinde ping nesne olması lazım, timer nesnesi içinde berirli aralıklarla ping yaparak bilgisayarların sistemde olup olmadığını anlayabilirsiniz. eğer programınız veri tabanına bağlanıyorsa, yine timer nesnesi içinde belirli aralıklarsa veri tabanıdan sadece sistem tarihini çekecek basit bir sorgu çalıştırabilirsiniz.

[rahim_azeri]

Kardes baqlanti olmayanda hata veriyor "Socket Erroer #11004 " ne yapmaq lazimdir ki bu error gorunmesin?

[orhancc]

Kod: Tümünü seç

try
  //kodun buraya
except
 // buraya hata mesajı yazabilirsin ya da boş bırakırsın. Delphiden denersen hata alırsın programı tek çalıştırırsan hata gözükmez
end;

[rahim_azeri]

Kardes bu kod yanlismi? BU kod yazirim Scket error hatasi veriyor...!

procedure TForm1.Button1Click(Sender: TObject);

begin
try
IdIcmpClient1.Host:='5.94.136.xxx';
IdIcmpClient1.Ping();
Label1.Caption:=IntToStr(IdIcmpClient1.ReplyStatus.MsRoundTripTime);
except

end;
end;

Lutfen yardim edin...!

[orhancc]

Kodu Delphi içinden çalıştırma dışarıdan sadece programı çalıştır hata vermez o şekilde.

[rahim_azeri]

Kardes bu kodu disarda calistiriram label.caption deyismir..

[emin_as]

Kodu aşagıdaki gibi düzenle. Ping de sorun çıkarsa label1.caption bölümü çalışmaz, except e gider ve showmessage ile hatayı gösterir.

Kod: Tümünü seç

try
  IdIcmpClient1.Host:='5.94.136.xxx';
  IdIcmpClient1.Ping();
  Label1.Caption:=IntToStr(IdIcmpClient1.ReplyStatus.MsRoundTripTime);
except
  on E:ESocketError do 
    ShowMessage('Soket hatası: '+E.msg);
end;

[Shou]

100 kişi aynı anda bi makınaya ping atsa zarar vermezmi?

[mkysoft]

zarar vermez sadece geçici süre devre dışı kalır.

[ikra]

ping atarken paket boyutu belirlenebiliyor olmasi lazim.
en azindan dos komut penceresinde bu imkan mevcut.

programda da bir sekilde ping'in paket boyu kücültülürse, 100 pc'nin ayni anda ping atmasi zorluk cikartmaz.

Allah sabir versin...