Текущий архив: 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.012 c