Скачать: CL | DM;

Проблема с WinInet   Найти похожие ветки 

← →
dD@N   (2003-10-26 13:02) [0]

var
f:file;
ResumePos,BufferLen,SumSize:Dword;
hSession,hUrl:Hinternet;
Buffer:array[1..1024] of Byte;
err:boolean ;
begin
SumSize:=0;ResumePos:=0;
AssignFile(F,save.Caption);
if FileExists(save.Caption) then
begin
reset(f,1);
ResumePos:=FileSize(f);
seek(f,FileSize(f));
end Else ReWrite(f,1);
nado:=True;
hSession:=InternetOpen("DanGet",PRE_CONFIG_INTERNET_ACCESS,nil,nil,0);
hUrl:=InternetOpenUrl(hSession,pchar(url.Caption),nil,0,0,0);
InternetQueryDataAvailable(hurl,SumSize,0,0);
bar.Panels.Items[2].Text:="FileSize"+IntTostr(SumSize);
if ResumePos>0 then
begin
internetSetFilePointer(hUrl,ResumePos,nil,0,0);
end;
repeat
err:=InternetReadFile(hUrl,@Buffer,sizeof(Buffer),BufferLen);
if err=false then
begin
ShowMessage("Закачка не удалась");
exit
end;
BlockWrite(f,Buffer,BufferLen);
Application.ProcessMessages;
until (BufferLen=0) or Nado=False;
ShowMessage("Закачка прошла успешно");
end;

Эта процедура должна была скачивать файлы но почему то не хочет
скоко не пробовал не работает =(
Если кто знает что надо сделать плиз скажите и правильный вариант на маил скинте. Заранее спасибо

---

← →
dDaN   (2003-10-28 08:24) [1]

Что никто не знает ответа

---

← →
csr   (2003-10-28 16:28) [2]

А... Ты хочешь с докачкой сделать? Если очень надо - пиши на мыло- разберемся. Может хочешь сделать как во флэшгете, чтоб на части рубило файл?

---

← →
dDaN   (2003-10-29 13:14) [3]

Все бы не помешало а ты мыло дай. Но процедура и так с докачкой работаетю Но за дополнительную помошь спасибо.

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.016 c