Am 19.06.2006 um 00:31 schrieb Carlos M:

On Jun 18, 2006 9:37 PM, Barry Traver wrote:
I tried adding the following to my code:

    Dim Temp7 As Int32
    Temp7 = HTTPSocket1.HTTPStatusCode
    MsgBox Str(Temp7)

What I get is a 200, not a 302 or 301 redirect code
(assuming I put the preceding in the correct place, which is not
necessarily a good assumption).  (I couldn't figure out how to
work in PageReceived.)  Any additional advice?

Barry,

You must add an HTTPSocket control to a window (add a TCPSocket and
change its Super to HTTPSocket) and then check the PageReceived event.
In this event you can access httpStatus, headers, content and url.

Even better, create a subclass of HTTPSocket, implement your code
there and finally at it to you window or code. This way, you can easily
reuse it in forthcoming projects.
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>

Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>

Reply via email to