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

Вниз

Как скачать файл HTTP/FTP   Найти похожие ветки 

 
ruffest   (2003-12-03 00:11) [0]

Как сохранить файл с некоторого URL на локальной машине используя HTTP\FTP? как проше так и лучше. спасибо.


 
ruffest   (2003-12-03 00:18) [1]

Извините господа, уважаемые..
сам нарыл токошто!

Качаем файл из Internet
(Delphi)
Если ваша программа содержит подключаемые модули (BPL или DLL) или есть необходимость обновлять саму программу, то наверняка стояла проблема обновления копий программы. С развитием Internet появилась прекрасная возможность сделать это быстро и красиво. В данной статье мы расскажем, как добавить опцию автообновления программ из Internet.
Delphi дает нам полный доступ к API WinInet (wininet.pas), что позволяет подключиться и скачать любой файл с указанного вебсайта, используя протоколы FTP или HTTP. Например, мы можем использовать функции API WinInet для создания FTP-браузера или программы для поиска на публичных FTP-серверах заданных файлов.
Основная функция нашей программы - GetInetFile:

uses Wininet;

function GetInetFile(const 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;
sAppName := ExtractFileName(Application.ExeName);
hSession := InternetOpen(PChar(sAppName), 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;



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

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

Наверх




Память: 0.47 MB
Время: 0.078 c
1-16268
Анонимщик
2004-01-22 16:37
2004.02.06
Деструктор в конструкторе


1-16349
Vitalik
2004-01-24 15:59
2004.02.06
Классы


4-16797
FireMan_Alexey
2003-12-01 09:18
2004.02.06
Контроль запуска и выгрузки приложения


3-16152
AGN
2004-01-14 13:28
2004.02.06
БД + File


11-16201
Nomadic
2003-05-21 14:18
2004.02.06
Нет иконки в заголовке формы под KOL 1.73