пришлось обновляться, возникают вопросы. решил оживить подфорум =)
поставил FPC 2.6.4 and MSEIDE 3.6
открываю свой проект получаю -
- Код: Выделить всё
Can not read formfile "/opt/project/AccessControl/testsoft/mse/fmsedesk.mfm".
Component "fmDesk":
Error reading fmDesk.optionswidget: Invalid value for property
An exception occurred at $080892A2 :
EReadError : Can not read formfile "/opt/project/AccessControl/testsoft/mse/fmsedesk.mfm".
Component "fmDesk":
Error reading fmDesk.optionswidget: Invalid value for property
$080892A2
$08088D7B
$080883EB
$08149796
$08070ACD
$08070CEA
$0805A8F9
$0805A6CA
$0805C91A
$0805C8B2
$0805C805
$081D3094
$08085885
$0804F2E5
$0804BEA6
что мне пройтись по всем файлам и вычистить лишние проперти ? или есть утилита какая ?
если отказаться от ошибки и попробовать скомпилировать то получаю
- Код: Выделить всё
Free Pascal Compiler version 2.6.4 [2015/03/13] for i386
Copyright (c) 1993-2014 by Florian Klaempfl and others
Target OS: Linux for i386
Compiling acdesk2.pas
Fatal: Can't find unit msesysintf used by mclasses
Fatal: Compilation aborted
Добавлено спустя 13 минут 35 секунд:
вторую исправил нашел новую раньше использовал
- Код: Выделить всё
qch.locate(searchstring,gch.DataLink.DataSource.DataSet.Fields[1],[loo_caseinsensitive,loo_partialkey]);
теперь надо
- Код: Выделить всё
function locate(const afields: array of tfield;
const akeys: array of const; const aisnull: array of boolean;
const akeyoptions: array of locatekeyoptionsty;
const aoptions: locaterecordoptionsty = []): locateresultty; reintroduce;
куда исправить малой кровью ?
Добавлено спустя 50 минут 33 секунды:
поудалял лишнии проперти, скомпилировалось. правда падает на неожиданных местах, но попробую их всех найти постепенно
еще одна беда. печатаю я через ps файл
- Код: Выделить всё
execwaitmse(tosysfilepath(printcmd.value)+' '+tmpfilename);//evince
запускаю evince или gv вешаются иксы, не реагируют на переключение на другие программы пока не нажмешь alt+f4
что не так делаю ?
Добавлено спустя 6 минут 35 секунд:
- Код: Выделить всё
ms := TMemoryStream.create;
TBlobField(q.fieldbyname('body')).SaveToStream(ms);
падает с сегментацией правда не знаю к мсе это или нет
Добавлено спустя 3 минуты 8 секунд:
вот код ошибки
- Код: Выделить всё
Program received signal SIGSEGV, Segmentation fault.
0x081fee8a in DB_TBLOBFIELD_$__GETBLOBSTREAM$TBLOBSTREAMMODE$$TSTREAM ()
БД firebird 2.5