Отправлено: 15.11.12 14:42. Заголовок: Вопрос по сборке проекта
использую Clipper 5.2e portable выкачанный по адресу http://softclipper.narod.ru/download.html. При сборке проекта rtlink предлагает указать путь до библиотеки CE50.LIB. Подскажите пожалуйста где найти данный файлик... или полноценную папку со всеми библиотеками. Опыт работы с clipper отсутсвует а экзешник собрать очень хочется. Please help...
Хороший ответ... Изменю вопрос - может ли кто-нибудь поделиться папкой LIB с уже существующей там библ. CE50.LIB, т.к. в том варианте Clipper 5.2e который я скачал данная библиотека отсутствует.
Отправлено: 15.11.12 17:54. Заголовок: Кстати ссылку я непр..
Кстати ссылку я неправильную дал - http://softclipper.net/soft-skachat/clipper-5-2e-portable.html - вот по этой ссылке выкачивал. Там было написано "самая стабильная версия со всеми обновлениями и дополнительными библиотеками". А оказалось что не со всеми...
Отправлено: 19.11.12 12:05. Заголовок: Нужна помощь в сборк..
Нужна помощь в сборке проекта. У меня имеется голый исходник размером в 28700 строк который мне достался от одного человека со словами - что это единственный существующий текст программы - другого нет. У меня получить работоспособный экзешник не получается - есть два-три десятка функций на которые блинкер ругается как на не существующие внешние ссылки. Что необходимо подключить( библиотеки, include) я не знаю и подобрать не получается. Вполне возможно что исходник подпорченный ( причем специально). Опыт написания на клиппер, как я писал выше, отсутствует вообще. Пишу на с++... В общем прошу помощи в получении хотя бы нормально запускающегося экзешника))). Для откликнувшихся моя почта - yukirin@yandex.ru или пишите вашу - отправлю.
Отправлено: 19.11.12 14:15. Заголовок: Если исходная програ..
Если исходная программа собрана rtlink'ом, то ее декомпилировать можно, если блинкером - нет. Функций осталось совсем немного, и достаточно их найти или сделать им замену.
PostAvtive, GetReadVar - эти функции есть в clipper 5.3, так что лучше собрать проект этой версией компилятора _NewClass, __AddMethod, SetClass - это явно из какой-то библиотеки для ООП Это не classy, но этих библиотек не так много, надо пересмотреть GOTOBOTTOM - покажите, в каком контексте идет вызов этой функции, чтобы понять что она делает
ErrorMessage - можно просто добавить заглушку: func ErrorMesssage return ""
Arg1:gotopbloc({|_1| (_1:= Set(_SET_SOFTSEEK, .T.), dbSeek(Arg2), Set(_SET_SOFTSEEK, _1))}) Arg1:gobottomb({|| gotobottom(Arg2)}) //функция на которую ругается блинкер Arg1:skipblock({|_1| movepointe(_1, Arg2)})
******************************** пример вызова TBROWSEIND в которой исполбзуется - gotobottom wbox() Local1:= tbrowseind(0, 0, MaxRow() - 1, MaxCol(),Str(doch->iddoc))
//------------------------------------------------------------------------------------------------// Где взять эти ООП библиотеки? Этот класс используется при печати.
GETREADVAR и POSTACTIVE должны быть в lib\clipper.lib, размер 694791 от 20.05.1997 Насчет ООП - есть ли в проекте какие-нибудь файлы *.ch, связанные с библиотекой ООП ? Я именно такую не вспомню, пересмотрел какие у меня есть ООП-библиотеки
Отправлено: 19.11.12 15:35. Заголовок: Ага, GETREADVAR и PO..
Ага, GETREADVAR и POSTACTIVE это static-функции, значит используется какая-то альтернативная get-система Т.е. исходные тексты не все. Можно попробовать взять модуль source\sys\getsys.prg, найти строки
Static function GETREADVAR(..) и Static function PostActive(..)
и заменить их на
function GETREADVAR(..) и function PostActive(..)
Кстати, сырцы похоже получены именно декомпилятором
Отправлено: 19.11.12 15:54. Заголовок: проблема не в исходн..
проблема не в исходнике потому как я нашел эти функции в тексте. Проблема видимо в том что я не правильно поделил сам текст программы на куски . Дело в том что переданный мне исходник шел одним файлом и клипер при компиляции выдавал - to many labels и не создавал объектный файл. Мне посоветовали просто раздробить программу на куски что я не задумываясь и сделал. Как правильно разделить текст на куски? Можно ли сделать так что бы клиппер при компиляции с ключем /w все предупреждения писал в файл, а то их довольно много и они быстро пробегают по экрану и что там было понять невозможно. кстати GETREADVAR и POSTACTIVE и др.( кроме ООП ф-ций ) больше не unresolved external. На класс возложена печать, т.е. по идее программа должна у меня запустится без печати - но при запуске получаю - RDDREGISTE(0) Internal error 9002
Можно ли сделать так что бы клиппер при компиляции с ключем /w все предупреждения писал в файл, а то их довольно много и они быстро пробегают по экрану и что там было понять невозможно.
Отправлено: 19.11.12 16:07. Заголовок: yukirin пишет: Как ..
yukirin пишет:
цитата:
Как правильно разделить текст на куски?
Поскольку восстановить исходную разбивку не получится, то прийдется разбивать хорошо известным методом проб и ошибок, соблюдая некоторые правила Например, такое: static-функция должна быть определена в то модуле, откуда есть ее вызов. Надо либо перенести функцию в тот модуль, либо убрать static
цитата:
На класс возложена печать, т.е. по идее программа должна у меня запустится без печати - но при запуске получаю - RDDREGISTE(0) Internal error 9002
вобщем линкуется сейчас без предупреждение об unresolved external подключил - objects.lib. но толку от этого мало.... RDDREGISTE(0) Internal error 9002 и все тут. DBFNTX.LIB тоже подключил.
если запускать компиляцию с ключем /w - то получаем несколько тысяч предпреждений прмерно одного содержания: Warning C1003 Ambiguous reference: 'GETLIST' Warning C1003 Ambiguous reference: 'GETLIST' Warning C1004 Ambiguous reference, assuming memvar: 'GETLIST'
вместо GETLIST могут быть другие переменные но с GETLIST подавляющее большинство.... пока тупик.
Отправлено: 20.11.12 08:37. Заголовок: Обычно в клипперовск..
Обычно в клипперовских программах rddregister() напрямую для dbfntx не вызывается, это происходит автоматически при инициализации приложения. Поэтому смело выкидывайте эту процедуру.
Нашел вызовы ф-ции rddregiste два раза - один раз с параметром DBF другой DBFNTX. Закомментировал. Получил окно при запуске - unrecoverable error 650: Processor stack fault. Про что в инете пишут Бесконечная рекурсия. Дааа. Объясните пожалуйста как пользоватся клипперовским отладчиком. Я так понял это файл CLD.EXE. Но в в версии 5.3 нет такого файла там есть CLDR.EXE - это он? Откомпилировал прогу с ключом /b, запустил CLDR c параметром MYEXE.EXE и получил бяку.. Что то про то что нет такого файла, хотя файл рядом лежит.
З.Ы. насколько критичны варнинги приведенные мной в посте №8 ?
Отправлено: 20.11.12 09:57. Заголовок: Про отладчик ничего ..
Про отладчик ничего не скажу - я 5.3 никогда не пользовался. Попробуйте расставить в начале программы, например, вызовы Alert("какой-то текст") - эта функция выдает на экран box с текстом - для простейшей трассировки. Warning'и эти не критичны. Они означают, что данная переменная не объявлена как Memvar, это не преступление. Если какая-то переменная вообще не объявлена, может в процессе исполнения выскочить ошибка - что нет такой-то переменной, но никак не Processor stack fault.
Отправлено: 20.11.12 11:34. Заголовок: Закомментировал все ..
Закомментировал все init procedure т.к. они по названию и содержанию повторяют процедуры, например, со страницы http://www.mythologics.com/c53/_cliplib.html ( init procedure CLIPINIT ) и др. Я так понимаю что инит процедуры автоматитически прилинковываются после присоединения файла библиотки в скрипте линкера или надо как то явно указывать необходимость вызова той же CLIPINIT, т.к. у меня после комментирования всех уже и так существующих в CLIPPER.LIB инит процедур экзешник запускается и тут же завершается без каких либо сообщений, соответсвенно до alert не доходим.
(((Меня начинают посещать мысли о неосуществимости моей затеи по получению рабочей программы.....
Еще сегодня помучаюсь и завтра начну, наверное, пробовать декомпилировать.....
Отправлено: 20.11.12 12:56. Заголовок: yukirin пишет: у ме..
yukirin пишет:
цитата:
у меня после комментирования всех уже и так существующих в CLIPPER.LIB инит процедур экзешник запускается и тут же завершается без каких либо сообщений, соответсвенно до alert не доходим.
Я бы в таком случае действовал следующим образом: урезал бы программу до минимума, скомпилировал, запустил. Если работает ( если - нет, значит с моим компилятором что-то не то ), то добавляем фрагмент, проверяем - и т.д. yukirin пишет:
цитата:
Где можно посмотреть полный список ф-ций/процедур содержащихся в клиппер.либ версии 5.2е?
В ng ( Norton Guide ) соответствующем. А если совсем полный :), то какой-нибудь утилитой, выдающей листинг .lib файла, у меня тут несколько таких - libra.exe, libview.exe, lib.exe
Отправлено: 20.11.12 13:20. Заголовок: Для запуска DEBUGGER..
Для запуска DEBUGGER в CLIPPER 5.3 необходимо в файле .LNK для blinker'а поставить команду FI CLD.lib В программе после запуска нажать комбинацию ALT+D
Отправлено: 20.11.12 15:20. Заголовок: Есть прогресс выходи..
Есть прогресс выходит первоначальная заставка затем прога вываливается на первой встретившейся ф-ции dbcreate с сообщением - ДБ КРЕАТЕ ИНТЕРНАЛ ЭРРОР.
Еще почемуто попытка вставить код - alert( "ku-ku" ) приводит появлению окошка с надписью типа - OMPT (4606) и программа завершается. Но и это уже прогресс буду ковырять дальше.
Непонятно зачем в текст программы были вставлены куски из декампилированного clipper.lib, причем вставлены они хаотично... Засяду ка я за очистку проги от ненужного текста....хотя это и не быстрая процедура...
Отправлено: 20.11.12 16:00. Заголовок: Исходники как я пони..
Исходники как я понимаю получены декомпилятором. А декомпилятор берет весь пи-код, который содержится в exe. Это и пользовательский пи-код, и пи-код функций клиппера, реализованных на уровне prg и содержащихся в стандартных библиотеках Декомпилятору неизвестно, из какого модуля получен пи-код, вот он и декомпилирует все, что может. Поэтому конечно стандартные функции лучше удалить, все равно они будут прилинкованы из библиотек. Скажем, можно взять модуль source\sys\getsys.prg и смело удалять из текста все функции, в нем присутствующие Правда, там есть еще static-переменные, с ними не так просто А по поводу предупреждений: перед первой функцией можно добавить строку:
memvar GetList
и предупреждения по этой переменной исчезнут
Что до остальных предупреждений, то они могут быть и безобидными, а могут и опасными, в зависимости от того, в каком стиле написана программа. Могут быть неприятности из-за декомпиляции при разбивке текста на несколько модулей Скажем, если функция использует static-переменную, то эта переменная должна остаться в том же модуле, что и сама функция.
Нужна помощь в сборке проекта. У меня имеется голый исходник размером в 28700 строк который мне достался от одного человека со словами - что это единственный существующий текст программы - другого нет. У меня получить работоспособный экзешник не получается
Давай исходник, я тебе его на хХарбор переведу и не будешь мучиться с Клипером.
Отправлено: 22.11.12 15:40. Заголовок: Программа начинает о..
Программа начинает оживать.... собс-но уже работает за исключением печати. Печать реализована в классе TPrinter. линкуется с библиотекой objects без предупреждений... Но при попытке печати прога вываливается с ошибкой - ERROR BASE/1004 No exported method: LOAD. Расскажите пожалуйста про варианты возникновения данной ошибки.
Отправлено: 22.11.12 22:26. Заголовок: В переданном мне исх..
В переданном мне исходнике (кстати данный текст полчен при помощи rescue5 - мной проверено) отсутствует текст одного метода класса TPrinter, т.к. он присутствует в объявлении класса. Вопрос - можно ли как-нибудь его вычленить из экзешника (rescue - получается отказывается его извлекать)?
Отправлено: 22.11.12 23:32. Заголовок: Здесь есть 2 вариант..
Здесь есть 2 варианта: или этот метод написан на C, и тогда его декомпилировать невозможно. Но это маловероятно. 2-й вариант - декомпилятор действительно декомпилировал не весь пи-код. Но тогда это проблема небольшая, можно декомпилировать этот exe Валькирией. Валькирия имеет лучшую репутацию, чем rescue5. Чтобы труд по обработке текста и сборке проекта не пропал даром, можно перенести в уже обработанный текст программы только один этот метод, полученный Валькирией. Саму Valkyrie думаю найти несложно.
Отправлено: 23.11.12 12:09. Заголовок: увы и ах.....Valkyri..
увы и ах.....Valkyrie тоже ниче не выдала. Есть мелкая надежда на то что используемый класс не полное творение разработчика. Поэтому ниже приведен текст фнукция где этот класс создается мож с подобным классом уже кто сталкивался....
забыл сообщение.... а возможности проверить нет. но ругань идет на (если память не изменяет) lloaderro . На LOAD не ругаемся уже. Точнее не скажу... только вечером. 3-я строка TPRNLOAD. Вечером попробую дописать там букву 'r'.
Здравствуйте. Продолжаю мучить программу и вот вылезла интересная ошибка... ошибка лезет из класса TPRINTER. Кормом для этого класса являются текстовые файлы типа:
цитата:
#Абоненты var Sum,ItGaz,kodk1,mNaimg,nom KOLSTR=60 RULON=Да DEVICE=abonement EJECT=&l0H TITUL ОТЧЕТ ПО АБОНЕМЕНТАМ ПЕРИОД С @{dtoc(mD1)+' ПО '+dtoc(mD2)} ENDTITUL MAINFOOT Итого @{str(Sum,9)}
Эти файлы обрабатываются методом TPRNLOAD приведенный в 15 посте(аргументом ARG1 для него будет путь к файлу). По ходу выполнения этого метода заполняется массив tprinter::aopr. В него заносятся строки кода, которые потом динамически будут выполняться. Есть один отчет (вернее разнарядка) на которой программа вываливается с сообщение об ошибке - BASE/1449 Syntax error: &. Ошибка возникает в строке
цитата:
otherwise AAdd(Local1:aopr, {"OP", Local7, Local5, 0, &("{||" + Local7 + "}")}) // при выполнении этой строки endcase
метода TPRNLOAD, при обработке строки текстового файла отчета -
цитата:
var nSel,tmp,i,kolrec,cString,KolGor,Kol,SumR,SumO var aKodRaion,aNamRaion,aSumRaion,j,Sum,aSumRAll #,part var zagol,zagol1,zagol2,zagol3,zagol4,aCena,aKol,aKolO,cString1,kolrec1,SumAllG,SumAllO #Печать разнарядки на город @1=dtoc(rrh0->date) @2=trim(rrh0->time) @3=alltrim(str(rrh0->NomRasn,3)) @4='('+trim(rrh0->prim)+')' KOLSTR=55 RULON=Нет EJECT=&l0H Ustanovki=&l1O(s12H&l8D LIST=Нет #mod(oPrn:nList,2) PAGEHEAD Р А З Н А Р Я Д К А N @3 @1 @4 лист @{str(oPrn:nList,3)} часть @{str(part,2)} @{saytime()} 1/3/2/Enter/F5 @{if(oPrn:nList%2=0,chr(13)+chr(10)+zagol,'')} ENDPAGEHEAD @ part:=1 @ SumAllO:=0 @ SumAllG:=0 @ aKodRaion:={} @ aNamRaion:={} @ aSumRaion:={} @ aSumRAll:={} @ aCena:={} @ zagol:='' @ dbSelectArea('raig') @ dbGoTop() @ while !eof() @ aAdd(aKodRaion,raig->kodr) @ aAdd(aNamRaion,raig->naim) @ aAdd(aSumRaion,0) @ aAdd(aSumRAll,0) @ dbSkip() @ endwhile @ while !empty(aLockList) @ dbSelectArea('rrh') @ kolrec:=len(aLockList) @ aKol:=array(kolrec) @ aKolO:=array(kolrec) @ aFill(aKol,0) @ aFill(aKolO,0) @ Zagol1:=' РАЙОН:' @ Zagol2:=' :' @ Zagol3:=' :' @ Zagol4:=' :' @ i:=1 @ aFill(aSumRaion,0) @ while i<=kolrec.and.i<=9 @ dbGoTo(aLockList) @ Zagol1:=Zagol1+rrh->nnom+':' @ Zagol2:=Zagol2+padr(rrh->naimg,13)+':' @ Zagol3:=Zagol3+padr(substr(rrh->naimg,14),13)+':' @ Zagol4:=Zagol4+str(rrh->rcena,8,2)+' :' @ aAdd(aCena,rrh->rcena) @ i:=i+1 @ endwhile @ kolrec1:=i-1 @ if part>1 @ oPrn:NewPage() @ endif ------------------------------------------------------------------------------------------------------------------------------------ $@{zagol1} ------------------------------------------------------------------------------------------------------------------------------------ $@{zagol2} $@{zagol3} ------------------------------------------------------------------------------------------------------------------------------------ $@{zagol4} ------------------------------------------------------------------------------------------------------------------------------------ @ zagol:=' ------------------------------------------------------------------------------------------------------------------------------------'+chr(13)+chr(10) @ zagol:=zagol+zagol1+chr(13)+chr(10) @ zagol:=zagol+' ------------------------------------------------------------------------------------------------------------------------------------'+chr(13)+chr(10) @ zagol:=zagol+zagol2+chr(13)+chr(10) @ zagol:=zagol+zagol3+chr(13)+chr(10) @ zagol:=zagol+' ------------------------------------------------------------------------------------------------------------------------------------'+chr(13)+chr(10) @ zagol:=zagol+zagol4+chr(13)+chr(10) @ zagol:=zagol+' ------------------------------------------------------------------------------------------------------------------------------------' @ dbSelectArea('raig') @ dbGoTop() @ j:=1 @ while !eof() @ cString:=padr(raig->naim,8) @ i:=1 @ if raig->type='G' @ while i<=kolrec1 @ rrh->(dbGoTo(aLockList)) // ПРИ ОБРАБОТКЕ ЭТОЙ СТРОКИ МЫ ОШИБАЕМСЯ @ if rrd->(dbSeek(str(rrh0->NomRasn,3)+Upper(rrh->naimg)+rrh->nnom+'G'+str(raig->kodr,3))) @ cString:=cString+str(rrd->prihod,6)+' ' @ else @ cString:=cString+str(0,6)+' ' @ endif
Причем до этого момента элементы в массив добавлялись исправно не один десяток раз ( точнее 68), а при добавлении 69-го элемента массива tprinter::aopr получаю ошибку..... . Существуют ли какие либо ограничения на размер массива в клиппере ? если есть как их преодолеть ? Если ограничений нет - то подскажите пожалуйста возможные причины возникновения данной ошибки.
И еще один вопрос. Как мне включить(прилинковать) в ЕХЕ модуль функцию/процедуру явно не использующуюся в программе, но присутствующую во внешнем текстовом файле и, соответственно, выполняющуюся динамически. Например - SwpRunCmd().
Отправлено: 28.11.12 15:44. Заголовок: Существуют ли какие ..
цитата:
Существуют ли какие либо ограничения на размер массива в клиппере ?
4096 элементов.
цитата:
И еще один вопрос. Как мне включить(прилинковать) в ЕХЕ модуль функцию/процедуру явно не использующуюся в программе, но присутствующую во внешнем текстовом файле и, соответственно, выполняющуюся динамически. Например - SwpRunCmd().
Отправлено: 28.11.12 15:49. Заголовок: Ну а касательно ошиб..
Ну а касательно ошибки - похоже, не понравилось содержимое Local7, использующееся в макроподстановке - может быть, кстати, что там как раз вызов функции, явно не вызывавшейся в программе. Выводите этот local7 в файл, увидите, на чем именно она затыкается.
& - оператор, предписывающий макрокомпилятору ( встроенное в ваше прилжение средство ) откомпилировать следующую за & строку. Ошибка BASE 1449 говорит, что эта строка не есть правильное выражение.
В строке все правильно. Попробуйте поэкспериментировать с ней - написать что-нибудь другое, от простейшего - к сложному.
Отправлено: 30.11.12 10:27. Заголовок: nick_mi пишет: А чт..
nick_mi пишет:
цитата:
А что хранится в aLockList? Посмотрите его содержимое
Не думаю, что это имеет значение. Программа ругается на компиляцию строки, а не на выполнение скомпилированного кода, на этой стадии не имеет значения, что содержит aLockList и даже, существует ли он вообще. У меня такое ощущение, что проблема там не в конкретной компилируемой строчке, а в чем-то другом. Может, памяти не хватает, или еще каких-нибудь ресурсов. Для больших программ на Клиппере, насколько я помню, имело значение, как они разбиты на модули, как и чем собраны, с какими опциями линкера. Overlays и все такое ...
Отправлено: 30.11.12 11:40. Заголовок: Это единственная фор..
Это единственная форма которая формируется с ошибкой. Другие два десятка форм формируются нормально. В этом же документе(в этом текстовом файле) эта строка появляется два раза. Исключаю первое появление... спотыкаемся на втором...исключаю второе- сканируем текст файла до конца без вываливаний... Т.е. получается память непричем. А именно не нравится синтаксис строки. О как. ладно оставлю до понедельника.... надо отдохнуть.
Отправлено: 04.12.12 11:39. Заголовок: Проблему с неправиль..
Проблему с неправильной обработкой строки отложил т.к. наткнулся на другую проблему созвучную, видимо, с этой. Для просмотра табличных данных в программе иногда используется следующий экземпляр TBrowse
#include "Set.ch" #include "common.ch"
******************************** function TBROWSEIND(Arg1, Arg2, Arg3, Arg4, Arg5)
Так вот при перемещении по таблице вверх/вниз периодически программа вываливается все с тем же сообщением BASE/1449 Syntax error: &. Только на сей раз это происходит в неопределенный момент времени и положения курсора в таблице. После перезапуска программы ошибка возникает в другом месте...Там же где ошибка возникла перемещаемся без ошибок. Восстановил процедуру логгирования ошибок. Вот его сообщения:
Ошибка BASE/1449 Ошибка в синтаксисе: & Вызов из LOCKERRHAN(0) Вызов из (b)INITHANDL$(0) Вызов из MOVEPOINTE(24) Вызов из (b)TBROWSEIND(11) Вызов из obj:FORCESTABL(0) Вызов из DOCUM(2640) Вызов из (b)VOZVMNU(5167) Вызов из PROCESSMEN(4688) Вызов из VOZVMNU(5182) Вызов из (b)MAIN(190) Вызов из PROCESSMEN(4688) Вызов из MAIN(205) Вызов из TORG_1(18)
Ошибка всегда идет из ф-ции MovePointer, и почти всегда из 24-ой строки(иногда 21 проскакивает).
Подскажите ПЛИЗ что это может значить и куда копать.....
Отправлено: 04.12.12 16:21. Заголовок: 10 лет назад в резул..
10 лет назад в результате плясок с бубном предположили причину этой ошибки, см. ниже. Это связано с какими-то ограничениями по памяти, в результате которых падает макрокомпилятор. Возможно, стоит увеличить размер стека при сборке программы. Это команда блинкера:
I have had syntax errors with & when my app was trying to macro expand a string that had an expression. It was a perfectly good string which should not have generated a syntax error. I have a very large app which still has probably 500 private vars.
I found that by changing some of the privates to locals and making appropriate code changes caused the syntax error to disappear. There seems to be a limit to how many privates the eval stack can hold and when this is reached, the macro compiler goes crazy. If your app does not have alot of private vars, then my advice is probably not applicable.
Можно создать блок кода для indexkey() и уменьшить таким образом число макровычислений.
#define COMPILE(x) &("{||"+x+"}") ... //Модифицировать код static function MovePointer(Arg1, Arg2) Local block:=COMPILE(indexkey()) ... // далее по тексту замена &(indexkey()) на eval(block)
полученные выражение вида DBSKIP(if(Arg1 < 0, ( Local1--, -1 ), ( Local1++, 1 ))) лучше упростить if Arg1 < 0 n:=-1 Local1-- else n:= 1 Local++ endif dbskip(n)
Приватных переменных действительно много.... Буду смотреть что можно сделать в этой ситуации... Сделал одно наблюдение что введение в скрипт линкера строки BLINKER OVERLAY OPSIZE 128 - в разы увеличивает время работы программы до краха(BASE/1449). Такое ощущение что где-то происходит утечка памяти...
Еще объясните пожалуйста что в этом блоке кода может быть неправильно:
memvar SetStack 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)
********************************
При первом же вызове SaveSet() получаю что переменная SETSTACK не существует
petr707 - Ваши предложения попробую позже..Что то у нас сбербанк онлайн не хочет онлайнить.....
Строчка "memvar SetStack" в начале процедуры означает, что в этой процедуре предполагается, что SetStack - это именно memvar, т.е. Private или Public переменная. Если такой нет, то вы получаете то, что получили ... Переменная, описаннпя как Static - это не memvar. Теоретически можно предположить, что где-то должна быть объявлена и Public/Private с тем же именем и эти процедуры обращаются именно к ней, но, скорее всего, здесь просто ошибка. Так что или сделайте эту SetStack Public/Private, или уберите ее объявления как memvar.
Отправлено: 05.12.12 09:09. Заголовок: Без мемвар я получаю..
Без мемвар я получаю предепреждения Warning C1003 Ambiguous reference: 'SETSTACK', поэтому и поставил мемвар. Но и с мемвар и без получаю данную ошибку....
Насколько я понимаю область видимости данной переменной распространяется на весь данный файл. Предположить что это имя уже используется... обозвал её StTorgSt - получил что нет такой перемененной.....
Отправлено: 05.12.12 09:30. Заголовок: Да, область видимост..
Да, область видимости static переменной, объявленной вне какой-либо процедуры, распространяется на весь файл. А точно у вас эта Setstack объявлена вне процедур ?
local length:= Len(StTorgSt) if (length > 0) select (StTorgSt[length, 1]) set order to StTorgSt[length, 2] go StTorgSt[length, 3] endif aSize(StTorgSt, length - 1)
********************************
программа на отсутствие не ругается, но и работает не правильно...
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)
НЕТ ТАКОЙ ПЕРЕМЕННОЙ....Хотя рядом статические переменные которые используются в ф-циях ввода пароля....Пароль же я ввожу при входе в программу и там все нормально.
Отправлено: 20.12.12 19:40. Заголовок: Перевел проект на xH..
Перевел проект на xHarbour. Появилась стабильность. Доработал печать... Прощай LPT. Появилась возможность запускть прогу под win2008 x64. После нового года буду пробовать людей сажать работать через удал. раб стол.... Красотищщааа....
Всем огромное спасибо за участие... Не прощаюсь. Вопросы все равно будут еще возникать.
Используй gtwvt-терминал. Там можно будет свои шрифты настраивать и регулировать размер задачи на экране. Смотри тему http://clipper.borda.ru/?1-4-0-00000624-000-40-0-1356073627 ищи фразу: GTWVT-терминал "Настройка палитры/шрифтов/размеров экрана" for xHarbour 1.2 !
Все даты в формате GMT
3 час. Хитов сегодня: 287
Права: смайлы да, картинки да, шрифты да, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет
. Дело в том что переданный мне исходник шел одним файлом и клипер при компиляции выдавал - to many labels и не создавал объектный файл. Мне посоветовали просто раздробить программу на куски что я не задумываясь и сделал. Как правильно разделить текст на куски? 
НЕТ ТАКОЙ ПЕРЕМЕННОЙ....Хотя рядом статические переменные которые используются в ф-циях ввода пароля....Пароль же я ввожу при входе в программу и там все нормально.
- участник сейчас на форуме
- участник вне форума