On-line: гостей 0. Всего: 0 [подробнее..]
АвторСообщение
постоянный участник




Пост N: 4931
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 16.05.16 15:53. Заголовок: Работа с Zip ( LetoDb .and. HBNETIO )


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

Спасибо: 0 
ПрофильЦитата Ответить
Ответов - 6 [только новые]


администратор




Пост N: 5656
Зарегистрирован: 17.05.05
ссылка на сообщение  Отправлено: 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 )


Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 4927
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 16.05.16 00:14. Заголовок: Dima пишет: Поднима..


Dima пишет:

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



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

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


Спасибо: 0 
ПрофильЦитата Ответить
администратор




Пост N: 5658
Зарегистрирован: 17.05.05
ссылка на сообщение  Отправлено: 16.05.16 15:55. Заголовок: Двинул..


Двинул

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 86
Зарегистрирован: 06.05.14
ссылка на сообщение  Отправлено: 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. <-----





Спасибо: 0 
ПрофильЦитата Ответить
Администратор




Пост N: 3442
Зарегистрирован: 23.05.05
ссылка на сообщение  Отправлено: 16.05.16 19:05. Заголовок: nbatocanin пишет: Н..


nbatocanin пишет:

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



Сделал

Спасибо: 1 
ПрофильЦитата Ответить



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



 цитата:
Сделал



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

Спасибо: 0 
ПрофильЦитата Ответить
Ответ:
1 2 3 4 5 6 7 8 9
большой шрифт малый шрифт надстрочный подстрочный заголовок большой заголовок видео с youtube.com картинка из интернета картинка с компьютера ссылка файл с компьютера русская клавиатура транслитератор  цитата  кавычки моноширинный шрифт моноширинный шрифт горизонтальная линия отступ точка LI бегущая строка оффтопик свернутый текст

показывать это сообщение только модераторам
не делать ссылки активными
Имя, пароль:      зарегистрироваться    
Тему читают:
- участник сейчас на форуме
- участник вне форума
Все даты в формате GMT  3 час. Хитов сегодня: 17
Права: смайлы да, картинки да, шрифты да, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет