https-Seite anzeigen mit curl
Verfasst: 20.03.2014 18:58
Hallo!
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:
Was ist falsch bzw. was fehlt noch?
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