Seite 1 von 1

https-Seite anzeigen mit curl

Verfasst: 20.03.2014 18:58
von Lord
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:

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
Was ist falsch bzw. was fehlt noch?

Re: https-Seite anzeigen mit curl

Verfasst: 23.03.2014 15:48
von Lord
Eine Antwort ist hier nicht mehr nötig.
Im englischen Forum habe ich eine Antwort erhalten:
http://www.purebasic.fr/english/viewtop ... 13&t=58824