IdFtp Socket error

[dabaddah]

arkadaşlar forumu aradım problemime en yakın konular bu linklerde var

viewtopic.php?f=2&t=22000&p=125686&hili ... BC#p125686

viewtopic.php?f=2&t=13955&p=80112&hilit ... ror#p80112

ancak buralardan bir sonuç elde edemedim özellikle 1. link benim işime yarar görünüyor ancak nedense bir türlü sonuç alamadım
1.linkte ki kodları doğru kullandığımı düşünüyorum..
sorunum şu;

programım güncelleme kontrolü yapıyor bunun içinde ftp den 1 kblik bir dosya indiriyor eğer yenilik varsa programın güncel halini indiriyor. yoksa devam ediyor çalışmaya, ancak bilgisarda internet yoksa idftp nin tüm hatalarını engelleyecek veya idftp connect işlemine başlamadan durduracak bağlantıyı.idftp1.quit ile

bu hata için bazı kodlar denedim idftpnin onstatus eventinde
if idftp1.connected=false then gibi
ayrıca try except ile denedim

application event nesnesi ile hatayı yakalamayada çalıştım ancak yine sonuç negatif

sorunum temel olarak bu ...
internetin olmadığı durumda aldığım hata mesajı ise socket error #11004

yardım edip ilgilenecek arkadaşlara duyurulur.

[Search]

Arkadasım idftp connect olmadan sende internet bağlantısını kontrol ettir yoksa idftp connect yapma gitsin...

Kod: Tümünü seç

uses wininet;

Kod: Tümünü seç

function UserOnline:boolean;
var
connect_status:dword;
begin
connect_status := 2 {lan}   +
                  1 {modem} +
                  4 {proxy} ;
result := InternetGetConnectedState(@connect_status,0);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   if useronline=true then
      begin
         idftp1.host    :=**********
         idftp1.port    :=21;
         idftp1.username:=**********
         idftp1.password:=***********
      try
         idftp1.connect;
         *
         *
         *
         *
         *
         *
         *
      except
        showmessage('Ftp bağlantısı Başarısız....');
     end;
  end
   else
     begin
       showmessage('İnternet Bağlantısı Bulunamadı...');
     end;
end;

Hatırlatma try-except in gecerlesi olması için exe den calıstırılması lazım

kolay gelsin...

[dabaddah]

sorun try except ile çözülmüştür...
sadece try excepti yanlış yerde kullanıyormuşum iyiki cevabı görmemişim
kendim hallettim yinede herkese çok teşekkürler