FORBINDELSES TJEK (igen)

Hvad med at prøve at bruge funktionen:
InternetCheckConnection
som findes i WinInet.pas.
Du kan læse på microsofts side om dette kald her:
http://msdn.microsoft.com/workshop/networking/wininet/reference/functions/InternetCheckConnection.asp
Det skulle være den måde at gøre det på, husk blot ikke at sætte den til force connect!

Jeg skal ikke forbindes til internettet jeg skal tjekke om der er forbindelse.

Problemet indtil nu er at "Windows Internet Connect" dialog popper frem!

Det må den ikke

Det burde også være det som InternetCheckConnection gør. Så vidt jeg læser den, så tjekker den om den kan se en internet adr. og hvis den ikke kan, ja så er du vel ikke på internettet? Det smarte ved den er at du kan sætte et flag som angiver netop om den skal connecte eller ej!!

Hey Kim
Kan du ikke give et lille eksempel på brugen? Jeg har nu læs lidt om den og syntes egentlig at den er ret kompleks.

HVis man indsætter kommandoen:
InternetCheckConnection('www.jubii.dk', 1, 2);
Ind i en button OnClick event så sker der ikke rigtigt noget.

Hvordan bruger man de der cardinal-flags?
Ligemeget om jeg er online eller ej så bliver svaret denne kommando:
begin
if InternetCheckConnectionA('www.jubii.dk', 0, 0) = true then
ShowMessage('You are connected')
else
ShowMessage('You arent connected');
end;

Altid "False"

frifoed>> Hvad kobler du på internettet med? Tror der er samme problem med denne funktion, at det kun virker hvis man også kobler på med microsofts connection... :-/

Jeg kan i hvert fald ikke få funktionen til at virke med StofaNet.

retep>Jeg kobler på nettet med modem (RAS) normal dialup.

Hvorfor svarer du ikke Kim? Sidder du fast i kummen?

Long time no see. Jeg var lige optaget af at tjene nogle penge. Men denne her funktion skulle virke!!! Den giver også tilbage hvordan at man connecter!!

procedure TForm1.Button1Click(Sender: TObject);
var
  TmpP:PDWord;
  Tmp:DWord;
  S:String;
begin
  S := '';
  if InternetGetConnectedState(@Tmp, 0) = true then begin
    if ((Tmp mod 2)=0) then
      S := S + 'Lan' else S := S + 'Model';
    ShowMessage('You are connected via: '+S);
  end else begin
    ShowMessage('You arent connected');
  end;
end;

Jeg håber at det var noget som kunne bruges!!

Hvorfor svarer DU ikke frifoed? Er det din tur til at sidde fast?

hi hi beklager men jeg var faktisk også igang med tjene nogle penge på et database-program :-) Jeg kigger lige på det!

lille sprøgsmål hvad er Modal? Og hvorfor bruger du S := '' dette er jo en default værdi!

når der stod model så mente du vel modem ikke?

Man kan vist ikke altid være sikker på at strenge er ''  og ja der menes Modem. Grunden er at jeg var igang med at lave en længere smøre hvor jeg smed en masse i S, før den blev vist (Man kan nemlig tjekke for Proxi server osv.) men så blev jeg doven!!!

Jeg må lige spørge; hvordan finder du ud af hvor man kan få alle disse fede funktioner? Ikke blot fra WinInet men også hvilke units der indeholde guf!

Held, og så ved systematisk at kikke rundt i .pas filerne under source biblioteket. (Dette kræver dog mindst pro. eller Enterprise)

Ligeledes kan du kikke på Microsoft's developer sider og så er de fleste funktioner til stede i Delphi, så er det blot at finde dem!! (Search in files er en god måde)

Accepterer du mit svar?

mange tak for hjælpen, jeg må sige at jeg mere end bare accepterer dit svar jeg har også kastet lidt ekstra i bøtten :-)

Det er jeg da enormt glad for. Skulle du få brug for noget en anden gang, så er det jo bare at spørge!! :-)