How to convert DOC to PDF from uploaded file for DOC to PDF API in Delphi with PDF.co Web API

What is PDF.co Web API? It is the flexible Web API that includes full set of functions from e-signature requests to data extraction, OCR, images recognition, pdf splitting and pdf splitting. Can also generate barcodes and read barcodes from images, scans and pdf.

On-demand (REST Web API) version:
 Web API (on-demand version)

On-premise offline SDK for Windows:
 60 Day Free Trial (on-premise)

ConvertDOCToPDFFromUploadedFile.dpr

      
program ConvertDOCToPDFFromUploadedFile; //*******************************************************************************************// // // // Download Free Evaluation Version From: https://bytescout.com/download/web-installer // // // // Also available as Web API! Get Your Free API Key: https://app.pdf.co/signup // // // // Copyright ? 2017-2020 ByteScout, Inc. All rights reserved. // // https://www.bytescout.com // // https://pdf.co // // // //*******************************************************************************************// {$APPTYPE CONSOLE} {$R *.res} uses System.SysUtils, Classes, IdHTTP, IdURI, IdSSL, IdSSLOpenSSL, System.JSON, IdMultipartFormData; const // The authentication key (API Key). // Get your own by registering at https://app.pdf.co/documentation/api API_KEY: string = '********************************************' // Source DOC or DOCX file SOURCE_FILE: string = 'sample.docx'; // Destination PDF file name DESTINATION_FILE: string = 'result.pdf'; var http: TIdHTTP; http_file_downloader: TIdHTTP; http_file_uploader: TIdHTTP; response_stream: TStringStream; response: string; io_handler: TIdSSLIOHandlerSocketOpenSSL; response_json: TJSONObject; is_error: TJSONBool; file_url: string; file_stream: TFileStream; error_message: TJSONString; presigned_url: string; uploaded_file_url: string; query: string; waiting_any_key: char; multi_part_form_data_stream: TIdMultiPartFormDataStream; file_name: string; begin // Put the necessary libeay32.dll & ssleay32.dll library versions in the // program folder io_handler := TIdSSLIOHandlerSocketOpenSSL.Create(nil); io_handler.SSLOptions.Method := sslvSSLv23; io_handler.SSLOptions.SSLVersions := [sslvSSLv23]; http := TIdHTTP.Create(nil); http.HTTPOptions := http.HTTPOptions + [hoForceEncodeParams]; http.AllowCookies := true; http.HandleRedirects := true; http.Request.Connection := 'keep-alive'; http.Request.ContentType := 'application/json; charset=utf-8'; http.Request.UserAgent := 'User-Agent:Mozilla/5.0 (Windows NT 6.1; ) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/83.0.4103.116 Safari/537.36'; http.IOHandler := io_handler; response_stream := TStringStream.Create(); file_stream := nil; http_file_uploader := nil; multi_part_form_data_stream := nil; http_file_downloader := nil; try try // 1. RETRIEVE THE PRESIGNED URL TO UPLOAD THE FILE. // * If you already have a direct file URL, skip to the step 3. // Prepare URL for `Get Presigned URL` API call query := TIdURI.URLEncode(Format('https://api.pdf.co/v1/file/upload/get-presigned-url' + '?contenttype=application/octet-stream&name=%s', [ExtractFileName(SOURCE_FILE)])); // Set API Key http.Request.CustomHeaders.AddValue('x-api-key', API_KEY); // Execute request http.Get(query, response_stream); // Parse JSON response response_json := TJSONObject.ParseJSONValue(response_stream.DataString, false) as TJSONObject; is_error := response_json.Values['error'] as TJSONBool; if (not is_error.AsBoolean) then begin // Get URL to use for the file upload presigned_url := TJSONString(response_json.Values['presignedUrl']).ToString(); presigned_url := StringReplace(presigned_url, '"', '', [rfReplaceAll]); // Get URL of uploaded file to use with later API calls uploaded_file_url := TJSONString(response_json.Values['url']).ToString(); uploaded_file_url := StringReplace(uploaded_file_url, '"', '', [rfReplaceAll]); // 2. UPLOAD THE FILE TO CLOUD. http_file_uploader := TIdHTTP.Create(nil); http_file_uploader.AllowCookies := true; http_file_uploader.HandleRedirects := true; http_file_uploader.Request.CustomHeaders.AddValue('x-api-key', API_KEY); http_file_uploader.Request.CustomHeaders.AddValue('content-type', 'application/octet-stream'); file_stream := TFileStream.Create(SOURCE_FILE, fmOpenRead); response := http_file_uploader.Put(presigned_url, file_stream); file_stream.Free(); // 3. CONVERT UPLOADED DOC (DOCX) FILE TO PDF // Prepare URL for `DOC To PDF` API call query := TIdURI.URLEncode(Format('https://api.pdf.co/v1/pdf/convert/from/doc' + '?name=%s&url=%s', [ExtractFileName(DESTINATION_FILE), uploaded_file_url])); // Execute request response_stream.Clear(); http.Get(query, response_stream); response_json := TJSONObject.ParseJSONValue(response_stream.DataString, false) as TJSONObject; is_error := response_json.Values['error'] as TJSONBool; if (not is_error.AsBoolean) then begin file_url := TJSONString(response_json.Values['url']).ToString(); file_url := StringReplace(file_url, '"', '', [rfReplaceAll]); file_name := ExtractFileName(StringReplace(file_url, '/', '\', [rfReplaceAll])); file_name := IncludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0))) + file_name; http_file_downloader := TIdHTTP.Create(nil); // Download generated file file_stream := TFileStream.Create(file_name, fmCreate); http_file_downloader.Get(file_url, file_stream); Writeln(Format('Generated PDF file saved as "%s" file."', [file_name])); end else begin error_message := response_json.Values['message'] as TJSONString; raise Exception.Create(error_message.ToString); end; end else begin error_message := response_json.Values['message'] as TJSONString; raise Exception.Create(error_message.ToString); end; except on E: Exception do begin response := http.ResponseText; Writeln(E.ClassName, ': ', E.Message); end; end; finally response_stream.Free(); http.Free(); if (Assigned(file_stream)) then file_stream.Free(); if (Assigned(multi_part_form_data_stream)) then multi_part_form_data_stream.Free(); if (Assigned(http_file_uploader)) then http_file_uploader.Free(); if (Assigned(http_file_downloader)) then http_file_downloader.Free(); Writeln('Press any key to continue...'); Readln(waiting_any_key); end; end.

VIDEO

ON-PREMISE OFFLINE SDK

Get 60 Day Free Trial

See also:

ON-DEMAND REST WEB API

Get Your API Key

See also: