 |
Часто бывает необходимым произвести соединение с сетью, используя контроллер удаленного доступа. Именно это и делает приведенная ниже программа. Кстати, это хороший пример использования DLL. Пример взят из книги "Эффективная работа с СУБД" А. Горева и Р. Ахаяна.
PROCEDURE RemoteNet
*************************************************************
* Activate Remote network connection
* by Andrey Gorev (from the book "Database managment system")
*------------------------------------------------------------
* NOTES:
* Connection must be present!
* At this example is has name "Darial"
* My own login is "alef"
* and my own password... hmm... I don't say it!
*************************************************************
declare integer RasDial in rasapi32 ;
string DialExtetions, ;
string cPhoneboolfile, ;
string @ cParameters, ;
integer nCallBack, ;
string cCallBack, ;
string @ nConnHandle
nConnHandle = chr(0)+chr(0)+chr(0)+chr(0)
*-- Replace your values here
cConnName = "Darial" && Your connection here!
cPhone = "500750" && Phone number of ISP
cUserName = "alef" && Login name
cPassWord = "" && Password here!
cDomain = "" && Domain name
cParam = chr(28)+chr(4)+chr(0)+chr(0)+;
padr(cConnName+chr(0), 256+1)+;
padr(chr(0), 128+1)+;
padr(chr(0), 128+1)+;
padr(cUserName+chr(0), 256+1)+;
padr(cPassword+chr(0), 256+1)+;
padr(cDomain+chr(0), 15+1)+" "
nRes = RasDial(NULL, NULL, @cParam, 0, NULL, @nConnHandle)
|
|
Конференция
