Ağ yolunda DirectoryExists kullanımı

[PROGRAMADOR]

Merhaba,

Ağda bir dosyanın var olup olmadığına bakmak için DirectoryExists fonksiyonunu kullanıyorum.

Ağdan yanıtın gelmesinin 10 saniye veyahut da daha fazla bir zaman alması durumunda fonksiyondan çıkma gibi bir durum olur mu yoksa program fonksiyonunun true ya da false döndörmesine kadar program bekler mi?

Başka önerilerinizi de bekliyorum.

Evde tek bilgisayar olduğu için deneme fırsatım olmadı.

[PROGRAMADOR]

Internette bu sorunun cevabını ararken "http://www.tek-tips.com/viewthread.cfm?qid=485487" adresinde bir çözüm buldum:

Kod: Tümünü seç

function WaitForFileExists( filename:string; 
                            timeout:LongInt ): boolean;
begin
  timeout:=GetTickCount + timeout;
  repeat 
    Result:=FileExists(filename);
    if (not Result) then begin 
      Sleep(250);  { wait 1/4 second, and try again ? }
      Application.MainForm.Update;
      Application.ProcessMessages;
    end;
  until Result or ( GetTickCount > timeout )
end;

Ben de bu çözümü DirectoryExists için uyarladım:

Kod: Tümünü seç

function WaitForDirectoryExists( dirname:string;
                            timeout:LongInt ): boolean;
begin
  timeout:=GetTickCount + timeout;
  repeat
    Result:=DirectoryExists(dirname);
    if (not Result) then begin
      Sleep(250);  { wait 1/4 second, and try again ? }
      Application.MainForm.Update;
      Application.ProcessMessages;
    end;
  until Result or ( GetTickCount > timeout )
end;

Sizce işe yarar mı?

[mussimsek]

Ağda bu fonksiyonu kullandım, hiç bir sıkıntı yaşamadım. Bildiğim kadarıyla bu kontrolü son derece hızlı gerçekleştiriyor, 10 sn. sürmez. Diyelim ki çok dosya ve klasör var, 10 saniye sürüyor. O zamanda iş bitene kadar bekler.

Kolay gelsin.

[PROGRAMADOR]

Cevabınız için teşekkür ediyorum.

İyi çalışmalar.