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

Вниз

Господа,как из программы скачать определенный файл с инета   Найти похожие ветки 

 
dor ©   (2003-06-05 14:41) [0]

Господа,как из программы скачать определенный файл(с указанного места: Например: www.delphi.mastak.ru/1.zip) в указанную папку...например в папку с программой.


 
VMcL ©   (2003-06-05 14:49) [1]

>dor © (05.06.03 14:41)

FAQ!


 
VMcL ©   (2003-06-05 14:56) [2]

>dor © (05.06.03 14:41)

UrlDownloadToFile, unit UrlMon.


 
Ihor Osov'yak ©   (2003-06-05 15:04) [3]


procedure TGetHTPResursThread.Execute;
const agentName = "bla-bla";
var
hHttpSession,hReqUrl:HInternet;
Buffer:array[0..1023] of char;
sWork:string;
nRead:cardinal;

begin
res:="";
flOk:=false;
try
if not userPrm.enCustomProxy
then hHttpSession := InternetOpen(agentName,INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0)
else begin
if userPrm.enUseProxy
then hHttpSession := InternetOpen(agentName,INTERNET_OPEN_TYPE_PROXY,
PChar(userPrm.proxyAddr),PChar(userPrm.proxyPort),0)
else hHttpSession := InternetOpen(agentName,INTERNET_OPEN_TYPE_DIRECT,
PChar(userPrm.proxyAddr),PChar(userPrm.proxyPort),0)
end;
if not assigned(hHttpSession) then exit;
try
hReqUrl := InternetOpenUrl(hHTTPSession,PChar(url),nil,0,
//INTERNET_FLAG_PRAGMA_NOCACHE,
INTERNET_FLAG_RELOAD,
0);
if not assigned(hReqUrl) then exit;
try
repeat
InternetReadFile(hReqUrl,@Buffer,sizeof(Buffer),nRead);
if nRead>0 then begin
SetLength(sWork,nRead);
Move(buffer,sWork[1],nRead);
res:=res+sWork;
end;
until nRead=0;
flOk:=true;
finally
InternetCloseHandle(hReqUrl);
end;
finally
InternetCloseHandle(hHTTPSession);
end;
except
end;

end;



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

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

Наверх




Память: 0.47 MB
Время: 0.022 c
14-84551
VAleksey
2003-06-03 15:05
2003.06.26
А так ли много в Вашей жизни зависит от Вас самих?


6-84504
Savage
2003-04-22 11:12
2003.06.26
Закачка файлика на ftp сервер


7-84804
Sirus
2003-04-04 06:56
2003.06.26
Ловушка на принтер...


14-84637
Soft
2003-06-04 13:37
2003.06.26
Hurd против Linux, о Windows и говорить не стоит:)


1-84066
Dr. Andrew
2003-06-07 13:30
2003.06.26
Где ошибка при завершении Hook и как занести данные в TPoint?