Uppkoppling

HAr en version av Delphi3. Tänkte göra en funktion som kollar ifall det finns en aktiv uppkoppling, försökte då använda WinInet, men detta gick ej.
Någon som har någon annan lösning?

Andreas

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