(18-05-2017, Saat: 15:03)yhackup Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol (18-05-2017, Saat: 14:17)SimaWB Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlParantez içindeki değerler Unix epoch'a benziyor. Java ile yazılmış bir sunucudan size dönen değerler olabilir mi?
DateUtils içindeki UnixToDateTime ile bu değerleri TDateTime'a dönüştürebilirsiniz. Fakat Java'nın Date sınıfında milisaniye de var. O yüzden dönüştürmeden önce 1000'e bölmek lazım:
var
dt: TDateTime;
begin
dt := UnixToDateTime(1265061600000 div 1000);
tarih := FormatDateTime('dd-mm-yyyy hh: mm: ss', dt );
Öyleymiş, Hallettim Teşekkürler.
Bu arada Json Parse için stackoverflow'un altını üstüne getirdim. Denen bizim forumda yok 
Örnek bir çalışma; Erzurum-Kayseri arası araba ile kaç Km ve ortalama bir hızla kaç saattir?

Google'ın Map API hizmeti bu kolaylığı sağlıyor.
Aşağıdaki linki çalıştırdığınızda;
Linkleri Görebilmeniz İçin
Giriş yap veya
Üye Ol=
şöyle bir JSON değeri dönüyor.
{
"destination_addresses" : [ "Kayseri, Türkiye" ],
"origin_addresses" : [ "Erzurum, Türkiye" ],
"rows" : [
{
"elements" : [
{
"distance" : {
"text" : "633 km",
"value" : 632565
},
"duration" : {
"text" : "7 saat 27 dakika",
"value" : 26798
},
"status" : "OK"
}
]
}
],
"status" : "OK"
}
rows ve
elements kısımları bir diziyi/dataseti (Kare parantezler), bu kısım içerisinde birden çok virgülle ayrılmış her bir değer ise bir dizi elemanını işaret eder.
var
objJSON, rows1, objElementsIlkEleman: TJSONObject;
pirJSON: TJSONPair;
arrJSONrows, arrJSONElements: TJSONArray;
strMesafe, strSüre: String;
begin
....
{JSon değeri alınıyor}
objJSON := RESTRequest1.Response.JSONValue as TJSONObject;
{JSON değerde yer alan rows kısmı yeni bir JSON Objeye dönüştürülüyor}
pirJSON := objJSON.Get('rows');
{rows değerlerini içeren obje JSON dizi/datasete dönüştürülüyor}
arrJSONrows := pirJSON.JSONValue as TJSONArray;
{İlk dizi elemanı JSon objeye dönüştürülüyor, asıl verilerin bulunduğu Elements kısmı, 2. dizi elemanı status'tür}
rows1 := arrJSONrows.Items[0] as TJSONObject;
{rows1 objesinin, JSon değeri içerisindeki Elements işlenmek üzere JSonArray'a dönüştürülüyor}
arrJSONElements := rows1.GetValue('elements') as TJSONArray;
{ son adım Elements dizisindeki ilk kaydın verileri GetValue metodu ile okunuyor}
objElementsIlkEleman := arrJSONElements.Items[0] as TJSONObject;
strMesafe := TJSONObject(objElementsIlkEleman.GetValue('distance')).GetValue('text').Value;
strSüre := TJSONObject(objElementsIlkEleman.GetValue('duration')).GetValue('text').Value;
ShowMessage('Erzurum-Kayseri arası mesafe: ' + strMesafe+', bu gidişle tahmini varış: '+strSüre);
İtina ile parse edilir.