|
 Forum
Grundkurs
»Introduktion
»Snabbguide
»Komponenter
»Händelser
»Strängar
»Räkna med Delphi »Egna
typer
»Selektion
»Iteration
»Menyer
»Funktioner
»Arraystrukturer
Tips & Tricks
»Nya tips
»Blandat
»Databaser
»Filer
»Forms
»Grafik
»Internet
»Komponenter
»Matematik
»Multimedia
»Objekt/ActiveX
»Skrivare
»Strängar
»System
»Mest lästa tips
Artiklar
»Delphi och ADO
»Bygga en DLL
»Skapa en enkel rapport
»Hantera registret
»Enheter, units
»Klassen TCanvas
»Använd LookUp Controls
 Nya
tips
 Lägg
till tips
 Delphilänkar
 Gästbok
|
|
|
Testa om du är uppkopplad mot internet
|
Kategori: Internet
Inlagt: 2006-06-03
Läst: 1418
Inlagt av: Staffan Berg
|
|
Beskrivning |
|
Du kan med fördel använda TCP-komponenten för att testa om du är uppkopplad mot internet. Om den returnerar "0.0.0.0" så finns det ingen anslutning.
|
|
Kod |
procedure TForm1.Button1Click(Sender: TObject);
begin
if TCP1.LocalIp = '0.0.0.0' then
ShowMessage('Du är inte uppkopplad!');
end;
|
|
|