Thnks for advice.
Function is realy nice and clean.
But there is problem pinging prom Lazarus ide.
Ping only works first time when u run it from ide.
If u run compiled software it runs ok everytime.
Any ideas??
Source:
procedure TForm1.Button1Click(Sender: TObject);
var
ping:TPingSend;
begin
ping:=TPingSend.Create;
try
if ping.ping('www.google.com') then Begin
Label1.Caption := (IntTostr(ping.pingtime));
end else Begin
Label1.Caption := 'error';
end;
finally
ping.Free;
end;
end;
PBB
-----Original Message-----
From: SteveG [mailto:[EMAIL PROTECTED]
Sent: Wednesday, March 08, 2006 3:45 PM
To: [email protected]
Subject: Re: [lazarus] Ping server form Lazarus
Try the Synapse librarys (no components, just standard functions) - works well
- www.ararat.cz/*synapse*/
Pēteris Bērzs-Bērziņš wrote:
>
>Does anyone can sugest example how to ping from lazarus (runing on
>WinXP)
>
>PBB
>
>_________________________________________________________________
> To unsubscribe: mail [EMAIL PROTECTED] with
> "unsubscribe" as the Subject
> archives at http://www.lazarus.freepascal.org/mailarchives
>
>
>
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
