Ping přes synapse – Delphi – Fórum – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama
Reklama

Ping přes synapse – Delphi – Fórum – Programujte.comPing přes synapse – Delphi – Fórum – Programujte.com

 

Hledá se programátor! Plat 1 800 € + bonusy (firma Boxmol.com)
Mirek
~ Anonymní uživatel
53 příspěvků
11. 1. 2012   #1
-
0
-

Zdravím.
Poraďte začátečníkovi.

Už 2 den se marně snažím zprovoznit ping přes synapse.
Ve staženém  balíku je PingThread.pas
Jak s mého programu spustit toto vlákno a získat výsledek pingu

Nahlásit jako SPAM
IP: 95.173.83.–
Reklama
Reklama
liborb
~ Redaktor
+18
Guru
11. 1. 2012   #2
-
0
-

Unita PingSend.Pas a funkce PingHost().

Nahlásit jako SPAM
IP: 78.80.52.–
Mirek
~ Anonymní uživatel
53 příspěvků
12. 1. 2012   #3
-
0
-

#2 liborb

Děkují za radu ale bud jste nepochopil dotaz, nebo jste jej nedočet dokonce

Použit klasicky ping přes synapse je jednoduche.

Dotaz zněl

"Ve staženém  balíku je PingThread.pas
Jak s mého programu spustit toto vlákno a získat výsledek pingu"

Tady je ten PingThread.pas

unit PingThread;

interface

uses Classes, PingSend, IPUtils;

type
     PPingResult = ^TPingResult;
     TPingResult = Record
                     IPAdress:String;
                     Exists:Boolean;
                   end;


type
  TPingThread = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  public
    PingResult:TPingResult;
    Ready:Boolean;
    constructor Create(Ping:TPingResult);
  end;

implementation

{ TPingThread }

constructor TPingThread.Create(Ping:TPingResult);
begin
  PingResult.IPAdress := Ping.IPAdress;
  inherited Create(False);
end;

procedure TPingThread.Execute;
var Ping:TPingSend;
begin
  Ready := false;
  Ping  := TPingSend.Create;
  Ping.Timeout := 2000;
  PingResult.Exists := Ping.Ping(PingResult.IPAdress);
  Ping.Free;
  Ready := true;
end;

end.
Nahlásit jako SPAM
IP: 95.173.83.–
liborb
~ Redaktor
+18
Guru
12. 1. 2012   #4
-
0
-

Je to vlákno, takže spustit jako každé jiné vlákno, IP adresu předáváš při vytvoření a výsledek máš v PingResult.

Nahlásit jako SPAM
IP: 78.80.52.–
Mirek.
~ Anonymní uživatel
1 příspěvek
12. 1. 2012   #5
-
0
-

Tak ještě zjistit jak spustit vlakno a mam to.  

Nahlásit jako SPAM
IP: 95.173.83.–
Zjistit počet nových příspěvků

Přidej příspěvek

Toto téma je starší jak čtvrt roku – přidej svůj příspěvek jen tehdy, máš-li k tématu opravdu co říct!

Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku

×Vložení zdrojáku

×Vložení obrázku

Vložit URL obrázku Vybrat obrázek na disku
Vlož URL adresu obrázku:
Klikni a vyber obrázek z počítače:

×Vložení videa

Aktuálně jsou podporována videa ze serverů YouTube, Vimeo a Dailymotion.
×
 
Podporujeme Gravatara.
Zadej URL adresu Avatara (40 x 40 px) nebo emailovou adresu pro použití Gravatara.
Email nikam neukládáme, po získání Gravatara je zahozen.
-
Pravidla pro psaní příspěvků, používej diakritiku. ENTER pro nový odstavec, SHIFT + ENTER pro nový řádek.
Sledovat nové příspěvky (pouze pro přihlášené)
Sleduj vlákno a v případě přidání nového příspěvku o tom budeš vědět mezi prvními.
Reaguješ na příspěvek:

Uživatelé prohlížející si toto vlákno

Uživatelé on-line: 0 registrovaných, 16 hostů

Podobná vlákna

Ping přes indy — založil P.P

SYNAPSE FTPS — založil djkowi

Ping — založil antton

ARP a Ping v C# — založil JirkaX

Ping.bat — založil Anonymní uživatel

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032016 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý