ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / архивация (DOS архиваторы не предлагать)
17 сообщений из 17, страница 1 из 1
архивация (DOS архиваторы не предлагать)
    #32685846
Denis_Alekseevich
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Denis_Alekseevich
Гость
Народ поискал в архиве форума и все что нарыл связанно с ДОСом ...написал я прогу архивации под этот ДОС :-(( неудобно... во первых проблемма ограниченности 8 символов, пробело и русских букв ... во вторых чета не всегда срабатывает если база в сети (ну эт можт прога не совсем отработанна) и в третьих задолбит этот "черный экран" (хотя слышал, что его мона скрыть) короче нужны решения под Windows
please!!!! Help aaaa!!!!!!!!!
...
Рейтинг: 0 / 0
08.09.2004, 16:51
| Ответить | Цитировать | Написать  
архивация (DOS архиваторы не предлагать)
    #32685868
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
leaf
Участник
винрар не пробывали
...
Рейтинг: 0 / 0
08.09.2004, 17:00
| Ответить | Цитировать | Написать  
архивация (DOS архиваторы не предлагать)
    #32685869
Фотография ScareCrow
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ScareCrow
Участник
а что сделать то надо?
...
Рейтинг: 0 / 0
08.09.2004, 17:00
| Ответить | Цитировать | Написать  
архивация (DOS архиваторы не предлагать)
    #32686252
IgorProgrammer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IgorProgrammer
Гость
Может там где читал не все уточнили...

Код: plaintext
ограниченности  8  символов
обзывай его как-то по своему...
например moy.rar
потом переименовуй его в че-пожелаешь
RENAME moy.rar TO неархивный_файл.ddd
для распаковки обратная операция переименования...

Код: plaintext
пробело и русских букв ...
CPCONVERT - в дос кодировку...
aa=CPCONVERT(1251,866,'Привет')
Чтоб дуплило пробелы надь в кавычки заталкивать строку с возможными пробелами

Код: plaintext
во вторых чета не всегда срабатывает если база в сети
Эт надо отлаживать доступ к файлам или записям...(иль еще че-то).
Эт к архивайции дело не имеет...

Код: plaintext
и в третьих задолбит этот "черный экран"
создаешь батник с приблиз-кодом

Код: plaintext
lcArh="rar a -cfg- -ri15 -ep " + "ARH\MOY" + " VREM"
VREM - Папка откиль все файлы пакуем...
ARH\MOY - где создаем и какой файл...
Надо учесть что папки должны существовать в тек-директории

и запускаешь через РанЕндВейт...
он и черный экран убъет и подождет пока не запакует...
strfoxrun = "foxrun.pif" - ниже 2000
strfoxrun = "cmd.exe" - для 2000 и выше
strarch = "moy.but"

Run_Wait=RunAndWait('&strfoxrun /C &strarch',1)

У меня пашет как дети в школу...

Желаю удачи...

...
Рейтинг: 0 / 0
08.09.2004, 19:54
| Ответить | Цитировать | Написать  
архивация (DOS архиваторы не предлагать)
    #32686497
Denis_Alekseevich
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Denis_Alekseevich
Гость
всем большое спасибо за участие... но я всеже хотел бы как -то приладить архиватор под винду...
2 IgorProgrammer...
под ограничением 8 символов я имею ограничения связанные с путем ...напр
\\Server\Privat\Klassificator\potrebnost\... дос этого не понимает..
насчет того чтобы в "" заключать пути с русскими буквами и пробелами ...пробывал ...в самой проге все на ура пашет .... а как дело доходит до архивации (програмно формирую файл zapusk.bat в нем пишу ...
"C:\Program Files\Программы АСУП\Потребность в хлопке\arj" a -e \\SERVER\PRIVAT\KLASSIFICATOR\POTREBNOST\Copybase\08_09_04.arj \\SERVER\PRIVAT\KLASSIFICATOR\POTREBNOST\2004\*.*) не прокатывает...
да и еще одна проблемка ...если вместо "\\SERVER\" в батник вставляешь какой-нить сетевой диск "W:\" програмно не срабатывает... а если просто батник запустить из командной строки... все ОК!
поэтому и хачу помучиться с архивированием под винду!!!
P.S. кавычки как тока не пробывал ставить и всю строчку целиком и по одиночке ....
...
Рейтинг: 0 / 0
09.09.2004, 08:42
| Ответить | Цитировать | Написать  
архивация (DOS архиваторы не предлагать)
    #32686596
Гость_xxx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость_xxx
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
#DEFINE SW_SHOWNORMAL  1 
#define ERROR_BAD_FORMAT                11 
#define ERROR_FILE_NOT_FOUND             2 
#define ERROR_PATH_NOT_FOUND           3 
#define SE_ERR_FNF             	      2    
#define SE_ERR_PNF              	      3    
#define SE_ERR_ACCESSDENIED     	      5    
#define SE_ERR_OOM              	      8    
#define SE_ERR_SHARE                         26 
#define SE_ERR_ASSOCINCOMPLETE        27 
#define SE_ERR_DDETIMEOUT                28 
#define SE_ERR_DDEFAIL                       29 
#define SE_ERR_DDEBUSY                      30 
#define SE_ERR_NOASSOC                     31 

Declare  Integer ShellExecute In Shell32.Dll Integer, String @, String @, String @, String @, Integer
_PATH_ARH_      = "C:\PROGRAM FILES\WINRAR\WINRAR.EXE"+CHR( 0 ) 

&& _PATH_ZAPFILES - Название файла-архива с полным путем (расширение
&& могут быть как ZIP так и RAR)
&& _PATH_TMP_FOR_ARH_ - временный каталог для проведения операции архивации
Local c_sriptrar as String
c_sriptrar = "a -r "+_PATH_ZAPFILES+'  '+"*.*"
nRezCode = ShellExecute(nwnd, Null,@_PATH_ARH_,@c_sriptrar,@_PATH_TMP_FOR_ARH_ ,SW_SHOWNORMAL)
? nRezCode
&& Список ошибок описан вверху
&& если > 31  все ОК.

Так устроит ?
...
Рейтинг: 0 / 0
09.09.2004, 09:56
| Ответить | Цитировать | Написать  
архивация (DOS архиваторы не предлагать)
    #32686606
MarinaVP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MarinaVP
Гость
Может лучше использовать Xceed ZIP ActiveX Library ?
Вот анонс из хелпа

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Zip compression and decompression engine

·	Fast, low memory usage compression engine.

·	100% compatible with the existing PKZip 2.04g format.

·	Regular, spanned and self-extracting zip files created by Xceed Zip can be used by any of today's existing unzipping applications, and vice-versa.

·	Stores and retrieves the latest zip file format extensions, allowing Unicode filenames and NT file attributes, extra time stamps and security permissions to be stored in the zip file.

·	No need to repair corrupted zip files. Xceed Zip automatically tries to recover from errors and reports any inconsistencies found in the zip file while unzipping.

www.xceedsoft.com
...
Рейтинг: 0 / 0
09.09.2004, 10:01
| Ответить | Цитировать | Написать  
архивация (DOS архиваторы не предлагать)
    #32686621
alexFV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alexFV
Участник
Может лучше использовать Xceed ZIP ActiveX Library ?
Как я понимаю этот компонент работает только с zip расширениями, я прав? (распакует ли он rar архив)?
...
Рейтинг: 0 / 0
09.09.2004, 10:08
| Ответить | Цитировать | Написать  
архивация (DOS архиваторы не предлагать)
    #32686624
Гость_xxx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость_xxx
Гость
Зачем? Потом еще OCX c cобой таскать и регить, лучше уж в таком
случае FLL написать, 1 API функция и делов на 10 минут с обработкой ошибок.
Я так и делаю. Все что не может фокс пихаю в FLL и все тип-топ.
...
Рейтинг: 0 / 0
09.09.2004, 10:09
| Ответить | Цитировать | Написать  
архивация (DOS архиваторы не предлагать)
    #32686784
MarinaVP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MarinaVP
Гость
2AlexFV
Ну конечно, это же не RAR ActiveX. Хотя большой принципальной разницы в качестве сжатия я не вижу, особенно при паковке офисных документов или фокс таблиц. Причем можно к нему привернуть свой progressbar, что бы пользователь не зевал

Гостю
XCeedZIP.DLL 323408 байт, а уж проверить ветку реестра и написать DllRegisterServer не составляет великого труда зато и получаю нормальный контрол. А вы при этом еще и setup для WinRAR будете за собой таскать или обяжете пользователя сначала его приобрести ? А если пользователь больше любит WinZIP ?

ГостьВсе что не может фокс пихаю в FLL и все тип-топ.

Это надо понимать свой архиватор написали ? Ой, а не поделитесь исходниками ? И еще какой алгоритм сжатия вы используете в своей FLL ?
...
Рейтинг: 0 / 0
09.09.2004, 11:03
| Ответить | Цитировать | Написать  
архивация (DOS архиваторы не предлагать)
    #32686993
IgorProgrammer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IgorProgrammer
Гость
Denis_Alekseevich:

Код: plaintext
1.
2.
3.
4.
5.
6.
под ограничением  8  символов я имею ограничения связанные с путем ...напр
\\Server\Privat\Klassificator\potrebnost\... дос этого не понимает..
насчет того чтобы в "" заключать пути с русскими буквами и пробелами ...пробывал ...в самой проге все на ура пашет .... а как дело доходит до архивации (програмно формирую файл zapusk.bat в нем пишу ...
"C:\Program Files\Программы АСУП\Потребность в хлопке\arj" a -e \\SERVER\PRIVAT\KLASSIFICATOR\POTREBNOST\Copybase\08_09_04.arj \\SERVER\PRIVAT\KLASSIFICATOR\POTREBNOST\ 2004 \*.*) не прокатывает...
да и еще одна проблемка ...если вместо "\\SERVER\" в батник вставляешь какой-нить сетевой диск "W:\" програмно не срабатывает... а если просто батник запустить из командной строки... все ОК!
поэтому и хачу помучиться с архивированием под винду!!!
P.S. кавычки как тока не пробывал ставить и всю строчку целиком и по одиночке ....

Читайте вниманетельней про пути...
В главной директории есть две папки...
Временная в которой надо паковать файл...
И архивная где создается архив...

После создания архива копируйте его и переназываете ка-угодно и куда угодно... Соблюдая правила RENAME

Пример:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
sele * From "C:\Program Files\Программы АСУП\Потребность в хлопке\a1.dbf";
into .\Vrem\a2.dbf
use in a2

lcButPut = CPCONVERT( 1251 , 866 ,"ARH\MOY")
lcArh="rar a -cfg- -ri15 -ep " + lcButPut + " VREM"

gnErrFile = FCREATE('rar.bat')
IF gnErrFile <  0      && Check for error opening file
	RETURN
ELSE  && If no error, write to file
   =FPUTS(gnErrFile ,"echo off")		
   =FPUTS(gnErrFile ,"cls")
   =FPUTS(gnErrFile ,"echo DATA ANALIZIS")		
   =FPUTS(gnErrFile ,lcArh)
ENDIF
=FCLOSE(gnErrFile )     && Close file
RENAME .\ARH\MOY.RAR TO;
"\\SERVER\PRIVAT\KLASSIFICATOR\POTREBNOST\2004\бредовый.файл"
strfoxrun = 'foxran.pif'
strarch \ 'rar.but'
dele file ('rar.bat')
Run_Wait=RunAndWait('&strfoxrun /C &strarch', 1 )

Примечание...
В главной директории должен лежать екзешник досовского рара и толз.длл

Сорри за неточности не проверял...

У меня работает по такому принцыпу...
С обработками ошибок...
Проверками на наличие файлов...
Проверка на создание архива и вместимости на диске-дискете.
И еще кучей прибамбасов... Начнешь юзать поймешь...

По-поводу не досовского архиватора...
Попробуй сказать пользователю что дополнительно надо его купить...
Или включить его в стоимость продукта...

Ведь специфика нашего народа -> ЛЮБИТ ШАРУ...

Желаю удачи...
...
Рейтинг: 0 / 0
09.09.2004, 11:56
| Ответить | Цитировать | Написать  
архивация (DOS архиваторы не предлагать)
    #32687059
Гость_xxx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость_xxx
Гость
Да не переживайте так MarinaVP и Вы со временем научитесь :))
...
Рейтинг: 0 / 0
09.09.2004, 12:17
| Ответить | Цитировать | Написать  
архивация (DOS архиваторы не предлагать)
    #32687106
MarinaVP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MarinaVP
Гость
Гость

А я и не переживаю, просто последнюю FLL'ку писала только для того чтобы отловить время бездействия фоксовсокой программы. Если к примеру юзер что-то там в ворде тыкает, или карты раскладывает, а фоксовская программа простаивает, вот тогда пользователю предлагается ввести пароль повторно.
А в остальном необходимости писать что-то на Си не возникало, в том числе и с передачей и получением больших стурктур из WinAPI с адресами или ссылками на другие объекты. Зачем ? Если все это можно сделать на фоксе.
...
Рейтинг: 0 / 0
09.09.2004, 12:30
| Ответить | Цитировать | Написать  
архивация (DOS архиваторы не предлагать)
    #32687183
MarinaVP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MarinaVP
Гость
IgorProgrammer По-поводу не досовского архиватора...
Попробуй сказать пользователю что дополнительно надо его купить...
Или включить его в стоимость продукта...

Вот из любопытсва проверила
ARJ - This SHAREWARE program is NOT REGISTERED
PKZIP\UNZIP - a registration of $33 would be encouraged.
RAR\WinRAR - SHAREWARE
LHA - FREE
WINZIP - SHAREWARE
7-ZIP FREE
ActiveX - MakeCab.MakeCab - идет вместе с Win2k, WinXP FREE

И что вы предлагаете делать ? Или все здесь такие правильные ?
Window - купленный, Офис тоже, фокс - лицензионный, и куча еще всякого добра на компьютерах тоже купленная ?
...
Рейтинг: 0 / 0
09.09.2004, 12:52
| Ответить | Цитировать | Написать  
архивация (DOS архиваторы не предлагать)
    #32687292
AlikWishin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlikWishin
Гость
2 Denis_Alekseevich
Не знаю поможет или нет.
Я пользуюсь WinRar

Procedure Click
Close Tables All
lcFileName = <путь с именем>+'.Rar'

lcArrName = 'Winrar.exe a -inul ' + lcFileName + ' @.\BackUp\backup.lst'
Run /N &lcArrName
DoEvents
EndProc

a backup.lst формирую раньше
в качестве примера:

\\Ant\FoxPro\Zapas\Data\BOP.dbf
\\Ant\FoxPro\Zapas\Data\BOPNC.dbf
\\Ant\FoxPro\Zapas\Data\CEH.dbf
\\Ant\FoxPro\Zapas\Data\DOSTUP.dbf
...
да но такая проблема:
если таблички кемто открыты то они не попадут :(
...
Рейтинг: 0 / 0
09.09.2004, 13:24
| Ответить | Цитировать | Написать  
архивация (DOS архиваторы не предлагать)
    #32687321
MarinaVP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MarinaVP
Гость
AlikWishin

Добавьте ключик -dh позволяет архивировать файлы открытые в режиме SHARED, если только файлы не открыты эксклюзивно
...
Рейтинг: 0 / 0
09.09.2004, 13:30
| Ответить | Цитировать | Написать  
архивация (DOS архиваторы не предлагать)
    #32687336
AlikWishin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlikWishin
Гость
2 MarinaVP

Спасибо попробую!!!
...
Рейтинг: 0 / 0
09.09.2004, 13:34
| Ответить | Цитировать | Написать  
17 сообщений из 17, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / архивация (DOS архиваторы не предлагать)
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]