Отправлено: 06.04.13 15:03. Заголовок: Cписок алиасов

Как получить список всех открытых баз данных ?
Либо в виде алиасов либо номеров рабочих областей.
Можно конечно сделать самопал , но вдруг что то готовое есть
и эффективное.

 Отправлено: 08.04.13 08:43. Заголовок: Pasha Интересно , с..

Pasha
Интересно , спасибо.
А что делает вот эта функция (из описания не очень понял)
function hb_waRelEval(), remove unused local variable int iChildArea
Вольный перевод: удаление не используемых локальных переменных в дочерней области

 Отправлено: 08.04.13 08:51. Заголовок: Что-то я не найду та..

Что-то я не найду такой функции.
Есть метод rdd в workarea.c c таким же названием, но назначение у него другое.
Где она находится ?

 Отправлено: 08.04.13 08:57. Заголовок: Pasha пишет: Где он..

Pasha пишет:

цитата:

Где она находится ?

Откопал в ChangeLog.txt когда искал сведения о hb_waEval()

 Отправлено: 08.04.13 09:08. Заголовок: Это базовый метод rd..

Это базовый метод rdd для реализации relations, из харбор-уровня он недоступен. Он касается внутренней реализации rdd. Просто название похожее оказалось.

 Отправлено: 09.04.14 10:21. Заголовок: Haz пишет: adsConne..

Haz пишет:

цитата:

adsConnect60( cBasePath + "\" + cBase + ".add", 0, "SystemProcess", 'SystemProcess', nServerType, @hConnection )

похоже это не правильно
вот так надо
adsConnect60( cBasePath + "\" + cBase + ".add", nServerTypes, "SystemProcess", 'SystemProcess', nOptions, @hConnection )
а у тебя перепутаны местами nServerTypes и nOptions или я не прав ?

 Отправлено: 09.04.14 11:53. Заголовок: Dima пишет: похоже ..

Dima пишет:

цитата:

похоже это не правильно

мож быть , не задумывался т.к. работало

перепутаны однозначно

 Отправлено: 09.04.14 12:33. Заголовок: Дима , спасибо . Исп..

Дима , спасибо . Исправил во всех своих исходниках
странно что все работало, такое впечатление что ADS по барабону ))))
сверился с https://github.com/harbour/core/blob/master/contrib/rddads - точно напутал лет так 5 назад и ничего ))

 Отправлено: 09.04.14 17:30. Заголовок: Dima пишет: Как пол..

Dima пишет:

цитата:

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

aBase := {}

FOR nI:=1 TO myFILESFREE() // для харбора сделал 1024, т.к. не нашел в своё время замену этой функции

SELECT(nI)
IF USED() == .T.
cStr:=STR(nI,3)+".│"+DBSETDRIVER()+" │"+STR(DBINFO(DBI_GETRECSIZE),7)+;
"│"+PADR(DBINFO(DBI_ALIAS),12)+;
"│"+PADR(DBINFO(DBI_FULLPATH),45)
AADD(aBase, cStr)
ENDIF

NEXT
DO WHILE lExit
K := Achoice( aKoordin[1]+3, aKoordin[2]+1, aKoordin[3]-1, aKoordin[4]-1, aBase )
IF K == 0 .OR. LASTKEY() == K_ESC
lExit := .F.
ELSE
SELECT(K)
TekBase()
ENDIF
ENDDO

 Отправлено: 11.04.14 18:18. Заголовок: Andrey А что рабочи..

Andrey
А что рабочих областей может уже быть больше 255 или я чего путаю ?

 Отправлено: 11.04.14 18:47. Заголовок: Dima пишет: А что р..

Dima пишет:

цитата:

А что рабочих областей может уже быть больше 255 или я чего путаю ?

Думаю, что да. Надо проверять...

 Отправлено: 11.04.14 21:04. Заголовок: Andrey пишет: Думаю..

Andrey пишет:

цитата:

Думаю, что да. Надо проверять...

Cделал тестик
Clipper 5.2e упал при открытии 246 рабочей области с ошибкой DOS ERROR 4
ну это и понятно так как FILES у меня прописан 250 в CONFIG.NT
Странно что упал раньше.........

Harbour 3.2 упал при открытии 65000 рабочей области с ошибкой
Unrecoverable error 6004: Internal error: size of dynamic symbol table exceed

ЗЫ
Harbour рулит

 Отправлено: 11.04.14 23:24. Заголовок: Dima пишет: Harbour..

Dima пишет:

цитата:

Harbour рулит