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

Вниз

download при помощи delphi   Найти похожие ветки 

 
TONG ©   (2004-08-11 14:09) [0]

Нужно закачать из интернет файл и сохранить на ж.диске!
Помогите!


 
KSergey ©   (2004-08-11 14:15) [1]

Вкладка FastNet
Или TNMFtp и F1 к методу Download подробный пример.


 
ssk ©   (2004-08-11 14:19) [2]

http://www.swissdelphicenter.ch/torry/showcode.php?id=412


 
Alaman   (2004-08-23 23:26) [3]

Вот два способа:

Первый способ:
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;

Второй способ:

uses
 ...URLMon;

...
if UrlDownloadToFile(nil, PChar(DTfileURL), PChar(DTFileName), 0, nil)= 0
   then
     Memo1.lines.append("загрузка завершилась успешно")
   else
     Memo1.lines.append("Ошибка загрузки");



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

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

Наверх




Память: 0.47 MB
Время: 0.037 c
1-1097592193
Expl
2004-10-12 18:43
2004.10.31
вызов hlp файла при нажатии на клавишу


4-1096207357
Comp
2004-09-26 18:02
2004.10.31
Все-таки как включить поддержку Visual Styles ????


14-1096871052
bar
2004-10-04 10:24
2004.10.31
Какой мобильник лучше и надёжнее?


3-1096958299
Mitrofan
2004-10-05 10:38
2004.10.31
EhLib DBGrid Как получить сумму по столбцу


1-1097739102
Chris
2004-10-14 11:31
2004.10.31
работа с MSWord через OLE