PC Toledo

Código: Selecionar todos

#include "hbtip.ch"
#include "hbcurl.ch"

PROCEDURE Main()
    LOCAL cFile := "caminho_para_o_seu_arquivo.pdf"  // Substitua pelo caminho correto do PDF
    LOCAL cUrl := "https://api.chatbotmaster.com.br/api/envia_pdf"  // URL da API
    LOCAL oCurl := hb_CurlEasy()

    // Inicializar a biblioteca hbtip
    hbtipInit()

    // Configurar a requisição para enviar o arquivo PDF
    IF File( cFile )
        hb_CurlEasySetOpt( oCurl, HB_CURLOPT_URL, cUrl )
        hb_CurlEasySetOpt( oCurl, HB_CURLOPT_POST, .T. )
        hb_CurlEasySetOpt( oCurl, HB_CURLOPT_HTTPHEADER, { "Content-Type: multipart/form-data" } )

        // Preparar o arquivo para envio
        LOCAL cPostData := "file=@"+cFile  // Isto será ajustado dependendo do formato aceito pela API
        hb_CurlEasySetOpt( oCurl, HB_CURLOPT_POSTFIELDS, cPostData )

        // Executar a requisição
        LOCAL nResult := hb_CurlEasyPerform( oCurl )

        IF nResult == 0
            ? "Arquivo PDF enviado com sucesso!"
        ELSE
            ? "Erro ao enviar o PDF. Código de erro:", hb_CurlEasyErrno( oCurl )
        ENDIF
    ELSE
        ? "Arquivo PDF não encontrado."
    ENDIF

    // Liberar recursos
    hb_CurlEasyCleanup( oCurl )
    hbtipUnInit()
RETURN