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

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

RAS под Win98 - RasGetProjectionInfo - Определить IP Сервера [D6, Win95/98]


AlexRush ©   (2004-05-11 13:55:00) 

Всем доброго времени суток!

При попытке определить ИП серевера с пом RasGetProjectionInfoвсегда эррор ERROR_PROTOCOL_NOT_CONFIGURED.

и для RASPPPIP без szServerIpAddress и с оным....

Вникал в If RasGetProjectionInfo is called prior to the RASCS_Authenticated state, it returns ERROR_PROTOCOL_NOT_CONFIGURED.- так та же ошибка, даже если коннекция уже установлена стандартным диалером.
кстати, IPCONFIG ничего про это соединение не говорит, а в самом окне статуса в списке протоколов только PAP
Может дело в настройках конекции или 9х _вообще_ не может получить IP сервера ?

Мужики, помогите, запарился вкрай..


AlexRush   (2004-05-12 10:58:00) [1]

Digitman ©   (11.05.04 16:09) [3] >> ...не удосуживаешься ни получить ни...- не ни не че ?

Код абсолютно рабочий. Один админ помог - проблема была в замученом наглухо РАСе. Такое с 9х случается нередко, как он сказал.


Digitman   (2004-05-11 16:09:00) [2]


> При попытке определить ИП серевера с пом RasGetProjectionInfo
> всегда эррор ERROR_PROTOCOL_NOT_CONFIGURED


не выдумывай небылиц.
судя по ПРИВЕДЕННОМУ коду ты даже не удосуживаешься ни получить ни RasGetProjectionInfoA()


AlexRush   (2004-05-11 15:57:00) [3]

Вот:



RASPPPIP = packed record
   dwSize   :DWORD;
   dwError  :DWORD;
   szIpAddress:packed array [00..15] of Char;
   szServerIpAddress:packed array [00..15] of Char;
end;
PRASPPPIP = ^RASPPPIP;

TRasGetProjectionInfoA_9x =  function(
                                   hConn: THRasConn;
                                   rasproj: TRasProjection;
                                   lpProjection: Pointer;
                                   var lpcb: Longint
                                   ): Longint; stdcall;

var RasGetProjectionInfoA_9x  : TRasGetProjectionInfoA_9x;
......
initialization
RasGetProjectionInfoA_9x:=GetProcAddress(LoadLibraryA('rasapi32.dll'),'RasGetProjectionInfoA');

.........................
var
    _rasppip:RASPPPIP;
    ipcb:LONGINT;
    pjirv:DWORD;
.........

// 9x get projecting info: IP SERVER
ZeroMemory(@_rasppip,sizeof(_rasppip));
_rasppip.dwSize:=sizeof(_rasppip);
ipcb:=_rasppip.dwSize;

if msrm.ActiveConnections[0]='354545485' then exit;

pjirv:=
RasGetProjectionInfoA_9x(msrm.RasConHandle,
                         RASP_PppIp,
                         @_rasppip,
                         ipcb);

//{{  pjirv == ERROR_PROTOCOL_NOT_CONFIGURED


Rouse_   (2004-05-11 14:58:00) [4]

Начнем как всегда с простого, показывай код...


Наверх

Титульная страница Поиск, карта сайта Написать письмо