I am using TRestClient>TRestRequest>TRestResponse>TRESTResponseDataSetAdapter to retrieve JSON data from a Rest API. This works well and I create a TClientDataset in memory: // Create a new in memory dataset gStaffTable := TClientDataset.Create(nil); with gStaffTable do begin // Add some fields…
I have extracted the UK Gov Bank Holidays using Delphi 10.1 with TRESTClient and TRESTRequest. This is the results (cut down version): { "england-and-wales": {"division":"england-and-wales","events": [{"title":"New Year’s Day","date":"2018-01-01","notes":"","bunting":true}, {"title":"Good Friday","date":"2018-03-30","notes":"","bunting":false}, {"title":"Christmas Day","date":"2025-12-25","notes":"","bunting":true}, {"title":"Boxing Day","date":"2025-12-26","notes":"","bunting":true}]}, "scotland": {"division":"scotland","events": [{"title":"New Year’s Day","date":"2018-01-01","notes":"","bunting":true}, {"title":"2nd…
I have created 2 apache dll using delphi and this guide: https://docwiki.embarcadero.com/RADStudio/Sydney/en/DataSnap_REST_Application_Wizard_for_Windows then I tried installing the first on apache like this: LoadModule webbroker_module modules/mod_webbroker.dll <Location /xyz> SetHandler mod_webbroker-handler </Location> and it works. When I try to add the second…
unit fmainForm; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm}…
I want to check if the JSON object has the key "error". If it has, I want to "continue" the loop, otherwise the program can go to all the loop. This is the JSON: [ { "cenario": { "origem": "",…
Before using parameters FDQuery.Connection := FDConnection1; FDQuery.SQL.Text := 'SELECT * FROM ' + symbol + ' WHERE date >= ''' + datetostr(Dfrom) + ''' AND date <= ''' + datetostr(Dto) + ''''; FDQuery.Active := True; it can work, but after…
I'm trying to emulate pushing the keyboard V key down while using BASS library to automate Voice Activation push to talk. I've got the BASS library working, just can't get the keyboard to simulate holding down a Key for any…
I have written some applications in Delphi for a production company, the purpose of this application is label printing and production data acquisition.All of these applications are Client-Server (Using ZeosLib connecting directly to PostgreSQL through 5432 port). In recent days,…
I have tested POST function in PostMan to do POST function with body parameters as below: Here is eBay's document for this function: HTTP method: POST URL (Sandbox): https://api.sandbox.ebay.com/identity/v1/oauth2/token HTTP headers: Content-Type = application/x-www-form-urlencoded Authorization = Basic <B64-encoded-oauth-credentials> Request body:…
I want to build a constant array(1..200) of single numbers to make a 'lookup table' to convert the position of the scrollbar which has values 1 - 200 to a value to use for applying gamma correction to an image.…