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

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

 Отправлено: 21.04.09 15:54. Заголовок: Этот префикс предназ..

Этот префикс предназначен только для функций на С.
Для харбор-функций используются "родные" имена без префикса
А что это за скрипты ? На каком языке ? Если они обрабатывались клиппером, то с таким же успехом обработаются и харбором.

 Отправлено: 21.04.09 16:47. Заголовок: Очень обнадеживающий..

Очень обнадеживающий ответ. Буду надеяться, что так и есть. Продолжил эксперимент. И тут на вызов функции AX_LOADED из ADS пишет, что отсутствует _HB_FUN_AX_LOADED. Присоединял при линковке и rddads.lib и ace32.lib. Ничего не поменялось. К неразрешенным отнесла и другие вызовы стандартной ADS. И что теперь делать? Про скрипты: это аналог языка Клиппер с некоторыми расширениями, который интерпретируется клипперной же программой.

 Отправлено: 21.04.09 16:55. Заголовок: Urri пишет: AX_LOAD..

Urri пишет:

цитата:

AX_LOADED

AdsIsServerLoaded()

 Отправлено: 21.04.09 17:07. Заголовок: Ой Dima, администрат..

Ой Dima, администратор, ты так строго выглядишь и лапкой нервно перебираешь. Когда мои дилетантские вопросы по Харбору утомят - скажи. Проверю обязательно твою рекомендацию и еще обращусь не раз за советом, уж извини... Лирическое отступление: не ты ли главный администратор сайта dimma.da.ru? Если так, то прими справедливый наезд на тебя: тут случилась оказия в Москву съездить, так я карту метрополитена с твоего, мною любимого сайта, выдрал, верил тебе и никуда больше не обращался. В Москве меня с этой картой засмеяли из-за того, что она чуть ли не с советских времен... Не икалось ли тебе??? Исправь пожалуйста...

 Отправлено: 21.04.09 17:11. Заголовок: Urri Главный у нас ..

Urri
Главный у нас Dimma :) Он в Москве и живет.

 Отправлено: 21.04.09 17:19. Заголовок: Urri пишет: И тут н..

Urri пишет:

цитата:

И тут на вызов функции AX_LOADED из ADS пишет, что отсутствует _HB_FUN_AX_LOADED.

Это совсем другой вопрос. Дело в том, что имена функций Ads у 16-разрядного клиента для клиппер и у 32-разрядных клиентов отличаются.

Чтобы не переделывать код, можно задать команды препроцессора:

#xtranslate AX_LOADED(<cFile>) => AdsIsServerLoaded(<cFile>)

 Отправлено: 22.04.09 11:26. Заголовок: Добрый день. Продолж..

Добрый день. Продолжаю задавать вопросы. Заменил вызов AX_LOADED() на AdsIsServerLoaded() - не помогло. Я так понял, что нужно на этапе линковки присоединить библиотеку для работы с ADS. В папке LIB имеются два претендента: ace32.lib и rddads.lib. Подключал последовательно обе библиотеки, но эффект одинаковый: AdsIsServerLoaded() - ссылка не найдена. Кстати, чем отличаются эти библиотеки, какую выбрать? Я хочу, чтобы по-старому обрабатывались .DBF & .CDX файлы (т.е., чтобы часть пользователей могла остаться под клиппером, часть новых - под харбором (возможно ли такое?)). И есть ли информации о соответствии старых функций ADS и новых? Я тут пересмотрел оглавление обеих ранее указанных библиотек и не нашел замены некоторым функциям старой, клипперной библиотеки ADS, например ax_rlock,ax_unlock,ax_transaction,ax_keyno и других

 Отправлено: 22.04.09 11:51. Заголовок: я думаю, много пробл..

я думаю, много проблем решится, если внимательно почитать страничку Кресина
http://kresin.belgorod.su/rus/hrbfaq.html

 Отправлено: 23.04.09 10:47. Заголовок: Добрый день. Прочита..

Добрый день. Прочитал по указанной ссылке страницу Кресина, добился отсутствия неразрешенных ссылок (еще то было развлечение). Радостный запускаю и получаю хитрое сообщение: "Порядковый номер 468 не найден в библиотеке DLL ACE32.DLL. Отключил вызов ADS временно (т.е. убрал REQUEST ADS) - не помогло. И что теперь делать? Победа так близка...

 Отправлено: 23.04.09 10:52. Заголовок: Значит, rddads.lib с..

Значит, rddads.lib собран с другой версией ace32.lib
Надо собирать именно с той версией, которая будет использоваться

 Отправлено: 23.04.09 11:32. Заголовок: Хм, интересно, а как..

Хм, интересно, а какой тогда смысл готовый пакет выкладывать, если в нем несовместимые библиотеки? Пишут везде, что наличие сырцов не очень здорово, т.к. выкладывают весьма сырые сырцы (каламбур) и нужно брать проверенный готовый дистрибутив (если его можно так назвать). И если я не использую ADS - сообщение такое же...

 Отправлено: 23.04.09 11:38. Заголовок: Я неправильно ответи..

Я неправильно ответил. Имеется в виду ace32.lib. Надо ее создать командой

implib -f ace32.lib ace32.dll

и линковать именно с этой ace32.lib свою программу

 Отправлено: 23.04.09 11:51. Заголовок: На странице у Кресин..

На странице у Кресина я видел указание, что нужно так сделать. Но в пакете, скачаном с родного сайта Харбора нет ace32.dll, а есть готовая ace32.lib. Я ей и воспользовался. Может где можно скачать другой вариант Харбора или дайте ace32.dll...

 Отправлено: 23.04.09 12:12. Заголовок: скачай с http://devz..

скачай с http://devzone.advantagedatabase.com advantage client engine под свою версию сервера,
Правда я пользуюсь коммерческим пакетом с xharbour.com , там уже включены и собраны все библиотеки под ads9, но если не ленивый - то это можно сделать вручную

 Отправлено: 23.04.09 13:22. Заголовок: Urri пишет: На стра..

Urri пишет:

цитата:

На странице у Кресина я видел указание, что нужно так сделать. Но в пакете, скачаном с родного сайта Харбора нет ace32.dll, а есть готовая ace32.lib. Я ей и воспользовался. Может где можно скачать другой вариант Харбора или дайте ace32.dll...

В отличие от клиппера, 32-х разрядный клиент Ads надо установить, там не только ace32.dll, есть еще несколько dll
Поэтому его надо взять на сайте разработчика, т.е. Extend Systems

 Отправлено: 23.04.09 15:35. Заголовок: Пока ADS отложил в с..

Пока ADS отложил в сторону, пытаюсь запустить чисто в клипперном варианте с CDX индексами. При старте вываливается гнусно-противная ошибка "main.exe - обнаружена ошибка. Приложение будет закрыто. Приносим извинения за неудобства.", дамп и до свидания... И что теперь делать?

 Отправлено: 23.04.09 15:37. Заголовок: Отложил временно ADS..

Отложил временно ADS. Запустил, получил "main.exe - обнаружена ошибка. Приложение будет закрыто. Приносим извинения за неудобства.", дамп и до свидания... Что теперь делать?

 Отправлено: 23.04.09 15:58. Заголовок: Либо неправильно соб..

Либо неправильно собрана программа, либо вызов какой-то функции при старте дает ошибку
Надо идти от простого к сложному. То есть, сначала собрать простую тестовую программу, и запустить ее. Затем подключать модули, и так далее

 Отправлено: 27.04.09 17:00. Заголовок: Подскажите, пожалуйс..

Подскажите, пожалуйста. Переменная, объявленная как local, которой присваивается начальное значение в операторе объявления, при повторном входе в процедуру что, теряет свое предыдущее значение и по новой инициализируется?

 Отправлено: 27.04.09 17:04. Заголовок: Что-то неудачно спро..

Что-то неудачно спросил. Так ведь и должно быть. Извиняйте...

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

Добрый день, уважаемые.
Достиг определенных успехов. Все мои проекты заработали, правда пока без ADS, но уже какой прогресс. В процессе перевода столкнулся с неожиданными нестыковками клиппера и Харбора, но пока все обнаруженное преодолел.
Остались некоторые детали и прошу подсказать.
1. Имеется ли функция чтения-записи определенных ячеек памяти (аналог FT_PEEK, FT_POKE).
2. Имеется ли функция вызова прерывания и передачи-получения параметров (аналог FT_INT86)
3. Как определить состояние клавиатуры (нажатие левого-правого CTRL, SHIFT).

Имеются ли какие-нибудь описания функций Харбора и их параметров. А то только в .CH и .H файлах описание прототипов и то не очень информативное. Есть ли описания библиотек, а то их так много и все с интригующими названиями, а для чего какая - не всегда ясно. И вообще, где взять побольше описаний? А то я уже почти переехал на Харбор, но как-то еще не осознал полного кайфа кроме того, что это стало чисто 32-х разрядным приложением. И как он вообще насчет стабильности и корректности?

 Отправлено: 04.05.09 15:56. Заголовок: Urri 1. Смотри библ..

Urri
1. Смотри библиотеку LIBNF.LIB
2. Смотри пункт 1
3. Смотри библиотеку СT.LIBUrri пишет:

цитата:

Имеются ли какие-нибудь описания функций Харбора и их параметров

Где то лежала в этой ветке документация.

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

Помогите советом начинающему...

Urri пишет:

цитата:

1. Имеется ли функция чтения-записи определенных ячеек памяти (аналог FT_PEEK, FT_POKE). 2. Имеется ли функция вызова прерывания и передачи-получения параметров (аналог FT_INT86)

Дружеский совет - забудьте это. Вот сегодня с Clipper на xHarbour, а завтра с Windows на Solaris и что опять изворачиваться? Максимально используйте встроенные функции языка (читай переносимые), поменьше нестрандартных решений и будет вам счастье.

Urri пишет:

цитата:

но как-то еще не осознал полного кайфа кроме того, что это стало чисто 32-х разрядным приложением.

Потому что программируете вы еще на Clipper, найдите документацию и почитайте - сколько перед вами откроется дополнительных возможностей. Было бы желание их использовать.

цитата:

И как он вообще насчет стабильности и корректности?

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

 Отправлено: 04.05.09 16:43. Заголовок: смотри что после п.3..

смотри что после п.3...
Хорошо, что исходники Харбора есть, буду теперь там рыться. Спасибо за указание на LIBNF.LIB, а то название это ничего конкретного не говорит. А сам то как узнал? Тоже по сырцам изучал? Это к вопросу о документации... А как насчет надежности и стабильности? А то перевести на Харбор учет начислений и оплат 400 000 абонентов миллионного города и получить проблемы - весьма не хотелось бы

 Отправлено: 04.05.09 17:02. Заголовок: Urri Документация т..

Urri
Документация тут , не знаю жив ли еще линк. Если что переналью.
http://clipper.borda.ru/?1-4-0-00000126-000-0-0-1202908477

 Отправлено: 04.05.09 17:18. Заголовок: Петру... Я бы позаб..

Петру...

Я бы позабыл, но пока нужно запустить рабочие проекты, а потом уже открывать новые горизонты. Я и так максимально старался обходиться только стандартными функциями клиппера, даже библиотеку CT не использовал. А те несколько левых функций, которые я использовал, обязательно были с исходниками Да и функции FT_PEEK FT_POKE оказались не такими уж и экзотическими. Вот Dima дал наводку на библиотеку LIBNF.LIB, в которой они имеются. Только вот они работают не так, как в Клиппере (уже проверил).

Ну дайте кто-нибудь эту документацию или ссылку...

 Отправлено: 04.05.09 17:23. Заголовок: Urri Смотри личное ..

Urri
Смотри личное сообщение

 Отправлено: 04.05.09 17:43. Заголовок: Urri пишет: Я бы по..

Urri пишет:

цитата:

Я бы позабыл, но пока нужно запустить рабочие проекты

Это не аргумент, Clipper программы работают - вот и хорошо. Запускайте, но.. Вот к примеру я использую функцию а() для того чтобы получить результат в виде b, не буду я настолько самоуверенным чтобы утверждать, что такой же результат можно получить только в результате работы моей функции а(), а не какой-то 3-d c(). Вот вы используете FT_PEEK FT_POKE, но вы их используете для того чтобы получить какой-то результат, а не просто что-бы было. Так вот вам нужно спросить, а как мне получить такую-то информацию, сделать то-то, может кто-то и и подскажет. FT_PEEK FT_POKE FT_INT86 очень системнозависимые функции и возможно вам в сторону WinAPI смотреть нужно. Такой подход приведет вас к нужному результату гораздо быстрее.

 Отправлено: 04.05.09 17:53. Заголовок: Dima... Не дает доку..

Dima... Не дает доку... Может на почту мне кинешь urrisoft@dneprogaz.dp.ua

Буду благодарен всем, кто по этому адресу пришлет документацию на Харбор.

 Отправлено: 04.05.09 17:55. Заголовок: Urri пишет: Не дает..

Urri пишет:

цитата:

Не дает доку

Странно. Выслал на мыло.

 Отправлено: 04.05.09 19:13. Заголовок: Urri пишет: А как н..

Urri пишет:

цитата:

А как насчет надежности и стабильности? А то перевести на Харбор учет начислений и оплат 400 000 абонентов миллионного города и получить проблемы - весьма не хотелось бы

Насчет надежности и стабильности мы тебе все уши уже прожжужалииии....
http://clipper.borda.ru/?1-0-0-00000442-000-15-0

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

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

Добрый день, уважаемые.
Спасибо тем, кто порадовал меня вчера документацией.

Петру... Я спрашивал конкретно: как определить нажаты ли кнопки CTRL, ALT, SHIFT. Это мне сейчас нужно. Вспомнил свой способ определения состояния кнопок через FT_PEEK, Dima присоветовал воспользоваться функциями из LIBNF.LIB (там есть и FT_PEEK, FT_POKE, ALT(), CTRL(), Shift()) - ни одна функция не дала нужного результата. И что теперь делать присоветуете? Ради этого лезть в WinApi? Конечно я туда полезу, когда будет работать то что есть и без сбоев - ошибок. В этом сейчас приоритет. А то у нас такая организация, что нет места программистским ошибкам - сразу можно пострадать на улицу (начальство сейчас нервное и государство больное на голову)

 Отправлено: 05.05.09 11:42. Заголовок: Urri Посмотри эту т..

Urri
Посмотри эту тему http://clipper.borda.ru/?1-4-0-00000339-000-0-0-1223272101

 Отправлено: 05.05.09 11:58. Заголовок: У меня и на С исходн..

У меня и на С исходник есть, но там нужны библиотеки для зашищенного режима и 32-х разрядные. А у меня только 16-разрядные. И с ассемблером x86 я не сдружился (три предыдущих я знал очень хорошо, а этом меня разочаровал). Тут вот Петр рекомендует обходиться без экзотики, в чем то он прав и я так старался все время делать. А в CT таких возможностей проверить состояние клавиатуры разве нет?

 Отправлено: 05.05.09 12:24. Заголовок: Вы используете Harbo..

Вы используете Harbour или xHarbour ?
Была проблема с опросом состояния alt-shifr-ctrl для терминала gtwin
В Harbour ее вроде пофиксили:

2009-01-05 13:33 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/source/rtl/gtwin/gtwin.c
! Fixed HB_GTI_KBDSHIFTS not working in console mode.
Replaced GetKeyboardState() call with GetKeyState() calls.

Наверное, в xHarbour этот фикс не попал
Функция из ct KBDStat работает ?

По поводу peek/poke. Для чего используются эти функции ? Чтение/запись каких-то данных Bios ? Каких именно ? Расскажите, посоветуем, чем можно их заменить.

Пару слов насчет надежности и Ads. Если планируется использовать Ads с Harbour, то надежность работы с БД останется на том же уровне, поскольку она обеспечивается сервером
Чтобы не было сюрпризом, скажу: Ads с Harbour не поддерживает udf в индексах. Это проблема не Харбора, любой 32-х разрядный клиент Ads не поддерживает udf, так что udf надо чем-то заменять

 Отправлено: 05.05.09 12:47. Заголовок: Я использую xHarbour..

Я использую xHarbour. А что, может просто Harbour использовать? В рекомендациях говорили, что xHarbour более продвинутый

FT_PEEK используется для того, чтобы по адресу (0,1047) получить байт состояния клавиатуры, в котором каждый бит отвечает за нажатие CTRL, Alt, Shift.. Пробовал я и kbdStat, но возвращает только 0 при любых комбинациях указанных клавиш. И что я не так делаю?
А про udf - спасибо за подсказку и экономию времени. У меня этого крайне мало и легко лечится

 Отправлено: 05.05.09 13:12. Заголовок: Urri пишет: Я испол..

Urri пишет:

цитата:

Я использую xHarbour. А что, может просто Harbour использовать? В рекомендациях говорили, что xHarbour более продвинутый

Года 2 назад так и было, но сейчас как раз наоборот
Можно использовать Habour, или в xHarbour сделать исправление:
в source\rtl\gtwin\gtwin.c в обработке
case HB_GTI_KBDSHIFTS:
строку
pInfo->pResult = hb_itemPutNI( pInfo->pResult, hb_gt_w32_getKbdState() );

заменить на строку:

pInfo->pResult = hb_itemPutNI( pInfo->pResult, hb_gt_win_getKbdState() );

и добавить в эетот же модуль функцию hb_gt_win_getKbdState,
вставив ее перед hb_gt_win_Info:

static int hb_gt_win_getKbdState( void )
{
int iKbdState = 0;

if( GetKeyState( VK_SHIFT ) & 0x80 ) iKbdState |= HB_GTI_KBD_SHIFT;
if( GetKeyState( VK_CONTROL ) & 0x80 ) iKbdState |= HB_GTI_KBD_CTRL;
if( GetKeyState( VK_MENU ) & 0x80 ) iKbdState |= HB_GTI_KBD_ALT;
if( GetKeyState( VK_LWIN ) & 0x80 ) iKbdState |= HB_GTI_KBD_LWIN;
if( GetKeyState( VK_RWIN ) & 0x80 ) iKbdState |= HB_GTI_KBD_RWIN;
if( GetKeyState( VK_APPS ) & 0x80 ) iKbdState |= HB_GTI_KBD_MENU;
if( GetKeyState( VK_SCROLL ) & 0x01 ) iKbdState |= HB_GTI_KBD_SCROLOCK;
if( GetKeyState( VK_NUMLOCK ) & 0x01 ) iKbdState |= HB_GTI_KBD_NUMLOCK;
if( GetKeyState( VK_CAPITAL ) & 0x01 ) iKbdState |= HB_GTI_KBD_CAPSLOCK;
if( GetKeyState( VK_INSERT ) & 0x01 ) iKbdState |= HB_GTI_KBD_INSERT;

return iKbdState;
}

и пересобрать xHarbour, или только библиотеку gtwin

Если Peek/Poke используется только для клавиатуры, то надо их заменить на вызов KbdStat

 Отправлено: 05.05.09 13:24. Заголовок: А какая тогда версия..

А какая тогда версия Harbour самая надежная из последних и где ее взять? И почему теперь он круче, чем xHarbour?

 Отправлено: 05.05.09 13:55. Заголовок: Urri пишет: А какая..

Urri пишет:

цитата:

А какая тогда версия Harbour самая надежная из последних и где ее взять?

Лучше взять не релиз 1.0.1, который вышел еще в прошлом году, и в котором еще был баг с опросом клавиатуры, а, к примеру, сборку, которую выкладывае Григорий

цитата:

И почему теперь он круче, чем xHarbour?

Субъективная причина - один из разработчиков, который был локомотивом xHarbour в последние годы - Przemyslaw Czerpak - перешел в команду Harbour, и другие девелоперы тоже переориентировались

 Отправлено: 05.05.09 13:58. Заголовок: И где взять эту саму..

И где взять эту самую сборку, которую выкладывает многоуважаемый Григорий? (прошу прощения за дилетантские вопросы: я же среди вас новенький)...

 Отправлено: 05.05.09 14:10. Заголовок: На страничке http://..

На страничке http://minigui.mylivepage.ru/
Harbour 1.1.0dev (Rev. 10960) for BCC 5.5.1

 Отправлено: 05.05.09 16:11. Заголовок: Еще насчет Ads. У кл..

Еще насчет Ads. У клиентов харбора исчезнут всякие сложности с настройкой доступа по протоколу ipx, поскольку с работой по ip таких проблем нет

 Отправлено: 05.05.09 16:43. Заголовок: Pasha пишет: У клие..

Pasha пишет:

цитата:

У клиентов харбора исчезнут всякие сложности с настройкой доступа по протоколу ipx

что то не припомню сложностей по ipx
ставим Novell Client в мануальном режиме , протокол только IPX

 Отправлено: 05.05.09 16:49. Заголовок: Спасибо. Это для мен..

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

С указанного сайта Григория не могу пока скачать, т.к. регистрация не проходит, написал им письмо и жду, пока ответят. Почему старики-нарбористы Dima, Andrey, Петр не подсказали начинающему? Или сами не знали о таком состоянии xHarbour?

Мне хитрым образом пока удалось временно выкрутиться с анализом CTRL,ALT,SHIFT. Теперь похоже все заработало. Завтра начну ковыряться с ADS. Не взыщите, буду еще приставать

 Отправлено: 05.05.09 16:56. Заголовок: Urri пишет: Почему ..

Urri пишет:

цитата:

Почему старики-нарбористы Dima

я скорее всего клиперист чем харборист ;)
Urri пишет:

цитата:

Не взыщите, буду еще приставать

Да ни вапрос.

 Отправлено: 05.05.09 17:16. Заголовок: Urri пишет: Почему ..

Urri пишет:

цитата:

Почему старики-нарбористы Dima, Andrey, Петр не подсказали начинающему? Или сами не знали о таком состоянии xHarbour?

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

 Отправлено: 05.05.09 19:02. Заголовок: Urri пишет: Почему ..

Urri пишет:

цитата:

Почему старики-нарбористы Dima, Andrey, Петр не подсказали начинающему?

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

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

Добрый день, уважаемые.
Началось основное: прикручивание ADS.
При запуске программы говорит: "Порядковый номер 510 не найден в библиотеке DLL ACE32.DLL"

И что это значит, как это лечится?

 Отправлено: 06.05.09 16:06. Заголовок: Это значит, что прог..

Это значит, что программа собрана с библитекой ace32.lib, которая не соответствует ace32.dll
То есть, ace32.lib содержит ссылки на функции из ace32.dll по номерам функций, и при загрузке ace32.dll оказывается, что функции с номером 510, который был присвоен функции при линковке, в ace32.dll нет

Надо командой implib сгенерировать ace32.lib именно из той ace32.dll, которая будет использоваться, и пересобрать свою программу с этой ace32.lib

 Отправлено: 06.05.09 16:28. Заголовок: Сделал как указано в..

Сделал как указано выше.
В программе есть такой текст

&& REQUEST ADS
rddRegister("ADS",1 )
rddsetdefault("ADS")

взятые на странице Кресина.
Если первая строка закоментирована, то выдает "RDD invalid or failed to load". Так наверное и должно быть.
После удалении && при линковке выдает сообщение
Error: Unresolved external 'AdsSkipUnique' referenced from G:\PROC\XHARBOUR\LIB\RDDADS.LIB|ads1

Эта ф-ция есть в RDDADS.LIB, проверил - в списке библиотек при линковке она присутствует.
Но ошибку выдает, зараза. Что присоветуете?

 Отправлено: 06.05.09 16:40. Заголовок: С тех пор, как Креси..

С тех пор, как Кресин делал это описание, процедура подключения Ads изменилась. Теперь достаточно указать:

Request Ads

ну и
rddSetdefault("ADSCDX")
AdsSetFileType( 2 )

а unresolved выдается, так как в скрипте для линкера по-видимому не указана ace32.lib, на которую есть ссылка из rddads.lib, модуль ads1

 Отправлено: 06.05.09 16:42. Заголовок: Еще для правильной р..

Еще для правильной работы с OEM-кодировкой надо вызвать функцию:

AdsSetCharType( 2, .t. )

 Отправлено: 06.05.09 16:43. Заголовок: Что бы под Novell не..

Что бы под Novell не тормозило вызвать
AdsRightsCheck(.F.)

 Отправлено: 06.05.09 16:46. Заголовок: ACE32.LIB в скрипте ..

ACE32.LIB в скрипте линковки есть (проверил). Операторы, указанные выше - поставил. Не помогает.

 Отправлено: 06.05.09 16:52. Заголовок: Сложи актуальные DLL..

Сложи актуальные DLL от ADS в папку с программой или Windows\system32

ACE32.DLL
ADSLOC32.DLL
adslocal.cfg
ANSI.CHR
AXCWS32.DLL
EXTEND.CHR

 Отправлено: 06.05.09 16:55. Заголовок: Функция AdsSkipUniqu..

Функция AdsSkipUnique как раз из ace32.dll

Кажется, я догадался. rddads.lib собран для ace32.dll версии 9, в которой есть эта функция. А в более ранних версиях ace такой функции нет

Вывод: надо либо использивать ace версии 9, либо пересобрать
rddads.lib, указав

#define ADS_LIB_VERSION 700 (поставить нужную версию)

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

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

Pasha пишет:

цитата:

Вывод: надо либо использивать ace версии 9, либо пересобрать rddads.lib, указав #define ADS_LIB_VERSION 700 (поставить нужную версию)

Чтобы "пересобрать" rddads.lib нужно изрядно подолбиться с Borland C, с которым я не сдружился, к сожалению.
На это уйдет уйма времени и сил. Я постараюсь со временем научиться пересобирать весь пакет Харбора или его часть из исходников, но тогда, когда я пойму что это всерьез и надолго. А чтобы я это понял, нужно чтобы заработало то что есть уже сегодня. Большой путь уже пройден и без ADS все заработало. И вот споткнуться на последнем шаге - обидно будет. Может кто поделится последней нормальной сборкой, в которой нет проблем, указанных выше Pasha и другими знатоками?
А также поделитесь локальным ADS: на родном сайте advantagedatabase.com после выбора Local Server для загрузки ссылку дает на триальную версию полного сервера.

Заранее говорю всем спасибо...

 Отправлено: 07.05.09 10:03. Заголовок: Какая версия ace нуж..

Какая версия ace нужна ?
Какая версия xHarbour ?

 Отправлено: 07.05.09 10:20. Заголовок: Какая нужна? Вы же л..

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

 Отправлено: 07.05.09 10:38. Заголовок: Urri пишет: Чтобы &..

Urri пишет:

цитата:

Чтобы "пересобрать" rddads.lib нужно изрядно подолбиться с Borland C, с которым я не сдружился, к сожалению.

Не нужно для этого "долбиться". Достаточно просто зайти в каталог contrib/rddads ( или rdd_ads - в разных версиях он по разному называется ) и запустить make_b32.bat. Возможно, надо будет открыть этот make_b32.bat и сделать, как там написано, т.е. установить переменную окружения HB_DIR_ADS=C:\ads\acesdk ( или другое место, где у вас стоит ADS ).
Это ничуть не труднее, чем собрать свою программу.

 Отправлено: 07.05.09 10:48. Заголовок: Urri пишет: Какая н..

Urri пишет:

цитата:

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

Версия ace должна соответствовать серверу ads
Какая версия сервера ?
А насчет сборки Александр прав, ничего там военного нет, попробуйте собрать сами
Если нет нужного ace - скажите только для какого сервера - я перешлю

 Отправлено: 07.05.09 11:12. Заголовок: Сервер ADS - 8.1..

Сервер ADS - 8.1

 Отправлено: 07.05.09 11:20. Заголовок: Urri пишет: Сервер ..

Urri пишет:

цитата:

Сервер ADS - 8.1

Со странички
http://www.hotsoft.ru/ADS/files.htm

надо скачать

Advantage Client Engine API and DLLs for Windows v.8.10.0.18.

 Отправлено: 08.05.09 08:31. Заголовок: Pasha пишет: Со стр..

Pasha пишет:

цитата:

Со странички http://www.hotsoft.ru/ADS/files.htm надо скачать Advantage Client Engine API and DLLs for Windows v.8.10.0.18.

А ссылка правильная? Меня туда не пускает...

 Отправлено: 08.05.09 09:18. Заголовок: Urri пишет: А ссылк..

Urri пишет:

цитата:

А ссылка правильная? Меня туда не пускает...

А выключить на время или правильно настроить файрвол не судьба...

 Отправлено: 08.05.09 09:22. Заголовок: Urri пишет: А ссылк..

Urri пишет:

цитата:

А ссылка правильная? Меня туда не пускает...

Правильная

Прямая ссылка для скачивания:

ace32

 Отправлено: 08.05.09 19:04. Заголовок: Юра все ссылки котор..

Юра все ссылки которые дал Павел с hotsoft.ru рабочие.
То же самое можно качнуть тут
http://devzone.advantagedatabase.com/dz/content.aspx?Key=20&Release=10
не понятно о каком TRIALe ты говоришь....

 Отправлено: 09.05.09 14:45. Заголовок: Dima пишет: Юра все..

Dima пишет:

цитата:

Юра все ссылки которые дал Павел с hotsoft.ru рабочие.

Я снова попытался залезть по этим ссылкам - снова безрезультатно. А по твоей ссылке все выдрать удалось.
На сайте Advantage нашел страницу с local server с ссылкой для скачивания. Пошел по ней - попал на полный сервер, но Trial. Т.е. вариант локального сервера так и не получил. А очень хочется: я тут по рекомендации Pasha и AlKresin пересобрал библиотеку rdd_ads (подолбился маленько) и поборол ошибку линковки, про которую я писал. А попробовать нет возможности... А руки чешутся: столько проделано, переход на Харбор почти завершен, осталось проверить и опробовать немного. Если у тебя есть local версия - поделись и научи как с ней работать.

 Отправлено: 09.05.09 15:17. Заголовок: Urri Ладно , перели..

Urri
Ладно , перелил вот сюда с hotsoft , забирай
http://files.mail.ru/9ZZG0Q

 Отправлено: 09.05.09 15:32. Заголовок: Urri Работа с local..

Urri
Работа с local server или remote , определяется установкой параметра в AdsSetServerType

Dima пишет:

цитата:

Pasha пишет: цитата: А что такое AdsSetServerType(3) ? Это Local + remote С AIS я решил повременить... **************** This will "activate" the "smart server searching", this means that you programa automatically detect what kind of server you are using, and will connect to it with no intervention at all. However, the parameter in the AdsSetServerType() defines what kind of server you will use 1 - Local Server 2 - Remote Server 4 - Internet Server You can add the values to make different server combinations, for example: 3 - Local and Remote Server 5 - Local and Internet Server 6 - Remote and Internet Server 7 - Local, Remote and Internet Server

Remote ADS у тебя есть в наличии ?
Версия ?

 Отправлено: 09.05.09 15:57. Заголовок: Спасибо Дима. Уже ск..

Спасибо Дима. Уже скачал. Установил. А дальше что? Подскажи...

 Отправлено: 09.05.09 16:01. Заголовок: Urri Так ведь писал..

Urri
Так ведь писали уже
Request Ads
rddSetdefault("ADSCDX")
AdsSetFileType( 2 ) 2 - remote server 1 -local

PS
Библиотеку Rddads нужно пересобрать !

 Отправлено: 09.05.09 16:02. Заголовок: Urri пишет: Пошел п..

Urri пишет:

цитата:

Пошел по ней - попал на полный сервер, но Trial. Т.е. вариант локального сервера так и не получил. А очень хочется

Локальный сервер ADS - это "всего-навсего" динамическая библиотека adsloc32.dll.
Входит в состав ace (Advantage Client Engine). Вот этот ace и надо скачивать (adv_ace или adv9ace - в зависимости от версии).

Для того, что бы указать ace, что работать будем локально (т.е. надо переадресовывать все к adsloc32.dll)
вызываем AdsSetServerType(1), что вам и пытались обьяснить.

P.S. Мне все более с трудом верится, что вы когда нибудь работали с ADS.
В комплекте с ace справка есть, довольно подробная, - почитайте ее перед тем как задавать вопросы.

 Отправлено: 09.05.09 16:30. Заголовок: С ADS работаю 12 лет..

С ADS работаю 12 лет, без него у нас ни одна задача не работает. Но использовал его весьма ограничено: важна была надежность индексов и использование транзакций (ранее локальный сервер на отдельно стоящей машине (дома) установить не удавалось а отлаживать программы нужно, поэтому никаких более возможностей ADS не использовал). Почему-то всегда хватало INT_NT.EXE и CLIPPER.EXE. Ну еще последнее время и ODBC, OLEDB. Спасибо за указание на AdsSetServerType(1)

P.S. Постараюсь читать справки и задавать меньше вопросов

 Отправлено: 09.05.09 16:34. Заголовок: Urri Реально , твоя..

Urri
Реально , твоя задача будет работать с локальным ADS или есть на фирме Remote ADS ?
Из темы я понял что есть сервер Novell , так вот какой ADS там крутится (и какой протокол) ?

 Отправлено: 09.05.09 17:01. Заголовок: Сейчас как раз и пыт..

Сейчас как раз и пытаюсь с локальным запустить по рекомендациям Петра.

На фирме у нас сервер с Windows 2003. На машинах с W95/W98 работаем с IPX/SPX, для XP/w2000 работаем с протоколом TCP/IP. Работает одновременно до 100 человек и планируется увеличение еще на 50 в ближайшее время

 Отправлено: 12.05.09 19:09. Заголовок: Добрый вечер, уважае..

Добрый вечер, уважаемые.

У меня все получилось: все мои программы заработали в xHarbour в связке с ADS (remote и local). Спасибо всем, кто мне помогал, давал советы. В ближайшее время начну переводить всех своих пользователей (150 штук) на Нарбор. Они, правда, не заметят того нелегкого труда, который пришлось для этого проделать: так подумают, что сервер получше поставили и все быстрее заработало.

Теперь задумываюсь о переводе своих программ под GUI. Опять буду задавать вопросы, так что потерпите меня еще некоторое время...

Еще раз всем СПАСИБО !!!

 Отправлено: 12.05.09 19:15. Заголовок: Pasha писал, что нуж..

Pasha писал, что нужно подправить и пересобрать библиотеку gtwin.lib, чтобы правильно работала функция kbdstate. Что-то я в исходниках, взятых с сайта xHarbour, не нашел такой исходников такой библиотеки и указанного модуля gtwin.c (в папке contrib рылся). Что подскажете по этому поводу?

 Отправлено: 12.05.09 19:24. Заголовок: В процессе перехода ..

В процессе перехода попался на такое неожиданное отличие в работе клиппера и харбора (поиск ошибок с этим связанных заняло больше всего времени):

private arr[50]
s=space(100)
for i=1 to len(arr)
arr=s
next

Если функцией манипулирования строками с передачей параметров по ссылке (т.е. с символом @ перед именем переменной) исправить, например, 10 строку, то у всех остальных строк массива arr произойдут те же изменения. На клиппере такого не происходит.

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

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

Urri пишет:

цитата:

(поиск ошибок с этим связанных заняло больше всего времени):

Думаю что у всех так...

Найди другой путь если это не пашет.

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

Urri пишет:

цитата:

Что подскажете по этому поводу?

Павел уже исправил эту ошибку

2009-05-05 21:40 UTC+0300 Pavel Tsarenko <tpe2/at/mail.ru>
* source/rtl/gtwin/gtwin.c
! fixed HB_GTI_KBDSHIFTS
(by Przemyslaw Czerpak, borrowed from Harbour)

Если собираетесь и дальше использовать xHarbour - осваивайте CVS

Забыл добавить, gtwin не из contrib, а source/rtl

 Отправлено: 14.05.09 17:26. Заголовок: Добрый вечер, уважае..

Добрый вечер, уважаемые.

Подскажите пожалуйста: а совместимы ли способы блокировки записей в ADS, вызываемые из Клиппера и проверяемые в Нарборе? После использования в клиппере функции rlock() функцией ax_islocked() указывает, что запись заблокирована, но в Харборе функция ADSISRECORDLOCKED() дает .F. Есть ли где описание соответствия функций для ADS, вызываемых из клиппера и Харбора? А то по названиям можно догадываться, а вот при проверке - не работает.

 Отправлено: 15.05.09 08:22. Заголовок: Проверил на ace 7.0,..

Проверил на ace 7.0, local server, AdsIsRecordLocked() работает
На ace 8 проверить не могу

 Отправлено: 15.05.09 10:07. Заголовок: Да, но Local и Remot..

Да, но Local и Remote версии при работе с ADS только из Harbour работает нормально, а вот если для remote server блокировку поставила одна программа, написанная на Клиппере, то другая программа, написанная на Харборе эту блокировку не видит. Т.е. получается, что с одной таблицей не может правильно (в смысле анализа блокировок) работать две программы: одна на Клиппере, другая полный ее аналог, но на Харборе (с разницей только в вызываемых функциях анализа блокировок). Я спрашивал именно про совместную работу Клиппера и Харбора

 Отправлено: 15.05.09 10:24. Заголовок: Я бы советовал задат..

Я бы советовал задать этот вопрос в Ads support
Совместимы ли блокировки старого клиента клиппер с ace 8.0.
У ads раньше была newsgroup, я даже задавал там вопрос, и мне отвечали, адреса правда под рукой нет. Возможно, он уже изменился

 Отправлено: 15.05.09 10:34. Заголовок: Вот где собака порыл..

Вот где собака порылась

AdsIsRecordLocked tests if the given record is locked by the current user

 Отправлено: 15.05.09 10:46. Заголовок: dbInfo(DBI_GETLOCKAR..

dbInfo(DBI_GETLOCKARRAY) возвращает массив блокировок, номера записей
Можно проверять:

ASCAN(dbInfo(DBI_GETLOCKARRAY), RecNo()) # 0

 Отправлено: 15.05.09 11:15. Заголовок: Pasha пишет: Вот гд..

Pasha пишет:

цитата:

Вот где собака порылась AdsIsRecordLocked tests if the given record is locked by the current user

Так что, получается для конкретной записи даже для работающих только Харбор программ нельзя проверить факт блокировки другим пользователем конкретной строки (отложив на время вопрос о взаимодействии с Клиппер программами)?

Pasha пишет:

цитата:

dbInfo(DBI_GETLOCKARRAY) возвращает массив блокировок, номера записей Можно проверять: ASCAN(dbInfo(DBI_GETLOCKARRAY), RecNo()) # 0

У меня бывают ситуации блокировок по 5000 строк. Пока функция dbinfo() соберет массив корректировок, функция ascan() проверит - нужную строку уже заблокируют

 Отправлено: 15.05.09 11:45. Заголовок: Других функций опрос..

Других функций опроса блокировок в ace я не увидел, а rddads может работать только через ace

Почему бы не блокировать нужные записи сразу ? Примерно так

for i := 1 to len(aRecs)
if ! DBRLock(aRecs)
lLock := .f.
exit
endif
next

 Отправлено: 15.05.09 12:00. Заголовок: Pasha пишет: Почему..

Pasha пишет:

цитата:

Почему бы не блокировать нужные записи сразу ? Примерно так

Какие записи блокировать выясняется в процессе расчета. Бывает нужно заблокировать штук 300, а бывает - только 1. А блокировать на всякий случай - так это переводняк времени (в ADS блокировки выполняются неторопливо).

Проблема вот в чем. На 20 машинах запускается расчет для 250000 абонентов. Первая машина прихватила (заблокировала) первую строку списка - расчитывает, вторая машина - проверила эту строку: занята (заблокирована кем-то) - перешла на следующую строку, прихватила, расчитывает. Третья машина проверила первуя строку, вторую строку - заняты. Прихватила третью. И т.д. А потом первая строка ищет в списке следующую свободную для расчета и т.д. Получается такой себе конвейер. А теперь получается нужно придумывать другой по банальной причине...

 Отправлено: 15.05.09 12:31. Заголовок: А зачем разделять пр..

А зачем разделять проверку и блокировку ?
rlock/dbRLock - это проверка и блокировка в одном флаконе

А то может оказаться, что запись будет захвачена другим пользователем между вызовами ax_islocked и rlock

 Отправлено: 18.05.09 16:33. Заголовок: Добрый день. Подска..

Добрый день.

Подскажите пожалуйста, как заставить ф-цию FT_SETVPG прилинковаться. В LIBNF она есть, при вызове FT_INT86, которая ее вызывает, пишет про неразрешенную внешнюю ссылку. При попытке вставить в исходный текст эту ф-цию из исходников - пишет, что дублируется... И что делать? Очень хочется воспользоваться ф-цией FT_INT86 чтобы закончить с печатью...

Кстати, кто как в Харборе печатает, т.е. выбодит на принтер. Просматривал список предлагаемых в Харборе функций - про все сказано, что сделаны только для совместимости и возвращают постоянное значение вне зависимости от ситуации. А какая же родная ф-ция печати в Харборе?

 Отправлено: 18.05.09 17:00. Заголовок: Еще такой вопрос. Вы..

Еще такой вопрос. Вызываются ли под ADS SQL команды, например выбрать нечто по условию и результат записать в DBF файл. Попытка использования ф-ции ADSEXECUTESQLDIRECT('select ...') ни к чему не привела. Дайте пример.

 Отправлено: 18.05.09 19:23. Заголовок: Select(nSel) if AdsG..

Select(nSel)
if AdsGetConnectionHandle() == 0
AdsConnect(cPath) // Set(_SET_DEFAULT)
endif
if AdsCreateSQLStatement(cAlias, 2)
AdsPrepareSQL(cSQL)
AdsExecuteSQL()
endif

 Отправлено: 18.05.09 20:06. Заголовок: Спасибо. Щас будем р..

Спасибо. Щас будем разбираться. Может у кого есть описание указанных ф-ций? А ф-ция ADSEXECUTESQLDIRECT что, не работает?

И что подскажите насчет печати (предыдущего вопроса)?

 Отправлено: 19.05.09 08:16. Заголовок: Urri пишет: Подскаж..

Urri пишет:

цитата:

Подскажите пожалуйста, как заставить ф-цию FT_SETVPG прилинковаться. В LIBNF она есть, при вызове FT_INT86, которая ее вызывает, пишет про неразрешенную внешнюю ссылку. При попытке вставить в исходный текст эту ф-цию из исходников - пишет, что дублируется... И что делать? Очень хочется воспользоваться ф-цией FT_INT86 чтобы закончить с печатью...

Эти функции - переключение видеостраниц - реализованы только для dos
К тому же в page.prg опечатка:

вместо

_ft_setvpg(nPage)

надо

_v_setvpg(nPage)

для win32 эти средства работать не будут, поскольку это специфика os

Какие именно функции печати имеются в виду ?

 Отправлено: 19.05.09 08:35. Заголовок: Urri пишет: А ф-ция..

Urri пишет:

цитата:

А ф-ция ADSEXECUTESQLDIRECT что, не работает?

По-видимому, перед ее вызовом надо выдать:

AdsCreateSQLStatement(cAlias, 2)

 Отправлено: 19.05.09 10:41. Заголовок: Pasha пишет: Какие ..

Pasha пишет:

цитата:

Какие именно функции печати имеются в виду ?

Имеются ввиду функции PrintReady() и PrintSend(). Написано в инструкции, что созданы для целей совместимости и возвращают всегда 0 и .f. соответственно. И других ф-ций для анализа готовности принтера и пересылки строк в принтер больше не вижу. Из истории проблемы: лет 15 назад еще при работе с Clipper 5.01 и матричными принтерами не было никакой возможности проанализировать сбой оборудования (бумага застряла, например) и программа вываливалась с дикими ошибками. В те далекие времена меня это очень утомляло и я переписал для себя блок печати с использованием DOS прерывания, вызываемого ф-цией FT_INT86() и забыл о проблемах печати на 15 лет (даже под w95,w98,w2000,XP). И теперь, перейдя на Харбор пока в варианте консольного приложения, очень хочу не иметь проблем с печатью. А для этого очень хочу снова воспользоваться ф-цией FT_INT86. Она ведь есть в библиотеках Харбора, только не работает так, как раньше под Клиппером. Или подскажите другой вариант проверки готовности принтера (матричные принтеры у нас еще имеются)

 Отправлено: 19.05.09 11:01. Заголовок: Pasha пишет: По-вид..

Pasha пишет:

цитата:

По-видимому, перед ее вызовом надо выдать: AdsCreateSQLStatement(cAlias, 2)

Что есть cAlias? Что такое параметр 2? Смотрю примеры из Харбор, понятного весьма мало т.к. нет ну никакого описания. А прокладывать дорогу в дебрях исходников на С очень утомительно и долго. Может у кого есть какое-то описание? И вообще из участников этого форума кто-то использует SQL запросы при работе ADS с .DBF файлами, а не .ADT? Хочу пока немного: сделать выборку SQL запросом и вывалить результат в .DBF файл...

 Отправлено: 19.05.09 11:29. Заголовок: Алиас - это алиас ра..

Алиас - это алиас рабочей области, в которой будет выполняться select
2 - имеется в виду ADS_CDX

После выполнения select в рабочей области можно использовать обычные средства rdd: go top, skip, обращение к полям

Поскольку эти функции в харборе не описаны, то надо смотреть сырцы rddads, и, конечно, помощь к ace

 Отправлено: 19.05.09 11:36. Заголовок: Pasha пишет: Алиас ..

Pasha пишет:

цитата:

Алиас - это алиас рабочей области, в которой будет выполняться select 2 - имеется в виду ADS_CDX

Этот алиас будет создан автоматически? Какие еще значения параметров, кроме 2, можно задавать?

А предыдущее мое сообщение (ответ на ваш вопрос) про принтер читали и какой ответ?

 Отправлено: 19.05.09 11:51. Заголовок: надо сначала выбрать..

надо сначала выбрать РО вызовом

Select(nSel)

В этой РО и будет открыт запрос с алиасом cAlias

 Отправлено: 19.05.09 13:52. Заголовок: Я делаю так: nsel=1..

Я делаю так:

nsel=100
cPath='g:\abonent\dbf\'
cSQL='select client,name from g:\abonent\dbf\client.dbf where street=20'
cAlias='abc'

Select(nSel)
&& if AdsGetConnectionHandle()=0
AdsConnect(cPath)
&& endif
if AdsCreateSQLStatement(cAlias, 1)
AdsPrepareSQL(cSQL)
AdsExecuteSQL()
endif

? alias(),reccount()


Вызов Ф-ции AdsGetConnectionHandle() закомментирован, т.к. выдает неразрешенную ссылку.
Диск G обслуживается локальным ADS (поэтому второй параметр в AdsCreateSQLStatement поставил 1 (2 тоже ставил - ничего не менялось)).

В результате получал alias() = abc, reccount() = 0. Проверил, в базе client строки со street=20 имеются в количестве 1300 штук. Что я делаю не так?

 Отправлено: 19.05.09 14:16. Заголовок: А поля видны ? ? FC..

А поля видны ?

? FCount(), Client, Name

Условие where сработало ? Тип поля street числовой ?

2-й параметр AdsCreateSQLStatement:

#define ADS_NTX 1
#define ADS_CDX 2
#define ADS_ADT 3

 Отправлено: 19.05.09 15:28. Заголовок: fcount() = 196, но р..

fcount() = 196, но реально в базе client их всего 125.
Поле street - числовое.
Поля не видны, fieldname(1) - пусто

 Отправлено: 25.05.09 12:54. Заголовок: Добрый день. Ну кто..

Добрый день.

Ну кто подскажет как правильно SQL запрос вызвать? Это пока последнее, что мне нужно на ближайшее время. Со всеми остальными вопросами какт-то справился, даже с принтером временное решение нашел, т.к. FT_INT86 до сих пор не работает нормально

 Отправлено: 25.05.09 14:59. Заголовок: Вот такой пример у м..

Вот такой пример у меня работает ( test.dbf взято из harbour/tests )

#include "c:\harbour\contrib\rddads\ads.ch"
FUNCTION main

rddSetdefault("ADS")
SET FILETYPE TO CDX
SET SERVER LOCAL

AdsConnect( ".\" )
IF !AdsCreateSqlStatement( ,2 )
? "AdsCreateSqlStatement - error"
RETURN
ENDIF
IF !AdsExecuteSqlDirect( "SELECT * FROM test WHERE AGE < 50" )
? "AdsExecuteSqlDirect - error"
RETURN
ENDIF
? Reccount()

?

RETURN

 Отправлено: 25.05.09 15:56. Заголовок: Ура. Спасибо, уважае..

Ура. Спасибо, уважаемый. И у меня теперь заработало. Еще раз спасибо. Сейчас буду развивать достижение.

 Отправлено: 25.05.09 16:50. Заголовок: Поторопился радовать..

Поторопился радоваться. Для локального ADS - работает, для Remote - не работает, выдает сообщение "AdsCreateSqlStatement - error", а все остальное с Remote сервером работает. Какие будут рекомендации?

 Отправлено: 25.05.09 19:00. Заголовок: Проверьте, что возвр..

Проверьте, что возвращает AdsConnect():

IF ! AdsConnect( <path> )
? "No connection"
RETURN
ENDIF

Кстати, в AdsConnect() что у вас указано ?

 Отправлено: 26.05.09 09:48. Заголовок: alkresin пишет: Про..

alkresin пишет:

цитата:

Проверьте, что возвращает AdsConnect():

alkresin пишет:

цитата:

Проверьте, что возвращает AdsConnect():

Добрый день

Вот такой у меня проверочный тест.


? AdsConnect("m:\" )
if !AdsCreateSqlStatement( ,2 )
? "AdsCreateSqlStatement - error"
return
endif
select(100)
if !AdsExecuteSqlDirect( "SELECT * FROM m:\abonent\dbf\client WHERE street=20" )
? "AdsExecuteSqlDirect - error"
return
endif


AdsConnect("m:\") = .t.
Но при этом выдает "AdsExecuteSqlDirect - error". После этого программа успешно работает дальше, т.е. на m:\ нормально фукнционирует ADS REMOTE.

Если "m:\" заменить на "g:\" (и в SQL запросе тоже), а на g:\ работает ADS Local - то все работает нормально выполняется

 Отправлено: 26.05.09 12:44. Заголовок: Drive letters in pat..

Drive letters in paths of table names can only be used with Advantage Local Server. When using Advantage Database Server for NT or NetWare, fully qualified paths must use UNC (e.g., "\\server\volume\path\table"), because the SQL statement is parsed at the server where client-side drive letters are not meaningful.
If relative paths are used in SQL statements, the path is considered to be relative to the connection path. For example, a table referenced as "..\alternate\info" would refer to a directory named "alternate" that would be expected to be parallel to the original connection path directory.

Иными словами :), диск ( m:) указывается только для локального сервера. SQL запрос исполняется на сервере, а сервер не знает, на какую букву его распределили на вашей клиентской станции. Путь надо указывать относительно того, что прописан в AdsConnect(). Т.е., в вашем случае надо, по видимому, написать:

AdsExecuteSqlDirect( "SELECT * FROM \abonent\dbf\client WHERE street=20" )

 Отправлено: 26.05.09 13:09. Заголовок: Получилось. Спасибо ..

Получилось. Спасибо большое. Еще бы ссылку прислали где это можно почитать...

Сейчас начну всех своих 95 пользователей на Харборе заставлять работать. Пусть еще какие-то ошибки и несответствия вылезут. А то я вчера с одной столкнулся - уже был в полном расстройстве и готов был от Харбора отказаться, т.к. непонятно что творилось. Таки нашел несовпадение в работе клиппера и Харбора. А еще сколько таких будет...

 Отправлено: 26.05.09 13:56. Заголовок: Получилось. Спасибо ..

цитата:

Получилось. Спасибо большое. Еще бы ссылку прислали где это можно почитать...

Почитать - в help'е к ADS.

 Отправлено: 26.05.09 19:38. Заголовок: Urri пишет: Имеются..

Urri пишет:

цитата:

Имеются ввиду функции PrintReady() и PrintSend().

Я добавил PrintSend для windows

 Отправлено: 27.05.09 12:39. Заголовок: Здравствуйте, Urri! ..

Здравствуйте, Urri!
Если не секрет, какое решение нашел для определения готовности принтера? А то я некоторое время назад пытался здесь получить какое-нибудь решение, но ничего не вышло.

 Отправлено: 27.05.09 13:06. Заголовок: Добрый день. wad1 п..

Добрый день.

wad1 пишет:

цитата:

Если не секрет, какое решение нашел для определения готовности принтера? А то я некоторое время назад пытался здесь получить какое-нибудь решение, но ничего не вышло.

Ничего нового, вернулся к старому аля'Клиппер решению:
if isprinter(1)
set console off
set print on
set printer to lpt1.
set device to print
?? cText
set print off
set device to screen
set console on
endif

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

 Отправлено: 27.05.09 14:40. Заголовок: Почему-то мне не уда..

Почему-то мне не удалось от isprinter() получить реальной информации о готовности принтера: даже если он выключен, возвращается .t.