Отправлено: 25.12.07 17:41. Заголовок: C чего начать? Есть ли С-API? И т. д.

Здравствуйте.

Хотелось бы услышать советы и рекомендации, во-первых, "откуда качать, что ставить и т.п.". И второе, это информация по С-API.

Объясню свою ситуацию. Я не клипперист (дельфист), однако, получилось, что плотно познакомился с Clipper и Alaska Xbase++. Для Alaska Xbase написал дельфи-оболочку над С-API и полностью портировал FastReport (генератор отчетов) для этого языка, продукт продается и т.д (см. http://www.hotsoft.ru/ALASKA/frax_eng.htm).

Но вот стал получать много писем из Испании Призывают тоже самое сделать для Harbour/xHarbour/FiveWin и т. д..

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

Спасибо.

Спирин Сергей.

 Отправлено: 23.01.08 13:56. Заголовок: gfilatov пишет: ка..

gfilatov пишет:

цитата:

какой лучший способ обработать ошибку? Для этого предназначена следующая структура:

Нет-нет! Не обработать ошибку! А именно "сделать" ошибку Чтобы объект ошибки с моими словами "пошел" в текущий ErrorBlock.

Насколько я понимаю, я должен создать объект ошибки и вызвать Eval(ErrorBlock, oError)

Просто, может есть как-то коротко?

 Отправлено: 23.01.08 14:43. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

какой лучший способ сгенерировать ошибку?

...
oerr := ErrorNew()
oerr:severity := ES_ERROR
oerr:genCode := EG_OPEN
oerr:subSystem := "FRH"
oerr:osCode := nFileError
oerr:filename := cFrFile
Eval(ErrorBlock(), oerr)
...

 Отправлено: 23.01.08 14:45. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

Просто, может есть как-то коротко?

Подсмотрел rdd-исходники, похоже сокращенного пути нет Сделал так

ELSE
oError := ErrorNew()
oError:GenCode := EG_OPEN
oError:Severity := ES_ERROR
oError:SubCode := 2012
oError:Description := "Can not load FRH library " + "'" + cOptionalPath + "'"
oError:FileName := cOptionalPath
oError:CanDefault := .F.
Eval(ErrorBlock(), oError)
ENDIF

 Отправлено: 23.01.08 14:47. Заголовок: gfilatov пишет: :su..

gfilatov пишет:

цитата:

:subSystem := "FRH"

Точно

 Отправлено: 23.01.08 15:06. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

oError:Description := "Can not load FRH library " + "'" + cOptionalPath + "'"

Описание ошибки можно сократить до
oError:Description := "Can not load FRH library"

поскольку имя файла передается в
oError:FileName := cOptionalPath

 Отправлено: 23.01.08 15:21. Заголовок: ELSE Throw( ErrorN..

ELSE
Throw( ErrorNew( "FRH", EG_OPEN, 2012, ProcName(), "Can not load FRH library", ;
{ cOptionalPath, cOptionalPath } ) )
ENDIF

 Отправлено: 23.01.08 15:37. Заголовок: saulius пишет: Thro..

saulius пишет:

цитата:

Throw(..)

Эта функция есть только в xHarbour

#include "hbapi.h"
#include "hbapiitm.h"
#include "hbapierr.h"

HB_FUNC( THROW )
{
PHB_ITEM pError = hb_param( 1, HB_IT_ANY ), pResult;

if( HB_IS_OBJECT( pError ) )
{
pError = hb_itemNew( pError );

pResult = hb_errLaunchSubst( pError );

hb_itemRelease( pError );

if( pResult )
{
hb_itemRelease( hb_itemReturnForward( pResult ) );
}
}
else
{
hb_errRT_BASE( EG_ARG, 9101, NULL, "THROW", 1, hb_paramError( 1 ) );
}
}

 Отправлено: 24.01.08 14:19. Заголовок: Здравствуйте. Расши..

Здравствуйте.

Расширил и обновил http://www.paritetsoft.ru/frh.htm

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

Возможно, что сделаю широкий анонс выхода бэты сегодня.

 Отправлено: 24.01.08 15:34. Заголовок: Все разложил. Сажусь..

Все разложил. Сажусь писать тект анонса и где-то через полчаса-час начну "долбить по миру"

 Отправлено: 28.01.08 11:07. Заголовок: Сборка консоли. Рели..

Сборка консоли. Релиз 9971
Сборка demo_gtwin.bc все нормально.
Что-то не могу повторить сборку demo_gtwvt.bc , выдает ошибку:
Hbmake need of the xHarbour bin in the path.

 Отправлено: 28.01.08 19:45. Заголовок: Vlad04 пишет: Что-т..

Vlad04 пишет:

цитата:

Что-то не могу повторить сборку demo_gtwvt.bc ,

Этот вариант делал Андрей, поэтому "подождем" его.

 Отправлено: 28.01.08 23:37. Заголовок: Vlad04 пишет: Hbmak..

Vlad04 пишет:

цитата:

Hbmake need of the xHarbour bin in the path.

Я вообщето очень слабо разбираюсь в английском, но помоему он "ругается" про путь к xHarbour'y.
Скорее всего не прописано PATH=Z:\BCC55\BIN;Z:\xHARBOUR\BIN;
и еще HB_DIR = Z:\xHARBOUR
соответственно диск Z - переправте на свой.

Хотя если предыдущий собрался через hbmake, то и это должен собраться.
Может ошибка другая, типа
Fatal: Unable to open file 'WVTGUI.LIB' ???

 Отправлено: 29.01.08 06:57. Заголовок: Вообщем повторить по..

Вообщем повторить почти удалось.Прописал в переменных окружения пути, сборка пошла. Но для сборки demo_gtwin.bc переменные окружения указывал только в батнике в батнике (т.к. работаю сразу с версией 9971 и 1.0) и все получалось.
Небольшие замечания:
1) В файле demo_gtwvt.prg указан #include "lang_ru.dos.ch", а фактичесуи есть lang_en.ch.
2) Внешний вид приложения - отсутствуют рамки на комбобоксе выбора языка приложения.
Возможно это связано с установленным фонтом.

 Отправлено: 29.01.08 10:24. Заголовок: Vlad04 пишет: указа..

Vlad04 пишет:

цитата:

указан #include "lang_ru.dos.ch", а фактичесуи есть lang_en.ch.

Это к Сергею Спирину, я ему писал чтоб русскую кодировку выложил.

Vlad04 пишет:

цитата:

отсутствуют рамки на комбобоксе выбора языка приложения.

Были рамки, а в какой системе запускается задача ?

 Отправлено: 29.01.08 11:00. Заголовок: Пересобрал на нарб ..

Пересобрал на нарб 1.0.
Все то же самое, имею ввиду рамки.
Операционная ХР2, запускал из под фара и проводником

 Отправлено: 29.01.08 11:35. Заголовок: Программа должна быт..

Программа должна быть такой:


Если нет, то пишем ....

 Отправлено: 29.01.08 13:57. Заголовок: Нет рамок, как я соо..

Нет рамок, как я сообщал для demo_gtwvt.exe , если я его сам собираю.

 Отправлено: 29.01.08 16:55. Заголовок: Я кажись догадываюсь..

Я кажись догадываюсь в чем дело ! Хотелось бы подтверждения ....
Какой исходник вы собираете ?
Есть ли в исходнике 2 строки:

Wvt_SetCodePage(255) // #define OEM_CHARSET 255 - from wingdi.h
Wvt_SetFont( 'Terminal', 18, 10, 0 )

Я собираю xHarbour build 1.0.0 Intl. И у меня рамки есть.
Выложите окно, которое у вас получается.

 Отправлено: 04.02.08 23:10. Заголовок: Пытался опять собрат..

Пытался опять собрать ДЕМО терминальное для GTWIN под Harbour Beta build 0.99-3 Intl.
Собралось. Но если подключена мышка то выдает такую ошибку
┌───────────────────────────────────────────┐
│ Error BASE/1081 Неверный аргумент: +
│ [ Quit ]
└───────────────────────────────────────────┘
И вываливается.
Что-то в GET-системы с мышкой не лады в Harbour'e.
Хочется все-таки запустить Harbour - DEMO, кто поможет ?

 Отправлено: 05.02.08 12:22. Заголовок: Andrey пишет: Хочет..

Andrey пишет:

цитата:

Хочется все-таки запустить Harbour - DEMO, кто поможет ?

Да ладно, это в общем-то не столь актуально. Как с штрих-кодами дела? Разбираетесь?

Спирин Сергей.