Ich möchte eine Seite mit PB anzeigen, welche sich
mit dem FireFox problemlos anzeigen läßt.
Das Problem ist, daß die Seite mittels https ange-
sprochen wird.
Ich habe versucht, die Seite mittels curl anzuzeigen,
was aber nicht funktioniert hat.
Hier mein Versuch:
Code: Alles auswählen
IncludeFile "libcurl-res.pb"
IncludeFile "libcurl-inc.pb"
; Die Includes sind von hier:
; http://www.purebasic.fr/english/viewtopic.php?f=12&t=49758
ProcedureC LibCurlWriteFunction(*ptr, Size.i, NMemB, *Stream)
Protected SizeProper.i = Size & 255
Protected NMemBProper.i = NMemB
Protected MyDataS.s
Shared ReceivedData.s
MyDataS = PeekS(*ptr, -1, #PB_UTF8):ShowMemoryViewer(*ptr, MemorySize(*ptr))
ReceivedData + MyDataS
ProcedureReturn SizeProper * NMemBProper
EndProcedure
Procedure.s LibCurlGetData()
Shared ReceivedData.s
Protected ReturnData.s
ReturnData.s = ReceivedData.s
ReceivedData.s = ""
ProcedureReturn ReturnData.s
EndProcedure
URL.s="https://familysearch.org/records/collection/1951790/waypoints"
curl = curl_easy_init()
If curl
Debug curl_easy_setopt(curl, #CURLOPT_URL, @URL)
Debug curl_easy_setopt(curl, #CURLOPT_SSL_VERIFYPEER, 0)
Debug curl_easy_setopt(curl, #CURLOPT_SSL_VERIFYHOST, 0)
Debug curl_easy_setopt(curl, #CURLOPT_HEADER, @"")
Debug curl_easy_setopt(curl, #CURLOPT_WRITEFUNCTION, @RW_LibCurl_WriteFunction())
res = curl_easy_perform(curl)
Debug res
Debug "----"
Debug LibCurlGetData()
Debug "----"
Debug curl_easy_cleanup(curl)
EndIf