Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.11.21;
Скачать: CL | DM;

Вниз

Как узнать, к какому провайдеру сейчас подключен комп?   Найти похожие ветки 

 
Olphi ©   (2002-09-24 19:38) [0]

Нужно узнать: какое соединение Dialup используется в данный момент (т.е имя соединения) и сколько времени была сессия активной.


 
Ihor Osov'yak ©   (2002-09-24 19:50) [1]

На первую часть вопроса:
const
winetdll = "wininet.dll";

{ from the W2K SDK }
function InternetGetConnectedStateEx(lpdwFlags: LPDWORD;
lpszConnectionName: LPSTR;
dwNameLen: DWORD;
dwReserved: DWORD): BOOL;
stdcall; external winetdll name "InternetGetConnectedStateExA";



....

function inet_IsConnected(var ConDes: TConDescriptions; var sConName : string): boolean;
var
dwCTp : DWORD;
Buffer : array[0..MAX_PATH - 1] of char;
begin
dwCTp := 0;
Result := InternetGetConnectedStateEx(@dwCTp, Buffer, Sizeof(Buffer)-1, 0);

if Result then sConName := StrPas(Buffer);
end

На вторую - не знаю (по причитне, что таким вопросом не приходилось заниматься) .


 
Olphi ©   (2002-09-26 10:39) [2]

Благодарю. Всё работает прекрасно. Проблема решена. Вот код готовый:

var
sconname:string;

const
winetdll = "wininet.dll";

function InternetGetConnectedStateEx(lpdwFlags: LPDWORD;
lpszConnectionName: LPSTR;
dwNameLen: DWORD;
dwReserved: DWORD): BOOL;
stdcall; external winetdll name "InternetGetConnectedStateExA";
implementation

{$R *.DFM}

function inet_IsConnected: boolean;
var
dwCTp : DWORD;
Buffer : array[0..MAX_PATH - 1] of char;
begin
dwCTp := 0;
Result := InternetGetConnectedStateEx(@dwCTp, Buffer, Sizeof(Buffer)-1, 0);
if Result then sConName := StrPas(Buffer);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if inet_IsConnected then button1.caption:= sconname
else button1.caption:= "Нет соединения";
end;


И вторая проблема решена тоже...



Страницы: 1 вся ветка

Текущий архив: 2002.11.21;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.03 c
3-69147
Crok
2002-10-31 11:33
2002.11.21
Stack overflow


1-69421
Tornado
2002-11-11 11:06
2002.11.21
Flash


3-69126
kserg@ukr.net
2002-10-24 18:02
2002.11.21
подходы в разработке БД


14-69498
race1
2002-11-01 17:58
2002.11.21
умная книжка


1-69426
Vetalar
2002-11-10 21:47
2002.11.21
Как ограничить количество знаков после запятой?