| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

скачать файл из инета [D7, WinXP]

viperv ©   (2008-05-27 19:00:00) 

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

---

  (2008-05-27 20:53:00) [1]

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

---

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

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

---

TForumHelp   (2008-05-27 19:16:00) [3]

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

---

TForumHelp   (2008-05-27 19:14:00) [4]

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');


---

Наверх