bstrobbe
New Member
Hello,
has anyone ever tried to use msinet.ocx (this comes with visual basic) in progress? I'm trying some things out and with I managed to get a response from a website using this code:
I called the ocx ITransferCtrl.
First you execute:
chITransferCtrl:Inet:execute("http://www.progresstalk.com","GET").
When this is done, I created a trigger for ITransferCtrl:
OCX.StateChanged:
DEFINE INPUT PARAMETER p-State AS INTEGER NO-UNDO.
def var wz-str as char no-undo.
def var WZ-totstr as char no-undo initial "".
def var WZ-FINISHED as log no-undo initial no.
def var WZ-SIZE as integer no-undo initial 256.
if p-State = 12 then do:
do while not wz-finished:
assign WZ-SIZE = 256.
wz-str = chITransferCtrl:Inet:GetChunk(input-output WZ-SIZE).
if length(wz-str) = 0 then assign wz-finished = yes.
assign wz-totstr = wz-totstr + wz-str .
end.
message wz-totstr.
end.
END PROCEDURE.
Now, as I said, this works, because I'm working with http. But now I do the same for a HTTPS URL: for instance:
chITransferCtrl:Inet:execute("https://62.58.106.116/receivexml.asp","GET").
I also changed the protocol property to 5 being icHTTPS.
Now I get an error (via the properties ResponseCode and ResponseInfo) that says: Code 12038 and Info: HTTP to HTTPS on redirect. My first thought would be that the normal warnings that appear when you try to enter an HTTPS site are blocking a succesful transmission.
Does anyone know how to solve this.
Belgian greetings,
Bert
has anyone ever tried to use msinet.ocx (this comes with visual basic) in progress? I'm trying some things out and with I managed to get a response from a website using this code:
I called the ocx ITransferCtrl.
First you execute:
chITransferCtrl:Inet:execute("http://www.progresstalk.com","GET").
When this is done, I created a trigger for ITransferCtrl:
OCX.StateChanged:
DEFINE INPUT PARAMETER p-State AS INTEGER NO-UNDO.
def var wz-str as char no-undo.
def var WZ-totstr as char no-undo initial "".
def var WZ-FINISHED as log no-undo initial no.
def var WZ-SIZE as integer no-undo initial 256.
if p-State = 12 then do:
do while not wz-finished:
assign WZ-SIZE = 256.
wz-str = chITransferCtrl:Inet:GetChunk(input-output WZ-SIZE).
if length(wz-str) = 0 then assign wz-finished = yes.
assign wz-totstr = wz-totstr + wz-str .
end.
message wz-totstr.
end.
END PROCEDURE.
Now, as I said, this works, because I'm working with http. But now I do the same for a HTTPS URL: for instance:
chITransferCtrl:Inet:execute("https://62.58.106.116/receivexml.asp","GET").
I also changed the protocol property to 5 being icHTTPS.
Now I get an error (via the properties ResponseCode and ResponseInfo) that says: Code 12038 and Info: HTTP to HTTPS on redirect. My first thought would be that the normal warnings that appear when you try to enter an HTTPS site are blocking a succesful transmission.
Does anyone know how to solve this.
Belgian greetings,
Bert