ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Выпендривается архиватор?!
10 сообщений из 10, страница 1 из 1
Выпендривается архиватор?!
    #33907449
Solmyr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Solmyr
Участник
Люди, есть проблема.
Я тут порылся на форуме, нашел пример организации работы с WinRAR из Лиса, и забабахал его.
Процедура примерно следующая:

LOCAL lcExpr, lcWRPath, lcWRPars, lcWRArchName, lcWRFilePath

lcExpr = 'RUN /N '

lcWRPath = '"C:\Program Files\WinRAR\WinRAR.exe" '

lcWRPars = 'a -ep -m5 -r -s '

lcWRArchName = ALLT(THISFORM.txtArchPath.Value)+ALLT(THISFORM.txtArchName.Value)+' '

lcWRFilePath = IIF(SUBS(ALLT(gcPath),2,1)=":",gcPath,SYS(5)+gcPath)+'Data\*.*'

lcExpr = lcExpr + lcWRPath + lcWRPars + lcWRArchName + lcWRFilePath

IF FILE("C:\Program Files\WinRAR\WinRAR.exe")

&lcExpr

MESSAGEBOX ("Создана резервная копия - "+ALLT(lcWRArchName),64,"Сообщение")

ELSE

IF MESSAGEBOX ("Файл - "+"C:\Program Files\WinRAR\WinRAR.exe"+" не найден!"+CHR(13)+"Возможно не установлен WinRAR!"+CHR(13)+"Скопировать файлы в указанный каталог без архивирования?",49,"Сообщение") = 1

lcWRArchName = ALLT(THISFORM.txtArchPath.Value)+"*.*"

COPY FILE (lcWRFilePath) TO (lcWRArchName)

MESSAGEBOX ("Готово!",64,"Сообщение")

ENDIF

ENDIF

Так вот. У меня на машине и дома и на работе все путем. А когда принес заказчику, у него на компе архив ни фига не создается. Причем никаких ошибок не выдает, даже появляется окно RAR-овское с бегунками, а потом говорит, что копия создана. Но сам файл не создает, зараза.
Может проблема в том, что у заказчика на компе 98-й Виндоус? У меня то 2000-й и ХР? Или еще в чем?
...
Рейтинг: 0 / 0
09.08.2006, 11:40
| Ответить | Цитировать | Написать  
Выпендривается архиватор?!
    #33909015
puls
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
puls
Участник
Провер компа заказчика на вирус и провер хватает ли память.
У меня была подобная только архиватор запускал через сом объекта,окозалась
комп был заражон.
Удачи.
...
Рейтинг: 0 / 0
09.08.2006, 18:18
| Ответить | Цитировать | Написать  
Выпендривается архиватор?!
    #33909230
Alexey-M
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexey-M
Участник
ShellExecute , тебя спасет 100 процентов.
...
Рейтинг: 0 / 0
09.08.2006, 19:43
| Ответить | Цитировать | Написать  
Выпендривается архиватор?!
    #33909339
puls
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
puls
Участник
_arx=CreateObject('WScript.Shell')
_arx.Run('rar a -y c:\123\*.* c:\321\',0,1)
попровую вот так,только эту 'rar a -y c:\123\*.* c:\321\' сделай
по своемую
Удачи.
...
Рейтинг: 0 / 0
09.08.2006, 21:24
| Ответить | Цитировать | Написать  
Выпендривается архиватор?!
    #33909614
S866
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
S866
Участник
Код: plaintext
1.
2.
DECLARE LONG WinExec IN WIN32API String cApplication, Long Mode 
cCommand='winRAR.EXE A '+tekdir+'\'+ALLTRIM(nastroyki.psevdonim)++'_'+ALLTRIM(STRTRAN(DTOC(DATE()),'.',''))+'_'+ALLTRIM(STRTRAN(TIME(),':','')) +' '++tekdir+'\'+ALLTRIM(nastroyki.psevdonim)+'\*.* -M5 -DF'
aa=winexec(cCommand, 1 )
пользуюсь в 98-м и все ОК
...
Рейтинг: 0 / 0
10.08.2006, 08:34
| Ответить | Цитировать | Написать  
Выпендривается архиватор?!
    #33909859
Solmyr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Solmyr
Участник
Млин, а куда часть сообщений делась?! Модератор заснул и упал головой на клаву? Гы.
to S866.
По-моему у тебя последовательность создания cCommand неправильная. Ну короче я понял, cCommand - это строка для вызова WinRAR в режиме ком.строки. А что такое второй параметр = 1?
И еще. Как мне получить результат выполнения функции этой, чтобы знать, успешно прошла архивация или нет?
...
Рейтинг: 0 / 0
10.08.2006, 10:45
| Ответить | Цитировать | Написать  
Выпендривается архиватор?!
    #33909868
Sergey Ch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey Ch
Участник
SolmyrМлин, а куда часть сообщений делась?! Модератор заснул и упал головой на клаву?
Модератор: Удалены как не соотвествующие теме топика... Sorry...
...
Рейтинг: 0 / 0
10.08.2006, 10:51
| Ответить | Цитировать | Написать  
Выпендривается архиватор?!
    #33909888
_Michail_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Michail_
Гость
SolmyrКак мне получить результат выполнения функции этой, чтобы знать, успешно прошла архивация или нет?
Можно отслеживать по логу который может создавать WinRar.
Лог создается в случае какой либо ошибки.
Если файл существует, то можно вывести его содержимое.
...
Рейтинг: 0 / 0
10.08.2006, 11:00
| Ответить | Цитировать | Написать  
Выпендривается архиватор?!
    #33910035
Фотография Alex_Ustinov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alex_Ustinov
Участник
Запись лога: –ilogNameFile, например
–ilogc:\log\backup.log, но идет запись только ошибок.

У заказчика ПОПРОБУЙ архивацию проверить не из приложения, а из командной строки ДОС. Помнится мне, что в командной строке WinRar не понимает длинных имен, возможно поэтому непонятки.
/Program Files/ = /Progra~1/
...
Рейтинг: 0 / 0
10.08.2006, 11:43
| Ответить | Цитировать | Написать  
Выпендривается архиватор?!
    #33911058
Solmyr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Solmyr
Участник
to Alex_Ustinov.
Сто пудов из-за пути длинного. Жопой чую. Спасибо тебе, друг.
Перевел на WinExec по совету S866, у меня работает. Пойду у зака тестить.
Всем огромный респект и сенкс.
...
Рейтинг: 0 / 0
10.08.2006, 16:30
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Выпендривается архиватор?!
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=33907449&tid=1591011]:
 0ms
get settings:
 11ms
get forum list:
 13ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 49ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 31ms
get tp. blocked users:
 1ms
others: 255ms
total:  373ms
созд. / загр.: 373ms
x
x
Закрыть


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