Как использовать RRAS?

← →
Shopot © (2005-08-20 09:04) [0]

У меня проблема. Мне надо сделать так, чтобы клиент дозванивался к компу, и устанавливалось соединение TCP/IP как будто он звонит провайдеру. На главном компе Win2000 Server. Что для этого надо сделать?

← →
TG © (2005-08-20 17:48) [1]

Для начала тебе нужен модуль с функциями RasAPI
(http://www.cobans.net/files/download.php?a=rasdecrypt).

Потом можешь использовать функции:

RasCreatePhoneBookEntry

Функция позволяет запустить диалог создания нового соединения. Функции нужно передать два параметра:

1). Handle дочернего окна (допустим формы)
2). Телефонная книга

Если функция выполнится успешно, то она вернет 0.

Пример:
var I:Integer; begin I:=RasCreatePhoneBookEntry(MainForm.Handle, nil); if I=0 then ShowMessage(‘Соединение создано успешно!’);
RasEditPhoneBookEntry

Функции отображает стандартный диалог свойств соединения. Ей нужно передать три параметра:

1). Handle дочернего окна (допустим формы)
2). Телефонная книга
4). Имя соединения свойства которого нужно отобразить

В случае успешного выполнения функция вернет 0.

Пример:

RasEditPhoneBookEntry (MainForm.Handle,nil,’ТЕЛЕГРАФ’);

RasDeleteEntryA

Эта функция позволяет удалить соединение. Функции нужно передать два параметра:

1). Телефонная книга
2). Имя соединения которое нужно удалить

Если функции выполнится успешно, то она вернет 0.

Пример
var I:Integer; begin I:=RasDeleteEntryA(nil, ‘ТЕЛЕГРАФ’); if I=0 then ShowMessage(‘Соединение успешно удалено’);
RasRenameEntryA

Функция позволяет изменить имя соединения. Ей нужно передать три параметра:

1). Телефонная книга
2). Старое имя соединения
3). Новое имя для соединения

В случае успешного выполнения функция вернет 0.

Пример:
var I:Intger; begin I:=RasRenameEntryA(nil,’ТЕЛЕГРАФ’,’Провайдер’); if I=0 then ShowMessage(‘Имя для соединения изменено’);
RasDial

Функция начинает пытаться устанавливать соединение. То есть после вызова этой функции модем начинает набирать номер
твое провайдера. Этой функции нужно передать аж шесть параметров:

1). Должно быть nil
2). Телефонная книга
3). Структура типа TRasDialParamsA
4). Должно быть 0
5). Обработчик событий состояния
6). Переменная типа THRasConn

Если функция выполнится успешно, то она вернет 0, в переменной типа THRasConn будет указатель на установленное
соединение.

RasHangUP

Функция завершает установленное соединение. Ей нужно передать всего один параметр:

1). Указатель на установленное соединение

RasGetErrorString

Функция получает тип произошедшей ошибки при установке связи. Например если ты ввел неправильный пароль, или
телефонная линия занята. Функции нужно передать три параметра:

1). Код ошибки
2). Буфер для хранения описания ошибки
3). Размер буфера

GetStatusString

Функция позволяет получить текущие состояние соединения. Функции нужно передать два параметра:

1). Код статуса соединения
2). Код ошибки

Функция возвращает состояние соединения.

Как использовать RRAS? Найти похожие ветки