Отправлено: 30.11.14 11:22. Заголовок: Перевожу Clipper на консольный Харбор

Добрый день, уважаемое сообщество!

Перехожу на Харбор, собрал программу, начинаю бороть ошибки несовместимости кода, по мере появления вопросов надеюсь на скорую помощь.
Заранее всем участникам огромное спасибо!

 Отправлено: 14.11.15 11:40. Заголовок: MIKHAIL Попробуй те..

MIKHAIL
Попробуй тест (у меня работает)

 
 Proc main 
 local adshandle:=0 
  
 AdsSetServerType(2) 
  
  if  AdsConnect("c:\") 
 adshandle:=AdsConnection() 
 ? AdsIsConnectionAlive(adshandle) 
  endif 
  
 return 
 

 Отправлено: 14.11.15 11:53. Заголовок: Dima пишет: if A..

Dima пишет:

цитата:

if AdsConnect("c:\") adshandle:=AdsConnection() ? AdsIsConnectionAlive(adshandle) endif

у меня все равно выдает .F.
Может какие то установки или настройки ADS нужны?

 Отправлено: 14.11.15 12:35. Заголовок: MIKHAIL а если этот..

MIKHAIL
а если этот тест запустить непросредственно на винсервере r8 64 , где живет ADS.

 Отправлено: 14.11.15 12:40. Заголовок: MIKHAIL пишет: Попр..

MIKHAIL пишет:

цитата:

Попробовал по разному, под WIN32XP и ServerR8 64 на ADS 10.10 и ADS 9.10 и Linux 64 ADS64 10.10, везде функция выдает .F.

1 Поставь ADS Server на СВОЙ комп ( на котором запускаешь тестовую программу от Димы )
2 убедись что на компе в системной папке винды , в путях поиска и в папке с тестом не было старых версий DLL от ADS
потом проверь тест который дал Дима

 Отправлено: 14.11.15 13:07. Заголовок: MIKHAIL Что выдает ..

MIKHAIL
Что выдает
? AdsVersion(3)

у меня
Advantage 32-bit Client Engine for Windows, v10.1

 Отправлено: 14.11.15 13:50. Заголовок: Dima пишет: ? AdsVe..

Dima пишет:

цитата:

? AdsVersion(3)

Advantage 32-bit Client Engine for Windows, v10.10

Тестил на своем и на сервере, везде одно и тоже

 Отправлено: 14.11.15 14:25. Заголовок: MIKHAIL Да уж , пол..

MIKHAIL
Да уж , полтергейст какой то ))
А RddAds переcобирал c новым ACE ?

ps
может файер что то блочит........

 Отправлено: 14.11.15 14:55. Заголовок: Dima пишет: А RddAd..

Dima пишет:

цитата:

А RddAds переcобирал c новым ACE ?

Я пока не очень разбираюсь в этом, подскажите как это сделать пошагово?

 Отправлено: 14.11.15 14:58. Заголовок: MIKHAIL пишет: Я по..

MIKHAIL пишет:

цитата:

Я пока не очень разбираюсь в этом, подскажите как это сделать пошагово?

компилятор BCC или MINGW ?
сырцы Harbourа есть ?

 Отправлено: 14.11.15 15:01. Заголовок: BCC, сырцы есть..

BCC, сырцы есть

 Отправлено: 14.11.15 15:07. Заголовок: MIKHAIL Следующий б..

MIKHAIL
Следующий батник ложим в папку с сырцами RDDADS
У меня они тут C:\svn\harbour-trunk\harbour\contrib\rddads\
Пути поправь на свои

 
 set PATH=C:\bcc55\bin 
 set HB_INSTALL_PREFIX=c:\hb32 
 set HB_DIR_ADS=C:\ads.10.10\acesdk 
 set HB_WITH_ADS=C:\ads.10.10\acesdk 
 c:\hb32\bin\hbmk2 rddads.hbp 
  
 

Стартуем батник , после его работы в этой папке видим 2 новых файла
rddads.lib и ace32.lib
Копируем их куда нужно (папка LIB Харбора)

 Отправлено: 14.11.15 15:31. Заголовок: MIKHAIL Dima пишет..

MIKHAIL

Dima пишет:

цитата:

Следующий батник ложим в папку с сырцами RDDADS У меня они тут C:\svn\harbour-trunk\harbour\contrib\rddads\

а взять их можно тут
http://github.com/harbour/core/archive/master.zip

ЗЫ в принципе заведомо рабочие библиотеки можно взять с этого форума , скачав здесь MiniGui и установив. там в поставке идут эти библиотеки

 Отправлено: 14.11.15 15:57. Заголовок: Собрал, все заработа..

Собрал, все заработало!

Еще мне не понятно отличие функций AdsMg***
Мне нужно получить список пользователей, а при AdsConnect() функция AdsMgGetUserName() не работает, приходится использовать AdsMgConnect(), но при этом получается несколько соединений к ADS от одного пользователя. И как узнать свое собственное подключение в списке ?

 Отправлено: 14.11.15 16:34. Заголовок: MIKHAIL пишет: AdsM..

MIKHAIL пишет:

цитата:

AdsMg***

Для всех этих функций нужен AdsMgConnect()

 Отправлено: 14.11.15 16:40. Заголовок: MIKHAIL пишет: И к..

MIKHAIL пишет:

цитата:

И как узнать свое собственное подключение в списке ?

По имени компа

 
 AdsMgConnect() 
         if ADSMGGETHANDLE()>0 
 aRay := AdsMgGetUserNames() 
       FOR j=1 TO Len( aRay ) 
  if aray[j][1]==netname(1) // netname(1) лучше заюзать где то в начале проги и запомнить результат 
 ? "Это я :)" 
 exit 
  endif 
       NEXT 
            endif 
 AdsMgDisconnect() 
 

При одиночном коннекте AdsConnection + AdsMgConnect
Массив выглядит примерно так

 
 {{"MYCOMP", 0, "IPC Connection 2", "", "dima", "0.0.0.0"}, {"MYCOMP", 0, "IPC Connection 3", "", "dima", "0.0.0.0"}} 
 

 Отправлено: 14.11.15 17:24. Заголовок: Спасибо всем огромно..

Спасибо всем огромное!!! Буду дальше разбираться

 Отправлено: 14.11.15 20:46. Заголовок: MIKHAIL На заметку ..

MIKHAIL
На заметку http://clipper.borda.ru/?1-4-0-00000830-000-0-0

 Отправлено: 19.11.15 18:53. Заголовок: Иногда (редко) подви..

Иногда (редко) подвисает программа, не реагирует ни на что. Хотя иногда может и отвиснуть. Как отследить в чем проблемма?
Код работал на Clipper много лет.

 Отправлено: 19.11.15 19:05. Заголовок: MIKHAIL По сети раб..

MIKHAIL
По сети работает или локально ?
Виснет в разных местах ?
Какая ось на станции ?

 Отправлено: 20.11.15 15:12. Заголовок: Dima причина оказала..

Dima причина оказалась в железе, USB порт клавиатуры видно подглючивал.