Форум » LetoDB, HbNetio. » Работа с Zip ( LetoDb .and. HBNETIO ) » Ответить
Работа с Zip ( LetoDb .and. HBNETIO )
Andrey: Дима - перекинь два последних поста из http://clipper.borda.ru/?1-1-0-00000465-000-120-0#045.001.001 Там им совсем не место.
Ответов - 6
Dima: Andrey пишет: Единственно что не сделал ещё один пример, распаковки zip-файла на сервере. Поднимай RPC сервис на серваке (либа HBNETIO) и делай что нужно с ZIP Из клиентской программы архивация как вариант выглядит примерно так (если кратко) [pre2] netio_connect( lanip, rpcport, , "topsecret" ) netio_funcexec( "HB_ZIPFILEByTDSpan", pathbase+"zip\"+nmzip+".zip",rpc_arx,5,,.t.) netio_disconnect( lanip, rpcport ) [/pre2]
Andrey: Dima пишет: Поднимай RPC сервис на серваке Многие админы рубят этот сервис - не нравиться он им. Спорить уже устал. Копирование Zip-архива делаю для баз. Сжал базу и занимает в разы меньше места. Скопировал на сервер Leto (только для инета) и распаковал базы. По задумке - гораздо быстрей эта операция должна проходить. Хотел это сделать для больших баз. Мелкие базы Leto "кушает" просто быстро....
Dima: Двинул
nbatocanin: Необходимо изменить функцию Leto_Zip. Теперь параметр lWithPath = .T., что не хорошо. Надо поставить этот параметр в параметрах функции. [pre2]FUNCTION leto_Zip( nUserStru, cDirName, acFiles, nLevel, lOverwrite, cPassword, acExclude ) LOCAL cZip, cOldDir, lSuccess LOCAL cFileName := "letotemp.zip" LOCAL lWithPath := .T. <----- [/pre2]
Pasha: nbatocanin пишет: Необходимо изменить функцию Leto_Zip. Теперь параметр lWithPath = .T., что не хорошо. Надо поставить этот параметр в параметрах функции. Сделал
nbatocanin: Сделал Спасибо Паша!
полная версия страницы