закачка файла

← →
anton773 © (2006-07-09 12:31) [0]

Снова здравствуйте! пытаюсь закачать файл с помощью wininet: ... Hinet:= InternetOpen("Mozilla",PRE_CONFIG_INTERNET_ACCESS,nil,nil,0); Header:= "Accept:*/*"; HUrl:= InternetOpenUrl(Hinet,pchar(Edit1.Text),pchar(Header),StrLen(pchar(Header)),0,0) ; if RestartPos > 0 then InternetSetFilePointer(HUrl,RestartPos,nil,0,0); InternetQueryDataAvailable(HUrl,Fsize,0,0); while (Readlen <> 0)and (stop= false) do begin InternetReadFile(hurl,@fbuff,SizeOf(fbuff),Readlen); fs.WriteBuffer(fbuff,Readlen); Application.ProcessMessages; ... Соединение устанавливается но закачка не начинается. PS fs это filestream

← →
Ketmar © (2006-07-09 12:42) [1]

а OpenURL точно отрабатывает? не вредно бы и проверить, что оно там вернуло. а вдруг вовсе 0?

← →
anton773 © (2006-07-09 13:18) [2]

> а OpenURL точно отрабатывает?

ставлю брейкпонт на InternetReadFile значение Hurl= $CC000C ниже привожу полный код процедуры:procedure TForm2.BitBtn1Click(Sender: TObject); var Hinet,HUrl: HINTERNET; Fsize,Readlen,RestartPos: DWORD; fbuff: array[1..1024]of Byte; FS: TFileStream; Header: string; fMode: Word; begin RestartPos:= 0; Fsize:= 0; BitBtn1.Enabled:= false; BitBtn2.Enabled:=true; if FileExists(Edit2.Text) then fMode:= fmOpenReadWrite else fMode:= fmCreate; FS:= TFileStream.Create(Edit2.Text,fMode); FS.Seek(FS.Size,soFromBeginning); Hinet:= InternetOpen("Mozilla",PRE_CONFIG_INTERNET_ACCESS,nil,nil,0); Header:= "Accept:*/*"; HUrl:= InternetOpenUrl(Hinet,pchar(Edit1.Text),pchar(Header),StrLen(pchar(Header)),0,0) ; if RestartPos > 0 then InternetSetFilePointer(HUrl,RestartPos,nil,0,0); InternetQueryDataAvailable(HUrl,Fsize,0,0); while (Readlen <> 0)and (stop= false) do begin InternetReadFile(hurl,@fbuff,SizeOf(fbuff),Readlen); fs.WriteBuffer(fbuff,Readlen); Application.ProcessMessages; end; stop:= false; InternetCloseHandle(HUrl); InternetCloseHandle(Hinet); fs.Free; end;

← →
Ketmar © (2006-07-09 13:30) [3]

что-то мне подозрительно всё это. особенно значение HUrl. к сожалению, проверить точно я не в состоянии. %-)

← →
anton773 © (2006-07-09 13:43) [4]

> подозрительно всё это

а каким должо быть значение Hurl

← →
Ketmar © (2006-07-09 14:16) [5]

дык говорю же -- не знаю. щаз накидаю примерчик, проверю %-)

от это у меня отработало "на ура".
возвращаемые значения, как оказалось, тут пофигу -- главное, чтобы были не nil. %-)

{$APPTYPE CONSOLE} uses Windows, SysUtils, Classes, WinInet; var ih, uh: HINTERNET; hdr: string; fs: TFileStream; buf: packed array [0..1023] of Byte; rd: LongWord; begin ih := InternetOpen("Mozilla", PRE_CONFIG_INTERNET_ACCESS, nil, nil, 0); hdr := "Accept: */*"; uh := InternetOpenUrl(ih, "http://delphimaster.net/view/6-1152433865/", PChar(hdr), Length(hdr), 0, 0); fs := TFileStream.Create("$.$", fmCreate); repeat if not InternetReadFile(uh, @buf[0], SizeOf(buf), rd) then break; if rd = 0 then break; fs.WriteBuffer(buf[0], rd); Write("."); until false; WriteLn; fs.Free(); InternetCloseHandle(uh); InternetCloseHandle(ih); end.

Огромное приогромное спасибо!Работает!!!!

добавлю, что все возвращаемые значения надо проверять на nil. я этого не делал по прчине лени, однако сие есть неверно. %-)

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