Online / Offline

Hej lolle

Jeg foreslår dig at du du forsøger at sende et Ping ud i verden, hvis det lukkes er du online ellers er du ikke. Du kan foreksemple Pinge www.yahoo.com eller en anden server du ved der har en oppe tid på 100%.

Hvis du starter med at downloade ICS fra Francois Piette, så kan du bruge hans komponent til at sende et ping med ....

http://users.swing.be/francois.piette/indexuk.htm

Jens B

Hey Jens !

Jeg har lige DL'et Ping og fået installeret det !

Så er det jeg vil prøve at starte demoen men der kommer en "FEJL" Error reading PingTstForm.OldCreateOrder:

Hvaa er det for en fejl og hvaa betyder den ????

Jeg har fået den mange gange og bare ignoret den !

og kunne du måske lave et lille eks. på hvordan jeg kan få den Ping kompo... til at gøre det jeg spørg om ???

ps nu er det jo også 85 point :)

Prøv dette :

Ping1.Address := 'www.yahoo.com';
if Ping1.Ping <> 0 then
  Edit1.Text := 'Du er online'
else 
  Edit1.Text := 'Du er offline'


/SpEeDy

Hvorfor du får kompilerings fejl ved jeg ikke, men prøv at tage en form Sæt en ping komponent der på samt en timer også skriv der følgende ...

const
  HostText = 'www.yahoo.com'; //Her skal du angive hvilken server du ønsker at pinge ...

implementation

{$R *.DFM}


procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Ping1.DnsLookup(HostText);
end;

procedure TForm1.Ping1DnsLookupDone(Sender: TObject; Error: Word);
begin
    if Error <> 0 then
    begin
        Caption := 'Off line';
        Exit;
    end;

    Caption := 'On line';
end;

Etenlig pinger jeg den slet ikke jeg kiger bare på om jeg kan finde dens ipadresse. hvis ikke jeg kan er du off line ...

Jens b

Hvor ville det være bedst at sidde koden

onCreate onShow osv.

speedy > Principielt er dit svar ok, men hvad nu hvis du pinger en server der er meget tæt ved idg og du således får en ping tid på 0 ? Så fejler din metode ...

Jens B

Hvad med at kalde dim timer på OnCreate ?

du ved
procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1Timer(nil);
end;

Oki tak Jens !

det er lige det jeg skal bruge :)

Så må jeg jo bare se på Francois Piette Ping kode og se om jeg kan lave det uden komponent for det ville være dejligt hvis det ikke er en komponent.

Hvorfor ville du måske nok spørge !
Det er fordi at mit D3 nogle gange er lidt noget lort og så er det jo mere blæret hvis man har ren kode og ikke komponenter.... IKKE ????

Det synes jeg !

Hvaa synes du/i ???

Borrisholt >> Den returnere da kun nul, hvis den ikke får svar. Er det ikke rigtigt ?? Fordi selv på et 100 mbit netværk, returnerer den 1 hvis jeg pinger. Men hvad ved jeg ;-)

lolle>> Jeg synes det er helt i orden at bruge komponenter, sålænge man selv har lavet dem ;-). Jeg er nemlig lige selv begyndt på at lave komponenter, så det er jo lidt sjovt, at kunne sætte sin egen komponent ind på sin form, og så vide, at den kun gør det man ved den skal ;-) Måske lidt vrøvlet skrevet, men jeg håber du ved hvad jeg mener :)


/SpEeDy

SpEeDy -> JEPZ jeg ved godt hvaa du mener og jeg synes også der er i orden at bruge komponenter men jeg vil nu helst lave uden.

Og ja det er sejt og sjovt hvis det er ens egne komponenter man bruger !

Og speedy må jeg spørge hvaa det er for nogle komponenter du laver ????????

Speedy & Thomas-SP2k ----->>>>

Jeg er helt enig og jeg vil da også godt bruge komponenter men hvis det er sådan nogle store som har flere funktioner fylder det mere og så kan man jo bare lave noget i sin kode så man ikke skal bruge den komponent !

lolle >> Det var også derfor at det er ok at bruge dem man selv laver, de så passer til ens eget program.

thomas-sp2k >> Jeg er lige begyndt, men jeg har lavet en gradueringskomponent, eller faktisk 2 :) Den ene viser et farvespectra som man ser det i alle billed / tegne programmer, hvor farverne graduerer fra rød til lilla til blå osv... Og så er jeg ved at lave et editfelt, hvor man kun kan indtaste tal.

/SpEeDy

Var det mugligt at prøve denne komponent ???

gradueringskomponentet altså !

thomas-sp2k >> Send en mail til : rasmusm@mailme.dk og skriv hvilken version af Delphi du bruger, så sender jeg en til dig.

/SpEeDy