Also versuche ich das mal mit Sockets. Das hier ist die Ausgangslage mit LoadFromUrl():
Code: Alles auswählen
cRueckgabeFamilySearch := LoadFromUrl("https://sandbox.FamilySearch.org/cis-web/oauth2/v3/token", ;
, ;
, ;
, ;
, ;
"POST", ;
"username=" + cBenutzername + ;
"&Agent=Familienbuch/" + MEMVAR->gcVersion + ;
"&grant_type=password" + ;
"&client_id=" + cKey + ;
"&password=" + cKennwort)
Mit Sockets habe ich das so umgebaut:
Code: Alles auswählen
MEMVAR->gnFamilySearchSocket := SocketNew()
lSuccess := SocketConnect(MEMVAR->gnFamilySearchSocket, , "www.familysearch.org", 433, @nError)
lSuccess := SocketNegotiateSSL(MEMVAR->gnFamilySearchSocket)
cRequestHeader += cMethode + "/cis-web/oauth2/v3/token HTTP/1.1" + crlf
cRequestHeader += "Host: sandbox.familysearch.org" + crlf
//cRequestHeader += "User-Agent: Mozilla/4.7+[ja]+(WinNT;+I)" + crlf
cRequestHeader += "Content-Type: application/x-www-form-urlencoded" + crlf
cRequestHeader += "Accept: application/json" + crlf
//cRequestHeader += "Accept-Language: de, en-us" + crlf
cRequestHeader += crlf + "client_id=" + cKey + ;
"&username=" + cBenutzername + ;
"&grant_type=password" + ;
"&password=" + cKennwort)
"&agent=Familienbuch/" + MEMVAR->gcVersion + crlf
cRequestHeader += crlf
cRequestHeader := AnsiToHtmlUtf8(cRequestHeader)
SocketSend(MEMVAR->gnFamilySearchSocket, cRequestHeader)
DO WHILE cBuffer <> Chr(0)
cBuffer := SocketRecvStr(MEMVAR->gnFamilySearchSocket, 1 , @nError)
cEmpfangen += cBuffer
ENDDO
Was mache ich da falsch?
Jan