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

Вниз

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

 
MMarat ©   (2002-04-22 09:14) [0]

Мастера ! Мне надо скачать файл с инета. Выдрал процедурку, которая это делает:

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;

var FileOnNet, LocalFileName: string;

begin
FileOnNet:=" http://midimaxiefti.narod.ru/Midi_Maxi_and_Efti_-_Masenko.rar";
LocalFileName:="c:\Masenko.rar";
if GetInetFile(FileOnNet,LocalFileName)=True then
ShowMessage("Скачали!")
else
ShowMessage("Обшибочка!")
end;

Так вот у меня такой вопрос. Как енто сделать, щоб проходила через проксю? В Wininet.pas нашел функцию InternetConnect - там вроде все параметры прокси можно ввести, а вот как правильно использовать функцию - не знаю... Хелп по этим функциям инфу не находит... Мож кто примерчик подкинет, или подскажет где хелп достать по этим функциям ?


 
ec ©   (2002-04-22 15:12) [1]

Ты стандартные примеры смотел ?



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

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

Наверх




Память: 0.47 MB
Время: 0.013 c
1-97237
Андр
2002-05-20 11:52
2002.05.30
Компоновка не в один exe файл


1-97334
Tahion
2002-05-18 19:23
2002.05.30
Работа с Вордом из Делфи


7-97445
sj
2002-03-01 18:22
2002.05.30
Формирование ресурсов сообщений


6-97367
Romanew
2002-03-18 19:09
2002.05.30
Как сделать запрос поисковой системе


3-97204
IvanovSergey
2002-05-05 01:14
2002.05.30
TIBQuery.RowsAffected не рабтает