Отправлено: 21.04.09 15:43. Заголовок: Помогите советом начинающему...

Тут вот надумал переползти на xHarbour. Возникла следующая проблема: имена всех функций и подпрограмм дополняются префиксом HB_FUN_. А можно ли этого избежать так, чтобы остались родные, начальные имена. У меня весь софт построен на скриптах, в которых уже стоят вызовы функций и процедур по привычным, родным именам. И перелопатить везде в 5000 текстовых файлах-скриптах вызовы функций и поменять на новые - задача крайне утомительная с непонятной перспективой на успех.

 Отправлено: 18.06.09 16:59. Заголовок: Pasha пишет: вызов ..

Pasha пишет:

цитата:

вызов hb_adsOemToAnsi

Нужен вызов или нет - это еще вопрос, а если все жестко зашито в исходники и исходники в кодировке OEM?
И простой заменой
char * pucStmt = hb_adsOemToAnsi( hb_parc( 1 ), hb_parclen( 1 ) );
на
char * pucStmt = hb_parc( 1 );
тоже не надо ограничиваться.

Если менять, то уже как надо
#ifdef ADS_USE_OEM_TRANSLATION
char * pucStmt = ( hb_ads_bOEM ) ? hb_adsOemToAnsi( hb_parc( 1 ), hb_parclen( 1 ) : hb_parc(1) );
else
char * pucStmt = hb_parc(1);
#endif
..
..
#ifdef ADS_USE_OEM_TRANSLATION
if(pucStmt) hb_adsOemAnsiFree(pucStmt);
#endif

и так по всему adsfunc.c

 Отправлено: 18.06.09 17:37. Заголовок: Проверил. Если сдела..

Проверил.
Если сделать ADSConnect и ADSCreateSQLStatement, то AdsPrepareSQL и AdsVerifySql с подставленным SQL запросом с русскими символами в строковых константах выдают .t. Так наверное и должно быть на этом этапе работы с SQL запросом. Ведь и в том примере, который у меня не работал, ошибка не возникала, просто ничего не отбирала. А в исходниках этих ф-ций такая же перекодировка стоит, как и для ADSEXECUTESQLDIRECT. Наверное для единообразия нужно и в этих ф-циях убрать эту самую перекодировку, т.к. сомнительно, чтобы разработчики rdd_sql считали, что ADS по-разному обрабатывает кодировки в каждой из этих ф-ций.

Еще такой вопрос. Вызываю указанные ранее 4 ф-ции первый раз - последние две дают .t. Второй и последующие разы - дают .f. Неясно, почему так. Вызываю ADSDisconnect() - не помогает. А что нужно вызывать, чтобы каждый раз был положительный результат у ADSVerify и ADSPrepareSQL.

И еще вопрос. Стало как-то нестабильно работать программа. После моего заработавшего запроса я вызываю DBEDIT() без параметров, без наворотов, просто чтобы посмотреть что получилось. После нажатия ESC в DBEDIT программа вываливается с дикими виндовыми ошибками и просит извинить за неудобства. Причем на какой-то непредсказуемый раз позволяет несколько раз выполнить запрос, войти-выйти из DBEDIT() и опять таки поломаться. Что бы это значило? А то меня такая нестабильность удивляет и пугает, а пользователи просто орать благим матом будут.

 Отправлено: 23.06.09 15:56. Заголовок: Добрый день, уважаем..

Добрый день, уважаемые.

Замучал я всех xHarbour'ом. Работает нестабильно с SQL запросами (см.предыдущее письмо) и медленно, по сравнению с Клиппером, на w98 (даже и непонятно почему... Или так и должно быть?), на сетевой принтер команда set printer to lpt2 не работает.

Переполз на Harbour. Удивительно, что некоторые куски программ перестали работать (хотя в xHarbour запустились, имелись свои удивительные неожиданности, связанные с промежуточным С). Но тут вот новая-старая проблема: невозможно прочитать состояние клавиатуры...
kbdstat() и hb_gtInfo(GTI_KBDSHIFTS) выдают значение 128 и на нажатие CTRL/ALT/SHIFT не реагируют. Причем как-то удивительно: если после вызова i=kbdstat() вызвать j=getkeyboardstate(), то в i что-то изменяется (и даже в соответствии с описанием), если вызов j=getkeyboardstate() убрать - снова kbdstat() возвращает 128. Что бы это значило? Я такого поведения программы совсем не понимаю. И как с этим бороться? Не оставьте без внимания мои трудности, сколько уже преодолено с помощью знатоков...

 Отправлено: 23.06.09 17:58. Заголовок: Urri пишет: Перепол..

Urri пишет:

цитата:

Переполз на Harbour.

Urri, открой новую тему начинающего с Harbour.
Невозможно читать все 13 стр.

 Отправлено: 23.06.09 19:51. Заголовок: Urri пишет: на сете..

Urri пишет:

цитата:

на сетевой принтер команда set printer to lpt2 не работает.

Переделай вывод на печать....
Здесь на форуме уже обсуждались эти проблемы, ищи и читай....

Urri пишет:

цитата:

Замучал я всех xHarbour'ом

Пиши какая версия !

 Отправлено: 23.06.09 21:28. Заголовок: Andrey пишет: Пиши ..

Andrey пишет:

цитата:

Пиши какая версия !

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)

Сам же ссылку мне и давал при каком-то обсуждении (по поводу совместной работы клиппера и фокспро с .CDX индексами)

Andrey пишет:

цитата:

Переделай вывод на печать.... Здесь на форуме уже обсуждались эти проблемы, ищи и читай....

Затрахался я уже переделывать. Ни одной приличной ф-ции нету, все какие-то калечные, написанные "для совместимости"... А для нормальной работы - ничего нет. Последних 15 лет у меня вывод на печать прекрасно работал через прерывание FT_INT86, но эта ф-ция в xHarbour (и похоже в Harbour) не работает, а также FT_PEEK для работы с клавиатурой. Извини, крик души...

 Отправлено: 24.06.09 11:27. Заголовок: Urri пишет: Затраха..

Urri пишет:

цитата:

Затрахался я уже переделывать.

И не только ты один .... но такая работа программиста....

 Отправлено: 24.06.09 14:55. Заголовок: Urri пишет: Еще так..

Urri пишет:

цитата:

Еще такой вопрос. Вызываю указанные ранее 4 ф-ции первый раз - последние две дают .t. Второй и последующие разы - дают .f. Неясно, почему так. Вызываю ADSDisconnect() - не помогает. А что нужно вызывать, чтобы каждый раз был положительный результат у ADSVerify и ADSPrepareSQL. И еще вопрос. Стало как-то нестабильно работать программа. После моего заработавшего запроса я вызываю DBEDIT() без параметров, без наворотов, просто чтобы посмотреть что получилось. После нажатия ESC в DBEDIT программа вываливается с дикими виндовыми ошибками и просит извинить за неудобства. Причем на какой-то непредсказуемый раз позволяет несколько раз выполнить запрос, войти-выйти из DBEDIT() и опять таки поломаться. Что бы это значило? А то меня такая нестабильность удивляет и пугает, а пользователи просто орать благим матом будут.

Подготовьте 2 самодостаточных ( чтобы не надо было ничего дописывать и dbf создавать ) примера, которые демонстрируют указанные проблемы, тогда можно будет что-то обсуждать.

 Отправлено: 24.06.09 16:15. Заголовок: Вот программа самодо..

Вот программа самодостаточная:

*--------------------------------------

procedure main

LOCAL arr := { { "KOD","N",4,0 }, { "NAIM","C",60,0 } }

public numsql:=0

REQUEST DBFCDX, DBFNTX, Ads
Request HB_LANG_RU866,HB_CODEPAGE_RU866

hb_SetCodepage( "RU866" )
AdsSetCharType( 2, .t. )

? 'curdir=',CurDir()
? AdsSetServerType( 1 )
? 'AdsIsServerLoaded=',AdsIsServerLoaded( 'c:\' )
? 'ADSConnect=',AdsConnect( "c:\" )
rddSetDefault( 'ADSCDX' )

dbCreate( "c:\street.dbf", arr )
use c:\street.dbf
for i=1 to 100
append blank
replace kod with i,naim with "Привет "+str(i,3)
next
dbCloseArea()

select 0
use c:\street shared

for i=1 to 1000
&& 1 sql=[update street set naim='1'+upper(naim)]
&& 2 sql=[update street set naim=upper(naim)]
&& 3 sql=[update street set naim=']+str(i,3)+['+upper(naim)]

? i,sql
inkey(100)
runsql(sql,,.t.,'c:\')
select street
dbedit()
next

quit

*--------------------------------------

function RunSql(cSQL,cAli,CloseSel,path)
local selsql,sel:=select()

select 0
selsql=select()
if valtype(cAli)<>'C'
numsql++
cAli='SQL'+alltrim(str(numsql))
endif
if valtype(path)<>'C'
path=substr(path_net,1,3)
ADSConnect=ADSConnect(path)
endif
IF !AdsCreateSqlStatement(cAli,2)
? "Cannot create SQL statement"
select(selsql)
use
select(sel)
return -1
ENDIF
IF !AdsExecuteSqlDirect(cSQL)
? "AdsExecuteSqlDirect - error"
select(selsql)
use
select(sel)
return -2
ENDIF
select(selsql)
if ValType(CloseSel)='L'.and.CloseSel
use
select(sel)
endif
return SelSql


Вот .bat для запуска:

@echo off

setlocal
cls

md objx
@del main.exe
@del main.tds
@del objx\main.exe
@del objx\main.tds
@del objx\*.obj > nul
@del objx\*.c > nul
@del objx\*.ppo > nul

@set path=%path%;g:\rab\

@set path=%path%;G:\PROC\BCC55\Bin\
@set HB_INSTALL=g:\proc\xharbour

@set HB_BIN_INSTALL=%HB_INSTALL%\bin
@set HB_LIB_INSTALL=%HB_INSTALL%\lib
@set HB_INC_INSTALL=%HB_INSTALL%\include

@set HB_BCC_INSTALL=g:\proc\bcc55
@set HB_BCC_BIN_INSTALL=%HB_BCC_INSTALL%\bin
@set HB_BCC_LIB_INSTALL=%HB_BCC_INSTALL%\lib
@set HB_BCC_INC_INSTALL=%HB_BCC_INSTALL%\include


%HB_BIN_INSTALL%\harbour main -n -q0 -gc -i%HB_INC_INSTALL% %HARBOURFLAGS% -oobjx\ -m /dxHarbour

@set HB_LIBLIST=common.lib debug.lib vm.lib rtl.lib zlib.lib pcrepos.lib gtwin.lib lang.lib rdd.lib macro.lib pp.lib dbffpt.lib dbfntx.lib dbfcdx.lib hsx.lib hbsix.lib ct.lib tip.lib rddads.lib ace32.lib ct.lib libnf.lib codepage.lib %HB_USER_LIBS%

%HB_BCC_BIN_INSTALL%\bcc32 -O2 -d -c -oobjx\main.obj %CFLAGS% -I%HB_BCC_INC_INSTALL% -I%HB_INC_INSTALL% -L%HB_BCC_LIB_INSTALL% -L%HB_LIB_INSTALL% objx\main.c %HB_LIBLIST%

%HB_BCC_BIN_INSTALL%\bcc32 -O2 -d -emain %CFLAGS% -nobjx\ -I%HB_BCC_INC_INSTALL% -I%HB_INC_INSTALL% -L%HB_BCC_LIB_INSTALL% -L%HB_LIB_INSTALL% objx\main.c %HB_LIBLIST%
copy objx\main.exe .

main.exe %1 %2 %3 %4 %5 %6 %7 %8 %9 //F:120 //swappath:'c:\' //temppath:'c:\'
endlocal



Там есть мой путь на g:\proc\ ... - там у меня xHarbour и BCC находятся

Проблема такая:
в цикле 1000 раз вызывается один из SQL запросов. (для проверки удалите && и номер)
&& 1 - работает нормально
&& 2 - работает нормально

&& 3 - первый раз вызывается нормально, второй раз и последующие может работать, а может и выдать "AdsExecuteSqlDirect - error" много раз, а может в какой-то непредсказуемый раз вылететь с виндовым сообщением об обнаруженной ошибке.

Хотелось получить рекомендации для устранения проблемы. А то мы очень надеялись на SQL запросы.

 Отправлено: 24.06.09 17:01. Заголовок: Кстати, проверил это..

Кстати, проверил этот пример по Harbour - все прекрасно работает. Но при переходе на Harbour возникли другие проблемы, которые возможно прийдется героически преодолевать, а на xHarbour они уже как-то решены

 Отправлено: 25.06.09 15:22. Заголовок: Странный у вас SQL з..

Странный у вас SQL запрос:

update street set naim='1'+upper(naim)

в поле naim каждый раз записывается значение, на 1 больше чем длина поля, тут все что угодно может произойти - в зависимости как ads такое переполнение обрабатывает. У меня вот на каждой итерации выдается предупреждение ( виндовое окошко выскакивает ) об ошибке и что 'data truncated' ...

 Отправлено: 25.06.09 15:51. Заголовок: Запрос конечно надум..

Запрос конечно надуманный. Но каким бы он ни был - он синтаксически правильный. И не повод программе так себя вести. Запрос должен работать - или не работать, но постоянно. А то несколько раз сработает (причем количество раз - число случайное), но потом ломается. Или просто говорит, что видите ли "AdsExecuteSqlDirect - error", но не раньше второго вызова. А первый ему что, не такой уж и плохой?

Реальные запросы у нас (у меня и моих сотрудников (не только я тестировал)) менее "странные", но поведение программы такое же нестабильное.

 Отправлено: 25.06.09 18:06. Заголовок: Проблема не в том, ч..

Проблема не в том, что он надуманный, а в том, что он неправильный. Он, действительно, генерирует AdsExecuteSqlDirect - error в каждой итерации по той причине, что пытается записать в поле NAIM значение, превышающее длину этого поля.
Попробуйте вместо вашего sql=[update street set naim=']+str(i,3)+['+upper(naim)] вот это:

sql=[update street set naim=']+str(i,3)+['+left(upper(naim),50)]

 Отправлено: 25.06.09 21:04. Заголовок: Вопрос ведь не в это..

Вопрос ведь не в этом конкретном запросе. И почему он первый раз не генерирует сообщение об ошибке, хотя и в первый раз он пытается записать в поле значение, превышающее его длину (хотя в Клиппере, Фоксе или MS SQL, Oracle записывается только то, что помещается и сообщений об ошибке не дает). Плохо то, что вылетает с виндовой ошибкой. Точно такой же вылет наблюдается при более "правильных" запросах типа записать 0 в числовую переменную или TRUE логическую (я попробую воспроизвести такую ситуацию). Кстати я писал, что этот же пример, запущенный под Harbour, работает с тем же LOCAL ADS совершенно без проблем.

А что подскажите по поводу ф-ции FT_PEEK в Harbour? Она так же не работает, как и в xHarbour ?

 Отправлено: 26.06.09 08:26. Заголовок: Я компилировал ваш п..

Я компилировал ваш пример как раз Harbour'ом ( xHarbour я не использую ), и у меня ошибка вылетала в каждой итерации, в т.ч. и первой - если убрать вызов dbedit(), который занимает весь экран, это будет лучше видно. Та "виндовая ошибка" - это сообщение ADS ( у меня по крайней мере ) - ADS всегда выдает такое окошко при ошибке в запросе.

цитата:

Вопрос ведь не в этом конкретном запросе

Вы то мне дали именно этот конкретный запрос, я о нем и веду речь и утверждаю, что ADS ( а не xHarbour или Harbour ) воспринимает его как ошибочный. Других ваших запросов я не видел - возможно, и в них не все чисто. Кстати, если вы внимательно прочитаете ту "виндовую ошибку" ( сообщение ADS ), то найдете там, что именно не нравится ADS в вашем запросе.

цитата:

А что подскажите по поводу ф-ции FT_PEEK в Harbour? Она так же не работает, как и в xHarbour ?

Наверняка не работает. Сам, правда, не проверял. Не использую, и никому не советую. Нравится нам это или нет, но во всех современных ОС прямой доступ к устройствам, памяти вне процесса и т.п. запрещен, иначе нельзя обеспечить защиту ядра ОС, корректную реализацию мультизадачности. Надо к этому привыкать - и находить другие способы реализации ваших задач.

 Отправлено: 26.06.09 10:01. Заголовок: Убрал DBEDIT(). В xH..

Убрал DBEDIT().
В xHarbour: в моем варианте SQL запроса выдает сообщение "AdsExecuteSqlDirect - error", но при этом запрос выполняется (изменения в базе street происходят), но только почему-то всего 28 раз работает и вылетает с виндовс ошибкой (а перед этим еще какие-то досовские непонятки случаются). Для вашего варианта запроса сообщение "AdsExecuteSqlDirect - error" не выдает, но работает только 22 раза и снова вылет в виндовс. Что за полная неразбериха и с какого потолка возникают цифры 28 и 22 ???
В Harbour в моем варианте продолжает выдавать сообщение "AdsExecuteSqlDirect - error", но при этом запрос выполняется, в вашем работает без сообщений все 1000 раз.

Похоже нужно на Harbour ориентироваться. Опять всякие засады преодолевать.

По-поводу FT_PEEK не совсем согласен. Если бы была верна аргументация последней части предыдущего сообщения по поводу "современных ОС", то в исходниках библиотек Harbour для этой ф-ции и других подобных первым и единственным оператором нужно поставить что-то типа "return Nil", объявить всем, что оставлены эти ф-ции только для совместимости и борьбы с неразрешенными внешними ссылками, что все могут быть свободны "и находить другие способы реализации ваших задач" . Тогда зачем в текстах этих ф-ций написаны (кило)метры крутого С-шного осмысленного текста, который впрочем не работает по причине "обеспечения защиты ядра"...

Может быть как многоопытный пользователь Harbour тогда подскажите, чем заменить такую ф-цию печати

function prn_old(cText,nPort)
set console off
set print on
do case
case nPort=0
set printer to lpt1
case nPort=1
set printer to lpt1
case nPort=2
set printer to lpt2
case nPort=3
set printer to lpt3
case nPort=4
set printer to lpt4
endcase
set device to print
?? cText
set print off
set device to screen
set console on
return Nil

Проблема в том, что состояние готовности принтера кроме как ф-цией isprinter() проверить нечем, а она для матричных принтеров не очень хороша.

Более существенная проблема: PRN_OLD не работает с сетевыми принтерами, назначенными к lpt2. Говорят, что на этом форуме уже обсуждалась эта проблема - все облазил, не нашел. Подскажите решение, пожалуйста.

 Отправлено: 26.06.09 12:13. Заголовок: Urri пишет: По-пово..

Urri пишет:

цитата:

По-поводу FT_PEEK не совсем согласен. Если бы была верна аргументация последней части предыдущего сообщения по поводу "современных ОС", то в исходниках библиотек Harbour для этой ф-ции и других подобных первым и единственным оператором нужно поставить что-то типа "return Nil", объявить всем, что оставлены эти ф-ции только для совместимости и борьбы с неразрешенными внешними ссылками, что все могут быть свободны "и находить другие способы реализации ваших задач" .

В отличие от вас Александр имеет отношение к исходникам библиотек Harbour и не вам советовать писать там типа "return Nil" или что-то другое - без вас разберутся.
Вам же еще раз повторяю - из user mode, т.е. пользовательских приложений прямого доступа к hardware вы не получите, все действия только через соотв. драйвера.
Хочу вам также напомнить, что Harbour Project - это a Free Open Source Software effort to build a multiplatform Clipper language compiler.
Одна из поддерживаемых платформ DOS, о FreeDOS вы наверное слышали.
Еще хочу вам напомнить, что Harbour уже около 10 лет и всем повторять что-то уже порядочно надоело.
Програмист, если это действительно программист, должен иметь определенное представление об архитектуре OS.

цитата:

Тогда зачем в текстах этих ф-ций написаны (кило)метры крутого С-шного осмысленного текста, который впрочем не работает по причине "обеспечения защиты ядра"...

Какие метры и километры, там по 30 строчек от силы. Также см.выше о поддержке DOS.

цитата:

Может быть как многоопытный пользователь Harbour тогда подскажите, чем заменить такую ф-цию печати

После ваших пассажей я бы подумал, отвечать или нет, но вопрос все равно к Александру.

цитата:

Проблема в том, что состояние готовности принтера кроме как ф-цией isprinter() проверить нечем, а она для матричных принтеров не очень хороша.

См. выше и Google в помощь.

 Отправлено: 26.06.09 12:45. Заголовок: Проблемы с xHarbour ..

Проблемы с xHarbour комментировать не могу - я с ним не работал и не работаю.

цитата:

В Harbour в моем варианте продолжает выдавать сообщение "AdsExecuteSqlDirect - error", но при этом запрос выполняется, в вашем работает без сообщений все 1000 раз.

У меня - точно так же, и такое поведение вполне нормально.

цитата:

Тогда зачем в текстах этих ф-ций написаны (кило)метры крутого С-шного осмысленного текста, который впрочем не работает по причине "обеспечения защиты ядра"...

:) Там ( contrib/libnf/peek.c ) всего двадцать строк кода, написанного в начале 90-х и, скорее всего, не компилирующегося bcc32 ( поэтому этот файл и не включен в библиотеку ). Возможно, он компилируется и работает в версии Harbour для DOS - и такая есть, C компилятор - djgpp.

цитата:

Может быть как многоопытный пользователь Harbour тогда подскажите, чем заменить такую ф-цию печати

Проверки готовности я в этой функции не нашел, тогда что же в ней не работает ? Функция на вид безобидная ... Вывод на сетевой принтер, назначенный на lpt2 ? По этому поводу ничего сказать не могу, я не назначаю сетевой принтер ни на lpt1, ни на lpt2.

 Отправлено: 26.06.09 13:23. Заголовок: ­Петр пишет: В отлич..

*PRIVAT*

 Отправлено: 26.06.09 19:36. Заголовок: Urri пишет: PRN_OLD..

Urri пишет:

цитата:

PRN_OLD не работает с сетевыми принтерами, назначенными к lpt2. Говорят, что на этом форуме уже обсуждалась эта проблема - все облазил, не нашел.

Смотри:
http://clipper.borda.ru/?1-4-0-00000427-000-0-0-1240313321

Рабочий пример с исходником:
http://clan-clear-sky.ucoz.ru/Printer_Demo.rar