Jak spravně udělat pinger přes synapse v Delphi
zdravim.
Rad bych si uděl pinger, třeba podobmy jako je v Mikrotiku.
Jelikož se mi již povedlo udělat par věci co nefungovali jak jsem si představoval,a musel jsem je překopavat, tak se tedy tentokrat obracím na odborniky.
Co je lepši
Dat do form Timer, ktery dude v určitych intervalech (Timeout)spouštět vlakno, ktere provede svou praci a slonči.
Nebo přes button spustit vlakno, ktere pojede furt dokola a do něj dat sleep(1000) jako Timeout.
správnější je timer, který nebude (nebo by neměl) vytěžovat procesor v době nečinnosti. Nicméně kvalitní kompiler by měl i prasácké řešení se sleep zkompilovat korektně tak, aby nebyly zbytečně vytěžovány zdroje.
Sleep zatezovat nebude. Navic, pokud bude ve vlakne...
Pro Boriska:
Pokud budes delat ping, nepouzivej primo funkci, vytvor si objekt sam (vykopiruj kod z funkce) a nastav si tam mensi TimeOut. Rekl bych, ze 500ms, maximalne 1000ms je dostatecnych, pokud chces pingat v normalnich sitich. Pokud to mas na lokalni sit, klidne jsi s timeoutem jeste dolu.