Отправлено: 16.05.16 15:53. Заголовок: Работа с Zip ( LetoDb .and. HBNETIO )

Дима - перекинь два последних поста из http://clipper.borda.ru/?1-1-0-00000465-000-120-0#045.001.001
Там им совсем не место.

 Отправлено: 15.05.16 19:10. Заголовок: Andrey пишет: Единс..

Andrey пишет:

цитата:

Единственно что не сделал ещё один пример, распаковки zip-файла на сервере.

Поднимай RPC сервис на серваке (либа HBNETIO) и делай что нужно с ZIP
Из клиентской программы архивация как вариант выглядит примерно так (если кратко)

 
 netio_connect( lanip, rpcport, , "topsecret" ) 
 netio_funcexec( "HB_ZIPFILEByTDSpan", pathbase+"zip\"+nmzip+".zip",rpc_arx,5,,.t.) 
 netio_disconnect( lanip, rpcport ) 
 

 Отправлено: 16.05.16 00:14. Заголовок: Dima пишет: Поднима..

Dima пишет:

цитата:

Поднимай RPC сервис на серваке

Многие админы рубят этот сервис - не нравиться он им. Спорить уже устал.

Копирование Zip-архива делаю для баз. Сжал базу и занимает в разы меньше места.
Скопировал на сервер Leto (только для инета) и распаковал базы.
По задумке - гораздо быстрей эта операция должна проходить.
Хотел это сделать для больших баз. Мелкие базы Leto "кушает" просто быстро....

 Отправлено: 16.05.16 15:55. Заголовок: Двинул..

Двинул

 Отправлено: 16.05.16 17:01. Заголовок: Необходимо изменить ..

Необходимо изменить функцию Leto_Zip. Теперь параметр lWithPath = .T., что не хорошо. Надо поставить этот параметр в параметрах функции.

FUNCTION leto_Zip( nUserStru, cDirName, acFiles, nLevel, lOverwrite, cPassword, acExclude ) 
    LOCAL cZip, cOldDir, lSuccess 
    LOCAL cFileName := "letotemp.zip" 
    LOCAL lWithPath := .T.    <----- 
 

 Отправлено: 16.05.16 19:05. Заголовок: nbatocanin пишет: Н..

nbatocanin пишет:

цитата:

Необходимо изменить функцию Leto_Zip. Теперь параметр lWithPath = .T., что не хорошо. Надо поставить этот параметр в параметрах функции.

Сделал

 Отправлено: 17.05.16 01:27. Заголовок: Сделал Спасибо Паша..

цитата:

Сделал

Спасибо Паша!