Clomosy ile değişken kullanımı - Veritabanı Bağlama

TclRest bileşeni ile borsadaki fiyatı getiren basit bir örnek yazdım ben bildiğim bir borsa sitesini kullandım url kısmına apii anahtarını aldığın borsa sitesinin urlsini girebilirsin umarım yardımcı olur

var

borsaForm: TCLForm;

fiyatLabel: TClProLabel;

getirBtn: TClProButton;

restBorsa: TClRest;

void fiyatGetir;

var

sonuc: String;

{

restBorsa.BaseURL = ' https://finnhub.io/api/v1/quote?symbol=AAPL&token=Kendiapianahtarı" rel="nofollow - https://finnhub.io/api/v1/quote?symbol=AAPL&token=Kendiapianahtarı nıbukısmagir';

restBorsa.Method = rmGet;

restBorsa.ContentType = 'application/json';

restBorsa.Execute;

sonuc = Clomosy.CLParseJSON(restBorsa.Response, 'c');

fiyatLabel.Caption = 'AAPL Fiyatı: ' + sonuc + ' USD';

}

void FormCreate;

{

borsaForm = TCLForm.Create(Self);

fiyatLabel = borsaForm.AddNewProLabel(borsaForm, 'fiyatLabel', 'AAPL Fiyatı:');

fiyatLabel.Align = alTop;

fiyatLabel.Height = 30;

fiyatLabel.clProSettings.TextSettings.Font.Size = 18;

getirBtn = borsaForm.AddNewProButton(borsaForm, 'getirBtn', 'Fiyatı Getir');

getirBtn.Align = alTop;

getirBtn.Height = 40;

borsaForm.AddNewEvent(getirBtn,tbeOnClick,'fiyatGetir');

restBorsa = TClRest.Create;

}

{

FormCreate;

borsaForm.Run;

}