Форум » 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: Сделал Спасибо Паша!



полная версия страницы