Отследить и разорвать соединение

[Михаил Юрьевич]

Как на xe5 отследить что соединение есть, а потом разорвать с интернетом.
На делфи7 делал через rasapi. На xe5 rasapi не компилится.
Или подскажите компонент наподобее rasapi .но для xe5

[Stilet]

Как на xe5 отследить что соединение есть

Точь-в-точь так же ка к и на других делфи.

На xe5 rasapi не компилится.

Ай да пичаль. Пожалуй задавать тебе самый главный вопрос не буду. Посмотрю, догадаешься ли ты или нет.

[Человек_Борща]

RASAPI с MSDN успешно компилится везде.

[Михаил Юрьевич]

Вот такие ошибки

[dcc32 Error] Ras.pas(2237): E2267 Previous declaration of 'RasValidateEntryName' was not marked with the 'overload' directive
[dcc32 Error] Ras.pas(2245): E2267 Previous declaration of 'RasRenameEntry' was not marked with the 'overload' directive
[dcc32 Error] Ras.pas(2253): E2267 Previous declaration of 'RasDeleteEntry' was not marked with the 'overload' directive
[dcc32 Error] Ras.pas(2263): E2267 Previous declaration of 'RasGetEntryProperties' was not marked with the 'overload' directive
[dcc32 Error] Ras.pas(2275): E2267 Previous declaration of 'RasSetEntryProperties' was not marked with the 'overload' directive
[dcc32 Error] Ras.pas(1117): E2065 Unsatisfied forward or external declaration: 'RasGetEntryProperties'
[dcc32 Error] Ras.pas(1142): E2065 Unsatisfied forward or external declaration: 'RasSetEntryProperties'
[dcc32 Error] Ras.pas(1158): E2065 Unsatisfied forward or external declaration: 'RasRenameEntry'
[dcc32 Error] Ras.pas(1171): E2065 Unsatisfied forward or external declaration: 'RasDeleteEntry'
[dcc32 Error] Ras.pas(1184): E2065 Unsatisfied forward or external declaration: 'RasValidateEntryName'

На
function RasDeleteEntry(lpszPhonebook, szEntry: PAnsiChar): Longint;

[Stilet]

О! Догадался. Жаль что не сразу.
Выложи код модуля, где эти ошибки всплывают. Возможно RasDeleteEntry описано дважды без директивы перегрузки, но с разными параметрами. Не исключено что одно описание в одном модуле, а другое в другом.

[Михаил Юрьевич]

Вот ссыль на модуль ТУТ
А всплывает на "Longint"

 function RasDeleteEntry(lpszPhonebook, szEntry: PAnsiChar): Longint;

[Stilet]

Модуль как модуль, но проект придется подпиливать под ХЕ. Рекомендую из этого модуля повыдергивать нужные функции в проект и забыть о нем.