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

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

Как узнать, ;к какому провайдеру сейчас подключен комп? [D5, Win95/98]

Olphi ©   (2002-09-24 19:38:00) 

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

---

Olphi   (2002-09-26 10:39:00) [1]

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

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;


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

---

Ihor Osov'yak   (2002-09-24 19:50:00) [2]

На первую часть вопроса:
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

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

---

Наверх