Can complete the HTTPS protocol transmission with PB

CodePudding user response:

I am also looking for the technology, but now seems to be no solution, HTTP is far-fetched, error-prone
Please expert help, help,

CodePudding user response:

Make do with Microsoft. XMLHttp, pay a bad code patchy look

String ls_url ls_data, ls_response

Ls_url='https://passport.uuzu.com/login.php'
Ls_data='https://bbs.csdn.net/topics/act=login&rurl=http://10.uuzu.com&username=name&password=pass'

OleObject lole_tenyear
Lole_tenyear=CREATE oleobject
Lole_tenyear. ConnectToNewObject (" Microsoft. XMLHttp ")//
.//lole_tenyear. ConnectToNewObject (' WinHttp WinHttpRequest. 5.1 ')

Lole_tenyear. Open (" POST ", ls_url, false)
Lole_tenyear. SetRequestHeader (" the content-type ", "application/x - WWW - form - urlencoded")
Lole_tenyear. SetRequestHeader (' Content - Length, the string (len (ls_data)))

Lole_tenyear. Send (ls_data)
Ls_response=lole_tenyear. The responseText
M (ls_response)

IF lole_tenyear. The Status & gt; THEN=300
MessageBox (" HTTP request failed: ", lole_tenyear. StatusText, the Exclamation! , OK!
END the IF

//
Destroy lole_tenyear

CodePudding user response:

Servicereference becomes unavailable but PostURL (urlname urldata, headers, {} serverport, data)

Blob lblb_argsString ls_headersString ls_urlLong ll_lengthiir_msgbox=CREATE n_ir_msgboxls_url="http://coltrane.sybase.com/" ls_url +="cgi - bin/pbcgi60. Exe/" ls_url +=" myapp/n_cst_html/f_test?" Lblb_args=blob (" ") ll_length=Len (lblb_args) ls_headers="Content - Length:" & amp; ~ n ~ + String (ll_length) + "n" iinet. PostURL & amp; (ls_url lblb_args, ls_headers, 8080, iir_msgbox) This example shows the use of a header with the correct content-type for a form:

Blob lblb_argsString ls_headersString ls_urlString ls_argslong ll_lengthinteger li_rc li_rc=GetContextService (" Internet ", iinet_base) IF li_rc=1 THEN ir=CREATE n_ir ls_url="http://localhost/Site/testurl.stm?" Ls_args="user=MyName& The PWD=MyPasswd "lblb_args=Blob (ls_args) ll_length=Len (lblb_args) ls_header=" content-type: "+ & amp; "Application/x - WWW - form - urlencoded ~ n" + & amp; "The Content - Length:" + String (ll_length) + "~ n ~ n" li_rc=iinet. PostURL (ls_url lblb_args, & amp; Ls_header, ir) END IF

CodePudding user response:

I also had a similar interface, requirements are as follows:
A, data format
1. The data in XML
2. The Xml definition reference sample Xml file
3. Xml must pass the Schema validation (see Schema folder)
4. The data dictionary in the options XML folder

Request the address http://www.cnstroke.com/DataInterface/ArchivesAdd ashx
Request type POST
Request parameters parameter type note
XmlStr string Xml string
Uuid string unit code
AuthCode string unit interface authorization code

Do not know how,,

CodePudding user response:

reference 4 floor dx5zhou response:

I also encountered a similar interface, requirements are as follows:
A, data format
1. The data in XML
2. The Xml definition reference sample Xml file
3. Xml must pass the Schema validation (see Schema folder)
4. The data dictionary in the options XML folder

Request the address http://www.cnstroke.com/DataInterface/ArchivesAdd ashx
Request type POST
Request parameters parameter type note
XmlStr string Xml string
Uuid string unit code
AuthCode string unit interface authorization code

Do not know how,,

With PB don't know how to use, can be done in other languages, call in PB, PB has actually provide a ready-made, upstairs method has clear

CodePudding user response:

refer to the second floor of AFIC reply:

make do with Microsoft. The XMLHttp, pay a bad code patchy look

String ls_url ls_data, ls_response

Ls_url='https://passport.uuzu.com/login.php'
Ls_data='https://bbs.csdn.net/topics/act=login&rurl=http://10.uuzu.com&username=name&password=pass'

OleObject lole_tenyear
Lole_tenyear=CREATE oleobject
Lole_tenyear. ConnectToNewObject (" Microsoft. XMLHttp ")//
.//lole_tenyear. ConnectToNewObject (' WinHttp WinHttpRequest. 5.1 ')

Lole_tenyear. Open (" POST ", ls_url, false)
Lole_tenyear. SetRequestHeader (" the content-type ", "application/x - WWW - form - urlencoded")
Lole_tenyear. SetRequestHeader (' Content - Length, the string (len (ls_data)))

Lole_tenyear. Send (ls_data)
Ls_response=lole_tenyear. The responseText
M (ls_response)

IF lole_tenyear. The Status & gt; THEN=300
MessageBox (" HTTP request failed: ", lole_tenyear. StatusText, the Exclamation! , OK!
END the IF

//
Destroy lole_tenyear

Your code, I copied to pb, found an error, send the far said ole problem: error calling external object function the send at line18 clicked in the event of object cb_1 of w1
But I have seen XMLHTTP instructions, didn't find any mistake, please help analysis analysis

CodePudding user response:

posturl

CodePudding user response:

To ask, is there a way to solve? Can you QQ chat? My QQ: 623868893

CodePudding user response:

references 9 f tonyu response:

to ask, is there a way to solve? Can you QQ chat? My QQ: 623868893

http://bbs.csdn.net/topics/390712602