هل تريد معرفت جلب الملفات من الأنترنت !!!!!

هل تريد جلب((تحميل)) ملفات من الأنترنت

اذا يمكنك ذلك عبر هذا الكود :

Uses 
UrlMon;


function DownloadFile(URL, Path: string): Boolean; 
begin 
  try 
    Result :=  UrlDownloadToFile(nil, PChar(URL), PChar(Path), 0, nil) = 0; 
  except 
    Result := False; 
  end; 
end;

وتقبلوا تحياتي اخوكم SUM