Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Looking for example asynchrone http connection wininet
Message
From
30/08/2000 12:13:53
 
General information
Forum:
Visual FoxPro
Category:
Internet applications
Miscellaneous
Thread ID:
00407635
Message ID:
00410845
Views:
19
>>
>>I already tried that but some sites are not give the full page back
>>
>
>Take a look at the notes for the various methods. There are a number of pointers on why this might be happening.
>
>Use the latest versions of wwIPStuff and IE - some issues along those lines were resolved qith IE.
>
>+++ Rick ---

Hallo

I have 2 examples both are not giving the complete page
Can you help me.

Kind regards

Jan Dorresteijn

Example 1

HIDE WINDOW ALL
CLEAR

local content, lpath

lpath = "d:\std_exact\"
SET PATH TO &lpath
SET PROCEDURE TO &lpath.wwUtils ADDITIVE
SET CLASS TO &lpath.wwipstuff

oHTTP = CREATE("wwipstuff")

oHTTP.HTTPConnect("people.yahoo.com")

oHTTP.addpostkey("FirstName", "")
oHTTP.addpostkey("LastName","Smith")
oHTTP.addpostkey("srch", "bas")

content = ""
lnText = 0
oHTTP.HTTPGetEx("/py/psSearch.py", @content, @lnText)

oHTTP.HTTPClose()

? "Content: "
? content


Example 2

dele file "C:\page.temp"

lpath = "d:\std_exact\"
SET PATH TO &lpath
SET PROCEDURE TO &lpath.wwUtils ADDITIVE
SET CLASS TO &lpath.wwipstuff

oHTTP = CREATE("wwipstuff")

oHTTP.HTTPConnect("people.yahoo.com")

oHTTP.addpostkey("FirstName", "")
oHTTP.addpostkey("LastName","Smith")
oHTTP.addpostkey("srch", "bas")

oHTTP.HTTPGetExAsync("/py/psSearch.py", "C:\page.temp", 64000)

local fd, content

fd = -1
?"Retrieving webpage: "
do while fd < 0
fd = Fopen("C:\page.temp")
??"* "
wait "" timeout 1
enddo
fclose(fd)

oHTTP.HTTPClose()

content = filetostr("c:\page.temp")

? "Content: "
? content
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform