Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Delphi DLL) REST Download Binary File to MemorySee more REST ExamplesDownload a binary file to a Chilkat BinData object.
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, BinData, Rest, StringBuilder; ... procedure TForm1.Button1Click(Sender: TObject); var rest: HCkRest; success: Boolean; pathPartOfUrl: PWideChar; domain: PWideChar; bTls: Boolean; port: Integer; bAutoReconnect: Boolean; success: Boolean; bd: HCkBinData; sbErrorText: HCkStringBuilder; begin // This requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. rest := CkRest_Create(); // We're going to download a sample MS-Word doc file. // The URLs of our MS-Word sample documents are: // https://www.chilkatdownload.com/sample_data/sample.doc // https://www.chilkatdownload.com/sample_data/sample.docx pathPartOfUrl := '/sample_data/sample.doc'; domain := 'chilkatdownload.com'; bTls := True; port := 443; bAutoReconnect := True; success := CkRest_Connect(rest,domain,port,bTls,bAutoReconnect); if (success <> True) then begin Memo1.Lines.Add(CkRest__lastErrorText(rest)); Exit; end; bd := CkBinData_Create(); success := CkRest_FullRequestNoBodyBd(rest,'GET',pathPartOfUrl,bd); if (success <> True) then begin Memo1.Lines.Add(CkRest__lastErrorText(rest)); Exit; end; // A 200 response is expected for actual success. // If we don't get a 200 response, then the response body was not actually // the file data, but it was text containing error information. if (CkRest_getResponseStatusCode(rest) <> 200) then begin sbErrorText := CkStringBuilder_Create(); CkStringBuilder_AppendBd(sbErrorText,bd,'utf-8',0,0); Memo1.Lines.Add(CkStringBuilder__getAsString(sbErrorText)); Memo1.Lines.Add('-- Failed.'); Exit; end; // Save to a local file. // Change the file path based on your operating system or needs... success := CkBinData_WriteFile(bd,'c:/temp/qa_output/sample.doc'); if (success <> True) then begin Memo1.Lines.Add('Failed to save to local file.'); Exit; end; Memo1.Lines.Add('REST Download of MS-Word File was successful.'); CkRest_Dispose(rest); CkBinData_Dispose(bd); CkStringBuilder_Dispose(sbErrorText); end; |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.