Witam.
Otoz moj problem polega na tym, ze pobieram plik ze strony www za pomoca WinInet.
Cale pobieranie dziala pieknie, ale nie udaje mi sie pobrac rozmiaru pliku na serwerze.
dwBufLen := 1024;
dwIndex := 0;
GetMem(pBuf, dwBufLen);
dwBufLen := Length(Buf);
{ pobranie informacji na temat wielkości pliku }
okay := HttpQueryInfo(hURL, HTTP_QUERY_CONTENT_LENGTH, pBuf, dwBufLen, dwIndex);
dwSize := StrToInt(StrPas(pBuf));
Funkcja HttpQueryInfo nie zwraca mi rozmiaru pliku, poniewaz wystepuje blad ERROR_HTTP_HEADER_NOT_FOUND
Przez co wykrzacza sie linia kodu: dwSize := StrToInt(StrPas(pBuf)); i wyswietla EConvertError;
Wiem, ze da sie pobrac plik bez jego rozmiaru, ale koniecznie musze wyswietlic postep pobierania na progressbarze. Ponadto progressbar musi miec wartosc maxymalna ustawiona na 100, dlatego tez musze wykonac dzialanie: TotalSize div dwSize * 100, by ukazywac procentowy postep. Niestety nie majac dwSize wszystko nie dziala tak jak powinno.
P.S Korzystam z kodu zamieszczonego w Kompendium przez p. Adama.