Uppkoppling

Denna borde funka..

Denna funktion kontrollerar om det finns en aktiv uppkoppling mot internet på din dator.

uses 
  WinInet; 

{...} 

function IsConnectedToInternet: Boolean; 
var 
  dwConnectionTypes: DWORD; 
begin 
  dwConnectionTypes := 
    INTERNET_CONNECTION_MODEM + 
    INTERNET_CONNECTION_LAN + 
    INTERNET_CONNECTION_PROXY; 
  Result := InternetGetConnectedState(@dwConnectionTypes, 0); 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
if IsConnectedToInternet then 
    ShowMessage('Connected.') 
  else 
    ShowMessage('Not Connected.') 
end;

.:: Sebbe

Detta fungerar inte i Delphi 3.
Verkar ej ha stöd för WinInet.

Andreas

AG skrev:

Verkar ej ha stöd för WinInet.

Testa att hämta WinINET.zip nedan det kankse fungerar.
http://www.delphi-jedi.org/APILIBRARY:653408

Har fortfarande ej fått det att fungera, tydligen skall WinInet vara stöd från ver 2.
Får vid "compile" fel i stil med:

Undeclared Identifier INTERNET_CONNECTION_MODEM
Undeclared Identifier INTERNET_CONNECTION_LAN
Undeclared Identifier INTERNET_CONNECTION_PROXY
Undeclared Identifier InternetGetConnectedState

Hela koden är:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, WinInet;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function IsConnected: Boolean;
var
dwConnectionTypes : DWORD;
begin
dwConnectionTypes :=
INTERNET_CONNECTION_MODEM +
INTERNET_CONNECTION_LAN +
INTERNET_CONNECTION_PROXY;
Result := InternetGetConnectedState(@dwConnectionTypes, 0);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if IsConnected then
begin
ShowMessage('CONNECTED.');
end
else
begin
ShowMessage('NOT CONNECTED.');
end;
end;

end.

Jag behöver helt enkelt en snutt som talar om, ifall en uppkoppling finns.

Andreas