source: trunk/Packages/synapse/source/demo/FreePascal/testping.pas

Last change on this file was 2, checked in by chronos, 13 years ago
  • Přidáno: Základní kostra projektu.
  • Přidáno: Knihovna synapse.
File size: 248 bytes
Line 
1{$MODE DELPHI}
2
3Program testping;
4
5uses
6 pingsend, sysutils;
7
8var
9 ping:TPingSend;
10begin
11 ping:=TPingSend.Create;
12 try
13 ping.ping(ParamStr(1));
14 Writeln (IntTostr(ping.pingtime));
15 finally
16 ping.Free;
17 end;
18end.
19
Note: See TracBrowser for help on using the repository browser.