Thanks Francois, but I'm still having problems with Delphi :-(
How should I translate this?
//--------------------------------
for I := 0 to Pred (T) do
begin
if HostNames.Lines [I] <> '' then
begin
with TPingThread.Create (True) do // create suspended
begin
PingAddThread (ThreadId) ; // keep threadid so it's
freed
FreeOnTerminate := True;
PingId := succ (I) ; // keep track of the results
OnTerminate := PingThreadTermPing ; // where we get the
response
PingHostName := HostNames.Lines [I] ; // host name or IP
address to ping
PingTimeout := 4000 ; // ms
PingTTL := 32 ; // hops
PingLookupReply := false ; // don't need response host
name lookup
Resume ; // start it now
end ;
end;
end ;
//--------------------------------
I cannot understand completely these parts:
for I := 0 to Pred (T) do -> (Pred(T)?????)
with TPingThread.Create (True) do // create suspended -> TPingThread*
PingThread = new TPingThread(true);??? I must delete it later?
And...
StrPas (HostEnt^.h_name) ; -> HostEnt^.h_name?????
SetLength (PingThreadList, Succ (Length (PingThreadList))) ; -> I can't
find PingThreadList, (Succ??)
Thanks again !!!
enri.
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://www.elists.org/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
