powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Задача.
25 сообщений из 26, страница 1 из 2
Задача.
    #34677668
axezzz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ребят помогите. Начальник поставил задачу запустить защищенную базу FoxPro 2.6 под XP.
Она использует фокс 2.6...бился с этим, закинул в саму папку....запустилась.
При запуске батника базы начинается восстановление данных, далее пишет, что "Эта программа не для свободного копирования" Чтобы не было смеха на этот счет, скажу что на 98ой запускается без этой фишки. База была купленна и встала нормально на 98.

Батник содержит следующее:

@Echo OFF
If '%2'=='' GoTo Work
If Exist *. Del *.
If Exist *.TMP Del *.TMP
If Exist Confirm.TAG Del Confirm.TAG
If NOT Exist Mail\*.* GoTo Quit
Echo Y | Del Mail
Rd Mail
GoTo Quit
:Work
If NOT Exist *.TAG GoTo Ok
Echo N | ChkDsk /F > Nul
Call %0 1 Clear
If Exist *.IDX Del *.IDX
If Exist Setup.INI Del Setup.INI
If Exist *.TAG Del *.TAG
:Ok
Set Confirm=on
Echo OFF > Nothing.TAG
Echo OFF > Confirm.TAG
Md Mail
Echo OFF > Mail\Nothing.
Main -T %1 //запускающий файл
Call %0 1 Clear
Cls
Echo ------------------------------------------------
If NOT Exist *.TAG Echo Нормальное завершение работы
If Exist *.TAG Echo Аварийное завершение работы
Echo -----------------------------------------------
:Quit
пытался разобраться что куда отправляет...окончательно запутался и бросил :(
при запуске создает папку Mail\файл Nothing
кучу тмпшек а после все удаляет. Менял автоэкзеки, конфиги, и клиппер....ни чего не помогло.
Тут вопрос первый....если возможно разобрать структуру, что происходит во время запуска батника? Может мне это поможет.

запуск из под dos'a был первым вариантом.

Далее попробовал вытащить данные из таблицы НО....
1)Поля типа "Код" по которым связываются таблицы указанны досовскими символами т.е. рожицами и сердечками и прочим. при конверте из дбф они вообще не отображаются. Пробовал кодировки менять....бестолку. поэтому связать табл не представляется возможным.

Как вариант было забить поля "Код" цифрами в фоксе т.к они все равно идут по порядку в обоих таблицах и после связать, но в связной таблице на одно индексное значение идет несколько строк. причем сделанно как то совсем странно.
Что то типа того:
Код Значение
T Здесьид
T ётзначе
T ние

А в таблице куда нужно подставить, например:
Код Поле1
T Запись
Ни чего не поняв...впал в отчаение...решил обратиться....сюда
Хочется корректно экспортировать в эксель...хотя бы...

Если кто, чего поймет, подскажет буду рад :)

И еще как вариант рассматривал....открыть все в фоксе, правильно связать, убрать эти смайлы и сделать одну таблицу из нескольких....а после отправить в экспорт....но опять же не совсем понятно там,что из какой таблицы вяжется....:( и ктому же досовский фокс я не пользовал вообще.
...
Рейтинг: 0 / 0
Задача.
    #34677722
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Если на W98 работает:
1. Поставь перед Main -T %1 строку GoTo Quit
получишь прогу готовую к запуску
2. Скинь что получилось на XP и запускай таким батником (перед каждым запуском восстанавливай копию):
Set Confirm=on // ХЗ но наверно надо
Main -T %1

а дальше разбираться в чем косяк, в проге или в батнике

axezzz...
1)Поля типа "Код" по которым связываются таблицы указанны досовскими символами т.е. рожицами и сердечками и прочим. при конверте из дбф они вообще не отображаются. Пробовал кодировки менять....бестолку. поэтому связать табл не представляется возможным.
...
Если деньги плочены за инфу, то вероятней всего она как-то пошифрована. Можешь попробовать Main порефоксить, попробовать проверку "свободного копирования" убрать
...
Рейтинг: 0 / 0
Задача.
    #34677752
Фотография Владимир СА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
axezzzРебят помогите. Начальник поставил задачу запустить защищенную базу FoxPro 2.6 под XP.
Она использует фокс 2.6...бился с этим, закинул в саму папку....запустилась.
При запуске батника базы начинается восстановление данных, далее пишет, что " Эта программа не для свободного копирования " Чтобы не было смеха на этот счет, скажу что на 98ой запускается без этой фишки. База была купленна и встала нормально на 98....В далекие времена, когда-то и я зашифровывал программу от несанкционного копирования с одного компьютера на другой. М.б. у тебя тоже самое?
...
Рейтинг: 0 / 0
Задача.
    #34678725
axezzz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
На другой машине с 98...тоже работает...
Мне кажется что дело в правильной поддержкке 98-ым доса...но тогда какая связь...с защитой?

А по экспорту ни чего не подскажет не кто? Просто переключение с dos кодировки не помогает :(
...
Рейтинг: 0 / 0
Задача.
    #34678737
axezzzРебят помогите. Начальник поставил задачу запустить защищенную базу FoxPro 2.6 под XP.

Она использует фокс 2.6...

Менял автоэкзеки, конфиги, и клиппер ....ни чего не помогло.

и ктому же досовский фокс я не пользовал вообще.
Вы уж определитесь на чем программа-то написана: на Фоксе или Клиппере
Псоле этого можно ее разобрать (Рефоксом (для Фокса) или Валькирией (для Клиппера)) и посмотреть что и когда запускается...
А вообще, выложите сюда часть данных (если они не секретные) и программу (если она небольшая) - попробуем покрутить и дать рекомендации.... Если размер архива превысит допустимый размер файла, то можно намылить мне на stanislav1971 на mail.ru
...
Рейтинг: 0 / 0
Задача.
    #34680034
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
axezzzНа другой машине с 98...тоже работает...
Мне кажется что дело в правильной поддержкке 98-ым доса...но тогда какая связь...с защитой?

А по экспорту ни чего не подскажет не кто? Просто переключение с dos кодировки не помогает :(
Нормальная поддержка доса у XP. FPD2.6 у меня работает, в других местах тоже проблем не встречал, единственно что надо править в XP - русификацию доса, но до этого у тебя прога должна запуститься нормально.

То что я писал попробовал? Что получилось? Или дальше сопли размазывать будем?
Если что-то пробуешь - фиксируй, что, как, какой результат. Разбивай свою проблему на маленькие и разбирайся с каждой. Что непонятно - спрашивай. Но по существу, на философские вопросы получаются философские ответы.
...
Рейтинг: 0 / 0
Задача.
    #34681932
axezzz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Dima T я не пойму зачем ты на выход отправляешь перед запуском?
Попробовал,как и ожидалось прикрыло еще пока батник выполнялся.
Main.exe это собственно и есть база, но при запуске ее...выдает,что не плохо бы запустить батник, т к требуется восстановить базу...

Станислав, кину на мыло часть...рабочую. Но без фокса. что бы не загружать.
Фокс нужен 2.5 или 2.6

На клипере или на фоксе точно сказать не могу не силен в этом.
При запуске говорит про клиппер. Но и без фокса...в корне....не запускает.
...
Рейтинг: 0 / 0
Задача.
    #34681963
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
axezzzDima T я не пойму зачем ты на выход отправляешь перед запуском?
Еще раз:
1. На W98 где твоя прога нормально работает, выходишь из батника перед запуском проги. Все файлы/папки остаются в том виде, который нужен проге для работы.
2. Копируешь один-в-один на машину с XP (предварительно удалив то, что там раньше было) и пробуешь запустить батником из 2-x строк:
Set Confirm=on
Main -T %1
И убедись что пути такие-же как на W98
3. Для повторного запуска п.2 повторяешь полностью.

т.о. избавляешься от хитромудрой писанины в батнике.

И попробуй также копировать на другую машину с W98 куда твоя прога нормально встает. Может она копированием вообще не размножается.
...
Рейтинг: 0 / 0
Задача.
    #34681972
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Посмотри еще что твоя прога в autoexec.bat и config.sys дописывает при установке на W98. Судя по твоим описаниям - пути к фоксу как минимум, и наверно что-то еще.
в XP это надо в autoexec.nt и config.nt дописать.
...
Рейтинг: 0 / 0
Задача.
    #34682385
axezzzDima T я не пойму зачем ты на выход отправляешь перед запуском?
Попробовал,как и ожидалось прикрыло еще пока батник выполнялся.
Main.exe это собственно и есть база, но при запуске ее...выдает,что не плохо бы запустить батник, т к требуется восстановить базу...

Станислав, кину на мыло часть...рабочую. Но без фокса. что бы не загружать.
Фокс нужен 2.5 или 2.6

На клипере или на фоксе точно сказать не могу не силен в этом.
При запуске говорит про клиппер. Но и без фокса...в корне....не запускает.
Посмотрел... Это все-таки Фокс...
Хотя программа и распаковалась Refox'ом (8-я версия), но нигде не видно, зачем использовать параметр (нет слова parameter ни в одной из процедур). Кроме того, при изменении исходника и последующей компиляции - не найдена куча ссылок на процедуры/функции...

За выдачу сообщения "Эта программа не для свободного копирования" отвечает следующий код:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
...
 IF  .NOT. CREEP()
 DO SHUTDOWN
 WAIT WINDOW TIMEOUT  5  "Эта программа не для свободного копирования"+CHR( 13 )+'Требуется инсталляция'
 RETURN
 ENDIF
...
К сожалению, ни CREEP, ни Shutdown среди распакованных исходников (*.prg, *.plb) найти не удалось... Скорее всего, они находились в библиотеках, подключаемых на этапе компиляции приложения... Если надо, могу выслать получившиеся при "развертывании" файлы... Но толку от них маловато...
Скорее всего, придется делать как пишет Dima T.
...
Рейтинг: 0 / 0
Задача.
    #34682778
axezzz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо, буду пробовать. Как чего отпишу.
...
Рейтинг: 0 / 0
Задача.
    #34682872
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
axezzz...База была купленна и встала нормально на 98...
Если вы прогу почестному купили, почему разработчиков не спросить как под XP запустить?
...
Рейтинг: 0 / 0
Задача.
    #34682990
Dag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А нельзя ли вместо CREEP() подсунуть свою процедуру?
В свое время я так делал прямо в exe-файле.
...
Рейтинг: 0 / 0
Задача.
    #34683123
axezzz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Потому, что она проработала год у начальника на 98ой...сейчас понадобилось установить ему XP.
И причем срочно....тут не поспоришь....
Пытался я связаться с разработчиками...но там он чуть ли не один человек. Концов уже не найти.
Есть только телефон, который некогда не отвечает :(
...
Рейтинг: 0 / 0
Задача.
    #34683174
Dag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Открой exe-шник любым текстовым редактором вроде NotePad. Найди вхождение CREEP - подмени на допустим CREEL. Создай файл creel.prg с текстом вроде

wait 'Байпас для зловредной программы' window timeout 0.5
return .t. && или .f. сам подберешь

Откомпилируй эту прожку и помести файл creel.fxp в ту же директорию, где находится твой exe-шник.
Все. Можно пробовать.
...
Рейтинг: 0 / 0
Задача.
    #34683305
axezzz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ехешник то открывать раскомпилированный? У меня то не чем...Дима Т вскрывал его.
А так как и ожидалось одни караккули. Но суть я уловил, того, как ты хочешь сделать.
Все варианты буду пробовать с утра. А то у нас уже рабочий день заканчивается :(
Спасиба ребята, за то, что помгаете.
...
Рейтинг: 0 / 0
Задача.
    #34683370
Dag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Я работал FAR'овским редактором по екзешнику FPW2.6.
...
Рейтинг: 0 / 0
Задача.
    #34683472
Dag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
К екзешнику нужно отнестись как к текстовому файлу. Внутри будут каракули, но встречаются вполне осмысленные буквосочетания - типа названия функций или процедур. Они могут встречаться несколько раз - как объявление процедуры и как ее вызовы. Нужно переписать один из вызовов, где вызывается проверка. Поиск внутри файла и последовательный перебор - могут решить проблему. А могут и не решить.
...
Рейтинг: 0 / 0
Задача.
    #34684515
axezzz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
DagОткрой exe-шник любым текстовым редактором вроде NotePad. Найди вхождение CREEP - подмени на допустим CREEL. Создай файл creel.prg с текстом вроде

wait 'Байпас для зловредной программы' window timeout 0.5
return .t. && или .f. сам подберешь

Откомпилируй эту прожку и помести файл creel.fxp в ту же директорию, где находится твой exe-шник.
Все. Можно пробовать.

Нет такой процедуры Creep. Одни каракули.
...
Рейтинг: 0 / 0
Задача.
    #34685124
axezzz DagОткрой exe-шник любым текстовым редактором вроде NotePad. Найди вхождение CREEP - подмени на допустим CREEL. Создай файл creel.prg с текстом вроде

wait 'Байпас для зловредной программы' window timeout 0.5
return .t. && или .f. сам подберешь

Откомпилируй эту прожку и помести файл creel.fxp в ту же директорию, где находится твой exe-шник.
Все. Можно пробовать.

Нет такой процедуры Creep. Одни каракули.
Я ввел Вас в заблуждение... Просто, у меня некорректно рапаковался файл (то ли ограничение триальной версии, то ли баг...). Сегодня все распаковалось нормально. Автору ветки выслал полученные исходники - пусть разбирается...
...
Рейтинг: 0 / 0
Задача.
    #34685185
Станислав С...кий axezzz DagОткрой exe-шник любым текстовым редактором вроде NotePad. Найди вхождение CREEP - подмени на допустим CREEL. Создай файл creel.prg с текстом вроде

wait 'Байпас для зловредной программы' window timeout 0.5
return .t. && или .f. сам подберешь

Откомпилируй эту прожку и помести файл creel.fxp в ту же директорию, где находится твой exe-шник.
Все. Можно пробовать.

Нет такой процедуры Creep. Одни каракули.
Я ввел Вас в заблуждение... Просто, у меня некорректно рапаковался файл (то ли ограничение триальной версии, то ли баг...). Сегодня все распаковалось нормально. Автору ветки выслал полученные исходники - пусть разбирается...
Кому интересно - функция Creep:
Код: 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.
FUNCTION CREEP
PRIVATE ALL
LOAD Creep.TAG
M.TESTVALUE = '  '
CALL Creep WITH M.TESTVALUE
RELEASE MODULE Creep
SELECT HANDLER
M.OK = SEEK('яю') .AND. MEDIUM==M.TESTVALUE
IF  .NOT. OK
M.DRIVE = 'A'
M.APP_NAME = 'A:\Install.APP'
CALL IsDiskIn WITH M.DRIVE
IF M.DRIVE='A' .AND. FILE(M.APP_NAME)
DO (M.APP_NAME)
M.OK = SEEK('яю') .AND. MEDIUM==M.TESTVALUE
ELSE
M.DRIVE = 'B'
M.APP_NAME = 'B:\Install.APP'
CALL IsDiskIn WITH M.DRIVE
IF M.DRIVE='B' .AND. FILE(M.APP_NAME)
DO (M.APP_NAME)
M.OK = SEEK('яю') .AND. MEDIUM==M.TESTVALUE
ENDIF
ENDIF
ENDIF
RETURN M.OK
P.S. 'яю' - это в кодировке ДОС буква с кодом 254 (т.е. chr(254))
...
Рейтинг: 0 / 0
Задача.
    #34685390
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Станислав С...кийЯ ввел Вас в заблуждение... Просто, у меня некорректно рапаковался файл (то ли ограничение триальной версии, то ли баг...). Сегодня все распаковалось нормально. Автору ветки выслал полученные исходники - пусть разбирается...
Судя по выдержкам из кода (наиболее вероятно) - косяк где-то с вызовом подгружаемых модулей (CALL Creep, CALL IsDiskIn) они какую-то дискетку проверяют и пользуют вероятно что-то (прямой доступ к оборудованию) что XP никак не дает сделать, хотя вроде должно сообщение выскакивать типа "прога лезет к оборудованию. Убить, Пропустить".

Я бы предложил вообще убрать кусок вызова проверки:
Код: plaintext
1.
2.
3.
4.
5.
6.
...
 IF  .NOT. CREEP()
 DO SHUTDOWN
 WAIT WINDOW TIMEOUT  5  "Эта программа не для свободного копирования"+CHR( 13 )+'Требуется инсталляция'
 RETURN
 ENDIF
...
собрать exe и получить прогу для "свободного копирования"

Попробуй, если с защитой не накручено по серьезному, то должно помочь.

и второй вариант: в ярлыке режим совместимости с W95/98 поставить.
...
Рейтинг: 0 / 0
Задача.
    #34685439
Burn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
>Я бы предложил вообще убрать кусок вызова проверки
А я - переписать функцию Creep.
Чтото вроде

Код: plaintext
1.
2.
FUNCTION CREEP
RETURN .t.
;D
...
Рейтинг: 0 / 0
Задача.
    #34685464
axezzz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Вообщем я продвинулся немного :)
Нашел этот Install.app пихнул на флоппи.
Теперь просит ввести keyword (Destribution ID).

Окончательно запутался, почему она идет на 98, а на Хр не в какую? Если ей нужен защитный флопик то как он реализованн на 98? Subst'ов там с файлом Install.app не наблюдается. И ключик не просит.

Это впринципе и не важно вообще то. Рефоксом поправлю. Но все равно странно? :)
...
Рейтинг: 0 / 0
Задача.
    #34685554
Burn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
axezzz
Окончательно запутался, почему она идет на 98, а на Хр не в какую? Если ей нужен защитный флопик то как он реализованн на 98? Subst'ов там с файлом Install.app не наблюдается. И ключик не просит.
Это впринципе и не важно вообще то. Рефоксом поправлю. Но все равно странно? :)
Скорее всего этот Install.app получив нужный код чтото гдето прописывает на винте. И на той машине, где запускается он это прописал. Может очень давно...
...
Рейтинг: 0 / 0
25 сообщений из 26, страница 1 из 2
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Задача.
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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