(Delphi ActiveX) Interfax -- Fax a Single Document

Demonstrates how to use the REST API to fax a single document using interfax.net. See Send fax for more information.

This example will send a POST with these potential query params:

POST /outbound/faxes?faxNumber={faxnumber}[&contact={string}&postponeTime={datetime}
&retriesToPerform={number}&csid={string}&pageHeader={string}&reference={string}
&replyAddress={email}&pageSize={a4|letter|legal|b4}&fitToPage={scale|noscale}
&pageOrientation={portrait|landscape}&resolution={fine|standard}&rendering={greyscale|bw}]

POST /outbound/faxes?faxNumber={faxnumber}&... HTTP/1.1
Host: rest.interfax.net
Authorization: Basic QWxhZGRpbjpvcGVuIHNlc2FtZQ==
Content-Type: application/msword
 
{binary content goes here}

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
rest: TChilkatRest;
success: Integer;
bTls: Integer;
port: Integer;
bAutoReconnect: Integer;
fileStream: TChilkatStream;
responseStr: WideString;

begin
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

rest := TChilkatRest.Create(Self);

// Use Basic Authentication.
// Use your InterFAX login and password.
success := rest.SetAuthBasic('INTERFAX_LOGIN','INTERFAX_PASSWORD');

// Connect to the Interfax REST server.
// Make sure TLS is used.  One should NEVER send a username+password using Basic authentication
// over a non-secure connection.
bTls := 1;
port := 443;
bAutoReconnect := 1;
success := rest.Connect('rest.interfax.net',port,bTls,bAutoReconnect);

// Indicate the Content-Type of our upload.  
// We're faxing a PDF, so set the content-type to application/pdf.
success := rest.AddHeader('Content-Type','application/pdf');

// We can add an "Expect: 100-continue" header so that if the request is rejected
// by the server immediately after receiving the request header, it can respond
// and the client (Chilkat) can avoid sending the file data.
// (this is optional)
success := rest.AddHeader('Expect','100-continue');

fileStream := TChilkatStream.Create(Self);

// The stream's source will be a file.
fileStream.SourceFile := 'qa_data/pdf/fishing.pdf';

// Add query params.
// The fax number format is "+1-212-3456789"
rest.AddQueryParam('faxNumber','MY-FAX-NUMBER');
rest.AddQueryParam('pageSize','letter');
// Add any other desired query params ...

// The response is a 0-length "201 Created" response.
// Therefore the responseStr will be empty.
responseStr := rest.FullRequestStream('POST','/outbound/faxes',fileStream.ControlInterface);
if (rest.LastMethodSuccess <> 1) then
  begin
    Memo1.Lines.Add(rest.LastErrorText);
    Exit;
  end;

if (rest.ResponseStatusCode <> 201) then
  begin
    // The response was not successful.
    // We can examine the response code, header and status text:
    Memo1.Lines.Add('Response status code: ' + IntToStr(rest.ResponseStatusCode));
    Memo1.Lines.Add('Response status text: ' + rest.ResponseStatusText);
    Memo1.Lines.Add('Response header: ' + rest.ResponseHeader);
    Memo1.Lines.Add('FAX failed.');
  end
else
  begin
    Memo1.Lines.Add('FAX sent.');
  end;
end;