PureBasic Forums - English

Code: Select all

Process = RunProgram("curl", "http://purebasic.com/documentation/PureBasicSmall.pdf --stderr - -o PureBasicSmall.pdf", 
                     GetTemporaryDirectory(), 
                     #PB_Program_Open | #PB_Program_Read | #PB_Program_Error)
If Process
  While ProgramRunning(Process)
    If AvailableProgramOutput(Process)
      Debug ReadProgramString(Process)
    EndIf 
  Wend
  CloseProgram(Process)
EndIf

Code: Select all

 % Total    % Received % Xferd  Average Speed   Time    Time     Time  Current
                                 Dload  Upload   Total   Spent    Left  Speed

Code: Select all

  0     0    0     0    0     0      0      0 --:--:-- --:--:-- --:--:--     0
  2 3276k    2 90471    0     0   179k      0  0:00:18 --:--:--  0:00:18  232k
 25 3276k   25  837k    0     0   561k      0  0:00:05  0:00:01  0:00:04  607k
 48 3276k   48 1577k    0     0   631k      0  0:00:05  0:00:02  0:00:03  661k
 69 3276k   69 2261k    0     0   647k      0  0:00:05  0:00:03  0:00:02  668k
 89 3276k   89 2945k    0     0   655k      0  0:00:04  0:00:04 --:--:--  672k
100 3276k  100 3276k    0     0   662k      0  0:00:04  0:00:04 --:--:--  715k

Code: Select all

*Buffer = AllocateMemory(SizeOf(Double))

Dim Result$(0)

Process = RunProgram("curl", "http://speedtest.webair.com/5mb.bin --stderr - -o 5mb.bin", 
                     GetTemporaryDirectory(), 
                     #PB_Program_Open | #PB_Program_Read | #PB_Program_Error)
If Process
  While ProgramRunning(Process)
    If AvailableProgramOutput(Process)
       NumOfBytes = ReadProgramData(Process, *Buffer, SizeOf(*Buffer)) ;                    ; Saves the program output to a buffer
        OutputString$ + PeekS(*Buffer, NumOfBytes, #PB_UTF8)                                ; concatenates the buffered data into a string
        If FindString(OutputString$, #CR$) Or FindString(OutputString$, #LF$)               ; until it finds a CR or LF character in it
          Debug StringField(OutputString$, 1, #CR$)                                         ; splits the string before the CR and displays the first segment
          OutputString$ = StringField(OutputString$, 2, #CR$)                               ; the remaining characters will be used to start the new string
        EndIf
    EndIf 
  Wend
  CloseProgram(Process)
EndIf

Code: Select all

EnableExplicit

#ServerFile = "http://purebasic.com/documentation/PureBasicSmall.pdf"

#CURL_ERROR_SIZE          =   256
#CURLOPT_ERRORBUFFER      = 10010
#CURLOPT_NOPROGRESS       =    43
#CURLOPT_PROGRESSFUNCTION = 20056
#CURLOPT_URL              = 10002
#CURLOPT_WRITEFUNCTION    = 20011

ImportC "/usr/lib/libcurl.dylib"
  curl_easy_cleanup(*CurlSession)
  curl_easy_init()
  curl_easy_setopt(*CurlSession, Option.I, Parameter.I)
  curl_easy_strerror(ErrorNumber.I)
  curl_easy_perform(*CurlSession) 
EndImport

Define ClientFile.S = GetTemporaryDirectory() + "PureBasicSmall.pdf"
Define i.I
Define ReceivedData.S
Define ServerFile.S

ProcedureC DataReceivedCallback(*Data, Size.I, NMemb.I, *UserData)
  WriteData(0, *Data, Size * NMemb)

  ProcedureReturn Size * NMemb
EndProcedure

ProcedureC ProgressCallback(*ProgressData, DownloadTotal.D, DownloadNow.D,
  UploadTotal.D, UploadNow.D)
  Debug StrD(DownloadNow) + " Bytes from " + StrD(DownloadTotal) +
    " Bytes have been downloaded"
EndProcedure

Procedure SetCurlOption(CurlSession.I, Option.I, Parameter.I)
  CompilerSelect #PB_Compiler_Processor
    CompilerCase #PB_Processor_x86
      curl_easy_setopt(CurlSession, Option, Parameter)
    CompilerCase #PB_Processor_x64
      !EXTERN _curl_easy_setopt
      !MOV    RDI,QWORD [p.v_CurlSession]
      !MOV    RSI,QWORD [p.v_Option]
      !MOV    RDX,QWORD [p.v_Parameter]
      !CALL   _curl_easy_setopt
  CompilerEndSelect
EndProcedure

Procedure DownloadFile(URL.S)
  Shared ReceivedData.S
  
  Protected CurlSession.I
  Protected ErrorCode.I
  Protected ErrorMsg.S = Space(#CURL_ERROR_SIZE)
  Protected *ErrorMsgBuffer = AllocateMemory(#CURL_ERROR_SIZE)
  Protected Result.I = #False
  
  CurlSession = curl_easy_init()
  
  If CurlSession
    SetCurlOption(CurlSession, #CURLOPT_URL, @URL)
    SetCurlOption(CurlSession, #CURLOPT_WRITEFUNCTION, @DataReceivedCallback())
    SetCurlOption(CurlSession, #CURLOPT_ERRORBUFFER, *ErrorMsgBuffer)
    SetCurlOption(CurlSession, #CURLOPT_PROGRESSFUNCTION, @ProgressCallback())
    SetCurlOption(CurlSession, #CURLOPT_NOPROGRESS, #False)
    
    ErrorCode = curl_easy_perform(CurlSession)
    
    If ErrorCode = 0
      Result = #True
    Else
      CompilerIf #PB_Compiler_Unicode
        ErrorMsg = Space(StringByteLength(PeekS(*ErrorMsgBuffer, -1,
          #PB_Ascii), #PB_Unicode))
        PokeS(@ErrorMsg, PeekS(*ErrorMsgBuffer, -1, #PB_Ascii), -1, #PB_Unicode)
      CompilerElse
        ErrorMsg = PeekS(*ErrorMsgBuffer)
      CompilerEndIf

      If Trim(ErrorMsg) = ""
        CompilerIf #PB_Compiler_Unicode
          ErrorMsg = Space(StringByteLength(PeekS(curl_easy_strerror(ErrorCode),
            -1, #PB_Ascii), #PB_Unicode))
          PokeS(@ErrorMsg, PeekS(curl_easy_strerror(ErrorCode), -1, #PB_Ascii), -1,
            #PB_Unicode)
        CompilerElse
          ErrorMsg = PeekS(curl_easy_strerror(ErrorCode))
        CompilerEndIf
      EndIf

      MessageRequester("Error", ErrorMsg)
    EndIf
    
    FreeMemory(*ErrorMsgBuffer)
    curl_easy_cleanup(CurlSession)
  EndIf

  ProcedureReturn Result
EndProcedure

If OpenFile(0, ClientFile)
  If #PB_Compiler_Unicode
    ServerFile = Space(StringByteLength(#ServerFile))
    PokeS(@ServerFile, #ServerFile, -1, #PB_Ascii)
  Else
    ServerFile = #ServerFile
  EndIf

  If DownloadFile(ServerFile)
    MessageRequester("HTTP-Download", "The file" + #CR$ + #CR$ + #ServerFile + #CR$ + #CR$ + "was downloaded successfully and stored as" + #CR$ + #CR$ + ClientFile)
  EndIf

  CloseFile(0)
EndIf

Code: Select all

file /usr/lib/libcurl.dylib