FoxPro Club Главная

Конференция Решения Фотоальбом Сайт М.Дроздова Статьи Файловый архив Книга Visual FoxPro 9.0 Русский Help для Visual FoxPro
Пользователей: 9173
Вход
Удаленное соединение с сетью (например, с провайдером Интернет)

Часто бывает необходимым произвести соединение с сетью, используя контроллер удаленного доступа. Именно это и делает приведенная ниже программа. Кстати, это хороший пример использования DLL


 
Прислал: А. Горев l   Категория: Сети (Интернет и др.)


Часто бывает необходимым произвести соединение с сетью, используя контроллер удаленного доступа. Именно это и делает приведенная ниже программа. Кстати, это хороший пример использования 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)   
  

 
Сделайте оценку этого решения Плохо Удовлетворительно Так себе Хорошо Отлично Текущая оценка: (4.953)
Дополнения пользователей
Удаленное соединение с сетью (например, с провайдером Интернет)
[+][?]
Rava
30.04.01 17:43:44

Пример то хорош, но...Необходимо задать априори номер телефона, службы DUN и т.д. А если не
известно?
[Дополнить]



© 2000-2017 Fox Club 
При размещении любых материалов с сайта на других ресурсах- прямая ссылка на www.foxclub.ru обязательна
Яндекс.Метрика