[DUG] Detecting braodband connection

[Alister Christie]

Yes I use a similar function, which I probably obtained from the same 
place ;-)
This is the first time I've looked at this piece of code for a few 
years, it would certainly look a bit different if I wrote now.

type
  TICType = (TICTNone, TICTModem, TICTLan, TICTProxy);

function Internet_Connection_Type : TICType;
var
  Flags : Dword;
begin
  Result := TICTNone;
  if InternetGetConnectedState (@Flags, 0)
  then begin
       if (Flags and INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM
       then Result := TICTModem;
       if (Flags and INTERNET_CONNECTION_MODEM_BUSY) = 
INTERNET_CONNECTION_MODEM_BUSY
       then Result := TICTModem;
       if (Flags and INTERNET_CONNECTION_LAN  ) = INTERNET_CONNECTION_LAN
       then Result := TICTLan;
       if (Flags and INTERNET_CONNECTION_PROXY) = INTERNET_CONNECTION_PROXY
       then Result := TICTProxy;
  end;
end;

Alister Christie
Computers for People
Ph: 04 471 1849 Fax: 04 471 1266
http://www.salespartner.co.nz
PO Box 13085
Johnsonville
Wellington 



Conor Boyd wrote:
> I've used this function in the past with success on dial-up.
>
> http://www.garystimson.co.uk/delphi.html#18
>
> HTH,
>
> Conor
>
> -----Original Message-----
> From: delphi-bounces at delphi.org.nz [mailto:delphi-bounces at delphi.org.nz]
> On Behalf Of Robert martin
>
> I have an app that successfully checks for updates and automatuically
> updates itself.  However for modem users I don't want it to
> automatically bring up the dial up screen each time I start the app.  I
> would like to detect the lack of broadband and bring up a prompt before
> attempting to update.
>
> Any suggestions?
>
> _______________________________________________
> NZ Borland Developers Group - Delphi mailing list
> Post: delphi at delphi.org.nz
> Admin: http://delphi.org.nz/mailman/listinfo/delphi
> Unsubscribe: send an email to delphi-request at delphi.org.nz with Subject: unsubscribe
>
>