| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Shopot ©   (2005-08-20 09:04:00) 

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

---

TG   (2005-08-20 17:48:00) [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). Код ошибки

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

---

Наверх