Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.08.09;
Скачать: CL | DM;

Вниз

скачать файл из инета   Найти похожие ветки 

 
viperv   (2008-05-27 19:00) [0]

Подскажите плиз, как скачать файл из инета? например цель такая есть на сервере текстовый файл (www.mysyte.ru\text.txt), мне нужно его скачать в указанное место (c:\temp), ну а дальше я его открываю и считываю текстовку...


 
TForumHelp ©   (2008-05-27 19:14) [1]

function GetInetFile(fileURL, FileName: String): boolean;
const BufferSize = 1024;
var
hSession, hURL: HInternet;
Buffer: array[1..BufferSize] of Byte;
BufferLen: DWORD;
f: File;
sAppName: string;
begin
Result:=False;
hSession := InternetOpen(PChar("IE"),
              INTERNET_OPEN_TYPE_PRECONFIG,
             nil, nil, 0);
try
hURL := InternetOpenURL(hSession,
          PChar(fileURL),
          nil,0,0,0);
try
 AssignFile(f, FileName);
 Rewrite(f,1);
 repeat
  InternetReadFile(hURL, @Buffer,
                   SizeOf(Buffer), BufferLen);
  BlockWrite(f, Buffer, BufferLen)
 until BufferLen = 0;
 CloseFile(f);
 Result:=True;
finally
 InternetCloseHandle(hURL)
end
finally
InternetCloseHandle(hSession)
end
end;

function CheckInetUrlExist(url: string): boolean;
var
NetHandle: HINTERNET;
UrlHandle: HINTERNET;
begin
Result := False;
NetHandle := InternetOpen(PChar("IE"), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
if Assigned(NetHandle) then begin
UrlHandle := InternetOpenUrl(NetHandle, PChar(Url), nil, 0, INTERNET_FLAG_RELOAD, 0);
if Assigned(UrlHandle) then begin
Result := True;
End;
End;
InternetCloseHandle(NetHandle);
InternetCloseHandle(UrlHandle);
end;


в твоем случае:

If CheckInetUrlExist("http://www.mysyte.ru/text.txt") then GetInetFile("http://www.mysyte.ru/text.txt", "c:\temp\text.txt");


 
TForumHelp ©   (2008-05-27 19:16) [2]

Кстати, и не забудь включить WinSock и WinInet! :)


 
viperv   (2008-05-27 19:21) [3]

ок спс буду пробовать...


 
имя   (2008-05-27 20:53) [4]

Удалено модератором



Страницы: 1 вся ветка

Текущий архив: 2009.08.09;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.022 c
15-1243715424
Юрий
2009-05-31 00:30
2009.08.09
С днем рождения ! 31 мая 2009 воскресенье


15-1244451289
Кто б сомневался
2009-06-08 12:54
2009.08.09
Посоветуйте компонент для локализации ПО, для D2009


15-1244320205
Юрий
2009-06-07 00:30
2009.08.09
С днем рождения ! 7 июня 2009 воскресенье


4-1213787176
Layner
2008-06-18 15:06
2009.08.09
Узнать Uptime свыше 49 дней...


8-1196088301
P_P_P
2007-11-26 17:45
2009.08.09
Частота звука