Отправлено: 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 
 

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

 Отправлено: 04.04.13 20:57. Заголовок: Может так: AdsConnec..

Может так: AdsConnect("//127.0.0.1:6262") ?
И, эта, 127.0.0.1 - это локальный компьютер. АДС на нем же запущен?

 Отправлено: 04.04.13 20:59. Заголовок: Dima пишет: 127.0.0..

Dima пишет:

цитата:

127.0.0.1

С таким адресом похоже он не пашет. Разобрался. Задал реальный адрес и заработало.
А как мне правильно открыть базу которая лежит в C:\TEST\DBF\KARTA.DBF по IP и порту заданному
в ADS.INI ?
Может чего надо прописать в ADS.INI....

 Отправлено: 04.04.13 20:59. Заголовок: PSP пишет: АДС на н..

PSP пишет:

цитата:

АДС на нем же запущен?

Да

 Отправлено: 04.04.13 21:01. Заголовок: PSP пишет: Может та..

PSP пишет:

цитата:

Может так: AdsConnect("//127.0.0.1:6262") ?

Точно. Так работает. Спасибо. Глазик замылился ;)
А как базу открыть ?

 Отправлено: 04.04.13 21:02. Заголовок: Дим, я с АДС не рабо..

Дим, я с АДС не работал. Сорри...

 Отправлено: 04.04.13 21:15. Заголовок: Когда я работал с ad..

Когда я работал с ads. обязательно надо было расшаривать сетевой ресурс, и при открытии указывать имя файла в формате unc. Можно еще использовать data dictionary. но с ним я не работал.
Если еще AIS, там конечно расшаривать ничего не надо, так как это сделать невозможно, но с ним я опять таки не работал.

 Отправлено: 04.04.13 21:33. Заголовок: Все таки нашел путь ..

Все таки нашел путь ;)
В ASD.INI
Делаем

 
 [DRIVES] 
 x:=//127.0.0.1/C$/sklad/dbf/ 
 

А в проге USE x:karta

Можно и так
Set path to x:
use karta

ЗЫ
При чем расшаривать не надо (буква X: в проводнике не появится)

Интересно в ADS есть похожие вещи как в LETO ?
LETO_VARSET
LETO_VARGET
LETO_VARDEL

 Отправлено: 04.04.13 22:40. Заголовок: Dima пишет: x:=//..

Dima пишет:

цитата:

[DRIVES] x:=//127.0.0.1/C$/sklad/dbf/

А если доступ c$ закрыт, работать будет ? В доке, правда к ads 9.x, написано:

[DRIVES]

If you wish to connect to the Advantage Database Server via the Advantage Internet Server, and your application uses drive letters, you will need a [DRIVES] section to contain the information needed for an Internet connection to Advantage. The [DRIVES] section should contain a list of all drive letters used by the application and the server name and share (or volume) in which the drive letter should map on the server in which the Advantage Database Server is running. The server name and share (or volume) should be UNC (\\SERVERNAME\SHARE).

 Отправлено: 04.04.13 23:09. Заголовок: Pasha У меня служба..

Pasha
У меня служба доступа к файлам и принтерам вообще выключена и ни чего не расшарено.
А попробуй у себя в браузере строку вбить

 
 \\127.0.0.1\c$ 
 

Правда если сделать вот так net share c$ /delete то доступа не будет

 Отправлено: 05.04.13 10:15. Заголовок: А есть ли возможност..

А есть ли возможность в ADS управлять переменными как в LETO ? Или может какой то похожий инструмент там есть ?
Есть там семафоры но как ими управлять ХЗ

 Отправлено: 10.04.13 15:40. Заголовок: Вопросец нарисовался..

Вопросец нарисовался.
Папка с выполняемым файлом лежит на серваке и расшарена. Все рабочие станции юзают
этот расшаренный EXE. Такая схема вполне работоспособна еще со времен Clipper.
НО в этой же папке лежат и файлики которые нужны для работы ace32.dll axcws32.dll
Не будет ни каких конфликтов с этими DLL и будут ли они цепляться при таком подходе
при загрузке программы ?

 Отправлено: 10.04.13 15:52. Заголовок: Ответ как бы сам мен..

Ответ как бы сам меня нашел ;)
Запустил прогу. После этого убил выполняемый файл и оба DLL , прога нормально функционирует.
Значит при загрузке программы и прога и DLL грузятся в память.
Что интересно такой фокус с удалением для Clipper EXEшника не работает.

 Отправлено: 10.04.13 18:39. Заголовок: Странно, я не могу у..

Странно, я не могу удалить EXE файл, когда он работает, заметил еще во время перекомпиляции программы.
Удалять DLL во время работы программы не пробовал. А вообще у нас изначально все программы запускаются
из расшаренного диска, правда пока у нас вся система крутится на серверах NOWELL и ADS. Полностью на
Windows сервера может быть начнем переходить осенью

 Отправлено: 12.04.13 15:40. Заголовок: Как работать с ADS в..

Как работать с ADS в локальной сети понятно.
Встала задача работать с этой же базой через инет.
С чего тут правильно начать ?
В самом ADS прописать инет порт это ясно
В проге установить AdsSetServerType(4)
Пробую цеплятся AdsConnect(инетIPадрес+порт) и глухо

 Отправлено: 15.04.13 10:35. Заголовок: Dima пишет: Пробую ..

Dima пишет:

цитата:

Пробую цеплятся AdsConnect(инетIPадрес+порт) и глухо

Разобрался. Хорошо есть где почитать. Например тут
Cоздал DATADICTIONARY c помощью Advantage Data Architect , и разрешил юзать базу по инету.
В итоге подключился , базы открываются , все как бы красиво.
Но возник вопрос как быть с файловыми операциями.
Как минимум нужны Ferase(), Fopen(),Directory(),Fcreate(),File()
Из аналогов в ADS нашел только три: AdsDirectory() , AdsDeleteFile(),AdsCheckExistence() (аналог File())
Маловато будет. Что же делать ?

 Отправлено: 15.04.13 12:32. Заголовок: Dima, Удалось подкл..

Dima,
Удалось подключиться через инет ?
возникла мысль может это с типом таблиц связано, не уверен в этом , но вот что есть в хелпе по ADS

Advantage Client Engine API
To connect to an Advantage Database Server over the Internet using the Advantage Client Engine API, you will need to call AdsConnect60 with the full path to the data dictionary and with ADS_AIS_SERVER as the second parameter or as part of the second parameter. Example:
ulRetVal = AdsConnect60( "q:\\test.add",
ADS_AIS_SERVER,
"User1",
"foobar",
ADS_DEFAULT,
&hConnect );

 Отправлено: 15.04.13 12:44. Заголовок: Haz пишет: Удалось ..

Haz пишет:

цитата:

Удалось подключиться через инет ?

Да только не хватает мне файловых операций.
Нормального аналога функции File() нет , похожий аналог AdsCheckExistence() совсем не аналог оказался ;)
Тупо ищет только *.dbf при чем только те что объявлены в DATADICTIONARY.
Файл семафора создать тоже не могу так как ни проверить его существование ни создать не выходит.
Молчу уже про MakeDir() , нормальный Directory() и тд и тп
В этом плане LetoDB намного гибче

 Отправлено: 15.04.13 13:31. Заголовок: Насчет файловых опер..

Насчет файловых операций.

 
 First thing you have to understand when using AIS (advantage internet 
 server) is that you are not having access to a file server directory, 
 only to the database, so you cannot perform any activity related with OS 
 file operations, for example you cannot make a FILE() or FCOPY() 
 operation, you cannot create tables (unless you do it via SQL).  
 

 Отправлено: 15.04.13 14:35. Заголовок: Если нет желания или..

Если нет желания или возможности написать что то параллельно работающее и получающее задание по ip, то я в таких случаях на удалённом офисе(т.е. чуть шире чем сервере) пишу и запускаю что то ожидающее заданий в вашем случае в таблицах ADS(например по таймауту проверяющее их наличие) и в них же отчитывающееся о успешном или нет выполнении оных, таким образом можно даже ОС переустановить в удалённом офисе где то в интернете

 Отправлено: 15.04.13 15:07. Заголовок: В харборе на этот сл..

В харборе на этот случай есть драйвер netio. Можно собрать netio-сервер, запустить его как приложение, и клиент может обращаться к нему с запросами по файловым операциям. А в качестве запросов будут собственно вызовы обычных файловых функций, для memio мы их разбирали:

FErase("netio:" + ...)
и так далее
только File() мне кажется так работать не будет, но ей можно найти замену, та же Directory, или FileSeek(), или что-то еще

 Отправлено: 15.04.13 15:17. Заголовок: Pasha Да я думал на..

Pasha
Да я думал над этим вариантом. Просто считал что есть в ADS удаленные файловые функции как в LetoDB , но оказалось их нет.

 Отправлено: 15.04.13 15:40. Заголовок: Pasha пишет: только..

Pasha пишет:

цитата:

только File() мне кажется так работать не будет

Работает если Netio cервер собрать с request file (проверил) , говорю о netio_funcexec с функцией File

 Отправлено: 21.04.13 13:48. Заголовок: хмм... в ADS так и о..

хмм... в ADS так и осталось ограничение на кол-во индексных файлов для рабочей области (15 штук) ?
http://devzone.advantagedatabase.com/dz/webhelp/Advantage7.1/server1/xbase_file_format_specifications.htm

 Отправлено: 21.04.13 15:11. Заголовок: Dima пишет: в ADS т..

Dima пишет:

цитата:

в ADS так и осталось ограничение на кол-во индексных файлов для рабочей области (15 штук)

... и в каждом может быть до 50-ти ордеров, не?

 Отправлено: 21.04.13 15:24. Заголовок: PSP пишет: не? Да ..

PSP пишет:

цитата:

не?

Да , но не могу юзать CDX так как не возможно выключить AUTOPEN и тогда
при открытии базы с индексами может быть бяка.
Use TEST INDEX TEST1,TEST new

Индекс TEST заявлен вторым по счету а на деле будет первым.......

 Отправлено: 03.05.13 12:02. Заголовок: С ADS не работал. Не..

С ADS не работал. Не получается откомпилить пример.
Выдает ошибки:

Error: Unresolved external '_HB_FUN_ADSSETSERVERTYPE' referenced
Error: Unresolved external '_HB_FUN_ADSSETCHARTYPE' referenced fr
Error: Unresolved external '_HB_FUN_ADSCONNECT' referenced from C
Error: Unresolved external '_HB_FUN_ADS' referenced from C:\ADS\X

Какую LIB подключить?

 Отправлено: 03.05.13 12:23. Заголовок: azoo пишет: Какую L..

azoo пишет:

цитата:

Какую LIB подключить?

rddads и ace32

 Отправлено: 03.05.13 13:09. Заголовок: Почему-то ace32.lib ..

Почему-то ace32.lib нет в библиотеках HB30. Нашёл в xHarbour.

Теперь пишет:

Error: Unresolved external 'AdsGetFieldW' referenced from C:\HB30\LIB\WIN\BCC\RD
DADS.LIB|ads1
Error: Unresolved external 'AdsGetStringW' referenced from C:\HB30\LIB\WIN\BCC\R
DDADS.LIB|ads1
Error: Unresolved external 'AdsSetStringW' referenced from C:\HB30\LIB\WIN\BCC\R
DDADS.LIB|ads1

Только после того, как скопировал rddads.lib из xHarbour в папку C:\HB30\LIB\WIN\BCC смог скомпилировать.

Но при запуске программа выдаёт ошибку:

Error BASE/1001 Undefined function: ADT_GETFUNCTABLE
Called from ADT_GETFUNCTABLE(0)

 Отправлено: 03.05.13 13:19. Заголовок: azoo пишет: Почему-..

azoo пишет:

цитата:

Почему-то ace32.lib

Надо скачать ACE http://devzone.advantagedatabase.com/dz/content.aspx?key=20&Release=19&Product=5&Platform=6
и установить.
Пересобрать RDDADS указав пути к ACE в
set HB_DIR_ADS=C:\ваш путь\acesdk
set HB_WITH_ADS=C:\ваш путь\acesdk

после того как соберешь в папку с прогой сложи
adslocal.cfg ansi.chr extend.chr ace32.dll adsloc32.dll axcws32.dll

 Отправлено: 03.05.13 15:39. Заголовок: Спасибо получилось. ..

Спасибо получилось.
Способ с подключением через ЛВС без расшаривания ресурса работает.
Только .ntx не подключаются к сожалению.

 Отправлено: 03.05.13 15:46. Заголовок: azoo пишет: Только ..

azoo пишет:

цитата:

Только .ntx не подключаются к сожалению.

rddSetDefault( "ADSNTX" )

 Отправлено: 14.08.13 16:19. Заголовок: Ещё несколько вопрос..

Ещё несколько вопросов по ADS в [x]Harbour.
в Harbour_Manual.chm есть описание функций, начинающихся ADS......(), например ADSblob2file().
там есть ссылка на некий файл ACE.HLP, который искал но не смог найти.
Вопрос такой: работать с ADS из Harbour можно только стандартными Clipper-командами или есть
какие-то специальные команды для этого.
Например в Clipper были команды AX_......(). Их можно использовать в Harbour ?

 Отправлено: 14.08.13 16:25. Заголовок: azoo пишет: там ест..

azoo пишет:

цитата:

там есть ссылка на некий файл ACE.HLP, который искал но не смог найти.

Используй advantage.chm который в составе ADS идет

Функций типа AX_ уже нет , поэтому нужно искать аналоги в RDDADS если они есть конечно.
Лучше всего посмотреть advantage.chm и сырцы rddads

azoo пишет:

цитата:

Вопрос такой: работать с ADS из Harbour можно только стандартными Clipper-командами или есть какие-то специальные команды для этого.

Можно и так и сяк

 Отправлено: 15.08.13 17:02. Заголовок: Dima я так понял что..

Dima я так понял что [x]Harbour с ADS не совсем дружен в отличие от Clipper.
Причина конечно в официальной поддержке Sybase интерфейса с Clipper.

 Отправлено: 15.08.13 17:06. Заголовок: azoo Смотря что пон..

azoo
Смотря что понимать под такой дружбой. Свое приложение с Clipper+ADS я перевел нормально под
Harbour+ADS.
Говори конкретнее что интересует.

 Отправлено: 15.08.13 17:16. Заголовок: Приложение Clipper+A..

Приложение Clipper+ADS было написано без использования каких-либо функций AX_() ?

 Отправлено: 15.08.13 17:18. Заголовок: azoo пишет: Прилож..

azoo пишет:

цитата:

Приложение Clipper+ADS было написано без использования каких-либо функций AX_() ?

У меня ?
Конечно с их использованием !

На вскидку что юзал
ax_driver
AX_GetAOFRecordCount
ax_keyno
ax_getaofexpr
AX_CacheRecords
AX_Loaded
AX_GetDrive
ax_error
Ax_SetServerAOF
ax_clearserveraof

и тд и тп

 Отправлено: 16.08.13 08:39. Заголовок: Ну и... чем были зам..

Ну и... чем были заменены AX_() функции в Harbour ?

 Отправлено: 16.08.13 09:12. Заголовок: azoo пишет: Ну и.....

azoo пишет:

цитата:

Ну и... чем были заменены AX_() функции в Harbour ?

А есть аналоги в ACE SDK не все правда.

 Отправлено: 16.08.13 20:57. Заголовок: azoo Спрашивай конк..

azoo
Спрашивай конкретно. Когда я переводил приложение с Clipper(ADS) тоже не мог найти ряд аналогов.
Копал доку , смотрел ченжлог и если решения не видел спрашивал тут на форуме.
Поможем чем сможем , вопросы задавай.

 Отправлено: 19.08.13 13:39. Заголовок: Хотелось бы перевест..

Хотелось бы перевести проекты Clipper+DBF на Harbour+ADS.
Опыта работы с ADS нет.
Есть ли доки по ADS, которые можно использовать для работы с Harbour+ADS ?

 Отправлено: 21.08.13 15:14. Заголовок: azoo Есть примеры в..

azoo
Есть примеры в RddAds , есть форум на котором поиск работает. Начни делать что то а появятся вопросы
на которые ответа не найдешь , спрашивай на форуме.

 Отправлено: 21.08.13 16:47. Заголовок: Dima а возможно ли п..

Dima а возможно ли полностью уйти от DBF ?

 Отправлено: 21.08.13 16:57. Заголовок: azoo пишет: Dima а ..

azoo пишет:

цитата:

Dima а возможно ли полностью уйти от DBF ?

Да если мы говорим о связке с ADS , в нем есть собственный формат данных ADT
Правда я сижу на DBF , во всяком случае пока.

Почитать
http://devzone.advantagedatabase.com/dz/WebHelp/Advantage11.1/index.html?master_adt_field_types_and_specifications.htm
http://devzone.advantagedatabase.com/dz/WebHelp/Advantage11.1/index.html?ace_supported_file_formats.htm

 Отправлено: 07.10.13 21:45. Заголовок: И меня эта тема очен..

И меня эта тема очень интересует. LetoDB не предлагать - не люблю собирать из исходников. Я так надеялся на ADS, а теперь выясняется, что ADS тоже глючит. У меня локальная сеть в 4 клиента+сервер.

 Отправлено: 07.10.13 22:28. Заголовок: Dr. Oldwarez пишет: ..

Dr. Oldwarez пишет:

цитата:

Я так надеялся на ADS, а теперь выясняется, что ADS тоже глючит

В чем например ?
Можно ведь и официально его купить и иметь офф поддержку.
Что касается сборки LetoDB сложного там нет ни чего , если нужно выложу уже готовый вариант.

 Отправлено: 09.10.13 23:08. Заголовок: Dima пишет: Что кас..

Dima пишет:

цитата:

Что касается сборки LetoDB сложного там нет ни чего , если нужно выложу уже готовый вариант.

Большое спасибо
Под винду и BCC

 Отправлено: 10.10.13 09:34. Заголовок: Dr. Oldwarez http:/..

Dr. Oldwarez
http://rghost.ru/49283904

PS
Winrar 5.0
Bcc582

 Отправлено: 01.11.13 10:15. Заголовок: У меня появилась зад..

У меня появилась задача переделать приложение из Clipper+(ADS NovellNetware) на Harbour.
Раньше с Novell никогда дела не имел.

Дома поставил ADS+ACE 9.10 и harbour собрал с этим ACE.
Тестовое приложение из топика без проблем коннектится к MYSERVER

Стал разбираться с Novell - никак не подключиться.
1) владелец сервера мне разъяснил что протокол IPX и никаких IP у сервера нет
2) у них доступ к серверу по букве (z:) или (\\Server)
3) в advantage.chm/AdsConnect написано что в Novell надо по "volume name for Novell NetWare " подключаться...
пробую:
? AdsConnect("Z:") // .F.
? AdsConnect("\\Server") // .F.

Версия сервера у них 5.X. А у меня клиент 9.1. Может из-за этого проблемы...

Подскажите, если можно с примером, как к ADS ON Novell подключиться?

 Отправлено: 01.11.13 11:03. Заголовок: vladru пишет: Верси..

vladru пишет:

цитата:

Версия сервера у них 5.X. А у меня клиент 9.1. Может из-за этого проблемы...

ACE нужен 5.x

Держи http://gfile.ru/a26Um

 Отправлено: 01.11.13 11:58. Заголовок: Спасибо. (Это тот чт..

Спасибо. (Это тот что на форуме в ветке "имя алиаса" мелькал ?)

Ну естсественно мой .exe с этим ACE вылетает по ошибке в ace32.dll

Вопрос:
Мне теперь надо harbour пересобрать указав в качестве acesdk содержимое этого архива ?
А после этого этот клиент будет к моему домашнему win-ADS 9.1 подключаться или сервер то же нужен 5.x ?

 Отправлено: 01.11.13 12:01. Заголовок: Версия ADS должна со..

Версия ADS должна совпадать с версией ACE
Пересобрать нужно только RDDADS

 Отправлено: 01.11.13 12:07. Заголовок: Dima пишет: Версия ..

Dima пишет:

цитата:

Версия ADS должна совпадать с версией ACE

Где же мне такого старого зверя под win найти поможите кто чем можете...
Dima пишет:

цитата:

Пересобрать нужно только RDDADS

Намекните как это сделать, не пересобирая весь harbour по win-make
(ил где почитать)

и последнее,
всё-же скажите пожалуйста нубо- новеллу как мне к ADS-Novell подключаться ? по имени диска ?

 Отправлено: 01.11.13 12:31. Заголовок: vladru пишет: Где ж..

vladru пишет:

цитата:

Где же мне такого старого зверя под win найти

А для чего он тебе если собрался работать с ADS 5.x под Netware
ACE 5.x у тебя есть , Remote ADS for Netware тоже

vladru пишет:

цитата:

всё-же скажите пожалуйста нубо- новеллу как мне к ADS-Novell подключаться

Да как больше нравится. Коннект проверить можно с помощью AdsIsServerLoaded(смотри синтаксис) ну а далее
базы юзать через dbusearea с соответствующим RDD (или USE с соответствующим RDD).....как больше нравится.

ЗЫ
А вообще с Netware надо уходить коли он староват и работает только по IPX , так как если на станции
будет стоять что то выше чем VISTA то прицепиться к ADS Netware не получится так как начиная
с VISTA протокол IPX не поддерживается

 Отправлено: 01.11.13 13:08. Заголовок: Dima пишет: А для ч..

Dima пишет:

цитата:

А для чего он тебе если собрался работать с ADS 5.x под Netware ACE 5.x у тебя есть , Remote ADS for Netware тоже

Не очень понял что такое Remote ADS for Netware
Вообще у меня такая ситуация:
у заказчика Clipper+ADS-Netware. Он хочет перейти на Harbour+ADS (т.к они вынуждены использовать win-XP), может потом и с NetWare уйдет...
Но работаю я НЕ на его сервере, а дома, где у меня NetWare нет. Заказчику отправляю переделанные модули для проверки.
Неудобно конечно, но пока так... Вот и получается что у меня должна быть возможность скомпилировать код дома (под win-7) так чтобы он у заказчика (под XP+ADS-NetWare) работал.
Может подскажите организационную схему такой работы ?

 Отправлено: 01.11.13 13:12. Заголовок: vladru пишет: Может..

vladru пишет:

цитата:

Может подскажите организационную схему такой работы ?

у меня для таких целей дома стоит сервер Netware иначе кодить придется в слепую.
по ходу своих клиентов я уже перевел под ADS Windows так что сервак стоит
без дела и продается

ЗЫ
Хотя можно попробовать у себя включив в проге Local ADS а отправляя заказчику
переделывать в Remote ADS , это всего одна строка в проге.

 Отправлено: 01.11.13 13:16. Заголовок: vladru пишет: Не о..

vladru пишет:

цитата:

Не очень понял что такое Remote ADS for Netware

Я имел в виду ADS for Netware и установка в программе должна быть SET SERVER REMOTE или же AdsSetServerType(2)

ЗЫ
#command SET SERVER REMOTE => AdsSetServerType( ADS_REMOTE_SERVER )

 Отправлено: 01.11.13 14:14. Заголовок: Dima пишет: Хотя мо..

Dima пишет:

цитата:

Хотя можно попробовать у себя включив в проге Local ADS а отправляя заказчику переделывать в Remote ADS , это всего одна строка в проге.

Угу, и тогда дома нужно иметь две версии harbour,
- одну для ace-win-ADS-9.1 чтобы компилировать для проверки у себя
- другую для ace5.5. чтобы компилировать для отправки заказчику ?
Так (я не уверен что всё верно понимаю) ?

 Отправлено: 01.11.13 14:17. Заголовок: да нет иметь надо то..

да нет иметь надо только одну RDDADS для версии ADS 5.5 которая в свою очередь может работать с Local сервером
дома а у заказчика с Remote сервером ADS Netware

 Отправлено: 01.11.13 14:27. Заголовок: Dima пишет: надо т..

Dima пишет:

цитата:

надо только одну RDDADS для версии ADS 5.5 которая в свою очередь может работать с Local сервером дома

Т.е. RDDADS для версии ADS 5.5 будет работать с моим локальным ADS сервером версии 9.1 ?

 Отправлено: 01.11.13 14:29. Заголовок: vladru пишет: Т.е. ..

vladru пишет:

цитата:

Т.е. RDDADS для версии ADS 5.5 будет работать с моим локальным ADS сервером версии 9.1 ?

Нет. С версией 5.5

9.1 вам зачем я не пойму ?

 Отправлено: 01.11.13 14:32. Заголовок: Dima пишет: 9.1 вам..

Dima пишет:

цитата:

9.1 вам зачем я не пойму ?

Дык, а где мне дома взять локальный сервер версии 5.5, да еще под win?

 Отправлено: 01.11.13 14:37. Заголовок: vladru пишет: Дык, ..

vladru пишет:

цитата:

Дык, а где мне дома взять локальный сервер версии 5.5

Он уже есть в составе ACE линк на который я давал (adsloc32.dll)

ace.h я забыл
вот http://gfile.ru/a2eNn

 Отправлено: 01.11.13 15:04. Заголовок: Ну вообще-то версия ..

Ну вообще-то версия RDD для 5.5 и соответствующий ACE32.DLL должен работать с
сервером 9.9. По крайней мере, я когда-то пробовал на 10 версии для WIN, и у меня работало,
и CLIPPER в том числе.
Клиент более низкой версии допускает работу с сервером более высокой версии.
Наоборот только работать не будет.

 Отправлено: 01.11.13 15:10. Заголовок: Понял. -Значит крушу..

Понял.
-Значит крушу свой ADS 9.1 - он уже нафиг не нужен;
-кладу в папку с прогой Ваш архив
-в программе делаю SET SERVER LOCAL (если у себя запускаю)
(тогда программа будет делать серверные вызовы через DLL из папки программы)

Осталось только RDDADS пересобрать под присланный Вами acesdk5.5.
(И всё-же где написано как это сделать не пересобирая весь Harbour ?)

 Отправлено: 01.11.13 15:15. Заголовок: vladru Лезем в папк..

vladru
Лезем в папку harbour\contrib\rddads\
Там создаем батник (даю свой вариант....правьте)

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

После правки запускаем его и должен собраться RddAds

 Отправлено: 01.11.13 18:44. Заголовок: У заказчика оказывае..

У заказчика оказывается ADS 7.1 под Novell. Меня чего-то сглючило на 5.X.

- Я скачал acesdk 7.1. с сайта http://devzone.advantagedatabase.com/
- пересобрал rddads с ним как указал Dima

Заказчик запускает у себя на машине где стоит ADS Novell такой скрипт:
#include "ads.ch"
proc main
REQUEST ADS
rddSetDefault("ADSCDX")
SET SERVER REMOTE
? AdsConnect("Z:") // .F.
? AdsConnect("z:") // .F.
? AdsConnect("\\Server") // .F.
return

Результат удручает - к ADS серверу не подключается.
Что может быть не так?

 Отправлено: 01.11.13 18:53. Заголовок: а если добавить rdd..

а если добавить
rddRegister("ADS",1)
AdsRightsCheck(.F.)
и юзануть AdsIsServerLoaded()

Netware у него по IPX работает ?
Novell Client на рабочей станции стоит ?

 Отправлено: 01.11.13 18:55. Заголовок: vladru пишет: AdsCo..

vladru пишет:

цитата:

AdsConnect("\\Server")

Тут этого видимо мало будет и нужно указать том еще

 
 Parameters 
  
 pucServerName (I) 
  Full file path of the data dictionary file, server name, or drive letter to which to connect. 
  If the application uses a server name as the parameter, it must include the share name for Windows,  
 path from the root for Linux, or volume name for Novell NetWare as well.  
 For example, use "\\server\share", "\\server\path_from_root", or "\\server\volume".  
 Linux users can also connect to the local machine using a direct path such as "/mydata".  
 All Advantage clients and servers consider either slash type (forward or backslash) to be 
  a path delimiter, this means you could also use a connection path with forward slashes,  
 such as "//server/volume".  
 Linux users should also reference the REPLACE_UNC_SERVER section in the ads.ini documentation. 
  
 

PS
я когда юзал ADS по IPX из Harbour то AdsConnect вообще не использовал

и пробни \harbour\contrib\rddads\tests\manage.prg только там поправить придется кое что

Вместе со своим EXE давал ему еще и
"ansi.chr","extend.chr","ace32.dll","axcws32.dll" ?

 Отправлено: 01.11.13 19:44. Заголовок: Dima пишет: Вместе ..

Dima пишет:

цитата:

Вместе со своим EXE давал ему еще и "ansi.chr","extend.chr","ace32.dll","axcws32.dll" ?

Да, давал.

цитата:

я когда юзал ADS по IPX из Harbour то AdsConnect вообще не использовал

Может дадите примерчик как подключались/пользовали ?
Или Вы просто имеете ввиду что никаких доп.движений не делали. Только
REQUEST ADS
SET SERVER REMOTE
а дальше работаем с базой как обычно

цитата:

Netware у него по IPX работает ? Novell Client на рабочей станции стоит ?

Да, да.

Я еще не понимаю как указать что надо IPX использовать. Вроде, из документации, ads-клиент это сам должен понять...
Может каие-то dll нужны или доп.движения ?

Насчет AdsIsServerLoaded:

#include "ads.ch"
proc main
REQUEST ADS
rddRegister("ADS",1)
AdsRightsCheck(.F.)
rddSetDefault("ADSCDX")
SET SERVER REMOTE
? "AdsIsServerLoaded result:", AdsIsServerLoaded() // ответ 0
return

Ну вроде 0 это как раз и хорошо?
т.к. согласно ADS.HLP: AdsIsServerLoaded возвращает целое число и AE_SUCCESS как раз 0 (посмотрел в ace.h)
(правда согласно тому же ADS.HLP: AdsConnect тоже должна возвращать целое, а в harbour возвращает почему-то логическое....)
еще, кстати, в ADS.HLP написано AdsConnect устарела и надо использовать AdsMgConnect

manage.prg - поправил/построил, но испытать на Novell уже не успел (выходные)

 Отправлено: 04.11.13 18:27. Заголовок: Dima Спасибо за Ваши..

Dima
Спасибо за Ваши ответы. Пока разобрался, но может еще будут вопросы....
На сегодня выводы такие:

1. AdsConnect использовать, наверно, не стоит т.к. она возвращает только T/F. Вместо неё есть AdsMgConnect. Она возвращает 0 или код ошибки.
2. Описание ошибки есть в ADSERROR.HLP для старых ACE или в advantage.chm для 9. Так я узнал что моя проблема была в том, что версия клиента была старше версии сервера (ошибка 6316)
3. Если есть вопросы по подключению к ADS сначала см. \contrib\rddads\tests\manage.prg

 Отправлено: 03.04.14 14:43. Заголовок: Похоже фича dborderi..

Похоже фича dborderinfo(DBOI_SKIPWILD,,,cPattern) в ADS не работает...
Печалька.

 Отправлено: 03.04.14 20:28. Заголовок: вроде уже писали зде..

вроде уже писали здесь об этом - не работает.
http://clipper.borda.ru/?1-4-580-00000368-000-0-0
мож через sql запрос можно вывернуться ?

 Отправлено: 03.04.14 21:01. Заголовок: Haz пишет: мож чере..

Haz пишет:

цитата:

мож через sql запрос можно вывернуться ?

может но не знаком с ними

 Отправлено: 04.04.14 07:24. Заголовок: Dima пишет: не знак..

Dima пишет:

цитата:

не знаком

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

PS для твоего случая в синтаксисе есть оператор LIKE cPattern

 Отправлено: 04.04.14 10:06. Заголовок: Haz пишет: PS для т..

Haz пишет:

цитата:

PS для твоего случая в синтаксисе есть оператор LIKE cPattern

Можешь примерчик показать ?

 Отправлено: 04.04.14 11:19. Заголовок: Haz Нашел инфу на ф..

Haz
Нашел инфу на форуме. Сделал вот так , но AdsCreateSQLStatement(,2) выдает .F.

 
 proc main 
 #include "ads.ch" 
 local sQlStr 
 REQUEST ADS 
 rddSetDefault( "ADSCDX" ) 
  
 REQUEST HB_LANG_RU866  
 HB_LANGSELECT("RU866") 
 REQUEST HB_CODEPAGE_RU866 
 hb_cdpSelect( "RU866" ) 
  
 SET SERVER LOCAL  
 AdsSetFileType(ADS_CDX) 
 AdsRightsCheck(.F.)  
  
 use volvo exclusive new 
 index on indeks to ttt 
 ? AdsConnect( ".\" ) // .T. 
 ? AdsCreateSQLStatement(,2) // .F. 
 sQlStr:='SELECT * FROM volvo WHERE indeks Like "%44%"' 
 ? AdsPrepareSQL(sQlStr) // .F. 
 ? AdsExecuteSQL(sQlStr) // .F. 
  
 wait 
  
 return 
 

 Отправлено: 04.04.14 15:24. Заголовок: Dima пишет: use vo..

Dima пишет:

цитата:

use volvo exclusive new index on indeks to ttt ? AdsConnect( ".\" ) // .T. ? AdsCreateSQLStatement(,2) // .F. sQlStr:='SELECT * FROM volvo WHERE indeks Like "%44%"' ? AdsPrepareSQL(sQlStr) // .F. ? AdsExecuteSQL(sQlStr) // .F.

Не много переделал

 
 select 100 
 ? AdsConnect( ".\" ) // .T. 
 ? AdsCreateSQLStatement(,2) // .T. 
 sQlStr:='SELECT * FROM volvo WHERE indeks Like "%44%"' 
 ? AdsPrepareSQL(sQlStr) // .T. 
 ? AdsExecuteSQL(sQlStr) // по прежнему .F. , почему ?   
 ? AdsGetLastError() // 7200 
  
 

 Отправлено: 04.04.14 16:56. Заголовок: только дошел до комп..

только дошел до компа.
делал примерно так

IF AdsCreateSqlStatement( cAlias, 3 ) // использовал ADT а не CDX - думаю не принципиально
IF ADSVERIFYSQL( cSql )
AdsExecuteSqlDirect( cSql )
ELSE
END

позже попробую примерчик подробнее

 Отправлено: 04.04.14 17:03. Заголовок: Haz Ради теста чека..

Haz
Ради теста чеканул
sQlStr:="SELECT * FROM VOLVO WHERE FIRMA=7"

? ADSVERIFYSQL(sQlStr) // .F. що за на фик..........вроде ж нормальный запрос

 Отправлено: 04.04.14 17:09. Заголовок: Dima пишет: що за н..

Dima пишет:

цитата:

що за на фик

AdsCreateSqlStatement( cAlias, 3 )

Дима, попозже ок ? полно дел по дому )

 Отправлено: 04.04.14 17:18. Заголовок: Haz OK подожду Пер..

Haz
OK подожду

Переделал снова пример , результат нулевой

 
 proc main 
 #include "ads.ch" 
 local hh 
 local sQlStr 
 REQUEST ADS 
 rddSetDefault( "ADSCDX" ) 
  
 REQUEST HB_LANG_RU866  
 HB_LANGSELECT("RU866") 
 REQUEST HB_CODEPAGE_RU866 
 hb_cdpSelect( "RU866" ) 
  
 SET SERVER LOCAL  
 AdsSetFileType(ADS_CDX) 
 ? AdsConnect(".\") // .t. 
 ? hh:=AdsConnection() // 17005400 
  
 use volvo new 
  
  
 Select 0 
  
 ? AdsCreateSQLStatement("test",2) // .t. 
  
 sQlStr:="SELECT * FROM VOLVO WHERE FIRMA=7" 
  
 ? ADSVERIFYSQL(sQlStr) // .f. 
 ? AdsExecuteSqlDirect(sQlStr) // .f. 
  
  
 ? AdsGetLastError() // 7200 
 ? alias(),reccount()  
 wait 
  
 return 
 

ЗЫ
чисто ради интереса попробовал работу функций типа SP_* , работают однако

 
 cAlias := "cursor" 
 cSql := "EXECUTE PROCEDURE sp_mgGetInstallInfo()" 
 ADSCreateSQLStatement( cAlias,2 ) 
 AdsExecuteSQLDirect( cSql ) 
  
 While !(cAlias)->( eof() ) 
 *    ? (cAlias)->Username, (cAlias)->Address, (cAlias)->DictionaryUser 
 ? (calias)->Version 
     (cAlias)->( dbSkip() ) 
 End 
  
 

 Отправлено: 04.04.14 18:40. Заголовок: Дима почту скинь , ..

Дима почту скинь , часов в 9 отправлю пример работающий
в конфу позже выложу

PS. А пока - почему может не работать
1. Нужно создать словарь
ADSDDCREATE( cDictionary,, "Словарь данных ADSDEMO" )
2 создать пользователя
AdsDDCreateUser(, "Guest", "" , "Пользователь Guest" )

3 пихнуть в словарь базу
AdsDDaddTable( "AdsDemoAT", "AdsDemoAT.dbf", "" )

4 не использовать в запросе двойную ковычку " а только '
cSql := "SELECT * FROM AdsDemoAT WHERE LAST Like '%m%'"

5 цепляться к словарю
adsConnect60( cDictionary, 0, "ADSSYS", '', 7, @hConnection )

и только потом запрос SQL

 Отправлено: 04.04.14 18:54. Заголовок: Да оно и без словаря..

Да оно и без словаря работает.
Вот в этой теме я смотрел примеры , там словарем и не пахнет http://clipper.borda.ru/?1-4-0-00000430-000-10001-0-1251195209

 Отправлено: 04.04.14 20:57. Заголовок: Dima пишет: ЗЫ поч..

Dima пишет:

цитата:

ЗЫ почта

улетело, в конфу позже

 Отправлено: 04.04.14 21:14. Заголовок: да получил , спасибо..

да получил , спасибо !
я полагал что и без словаря все должно работать......
ушел думать.

 Отправлено: 05.04.14 09:59. Заголовок: Haz я пожалуй вылож..

Haz
я пожалуй выложу пример.

 
 proc main 
 #include "ads.ch" 
 local sQlStr 
 local cpath:=hb_CurDrive()+":\"+CurDir()+"\" 
 local cDictionary:=cpath+"temp.add" 
  
 REQUEST ADS 
 rddSetDefault( "ADSCDX" ) 
  
 REQUEST HB_LANG_RU866  
 HB_LANGSELECT("RU866") 
 REQUEST HB_CODEPAGE_RU866 
 hb_cdpSelect( "RU866" ) 
  
 SET SERVER LOCAL  
 AdsSetFileType(ADS_CDX) 
    if !AdsConnect(cpath)  
 ? "Не могу подключится к ADS" 
 quit 
    endif 
  
 use VOLVO shared new // можно не открывать но у меня в задаче эта база открыта 
  
  
  
        if !file(cDictionary) 
 ADSDDCREATE( cDictionary,, "Словарь данных ADSDEMO" ) 
        endif 
   
  IF adsConnect60( cDictionary, 0, "ADSSYS", '', 7, ) 
 *      AdsDDCreateUser(, "Guest", "" , "Пользователь Guest" ) // и без нее работает 
       AdsDDaddTable( "volvoAT", cpath+"volvo.dbf", "" ) 
  ELSE 
 ? "Ошибка подключения к словарю данных " 
  ENDIF 
  
  
  
 Select 0 
  
 AdsCreateSQLStatement(,2)  
  
 sQlStr:="SELECT * FROM volvoAT WHERE indeks Like '%.44.07%'" 
 ADSVERIFYSQL(sQlStr)  
 AdsExecuteSqlDirect(sQlStr)  
  
 ? alias(),reccount(),fcount() 
 wait 
 browse() 
 return 
  
 

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

 Отправлено: 05.04.14 10:40. Заголовок: Dima пишет: я пожал..

Dima пишет:

цитата:

я пожалуй выложу пример.

в случае с SQL вот это можно не писать

if !AdsConnect(cpath)
? "Не могу подключится к ADS"
quit
endif

т.к. подключаемся через словарь и путь есть в пути словаря

use VOLVO shared new // можно не открывать но у меня в задаче эта база открыта

открывать таблицу не надо вообще , сам долго не мог к этому привыкнуть )))
таблица - это то из чего делаем выборку и к ней доступ в SQL по имени и через словарь ( если таких словарей несколько )
а рабочая область получается в результате запроса - называется курсором , в зависимости от типа может быть редактируемой или толькочтение.
Следовательно SHARED - тоже лишнее ( через сервер адс курсор и так всегда будет в режиме шары )
Если записывать значения в таблицу через UPDATE Volvo SET indeks = 100 то и Rlock() не требуется ( сервер сам все делает )
Если через (cAlias)->indeks := 100 - тогда Rlock() нужен

Если коротко - то
есть таблица и есть курсоры с нее , меняя значение в курсоре ( в раб области ) - меняем таблицу , или напрямую меняем таблицу без создания курсора )))


AdsDDCreateUser(, "Guest", "" , "Пользователь Guest" ) // и без нее работает
работает потому что в примере использовал системного пользователя ADSSYS - у него права админа
а так словарю можно нарезать пользователей и дать им разные права на таблицы , разные пароли на вход и т.д.


Dima пишет:

цитата:

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

в адс через запрос есть только ROWID , Recno() через запрос вроде не получить.
я в таблицах использую поле ID типа autoinc ( нагляднее чем ROWID ).

А зачем список номеров записей нужен , уверен есть варианты запроса через ROWID


PS. Если работать со словарями - оч. рекомендую поставить бесплатную Advantage Architect для управления базами

 Отправлено: 05.04.14 10:46. Заголовок: Haz пишет: А зачем ..

Haz пишет:

цитата:

А зачем список номеров записей нужен

например если в выборке я нашел нужную мне запись и нажав на ней ВВОД оказался бы на нужной записи в базе VOLVO
что то типа VOLVO->(dbgoto(ADSSQL->recs RECNO() из VOLVO))

 Отправлено: 05.04.14 10:55. Заголовок: Dima пишет: что то ..

Dima пишет:

цитата:

что то типа VOLVO->(dbgoto(ADSSQL->recs RECNO() из VOLVO))

так сработает - т.к. в курсоре есть RECNO()

я в данном случае использую динамический поиск - т.е. перестраиваю курсор самой базы ( в твоем случае VOLVO ) под условие нужного SQL
или через ADSSetFilter - тоже быстро

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

Haz пишет:

цитата:

так сработает - т.к. в курсоре есть RECNO()

Да но это RECNO() не то.
Допустим в результате SQL выборки попали 2 записи с RECNO() 5677 и 10000999 (из базы VOLVO).
Как мне узнать эти RECNO в самой выборке ?

Вот бы как то в выборку вставить колонку в которой будет RECNO() из базы VOLVO.
В теории мне только эта колонка и нужна так как дальше я смогу по этой выборке ходить
связав ее по RELATION c базой VOLVO

 Отправлено: 05.04.14 11:12. Заголовок: Haz пишет: или чере..

Haz пишет:

цитата:

или через ADSSetFilter - тоже быстро

То же им пользуюсь но нужно в уже существующем фильтре выбрать вхождения строк в названия к примеру
и это работает не так быстро как с SQL запросом

 Отправлено: 05.04.14 11:16. Заголовок: Recno в случае редак..

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

 Отправлено: 05.04.14 11:21. Заголовок: не совпадают проверя..

не совпадают
проверял так
AdsExecuteSqlDirect(sQlStr)


? volvo->(recno()),ADSSQL->(recno()) // 1,1
adssql->(dbskip())
? volvo->(recno()),ADSSQL->(recno()) // 1,2

 Отправлено: 05.04.14 11:25. Заголовок: Haz пишет: Вот бы к..

Haz пишет:

цитата:

Вот бы как то в выборку вставить колонку в которой будет RECNO() из базы VOLVO.

только изменить структуру базы , добавив везде поле ID тип Integer ( Autoinc нет в CDX )а в подчиненную еще и ID_MASTER тип Integer
( перекроить структуру и перезаполнить ID можно теми же запросами через ARC32.EXE )

 Отправлено: 05.04.14 11:28. Заголовок: Haz пишет: ? volvo-..

Haz пишет:

цитата:

? volvo->(recno()),ADSSQL->(recno()) // 1,1 adssql->(dbskip()) ? volvo->(recno()),ADSSQL->(recno()) // 1,2

так ты в вольво стоишь на месте а адсскуль - скипанул на единицу

попробуй через запрос найти любую уникальную запись вольво и сравни recno по ней

 Отправлено: 05.04.14 11:50. Заголовок: я не про то ;) у ADS..

я не про то ;)
у ADSSQL свои recno() а в VOLVO свои.
И мне нужно сидя в бровсе в ADSSQL при выходе из него оказаться на такой же записи как и в базе ADSSQL.
То есть сидел я выборке на коде товара OC2187E-ERT то после выхода должен оказаться в базе VOLVO
тоже на коде OC2187E-ERT

 Отправлено: 05.04.14 12:05. Заголовок: Dima пишет: у ADSSQ..

Dima пишет:

цитата:

у ADSSQL свои recno() а в VOLVO свои.

ТОЧНО ((((

тогда через ID или можно через ROWID попробовать

через ROWID можно, но эта псевдоколонка должна быть определена явно , причем адс уверяет что это выход )))
End users and application developers can use rowids for several important functions:

· Rowids are the fastest means of accessing particular rows.

· Rowids can be used to see how a table is organized.

· Rowids are unique identifiers for rows in a given table.


В качестве минуса - нельзя строить запрос SELECT * , нужно с перечислением полей
This pseudocolumn is not evident when listing the structure of a table by executing a SELECT * FROM . . . statement. However, each row's address can be retrieved with an SQL query using the reserved keyword ROWID as a column name, for example:

второй минус RECNO() сначала придется поймать фильтром , а только потом GoTO ((((

 Отправлено: 05.04.14 13:43. Заголовок: почитал help DBDBDBT..

почитал help
DBDBDBTABTABBrXAAN

The first six characters of the ROWID represent the database ID. It is based on the connection path. The next six characters of the ROWID represent the table ID. If the table is a database table, that is, a table that belongs to an Advantage Data Dictionary, the table ID represents the object ID of the table in the data dictionary. If the table does not belong to an Advantage Data Dictionary, the table ID is constructed using the name of the table file. The last six characters represent the record number of the row in the table.

Получается что BrXAAN RECNO() из базы VOLVO , но как его к цифре привести не понял

Как то так но это не все.........
hb_base64Decode(right(rowid,6)) нужна функция что в целое переведет

 Отправлено: 05.04.14 14:37. Заголовок: Dima пишет: но как ..

Dima пишет:

цитата:

но как его к цифре

Вот тут говорят с версии 11 уже есть функция , а для версий ниже предлагается самописная ((( - я ее расшифровать не смог (((
http://devzone.advantagedatabase.com/forum/questions/3311/select-record-by-rowid

 Отправлено: 05.04.14 14:41. Заголовок: Haz пишет: а для ве..

Haz пишет:

цитата:

а для версий ниже предлагается самописная

Спасибо. Но не понял как ее конвертнуть в Habrour

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

Dima пишет:

цитата:

Но не понял как ее конвертнуть в Habrour

аналогично

хотя можно порыть тут
the last 6 chars of a rowid is the physical recno in base64 code.

 Отправлено: 05.04.14 15:01. Заголовок: Haz пишет: хотя мож..

Haz пишет:

цитата:

хотя можно порыть тут the last 6 chars of a rowid is the physical recno in base64 code.

Писал выше что пробовал hb_base64Decode(right(rowid,6)) , но это не то так как на выходе получаем далеко не цифры

 Отправлено: 05.04.14 15:06. Заголовок: После Decode64 скоре..

После Decode64 скорее всего получим cBinary который нужно скормить еще какой нить BIN2I() ... будут цифры но опять не те ((((

 Отправлено: 05.04.14 15:08. Заголовок: кормил всем BIN2* вс..

кормил всем BIN2* все мимо

 Отправлено: 05.04.14 15:16. Заголовок: Вот сюда корми F..

Вот сюда корми



FUNCTION Decode64(cCode)
****************************************************************************
STATIC cString := "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
LOCAL nStevec
LOCAL nReturn := 0
LOCAL nLen := Len(cCode)

IF Empty(cCode) .OR. Valtype(cCode)=='U' ; RETURN 0 ; ENDIF

FOR nStevec := 1 TO nLen
nReturn := nReturn*64 + (At(Substr(cCode, nStevec,1), cString)-1)
NEXT
RETURN nReturn


Взято тут
http://nntp-archive.sybase.com/nntp-archive/action/article/%3C4550525e@solutions.advantagedatabase.com%3E

 Отправлено: 05.04.14 15:20. Заголовок: а вот это прям в дес..

а вот это прям в десятку