Отправлено: 22.03.10 11:28. Заголовок: Предложение... и ламерские вопросы

Добрый день уважаемые специалисты!

Попробовал перевести часть большого проекта на 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?


Заранее спасибо за ответы!!!

 Отправлено: 22.03.10 11:43. Заголовок: AndreyZh пишет: Что..

AndreyZh пишет:

цитата:

Что проблема работы с 866 кодировкой в Upper/Lower не решена?

А разве есть какая-то проблема ?

К слову. minigui жив, да и hwgui ожил в последнее время.

 Отправлено: 22.03.10 12:32. Заголовок: А разве есть какая-т..

А разве есть какая-то проблема ?

Не работает xharbour последний релиз:
индекс: Upper(name)
запись: Вася Пупкин

a:="вася"
DbSeek(Upper(a)) // Не находит

a:="Вася"
DbSeek(a) // находит

Да и тема была на форуме.

 Отправлено: 22.03.10 12:40. Заголовок: В догонку посмотрел ..

В догонку посмотрел свои "свежие" скачки:

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

 Отправлено: 22.03.10 13:22. Заголовок: AndreyZh пишет: А р..

AndreyZh пишет:

цитата:

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

Кодовая страница подключена ?

Надо выдать команды
REQUEST HB_CODEPAGE_RU866
hb_SetCodepage( "RU866" )

какой результат выдает
? Upper('вася')
?

 Отправлено: 22.03.10 13:46. Заголовок: AndreyZh пишет: В д..

AndreyZh пишет:

цитата:

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

По hwgui. Вы имеете в виду саму библиотеку или документацию к ней ? Если библиотеку, то несколько человек что-то по ней делают, 5 дней назад был коммит.
По minigui. Загляните в раздел gui на этом форуме, Григорий же обновления постоянно выкладывает.

 Отправлено: 22.03.10 14:28. Заголовок: Надо выдать команды ..

цитата:

Надо выдать команды 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. "Пробегала" ссылка на описание "для новичков" по этим системам и их руссификации - сейчас ни одна ссылка не работает!!!

 Отправлено: 22.03.10 14:54. Заголовок: AndreyZh пишет: Про..

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.

 Отправлено: 22.03.10 16:40. Заголовок: Я просто забыл об эт..

цитата:

Я просто забыл об этом, все-таки полтора года назад тема была Вроде бы исправлено почти год назад:

Как понять и воспользоваться сообщением - не понял!

Увы! Даже проблема в такой мелочи? Пример SS

 Отправлено: 22.03.10 18:13. Заголовок: Pasha пишет: Надо в..

Pasha пишет:

цитата:

Надо выдать команды REQUEST HB_CODEPAGE_RU866 hb_SetCodepage( "RU866" ) какой результат выдает ? Upper('вася') ?

Да проходили же уже эту тему ;)

Proc main
Local a:='вася'
REQUEST HB_CODEPAGE_RU866
hb_SetCodepage( "RU866" )


? Upper(a) // так работает
? Upper('вася') // не пашет


return

 Отправлено: 22.03.10 18:21. Заголовок: Dima пишет: ? Upper..

Dima пишет:

цитата:

? Upper('вася') // не пашет

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

 Отправлено: 22.03.10 18:33. Заголовок: AndreyZh пишет: Что..

AndreyZh пишет:

цитата:

Что нет функции TempFile() из CT в xHarbour?

В Libnf.lib есть

В прочем и самому ее написать не составит особого труда.

 Отправлено: 22.03.10 18:53. Заголовок: AndreyZh пишет: Как..

AndreyZh пишет:

цитата:

Как понять и воспользоваться сообщением - не понял! Увы! Даже проблема в такой мелочи?

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

 Отправлено: 22.03.10 19:12. Заголовок: Pasha Ни чего не ис..

Pasha
Ни чего не исправлено. Сливал исходники пару дней назад и пересобирал Xharbour

? Upper('вася') // выдает вася

 Отправлено: 22.03.10 19:14. Заголовок: Кстати маловероятно ..

цитата:

Кстати маловероятно что подобный код будет использоваться в реальной программе

Выше пояснял, что у меня индексы 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. Уже пояснил, что не любитель "системного" программирования, да и времени на это не очень много....

 Отправлено: 22.03.10 19:24. Заголовок: AndreyZh пишет: А ш..

AndreyZh пишет:

цитата:

А шо она тогда не цепляется при сборке приложения?

а чего бы ей самой цепляться ;)))
Прицепи сам.

У тебя же в Clipper , доп библиотеки сами не цепляются.

 Отправлено: 22.03.10 19:33. Заголовок: Dima. Спасибо! Думал..

Dima. Спасибо! Думал, что в xHarbour "всё включено".

Еще "несовместимость":

На Clipper конструкция работает (компилируется), а в xHarbour НЕТ:
local ...
<блок программы>
priv oVar
oVar := ...

Но работает конструкция:
local ...
priv oVar
<блок программы>
oVar := ...

 Отправлено: 22.03.10 19:43. Заголовок: AndreyZh Проверил ,..

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

 Отправлено: 22.03.10 19:52. Заголовок: Извините! Вылетает ..

Извините!

Вылетает при выполнении - пример исправленного кода:

* Головной модуль. Обслуживание списка накладных.
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

 Отправлено: 22.03.10 19:56. Заголовок: Dima пишет: 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 в модуле с должны быть примерно такой:

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 ); 
 } 
 

Проблеме была в том, что компилятор выбрасывал вызов upper, и пытался оптимизировать строку-константу сам, и без нужной кодовой страницы делал это неправильно.

 Отправлено: 22.03.10 20:02. Заголовок: Опять наврал! Назнач..

Опять наврал! Назначал после использования (на Clipper прокатывало)

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

 Отправлено: 22.03.10 20:02. Заголовок: AndreyZh пишет: 1. ..

AndreyZh пишет:

цитата:

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

Да это же не системное программирование, да и не программирование вообще. Это сборка. То есть настроил среду, запустил батник и получил готовый харбор.
Впрочем, как хотите, Ни заставлять, ни агитировать, ни уговаривать я не буду, мне то это зачем. Мое дело - обрисовать текущее состояние и помочь в решении проблем, если такие возникнут.
А баг с upper таки исправлен. Кто-нибудь, проверьте еще для ясности.
Кстати, я сам использую сборку харбора с этим багом, и знаю о нем. Просто у меня заведомо нет конструкций, где upper вызывается со строковой константой, а не с переменной или полем таблицы.

 Отправлено: 22.03.10 20:02. Заголовок: Pasha пишет: Local ..

Pasha пишет:

цитата:

Local cStr := 'Вася' REQUEST HB_CODEPAGE_RU866 hb_SetCodepage( "RU866" ) ? Upper('Вася') ? Upper(cStr) wait

Проверил
? Upper('Вася') // не работает

Текст с такой

 
 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 ); 
 } 
  
  
  
 

 Отправлено: 22.03.10 20:05. Заголовок: AndreyZh пишет: у м..

AndreyZh пишет:

цитата:

у меня индексы Upper(name)

в индексах работает нормально.

 Отправлено: 22.03.10 20:08. Заголовок: А такой тест: REQUE..

А такой тест:

REQUEST HB_CODEPAGE_RU866

hb_SetCodepage( "RU866" )
? Upper('Вася')
wait

какой будет код на C ?

 Отправлено: 22.03.10 20:13. Заголовок: Господа, а можно мне..

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

 Отправлено: 22.03.10 20:15. Заголовок: Pasha пишет: какой ..

Pasha пишет:

цитата:

какой будет код на C ?

 
  
 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 ); 
 } 
  
  
 

Pasha пишет:

цитата:

REQUEST HB_CODEPAGE_RU866 hb_SetCodepage( "RU866" ) ? Upper('Вася') wait

? Upper('Вася') // не работает

 Отправлено: 22.03.10 20:17. Заголовок: AndreyZh пишет: Опя..

AndreyZh пишет:

цитата:

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

Я не очень понял, где возникает ошибка. Здесь переменная oTb создается оператором Private 2-й раз, после того как она была создана неявно операцией присваивания ?

 Отправлено: 22.03.10 20:22. Заголовок: Dima пишет: ? Upper..

Dima пишет:

цитата:

? Upper('Вася') // не работает

По тексту видно, что сама функция upper вызывается, компилятор не подавляет ее вызов, и она должна отработать, и отработала у меня правильно.
В чем дело - мне непонятно, я вот 20 минут назад как собрал xHarbour и прогнал тест.

cStr := 'Вася'
? Upper(cStr)

работает ?

 Отправлено: 22.03.10 20:30. Заголовок: Pasha пишет: cStr :..

Pasha пишет:

цитата:

cStr := 'Вася' ? Upper(cStr) работает ?

Это и работало.

 Отправлено: 22.03.10 20:30. Заголовок: AndreyZh пишет: Гос..

AndreyZh пишет:

цитата:

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

Полная сборка xHarbour вместе с сырцами с CVS получается около 20М. Как отправить ?

 Отправлено: 22.03.10 20:32. Заголовок: Как быстро идёт обме..

Как быстро идёт обмен мнениями!!?

цитата:

Я не очень понял, где возникает ошибка. Здесь переменная 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 прислать необходимые файлы, что бы не связываться со "сборками", а то жалко бросать начатые эксперимент?

 Отправлено: 22.03.10 20:34. Заголовок: Полная сборка xHarbo..

цитата:

Полная сборка xHarbour вместе с сырцами с CVS получается около 20М. Как отправить ?

Мне только файлы (вероятно только компилятор и библиотеку), где произошли изменения, но если не сложно/возможно, то и 20mb сойдёт.

 Отправлено: 22.03.10 20:38. Заголовок: AndreyZh пишет: Мне..

AndreyZh пишет:

цитата:

Мне только файлы (вероятно только компилятор и библиотеку), где произошли изменения, но если не сложно/возможно, то и 20mb сойдёт.

Если только lib, include и bin, то обьем получается небольшой
Но и сырцы ведь тоже нужны, а за год изменений было очень много.

 Отправлено: 22.03.10 20:39. Заголовок: Странно все это Паве..

Странно все это Павел.
У тебя работает , у меня нет

function Main()

REQUEST HB_CODEPAGE_RU866

hb_SetCodepage( "RU866" )
? Upper('Вася') // BAD
? Upper('test') // OK

wait
return nil

 Отправлено: 22.03.10 20:42. Заголовок: AndreyZh пишет: PRI..

AndreyZh пишет:

цитата:

PRIV oTb // Глупо, но объявляю после инициализации

Понятно. Харбор так и работает

aa := 'Hello'
? aa // результат - Hello
Private aa
? aa // результат - nil

То есть, если создаваемая private - переменная уже существует, то харбор очищает ее значение.
Если в клиппере не так - то это несовместимость с клиппером

 Отправлено: 22.03.10 20:43. Заголовок: Но и сырцы ведь тоже..

цитата:

Но и сырцы ведь тоже нужны, а за год изменений было очень много

Если "сырцы" - исходный код, то мне он ПОКА не нужен!

 Отправлено: 22.03.10 20:44. Заголовок: У меня работает :sm..

У меня работает

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6633)
Copyright 1999-2010, http://www.xharbour.org http://www.harbour-project.org/

Стандартная сборка, скачанная с free.xHarbour.com

 Отправлено: 22.03.10 20:45. Заголовок: Dima пишет: Странно..

Dima пишет:

цитата:

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

Да мне самому непонятно. Вызов функции есть, и у меня она отработала, как и должно быть
Пусть кто-нибудь третий прогонит этот тестик, на любом xHarbour после апреля 2009 года

 Отправлено: 22.03.10 20:47. Заголовок: AndreyZh пишет: Есл..

AndreyZh пишет:

цитата:

Если "сырцы" - исходный код, то мне он ПОКА не нужен!

Ага, здесь есть сборка, качайте:
http://free.xharbour.com/free.xHarbour.com/Downloads.html

 Отправлено: 22.03.10 20:51. Заголовок: Pasha пишет: Понятн..

Pasha пишет:

цитата:

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

Так работает xHarbour, в Harbour все OK

 Отправлено: 22.03.10 20:57. Заголовок: Pasha - спасибо! У ..

Pasha - спасибо!

У меня наверное глюки - был на их сайте, но не нашёл страницы скачки, а только платные проекты

цитата:

Так работает xHarbour, в Harbour все OK

В Harbour не знаю, но вспомнил, что на каком-то Clipper 5.2? была аналогичная "обработка ситуации".

 Отправлено: 22.03.10 21:05. Заголовок: У меня есть еще 6604..

У меня есть еще 6604 и на нем действительно не работает

Test := 'Вася' 
 ? Upper( 'Вася' ) // выдает Вася 
 ? Upper( Test )   // выдает ВАСЯ 
 

А вот на 6658, который на free.xHarbour.com, все ОК

Test := 'Вася' 
 ? Upper( 'Вася' ) // выдает ВАСЯ 
 ? Upper( Test )   // выдает ВАСЯ 
 

 Отправлено: 22.03.10 21:11. Заголовок: Ага, здесь есть сбор..

цитата:

Ага, здесь есть сборка, качайте:

СПАСИБО!!! Супер - работает.... Буду дальше "ломать зубы" об xHarbour/

 Отправлено: 22.03.10 21:33. Заголовок: Напрасно радовался....

Напрасно радовался... Более сложная функция не работает (на Clipper - ok):

Индекс по базе Upper(name);
Поиск точно соблюдая шрифр - работает!!

Может индекс xHarbour-ом перестроить, но тогда получу несовместимость индексов

*       Производит поиск по ключевому полю отлавливая нажатия клавиш. 
 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

 Отправлено: 23.03.10 14:02. Заголовок: Добрый день. Может б..

Добрый день.
Может быть кому-то интересно (т.к. здесь раннее активно обсуждалось)!!!

Данная функция работает после переиндексации средствами xHarbour; затем проверил dos командой
fc ntx_harb ntx_clip /b - файлы различаются. Следовательно (поправьте, если не так):

Индексные файлы xHarbour и Clipper несовместимы и ЗАПРЕЩЕНО их одновременное использование.

 Отправлено: 23.03.10 14:24. Заголовок: AndreyZh пишет: Инд..

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.

 Отправлено: 23.03.10 14:26. Заголовок: Петр пишет: 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.

 Отправлено: 23.03.10 15:42. Заголовок: Это так, но возможно..

цитата:

Это так, но возможно совместное использование баз данных (см. описание ниже)

Нормальная таблица (dbf) наверняка имеет набор индексов, при добавлении/удалении записей или изменении индексных полей перестраивается индексный файл и каждая система перестраивает его по своему?

Чтение - смысл если xHarbour программа не может "правильно" найти индексируемую информацию, использовать locate? Но это тормоз...

По этому и сделал предположение о невозможности разделяемого совместного использовании таблиц... Это не "наезд" на xHarbour, а просто выявление ограничений использования.

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

 Отправлено: 23.03.10 16:09. Заголовок: AndreyZh пишет: В ч..

AndreyZh пишет:

цитата:

В частности руссификацию xMate, инструкцию по переводу приложений, какую нибудь документацию по языку и RDD и т.д.

Все что касается моих опусов, то ссылки на них есть "живые" и файлы не удалены.
Внимательней читайте соответствующую ветку
click here

 Отправлено: 23.03.10 16:38. Заголовок: Все что касается мои..

цитата:

Все что касается моих опусов, то ссылки на них есть "живые" и файлы не удалены. Внимательней читайте соответствующую ветку

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

 Отправлено: 23.03.10 17:22. Заголовок: Спасибо, на добром с..

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

 Отправлено: 23.03.10 21:16. Заголовок: ­Я же по-прежнему буд..

*PRIVAT*

 Отправлено: 23.03.10 21:32. Заголовок: AndreyZh пишет: REQ..

AndreyZh пишет:

цитата:

REQUEST->

Ты бы еще заюзал Procedure-> или что то вроде того ;)

ЗЫ

 
   REQUEST оператор  
  
  Объявляет список запрашиваемых для компоновки модулей 
  
   Синтаксис  
  
      REQUEST <idModule list> 
  
 

 Отправлено: 23.03.10 21:39. Заголовок: Млин!!! Спасибо - у ..

Млин!!! Спасибо - у меня это имя таблицы, а в Clipper 5.01 команды request уще не было

цитата:

sele REQUEST DbCloseArea()

А почему эту конструкцию корректно обрабатывает?

 Отправлено: 23.03.10 21:42. Заголовок: Добрый вечер! Коль с..

Добрый вечер! Коль скоро наглею - повторяю просьбу:

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

 Отправлено: 23.03.10 21:59. Заголовок: AndreyZh Могу ошиба..

AndreyZh
Могу ошибаться но вроде Бэст написан на Harbour
http://www.bestnet.ru/

AndreyZh пишет:

цитата:

"красивое"

что значит красивое ? Много иконок и всяких рюшечек ? ;)
Не под всякой красивой оберткой лежит вкусная конфетка ;)

 Отправлено: 23.03.10 22:29. Заголовок: Могу ошибаться но вр..

цитата:

Могу ошибаться но вроде Бэст написан на Harbour

Не катит! Очень уважительно относясь к данной системе. У них шарахания и как следствие "у них много интерфейсов":

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

цитата:

что значит красивое ? Много иконок и всяких рюшечек ? ;)

Гламурно, удобно и приятно использовать, например в таком стиле:

 Отправлено: 23.03.10 22:59. Заголовок: AndreyZh пишет: Гла..

AndreyZh пишет:

цитата:

Гламурно, удобно и приятно использовать, например в таком стиле:

Лично мой выбор: удобно , не глючно , максимум функционала по требованию клиента а уже потом гламур.
Впрочем максимум функционала я сразу стараюсь реализовывать , обычно у клиентов потом не возникает
пожеланий в переделке , хотя бывают исключения , в этом случае я конечно иду на встречу клиенту.

Гламур наверное следует наводить в самую последнюю очередь.
Это просто мое мнение и оно может отличаться от Вашего.

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

PS
Пошел я бай наверное ;)

 Отправлено: 23.03.10 23:09. Заголовок: AndreyZh пишет: Гла..

AndreyZh пишет:

цитата:

Гламурно, удобно и приятно использовать

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

 Отправлено: 23.03.10 23:11. Заголовок: Dima пишет: Так и с..

Dima пишет:

цитата:

Так и сидят они на проге на Clipper + ADS

Кстати пора уже наверное все переводить на X(Harbour) , практика показала что он ведет себя
стабильно (времени не хватает просто)

 Отправлено: 24.03.10 13:08. Заголовок: Так выглядит програм..

цитата:

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

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

 Отправлено: 24.03.10 15:17. Заголовок: AndreyZh пишет: где..

AndreyZh пишет:

цитата:

где скачать ИСПОЛНЯЕМОЕ приложение

Здесь лежит 30 готовых программ - выбирай любую/все для тестирования:

http://minigui.mylivepage.ru/file/37_MyProgram

 Отправлено: 24.03.10 19:17. Заголовок: Здесь лежит 30 готов..

цитата:

Здесь лежит 30 готовых программ - выбирай любую/все для тестирования:

Спасибо большой! Когда, если перейду к созданию приложений на miniGui вынужден буду изучить данные приложения, как образец кода на xHarbour + miniGui. Единственно замечание... да этим же вызвано "моё предложение" (бесконечные регистрации, пароли, платные SMS, удаление файлов и хранилища - как будно никто не хочет развития проекта Harboure):





Но сейчас меня интересует реальное, лучше тиражное бизнес приложение на [x]Harbour с графической мордой, удовлетворяющее требованию "Гламурно, удобно и приятно использовать". А есть ли такие в "природе"?

цитата:

Лично мой выбор: удобно , не глючно , максимум функционала по требованию клиента а уже потом гламур. Впрочем максимум функционала я сразу стараюсь реализовывать , обычно у клиентов потом не возникает пожеланий в переделке , хотя бывают исключения , в этом случае я конечно иду на встречу клиенту.

Батенька Вы (мы) далеко отстали от реальности (у меня куча фирм, более 500 пользователей), но им всё перечисленное Вами уже не нужно, да и современных клиентов "функционалом" не соблазнить - им надо "красиво" (только за это они готовы платить), а что прячется за красивостью их интересует в последнюю очередь.

Вот и у меня, пока "пауза" стоит вопрос - как минимальными усилиями дать "новым" user, что они ХОТЯТ!

 Отправлено: 24.03.10 22:50. Заголовок: AndreyZh пишет: Что..

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 подцепят ....
Пока вариантов не вижу....

 Отправлено: 24.03.10 23:48. Заголовок: Бери у меня на сайте..

цитата:

Бери у меня на сайте: 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 и возможности использовать его при создании реальных приложений.

 Отправлено: 25.03.10 00:39. Заголовок: AndreyZh пишет: Спа..

AndreyZh пишет:

цитата:

Спасибо! Уже подсказали, да и сам написал "заменитель". Инструкция? - Где бы её взять!

я ее выложил и если есть желание ее получить не нужно "наезжать" на кого то .
AndreyZh пишет:

цитата:

Там же есть "отчётная система". Но г. Кресин её бросил в 2006 с убожеской англоязычной документацией, сейчас он забавляется кажется LetoDB.

Аккуратнее пожалуйста c выводами и выражениями.

 Отправлено: 25.03.10 00:56. Заголовок: Dima пишет: Аккурат..

Dima пишет:

цитата:

Аккуратнее пожалуйста c выводами и выражениями.

Поддерживаю !
Не все могут тратить время на оформление и документацию. Спасибо и за то что продукт (LetoDB) работает и под Win32 и Linux !!!
Никто же такого до сих пор не сделал ! Пальцы многие растопыривают, а результата не видно....
Нужна документация, садись помогай... Заодно и пожелания появятся, на улучшения...

AndreyZh пишет:

цитата:

Остаётся убедиться в надёжности и перспективности проекта [x]Harbour и возможности использовать его при создании реальных приложений

Уже 3-й год сижу на нем, пользователи на стабильность вообще не жалуются... Программы работают на всей линейке Win32 и под Win7. Даже умудрились без меня запустить на Lunix под эмулятором Win32. Там фишка была не в моей задаче, а в ключе защиты HASP HL. Ничего, заработало....

 Отправлено: 25.03.10 11:58. Заголовок: Извините за мою терм..

Извините за мою терминологию - не хотел никого обидеть!

цитата:

я ее выложил и если есть желание ее получить не нужно "наезжать" на кого то

И даже кто-то успел скачать! Но сейчас не работает ни одна ссылка на скачку, а беспокоить "прислать индивидуально" пока не хочу.

цитата:

[quote]Там же есть "отчётная система". Но г. Кресин её бросил в 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. Современные технологии типа многопоточности и т.д.

Осталось выявить недостатки и "засады".....

 Отправлено: 25.03.10 23:58. Заголовок: AndreyZh пишет: А к..

AndreyZh пишет:

цитата:

А краткие справочники (на Русском), то же тяжело?

Там (по LetoDB) есть список функций... Я примеры делал, проверял, работает. Свои системы переводить тоже буду.
Если есть время, то сядь и напиши для них краткий справочник. Все горазды наезжать, а помочь некому.

AndreyZh пишет:

цитата:

По сообшениям можно понять, что Andrey & Dima имеют множество реальных рускоязычных пользователей своих систем.

Не только русскоязычных (два СС) но и украинских пользователей....

AndreyZh пишет:

цитата:

Кроме этого уже предложил, что мне по силам - реакции ноль!

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

 Отправлено: 26.03.10 00:10. Заголовок: AndreyZh пишет: Мор..

AndreyZh пишет:

цитата:

Морально поддерживая усилия по созданию "своей" СУБД (а где гарантия, что она не будет заброшена?)

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

AndreyZh пишет:

цитата:

Но ссылки из инструкции по miniGui НЕ РАБОТАЮТ.

Это к TimTim - это его дока ! Попрошу его ко мне на сайт выложить....
Я еще там пару статей про ФастРепорт напишу....

 Отправлено: 26.03.10 01:10. Заголовок: Andrey пишет: Это к..

Andrey пишет:

цитата:

Это к TimTim - это его дока !

Я по MiniGui ничего не писал пока. Так что это не моя ссылка не работает

 Отправлено: 26.03.10 01:16. Заголовок: TimTim пишет: Я по ..

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 – автору Хусейнову Темуру.

Что ему не понравилось, не знаю. Я же просто на тему форума ссылаюсь.
Может выложите эти файлы ко мне на страницу ! Сайт я на год оплатил.

 Отправлено: 26.03.10 22:03. Заголовок: Уважаемые господа! Е..

Уважаемые господа! Еще раз извините за "оскорбления", которые ненарочно произвёл! (Мне ещё к вам за помощью обращаться)

цитата:

Там (по 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С не предлогать (шутка)), что бы было "гламурно, удобно и приятно использовать".

 Отправлено: 26.03.10 22:22. Заголовок: AndreyZh пишет: Инс..

AndreyZh пишет:

цитата:

Инструкции Вы для них пишете? Если да, то на каком языке?

На русском...

AndreyZh пишет:

цитата:

Увы - не владею пока даже элементарными навыками работы с Harbour

А я тоже пока на хХарборе сижу... На Харборе под МиниГуи пишу пока маленькие программки, типа конвертация файлов из Сбербанка (Клиент-Банк) в дос-формат файлов...

AndreyZh пишет:

цитата:

Пока эти вопросы, а так же Report System решал на Visual Foxpro - если интересно размещу ссылку

Не интересно. Это как минимум внешний ЕХЕ-ник. Зачем его иметь, если на хХарборе можно у себя в коде делать тоже самое ?

AndreyZh пишет:

цитата:

Уже совсем запутался! А адрес сайта можно?

http://abonent4.ru/load

 Отправлено: 26.03.10 22:48. Заголовок: AndreyZh пишет: сей..

AndreyZh пишет:

цитата:

сейчас есть и ПОДДЕРЖИВАЮТСЯ open source RDD к базам MySQL, SQLite, FireBird

Наверное что-то упустил. Позвольте полюбопытствовать, что это за проекты?

 Отправлено: 27.03.10 08:31. Заголовок: "Чем больше дров..

"Чем больше дров, тем дальше лес"... Разрешите вернуться к остальным вопросам/проблемам после, а сейчас только два маленьких вопроса:

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

2. Дайте ссылку на бизнес систему (язык не важен), реализованную на Harbour с графическим расширением (прошу БЭСТ и 1С не предлагать), что бы было "гламурно, удобно и приятно использовать".

 Отправлено: 27.03.10 10:24. Заголовок: Пожалуйста подскажит..

Пожалуйста подскажите по очередной "непонятке":

При постоении многих отчетов использую запрос "один или все склады" с идентичном оператором чтения
@2,23 GET cCodStores VALI IF(Empty(cCodStores),TRUE,Eval(bCodStores,cCodStores))

На ряде отчётов вопрос правильно обрабатывается и отчёт правильно строится, на других отчётах, на данном запросе (нажимаю вызов справочника) программа вылетает без сообщений об ошибке (хотя возможно, что-то красное мелькает).

Подозреваю, что какой-то бардак с памятью! Или как "поймать" молниеносные сообщения?

 Отправлено: 27.03.10 12:56. Заголовок: Пока "не дождалс..

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

....и очень жду совета по "предыдущим" вопросам (двум сообщениям)

 Отправлено: 27.03.10 12:59. Заголовок: AndreyZh пишет: htt..

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

 Отправлено: 27.03.10 13:15. Заголовок: http://www.zhsoft.nm..

цитата:

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

 Отправлено: 27.03.10 13:34. Заголовок: AndreyZh пишет: А к..

AndreyZh пишет:

цитата:

А какой у Вас Browser?

Firefox Mozilla 3.6.2

Кстати Opera 10.51 Build 3315 сработала нормально.

AndreyZh пишет:

цитата:

попробуйте через zhsoft.nm.ru

Да так работает и в FireFox

 Отправлено: 27.03.10 13:41. Заголовок: Да так работает и в ..

цитата:

Да так работает и в FireFox

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

 Отправлено: 27.03.10 14:06. Заголовок: AndreyZh пишет: Или..

AndreyZh пишет:

цитата:

Или как "поймать" молниеносные сообщения?

Если это Xharbour , тогда в папке откуда запускаешь программу ищи Error.log , там все написано.

 Отправлено: 27.03.10 14:13. Заголовок: Если это Xharbour , ..

цитата:

Если это Xharbour , тогда в папке откуда запускаешь программу ищи Error.log , там все написано.

Когда не помогают похоже лучше соображаю, но теряю кучу времени - заставил "Гюльчатай показать личико", но всё равно причина непонятна, т.к. аналогичный блок в программе встречается сотни раз. Скрин ошибочной ситуации:



ПОМОГИТЕ пожалуйста!

 Отправлено: 27.03.10 14:31. Заголовок: Могу только предполо..

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

 Отправлено: 27.03.10 14:38. Заголовок: Спасибо! Но здесь вс..

Спасибо! Но здесь всё единообразно и "чисто". Плохо с англицким - проблема, судя по импортным форумам старая, могет Вам более понятно:

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.

 Отправлено: 27.03.10 14:48. Заголовок: В качестве RDD испол..

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

 Отправлено: 27.03.10 14:49. Заголовок: Нет конечно! Стандар..

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

 Отправлено: 27.03.10 15:20. Заголовок: Ура - нашёл! Не уже ..

Ура - нашёл! Не уже ли никто не "натыкался"... В приципе схожая проблема "растёт" от Clipper 5.2 и старше...

Код порождающий данную (и множество других) ошибку:

DbSelectArea(0) // Перехожу в пустую рабочую область
n := IndexOrd() // Clipper 5.01 эту ситуацию обрабатывает

 Отправлено: 27.03.10 15:45. Заголовок: AndreyZh Может тебе..

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