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

Спасибо.

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

 Отправлено: 25.12.07 18:15. Заголовок: C чего начать?

Для начала рекомендую почитать

Harbour для начинающих. Как установить Harbour и откомпилировать на нем свою программу

 Отправлено: 25.12.07 18:21. Заголовок: OK. Спасибо. :sm29: ..

OK. Спасибо.

А насчет, есть ли потребность в профессиональном генераторе отчетов? Много ли пользователей, испытывающих такую потребность?


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

 Отправлено: 25.12.07 18:35. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

есть ли потребность в профессиональном генераторе отчетов?

Конечно, есть!

Sergey Spirin пишет:

цитата:

Много ли пользователей, испытывающих такую потребность?

Точно не скажу, каждый отвечает на этот вопрос индивидуально...

 Отправлено: 25.12.07 18:49. Заголовок: Насчет API? Какой ..

Насчет API?

Какой у Харбура ран-тайм? Набор dll? Или возможен полность "независимый" exe (раз компилируется на С)?

В Xbase, например, это набор dll, а API - это функции экспортируемые этими dll.

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

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

Sergey Spirin пишет:

цитата:

А насчет, есть ли потребность в профессиональном генераторе отчетов?

Я тоже поддерживаю Григория насчет необходимости генератора отчетов !!!

 Отправлено: 25.12.07 19:24. Заголовок: i3t4j6 пишет: возмо..

i3t4j6 пишет:

цитата:

возможен полность "независимый" exe ?

Да, именно так (это основной режим сборки программы).

 Отправлено: 26.12.07 09:40. Заголовок: gfilatov пишет: Да,..

gfilatov пишет:

цитата:

Да, именно так (это основной режим сборки программы).

Есть и неосновной режим? Хотя, по Вашей ссылке вижу, что можно "спокойно" использовать С. А значит, во внешнюю dll я могу передать просто указатели на точки входа в функции... Вопрос, все-таки, на какие функции. Есть ли все-таки С-API? Если я не ошибаюсь, то в самом Клиппере С-API был. Меня интересуют наиболее универсальные, например, в Xbase:

_conCallPa() - вызов любой функции
_conGetXXX - возвращает значение любой переменной

и т. д. Подобное было и в Клиппере (для С расширений), что-то должно быть и в Харбуре?

Устанавливать и экпериментировать начну на праздниках, наверное, сейчас же хотелось бы больше информации "для размышления". Поэтому буду признателен за такую информацию и за любые советы.

Кстати, "просто" Харбур - это только консоль?

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

 Отправлено: 26.12.07 11:09. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

Есть и неосновной режим?

Да, это сборка программы с harbour.dll, при которой экзешник будет небольшого размера (подобно VB), но потребление памяти значительно вырастет.

Sergey Spirin пишет:

цитата:

Есть ли все-таки С-API?

Конечно, есть. Но это вопрос к сишникам... Паша, поможешь?

Sergey Spirin пишет:

цитата:

"просто" Харбур - это только консоль?

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

 Отправлено: 26.12.07 11:13. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

буду признателен за ... любые советы

Рекомендую посетить мою страничку, посвященную бесплатной библиотеке MiniGUI для Харбора:
http://hmg.narod.ru

К сожалению, русскоязычных ресурсов, посвященных Харбору, немного...

 Отправлено: 26.12.07 12:03. Заголовок: gfilatov пишет: Для..

gfilatov пишет:

цитата:

Для создания графического интерфейса потребуется дополнительная GUI-библиотека: таковых есть несколько, как платных, так и бесплатных.

Правильно ли я понимаю, что если мой Fast будет работать с просто Харбур, то он будет работать и с любым расширением Харбура? То есть, все эти расширения используют Харбур как ядро? xHarbour - это только графическое расширение?

цитата:

Но это вопрос к сишникам... Паша, поможешь?

По API пока вижутолько один ресурс вообще - http://culikr.sites.uol.com.br/funcapi.htm Похоже и непохоже на Xbase одновременно.

Да, помогите пожалуйста. Давайте, может быть, заинтересую Реальным помошникам могу пообещать FastReport for Harbour либо по себястоимости (очень недорого), либо вовсе подарком

Помощь, кстати, не только от сишников нужна будет. Демо надо будет, консольное, например, делать (если под чистый Харбур) и т.д.

Кстати, у тех же испанцев можно мое демо для Xbase полностью скомпилированное скачать:

http://www.canudas.com/xbase/

И убедиться, что FastReport продукт стоящий...некоторого времени

Спасибо.

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

 Отправлено: 26.12.07 12:39. Заголовок: C-API конечно есть, ..

C-API конечно есть, см. include\hbapi.h

Принцип такой: вместо семейства функций клиппер _par*(), _ret*() вводятся
функции hb_par*() и hb_ret*(). причем этот набор функций намного больше, поскольку поддерживается больше типов данных - как самого языка Harbour, так и внутренних типов данных

Кстати, глянь и другие файлы *.h, там содержатся другие прототипы с-функций

По поводу режима сборки. Официальный релиз Harbour содержит как библиотеки *.lib, предназначенные для создания одного exe, так и Harbour.lib, которая ссылается на harbour.dll. harbour.dll собирается из основных библиотек. Но поскольку имеются все сырцы, можно собрать свой вариант harbour.dll, исключив лишнее и добавив те библиотеки, которые необходимы. Так я поступаю
В целом: поскольку проект открытый, любой программист может использовать подходящий ему режим

 Отправлено: 26.12.07 12:46. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

все эти расширения используют Харбур как ядро?

Не совсем так. Посмотрите схему создания экзешника на Харборе, может станет яснее:

PRG -> HARBOUR -> C -> C compiler -> EXE
........................................RES compiler /
Таким образом, Харбор создает исходник на Си, который затем компилируется и линкуется обычным Си-компилятором.
На выходе имеем 32-разрядное приложение: либо консольное, либо GUI, если использована графическая библиотека.

Sergey Spirin пишет:

цитата:

xHarbour - это только графическое расширение?

Однозначно - нет, это Расширенный Харбор-компилятор, который разрабатывается параллельно Харбору.

Sergey Spirin пишет:

цитата:

FastReport продукт стоящий

Да, знаем...

 Отправлено: 26.12.07 12:49. Заголовок: Pasha пишет: Принци..

Pasha пишет:

цитата:

Принцип такой: вместо семейства функций клиппер .....

Ok. Спасибо. А какое "типичное" использование этих функций. И, как думаете, возможен ли описанный мною выше способ использования? То есть, я загружаю dll, передаю в нее все точки входа, и далее вызываю эти фунуции из dll?

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

 Отправлено: 26.12.07 13:17. Заголовок: gfilatov пишет: Одн..

gfilatov пишет:

цитата:

Однозначно - нет, это Расширенный Харбор-компилятор, который разрабатывается параллельно Харбору.

Пожалуй, здесь мне надо быть осторожней Скажем так, если Fast будет использовать только 10-15 С-API функций, которые изначально присутствуют в Харбур, то он будет совместим с FiveWin или c Xailer и с другими?

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

 Отправлено: 26.12.07 13:41. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

он будет совместим с FiveWin или c Xailer и с другими?

Уточнение: он будет совместим с FiveWin для Harbour
и Xailer для xHarbour (поскольку Xailer ориентирован на использование только компилятора xHarbour, сборка которого (с внесенными изменениями) есть на их сайте).
Но можно сформулировать проще: если FastReport будет представлять из себя обычную сишную DLL, то доступ к такой библиотеке будет возможен из любого Win-приложения, независимо от того, написано оно на Си, [х]Харборе, VB или Дельфи.
Например, мы можем из Харбора работать с бесплатной библиотекой UnRar.Dll, позволяющей разархивировать любые RAR-архивы

 Отправлено: 26.12.07 13:53. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

Правильно ли я понимаю, что если мой Fast будет работать с просто Харбур, то он будет работать и с любым расширением Харбура? То есть, все эти расширения используют Харбур как ядро? xHarbour - это только графическое расширение?

В принципе да. FastRep может создавать свое отдельное окно, и быть независимым от харбор-программы. harbour-api необходим только для передачи параметров и возврата резельтата

Sergey Spirin пишет:

цитата:

Ok. Спасибо. А какое "типичное" использование этих функций. И, как думаете, возможен ли описанный мною выше способ использования? То есть, я загружаю dll, передаю в нее все точки входа, и далее вызываю эти фунуции из dll? Спирин Сергей.

Сам генератор отчетов можно оформить в виде отдельной dll (назовем ее fr.dll) в том случае, если одновременно используется harbour.dll. При создании fr.dll необходимо вызывать функции вида HB_par, а это тянет за собой довольно тяжелые библиотеки rtl.lib, vm, lib, common.lib. Все они содержатся в harbour.dll.
Если собирать без dll, то всю виртуальную машину харбора (из vm.lib) прийдется
дублировать в fr.dll, что не есть хорошо

А использовать hb-api совсем несложно

Делается C-функция:

#include "hbapi.h"
...

HB_FUNC( FUNCNAME )
{
// затем надо принять параметры из вызывающей процедуры функциями hb_par*()
// к примеру числовой параметр типа long:
long lPar1 = hb_parnl(1); // 1 - это номер параметра
или числовой параметр типа double:
double dPar1 = hb_parnd(2);
или строка
char *szStr = hb_parc(3);

// затем можно делать что угодно, например вызывать функции из модуля на pas
// и в конце если надо - возврат результата

hb_retnl(lRet);
}

Из харбор-программы вызов этой функции:

FUNCNAME(p1, p2, p3, ...)

Есть возможность работы с массивами харбор, или с другими специфическими типами данных

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

gfilatov пишет:

цитата:

Но можно сформулировать проще: если FastReport будет представлять из себя обычную сишную DLL, то доступ к такой библиотеке будет возможен из любого Win-приложения, независимо от того, написано оно на Си, [х]Харборе, VB или Дельфи.

Да, кстати, это мысль
Можно разделить fr на 2 части: маленькая lib будет содержать харбор-функцию написанную на С, созданную через HB_FUNC. предназначенную для взаимодействия с хаобор-программой. А основная часть (fr.dll) может быть уже полностью независима от харбора

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

Sergey Spirin пишет:

цитата:

"а стоит ли заморачиваться, есть ли здесь рынок и т.д."

У нас это малоизвестный продукт, но в некоторых странах в силу обстоятельств Харбор очень популярен: в основном это Латинская Америка

 Отправлено: 26.12.07 14:06. Заголовок: gfilatov пишет: Уто..

gfilatov пишет:

цитата:

Уточнение: он будет совместим с FiveWin......

Ok. Здесь понятно.

цитата:

Но можно сформулировать проще: если FastReport будет представлять из себя обычную сишную DLL, то

А вот здесь, проще не значит правильней FastReport может представлять собой только дельфишную DLL, ну это конечно роли особой не играет. А вот насчет паралели с RAR-ом. Мой "FastReport for Alaska Xbase (FRAX)" и есть одна DLL, испанцы, кстати, и стали сначала приходить с вопросом, а почему под Харбур не работает, вроде все одно и тоже? ... Я, конечно, могу скомпилировать универсальную DLL, но не знаю насколько Вам понравиться открывать dbf-ы через ADO и не иметь в отчетах никакого взаимодействия ни с данными программы, ни с языком и т. д. И это уже не будет "FastReport ДЛЯ КАКОЙ-ТО ЯЗЫК". FRAX - это ДВУХСТОРОННЕЕ взимодействие. Так же я хочу сделать и FastReport for Harbour (если буду делать). Для двухстороннего взаимодействия мне и нужен С-API.

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

 Отправлено: 26.12.07 14:32. Заголовок: Pasha пишет: Из хар..

Pasha пишет:

цитата:

Из харбор-программы вызов этой функции: FUNCNAME(p1, p2, p3, ...)

Спасибо. Единственное, меня больше интересует "движение в другую сторону" FastReport - это одна Дельфи-dll (для Xbase - FrSyst.dll ). Понятно, что я могу написать в ней любую функцию и эту функцию вызвать из харбур-программы. Пока мне не очевидно (хотя уже одну версию говорил) как сделать наоборот Как мне например из этой dll вызвать .. ну, DbSkip() ?

 Отправлено: 26.12.07 14:49. Заголовок: dbSkip() может наход..

dbSkip() может находится как в основной exe, так и в harbour.dll. Из основного exe-модуля харбор-программы dbSkip() вызвать имхо невозможно, из harbour.dll - без проблем, если при создании frsyst.dll линковать ее вместе с Harbour.dll
Поскольку для Харбора допустимы оба режима: как с dll, так и без, а большинство пользователей с dll не заморачиваются, будем считать, что напрямую из frsyst вызвать dbSkip нельзя
Значит, надо dbSkip() вызывать из интерфейсной lib, которая будет прилинковываться к харбор-программе независимо от ее режима, и взаимодействовать с frsyst.dll

 Отправлено: 26.12.07 15:01. Заголовок: C-API Harbour hbvm.h..

C-API [x]Harbour hbvm.h

extern HB_EXPORT void hb_vmDo( USHORT uiParams ); /* invoke the virtual machine */
extern HB_EXPORT void hb_vmFunction( USHORT uiParams ); /* executes a function */
extern HB_EXPORT void hb_vmSend( USHORT uiParams ); /* sends a message to an object */
extern HB_EXPORT PHB_ITEM hb_vmEvalBlock( PHB_ITEM pBlockItem ); /* executes passed codeblock with no arguments */
/* executes passed codeblock with variable number of arguments */
extern HB_EXPORT PHB_ITEM hb_vmEvalBlockV( PHB_ITEM pBlockItem, ULONG ulArgCount, ... );
extern HB_EXPORT PHB_ITEM hb_vmEvalBlockOrMacro( PHB_ITEM pItem ); /* executes codeblock or macro pointed by given item */
extern HB_EXPORT void hb_vmDestroyBlockOrMacro( PHB_ITEM pItem ); /* destroy codeblock or macro in given item */

Маленький пример, в [x]Harbour (prg level) определена функция _ONTIMEREVENTS

VOID CALLBACK TTimerProc( HWND hWnd, UINT uMsg, UINT_PTR idEvent, DWORD dwTime)
{
if ( ! pSymbolEvents )
pSymbolEvents = hb_dynsymSymbol( hb_dynsymGet( "_ONTIMEREVENTS" ) ); // есть такая функция или нет

if ( pSymbolEvents ) // если есть
{
hb_vmPushSymbol( pSymbolEvents ); //перед выполнением помещаем p-code функции в стек
hb_vmPushNil(); // обязательно
hb_vmPushLong( ( LONG ) hWnd ); //передаем первый параметр числовой в данном случае
hb_vmPushLong( uMsg ); // передаем второй параметр
hb_vmPushLong( idEvent ); // передаем третий
hb_vmPushLong( dwTime ); // передаем 4- параметр
hb_vmDo( 4 ); // виртуальная машина [x]Harbour выполняет код помещенный в стек - что значит 4 обьяснять смысла нет

к результату выполнения можно достучаться
hb_param( -1, HB_IT_LONG)
или проще
hb_parnl( -1 )

}
}

 Отправлено: 26.12.07 15:02. Заголовок: Кстати, к слову Мне ..

Кстати, к слову
Мне кажется, что сейчас пользователей у Харбора куда больше, чем у Alaska xBase

 Отправлено: 26.12.07 15:06. Заголовок: Pasha пишет: Из осн..

Pasha пишет:

цитата:

Из основного exe-модуля харбор-программы dbSkip() вызвать имхо невозможно

Довольно спорное утверждение

 Отправлено: 26.12.07 15:07. Заголовок: Pasha пишет: Из осн..

Pasha пишет:

цитата:

Из основного exe-модуля харбор-программы dbSkip() вызвать имхо невозможно

Здесь не факт, хотя нюансы могут быть. Почему не передать указатель на dbSkip(), а в dll присвоить прототипу... Но действительно, больше интересно:

цитата:

Значит, надо dbSkip() вызывать из интерфейсной lib, которая будет прилинковываться к харбор-программе независимо от ее режима, и взаимодействовать с frsyst.dll

Отсюда вопрос: Как будет выглядеть функция на С, вызывающая любую харбур-функцию. Типа:

CallAnyHarbourFunc(cFuncName, xListOfParametrs) возврат xValue ?

 Отправлено: 26.12.07 15:13. Заголовок: Pasha пишет: Мне ка..

Pasha пишет:

цитата:

Мне кажется, что сейчас пользователей у Харбора куда больше, чем у Alaska xBase

Мне тоже, но часть этих пользователей пользуется не коммерческими, а GPL разработками и заставить их что-то купить - это значит оскорбить их религиозные чувства

 Отправлено: 26.12.07 15:19. Заголовок: Петр пишет: Мне тож..

Петр пишет:

цитата:

Мне тоже, но часть этих пользователей пользуется не коммерческими, а GPL разработками и заставить их что-то купить - это значит оскорбить их религиозные чувства

В переписке с испанцами, я переспрашивал их. Говорят купим

Но честно говоря, я колебался (и сейчас колеблюсь) именно из-за этого...

 Отправлено: 26.12.07 15:20. Заголовок: Чтобы напрямую испол..

Чтобы напрямую использовать из frsyst harbour vm, надо ее по крайней мере прилинковать
А это значит, что vm будет содержаться и в основном exe, и в frsyst.dll, что не есть хорошо, а наоборот, очень плохо.

А пример вызова харбор-функции Петр дал. Педед вызовом в стек харбора надо затолкать параметры функции. Но может быть стоит вызывать не харбор-функцию, а ее аналог на C, к примеру, средства rdd

Что касается dbSkip, это может выглядеть так:

#include "hbapi.h"
#include "hbapirdd.h"

...
AREAP pArea = ( AREAP ) hb_rddGetCurrentWorkAreaPointer();
long lRecToSkip = ...;
if( pArea )
SELF_SKIP( pArea, lRecToSkip );

 Отправлено: 26.12.07 15:23. Заголовок: Петр пишет: Pasha п..

Петр пишет:

цитата:

Pasha пишет: цитата: Из основного exe-модуля харбор-программы dbSkip() вызвать имхо невозможно Довольно спорное утверждение

Я имел в виду вызов из внешней dll (frsyst) функции, находящейся в основном exe-модуле программы
Как это сделать, я не представляю

 Отправлено: 26.12.07 16:03. Заголовок: Pasha пишет: Я имел..

Pasha пишет:

цитата:

Я имел в виду вызов из внешней dll (frsyst) функции, находящейся в основном exe-модуле программы Как это сделать, я не представляю

Чисто теоретически это просто. Я не буду "мучится" и писать пример на С (я все-таки дельфист ). Поэтому пример на Паскале, он язык читабельный:

EXE:

type
TCallBack = procedure (P: Pointer); stdcall;

procedure MMsg(P: PChar);
begin
ShowMessage(StrPas(P));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
CallBack: TCallBack;
H: THandle;
begin
H := LoadLibrary('Project2.dll');
@CallBack := GetProcAddress(H, 'CallBack');
CallBack(@MMsg); <----------------------------передаем адрес процедуры MMsg
FreeLibrary(H);
end;

-------------------------
DLL:

type
TMsgProc = procedure (P: PChar);

procedure CallBack(P: Pointer); stdcall; export;
var
MsgProc: TMsgProc;
begin
@MsgProc := P; <-------------------------------------------- присваиваем адрес
MsgProc(PChar('Это dll вызвала процедуру в exe !!!!')); <-------- и вызываем
end;

exports
CallBack name 'CallBack';

--------------------------------------------------------------------

Ну вот, только что проверил в Delphi, все OK. Оттого, что EXE будет С-ишное, это ничего не поменяет.

То есть, в MMsg можно по моей задумке поместить:

CallAnyHarbourFunc(cFuncName, xListOfParametrs) -> xValue ...

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

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

 Отправлено: 26.12.07 16:40. Заголовок: Меня все-таки интере..

Меня все-таки интересуют возможные подходы реализации функции:

CallAnyHarbourFunc(cFuncName, xListOfParametrs) -> xValue ...

Возможно, реализация этой функции может быть чисто на Харбуре, плюс какая-то С-оболочка к ней , адрес этой оболочки и будет передаваться в Fast?

Хотя, в Аляске есть просто С-API функция - _conCallPa(). Может что-то подобное есть и Харбуре?

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

 Отправлено: 26.12.07 16:44. Заголовок: Чем не устраивает то..

Чем не устраивает то, что я написал?

 Отправлено: 26.12.07 16:45. Заголовок: Такой способ по-види..

Такой способ по-видимому будет работать
В этом случае я советую обратить внимание на то, что из-за трансляции средствами препроцессора (#define) настоящее имя функции может быть другим
Надо внимательно смотреть на описание каждой функции в *.h

 Отправлено: 26.12.07 16:53. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

Поэтому пример на Паскале, он язык читабельный:

Да?

Посмотри здесь http://clipper.fastbb.ru/?1-1-0-00000105-000-0-0-1191730075

Это то?

 Отправлено: 26.12.07 17:10. Заголовок: Петр пишет: Чем не ..

Петр пишет:

цитата:

Чем не устраивает то, что я написал?

Почему не устраивает? Спасибо. Кстати, если можно еще раз "выжимку" про VM. Почему это плохо использовать (по словам Pasha)? И, это будет работать только с harbour.dll? Или в "монолитном" exe тоже?

Простите, я действительно пока здесь новичек.

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

 Отправлено: 26.12.07 17:17. Заголовок: Петр пишет: Поэтому..

Петр пишет:

цитата:

Поэтому пример на Паскале, он язык читабельный: Да? Посмотри здесь http://clipper.fastbb.ru/?1-1-0-00000105-000-0-0-1191730075 Это то?

Честно говоря, тоже не понял Вашу ссылку, мне для примера на Паскале быстрее набросать просто, да и проверить...

Но все-равно, спасибо, увидел, что в Харбуре загружать dll намного удобнее чем в той же Аляске

 Отправлено: 26.12.07 17:21. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

Кстати, если можно еще раз "выжимку" про VM. Почему это плохо использовать (по словам Pasha)? И, это будет работать только с harbour.dll? Или в "монолитном" exe тоже?

Плохо иметь две vm. В этом случает одна из них работать не будет
А если vm будет содержаться в харбор-программе (exe), и будет механизм вызова функций vm из сторонней dll, то ничего в этом плохого нет

 Отправлено: 26.12.07 17:31. Заголовок: Pasha пишет: А если..

Pasha пишет:

цитата:

А если vm будет содержаться в харбор-программе (exe), и будет механизм вызова функций vm из сторонней dll, то ничего в этом плохого нет

OK. Тогда это действительно хороший вариант.

В семействе hb_vmXXX - функций, наверное, есть и для работы с переменными, массивами, объектами? Если так, то пожалуй, это то что мне надо

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

Sergey Spirin пишет:

цитата:

Почему это плохо использовать (по словам Pasha)? И, это будет работать только с harbour.dll? Или в "монолитном" exe тоже?

Пример который я привел корректно работает в "монолитном" exe.

Я не знаю, что имел ввиду Pasha, собственно он использует для работы xHarbour,- я Harbour.
Могу лишь добавить, что по планам разработчиков Harbour, функции можно будет вызывать и использовать не только из dll, но и из другого exe файла, также можно будет использовать библиотеки hrb, но это будет в Harbour 2.0.

Я Pascal не очень, понял лишь, что это вызов функции из dll,
и подумал, что Вам будет интересно узнать об использовании dll в Harbour (в xHarbour функции немного иначе называются), .

 Отправлено: 26.12.07 17:55. Заголовок: Pasha пишет: Плохо ..

Pasha пишет:

цитата:

Плохо иметь две vm. В этом случает одна из них работать не будет

Это в лучшем случае, скорее всего программа просто вылетит с GPF.

Sergey Spirin пишет:

цитата:

В семействе hb_vmXXX - функций, наверное, есть и для работы с переменными, массивами, объектами? Если так, то пожалуй, это то что мне надо

Это все конечно есть но не только в hb_vm, а и в hb_item*, что которые собственно и являются аналогами _con* в Alaska.

 Отправлено: 26.12.07 18:07. Заголовок: Петр пишет: В семей..

Петр пишет:

цитата:

В семействе hb_vmXXX - функций, наверное, есть и для работы с переменными, массивами, объектами? Если так, то пожалуй, это то что мне надо Это все конечно есть но не только в hb_vm, а и в hb_item*, что которые собственно и являются аналогами _con* в Alaska.

Отлично. Спасибо большое. Похоже мои переспективы на праздники проясняются

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

 Отправлено: 26.12.07 18:08. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

В семействе hb_vmXXX - функций, наверное, есть и для работы с переменными, массивами, объектами? Если так, то пожалуй, это то что мне надо

Это уже другое семейство функций
Для C харбор-переменная - это структура типа Item
Для них есть свои функции

Для работы с массивами - C функции hb_array*()
Для работы с Private и Public переменными - функции работы через таблицу символов

Но можно без всего этого обойтись, роаботая с подсистемами харбора посредством вызова С-функций (не задействуя vm), а структуры типа item (переменные) использовать только для приема значений параметров. И, насколько я представляю, для генератора отчетов могут быть полезны параметры типа массив

 Отправлено: 26.12.07 18:48. Заголовок: Pasha пишет: Это уж..

Pasha пишет:

цитата:

Это уже другое семейство функций Для C харбор-переменная - это структура типа Item....

ОK. Спасибо. Направление понял.

 Отправлено: 26.12.07 19:56. Заголовок: Несколько советов 1)..

Несколько советов
1) Следует помнить о различиях в C-API Harbour и xHarbour
2) Следует помнить о различиях в C-API xHarbour версии 0.9х, 1.0.0 и 1.1.х
3) Следует помнить о довольно частой смене версии p-code для xHarbour
4) Следует помнить о том, что разработчики Harbour уже обьявили о возможной будущей несовместимости на бинарном уровне с пр.версиями
5) Тестирование желательно проводить с несколькими C-компиляторами, не только bcc
и может что-то еще

 Отправлено: 27.12.07 11:39. Заголовок: Петр пишет: Несколь..

Петр пишет:

цитата:

Несколько советов

Вариантов много получается Пожалуй, если все пойдет нормально, я сделаю так. Сам ограничусь вариантом Harbour+BCC, и снова подниму тему "не бескорыстных" помошников , которые и будут тестировать и поправлять меня в различных "конфигурациях!.

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

 Отправлено: 27.12.07 11:55. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

снова подниму тему "не бескорыстных" помощников

Удачи Вам в конвертации!
Если потребуется помощь в написании GUI демки, аналогичной Вашей FastDemo для xBase++, то я смогу помочь

 Отправлено: 27.12.07 11:59. Заголовок: gfilatov пишет: .....

gfilatov пишет:

цитата:

...то я смогу помочь

Отлично, буду иметь в виду.

 Отправлено: 30.12.07 20:04. Заголовок: gfilatov пишет: мы ..

gfilatov пишет:

цитата:

мы можем из Харбора работать с бесплатной библиотекой UnRar.Dll, позволяющей разархивировать любые RAR-архивы

А пример можно выложить ?

Sergey Spirin пишет:

цитата:

FastReport продукт стоящий.

Поддерживаю !!!

 Отправлено: 30.12.07 21:00. Заголовок: Andrey пишет: приме..

Andrey пишет:

цитата:

пример можно выложить ?

Пример использования этой DLL есть в поставке HMG Extended, папка samples\Advanced\UnRar

 Отправлено: 04.01.08 17:31. Заголовок: Здравствуйте. Что ..

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


Что ж, могу сказать, что пока "процесс портирования" идет даже более гдадко, чем я предполагал, тьфу-тьфу

Но как я уже упоминал, у меня все "крутится" по Харбур + BCC. Кто может проверить "компилируемость и работоспособность" тестовых примеров на других связках, пожалуйста напишите мне в "мыло" - spirin [at] paritetsoft [dot] ru

Я вышлю пример, который хотел бы проверить.

Заранее, спасибо .

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

 Отправлено: 05.01.08 01:38. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

Я вышлю пример, который хотел бы проверить.

Высылай мне на мыло 30195@mail.ru !

 Отправлено: 05.01.08 09:25. Заголовок: Поздравляю с успехом..

Поздравляю с успехом
Я могу проверить для xHarbour для следующих C-компиляторов (кроме, естественно, bcc):
free MS Visual C++ Toolkit 2003
Open Watcom C++
Digital Mars C++
mingw32
Pelles C

Harbour я собирал только для bcc, но можно попробовать собрать и для остальных поддерживаемых компиляторов (некоммерческих под win32)

tpe2 (at) mail.ru

 Отправлено: 05.01.08 12:57. Заголовок: Списибо всем, предл..

Списибо всем, предложившим помощь.

Уже несколько человек обратило мое внимание на неаккуратность кода загрузки тестовой dll. Абсолютно согласен, "в свое оправдание" могу заметить, что этот код, ну явно временный, набросанный "лишь бы" загрузить эту dll. Просто я сейчас занимаюсь именно Дельфи-стороной, написанием всех классов взаимодействия и т.д. А это тысячи строк, на все пока времени не хватает

А на Харбор-стороне тоже я думаю будет класс (frReportManager), то есть, "теперешнего" кода не будет.

Еще раз всем спасибо

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

 Отправлено: 05.01.08 13:54. Заголовок: Связка xHarbour+bcc ..

Связка xHarbour+bcc - ok
Отстальное я посмотрю позже, так как у меня все эти компиляторы дома
Хотел проверить работу xHarbour с harbour.dll, но на $Id: ChangeLog,v 1.5812 2007/12/17 16:48:42 likewolf Exp $ программа не работает: не загружает rdd
Это проблема xHarbour, возможно уже пофиксено, у меня под рукой сейчас нет последних сырцов

 Отправлено: 05.01.08 14:09. Заголовок: Запустил тест в связ..

Запустил тест в связке Harbour+bcc, собранный с harbour-b32.dll
Приложение запустилось, но при нажатии на кнопку Open выдается сообщение

Could not convert variant of type (Null) into type (String)

 Отправлено: 05.01.08 14:23. Заголовок: Pasha пишет: Запуст..

Pasha пишет:

цитата:

Запустил тест в связке Harbour+bcc, собранный с harbour-b32.dll Приложение запустилось, но при нажатии на кнопку...

Ok. Сразу два вопроса:

- С каким "calling convention" экспортирует функции harbour-b32.dll? Если не cdecl, то придется мне здесь параметризировать что-ли...
- Как собственно мне скомпилировать, запустить и проверить с harbour-b32.dll, что для этого надо?

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

 Отправлено: 05.01.08 18:11. Заголовок: Pasha пишет: Запуст..

Pasha пишет:

цитата:

Запустил тест в связке Harbour+bcc, собранный с harbour-b32.dll Приложение запустилось, но при нажатии на кнопку Open выдается сообщение Could not convert variant of type (Null) into type (String)

Догадался "дописать" harbour-b32.lib (все-таки delphi-c здесь в идеологии сильно расходятся). У меня, правда, ошибки другие, но в основном ситуация ясна:

Со стеком, слава богу, везде cdecl, здесь "дурного ветвления" не будет.

Но harbour-b32.dll содержит лишь некоторую часть С-API, и система "не понимает" вложенных вызовов одной части из другой.

Получается, что для универсальности я должен использовать только harbour-b32.dll-часть API. Чтож попробуем


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

 Отправлено: 05.01.08 18:51. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

Догадался "дописать" harbour-b32.lib (все-таки delphi-c здесь в идеологии сильно расходятся). У меня, правда, ошибки другие

@set HB_INSTALL=C:\harbour
@set HB_BIN_INSTALL=C:\harbour\bin
@set HB_LIB_INSTALL=C:\harbour\lib
@set HB_INC_INSTALL=C:\harbour\include

%HB_BIN_INSTALL%\harbour 2.prg -n -i%HB_INC_INSTALL%
%HB_BIN_INSTALL%\harbour FastRepH.prg -n -i%HB_INC_INSTALL%

bcc32 -c -O2 -d -I%HB_INC_INSTALL% 2.c FastRepH.c %HB_INSTALL%\source\vm\mainwin.c

@echo c0w32.obj + > b32.bc
@echo 2.obj + >> b32.bc
@echo FastRepH.obj + >> b32.bc
@echo mainwin.obj, + >> b32.bc
@echo 3.exe,, + >> b32.bc

@echo %HB_LIB_INSTALL%\harbour-b32.lib + >> b32.bc
@echo %HB_LIB_INSTALL%\debug.lib + >> b32.bc
@echo %HB_LIB_INSTALL%\vm.lib + >> b32.bc
@echo %HB_LIB_INSTALL%\rtl.lib + >> b32.bc
@echo %HB_LIB_INSTALL%\gtwin.lib + >> b32.bc
@echo %HB_LIB_INSTALL%\lang.lib + >> b32.bc
@echo %HB_LIB_INSTALL%\rdd.lib + >> b32.bc
@echo %HB_LIB_INSTALL%\macro.lib + >> b32.bc
@echo %HB_LIB_INSTALL%\pp.lib + >> b32.bc
@echo %HB_LIB_INSTALL%\dbfntx.lib + >> b32.bc
@echo %HB_LIB_INSTALL%\dbfcdx.lib + >> b32.bc
@echo %HB_LIB_INSTALL%\dbffpt.lib + >> b32.bc
@echo %HB_LIB_INSTALL%\hbsix.lib + >> b32.bc
@echo %HB_LIB_INSTALL%\common.lib + >> b32.bc
@echo %HB_LIB_INSTALL%\codepage.lib + >> b32.bc

@echo cw32.lib + >> b32.bc
@echo import32.lib, >> b32.bc

ilink32 -Tpe -Gn @b32.bc

if exist *.c del *.c
if exist *.obj del *.obj
if exist *.bak del *.bak
if exist *.tds del *.tds
if exist *.ilc del *.ilc
if exist *.ild del *.ild
if exist *.ilf del *.ilf
if exist *.ils del *.ils
if exist *.map del *.map

А так?

 Отправлено: 05.01.08 19:39. Заголовок: Петр пишет: А так? ..

Петр пишет:

цитата:

А так?

Ничего не изменилось. Ошибки те же. Да и зачем такие "сложности". В общем-то, проблему я решил как уже и говорил - использовать только harbour-b32.lib-С-API подможество. То есть, при компоновке с harbour-b32.dll моя dll будет работать только с ней.

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

 Отправлено: 05.01.08 20:08. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

Ничего не изменилось. Ошибки те же. Да и зачем такие "сложности"

Sergey Spirin пишет:

цитата:

Догадался "дописать" harbour-b32.lib

Куда Вы дописали harbour-b32.lib?

Sergey Spirin пишет:

цитата:

использовать только harbour-b32.lib-С-API подможество. То есть, при компоновке с harbour-b32.dll моя dll будет работать только с ней.

Если Вас не затруднит, что Вы подразумеваете под "harbour-b32.lib-С-API подможество"?

 Отправлено: 05.01.08 20:34. Заголовок: Петр пишет: Куда Вы..

Петр пишет:

цитата:

Куда Вы дописали harbour-b32.lib?

В 2.bat-файл. Эта фраза была Павлу. Я просто действительно не знал как скомпилировать проект с использованием harbour-b32.dll. Но после сам "догадался дописать":

bcc32 -O2 -d........2.c FastRepH.c harbour-b32.lib...

Петр пишет:

цитата:

Если Вас не затруднит, что Вы подразумеваете под "harbour-b32.lib-С-API подможество"?

Очень просто, это набор функций, который экспортируется harbour-b32.dll. Например, я начал дебажить ошибки и увидел "Access violation" на вызове hb_stackPopReturn. Поиск этой функции в harbour-b32.lib/dll результата не дал. В результате меняю эту функцию на аналогичную hb_xvmRetValuе, но убедившись, что она "присутствует" в harbour-b32.lib. Работает.

То есть, похоже при использование harbour-b32.dll смешанный вызов функций и из harbour-b32.dll и из exe приводит к "чехарде" в стеке. Значит для универсальности мне нужно при harbour-b32.dll использовать только ее. При монолитном exe это все неважно.

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

 Отправлено: 06.01.08 00:57. Заголовок: Сергей, Pasha пишет..

Сергей,

Pasha пишет:

цитата:

Запустил тест в связке Harbour+bcc, собранный с harbour-b32.dll Приложение запустилось, но при нажатии на кнопку Open выдается сообщение Could not convert variant of type (Null) into type (String)

Вы написали:

цитата:

Догадался "дописать" harbour-b32.lib (все-таки delphi-c здесь в идеологии сильно расходятся). У меня, правда, ошибки другие

Потом я привел скрипт, в результате которого все происходит, как написал выше Паша
"Приложение запустилось, но при нажатии на кнопку Open выдается сообщение
Could not convert variant of type (Null) into type (String)".

Какие были другие ошибки и откуда это сообщение Could not convert variant of type (Null) into type (String), я так понимаю - это работа testlib.dll?

Теперь о подмножествах, разработчикам рекомендуется использовать функции обьявленные как extern HB_EXPORT. Работать со стеком напрямую или использовать функции "для внутреннего употребления" нельзя, т.е. можно, но никто не будет выслушивать претензии после очередного изменения структуры стека, например после ожидаемого введения поддержки "strong type" переменных или MT. Для коммерческого продукта такая ситуация недопустима.

 Отправлено: 06.01.08 01:22. Заголовок: Петр пишет: Какие б..

Петр пишет:

цитата:

Какие были другие ошибки и откуда это сообщение Could not convert variant of type (Null) into type (String), я так понимаю - это работа testlib.dll?

Ok. Сейчас вышлю новый "рабочий вариант". А ошибка "Could not conver" конечно чисто дельфишная, но у меня действительно были "Access violation" и с моим и с Вашим вариантами bat-ника, что странно, но разберемся

Петр пишет:

цитата:

Теперь о подмножествах, разработчикам рекомендуется использовать функции обьявленные как extern HB_EXPORT.

Супер! Спасибо, вот это действительно для меня ценная информация. Даже проверил сейчас, описываемый мною предыдущий пример:

extern void hb_stackPopReturn( void );
extern HB_EXPORT void hb_xvmRetValue( void );

То есть, вот он действующий ориентир. Еще раз спасибо :)

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

 Отправлено: 06.01.08 16:06. Заголовок: Здравствуйте. Подс..

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

Подскажите, откуда и как брать "ультрасвежий" Харбор. Оказалось, что уже используется beta4 = 1.0.0, но не могу ее найти. Что такое SVN и т.д.?

И про возможные "непонятки" при компиляции исходников, если они есть.

Спасибо.

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

 Отправлено: 06.01.08 17:55. Заголовок: xHarbour можно выкач..

xHarbour можно выкачать с помощью CVS-клиента по адресу:

:pserver:anonymous@xharbour.cvs.sourceforge.net:/cvsroot/xharbour

protocol :pserver

user name: anonymous

module: xharbour

Бесплатный клиент под windows: http://www.tortoisecvs.org

Harbour: с помощью SVN-клиента, URL:

https://harbour-project.svn.sourceforge.net/svnroot/harbour-project/trunk

Бесплатный клиент под windows: http://tortoisesvn.net

Для сборки понадобится bison, версии 2.1
Еще пару недель назад я собирал с помощью старенького bison 1.28, но теперь он не поддерживается

Ссылка
http://puzzle.dl.sourceforge.net/sourceforge/gnuwin32/bison-2.1.exe

Еще понадобится файл bison.simple
Его можно взять на www.harbour_project.org или на www.xharbour.org

 Отправлено: 06.01.08 18:00. Заголовок: Pasha пишет: Беспла..

Pasha пишет:

цитата:

Бесплатный клиент под windows: http://www.tortoisecvs.org

Вроде я уже и сам все это нашел, но вот этот клиент упрямо у меня требует пароля Хотя вроде не должен.

 Отправлено: 06.01.08 20:23. Заголовок: Небольшое уточнение ..

Небольшое уточнение - для Harbour URL:

https://harbour-project.svn.sourceforge.net/svnroot/harbour-project/trunk/harbour

 Отправлено: 07.01.08 11:44. Заголовок: У кого установлен MS..

У кого установлен MS Visual Studio, просьба. Можно бросить в меня nmake.exe из этого пакета ? Адрес есть в этой теме. С dll, если есть такие, которые нужны для его работы
Нужен для сборки xHarbour. У меня есть какой-то nmake 1.5, но это уж больно старая версия. Не понимает синтаксис makefile.vc

 Отправлено: 07.01.08 12:06. Заголовок: От VS2003 подойдет?..

От VS2003 подойдет?

 Отправлено: 07.01.08 14:23. Заголовок: Думаю да Как раз too..

Думаю да
Как раз tooklit 2003-года выпуска

Не распознаюся команды вида:

.c.obj::

То есть подряд 2 даоеточия

 Отправлено: 07.01.08 16:00. Заголовок: Спасибо, получил, ра..

Спасибо, получил, работает
Петр, если можно, пришлите еще lib.exe. Года 3 назад я собирал xHb под MS VC toolkit, но с тех пор так далеко запрятал эти утилиты (nmake, lib), что и сам не найду
SDK у меня есть

 Отправлено: 07.01.08 22:41. Заголовок: xHarbour + ms vc - o..

xHarbour + ms vc - ok

Только у компилятотра msvc более строгий контроль типов, поэтому надо поправить:

HB_FUNC( PRLOAD )
{
FrLib = LoadLibrary("Testlib.dll");
DllF = (DllFunc)GetProcAddress((HMODULE) FrLib , (LPCSTR) "CallBack" );
InitEng = (InitEngFunc)GetProcAddress((HMODULE) FrLib , (LPCSTR) "InitEngine");
}

HB_FUNC( PRUNLOAD )
{
FreeLibrary((HMODULE) FrLib);
}

Иначе выдается ошибка. И для остальных вызовов winapi типы должны строго соотвествовать обьявленным

 Отправлено: 08.01.08 01:05. Заголовок: Pasha пишет: xHarbo..

Pasha пишет:

цитата:

xHarbour + ms vc - ok Только у компилятотра msvc более строгий контроль типов, поэтому надо поправить:

Ok. Спасибо. Буду иметь в виду.

Еще вот такая проблемка. Доступ к переменным (memvars) я организовал через hb_memvarGetValue/hb_memvarSetValue, но они как Вы можете убедиться не HB_EXPORT. Что-то, ломаю голову и не могу понять как без них сделать мне функции GetValue/SetValue для переменных?

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

 Отправлено: 08.01.08 12:21. Заголовок: Работаю только на xH..

Работаю только на xHarbour'e исключительно из-за совместимости (почти 100%) с Clipper'om !
Использую терминалку gtwin и gtwvt !

Собрал проект hbmake 2.bc -e

При сборке под xHarbour Compiler build 0.99.70 (SimpLex) выдает:
Error E2451 FASTREPH.PRG 92: Undefined symbol 'hb_stackPopReturn' in function HB_FUN_INITENGINE

Что делать ?

 Отправлено: 08.01.08 13:15. Заголовок: Andrey пишет: Error..

Andrey пишет:

цитата:

Error E2451 FASTREPH.PRG 92: Undefined symbol 'hb_stackPopReturn' in function HB_FUN_INITENGINE Что делать ?

Несколько странно, так как hb_stackPopReturn объявлена в hbstack.h. Но в любом случае, hb_stackPopReturn я уже "выбросил" так как она не HB_EXPORT. Сейчас вышлю посвежее вариант.

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

Sergey Spirin пишет:

цитата:

Что-то, ломаю голову и не могу понять как без них сделать мне функции GetValue/SetValue для переменных?

Это можно сделать так, как душе угодно :) Разнообразное API не только помогает, но иногда сбивает с толку.
Пример

PROCEDURE main()

PRIVATE mvp := "123"

? mvp
? __mvget( "mvp" )
? my__mvget( "mvp" )
?

? __mvput( "mvp", "456" )
?

? mvp
? __mvget( "mvp" )
? my__mvget( "mvp" )
?

?my__mvput( "mvp", "123" )
?

? mvp
? __mvget( "mvp" )
? my__mvget( "mvp" )
?

RETURN

#pragma BEGINDUMP

#include <windows.h>
#include "hbapi.h"
#include "hbapiitm.h"
#include "hbvm.h"
#include "hbstack.h"

static PHB_DYNS pDynsGet = 0;
static PHB_DYNS pDynsPut = 0;

HB_FUNC( MY__MVGET )
{
if ( ! pDynsGet )
pDynsGet = hb_dynsymFindName( "__MVGET" );

if ( pDynsGet && hb_dynsymIsFunction(pDynsGet) )
{
PHB_ITEM itm;

hb_vmPushDynSym( pDynsGet );
hb_vmPushNil();
hb_vmPushString( hb_parc(1), hb_parclen(1) );
hb_vmDo( 1 );

itm = hb_itemClone( hb_param( -1, HB_IT_ANY) );

#ifdef __XHARBOUR__
hb_itemReturn( itm ); hb_itemRelease( itm );
#else
hb_itemReturnRelease( itm );
#endif
}
}

HB_FUNC( MY__MVPUT )
{
PHB_ITEM xNewValue = hb_param( 2, HB_IT_ANY );

if ( ! pDynsPut )
pDynsPut = hb_dynsymFindName( "__MVPUT" );

if ( pDynsPut && hb_dynsymIsFunction(pDynsPut) )
{
PHB_ITEM itm;

hb_vmPushDynSym( pDynsPut );
hb_vmPushNil();
hb_vmPushString( hb_parc(1), hb_parclen(1) );
hb_vmPush( xNewValue );
hb_vmDo( 2 );

itm = hb_itemClone( hb_param( -1, HB_IT_ANY) );

hb_itemReturnRelease( itm );
}
}

#pragma ENDDUMP

 Отправлено: 08.01.08 20:01. Заголовок: Опять не собирается ..

Опять не собирается под хХарбором

xHarbour Compiler build 0.99.70 (SimpLex)
Copyright 1999-2006, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'FASTREPH.PRG'...
Lines 182, Functions/Procedures 2
Generating C source output to 'obj\FASTREPH.c'...
Done.

Building object module for 'obj\FASTREPH.c'
using C compiler 'BCC32' as defined in 'Z:\xHARBOUR\BIN\harbour.cfg'...
Exec: BCC32 -c -D__EXPORT__ -IZ:\xHARBOUR\include -d -LZ:\xHARBOUR\lib -oobj\FASTREPH.obj obj\FASTREPH.c
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
obj\FASTREPH.c:
Error E2451 FASTREPH.PRG 62: Undefined symbol 'hb_itemPutSymbol' in function HB_FUN_INITENGINE
*** 1 errors in Compile ***

 Отправлено: 08.01.08 20:18. Заголовок: Andrey пишет: Опять..

Andrey пишет:

цитата:

Опять не собирается под хХарбором

Вообще, если Вы были внимательны, то уже несколько человек сообщили что под xHarbour все собирается, поэтому думаю, что проблема какая-то у Вас, с путями, lib, и т.п....

'hb_itemPutSymbol' объявлена в hbapiitm.h и она - HB_EXPORT.

 Отправлено: 08.01.08 23:19. Заголовок: Петр пишет: Это мож..

Петр пишет:

цитата:

Это можно сделать так, как душе угодно :) Разнообразное API не только помогает, но иногда сбивает с толку. Пример....

А какие еще есть варианты ;-) За вариант, спасибо, если ничего другого не "придумается", то буду использовать. Но, просто, доступ к переменным через выполнения функций prg-уровня, как то не кажется самым оптимальным решением :)

Кстати, заглянул в реализацию __mvget/__mvset и даже улыбнулся увидев: hb_memvarGetValue/hb_memvarSetValue, то есь то, что сейчас менять и приходится.

 Отправлено: 08.01.08 23:40. Заголовок: Сергей, это самое оп..

Сергей, это самое оптимальное и безопасное решение -__MVPUT и __MVGET, публичные функции, описанные в справочной документации, и в этом случае Вам все равно, как они устроены, лишь бы результат правильный возвращали. Все остальные функции тоже из официального API. Да, возможно изящностью такое решение сильно не отличается, да и быстродействием - но Вам этого и не нужно, Вам нужен надежный код который бы работал вне зависимости от смены версий. К тому же легко написать функцию prg-уровня, которая возвращает результат макрокомпиляции и вообще под что угодно.

Я Вам уже писал, что Harbour ожидают серьезные нововведения, в часности поддержка MT, к примеру

* harbour/include/hbstack.h
* harbour/source/vm/estack.c
* harbour/source/vm/hvm.c
+ added support for thread specific data located on HVM stack
Now it's possible to allocate static variables which are
local to thread. Such variables are allocated on HVM stack
and automatically destroyed. To declare new TSD variable use:
HB_TSD_NEW( <name>, <size>, <init>, <destruct> )
<name> - name of variable which holds TSD handler

и все, что из этого следует.

Так что решать Вам. можете хоть с HB_API_INTERNAL экспериментировать и работать напрямую со стеком и таблицей символов без всяких функций.

Не, ну конечно hb_itemClone на hb_itemCopy поменять можно

 Отправлено: 09.01.08 00:11. Заголовок: Петр пишет: Сергей,..

Петр пишет:

цитата:

Сергей, это самое оптимальное и безопасное решение -__MVPUT и __MVGET...

Ок. Убедили.

Петр пишет:

цитата:

Так что решать Вам. можете хоть с HB_API_INTERNAL экспериментировать и работать напрямую со стеком и таблицей символов без всяких функций.

Нет-нет. У меня нет особенного желания сделать все на "сверхнизком" уж уровне. Просто я поначалу для FastReport (script) начал делать все по аналогии реализации prg-уровня. :)) А выяснилось, что надо чуть повыше взять, поэтому сейчас в стадии "перестройки мышления".

Спасибо.

 Отправлено: 09.01.08 12:24. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

Вообще, если Вы были внимательны,

Вы знаете, вообще то я на эти вещи обращаю внимание, и считаю некорректно так обращаться.
Вы попросили помощи в тестировании продукта, что я честно стараюсь делать.

Sergey Spirin пишет:

цитата:

то уже несколько человек сообщили что под xHarbour все собирается, поэтому думаю, что проблема какая-то у Вас, с путями, lib, и т.п....

Нет с ними никаких проблем, все правильно !!!
У других могут быть отличия, я собираю на дистрибутиве скачаном с сайта, без дополнительных библиотек.
Причина выявлена из вашего нижеперечисленного комментария.

Sergey Spirin пишет:

цитата:

'hb_itemPutSymbol' объявлена в hbapiitm.h и она - HB_EXPORT.

Оказывается hb_itemPutSymbol не перечислена в hbapiitm.h входящем в xHarbour Compiler build 0.99.70 и xHarbour Compiler build 1.0.0 а в MiniGUI есть !!!

Так что ваши действия по совместимости, господин Спирин !

 Отправлено: 09.01.08 12:39. Заголовок: Andrey пишет: Вы зн..

Andrey пишет:

цитата:

Вы знаете, вообще то я на эти вещи обращаю внимание, и считаю некорректно так обращаться.

Извините, совсем не хотел Вас как-то задеть. Для меня, наверное, такая сверхмножественная вариативность возможной сборки очень непривычна. Еще раз простите.

Andrey пишет:

цитата:

Оказывается hb_itemPutSymbol не перечислена в hbapiitm.h входящем в xHarbour Compiler build 0.99.70 и xHarbour Compiler build 1.0.0 а в MiniGUI есть !!! Так что ваши действия по совместимости, господин Спирин !

Ok. Уже, "выкидываем" hb_itemPutSymbol. Тем более, я посмотрел уже дельфийский код, я ее не использую, по инерции осталась в передаче точки входа.

Через часик, с Вашего разрешения, пришлю посвежее версию.

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

 Отправлено: 09.01.08 15:33. Заголовок: Петр пишет: Сергей,..

Петр пишет:

цитата:

Сергей, это самое оптимальное и безопасное решение -__MVPUT и __MVGET

А нет ли аналогичной универсальной функции, которая вернет макрос от строки?

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

 Отправлено: 09.01.08 16:14. Заголовок: Нет, по крайней мере..

Нет, по крайней мере - я не знаю.
Зато можно создать свою сборку Harbour с запретом вызова макрокомпилятора

Здесь прийдется писать UDF.

 Отправлено: 09.01.08 16:44. Заголовок: Петр пишет: Нет, по..

Петр пишет:

цитата:

Нет, по крайней мере - я не знаю.

Ситуация у меня сейчас такая. Остались всего три функции, которые я использую и которые не HB_EXPORT. Это:

hb_macroCompile, hb_macroRun, hb_macroDelete

То есть, работа с макросами. При этом эти функции "прекрасно" работают у меня как в монолитном exe, так и с harbour.dll. То есть, проблемы с harbour.dll этих функций не касались.

У меня такое ощущение, что я могу их оставить. Как думаете?

Кстати, написал на уровне следующее:

FUNCTION __MacroCall( cString )
RETURN &(cString)

И стал вызывать как обычно через hb_vmDo.... и в варианте с harbour.dll проблемы появились (!!!). Стала появляться нестабильная ошибка "No exported method EVAL" ???

Опять таки количество употреблений hb_macroCompile, hb_macroRun, hb_macroDelete по кодам высокое.... Хочется мне их оставить, что скажете?

 Отправлено: 09.01.08 17:28. Заголовок: Я думаю, что большой..

Я думаю, что большой проблемы не будет
Если подключать RDD, т.е.работать с базами данных - эти функции обязательно используются.

 Отправлено: 09.01.08 17:38. Заголовок: Но попробуйте еще за..

Но попробуйте еще заменить вызов vmDo(1) на vmFunction(1) и потестировать.

 Отправлено: 09.01.08 20:16. Заголовок: Что-то не нашел функ..

Что-то не нашел функцию DbRefresh(). Какой аналог используется обычно в Харборе?

 Отправлено: 09.01.08 20:38. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

то-то не нашел функцию DbRefresh()

А что она делает?

 Отправлено: 09.01.08 20:47. Заголовок: Петр пишет: А что о..

Петр пишет:

цитата:

А что она делает?

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

 Отправлено: 09.01.08 20:54. Заголовок: DbSkip(0) flushes an..

DbSkip(0) flushes and refreshes the internal database buffers. All changes made to the record become visible without moving the record pointer in either direction.

 Отправлено: 09.01.08 23:24. Заголовок: Петр пишет: DbSkip(..

Петр пишет:

цитата:

DbSkip(0) flushes and refreshes...

Ok. Спасибо.

 Отправлено: 10.01.08 12:28. Заголовок: Здравствуйте, Выс..

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

Выслал окончательный (надеюсь :)) вариант теста.

Но что-то у меня сегодня почта "подглючмвает", поэтому, если кто-то не получил, напишите пожалуйста.

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

 Отправлено: 10.01.08 16:42. Заголовок: Здравствуйте, еще ра..

Здравствуйте, еще раз.

Начинаю "прощупывать" реализацию класса менеджера отчетов. Отсюда следующие вопросы.

- Похоже синтаксис классов/объектов у Харбура и Аляски несколько различаются. В связи с этим не подскажите где что посмотреть, какие-то примеры и т.д.

- Есть ли типовые средства загрузки "сторонних" dll в Харборе? Везде, что не найду, речь о "Харбор"-dll-ях. Или сторонние принято грузить с помощью С? В той же Аляске есть DllLoad(), DllCall(). Иди я просто не вижу?

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

 Отправлено: 10.01.08 17:19. Заголовок: Судя по тому, что кн..

Судя по тому, что кнопка Open блокируется - проблемы с memory leak остаются?

Я не буду говорить о том, что синтаксис классов у Harbour и xHarbour различаются, достаточно сказать, что в самом Harbour доступно несколько "стилей" ООП , при этом их вполне можно смешивать.
Как пример для "подражания" я рекомендую посмотреть реализацию класса TXMLNode из библиотеки xhb (harbour\contrib), особенно обратить внимание на взаимодействие с C level.

Типовых средств загрузки "сторонних" dll в Harbour нет - Harbour кросплатформенное средство, а работа с so в Linux отличается от работы с dll Windows или OS\2. Условно - xHarbour больше ориентирован на Win, он включает в себя функции для работы с "сторонними" dll.

Если ищете универсальное решение - я советую обратить внимание на исходники библиотек Dll and CallDll из состава MiniGUI Ex, тут на форуме недавно о них вспоминали..

 Отправлено: 10.01.08 17:57. Заголовок: Петр пишет: Судя по..

Петр пишет:

цитата:

Судя по тому, что кнопка Open блокируется - проблемы с memory leak остаются?

Нет-нет, это скорее моя лень, а не какая-то проблема Просто "правильно" писать было длиннее. Объекты корректно повторное открытие игнорируют. Просто у меня на кнопке еще "руками" Мастер-Детэйл устанавливается (создается item с блоком кода), это нужно под условие "загонять", кнопку же задизэйблить быстрей :)) Так что, никаких проблем с "memory leak" нет. Эта форма - "вещь" тоже временная, поэтому я пока не "упираюсь".

За рекомендации спасибо, буду вникать.

 Отправлено: 10.01.08 18:09. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

Есть ли типовые средства загрузки "сторонних" dll в Харборе?

Следующий код реализует обращение к системной библиотеке uxtheme.dll в коде библиотеки MiniGUI Ext:

static HINSTANCE hUxTheme;

long InitUxTheme( void )
{
if( hUxTheme == NULL )
{
hUxTheme = LoadLibraryEx( "uxtheme.dll", NULL, NULL );
}

return( LONG ) hUxTheme;
}

void EndUxTheme( void )
{
if( !hUxTheme == NULL )
{
FreeLibrary( hUxTheme );
hUxTheme = NULL;
}
}

HB_FUNC( ISTHEMEACTIVE )
{
BOOL bRet = ( BOOL ) FALSE;
if( hUxTheme == NULL )
{
hUxTheme = LoadLibraryEx( "uxtheme.dll", NULL, NULL );
}

if( hUxTheme )
{
fnIsThemeActive pfn = ( fnIsThemeActive ) GetProcAddress( hUxTheme, "IsThemeActive" );
if( pfn )
{
bRet = ( BOOL ) pfn();
}
}

hb_retl( bRet );
}

HB_FUNC( ISAPPTHEMED )
{
BOOL bRet = ( BOOL ) FALSE;
if( hUxTheme == NULL )
{
hUxTheme = LoadLibraryEx( "uxtheme.dll", NULL, NULL );
}

if( hUxTheme )
{
fnIsAppThemed pfn = ( fnIsAppThemed ) GetProcAddress( hUxTheme, "IsAppThemed" );
if( pfn )
{
bRet = ( BOOL ) pfn();
}
}

hb_retl( bRet );
}

 Отправлено: 10.01.08 18:46. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

Следующий код реализует обращение к системной

Спасибо. Тo есть, фактически принято загружать на "чистом" С. Ок.

 Отправлено: 10.01.08 19:02. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

Тo есть, фактически принято загружать на "чистом" С. Ок.

И да, и нет
В том же MiniGUI можно найти такие конструкции:

DECLARE DLL_TYPE_LONG DIWriteJpg(DLL_TYPE_LPCSTR DestPath, DLL_TYPE_LONG quality, DLL_TYPE_LONG progressive) ;
IN DIJPG.DLL ALIAS BMPTOJPG

BmpToJpg( path, 100, 1 )

Такие (похожие) конструкции "любят" применять и пользователи FiveWin, What32, xHb.

Вообще то не обязательно знать С, чтобы использовать [x]Harbour.

Но Вам, чтобы не вникать в нюансы реализации, действительно лучше написать загрузку dll на C или Паскале

 Отправлено: 10.01.08 19:31. Заголовок: Петр пишет: Такие (..

Петр пишет:

цитата:

Такие (похожие) конструкции "любят" применять и пользователи FiveWin

Ага ...

#include "FiveWin.ch"

function Main()

local hItem1 := ItemNew( "Hello world!" )
local hItem2 := ItemNew( "From a Harbour DLL" )

HbDLLEntry2( "TEST", hItem1, hItem2 )

ItemRelease( hItem1 )
ItemRelease( hItem2 )

MsgInfo( "ok from EXE" )

return nil

DLL FUNCTION HBDLLENTRY2( cProc AS LPSTR, pItem1 AS LONG, pItem2 AS LONG ) AS LONG PASCAL LIB "BabuDLL.dll"

#pragma BEGINDUMP

#include <hbapi.h>
#include <hbapiitm.h>

HB_FUNC( ITEMNEW )
{
hb_retnl( ( ULONG ) hb_itemNew( hb_param( 1, HB_IT_ANY ) ) );
}

HB_FUNC( ITEMRELEASE )
{
hb_retl( hb_itemRelease( ( PHB_ITEM ) hb_parnl( 1 ) ) );
}

#pragma ENDDUMP

 Отправлено: 10.01.08 23:51. Заголовок: xHarbour + bcc - ok ..

xHarbour + bcc - ok
xHarbour + pelles c - ok
xHarbour + ms vc - ok с поправкой на преобразование типов
open watcom и mingw все не соберу, поскольку надо качать новые версии этих компиляторов, а в последние дни запарка, некогда
dmc aka digital mars - тоже есть проблемка при сборке xHb

 Отправлено: 11.01.08 13:42. Заголовок: Pasha пишет: xHarbo..

Pasha пишет:

цитата:

xHarbour + bcc - ok xHarbour + pelles c - ok xHarbour + ms vc - ok с поправкой на преобразование типов

Ok. Спасибо. А по типам, я сейчас начинаю писать "нармальный" загрузчик и постараюсь все аккуратно сделать.

 Отправлено: 14.01.08 18:36. Заголовок: Здравствуйте. Предл..

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

Предлагаю обсудить будущую демо-программу. Нормально ли, допустим, демо по Alaska? Нужно делать два демо, отдельно для Harbour и отдельно для xHarbour? Или можно совместить? И так далее..

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


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