Форум » Clipper » Вопрос по сборке проекта » Ответить
Вопрос по сборке проекта
yukirin: использую Clipper 5.2e portable выкачанный по адресу http://softclipper.narod.ru/download.html. При сборке проекта rtlink предлагает указать путь до библиотеки CE50.LIB. Подскажите пожалуйста где найти данный файлик... или полноценную папку со всеми библиотеками. Опыт работы с clipper отсутсвует а экзешник собрать очень хочется. Please help...
Ответов - 67, стр:
1 2 3 4 All
alkresin: А другие static переменные работают нормально, или там только SetStack объявлена ?
alkresin: И еще, файл компилируется с ключом /n ?
yukirin: строка вызова компилятора: clipper name_file /b /m /w >1.log перенес эти две процедуры в другой модуль [pre2] #include "Set.ch" #include "common.ch" #include "inkey.ch" static SetStack:={}, Static37, Static38, Static39, Static40, Static41, Static42 static Static2, Static3, Static4, Static5, Static7 ******************************** procedure SaveSet() AAdd(SetStack, {Select(), indexord(), RecNo()}) ******************************** procedure RestoreSet() local length:= Len(SetStack) if (length > 0) select (SetStack[length, 1]) set order to SetStack[length, 2] go SetStack[length, 3] endif aSize(SetStack, length - 1) ******************************** function GETSECRET(Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8) local Local1:= Row(), Local2:= Col(), Local3[1], Local4 Static38:= iif(Arg2 = Nil, Local1, Arg2) Static39:= iif(Arg3 = Nil, Local2, Arg3) if (Arg4 = Nil) Arg4:= .F. endif SetPos(Static38, Static39) if (Arg5 != Nil) dispout(Arg5) Static39:= Col() + 1 SetPos(Static38, Static39) endif if (csetdeli()) Static39++ endif Static37:= Arg1 Local3[1]:= __Get({|_1| iif(ISNIL(_1), Static37, Static37:= _1)}, ; "_CGETSECRET", Arg6, Arg7, Arg8) Local3[1]:row(255) Static40:= Local3[1] Static42:= wselect() Static41:= MaxCol() + 1 - Static39 Local4:= trapinput("_SECRET") ReadModal(Local3) trapinput(Local4) if (!Arg4) unselected() endif @ Static38, Static39 say rangerepl(33, 31, Static37, "*") standard() SetPos(Local1, Local2) return Static37 ******************************** procedure _SECRET local Local1 if (wselect() = Static42 .AND. readvar() == "_CGETSECRET") Static40:assign() Local1:= dsetwindow(.T.) sayscreen(rangerepl(33, 31, Left(Static37, Static41), "*"), ; Static38, Static39) dsetwindow(Local1) SetPos(Static38, Col()) endif return ********************************[/pre2] НЕТ ТАКОЙ ПЕРЕМЕННОЙ....Хотя рядом статические переменные которые используются в ф-циях ввода пароля....Пароль же я ввожу при входе в программу и там все нормально.
alkresin: Чтобы статические переменные, объявленные вне процедур, были видны, надо при компиляции добавить ключ /n
yukirin: alkresin - СПАСИБО. Век живи век учись. Одной проблемой стало меньше.
yukirin: Перевел проект на xHarbour. Появилась стабильность. Доработал печать... Прощай LPT. Появилась возможность запускть прогу под win2008 x64. После нового года буду пробовать людей сажать работать через удал. раб стол.... Красотищщааа.... Всем огромное спасибо за участие... Не прощаюсь. Вопросы все равно будут еще возникать.
Andrey: yukirin пишет: Красотищщааа.... Используй gtwvt-терминал. Там можно будет свои шрифты настраивать и регулировать размер задачи на экране. Смотри тему http://clipper.borda.ru/?1-4-0-00000624-000-40-0-1356073627 ищи фразу: GTWVT-терминал "Настройка палитры/шрифтов/размеров экрана" for xHarbour 1.2 !
полная версия страницы