quickchart-pascal

A pascal client for the QuickChart.io chart API using OOP (Object-Oriented Programming) and (Functional Programming) In Delphi.

QuickChart is a service that generates images of charts from a URL. Because these charts are simple images, they are very easy to embed in non-dynamic environments such as email, SMS, chat rooms, and so on.

Official github

• JTheiller/quickchart-pascal

Installation

• Delphi
• Boss

Lib dependencies

• System.JSON
• System.Generics.Collections

⚡️ Usage - Quickstart

//...
 
uses
  QuickChart;

procedure TForm1.button1Click(Sender: TObject);
const
  JSON_TEXT ='{'
            +'  "type":"bar",'
            +'  "data":{'
            +'    "labels":["January","February","March","April","May"],'
            +'    "datasets":['
            +'      {'
            +'        "label":"Dogs",'
            +'        "data":[50,60,70,180,190]'
            +'      },'
            +'      {'
            +'        "label":"Cats",'
            +'        "data":[100,200,300,400,500'
            +'        ]'
            +'      }'
            +'    ]'
            +'  }'
            +'}';
begin
  TQuickChart
    .New
      .SetWidth(500)
      .SetHeight(300)
      .SetDevicePixelRatio(2.0)
      .SetBackgroundColor('transparent')
      .SetFormat('png')
      .SetEncoding('url')
      .SetVersion('2.9.4')
      .SetChart( JSON_TEXT ) //<----- JsonText
      .Download( 'QuickChart.png' )
    .Free;
end;

end.

Using Object DTO

//...
 
uses
  QuickChart, QuickChart.Chart, QuickChart.Types;

procedure TForm1.button1Click(Sender: TObject);
var
  LChartDTO: TQuickChartDTO;
begin
  LChartDTO := TQuickChartDTO.New;

  LChartDTO
    .Data
      .LabelNew(['January','February','March','April','May'])
      .DatasetAdd( TDatasetDTO
                     .New
                       .SetLabel('Dogs')
                       .DataNew( [50, 60, 70, 180, 190] )
                     )
      .DatasetAdd( TDatasetDTO
                     .New
                       .SetLabel('Cats')
                       .DataNew( [100, 200, 300, 400, 500] )
                     );
  TQuickChart
    .New
      .SetWidth(500)
      .SetHeight(300)
      .SetDevicePixelRatio(2.0)
      .SetBackgroundColor('transparent')
      .SetFormat('png')
      .SetEncoding('url')
      .SetVersion('2.9.4')
      .SetChart( LChartDTO ) //<----- ObjectDTO
      .Download( 'QuickChart.png' )
    .Free;

  LChartDTO.Free;
end;

end.

Screenshots Samples

📝 Doc API

For more details on configuring your chart, reference the QuickChart documentation.

• https://quickchart.io/documentation/
• https://quickchart.io/gallery/
• https://quickchart.io/chart-maker/

Tools

• https://jsonformatter.curiousconcept.com/
• https://jsonformatter.org/json-pretty-print
• https://github.com/HashLoad/boss

👨‍💻👩‍💻 Contributing

If you wish to contribute to this website, please:

• Fork it on GitHub JTheiller/quickchart-pascal/Fork
• Push your change to a named branch, then send a pull request
• If it is a big feature, you might want to start an issue JTheiller/quickchart-pascal/Issue, first to make sure it's something that will be accepted.

⚠️ License

The source code for the site is licensed under the MIT license, which you can find in the LICENSE file.

Copyright (c) 2022 Joathan Theiller