Часто бывает необходимым произвести соединение с сетью, используя контроллер удаленного доступа. Именно это и делает приведенная ниже программа. Кстати, это хороший пример использования DLL
Часто бывает необходимым произвести соединение с сетью, используя контроллер удаленного доступа. Именно это и делает приведенная ниже программа. Кстати, это хороший пример использования DLL. Пример взят из книги "Эффективная работа с СУБД" А. Горева и Р. Ахаяна. [code] 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) [/code]
Автор: А. Горев l