| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Проблема с WinInet [D7, WinXP]

dD@N ©   (2003-10-26 13:02:00) 

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-29 13:14:00) [1]

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

---

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

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

---

dDaN   (2003-10-28 08:24:00) [3]

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

---

Наверх