| Вопрос: http gzip - проблема! | Добавлено: 28.11.03 14:54 |
Автор вопроса:  Demon | Web-сайт: update.sugardas.lt | ICQ: 7026585 |
|
Значит так, делаю запрос на http server через Winsock. Получаю данные в компресованном виде (gzip, 'Content-Encoding: gzip'). Вопрос: Как раскомпресовать мне эти данные? |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа: Malyav ICQ: 8440085 Вопросов: 15 Ответов: 117 |
Web-сайт: Профиль | | #1 | Добавлено: 28.11.03 15:03 |
|
'*** Monitoring a DOS Shell Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Const STILL_ACTIVE = &H103 Const PROCESS_QUERY_INFORMATION = &H400 Function Gzip(PathTmp As String, Operation As String) Dim retval As Long Dim hProcess As Long PathDest = PathTmp If Operation = "Gzip" Then hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, Shell(App.Path & "\gzip " + PathTmp, vbHide)) End If If Operation = "Gunzip" Then hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, Shell(App.Path & "\gunzip " + PathTmp, vbHide)) End If Do 'Get the status of the process GetExitCodeProcess hProcess, retval 'Sleep command recommended as well as DoEvents DoEvents: Sleep 100 'Loop while the process is active Loop While retval = STILL_ACTIVE End Function Код в модуль можно положить. Путь короткий, досовский. Ну и файлики gzip.exe и gunzip.exe в директории программы совсем не помешают. |
||
|
Номер ответа: 2 Автор ответа: Demon ICQ: 7026585 Вопросов: 18 Ответов: 96 |
Web-сайт: Профиль | | #2 | Добавлено: 28.11.03 16:36 |
|
Да но какой файл разжимать? Как выделить байты с ответа? [HEADERS] [GZIP CODE] Как выташить байты с '[GZIP CODE]'? |
||
Страница: 1 |