PureBasic Forums - English

Code: Select all

; English forum: http://purebasic.myforums.net/viewtopic.php?t=8302&highlight=
; Author: Karbon
; Date: 12. November 2003

; Note by Andre: I've changed #INTERNET_DEFAULT_HTTP_PORT = 443 to 
;                #INTERNET_DEFAULT_HTTPS_PORT = 443  (be aware of the additional 'S' at '_HTTPS_')
;                because the #INTERNET_DEFAULT_HTTP_PORT constant is already declared in a .res
;                file with another value

; This one does SSL, all you need to do for standard HTTP is change the
; INTERNET_FLAG_SECURE To 0 and the port to 80. 

  ; 
  ; All stuff for the WinInet lib. 
  ; 
  #INTERNET_OPEN_TYPE_DIRECT = 1 
  #HTTP_ADDREQ_FLAG_ADD = $20000000 
  #HTTP_ADDREQ_FLAG_REPLACE = $80000000 
  #INTERNET_FLAG_SECURE = $800000 
  
  ; 
  ; Type of connection (could be FTP Gopher etc). HTTPS is done as HTTP too. 
  ; 
  #INTERNET_SERVICE_HTTP = 3 
  
  ; 
  ; HTTP port is 80, HTTPS (SSL) port is 443. 
  ; 
  #INTERNET_DEFAULT_HTTPS_PORT = 443  

Procedure.s do_post(url.s, post_data.s) 

  ; 
  ; Extract host name: i.e.  www.domain.com  or   ssl.domain.com
  ; 
  host.s = GetURLPart(url, #PB_URL_Site)
  
  ; 
  ; Everything after the hostname of the server 
  ; 
  get_url.s = "/" + GetURLPart(url, #PB_URL_Path)
  
  ; 
  ; Holds the result from the CGI/page 
  ; 
  result.s = "" 
  
  port = 80
  ssl_option = 0

  If GetURLPart(url, #PB_URL_Protocol) = "https"
   ssl_option = #INTERNET_FLAG_SECURE
   port = #INTERNET_DEFAULT_HTTPS_PORT
  EndIf

  ; 
  ; All from the wininet DLL 
  ; 
  ; Be sure your Internet Explorer is up to date! 
  ; 
  open_handle = InternetOpen_("GTFax Uploader",#INTERNET_OPEN_TYPE_DIRECT,"","",0) 
  
  connect_handle = InternetConnect_(open_handle,host,port,"","",#INTERNET_SERVICE_HTTP,0,0) 
  
  request_handle = HttpOpenRequest_(connect_handle,"POST",get_url,"","",0,ssl_option,0) 
  
  headers.s = "Content-Type: application/x-www-form-urlencoded" +Chr(13)+Chr(10)  
  
  HttpAddRequestHeaders_(request_handle,headers,Len(headers), #HTTP_ADDREQ_FLAG_REPLACE | #HTTP_ADDREQ_FLAG_ADD) 
  
  ; post_data.s = "CMD=AUTH&USERNAME=test&PASSWORD=test" 
  
  post_data_len = Len(post_data) 
  
  send_handle = HttpSendRequest_(request_handle,"",0,post_data,post_data_len) 
  
  buffer.s = Space(1024) 
  
  bytes_read.l 
  
  total_read.l 
  
  total_read = 0 
  
  ; 
  ; Read until we can't read anymore.. 
  ; The string "result" will hold what ever the server pushed at us. 
  ; 
  Repeat 
    
    InternetReadFile_(request_handle,@buffer,1024,@bytes_read) 
    
    result + Left(buffer,bytes_read) 
    
    buffer = Space(1024) 
    
  Until bytes_read=0 
  
  ProcedureReturn result
  
EndProcedure 

Code: Select all

IncludeFile "http_post.pbi"
Debug  do_post( "https://myurl.com", "CMD=AUTH&USER=test&PASS=test" )

Code: Select all

XIncludeFile "RW_LibCurl_Res.pb"
XIncludeFile "RW_LibCurl_Inc.pb"

url.s = "https://myurl.com/"

curl  = curl_easy_init()
If curl

    Debug curl_easy_setopt(curl, #CURLOPT_URL, @url)

    Debug curl_easy_setopt(curl, #CURLOPT_SSL_VERIFYPEER, #False)
    Debug curl_easy_setopt(curl, #CURLOPT_SSL_VERIFYHOST, #False)

    TryFirstMethod = #False
    
    If TryFirstMethod
      Debug curl_easy_setopt(curl, #CURLOPT_POSTFIELDS, @"CMD=AUTH&USERNAME=test&PASSWORD=test") ;; This works but I want to try with forms
    Else
      ;; Trying with forms instead
      Define.Curl_HTTPPost post, last_post;
      
      curl_formadd(@post, @last_post, #CURLFORM_COPYNAME, @"CMD", #CURLFORM_COPYCONTENTS, @"AUTH", #CURLFORM_END);
      curl_formadd(@post,@ last_post, #CURLFORM_COPYNAME, @"USERNAME", #CURLFORM_COPYCONTENTS, @"test", #CURLFORM_END);
      curl_formadd(@post, @last_post, #CURLFORM_COPYNAME, @"PASSWORD", #CURLFORM_COPYCONTENTS, @"test", #CURLFORM_END);

      Debug curl_easy_setopt(curl, #CURLOPT_HTTPPOST, @post); ;; If I comment this line it doesn't crash

    EndIf

    Debug curl_easy_setopt(curl, #CURLOPT_WRITEFUNCTION, @RW_LibCurl_WriteFunction())
    
    res = curl_easy_perform(curl) ; Crashes at this line :(
    Debug res
    
    http_result.s = RW_LibCurl_GetData()
    Debug http_result

    ;always cleanup 
    Debug curl_easy_cleanup(curl)

EndIf

Code: Select all

      ;; Trying with forms instead
      Define.Curl_HTTPPost post, last_post;
     
      curl_formadd(@post, @last_post, #CURLFORM_COPYNAME, @"CMD", #CURLFORM_COPYCONTENTS, @"AUTH", #CURLFORM_END);
      curl_formadd(@post,@ last_post, #CURLFORM_COPYNAME, @"USERNAME", #CURLFORM_COPYCONTENTS, @"test", #CURLFORM_END);
      curl_formadd(@post, @last_post, #CURLFORM_COPYNAME, @"PASSWORD", #CURLFORM_COPYCONTENTS, @"test", #CURLFORM_END);

      Debug curl_easy_setopt(curl, #CURLOPT_HTTPPOST, @post); ;; If I comment this line it doesn't crash

Code: Select all

      ;; Trying with forms instead
      Define *formpost.Curl_HTTPPost, *last_post.Curl_HTTPPost;

      curl_formadd(@*formpost, @*last_post, #CURLFORM_COPYNAME, @"CMD", #CURLFORM_COPYCONTENTS, @"AUTH", #CURLFORM_END);
      curl_formadd(@*formpost, @*last_post, #CURLFORM_COPYNAME, @"USERNAME", #CURLFORM_COPYCONTENTS, @"test", #CURLFORM_END);
      curl_formadd(@*formpost, @*last_post, #CURLFORM_COPYNAME, @"PASSWORD", #CURLFORM_COPYCONTENTS, @"test", #CURLFORM_END);

      Debug curl_easy_setopt(curl, #CURLOPT_HTTPPOST, *formpost); ;; If I comment this line it doesn't crash