| Вопрос: Определение размера файла | Добавлено: 25.12.06 22:43 |
Автор вопроса:  Pank | ICQ: 317309293 |
|
Столкнулся с проблемой. Нужно определиить текущий размер файла который в данный момент качается с и-нета. Начальное состояние при запуске програмы он выводит, а вот дальше один и тот же размер. В чем ошибка? Private Sub Command1_Click()
On Error GoTo Fout Dim ZzZ As New CdlgEx ZzZ.ShowOpen txtFileName = ZzZ.FileName Fout: Exit Sub End Sub Private Sub Command2_Click() Label1.Caption = FileLen(txtFileName.Text) End Sub Private Sub Timer1_Timer() On Error GoTo err If Timer1.Enabled = True Then Label1.Caption = FileLen(txtFileName.Text) End If err: Exit Sub End Sub |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #1 | Добавлено: 26.12.06 00:24 |
FileLen неработает с удалёнными файлами  Для определение размера файла нужно послать запрос "HEAD имя_файла", в ответ придёт только заголовок http пакета, в котором будет Content-Length... Если файл всёравно скачивается, имеет смысл сразу делать запрос GET и точно так же парсить первый пакет на наличие Content-Length
|
||
Страница: 1 |