Отправлено: 04.04.13 20:38. Заголовок: Как прицепится к ADS по сети ?

Есть ADS 10.10 в настройках у него стоит порт 6262

Вот таким исходником пытаюсь к нему подрубиться.

 
 #include "ads.ch" 
 proc main 
 REQUEST ADS 
 rddSetDefault( "ADSCDX" ) 
 SET SERVER REMOTE 
 SET CHARTYPE TO OEM 
 ? AdsConnect("MYSERVER") // .f. 
 ? AdsConnect("//127.0.0.1/:6262") // .f. 
 return 
 

ADS.INI в папке с прогой

 
 [MYSERVER] 
 LAN_IP=127.0.0.1 
 LAN_PORT=6262 
 

Где мой косяк ?

 Отправлено: 07.04.14 14:43. Заголовок: Haz пишет: А каким ..

Haz пишет:

цитата:

А каким образом я могу устроить SEEK по этой базе #TmpBase. Как то можно создать такой же временный индекс в памяти ?

временный не пользовал а постоянный как то так
cSql := "EXECUTE PROCEDURE sp_CreateIndex90( '" + cBase + "','" + cBase + ".cdx','" + cField + "','" + cField + "', '', 2, 512, '' )"
а что искать то в ней надо ?

 Отправлено: 07.04.14 14:48. Заголовок: Haz пишет: а что ис..

Haz пишет:

цитата:

а что искать то в ней надо ?

Нужно переходить к определенному ROWID в некоторых случаях

Haz пишет:

цитата:

EXECUTE PROCEDURE sp_CreateIndex90

Спасибо !

Haz пишет:

цитата:

10 сек на старом компе с XP

Круто

 Отправлено: 07.04.14 14:52. Заголовок: функции обратной DEC..

функции обратной DECODE64 не встречал ?
Типа ENCODE64

 Отправлено: 07.04.14 14:56. Заголовок: Dima пишет: Нужно п..

Dima пишет:

цитата:

Нужно переходить к определенному ROWID в некоторых случаях

мож AdsSetAof() использовать ? темпбаза же не большая

 Отправлено: 07.04.14 14:57. Заголовок: Haz пишет: мож AdsS..

Haz пишет:

цитата:

мож AdsSetAof() использовать ?

неа , это ж фильтр а надо именно перейти к записи.

 Отправлено: 07.04.14 14:58. Заголовок: Dima пишет: функции..

Dima пишет:

цитата:

функции обратной DECODE64 не встречал ? Типа ENCODE64

талько если самому писать , за основу взять харборную hb_Encode ...

 Отправлено: 07.04.14 15:02. Заголовок: Haz пишет: неа , эт..

Haz пишет:

цитата:

неа , это ж фильтр а надо именно перейти к записи.

nRecSave := Recno()
nRec := 0
AdsSetAOF()
DbGotop()
IF !Eof()
nRec := RECNO()
END
AdsClearAof()
DbGoto( IF( nRec <> 0. nRec, nRecSave )

или вообще по __DbLocate()

 Отправлено: 07.04.14 15:10. Заголовок: Haz пишет: или вооб..

Haz пишет:

цитата:

или вообще по __DbLocate()

а это возможно сделать SQL запросом ?

 Отправлено: 07.04.14 15:20. Заголовок: Dima пишет: а это в..

Dima пишет:

цитата:

а это возможно сделать SQL запросом

конечно , только запрос - почти тот же фильтр

самое простое - (cAlias)->( __dbLocate( bBlock,,,,.F.))

 Отправлено: 07.04.14 15:22. Заголовок: Haz пишет: (cAlias..

Haz пишет:

цитата:

(cAlias)->( __dbLocate( bBlock,,,,.F.))

Буду тестить , спасибо !

 Отправлено: 07.04.14 16:14. Заголовок: Добрался наконец и н..

Добрался наконец и начал переделывать живую задачу под REMOTE ADS
И сразу попал на грабли

cDictionary:=diskads+"sql\"+sys_name+"f12"
словарь не создается почему то совсем
ADSDDCREATE( cDictionary,, "Словарь данных ADSDEMO" )
cDictionary -> \\127.0.0.1\sklad$\sql\supervisorF12
лупит ошибку 6420

 Отправлено: 07.04.14 16:36. Заголовок: AdsConnect цепляетс..

AdsConnect цепляется к серверу ?
путь к словарю правильный ?
создай словарь руками при помощи ARC32 и им же базы в него подабавляй

127.0.0.1 - этож на локальной машине , пропиши обычный путь

 Отправлено: 07.04.14 16:46. Заголовок: Haz пишет: AdsConne..

Haz пишет:

цитата:

AdsConnect цепляется к серверу ?

Конечно. Рабочая задача.

Haz пишет:

цитата:

путь к словарю правильный ?

Да

Haz пишет:

цитата:

создай словарь руками при помощи ARC32 и им же базы в него подабавляй

Не вариант так как нужно делать это прям из проги.

Haz пишет:

цитата:

127.0.0.1 - этож на локальной машине , пропиши обычный путь

Все верно так как работаю дома с REMOTE или LOCAL ADS именно через 127.0.0.1 (комп то один)

 Отправлено: 07.04.14 16:53. Заголовок: сложил в папку diska..

сложил в папку diskads+"sql\" файлик test.prg
и проверил HB_fileexists(diskads+"sql\test.prg") , все норм .T.
путь к файлу получился таким \\127.0.0.1\sklad$\sql\test.prg

ЗЫ
Это у клиента мы уже меняем IP на сетевой что то типа 192.168.0.100 а дома всегда
юзал 127.0.0.1

sklad$ - это имя расшаренного скрытого ресурса
net share покажет

sklad$ c:\works\alex\ads_sklad


Dima пишет:

цитата:

ADSDDCREATE( cDictionary,, "Словарь данных ADSDEMO" )

Перед этой функцией вставил
c:=fcreate(cDictionary+".test")
fclose(c)

файл нормально создался

Такое впечатление что ADSDDCREATE не работает с полным путем UNC

 Отправлено: 07.04.14 18:43. Заголовок: Dima пишет: Такое в..

Dima пишет:

цитата:

Такое впечатление что ADSDDCREATE не работает с полным путем UNC

вполне возможно что так , но при REMOTE
попробуй через LOCAL ( замени 7 на 1 в строке конекта )

 Отправлено: 07.04.14 18:52. Заголовок: Haz пишет: попробуй..

Haz пишет:

цитата:

попробуй через LOCAL

до adsConnect60 я еще не дошел и создаю словарь до этого.
C Local пробовал тот же эффект

собственно код

 
        if !file(cDictionary) // для каждого юзера создаем свой словарик 
 ADSDDCREATE( cDictionary,, "Словарь данных ADSDEMO") 
 // вот тут получаю 6420 и ADSDDCREATE вернул .F. 
  
 AdsDDaddTable( "volvoAT",PFL+"volvo.dbf", "" ) 
 AdsDDCreateUser(, alltrim(sys_name), "" , "Пользователь "+alltrim(sys_name)) 
        endif 
  
      IF !adsConnect60( cDictionary, 0, alltrim(sys_name), '', 7,@tmphh ) 
 Soob("Ошибка подключения к словарю данных","r/r","gr+/r") 
 return nil 
      ENDIF 
  
 

 Отправлено: 07.04.14 19:20. Заголовок: может с $ пути не по..

может с $ пути не понимает ????
надо эксперементировать

выведи путь в INI дома руками обычный впиши а у клиента UNC

 Отправлено: 07.04.14 19:46. Заголовок: вроде не понимает IP..

вроде не понимает IP в строке пути , если заменить на имя компа - работает

 Отправлено: 07.04.14 19:59. Заголовок: да UNC не понимает з..

да UNC путь не понимает зараза.
положил чистую ADD и пробнул подрубится через adsConnect60 , не фига.
если путь обычный типа c:\бла бла то работает
странно все это

 Отправлено: 07.04.14 20:19. Заголовок: Dima пишет: да UNC ..

Dima пишет:

цитата:

да UNC путь

понимает путь вида \\сервер\шара