Предложение... и ламерские вопросы

Форум » [x]Harbour » Предложение... и ламерские вопросы » Ответить

Предложение... и ламерские вопросы

AndreyZh: Добрый день уважаемые специалисты! Попробовал перевести часть большого проекта на Clipper 5.01R+CTII под xHarbour в плане проверки "быстродействия" и поверхностного анализа проблем совместимости. СПАСИБО Верченко Андрею за его инструкцию!!! Некоторый предварительные (для меня) результаты: 1. Оконная система CT поддерживается в xHarbour; 2. Быстродействие xHarbour в математике в 8 раз быстрее (наверное использование RAM), а на базах примерно на 30% быстрее, что очень заманчиво. Т.е. есть резон пытаться перевести часть "некритичных" приложений на [x]Harbour. НО!!! Натолкнулся на ряд технических и организационных проблем... Главная из которых отсутствие в "удобном" доступе документации и весьма полезных инструкций/программ (на русском языке), хотя они имеются в наличии, как правило авторы размещают их в хранилищах с ограниченным сроком хранения и мои попытки скачать их натыкаются на сообщение "файл удалён из хранилища". ПРЕДЛОЖЕНИЕ: На своём сайте могу сделать страницу со ссылками на полезные программы и документацию, а так же разместить на сайте архивы данной (весьма полезной информации), выделив под это до 100mb (хостинг халявный и ограниченный по размеру). Для этого пришлите мне пожалуйста на почту zhsoft///@///mail.ru копии архивов документации с кратким оглавление и авторством. В частности руссификацию xMate, инструкцию по переводу приложений, какую нибудь документацию по языку и RDD и т.д. ВОПРОСЫ 1. Правильно ли понял, что заброшены многие полезные проекты под Harbour типа miniGui, xMate, hwGui и что это "нормальная практика" развития проекта Harbour? 2. Пожалуйста предложите "свободную" связку для создания графических приложений одновременно под Win32/64/Linux типа FrameWork+Gui+[x]Harbour+ReportSystem+RddSQL(free), но которая развивается по настоящее время и существует хотя бы 3 года, например, как понял возможен вариант xMate + hwGui + xHarbour, но всё кроме Harb брошено в 1996 году, т.е. неперспективно. 3. Натолкнулся на ряд несовместимостей (в препроцессоре, использовании "внешних" функций на C)! Если не сложно - приведите другие примеры несовместимости и глюков [x]Harbour, которые необходимо "особо" обходить! Важная мелочь? Что проблема работы с 866 кодировкой в Upper/Lower не решена? Это критично, т.к. используется в индексах, да и предполагаю продолжать развитие Clipper проекта, постепенно убирая несовместимости с Harbour пока на 100% не буду уверен в "безглючности" Harbour. Что нет функции TempFile() из CT в xHarbour? Заранее спасибо за ответы!!!

Ответов - 139, стр: 1 2 3 4 5 6 7 All

Pasha: AndreyZh пишет: Что проблема работы с 866 кодировкой в Upper/Lower не решена? А разве есть какая-то проблема ? К слову. minigui жив, да и hwgui ожил в последнее время.

AndreyZh: А разве есть какая-то проблема ? Не работает xharbour последний релиз: индекс: Upper(name) запись: Вася Пупкин a:="вася" DbSeek(Upper(a)) // Не находит a:="Вася" DbSeek(a) // находит Да и тема была на форуме.

AndreyZh: В догонку посмотрел свои "свежие" скачки: hwGui - последнее описание от 2004 года (автору сейчас LetoDb, наверное интересно?) minGui - не увидел развития с 2006 года, хотя "версия" документации от 2009

Pasha: AndreyZh пишет: А разве есть какая-то проблема ? Не работает xharbour последний релиз: индекс: Upper(name) запись: Вася Пупкин a:="вася" DbSeek(Upper(a)) // Не находит a:="Вася" DbSeek(a) // находит Да и тема была на форуме. Кодовая страница подключена ? Надо выдать команды REQUEST HB_CODEPAGE_RU866 hb_SetCodepage( "RU866" ) какой результат выдает ? Upper('вася') ?

Pasha: AndreyZh пишет: В догонку посмотрел свои "свежие" скачки: hwGui - последнее описание от 2004 года (автору сейчас LetoDb, наверное интересно?) minGui - не увидел развития с 2006 года, хотя "версия" документации от 2009 По hwgui. Вы имеете в виду саму библиотеку или документацию к ней ? Если библиотеку, то несколько человек что-то по ней делают, 5 дней назад был коммит. По minigui. Загляните в раздел gui на этом форуме, Григорий же обновления постоянно выкладывает.

AndreyZh: Надо выдать команды REQUEST HB_CODEPAGE_RU866 hb_SetCodepage( "RU866" ) Проверил - не работает. xHarbour 1.2.1 Тема уже обсуждалась http://clipper.borda.ru/?1-4-0-00000385-000-0-0-1227168755 Что проблема не решена? Вот по - этому и открыл тему... Документации на русском почти ноль, на импортном - просто техническое описание функций, описание ошибок компиляции и времени выполнения вообще не нашел... А себя считаю разработчиком прикладных задач и ковыряние в чужом коде (особено системы разработки) не очень приятно. Раннее и сегодня попытался посмотреть miniGui/hwGUI, но она ориентированна на Harbour, т.е. на xHarbour не реагирует (конечно можно разобраться, но "не моё") и абсолютно непонятно: 1. Автор рускоязычный hwGui, а "корявые" и возможно неполные доки на английском. 2. Зачем мне для использования среды нужно собирать её из исходников? Что это спорт такой? Обратный пример: По описанию Верченко А. за 20 минут установил xHarbour и спокойно начал компилировать и использовать примеры программ, а через пару часов уже пытался работать со своей системой. 3. "Пробегала" ссылка на описание "для новичков" по этим системам и их руссификации - сейчас ни одна ссылка не работает!!!

Pasha: AndreyZh пишет: Проверил - не работает. xHarbour 1.2.1 Тема уже обсуждалась http://clipper.borda.ru/?1-4-0-00000385-000-0-0-1227168755 Что проблема не решена? Я просто забыл об этом, все-таки полтора года назад тема была Вроде бы исправлено почти год назад: 2009-04-14 13:12 UTC+0300 Phil Krylov <phil a t newstar.rinet.ru> * include/hbexprb.c * include/hbexprop.h * source/common/expropt2.c ! restored Mindaugas code for UPPER optimization and added logic to optimize UPPER for strings with only Latin letters, digit and spaces just like in Clipper. Now code like: ? Upper( chr(65)+chr(66)+chr(67)+"0123 QWE asd " ) + "ZXC" is fully optimized at compile time to single string expression. (by Przemyslaw Czerpak and Mindaugas Kavaliauskas, borrowed from Harbour) * include/hbclass.ch * Some comment typos fixed.

AndreyZh: Я просто забыл об этом, все-таки полтора года назад тема была Вроде бы исправлено почти год назад: Как понять и воспользоваться сообщением - не понял! Увы! Даже проблема в такой мелочи? Пример SS

Dima: Pasha пишет: Надо выдать команды REQUEST HB_CODEPAGE_RU866 hb_SetCodepage( "RU866" ) какой результат выдает ? Upper('вася') ? Да проходили же уже эту тему ;) Proc main Local a:='вася' REQUEST HB_CODEPAGE_RU866 hb_SetCodepage( "RU866" ) ? Upper(a) // так работает ? Upper('вася') // не пашет return

Dima: Dima пишет: ? Upper('вася') // не пашет Кстати маловероятно что подобный код будет использоваться в реальной программе.

Dima: AndreyZh пишет: Что нет функции TempFile() из CT в xHarbour? В Libnf.lib есть В прочем и самому ее написать не составит особого труда.

Pasha: AndreyZh пишет: Как понять и воспользоваться сообщением - не понял! Увы! Даже проблема в такой мелочи? Да все просто. Фил исправил этот баг в upper 24.4.2009. У Вас, по видимому сборка xHarbour более ранняя, в которой баг еще есть Вывод: надо использовать сборку после этой даты. Поскольку релиза после марта 2009 кажется не было, надо собрать xHb самому (ничего в этом военного нет), или найти уже готовую сборку. Их время от времени кто-нибудь выкладывает, даже на этом форуме

Dima: Pasha Ни чего не исправлено. Сливал исходники пару дней назад и пересобирал Xharbour ? Upper('вася') // выдает вася

AndreyZh: Кстати маловероятно что подобный код будет использоваться в реальной программе Выше пояснял, что у меня индексы Upper(name), по которым осуществляется поиск и работа, т.е. мне нужная родная функция, но это мелочь - больше волнует сколько "ещё открытий чудных" может ожидать при использовании xHarbour. В Libnf.lib есть А шо она тогда не цепляется при сборке приложения? В прочем и самому ее написать не составит особого труда Спасибо - но уже и сам написал (давно и для CT III где этот глюк уже присутствовал). НО мне нужна полная совместимость Clipper (буду модифицировать) и xHarbour приложений и здесь уже сложности - самописка TempFile существенно более тормозная и слишком активно используемая. Да все просто. Фил исправил этот баг в upper 24.4.2009. У Вас, по видимому сборка xHarbour более ранняя, в которой баг еще есть Вывод: надо использовать сборку после этой даты. Поскольку релиза после марта 2009 кажется не было, надо собрать xHb самому (ничего в этом военного нет), или найти уже готовую сборку 1. Не увидев ответа сам поискал на буржуйских сайтах - проблема не решена (до 25.02.2010) и самое "лучшее" предложение заменить "приложенным" C модулем, соответствующий модуль xHarbour и пересобрать проект, т.е. компилятор превращать в самописку. 2. Свежее, чем у меня официальных сборок xHarbour - НЕТ. Использовать самосборки - как потом контролировать инструмент. 3. Уже пояснил, что не любитель "системного" программирования, да и времени на это не очень много....

Dima: AndreyZh пишет: А шо она тогда не цепляется при сборке приложения? а чего бы ей самой цепляться ;))) Прицепи сам. У тебя же в Clipper , доп библиотеки сами не цепляются.

AndreyZh: Dima. Спасибо! Думал, что в xHarbour "всё включено". Еще "несовместимость": На Clipper конструкция работает (компилируется), а в xHarbour НЕТ: local ... <блок программы> priv oVar oVar := ... Но работает конструкция: local ... priv oVar <блок программы> oVar := ...

Dima: AndreyZh Проверил , компилятся оба варианта.

AndreyZh: Извините! Вылетает при выполнении - пример исправленного кода: * Головной модуль. Обслуживание списка накладных. PROC pReceipts() LOCA sOp:="0200", cOldCol:=SetColor(), nKeys:=0, nCount:=0, aArr:={} **** Так работает PRIV oTb S_PROC J_OPEN pInvOrder() // Начали. SELE RECEIPTS ORDE nOrder REC nRecno DbSkip(-1) *** а так порождает ошибку времени выполнения PRIV oTb // Открываем окно просмотра списка. fSwopen(0,0,24,79,cColor,3) @ 0,44 SAY " Накладные на приход от поставщика " COLOR cMainc @ 6,0 SAY Chr(195)+Repl(Chr(196),78)+Chr(180) @ 8,0 SAY Chr(195)+Repl(Chr(196),78)+Chr(180) oTB := TBRowseDB(7,1,23,78) oTB:headSep := Chr(196) oTB:addColumn( TBColumnNew("ДатаНак.|N_ накладной|КодН|О|СуммаСоСкид.|Отср.| Ост.оплата |КодД|Сч|З|О|Р|У|Г",{|| cDemoInvRR() }) ) // Описываю массив для вызова меню дополнительных задач. PRIV aArg:={{" Статистика по отобранной группе документов","pPrSwGrDoc(2)",FALSE},; ........... {"aF10 Снятие всех пометок по отбору док.в группу","pGroupObj(oTb,.F.)",TRUE}} DO WHIL TRUE #include "table.ch" **** Место вылета по ошибке DO CASE CASE nKeys == K_INS; IF lAddChInv( TRUE) THEN REF_INV // REC .............................. CASE nKeys == K_ESC; EXIT ENDC // Расчет числа позиций, отражаем наименование клиента и фамилию И.О. кладовщика. pStab(oTb) pDemoShap(cId) ENDD nOrder := zOrd() nRecno := RecNo() fDeact(cOldCol) pCloseJornal(sOp,1,"") RETU

Pasha: Dima пишет: Pasha Ни чего не исправлено. Сливал исходники пару дней назад и пересобирал Xharbour ? Upper('вася') // выдает вася Я тоже перепроверил - работет. По сырцам видно, что исправлено. Local cStr := 'Вася' REQUEST HB_CODEPAGE_RU866 hb_SetCodepage( "RU866" ) ? Upper('Вася') ? Upper(cStr) wait Оба вызова дают правильный результат Дима, собери маленький тест, и глянь получившийся файл *.с. Там должен быть вызов функции upper Тест вроде такого REQUEST HB_GT_WIN REQUEST HB_GT_WIN_DEFAULT function Main() REQUEST HB_CODEPAGE_RU866 hb_SetCodepage( "RU866" ) ? Upper('Вася') wait return nil Функция main в модуле с должны быть примерно такой: [pre]HB_FUNC( MAIN ) { static const BYTE pcode[] = { HB_P_MODULENAME, /* ua.prg:MAIN */ 'u', 'a', '.', 'p', 'r', 'g', ':', 'M', 'A', 'I', 'N', 0, /* 00013 */ HB_P_BASELINE, 7, 0, /* 7 */ HB_P_PUSHSYMNEAR, 4, /* HB_SETCODEPAGE */ HB_P_PUSHNIL, HB_P_PUSHSTRSHORT, 6, /* 6 */ 'R', 'U', '8', '6', '6', 0, HB_P_DOSHORT, 1, /* 00029 */ HB_P_LINEOFFSET, 1, /* 8 */ HB_P_PUSHSYMNEAR, 5, /* QOUT */ HB_P_PUSHNIL, HB_P_PUSHSYMNEAR, 6, /* UPPER */ HB_P_PUSHNIL, HB_P_PUSHSTRSHORT, 5, /* 5 */ 130, 160, 225, 239, 0, HB_P_FUNCTIONSHORT, 1, HB_P_DOSHORT, 1, /* 00048 */ HB_P_LINEOFFSET, 3, /* 10 */ HB_P_PUSHSYMNEAR, 7, /* __WAIT */ HB_P_PUSHNIL, HB_P_DOSHORT, 0, /* 00055 */ HB_P_LINEOFFSET, 4, /* 11 */ HB_P_PUSHNIL, HB_P_RETVALUE, HB_P_ENDPROC /* 00060 */ }; hb_vmExecute( pcode, symbols ); } [/pre] Проблеме была в том, что компилятор выбрасывал вызов upper, и пытался оптимизировать строку-константу сам, и без нужной кодовой страницы делал это неправильно.

AndreyZh: Опять наврал! Назначал после использования (на Clipper прокатывало) oTB := TBRowseDB(7,1,23,78) oTB:headSep := Chr(196) oTB:addColumn( TBColumnNew("ДатаНак.|N_ накладной|КодН|О|СуммаСоСкид.|Отср.| Ост.оплата |КодД|Сч|З|О|Р|У|Г",{|| cDemoInvRR() }) ) PRIV oTb

Pasha: AndreyZh пишет: 1. Не увидев ответа сам поискал на буржуйских сайтах - проблема не решена (до 25.02.2010) и самое "лучшее" предложение заменить "приложенным" C модулем, соответствующий модуль xHarbour и пересобрать проект, т.е. компилятор превращать в самописку. 2. Свежее, чем у меня официальных сборок xHarbour - НЕТ. Использовать самосборки - как потом контролировать инструмент. 3. Уже пояснил, что не любитель "системного" программирования, да и времени на это не очень много.... Да это же не системное программирование, да и не программирование вообще. Это сборка. То есть настроил среду, запустил батник и получил готовый харбор. Впрочем, как хотите, Ни заставлять, ни агитировать, ни уговаривать я не буду, мне то это зачем. Мое дело - обрисовать текущее состояние и помочь в решении проблем, если такие возникнут. А баг с upper таки исправлен. Кто-нибудь, проверьте еще для ясности. Кстати, я сам использую сборку харбора с этим багом, и знаю о нем. Просто у меня заведомо нет конструкций, где upper вызывается со строковой константой, а не с переменной или полем таблицы.

Dima: Pasha пишет: Local cStr := 'Вася' REQUEST HB_CODEPAGE_RU866 hb_SetCodepage( "RU866" ) ? Upper('Вася') ? Upper(cStr) wait Проверил ? Upper('Вася') // не работает Текст с такой [pre2] HB_FUNC( MAIN ) { static const BYTE pcode[] = { /* 00000 */ HB_P_BASELINE, 3, 0, /* 3 */ HB_P_PUSHSYMNEAR, 2, /* HB_SETCODEPAGE */ HB_P_PUSHNIL, HB_P_PUSHSTRSHORT, 6, /* 6 */ 'R', 'U', '8', '6', '6', 0, HB_P_DOSHORT, 1, /* 00016 */ HB_P_LINEOFFSET, 3, /* 6 */ HB_P_PUSHSYMNEAR, 3, /* QOUT */ HB_P_PUSHNIL, HB_P_PUSHSYMNEAR, 4, /* UPPER */ HB_P_PUSHNIL, HB_P_PUSHSTRSHORT, 5, /* 5 */ 162, 160, 225, 239, 0, HB_P_FUNCTIONSHORT, 1, HB_P_DOSHORT, 1, /* 00035 */ HB_P_LINEOFFSET, 4, /* 7 */ HB_P_PUSHSYMNEAR, 3, /* QOUT */ HB_P_PUSHNIL, HB_P_DOSHORT, 0, /* 00042 */ HB_P_LINEOFFSET, 5, /* 8 */ HB_P_ENDPROC /* 00045 */ }; hb_vmExecute( pcode, symbols ); } [/pre2]

Dima: AndreyZh пишет: у меня индексы Upper(name) в индексах работает нормально.

Pasha: А такой тест: REQUEST HB_CODEPAGE_RU866 hb_SetCodepage( "RU866" ) ? Upper('Вася') wait какой будет код на C ?

AndreyZh: Господа, а можно мне на почту zhsoft@mail.ru прислать необходимые файлы, что бы не связываться со "сборками", а то жалко бросать начатые эксперимент?

Dima: Pasha пишет: какой будет код на C ? [pre2] HB_FUNC( MAIN ) { static const BYTE pcode[] = { /* 00000 */ HB_P_BASELINE, 6, 0, /* 6 */ HB_P_PUSHSYMNEAR, 2, /* HB_SETCODEPAGE */ HB_P_PUSHNIL, HB_P_PUSHSTRSHORT, 6, /* 6 */ 'R', 'U', '8', '6', '6', 0, HB_P_DOSHORT, 1, /* 00016 */ HB_P_LINEOFFSET, 1, /* 7 */ HB_P_PUSHSYMNEAR, 3, /* QOUT */ HB_P_PUSHNIL, HB_P_PUSHSYMNEAR, 4, /* UPPER */ HB_P_PUSHNIL, HB_P_PUSHSTRSHORT, 5, /* 5 */ 130, 160, 225, 239, 0, HB_P_FUNCTIONSHORT, 1, HB_P_DOSHORT, 1, /* 00035 */ HB_P_LINEOFFSET, 2, /* 8 */ HB_P_PUSHSYMNEAR, 5, /* __WAIT */ HB_P_PUSHNIL, HB_P_DOSHORT, 0, /* 00042 */ HB_P_LINEOFFSET, 3, /* 9 */ HB_P_PUSHNIL, HB_P_RETVALUE, HB_P_ENDPROC /* 00047 */ }; hb_vmExecute( pcode, symbols ); } [/pre2] Pasha пишет: REQUEST HB_CODEPAGE_RU866 hb_SetCodepage( "RU866" ) ? Upper('Вася') wait ? Upper('Вася') // не работает

Pasha: AndreyZh пишет: Опять наврал! Назначал после использования (на Clipper прокатывало) oTB := TBRowseDB(7,1,23,78) oTB:headSep := Chr(196) oTB:addColumn( TBColumnNew("ДатаНак.|N_ накладной|КодН|О|СуммаСоСкид.|Отср.| Ост.оплата |КодД|Сч|З|О|Р|У|Г",{|| cDemoInvRR() }) ) PRIV oTb Я не очень понял, где возникает ошибка. Здесь переменная oTb создается оператором Private 2-й раз, после того как она была создана неявно операцией присваивания ?

Pasha: Dima пишет: ? Upper('Вася') // не работает По тексту видно, что сама функция upper вызывается, компилятор не подавляет ее вызов, и она должна отработать, и отработала у меня правильно. В чем дело - мне непонятно, я вот 20 минут назад как собрал xHarbour и прогнал тест. cStr := 'Вася' ? Upper(cStr) работает ?

Dima: Pasha пишет: cStr := 'Вася' ? Upper(cStr) работает ? Это и работало.

Pasha: AndreyZh пишет: Господа, а можно мне на почту zhsoft@mail.ru прислать необходимые файлы, что бы не связываться со "сборками", а то жалко бросать начатые эксперимент? Полная сборка xHarbour вместе с сырцами с CVS получается около 20М. Как отправить ?

AndreyZh: Как быстро идёт обмен мнениями!!? Я не очень понял, где возникает ошибка. Здесь переменная oTb создается оператором Private 2-й раз, после того как она была создана неявно операцией присваивания ? Код, вызывающий ошибку: PROC pReceipts() LOCA sOp:="0200", cOldCol:=SetColor(), nKeys:=0, nCount:=0, aArr:={} S_PROC ..................................... oTB := TBRowseDB(7,1,23,78) oTB:headSep := Chr(196) ..................................... PRIV oTb // Глупо, но объявляю после инициализации .................................... DO WHIL TRUE #include "table.ch" **** Место вылета по ошибке - там ерунда типа oTb:stabilize() и т.п. DO CASE CASE nKeys == K_INS; IF lAddChInv( TRUE) THEN REF_INV // REC .............................. Извините за повторение просьбы! а можно мне на почту zhsoft@mail.ru прислать необходимые файлы, что бы не связываться со "сборками", а то жалко бросать начатые эксперимент?

AndreyZh: Полная сборка xHarbour вместе с сырцами с CVS получается около 20М. Как отправить ? Мне только файлы (вероятно только компилятор и библиотеку), где произошли изменения, но если не сложно/возможно, то и 20mb сойдёт.

Pasha: AndreyZh пишет: Мне только файлы (вероятно только компилятор и библиотеку), где произошли изменения, но если не сложно/возможно, то и 20mb сойдёт. Если только lib, include и bin, то обьем получается небольшой Но и сырцы ведь тоже нужны, а за год изменений было очень много.

Dima: Странно все это Павел. У тебя работает , у меня нет function Main() REQUEST HB_CODEPAGE_RU866 hb_SetCodepage( "RU866" ) ? Upper('Вася') // BAD ? Upper('test') // OK wait return nil

Pasha: AndreyZh пишет: PRIV oTb // Глупо, но объявляю после инициализации Понятно. Харбор так и работает aa := 'Hello' ? aa // результат - Hello Private aa ? aa // результат - nil То есть, если создаваемая private - переменная уже существует, то харбор очищает ее значение. Если в клиппере не так - то это несовместимость с клиппером

AndreyZh: Но и сырцы ведь тоже нужны, а за год изменений было очень много Если "сырцы" - исходный код, то мне он ПОКА не нужен!

Петр: У меня работает xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6633) Copyright 1999-2010, http://www.xharbour.org http://www.harbour-project.org/ Стандартная сборка, скачанная с free.xHarbour.com

Pasha: Dima пишет: Странно все это Павел. У тебя работает , у меня нет function Main() REQUEST HB_CODEPAGE_RU866 hb_SetCodepage( "RU866" ) ? Upper('Вася') // BAD ? Upper('test') // OK wait return nil Да мне самому непонятно. Вызов функции есть, и у меня она отработала, как и должно быть Пусть кто-нибудь третий прогонит этот тестик, на любом xHarbour после апреля 2009 года

Pasha: AndreyZh пишет: Если "сырцы" - исходный код, то мне он ПОКА не нужен! Ага, здесь есть сборка, качайте: http://free.xharbour.com/free.xHarbour.com/Downloads.html

Петр: Pasha пишет: Понятно. Харбор так и работает aa := 'Hello' ? aa // результат - Hello Private aa ? aa // результат - nil То есть, если создаваемая private - переменная уже существует, то харбор очищает ее значение. Так работает xHarbour, в Harbour все OK

AndreyZh: Pasha - спасибо! У меня наверное глюки - был на их сайте, но не нашёл страницы скачки, а только платные проекты Так работает xHarbour, в Harbour все OK В Harbour не знаю, но вспомнил, что на каком-то Clipper 5.2? была аналогичная "обработка ситуации".

TimTim: У меня есть еще 6604 и на нем действительно не работает [pre2]Test := 'Вася' ? Upper( 'Вася' ) // выдает Вася ? Upper( Test ) // выдает ВАСЯ [/pre2] А вот на 6658, который на free.xHarbour.com, все ОК [pre2]Test := 'Вася' ? Upper( 'Вася' ) // выдает ВАСЯ ? Upper( Test ) // выдает ВАСЯ [/pre2]

AndreyZh: Ага, здесь есть сборка, качайте: СПАСИБО!!! Супер - работает.... Буду дальше "ломать зубы" об xHarbour/

AndreyZh: Напрасно радовался... Более сложная функция не работает (на Clipper - ok): Индекс по базе Upper(name); Поиск точно соблюдая шрифр - работает!! Может индекс xHarbour-ом перестроить, но тогда получу несовместимость индексов [pre2]* Производит поиск по ключевому полю отлавливая нажатия клавиш. PROC pSeekIndex( nKeys ) LOCA cSeek:=Upper(Chr(nKeys)), cOldCol:=SetColor() fSwopen(0,0,0,79,cMainc,11) @ 0,2 SAY "Пожалуйста вводите буквы(знаки) для поиска " + cSeek DO WHIL Inkey(0) <> 1000 IF !(C_LASTKEY $ SIM_DIG) EXIT ENDI @ Row(),Col() SAY Upper(C_LASTKEY) cSeek = cSeek + Upper(C_LASTKEY) IF !DbSeek( cSeek ) DbSeek( Left(cSeek,Len(cSeek)-1) ) EXIT ENDI ENDD fDeact(cOldCol) RETU[/pre2]

AndreyZh: Добрый день. Может быть кому-то интересно (т.к. здесь раннее активно обсуждалось)!!! Данная функция работает после переиндексации средствами xHarbour; затем проверил dos командой fc ntx_harb ntx_clip /b - файлы различаются. Следовательно (поправьте, если не так): Индексные файлы xHarbour и Clipper несовместимы и ЗАПРЕЩЕНО их одновременное использование.

gfilatov2002: AndreyZh пишет: Индексные файлы xHarbour и Clipper несовместимы и ЗАПРЕЩЕНО их одновременное использование. Это так, но возможно совместное использование баз данных (см. описание ниже) * $COMMANDNAME$ * SET DBFLOCKSCHEME * $CATEGORY$ * Command * $ONELINER$ * Toggles the lock scheme * $SYNTAX$ * SET DBFLOCKSCHEME 0 | 1 | 2 | 3 | 4 | 5 * $ARGUMENTS$ * The type of locking scheme to use. * #define DBFLOCK_DEFAULT 0 * #define DBFLOCK_CLIP 1 * #define DBFLOCK_CL53 2 * #define DBFLOCK_VFP 3 * #define DBFLOCK_CL53EXT 4 * #define DBFLOCK_XHB64 5 * $DESCRIPTION$ * This command affects how a database file will be locked. * * The default locking scheme is 0. The used locking scheme * used as the default depends on the RDD you use in your * application and operating system your application is * build for. When DBFCDX RDD is used, the default locking * scheme is DBFLOCK_VFP. For DBF, DBFFPT, DBFDBT and DBFNTX * the DBFLOCK_CLIP locking scheme is used as the default. * * Note: In the NTX header file, there is a flag which * informs that DBFLOCK_CL53 should be used. * * The DBFLOCKSCHEME command needs to be set before opening a * database file. Different locking schemes can be set for each * work area, but remember that one file should never be accessed * with different locks at the same time. Always use UNLOCK to * release all locks before changing the locking scheme for a * database file. * * Setting the locking scheme to 1 will lock the database files * like CA-Clipper 5.2 does. If you want to use CA-Clipper 5.3's * locking scheme, set DBFLOCKSCHEME to 2. This will emulate shared * locks using exclusive locks. Visual FoxPro's locking scheme can be * set with DBFLOCKSCHEME TO 3. * * When using locking scheme 4, a shared locking will be emulated. This * scheme is very useful with systems that do not have this. Although there * are no problems with xHarbour, be cautious when using this scheme * with a Clipper application in a network environment. Note that the * file size is up to 4GB which makes this locking scheme the finest for * use with a FAT32 file system. It can also be used for DBFNTX and * DBFCDX. * * When using long files (bigger than 4GB), use scheme 5. This locking * scheme does need long file support in OS. Note that it does not * reduce the size of the file. This scheme was tested successfully on a * Linux system. * * Note: The DBFLOCK_CL53 locking scheme uses the same locking scheme * as the locking scheme that COMMIX for CA-Clipper uses. * * On POSIX (Linux and other *nixes) platforms SHARED locks are * used when possible in all locking schemes. So it's not necessary * to set DBFLOCK_CL53 which cannot work when 32bit file IO is used * (maximum lock offset has 31bit). * * In DOS/Windows the DBFLOCK_CL53 will be probably the most efficient * for multi-user applications. * * Locking schemes for a open database file can be checked with * dbinfo(DBI_LOCKSCHEME). * $EXAMPLES$ * #define DBFLOCK_CL53 2 * REQUEST DBFCDX * * Function Main() * Local aStruct := { { "FIELD1", "C", 30, 0 }, ; * { "FIELD2", "N", 10, 2 }} * RddSetDefault("DBFCDX") * SET DBFLOCKSCHEME TO DBFLOCK_CL53 * DbCreate( "test", aStruct, "DBFCDX") * USE Test SHARED * APPEND BLANK * IF !NETERR() * FIELD1->"This is a test" * FIELD2->100 * "Append operation completed" * COMMIT * ELSE * ? "Append operation failed" * ENDIF * RETU NIL * $STATUS$ * R * $COMPLIANCE$ * This command is a xHarbour extension.

Pasha: Петр пишет: Pasha пишет: цитата: Понятно. Харбор так и работает aa := 'Hello' ? aa // результат - Hello Private aa ? aa // результат - nil То есть, если создаваемая private - переменная уже существует, то харбор очищает ее значение. Так работает xHarbour, в Harbour все OK Да, вот это изменение в Harbour: 2009-03-05 12:04 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/source/vm/memvars.c ! added protection against pushing new private variable on HVM stack if such private variable is already created by the same function. Clipper also has such protection. This code illustrates it: proc main() memvar var1, var2, var3 private var1 := "a", var2 := "b", var3 := "c" ? var1, var2, var3 private var1 := "A", var2, var3 := "C" ? var1, var2, var3 private var1 := NIL, var2, var3 ? var1, var2, var3 return compare Clipper and current Harbour results with old Harbour ones or with xHarbour results.

AndreyZh: Это так, но возможно совместное использование баз данных (см. описание ниже) Нормальная таблица (dbf) наверняка имеет набор индексов, при добавлении/удалении записей или изменении индексных полей перестраивается индексный файл и каждая система перестраивает его по своему? Чтение - смысл если xHarbour программа не может "правильно" найти индексируемую информацию, использовать locate? Но это тормоз... По этому и сделал предположение о невозможности разделяемого совместного использовании таблиц... Это не "наезд" на xHarbour, а просто выявление ограничений использования. Просьба: Дайте пожалуйста ссылку на "красивое" бизнес приложение написанное на harbour с графическим интерфейсом (можно demo) - очень хочется посмотреть "конечный результат" у профессиональных разработчиков на harbour.

TimTim: AndreyZh пишет: В частности руссификацию xMate, инструкцию по переводу приложений, какую нибудь документацию по языку и RDD и т.д. Все что касается моих опусов, то ссылки на них есть "живые" и файлы не удалены. Внимательней читайте соответствующую ветку click here

AndreyZh: Все что касается моих опусов, то ссылки на них есть "живые" и файлы не удалены. Внимательней читайте соответствующую ветку Вас, то и имел "в виду" - сами посмотрите реальность ссылок, начиная с конца... И у меня они есть - хочу больше! Но благодарен за Вашу, весьма полезную работу.

TimTim: Спасибо, на добром слове. Если вы уже скачали файлы, то я не против размещения их на вашем сайте. Ссылки можно опубликовать в той же ветке. Я же по-прежнему буду следить за файлами на narod.yandex.ru. Там все просто, приходит письмо на майл с уведомлением об истечении срока хранения файла и можно при необходимости продлить еще на 90 дней. Что я и делаю.

AndreyZh: *PRIVAT*

Dima: AndreyZh пишет: REQUEST-> Ты бы еще заюзал Procedure-> или что то вроде того ;) ЗЫ [pre2] REQUEST оператор Объявляет список запрашиваемых для компоновки модулей Синтаксис REQUEST <idModule list> [/pre2]

AndreyZh: Млин!!! Спасибо - у меня это имя таблицы, а в Clipper 5.01 команды request уще не было sele REQUEST DbCloseArea() А почему эту конструкцию корректно обрабатывает?

AndreyZh: Добрый вечер! Коль скоро наглею - повторяю просьбу: Дайте пожалуйста ссылку на "красивое" бизнес приложение написанное на harbour с графическим интерфейсом (можно demo) - очень хочется посмотреть "конечный результат" у профессиональных разработчиков на harbour.

Dima: AndreyZh Могу ошибаться но вроде Бэст написан на Harbour http://www.bestnet.ru/ AndreyZh пишет: "красивое" что значит красивое ? Много иконок и всяких рюшечек ? ;) Не под всякой красивой оберткой лежит вкусная конфетка ;)

AndreyZh: Могу ошибаться но вроде Бэст написан на Harbour Не катит! Очень уважительно относясь к данной системе. У них шарахания и как следствие "у них много интерфейсов": 1. БЭСТ до версии 4. Clipper - интерфейс полностью совпадает с интерфейсом моей системы (в 1992 году даже в суд хотел подавать на них за плагиат - ШУТКА). 2. БЭСТ 4/4+. Harbour (терминальный режим) - кажется прекратили развитие. 3. БЭСТ 5. Не знаю на чём реализовали - народ утверждает, что FoxPro. что значит красивое ? Много иконок и всяких рюшечек ? ;) Гламурно, удобно и приятно использовать, например в таком стиле:

Dima: AndreyZh пишет: Гламурно, удобно и приятно использовать, например в таком стиле: Лично мой выбор: удобно , не глючно , максимум функционала по требованию клиента а уже потом гламур. Впрочем максимум функционала я сразу стараюсь реализовывать , обычно у клиентов потом не возникает пожеланий в переделке , хотя бывают исключения , в этом случае я конечно иду на встречу клиенту. Гламур наверное следует наводить в самую последнюю очередь. Это просто мое мнение и оно может отличаться от Вашего. И по ходу. Представь себе (думаю видел наверное) большой магазин чем то торгующим , скажем колбасными изделиями. Пользователи - люди взятые с улицы в основном (условно) , многие из них мышь ранее в глаза не видели. Прога что у них установлена (моя) , въезжают они в нее скажем так за 30 минут , хотя есть и тугодумы. Мышкой елозить по ковру в проге (в таком магазине) это время терять и клиентов. Было вывалена куча бабла на разные версии 1С (и другие проги) в течении нескольких лет и ни одна версия не прижилась. Куча денег была потрачена на покеты и проги к ним (сегодня это все сохнет на складе) Так и сидят они на проге на Clipper + ADS (а куда ж без него) + ряд программ на Xharbour (Harbour) работающих с той же базой но имеющих другой функционал , типа отправки документов по инет , архивации базы + куча всего другого что не возможно сделать в Clipper. PS Пошел я бай наверное ;)

gfilatov2002: AndreyZh пишет: Гламурно, удобно и приятно использовать Так выглядит программа Modest, написанная с использованием библиотеки MiniGUI

Dima: Dima пишет: Так и сидят они на проге на Clipper + ADS Кстати пора уже наверное все переводить на X(Harbour) , практика показала что он ведет себя стабильно (времени не хватает просто)

AndreyZh: Так выглядит программа Modest, написанная с использованием библиотеки MiniGUI Дайте пожалуйста ссылку, где скачать ИСПОЛНЯЕМОЕ приложение или демку, что бы "потыкаться" в клавиатуру и мышку, вводя "реальные" данные.

gfilatov2002: AndreyZh пишет: где скачать ИСПОЛНЯЕМОЕ приложение Здесь лежит 30 готовых программ - выбирай любую/все для тестирования: http://minigui.mylivepage.ru/file/37_MyProgram

AndreyZh: Здесь лежит 30 готовых программ - выбирай любую/все для тестирования: Спасибо большой! Когда, если перейду к созданию приложений на miniGui вынужден буду изучить данные приложения, как образец кода на xHarbour + miniGui. Единственно замечание... да этим же вызвано "моё предложение" (бесконечные регистрации, пароли, платные SMS, удаление файлов и хранилища - как будно никто не хочет развития проекта Harboure): Но сейчас меня интересует реальное, лучше тиражное бизнес приложение на [x]Harbour с графической мордой, удовлетворяющее требованию "Гламурно, удобно и приятно использовать". А есть ли такие в "природе"? Лично мой выбор: удобно , не глючно , максимум функционала по требованию клиента а уже потом гламур. Впрочем максимум функционала я сразу стараюсь реализовывать , обычно у клиентов потом не возникает пожеланий в переделке , хотя бывают исключения , в этом случае я конечно иду на встречу клиенту. Батенька Вы (мы) далеко отстали от реальности (у меня куча фирм, более 500 пользователей), но им всё перечисленное Вами уже не нужно, да и современных клиентов "функционалом" не соблазнить - им надо "красиво" (только за это они готовы платить), а что прячется за красивостью их интересует в последнюю очередь. Вот и у меня, пока "пауза" стоит вопрос - как минимальными усилиями дать "новым" user, что они ХОТЯТ!

Andrey: AndreyZh пишет: На своём сайте могу сделать страницу со ссылками на полезные программы и документацию Бери у меня на сайте: http://abonent4.ru/load AndreyZh пишет: Что нет функции TempFile() из CT в xHarbour? Да есть она. HB_FTempCreate() Смотри документацию, т.е. xHarbour Language Reference Guide 1.1 AndreyZh пишет: 3. БЭСТ 5. Не знаю на чём реализовали - народ утверждает, что FoxPro. Народ не прав ! БЭСТ 5 написан на хХарборе, терминал GTWVW. Сам переписывался год назад с одним из разработчиков... Они потом на С стали писать свой TBrowse и т.д. Но основа все равно хХарбор. Глянь на форум, там в примерах по программированию лежат доки и библиотеки по хХарбору ! AndreyZh пишет: да и современных клиентов "функционалом" не соблазнить - им надо "красиво" (только за это они готовы платить), а что прячется за красивостью их интересует в последнюю очередь. Спорное замечание !!! Я пытаюсь своих пользователей перевести с терминалки на графику.... Так они верещат... Кричат не надо ! А тут еще переход на Lunix назревает... А туда какую граф.библиотеку цеплять, я и не знаю.... Зато терминалка пригодиться ! Сижу жду когда Sergey Spirin Delphi Run-Time for [x]Harbour сделает или когда Qt подцепят .... Пока вариантов не вижу....

AndreyZh: Бери у меня на сайте: http://abonent4.ru/load Уже взял - огромное спасибо! Эти инструкции вернули мой интерес к [x]Harbour - раннее (5 лет назад) опыт был плачевный. Но ссылки из инструкции по miniGui НЕ РАБОТАЮТ. Да есть она. HB_FTempCreate() Смотри документацию, т.е. xHarbour Language Reference Guide 1.1 Спасибо! Уже подсказали, да и сам написал "заменитель". Инструкция? - Где бы её взять! Спорное замечание !!! Я пытаюсь своих пользователей перевести с терминалки на графику.... Так они верещат... Кричат не надо ! Так я и не спорю!!! И у меня большинство клиентов воспитаны в Русских традициях, где ценился УМ... Время это увы ушло, пора перестраивать под современный менталитет (гламур, примитивизм, "красивость"), а за "душой" уже не важно ЧТО. А тут еще переход на Lunix назревает... А туда какую граф.библиотеку цеплять, я и не знаю.... Извините, но процитирую свой стартовый пост: [Пожалуйста предложите "свободную" связку для создания графических приложений одновременно под Win32/64/Linux типа FrameWork+Gui+[x]Harbour+ReportSystem+RddSQL(free), но которая развивается по настоящее время и существует хотя бы 3 года, например, как понял возможен вариант xMate + hwGui + xHarbour, но всё кроме Harb брошено в 1996 году, т.е. неперспективно.] Накачал, но как всегда гемор с документацией. 1. HbWxW is a multiplatform GUI library for xHarbour (Clipper compatible xbase compiler). It is built on top of wxWidgets - a cross-platform GUI library, available on Unix like systems, Windows, MacOS and WinCE operating systems. 2. HwGUI включает в себя две версии - Win32 и Linux. Win32 версия основана на прямых вызовах Win32 API, что позволило сделать ее достаточно быстрой и компактной. Linux версия основана на GTK, она поддерживает те же классы, команды и функции, что и Win32 версия, хотя пока и не все. Таким образом, используя некоторое базовое подмножество HwGUI, вы можете создавать кроссплатформенные GUI приложения. Там же есть "отчётная система". Но г. Кресин её бросил в 2006 с убожеской англоязычной документацией, сейчас он забавляется кажется LetoDB. Что по "отчётной системе" я использую в модуле печати на VFP генератор отчётов (в исходных кодах) через RTF файлы - переписать при необходимости на [x]Harbour довольно легко. Хороший free набор rdd есть у NGK. Так, что многоплатформенный инструмент имеется. Остаётся убедиться в надёжности и перспективности проекта [x]Harbour и возможности использовать его при создании реальных приложений.

Dima: AndreyZh пишет: Спасибо! Уже подсказали, да и сам написал "заменитель". Инструкция? - Где бы её взять! я ее выложил и если есть желание ее получить не нужно "наезжать" на кого то . AndreyZh пишет: Там же есть "отчётная система". Но г. Кресин её бросил в 2006 с убожеской англоязычной документацией, сейчас он забавляется кажется LetoDB. Аккуратнее пожалуйста c выводами и выражениями.

Andrey: Dima пишет: Аккуратнее пожалуйста c выводами и выражениями. Поддерживаю ! Не все могут тратить время на оформление и документацию. Спасибо и за то что продукт (LetoDB) работает и под Win32 и Linux !!! Никто же такого до сих пор не сделал ! Пальцы многие растопыривают, а результата не видно.... Нужна документация, садись помогай... Заодно и пожелания появятся, на улучшения... AndreyZh пишет: Остаётся убедиться в надёжности и перспективности проекта [x]Harbour и возможности использовать его при создании реальных приложений Уже 3-й год сижу на нем, пользователи на стабильность вообще не жалуются... Программы работают на всей линейке Win32 и под Win7. Даже умудрились без меня запустить на Lunix под эмулятором Win32. Там фишка была не в моей задаче, а в ключе защиты HASP HL. Ничего, заработало....

AndreyZh: Извините за мою терминологию - не хотел никого обидеть! я ее выложил и если есть желание ее получить не нужно "наезжать" на кого то И даже кто-то успел скачать! Но сейчас не работает ни одна ссылка на скачку, а беспокоить "прислать индивидуально" пока не хочу. Там же есть "отчётная система". Но г. Кресин её бросил в 2006 с убожеской англоязычной документацией, сейчас он забавляется кажется LetoDB. Аккуратнее пожалуйста c выводами и выражениями. По сообшениям можно понять, что Andrey & Dima имеют множество реальных рускоязычных пользователей своих систем. Представим ситуацию, что Вы бросили один проект (и Ваших пользователей) на "полпути" (оставив им кусочную доку на китайском языке), что бы заняться другим (интересным Вам проектом). Какую реакцию и терминалогию Вы будете ожидать? Более приближусь к примеру: 1. Посмотрел презентацию на сайте Кресина. Соблазнился, тем более, что разработчик Российский; 2. Попытался установить, выгребая из памяти остатки английского. Не получилось; 3. К счастью потерял всего пару дней... Какой должна быть правильная реакция? Не все могут тратить время на оформление и документацию. Спасибо и за то что продукт (LetoDB) работает и под Win32 и Linux !!! Никто же такого до сих пор не сделал ! А краткие справочники (на Русском), то же тяжело? 1. Морально поддерживая усилия по созданию "своей" СУБД (а где гарантия, что она не будет заброшена?) отмечу (или просто у меня плохой английский?), что сейчас есть и ПОДДЕРЖИВАЮТСЯ open source RDD к базам MySQL, SQLite, FireBird, не говоря о поддержки "настольных форматов". 2. В тоже время практически не существует (бесплатных) отлаженный Framework, Report System ? 3. С удовольствием помогу когда (если) сам буду понимать и "разумно использовать" некие технологии, а пока разбираюсь (с трудом) в "детских задачках"! Кроме этого уже предложил, что мне по силам - реакции ноль! Но спасибо за помощь! Уже 3-й год сижу на нем, пользователи на стабильность вообще не жалуются... Извините за мой дурной менталитет - никому не верить на слово... Буду убеждаться "на своей шкуре"! Сейчас на Clipper чувствую более-менее уверенно, т.к. понимаю функционирование своих систем почти на уровне clipper-машины и способен "обойти" большинство глюков. К слову о совместимости... Реально мои clipper приложения сейчас работают на Win All, Linux, PocketPC и слышал о MacOS, но как "чужеродные системы" на платных инструментах разработки (с лицензиями чисто). Harbour имеет теоритические преимущества: 1. FreeWare инструментарий; 2. "Лёгкое" создание "родных" систем под различные ОС из одного исходника; 3. Современные технологии типа многопоточности и т.д. Осталось выявить недостатки и "засады".....

Andrey: AndreyZh пишет: А краткие справочники (на Русском), то же тяжело? Там (по LetoDB) есть список функций... Я примеры делал, проверял, работает. Свои системы переводить тоже буду. Если есть время, то сядь и напиши для них краткий справочник. Все горазды наезжать, а помочь некому. AndreyZh пишет: По сообшениям можно понять, что Andrey & Dima имеют множество реальных рускоязычных пользователей своих систем. Не только русскоязычных (два СС) но и украинских пользователей.... AndreyZh пишет: Кроме этого уже предложил, что мне по силам - реакции ноль! А готовые материалы уже где-то размещены ? Тогда дай ссылку посмотреть, буду предлагать еще материалы. Есть предложение сделать справочник примеров работы на хХарборе в CHM-формате по разделам, типа: 1) Работа с системой... Вызов Окна проводника, ..... ПРИМЕРЫ... 2) Работа с Word'ом 3) Работа с Excel 4) Работа с Open Office и т.д. ! Давай делай заготовку, я примеры рабочие пришлю....

Andrey: AndreyZh пишет: Морально поддерживая усилия по созданию "своей" СУБД (а где гарантия, что она не будет заброшена?) Это (LetoDB) - Open Source !!! Даже если и забросят, то у тебя есть исходники !!! Правь сам или сажай кого нибудь. А насчет других open source RDD к базам MySQL, SQLite, FireBird - это твой выбор.... Мне пока достаточно по функциональности LetoDB... Осталось еще шифрование в нем сделать "ЖЕЛЕЗНОЕ" на ключе HASP HL, то было бы просто супер... AndreyZh пишет: Но ссылки из инструкции по miniGui НЕ РАБОТАЮТ. Это к TimTim - это его дока ! Попрошу его ко мне на сайт выложить.... Я еще там пару статей про ФастРепорт напишу....

TimTim: Andrey пишет: Это к TimTim - это его дока ! Я по MiniGui ничего не писал пока. Так что это не моя ссылка не работает

Andrey: TimTim пишет: Я по MiniGui ничего не писал пока. Да нет же, имеется ввиду ссылка в моей документации по MiniGui на продукт xMate и ваше описание к нему. AndreyZh пишет что эта ссылка не работает... Для наглядности привожу мой текст и ссылку: Создаем папку проекта TEST-IDE на любом диске как указано в документе: "От Clipper к [x]Harbour через xMate.pdf" расположенного на странице http://clipper.borda.ru/?1-4-0-00000305-000-0-0-1263022460 Все вопросы по русификации и настройки работы xMate – автору Хусейнову Темуру. Что ему не понравилось, не знаю. Я же просто на тему форума ссылаюсь. Может выложите эти файлы ко мне на страницу ! Сайт я на год оплатил.

AndreyZh: Уважаемые господа! Еще раз извините за "оскорбления", которые ненарочно произвёл! (Мне ещё к вам за помощью обращаться) Там (по LetoDB) есть список функций... Я примеры делал, проверял, работает. Свои системы переводить тоже буду. Если есть время, то сядь и напиши для них краткий справочник. Все горазды наезжать, а помочь некому. Увы - не владею пока даже элементарными навыками работы с Harbour... Не только русскоязычных (два СС) но и украинских пользователей.... Инструкции Вы для них пишете? Если да, то на каком языке? А готовые материалы уже где-то размещены ? 1. Просил ссылки на "обучающие" материалы по [x]Harbour и внешние системы. 2. В принципе сам уже набрал достаточно. В течении недели оформлю страничку и размещу (соответственно дам ссылку на страничку)... Пока сайт вирусован - наказание за "агресивный" пиар freeware и open source систем. 2) Работа с Word'ом 3) Работа с Excel 4) Работа с Open Office Пока эти вопросы, а так же Report System решал на Visual Foxpro - если интересно размещу ссылку: Изначально предназначенная для печати DOS документов на принтерах, не поддерживающие DOS печать, программа ХБК сейчас может печатать все виды торговых документов, вести каталоги картинок, создавать отчеты пользователей и конвертировать данные DOS программ во множество форматов. А именно: 1. Любой текстовый DOS файла на установленном по умолчанию принтере с автоматической или ручной настройкой параметров печати. 2. Платежные поручения и объявления о сдаче выручки с возможностью их доработки из экранной формы. 3. Приложение к сопроводительной документации по алкоголю. Раздел «Б» по Российскому и импортному товару. 4. Конвектор DBF таблиц в формат XLS (таблицы MS Excel). 5. Конвектор любого текстового DOS документа в формат MS Word посредством MS Word или OO Writer. 6. Каталогизация, архивация, ведение и печать библиотеки произвольных картинок – система электронных документов. 7. Печать финансовых, торговых и аналитических документов в графическом формате, совпадающем с форматом программы 1С. Вторая жизнь DOS приложений – делаются «красивые» документы практически любого типа, используемые в торговле. 8. Печать произвольного документа, списка документов, используя внешний генератор отчетов, создаваемых пользователями самостоятельно. "От Clipper к [x]Harbour через xMate.pdf" расположенного на странице http://clipper.borda.ru/?1-4-0-00000305-000-0-0-1263022460 Пусть это будет примером поиска информации (документации). В самом начале: "Статья со всеми необходимыми файлами...." Яндекс.народ Скачать файл Clip2HB.rar Размер: 5.23 МБ... Файл удален с сервиса. , но xMate скачать даёт. Далее приводятся ещё пара неработающих ссылок. Мне без разницы, где будет размещаться информация, но очень хочется её иметь, пусть даже на импортном языке. Может выложите эти файлы ко мне на страницу ! Сайт я на год оплатил. Уже совсем запутался! А адрес сайта можно? В принципе пока поиски безуспешны - может сможете помочь: 1. Пожалуйста предложите "свободную" связку для создания графических приложений одновременно под Win32/64/Linux типа FrameWork+Gui+[x]Harbour+ReportSystem+RddSQL(free), но которая развивается по настоящее время и существует хотя бы 3 года. 2. Дайте ссылку на бизнес систему (язык не важен), реализованную на Harbour с графическим расширением (прошу БЭСТ и 1С не предлогать (шутка)), что бы было "гламурно, удобно и приятно использовать".

Andrey: AndreyZh пишет: Инструкции Вы для них пишете? Если да, то на каком языке? На русском... AndreyZh пишет: Увы - не владею пока даже элементарными навыками работы с Harbour А я тоже пока на хХарборе сижу... На Харборе под МиниГуи пишу пока маленькие программки, типа конвертация файлов из Сбербанка (Клиент-Банк) в дос-формат файлов... AndreyZh пишет: Пока эти вопросы, а так же Report System решал на Visual Foxpro - если интересно размещу ссылку Не интересно. Это как минимум внешний ЕХЕ-ник. Зачем его иметь, если на хХарборе можно у себя в коде делать тоже самое ? AndreyZh пишет: Уже совсем запутался! А адрес сайта можно? http://abonent4.ru/load

Петр: AndreyZh пишет: сейчас есть и ПОДДЕРЖИВАЮТСЯ open source RDD к базам MySQL, SQLite, FireBird Наверное что-то упустил. Позвольте полюбопытствовать, что это за проекты?

AndreyZh: "Чем больше дров, тем дальше лес"... Разрешите вернуться к остальным вопросам/проблемам после, а сейчас только два маленьких вопроса: 1. Пожалуйста предложите "свободную" связку для создания графических приложений одновременно под Win32/64/Linux типа FrameWork+Gui+[x]Harbour+ReportSystem+RddSQL(free), но которая развивается по настоящее время и существует хотя бы 3 года. 2. Дайте ссылку на бизнес систему (язык не важен), реализованную на Harbour с графическим расширением (прошу БЭСТ и 1С не предлагать), что бы было "гламурно, удобно и приятно использовать".

AndreyZh: Пожалуйста подскажите по очередной "непонятке": При постоении многих отчетов использую запрос "один или все склады" с идентичном оператором чтения @2,23 GET cCodStores VALI IF(Empty(cCodStores),TRUE,Eval(bCodStores,cCodStores)) На ряде отчётов вопрос правильно обрабатывается и отчёт правильно строится, на других отчётах, на данном запросе (нажимаю вызов справочника) программа вылетает без сообщений об ошибке (хотя возможно, что-то красное мелькает). Подозреваю, что какой-то бардак с памятью! Или как "поймать" молниеносные сообщения?

AndreyZh: Пока "не дождался" советов по "моим проблемам" сделал работающий прототип странички, с имеющими у меня материалами http://www.zhsoft.nm.ru/dl.htm Есть ещё полезные материалы - пожалуйста пришлите мне на почту для размещения.. С удовольствием выслушаю критику по материалам и структуре их расположения. ....и очень жду совета по "предыдущим" вопросам (двум сообщениям)

Dima: AndreyZh пишет: http://www.zhsoft.nm.ru/dl.htm. http://www.zhsoft.nm.ru/dl.htm. перенаправляет на http://start.qip.ru/404/ http://start.qip.ru/404/ перенаправляет на http://readme.ru/news/none.html

AndreyZh: http://www.zhsoft.nm.ru/dl.htm. перенаправляет на http://start.qip.ru/404/ http://start.qip.ru/404/ перенаправляет на http://readme.ru/news/none.html СВОЛОЧИ NewMail!!! Вот эту мерзость yandex.ru наверное считает "вирусом". IE игнорирует это, если у Вас FireFox, то нужно отказаться от "установки программы". ИЗВИНИТЕ и попробуйте через zhsoft.nm.ru/страница скачки. А какой у Вас Browser? Кроме этого (глюк?) особенность ссылок на данном форуме (уже не раз натыкался) - если в конце url адреса стоит точка, то идёт перенаправление (куда угодно), но в основном на readme.ru

Dima: AndreyZh пишет: А какой у Вас Browser? Firefox Mozilla 3.6.2 Кстати Opera 10.51 Build 3315 сработала нормально. AndreyZh пишет: попробуйте через zhsoft.nm.ru Да так работает и в FireFox

AndreyZh: Да так работает и в FireFox Действительно данные "глюки" - особенности (почему-то) только FireFox. Суть - бесплатный хостинг "насильно" предлагает установить парнёрскую программу-почтовик qip. Большинство browser (сам работают на 5 типах) игнорирует это рекламное предложение, а "лис" воспринимает это как вирус (всплывающее окно, несанкционированный запрос на установку ПО и т.д.), причём единожды отказавщись от этого FF более не достаёт этим сообщением для любого сайта ****.nm.ru?

Dima: AndreyZh пишет: Или как "поймать" молниеносные сообщения? Если это Xharbour , тогда в папке откуда запускаешь программу ищи Error.log , там все написано.

AndreyZh: Если это Xharbour , тогда в папке откуда запускаешь программу ищи Error.log , там все написано. Когда не помогают похоже лучше соображаю, но теряю кучу времени - заставил "Гюльчатай показать личико", но всё равно причина непонятна, т.к. аналогичный блок в программе встречается сотни раз. Скрин ошибочной ситуации: ПОМОГИТЕ пожалуйста!

Dima: Могу только предположить что была сделана попытка устновить фокус на индекс которого нет в списке. Например Use test new set Index to test1 ,test2 ordsetfocus(3)

AndreyZh: Спасибо! Но здесь всё единообразно и "чисто". Плохо с англицким - проблема, судя по импортным форумам старая, могет Вам более понятно: A client bought a "refurbished" computer with XP Pro. When we try to start my program on that machine, we get a pop up alert that has the banner Unrecoverable Error 9001 and a message that says Unrecoverable Error. This is not in the typical FW error message. I have not seen this before, and don't know if it is from our program, or caused by Windows XP, or perhaps some other program. I do use Advantage RDD and in this case he would be running local server. However it does not say this is an ADS error. A 9001 would be an illegal use of memory in ADS. Has anyone else experienced this type of error and found a clue as to what it means ? I know its not a FW or xHarbour error, but I also know there are a lot of sharp, experienced, people here who may have experienced something similar. ------------------ 9001 -- Database RDD failed to load Explanation: The runtime system has failed to detect an RDD loaded in an application that requires one. Action: Refer to Actions and Notes under 999 and 1011. Check third party .LIBraries for compatibility and version. Check link script and order. Look for missing RDD .LIBrary or .OBJ files. The .EXE may be invalid. ----- Back to 9001 – I’ve not come across this in particular. All other errors numbers I’ve had in xH have been exactly as per clipper errors. The quote above was copied from Clipper 5.3 Help file. It’s also in the manuals. If you think it’s the RDD unable to be loaded I can give you contacts of a couple of very helpful people who know ADS inside out. ---- doubt the problem is in the application itself, but rather it is caused by something on this computer or its configuration. The exact same program is loaded on 100's of workstations and I've never seen this occur. In this case, the client bought a refurbished computer to use as a workstation, and the error occurs. I was looking for some things to look for tha might stimulate the error code. I really didn't want to get into the process of playing with the program itself because it works fine everywhere else. ------ ... ------ Apparently the folder on the server was unshared. Accessing it from a client machine returned the 9001 error. The folder had been previously marked shared, and I have no idea how the status changed. Apparently the OS did not pass back a specific error code to xHarbour which issues a 9001 as an undefined error. As I suspected, the problem had nothing to do with the actual program code.

Dima: В качестве RDD используется ADS ?

AndreyZh: Нет конечно! Стандартные clipper 5.01 инструменты, даже без описания RDD. Гемор, что в части отчётов (данный вызов справочника работает).

AndreyZh: Ура - нашёл! Не уже ли никто не "натыкался"... В приципе схожая проблема "растёт" от Clipper 5.2 и старше... Код порождающий данную (и множество других) ошибку: DbSelectArea(0) // Перехожу в пустую рабочую область n := IndexOrd() // Clipper 5.01 эту ситуацию обрабатывает

Dima: AndreyZh Может тебе следует в начале приложение перевести с Clipper 5.1 на 5.2e а уже потом в Xharbour ?

AndreyZh: Может тебе следует в начале приложение перевести с Clipper 5.1 на 5.2e а уже потом в Xharbour ? Уже переводил одно "по просьбе трудящихся" (нужна была расширенная память): 1. Оно было существенно проще. 2. Диагностическая подсистема 5 после 2 "не сахар". 3. Быстродействие (многократно проверялось) было от 20% хуже. 4. Clipper 5.01R + CT у меня лицензионный. 5. "Хрен на хрен менять - только время терять". Но и с [x]Harbour сейчас не решается "проблема перевода приложения", а доскональный анализ перспективности, надёжности, стабильности и т.д. данной системы. В качестве "базы" для теста лёгкости перевода и выявления "глюков" и несовместимости [x]Harbour взял своё реальное и большое приложение.

Dima: AndreyZh пишет: В качестве "базы" для теста лёгкости перевода и выявления "глюков" и несовместимости [x]Harbour взял своё реальное и большое приложение. Начал бы с более простой задачи , отловил бы глюки , несовместимости и тогда проще было бы перевести большое приложение. Ни кто утверждал что будут легко.

Петр: AndreyZh пишет: а доскональный анализ перспективности, надёжности, стабильности и т.д. данной системы. Улыбнуло. Какой системы хHarbour или Harbour? Они же отличаются. Впрочем для обеих базовой системой является Clipper 5.2. На что вам мягко намекнули. И еще один совет - уважайте чужой труд и лицензионные соглашения. Здесь еще никто не додумался выложить у себя на страничке xHarbour Language Reference Guide. Прочитайте его лицензию. Если кому нибудь и нужно это руководство, то я думаю не составит большого труда скачать с free.xHarbour.com последний релиз xHarbour, который и содержит Language Reference Guide, xBuild- ер и т.п.

AndreyZh: Начал бы с более простой задачи , отловил бы глюки , несовместимости и тогда проще было бы перевести большое приложение. С этим НЕ СОГЛАСЕН!!! Большое приложение "дырок"... Для подтверждения - пока отвечали без проблем перевёл на xHarbour свой тестовую сетевую программу анализа скорости и надежности Clipper совместимого приложения, которая "забраковала" Clipper 5.2x, Clipper 5.3x и раннее Harbour. И еще один совет - уважайте чужой труд и лицензионные соглашения. Здесь еще никто не додумался выложить у себя на страничке xHarbour Language Reference Guide Даже "слишком" уважаю, если владельцы xHarbour будут возражать против размещения, то сразу уберу. Но наличие подробного документа поможет приобщить к xHarbour большее количество пользователей. Практика показывает, если продукт интенсивно используют, то и ПОКУПАЮТ. Если кому нибудь и нужно это руководство, то я думаю не составит большого труда скачать с free.xHarbour.com последний релиз xHarbour, который и содержит Language Reference Guide, xBuild- ер и т.п. Нет там данного документа (его скачал давно с сайта xHarbour, когда они его раздавали). Сейчас обычный набор txt & html документов (скачивал дистрибутив при отладке ошибки с Upper/Lower)

Петр: AndreyZh пишет: Даже "слишком" уважаю, если владельцы xHarbour будут возражать против размещения, то сразу уберу. Они возражают - читайте лицензионное соглашение. Но наличие подробного документа поможет приобщить к xHarbour большее количество пользователей. Практика показывает, если продукт интенсивно используют, то и ПОКУПАЮТ. Совершенно верно. Поэтому и включают xHarbour Language Reference Guide (продукт xHarbour.com) в сборку free.xHarbour.com Нет там данного документа Вас при запуске инсталятора предостерегают Special care should be given to making sure that you are absolutely clear on the License that apply to each respective component. Be advised that "xeditw.exe", "xbuild.exe", "xbuildw.exe", "XBScript.dll" and "xHarbour Language Reference Guide.chm" which is part of this distribution are NOT part of the xHarbour project, and are NOT subject to the GPL but are products from xHarbour.com Inc. which grants you the non exclusive right to use these files only in conjunction with xHarbour distributions from free.xHarbur.com. You are STRICTLY PROHIBITED from distributing any of these files to anyone else. А находится xHarbour Language Reference Guide.chm в папке xHarbour\doc Так что будьте повнимательнее, знаете что такое Lorem ipsum dolor sitamet ?

AndreyZh: А находится xHarbour Language Reference Guide.chm в папке xHarbour\doc У меня размещен файл PDF от 2007 года (в "девичестве называемый" xHarbour Language Reference DEMO Guide). Но мне непонятно, чем Вам не нравится идея просвящения специалистов в данном современном и альтернативном продукции MS языке (системе) разработки программ? Уже каялся в слабом английском (и возмущался развитием импортного интерфеса/документации даже программ рускоязычных разработчиков) - не могли бы Вы давать корректный перевод ссылок знаете что такое Lorem ipsum dolor sitamet ? НЕТ. Поясните пожалуйста? Самое главное! Насколько понял на все мои вопросы на перспективу "1. Пожалуйста предложите "свободную" связку для создания графических приложений одновременно под Win32/64/Linux типа FrameWork+Gui+[x]Harbour+ReportSystem+RddSQL(free), но которая развивается по настоящее время и существует хотя бы 3 года. 2. Дайте ссылку на бизнес систему (язык не важен), реализованную на Harbour с графическим расширением (прошу БЭСТ и 1С не предлагать), что бы было "гламурно, удобно и приятно использовать"." отрицательные ответы? Следовательно [x]Harbour можно лишь использовать с целью продлить агонию моих Clipper систем, а перспективно сваливать на Free продукты Microsoft - (Visual Studia + SQL Express)?

Петр: Lorem ipsum dolor sitamet - это бессмысленный текст, используемый при макетировании web страниц или xHarbour Language Reference DEMO Guide. Но и на это демо распространяются копирайты xHarbour.com Теперь о идеях просвещения Я только за. Но давайте выходить из существующих реалий. Права выкладывать какие либо справочный материалы у вас нет? Нет. Право размесить ссылку на free.xHarbour.com - есть? Есть - вот и разместите. Отдельно укажите, что кроме актуальной сборки xHarbour, так сказать из первых рук, пользователь совершенно бесплатно и легально получит руководство по языку и ряд других игрушек от xHarbour.com. Следовательно [x]Harbour можно лишь использовать с целью продлить агонию моих Clipper систем Ну на счет агонии - это все очень образно и эмоционально. Перспективно или не перспективно "сваливать" на продукты от MS - вопрос тоже очень интересный. И отвечать на него тоже не одному вам придется, а и вашим пользователям. Готовы ли они обновлять машинный парк, как будет происходить администрирование (своими силами или кто-то навещать/удаленно админить будет) и т.д. Короче, даже если вы будете использовать Express версии , то это не означает, что не будет никаких материальных затрат - они обязательно будут. И для вас, специалиста xBase, переход на SQL, ORM будет вовсе не легким. Впрочем, может быть что у вас есть какой-то опыт. Но вот чтобы с нуля и писать шедевры Года 3, а то и больше. За это время MS еще какую нибудь технологию придумает 2. Дайте ссылку на бизнес систему (язык не важен), реализованную на Harbour с графическим расширением (прошу БЭСТ и 1С не предлагать), что бы было "гламурно, удобно и приятно использовать"." Есть ли такие системы, нет ли их.. Какое это имеет значение? Значит ваша будет первой 1. Пожалуйста предложите "свободную" связку для создания графических приложений одновременно под Win32/64/Linux типа FrameWork+Gui+[x]Harbour+ReportSystem+RddSQL(free), но которая развивается по настоящее время и существует хотя бы 3 года. Простой ответ - таких универсальных нет. Но вряд ли он абсолютно правильный. Все зависит от того какой смысл вы вкладываете в каждое слово. Ну, например, hbIde+hbQt+Harbour+hbhpdf+sddoci. Но hbIde+hbQt еще и года нет и находятся они в альфа версии, опять же проект заточен под Harbour.

AndreyZh: Спасибо Пётр! Ну, например, hbIde+hbQt+Harbour+hbhpdf+sddoci А можно, очень кратко по данным продуктам? Здесь xHarbour "не катит"?

Pasha: AndreyZh, а Вы сами не пробовали поискать то, что спрашивали ? Загляните на comp.lang.xharbour, на xharbour.com, на fivetech, есть бразильские сайты. На fivetech, кстати, народ постоянно показывает друг другу веселые картинки, и они все очень гламурные. Воспользуйтесь наконец гуглом. Если вы не найдете, то что ищете, это не означает, что таких проектов нет. Их могли просто не выложить в инет. Вам нужны только свободные средства ? Есть же многоплатформенный fivewin, который имеет весьма почтенный возраст, есть rddsql, который помоложе, есть frh, у которого, правда возраст еще младенческий, но это ему совсем не вредит.

AndreyZh: AndreyZh, а Вы сами не пробовали поискать то, что спрашивали ? Загляните на comp.lang.xharbour, на xharbour.com, на fivetech, есть бразильские сайты. На fivetech, кстати, народ постоянно показывает друг другу веселые картинки, и они все очень гламурные. Воспользуйтесь наконец гуглом. Если вы не найдете, то что ищете, это не означает, что таких проектов нет. Их могли просто не выложить в инет. Вам нужны только свободные средства ? Есть же многоплатформенный fivewin, который имеет весьма почтенный возраст, есть rddsql, который помоложе, есть frh, у которого, правда возраст еще младенческий, но это ему совсем не вредит. Надоел, понимаю!!! Конечно ИСКАЛ и приведённые источники мне знакомы. Результаты поиска: 1. БЭСТ 4+/5 ("глямурный" БЭСТ-ОФИС на Access); 2. Есть пару ссылок на конференцию в Чили, где кто-то представлял свою ERP систему; 3. Некий индиец рекламировал свою систему http://www.vouch32.com/ но сайт слишком много хочет мне установить; 4. Помогли! Указав на sample/miniGui/Modest и ВСЁ! Думаю, иначе "навалили бы ссылок". Увы - даже с русским языком плохо, с англицких ещё хуже, а испанский/итальянский даже на уровне кода не понимаю. Конечно проекты ЕСТЬ! - искал даже по вопросам "внедрения/использования". Принципиально интересны только свободные системы разработки, в крайнем случае freeware, т.к. сам создаю и внедряю только Open Source системы следовательно стоит вопрос "авторских прав". Кстати нашёл свой "супертест" надёжности и быстродействия clipper систем --- ЕЩЕ БОЛЬШЕ ЗАХОТЕЛ [x]Harbour... Смотрите результаты:

Dima: AndreyZh пишет: Кстати нашёл свой "супертест" надёжности и быстродействия clipper систем Исходник покажешь ? ;) PS Интересно как "супертест" выявляет надежность...

AndreyZh: Исходник покажешь ? ;) PS Интересно как "супертест" выявляет надежность... Изначально данный тест - иммитация массированого добавления (с детализацией) приходных накладных (добавление товаров, клиентов и т.д.), отгрузочных накладных-понижение остатков, построение отчётов появился в 199х году для выявления сбоев в работе сети Novell. При каких-то сбоях происходила потеря логической целостности данных, которая проверяется с некой периодичностью в тесте. Нагрузка с одной WS примерно соответствует работе десятка операторов. Затем его использовал для сравнения скорости и надёжности различных систем (clipper 5.x, harbour) и RDD - по этому и сижу пока на Clipper 5.01 + NTX. Если интересно - куда выслать (разместить архив - исходники и bin)?

Dima: AndreyZh Понял. Спасибо. Ни чего слать не нужно. AndreyZh пишет: для выявления сбоев в работе сети Novell ADS не пробовал использовать + индексы IDX или CDX ?

AndreyZh: ADS не пробовал использовать + индексы IDX или CDX ? Нет! Кроме того ADS платный со всеми выдекающими "сложностями", но теоритически должен быть быстрее.

Dima: AndreyZh пишет: Кроме того ADS платный со всеми выдекающими "сложностями" Точно , забыл. Тем не менее юзаем версию которая уже не поддерживается , превратив Demo в Unlim. У нас не многие знают что такое Novell Netware , не говоря уже про ADS. AndreyZh пишет: но теоритически должен быть быстрее Быстрее в разы будет. ЗЫ Советовал бы NTX сменить на CDX , многие вещи будут "шуршать" быстрее да и возможностей поболее будет.

AndreyZh: Уважаемый Dima! Кроме всего ADS сейчас уже неактуален в силу небольших "размеров реальных клиентов" - лишь парочка имеет локальные сетки более 30 ПК, да и им пока хватает. Что касается CDX - у меня от данного формата "плохие впячатления" (в том числе с драйвером Six), да он более компактный и частично решается проблема "числа открытых файлов", но (возможно "неумею готовить") число сбоев/разрушений индексов было гораздо больше, чем с NTX, что заставило "вернуться к старому формату". Сейчас этот формат меня "парит" и на VFP (к счастью приложения локальные). В xHarbour меня так же прельщают, входящие в поставку RDD (mySql, FireBird, SQLite и через ODBC доступ к любым БД) - но это "на вырост"....

Andrey: AndreyZh пишет: Что касается CDX - у меня от данного формата "плохие впячатления" (в том числе с драйвером Six) Бери CDX FoxPro-ный без SIX. Нормальный CDX появился в Клипере версии 5.3 ! Я на нем с 1995 года сижу и работаю ТОЛЬКО с ним ! Скорость выборки на нем, если индексный файл есть по запрашиваемому полю, просто фантастика ! Даже если база лежит на файл-сервере ! Пользовался простым оператором SET FILTER TO (выражение) - там в драйвере Клипера 5.3 CDX была включена оптимизация для фильтров. хХарбор уступает в скорости по этим вещам, нет у него оптимизации для фильтра. Но зато есть стабильность и быстродействие в другом. На хХарборе на RDD CDX можно использовать "УСЛОВНУЮ ИНДЕКСАЦИЮ" (как и на Клипере 5.3), очень быстрая вещь.... Такого нет в Клипере 5.01

Dima: Andrey пишет: На хХарборе на RDD CDX можно использовать "УСЛОВНУЮ ИНДЕКСАЦИЮ" (как и на Клипере 5.3), очень быстрая вещь. Ты о локальной задаче или сетевой ? Покажи простой примерчик.

Andrey: Dima пишет: Ты о локальной задаче или сетевой ? Все вместе сразу ! И о том и о другом. Примерчик, чуть позже... в Москву надо ехать... разгонять тоску... то бишь работать.

Sergey Spirin: Pasha пишет: есть frh, у которого, правда возраст еще младенческий, но это ему совсем не вредит. Паш, собственно, frh это же только "портирование" фастрепорта. А у фастрепорта возраст отнюдь не младенческий. Я с ним познакомился в 98-м году, версия была 2.1. Именно эта версия тогда в мире дельфи задвинула на задвинула на задний план все эти Кристалы, ReportBuilder-ы, QiuckReport-ы и т.д....

goest: Извиняюсь что встреваю ... Но вот где то неделю назад, мне на глаза попался новый ( для меня ) Avats 5й версии. Посмотрите на его интерфейс. Я так понял что он сделан на основе HTMLayout . ( Он упомянут в списке копирайт ) По этой библиотеке есть так же большая ветка на форуме WWW.RSDN.RU Библиотека бесплатна. Если сделать терминал типа "gtHTL" просто с выходом на эту библиотеку то, я думаю получится бы ну очень достойный интерфейс.

Dima: goest Да не плохо. Почитать и скачать демо примеры можно тут http://guicci.ru/2007/10/28/htmlayout-web-20-prishel-na-desktop/

AndreyZh: Добрый день! Пальцы болят, голова пухнет, захотел посмотреть свежие идеи и вопросы, а на форуме "тишина" - как отдохнуть от "долбёжки" по клаве? Отчёт: 1. Выявлено шесть принципиальных "несовместимостей" clipper 5.01 и xHarbour (занимаюсь переписыванием 400 000 строк кода). Интересно какие? 2. Договорился с парой сотен тесторов моей програмки - думаю "накопают" море дополнительных проблем. Вам будет интересны результаты их "поисков"? 3. Народ, соблазнившийся "результатами теста" хочет терминальное приложение Win "уже вчера", т.ч. "началось веселье"... Вопрос: Хорошо - гламурных систем на Harbour мало! Но можно ли дать ссылку, хотя бы на ДЕМО, тиражного (минимум 10 инсталляций), хотя бы терминальной системы (кроме БЭСТ). Оно интересно в плане: 1. Мышастого интерфейса. 2. Системы печати. 3. Используемой системы СУБД. 4. Области применения.

Andrey: AndreyZh пишет: тиражного (минимум 10 инсталляций) Смотри здесь форум http://clipper.borda.ru/?1-4-60-00000477-000-0-0-1257415410 там скриншот моей программы. Демки нет, мне незачем ее делать. AndreyZh пишет: 2. Системы печати. FastReport 4.0 - смотри здесь же на форуме. AndreyZh пишет: 3. Используемой системы СУБД. Драйвер DBFCDX . AndreyZh пишет: 4. Области применения. Ищи здесь на форуме тему Форум » GUI » Список "серьезных" приложений на (x) и "просто" Harbour. И еще где то есть, т.е. здесь валялось... А вообще, чувствуется по вашим вопросам, что темы на форуме вами не читаны сударь....

AndreyZh: Доброе утро уважаемые специалисты! Пока пальчики работают.... А вообще, чувствуется по вашим вопросам, что темы на форуме вами не читаны сударь.... А "оскорблять" не надо! ДА? Прежде, чем обратиться к "помощи зала" перечитал ВСЕ темы. Если посмотрите на мои вопросы в теме, то они трёх типов: 1. Обсуждали, но не нашли решений. Например Upper/Lower. 2. Чёткого решения нет даже на импортных форумах. Например 9001 ошибка. 3. Просил дать ссылки на реальные программы или их демки. Увы! Драйвер DBFCDX Какая максимальная сетевая нагрузка (пользователей)? Число записей в наибольшей оперативной таблице? ОС сервера и рабочих станций? Место расположения временных таблмц? Используете ли условную индексацию, Locate, блокировку группы (не всех) записей, пишете прямо в базу или сброс из временных переменным? FastReport 4.0 - смотри здесь же на форуме Он же платный? И не хочу обидеть Спирина, но на форумах дельфей активно обсуждают его "тормознутость".. А другие варианты есть? Смотри здесь форум http://clipper.borda.ru/?1-4-60-00000477-000-0-0-1257415410 там скриншот моей программы. Демки нет, мне незачем ее делать. Там начал задавать свои вопросы... Есть демо функции alert на фоне одного экрана программы "абонент" (когда сайт доделаете?) аналогичную (схожую по интерфейсу) программу "книга" господина Лукашевского то же смотрел (http://winkniga.ru/ извините забыл о ней). Может и другим будет интересно... Реальные, но увы мелкие приложения есть на сайте Филатова http://hmg.narod.ru/ - очень интересные для изучения нюансов miniGui, но иногда не работаю ссылки (на http://minigui.mylivepage.ru/file/37_MyProgram); Кресина; Гаршина (к сожалению удалил у себя ссылки).

Sergey Spirin: AndreyZh пишет: Он же платный? И не хочу обидеть Спирина, но на форумах дельфей активно обсуждают его "тормознутость".. Да уж, вот это ляпнул, так ляпнул. Из разряда - "слышал звон, не знаю где он" Фаст он на то и ФАСТ, что по быстродействию с ним никто и рядом не стоит. Ну а то, что "кривые ручки" дилетантов могут согнуть любые подковы - это факт общеизвестный Относительно же "платно", так это же классика жанра, особенно в разработке ПО: быстро качественно дешево уберите одно лишнее

AndreyZh: Ну вот! Еще одного спеца "обидел"... Да уж, вот это ляпнул, так ляпнул. Из разряда - "слышал звон, не знаю где он" Не совсем... Иногда "залетаю" на другие системы разработки, где так же стоит вопрос "отчётной системы". При этом стараюсь досконально изучить сопутствующую информацию. Давно не смотрел возможности FR, но если "принципиально": 1. Тормоза при загрузке из большого файла http://ns.fast-report.com/ru/forum/lofiversion/index.php/f8-750.html 2. FastReport при использовании FastMM4 в режиме FullDebugMode - действительно жрёт БОЛЬШОЕ количество памяти, и именно в ObjToXML/XMLToObj. У меня, например, на чтение готового отчета с диска страниц на 1000 уходило что-то около 400..1000МБ оперативки (точно не помню, но порядок такой) http://www.sql.ru/forum/actualthread.aspx?tid=652710 быстро качественно дешево На пока могу оставить только "дешево"! Но и сами ответьте на вопрос - как можно продвигать бесплатные программы, использующие платный инструмент, не имея при этом "спонсорской помощи"? По FastReport - хорошая отчётная система и даже для ряда продуктов имеет "ограниченную" версию, почему же в качестве "крючка" не предлагать такую для (x)Harbour?

Sergey Spirin: AndreyZh пишет: Ну вот! Еще одного спеца "обидел"... Ну уж, было б на что обижаться AndreyZh пишет: Не совсем... Совсем, совсем В первом случае человеку просто не хватает квалификации понять причины. В дельфи это решается совсем несложно. "Наш" Андрей, кстати, на это наступал, и я просто сделал для Харбура порт этого решения. Да и во втором случае, непонятно, что же там человек наворотил такого, что фаст "скрипит" у него на преобразованиях объект<->xml. Во, что называется, объектов наворотил И что там за объекты, которые жрут столько памяти.. И если столько жрет, то почему отключено кэширование в файл. Мне вспоминается мой один алясочный юзер, китаец, но живет в Германии. Этот китаец, видимо отчаявшись получить иероглифы в Аляске, сделал систему вывода иероглифов в графику... И решил сделать отчет на такой основе, при этом у меня сложилось впечатление, что печатать так на китайском он решил сразу большую советскую энциклопедию. Вот мы с ним "поигрались" . И ничего, FRAX вполне нормально держал многогигабайтный файловый кэш десятков тысяч страниц, содержащих графику с иероглифами AndreyZh пишет: Но и сами ответьте на вопрос - как можно продвигать бесплатные программы, использующие платный инструмент, не имея при этом "спонсорской помощи"? Да я и не навязываю Заявление же, "дайте мне качественное, да нахаляву", и с эдакой "претензией", просто вызывает улыбку

PSP: Sergey Spirin пишет: Заявление же, "дайте мне качественное, да нахаляву", и с эдакой "претензией", просто вызывает улыбку Согласен. Harbour - прекрасный инструмент. Чтобы перевести программы с Clipper, ничего больше не нужно. Денег никто не просит. Продукт, сделанный на Harbour, можно продавать, не ущемляя чьих-либо прав. Что еще надо? Для GUI тоже инструменты есть. Пробуй, выбирай... Есть LetoDB. Работает. Вопросы решаются. Генератор отчетов? Дык, хорошего бесплатного нет. Мое мнение - все, что нужно, есть. Качество высокое. Использовать можно. Вариант 2: перевести 400000 строк Clipper-ного кода на другую платформу, которую Вы считаете более подходящей.

AndreyZh: Sergey Spirin Заявление же, "дайте мне качественное, да нахаляву", и с эдакой "претензией", просто вызывает улыбку AndreyZh На пока могу оставить только "дешево"! --------------------------------- Давайте цитировать корректно --------------------------------- Генератор отчетов? Дык, хорошего бесплатного нет. Пока не страшно! Использую несколько механизмов печати (уже проверил на конвертированной в xHarbour программе): 1. Штатная печать на lpt1, используя ESC Остальное через програмку на VFP, висящую on-line: 2. Конвертация в Win формат на принтер по умолчанию; 3. Конвертация любого отчёта в DOC (Word) посредством MS Word/OO Writer; 4. Пользовательские отчёты в соответствии с RTF шаблонами - чуть адаптировал сырцы "Генератор отчетов RtfEPORT version 0.9.1b (c) Алексей Кирпичев (kanank@mail.ru)" К стати их, наверное легко переделать на xHarbour... Просьба! Кажется отладил свою систему, избавившись от "всех" несовместимостей с xHarbour... Теперь наверное нужно её передавать пользователям на "параллельное тестирование", но пока опасаюсь... Нет ли у кого желания и возможности помочь мне найти в ней "баги"? - Заведу тему в "флейме", если кто сможет помочь....

Dima: AndreyZh пишет: Нет ли у кого желания и возможности помочь мне найти в ней "баги"? Лучше пользователей баги ни кто не найдет.

PSP: AndreyZh пишет: Нет ли у кого желания и возможности помочь мне найти в ней "баги"? - Заведу тему в "флейме", если кто сможет помочь.... Вы делайте тему, а там видно будет... :)

AndreyZh: Лучше пользователей баги ни кто не найдет В принципе согласен, но с оговорками: 1. Не хочу "с ходу" отбить у них охоту на смену системы из-за возможных грубых ошибок и вылетов (сам поверхностно проверил все оперативные режимы, почти все отчёты, все виды "печати") 2. Вы - прошедшие большую школу Harbour наверняка знаете, "где копать". PSP Спасибо! Вы делайте тему, а там видно будет... :) Вечером (после 22:00) подготовлю тестовый пример с наполненной базой и со всеми настройками. После открою темку на "флейме" со ссылками на скачку.

PSP: AndreyZh пишет: Вечером (после 22:00) Имхо, спешить не стОит. Пасха все-таки... С наступающим! :)

Dima: AndreyZh Желательно выложить не на slil.ru , там тормоз жуткий.

Andrey: AndreyZh пишет: Какая максимальная сетевая нагрузка (пользователей)? Число записей в наибольшей оперативной таблице? ОС сервера и рабочих станций? Место расположения временных таблмц? Используете ли условную индексацию, Locate, блокировку группы (не всех) записей, пишете прямо в базу или сброс из временных переменным? Я уже здесь на форуме про это писал ! Сервер 2000 SP4 и 2003 SP1. Рабочие станции разные были Win98/2000/XP/Vista/7 Пользователей 10-15 на один сервер 2003. Причем каждый пользователь запускал в среднем 4 моих задачи (каждая открывает 200-250 файлов) и кучу DOC -файлов с Сервера. Ничего, работать можно, условная индексация при поиске быстро проходит 5-30 сек. Временные таблицы - из названия должно быть понятно, во временной папке компа пользователя... Кол-во записей в БД - ЗДЕСЬ тоже обсуждалось... Смотрите форум .... http://clipper.borda.ru/?1-1-30-00000121-000-0-0-1258544763 Использую условную индексацию, Locate. Блокировку одной записи, блокировку групп не делаю ! Пишу прямо в базу. Еще ряд программ написанных на Харборе: http://clipper.borda.ru/?0-1-135

Dima: Andrey пишет: Ничего, работать можно, условная индексация при поиске быстро проходит 5-30 сек Это ты сейчас про Shared базы сказал или речь о временных (локальных) базах ? PS По ходу есть отличная штука filemem.lib , примеры есть в Contrib

Andrey: Dima пишет: Это ты сейчас про Shared базы сказал или речь о временных (локальных) базах ? Конечно же про Shared, размещенные на сервере. Dima пишет: По ходу есть отличная штука filemem.lib , примеры есть в Contrib А написать - что это такое слабо ?

Dima: Andrey пишет: Конечно же про Shared, размещенные на сервере. Хммм , научи как можно проиндексировать базу открытую в Shared режиме. Может я чего не знаю. Andrey пишет: А написать - что это такое слабо ? А глянуть пример в Contrib , слабо ? ;) База которую можно создать в оперативной памяти а не на диске.

AndreyZh: Добрый вечер! Спасибо всем за помощь "новичку" в освоении современной и перспективной системы (x)Harbour! Если Вас не затруднит помочь в поиске грубых ошибок - открыл тему в "флейме" (очень не хочется позориться перед пользователями). Заранее спасибо! Всех с праздником Пасхи!

Andrey: Dima пишет: Хммм , научи как можно проиндексировать базу открытую в Shared режиме. Может я чего не знаю. Ура ! Нашел пробел у тебя по Клиперу... Сразу видно перескочил с NTX на ADS без CDX. Пишу пример, который ты просил и разъясняю сам принцип. В Клипере 5.3 появился Фоксовксий драйвер CDX - в принципе слизаны идеи SIX. Там он намного лучше NTX (почитай сам доку), но самый главная фишка: можно делать условную индексацию по другому открытому индексу... И это на порядок быстрей происходит, если бы делать заново индексацию. База открывается с индексными файлами (хотя в ОДНОМ файле CDX можно хранить до 99 индексных выражений, т.е. иметь всего один индексный файл, заместо нескольких), открывается соответственно в SHARE режиме. Далее любая рабочая станция , где открыта программа может искать по этой базе нужные ей записи. Для этого я использую "условную индексацию", т.е. создаю временный индекс по уже открытому индексу у себя на локальном диске. и потом открываю TBROWSE() ! Все ! Не нужны никакие кодоблоки-ограничители... В TBROWSE() за границу полученного индекса SKIPER не убегает.... Смотри пример, я выкладывал свой TBROWSE() с мышкой и работой в сети. Пример по условной индексации - смотри: http://clipper.borda.ru/?1-4-0-00000410-000-0-0-1237235478

Andrey: Dima пишет: База которую можно создать в оперативной памяти а не на диске. А понятно, про это раньше наши Гуру писали. А ты сам пробовал ? Интересно, а как на сервере доступ к этой базе будет возможен ? Вырубился свет и база вылетела.... Заказчик убъет нафиг... И по быстродействию вопрос: У меня начисления делаются по 5 часов... И все это считывание записи в массив, далее расчет по массиву, затем запись в базу. Если я базу затолкаю в память, затем мой расчет, потом сброс базы из памяти на диск. Будет ли ускорение при таком подходе ?

Dima: Andrey пишет: Сразу видно перескочил с NTX на ADS без CDX Не спешил бы ты с ответом.

Dima: Andrey пишет: У меня начисления делаются по 5 часов... Ты это серьезно ? Такое время расчета больше смахивает на 1Ц :) Либо у тебя тормозной алгоритм !

Andrey: Dima пишет: Не спешил бы ты с ответом. Да ладно тебе ! Ничего плохого не имел в виду... Нечего обижаться... Я же подробно рассписал тебе, что и как.... А насчет ADS - это классика, все хотел на него переходить, да не собрался..

Dima: Andrey пишет: А ты сам пробовал ? Ясный пень ! Мы же про отчеты говорим иль я чего не понял ?

Andrey: Dima пишет: Ты это серьезно ? Такое время расчета больше смахивает на 1Ц :) Либо у тебя тормозной алгоритм ! Алгоритм действительно тормозной.... Переделать никак не могу. Не хватает соображалки... Это лучше в отдельную тему перенести...

Dima: Andrey пишет: Алгоритм действительно тормозной Соображалку включи ! Было бы желание вникнуть в суть тормоза.... и УсЁ получится

Andrey: Dima пишет: Ясный пень ! Мы же про отчеты говорим иль я чего не понял ? Ну временный файл можно создать и на диске, много времени не затрачивается.... А вот базу многопользовательскую создать в памяти на сервере и работать с ней... это в голове не укладывается... Почти прям MS SQL в облегченном варианте. У меня у знакомых сервак стоит, админ чтоб ускорить работу с базой, в память всю загнал... Работают... Ну не все могут купить дорогое железо ! У моих пользователей Сервера обычные, без наворотов. Даже UPS не всегда хотят покупать.... Устал уже объяснять...

полная версия страницы