Prev: Anchors in CHM besed help
Next: Time flies....
From: Kees Bouw on 4 Jan 2010 08:23
The VO "Ping" sample is a very interesting application. Does anyone
know who wrote this program and how to get in touch with him or her? I
would like to expand this for more general tcp/ip communication. For
example, in the TCPIP:Init() there are strange commands like "try" and
"affirm" (see below). Does anyone know where these originate from?
METHOD init CLASS TCPIP
try
SELF:cLastError := "" // no errormsg to start
SELF:nErrCode := 0 // no error to start
SELF:nTimeout := 2000 // time IN miliseconds
SELF:nSize := 56 // default packet size
SELF:nTimeToLive := 64 // default TTL

affirm(SELF:Startwinsock())
SetLastError(0)

SELF:hFile := IcmpCreateFile()
IF SELF:hFile == INVALID_HANDLE_VALUE
SELF:nErrCode := GetLastError()
// see if we had an error
SELF:cLastError := "Unable to Create File Handle"
ENDIF
endtrynoreturncatch
RETURN SELF
From: Willie Moore on 4 Jan 2010 09:25
Hey,

I did the sample for ping and nbtstat. The try is in a udc. It covers the
error handling setup and breakdown.

Regards,
Willie

"Kees Bouw" <kees(a)nospam.ic2.com> wrote in message
news:iiq3k55q66bididlsscm8g37to2b3hah51(a)4ax.com...
> The VO "Ping" sample is a very interesting application. Does anyone
> know who wrote this program and how to get in touch with him or her? I
> would like to expand this for more general tcp/ip communication. For
> example, in the TCPIP:Init() there are strange commands like "try" and
> "affirm" (see below). Does anyone know where these originate from?
> METHOD init CLASS TCPIP
> try
> SELF:cLastError := "" // no errormsg to start
> SELF:nErrCode := 0 // no error to start
> SELF:nTimeout := 2000 // time IN miliseconds
> SELF:nSize := 56 // default packet size
> SELF:nTimeToLive := 64 // default TTL
>
> affirm(SELF:Startwinsock())
> SetLastError(0)
>
> SELF:hFile := IcmpCreateFile()
> IF SELF:hFile == INVALID_HANDLE_VALUE
> SELF:nErrCode := GetLastError()
> // see if we had an error
> SELF:cLastError := "Unable to Create File Handle"
> ENDIF
> endtrynoreturncatch
> RETURN SELF
>
> __________ Information from ESET NOD32 Antivirus, version of virus
> signature database 4742 (20100104) __________
>
> The message was checked by ESET NOD32 Antivirus.
>
> http://www.eset.com
>
>
>

__________ Information from ESET NOD32 Antivirus, version of virus signature database 4742 (20100104) __________

The message was checked by ESET NOD32 Antivirus.

http://www.eset.com



From: E®!k /!sser on 4 Jan 2010 09:33
Hi Kees,

Happy newyear!

The sample is written by Uwe Holtz I think, a member of the former VO
devteam. If you really need to get in touch with him, I think I do have his
emailaddress somewhere. Write me in private for this, I have the feeling he
will not be very amused by putting this in a newsgroup message....

VO commands? VO does not have commands, but does have a powerfull
preprocessor. Look at STD.UDF
So if you look at the application properties, you'll see what file defines
the used User-defined commands involved.

hth

Erik




"Kees Bouw" <kees(a)nospam.ic2.com> schreef in bericht
news:iiq3k55q66bididlsscm8g37to2b3hah51(a)4ax.com...
> The VO "Ping" sample is a very interesting application. Does anyone
> know who wrote this program and how to get in touch with him or her? I
> would like to expand this for more general tcp/ip communication. For
> example, in the TCPIP:Init() there are strange commands like "try" and
> "affirm" (see below). Does anyone know where these originate from?
> METHOD init CLASS TCPIP
> try
> SELF:cLastError := "" // no errormsg to start
> SELF:nErrCode := 0 // no error to start
> SELF:nTimeout := 2000 // time IN miliseconds
> SELF:nSize := 56 // default packet size
> SELF:nTimeToLive := 64 // default TTL
>
> affirm(SELF:Startwinsock())
> SetLastError(0)
>
> SELF:hFile := IcmpCreateFile()
> IF SELF:hFile == INVALID_HANDLE_VALUE
> SELF:nErrCode := GetLastError()
> // see if we had an error
> SELF:cLastError := "Unable to Create File Handle"
> ENDIF
> endtrynoreturncatch
> RETURN SELF

 | 
Pages: 1
Prev: Anchors in CHM besed help
Next: Time flies....