Delphi Json veri Alma
Qr-code lar da oluşan verileri okumak için aşağıdaki kodlar yardımcı olacaktır
aşağıdaki örnek bir e-irsaliye de bulunan qr-code verisinin içindeki almak için örneklendirilmiştir
01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 | uses System.JSON; procedure TForm3.Button1Click(Sender: TObject); var jsonData: TJSONObject; begin // JSON veriyi bir TJSONObject nesnesine çözümle jsonData := TJSONObject.ParseJSONValue(Memo1.Lines.Text) as TJSONObject; if Assigned(jsonData) then begin try // ettn değerini al edit1.Text := jsonData.GetValue('ettn').Value; edit2.Text := jsonData.GetValue('vkntckn').Value; edit3.Text := jsonData.GetValue('avkntckn').Value; edit4.Text := jsonData.GetValue('senaryo').Value; edit5.Text := jsonData.GetValue('tip').Value; edit6.Text := jsonData.GetValue('tarih').Value; edit7.Text := jsonData.GetValue('no').Value; edit8.Text := jsonData.GetValue('sevktarihi').Value; edit9.Text := jsonData.GetValue('sevkzamani').Value; edit10.Text := jsonData.GetValue('tasiyicivkn').Value; edit11.Text := jsonData.GetValue('plaka').Value; finally jsonData.Free; end; end else begin ShowMessage('JSON Verisi Çözümlenemedi.'); end; end; |
Örnek Programı İndirmek için aşağıdaki bağlantıyı kullanınız