casa
Top.Mail.Ru Yandeks.Metrika
Forum: "WinAPI";
Archivio attuale: 2002.01.08;
Scarica: [xml.tar.bz2];

giù

Come faccio a sapere che la connessione è stabilita? Trova rami simili


Wic   (2001-10-29 18:54) [0]

Как перехватить сообщение стандартной "звонилки" Windows, что соединение (удаленный доступ) установлено?



Dabus   (2001-11-04 20:51) [1]

В реестре ключ есть, он указывает на наличие соединения Dial-Up.

var:
i_connected: byte;
r0: TRegistry;

...
...

r0: = TRegistry.Create;
r0.RootKey: = HKEY_LOCAL_MACHINE;
r0.OpenKey ("Sistema \ CurrentControlSet \ Services \ RemoteAccess", False);
r0.ReadBinaryData ("Connessione remota", i_connected, SizeOf (i_connected));
r0.Free;
// i_connected = 0 nessuna connessione / = 1 c'è una connessione

Successo.



ASTARD   (2001-11-04 22:24) [2]

Еще можно посмотреть здесь в ФАК !



Skiv   (2001-11-05 09:51) [3]

Точно работает. Только с уточнением (i_connected:integer)
в противном случае вылетает с ошибкой.



Oleg1   (2001-11-07 07:53) [4]

unità Unit1;

interfaccia

usa
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;{ Flags for InternetGetConnectedState }
const
INTERNET_CONNECTION_MODEM = 1;
INTERNET_CONNECTION_LAN = 2;
INTERNET_CONNECTION_PROXY = 4;
INTERNET_CONNECTION_MODEM_BUSY = 8;
const
winetdll = "wininet.dll";
function InternetGetConnectedState(lpdwFlags: LPDWORD; dwReserved:DWORD):BOOL; stdcall; external winetdll name "InternetGetConnectedState";
Digitare
TForm1 = class (TForm)
Button1: TButton;
procedura Button1Click (Sender: TObject);

privato
{Dichiarazioni private}
pubblico
{Dichiarazioni pubbliche}
fine;

var
Form1: TForm1;

implementazione

{$ R * .DFM}




funzione InternetConnected: Boolean;
var
dwConnectionTypes: DWORD;
//Result: boolean;
iniziare
dwConnectionTypes := INTERNET_CONNECTION_MODEM+
INTERNET_CONNECTION_LAN+
INTERNET_CONNECTION_PROXY;
Result:= InternetGetConnectedState(@dwConnectionTypes, 0);

fine;

procedura TForm1.Button1Click (Sender: TObject);
iniziare
if InternetConnected = true then showmessage("Есть соединение")else showmessage("Нет соединения");
fine;

fine.



Pagine: 1 tutto il ramo

Forum: "WinAPI";
Archivio attuale: 2002.01.08;
Scarica: [xml.tar.bz2];

al piano di sopra









Memoria: 0.82 MB
Ora: 0.028 c
1-22237
PVR
2001-12-16 17:20
2002.01.08
TListView aiuta a ordinare


3-21986
Sognatore
2001-12-06 15:43
2002.01.08
Campo dati non consentito su DataSet aperto


1-22208
Nikos77
2001-12-15 18:34
2002.01.08
Dimmi come fare la formattazione


6-22273
Denis Titov
2001-10-06 11:50
2002.01.08
Costruire reti locali


14-22411
MadBurro
2001-11-12 20:52
2002.01.08
Chiave cd WinXP





afrikaans albanese Arabic armeno Azero basco bielorusso Bulgarian catalano Cinese (semplificato) Cinese (tradizionale) croato Ceco danese Dutch Inglese estone filippina Finnish Francese
galiziano georgiano Tedesco greco Creolo haitiano ebraico hindi ungherese islandese Indonesian irlandese Italiano Giapponese Korean lettone lituano macedone Malay maltese Norwegian
persiano polacco Portoghese rumeno Russian serbo Slovak sloveno Spagnolo swahili Swedish Thai turco ucraino Urdu vietnamita gallese yiddish bengalese bosniaco
Cebuano esperanto Gujarati Hausa Hmong Igbo giavanese kannada khmer lao latino maori marathi mongolo nepali punjabi somalo tamil telugu Yoruba
zulù
Английский Francese tedesco italiano portoghese russo spagnolo