تشخیص وجود فایل در اینترنت

[peiman]

سلام به همه
چطوری میشه چک کرد که یه فایلی تو اینترنت هست یا نه
میخوام قبل از اینکه برنامه شروع به دانلودش کنه چک کنم که وسط کار اررور نده
خیلی ممنون

 

[Arash_j13]

می تونی به کمک TIDHTTP که از کامپوننت های iNDY هست یه درخواست HEAD بفرستی و نتیجه رو بررسی کنی ببین فایل وجود داره یا نه

 

[peiman]

یه مقداری بیشتر راهنمایی میکنی
idhttp خروجی بوولین نداره که تو if استفاده کنم

 

[IcedAngel]

می تونی به کمک TIDHTTP که از کامپوننت های iNDY هست یه درخواست HEAD بفرستی و نتیجه رو بررسی کنی ببین فایل وجود داره یا نه

میشه این رو یکم بیشتر توضیح بدی من بیلمیره:blink: !... منم همین مشکل رو دارم ... ممنون

 

[Arash_j13]

متا سفانه من الان دسترسی به دلفی ندارم
اما روش کار این طوریه

idhttp1.head('file_url');
if idhttp1.responsecode<>404 then
showmesssage('file exist')
else
showmessage('file not found')
​

البته این روش بروی بعضی از سرویس دهنده جواب نمیده اما در صدشون خیلی کمه و ممولا جز سایتهایی مثل رپیدشیر هستن

 

[peiman]

سلام
الان اجراش کردم
اگه فایل وجود داشته باشه درست کار میکنه ولی اگه نباشه برنامه هنگ میکنه
و به جای اینکه بگه فایل وجود نداره پیغام time out رو میده
به هر حال دستت درد نکنه همینم کلی کمکه ولی نمیشه اون اررور رو هم برطرف کرد؟

 

[Arash_j13]

باید صبر کنید من یه دلفی نصب کنم ببین این اررو چیه؟

 

[IcedAngel]

من که دلفی بلد نیستم راه دیگه ای وجود نداره ؟:blink:

 

[Arash_j13]

زود نصب می کنم تا فردا صبر کنید

 

[peiman]

ممنون میشم اگه این کار رو بکنی

 

[Arash_j13]

اینو ببینبد اگه مشکلی بود در خدمتم

 

[peiman]

ممنون کامله
به سوال دانلودم هم جواب دادی دستت درد نکنه

 

[peiman]

این کامپوننتها رو از کجا یاد گرفتی
من که جایی تا حالا اموزشش رو ندیدم

 

[Arash_j13]

منم تا حالا آموزشش رو ندیدماما با تمرین یاد گرفتم مثال های خود Indy خوبن برای شروع

 

[keyvan_itman]

اینو ببینبد اگه مشکلی بود در خدمتم

سلام به همه دوستان.
چرا من نمیتونم این فایلو دانلود کنم؟؟؟

 

[Mojgan110]

من هم يه پروژه داشتم كه بايد كانشكن استرينگ را از يه فايل توي اينترنت ميگرفتم .
واسه همين ، چند تا تابع نوشتم واسه اين كار كه خب درست هم بودند و تست كردمشون ديگه.

اصلا اول ببينيم كه به اينترنت وصل هستيم يا نه ؟ :happy:

function GetOnlineStatus : Boolean;
var
  ConTypes : Integer;
begin
  ConTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY;
  if (InternetGetCONNECTEDState(@ConTypes, 0) = False) then
    Result := False
    else
      Result := True;
end;

حالا بهدش ببينيم كه فايلي كه ميخوايم دانلودش كنيم ، در مسيرمون هست يا نه ، آدرسه كامله مسير را بدهيد به پارامتر تابع زير :

Function CheckUrl(url:string):boolean;

var
hSession, hfile: HINTERNET;
dwindex,dwcodelen : DWORD;
dwcode: array[1..20] of char;
res : pchar;
begin
  if pos('http://',lowercase(url))=0 then
     url := 'http://'+url;
  Result := false;
  hSession := InternetOpen('InetURL:/1.0',
       INTERNET_OPEN_TYPE_PRECONFIG,nil, nil, 0);
  if assigned(hsession) then
    begin
      hfile := InternetOpenUrl(
           hsession,
           pchar(url),
           nil,
           0,
           INTERNET_FLAG_RELOAD,
           0);
      dwIndex  := 0;
      dwCodeLen := 10;
      HttpQueryInfo(hfile, HTTP_QUERY_STATUS_CODE,
              @dwcode, dwcodeLen, dwIndex);
      res := pchar(@dwcode);
      result:= (res ='200') or (res ='302');
      if assigned(hfile) then
        InternetCloseHandle(hfile);
      InternetCloseHandle(hsession);
    end;

end;

:happy:

 

[Mojgan110]

توي uses ها هم كه WinInet را اضافه بايد بكنيم ها

 

[peiman]

توي uses ها هم كه WinInet را اضافه بايد بكنيم ها

ممنون مژگان جان!!