Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 4/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Delphi ile Json Parse İşlemi
#11
Yok üstadım gördüm ve denedim ama hatam değişmedi. Bir üstadımız aşıdaki gibi bir yol gösterdi denedim çalışıyor. Şimdi inceleyip öğrenmeye çalışıyorum.
Teşekkürler


procedure TForm1.Button2Click(Sender: TObject);
var
 TempString: string;
 JsonValue: TJsonValue;
begin
 TempString := IdHTTP1.Get('https://poloniex.com/public?command=returnTicker');
 JsonValue := TJSONObject.ParseJSONValue(TempString);
 try
   Memo2.Lines.Add('lowestAsk: ' + JsonValue.GetValue<string>('BTC_BCN.lowestAsk'));
 finally
   JsonValue.Free();
 end;
end;
Cevapla
#12
(23-05-2017, Saat: 03:03)10.Köy Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlÇok teşekkürler elinize sağlık.  Bu aralar bende ayıklama üzerine çalışıyorum.  Biraz karmaşık geldi ama sagolsun fesih bey yardimci oldu. Delimiter ile parçalara ayirdiktan sonra ayıklama kaldı ona da yogunluktan  bakamadım henüz.  Örneğin Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol sitesinde ki saatlik kayan verilerin yalnızca ilk değerini ayikliyabiliyorum diğer saatleri memoya aktaramadim  alt alta. Delimitersiz siralayabilir miyim?  Delimiter ile özel algoritma uyarlamam gerekli varsa daha uygun yol onu sonra gelistireyim . Biraz kolaya kaçıyorum  Kullandığım kodlar.

Function AradanSec(text, ilk, son: widestring): String;
begin
  Delete(text, 1, pos(ilk, text) + Length(ilk) - 1);
  Result := Copy(text, 1, pos(son, text) - 1);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  webbrowser1.Navigate('https://www.epias.com.tr/');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  memo1.Clear;
  memo1.text := webbrowser1.OleObject.document.body.innerHTML;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  memo2.text := AradanSec(webbrowser1.OleObject.document.body.innerHTML,
    'rakam>', '</');
end;


Merhaba ben size konu hakkında yardımcı olabilirim 5-6 yıldır bu parse işi ile uğraşıyorum 

şimdi öncelikle bu kısım biraz sıkıntı


memo2.text := AradanSec(webbrowser1.OleObject.document.body.innerHTML,

    'rakam>', '</');

Yukarıda webrowser1.oleobject kısmındaki kaynak kodlarını önce dilerseniz bir memoya aktarın. Çünkü bazen kaynak kodlarını çekme işlemi bitmeden ayıklamak zorunda kalabilir yazılımınız ve kaynak kodları tam çekilmeden ayıklandığı için sonuç alamayabilirsiniz.

önce kaynak kodlarını memoya ekleyin daha sonra memo2.text:=aradansec(kaynak.text,     diye ayıklama işlemi gerçekleştirin daha sağlıklı olur.

ikinci olarak siz bütün değerleri almak istiyorsanız. ve bu belirttiğiniz 'rakam>' bütün değerler için geçerliyse burada bu işi for döngüsüne bağlamak gerekir.

yardımcı olabilmek içinse sitenin innerhtml kaynak kodlarını memoya aktarıp buradan paylaşabilir misiniz? kaynak kodlarını bir kontrol edelim bakalım

şu an dışarı çıkıyorum dönüce for döngüsü örneği paylaşırım sizinle ama mutlaka kaynak kodlarını buraya paylaşın sitenin
Cevapla
#13
(18-02-2018, Saat: 14:33)hakanharbeli Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
(23-05-2017, Saat: 03:03)10.Köy Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlÇok teşekkürler elinize sağlık.  Bu aralar bende ayıklama üzerine çalışıyorum.  Biraz karmaşık geldi ama sagolsun fesih bey yardimci oldu. Delimiter ile parçalara ayirdiktan sonra ayıklama kaldı ona da yogunluktan  bakamadım henüz.  Örneğin Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol sitesinde ki saatlik kayan verilerin yalnızca ilk değerini ayikliyabiliyorum diğer saatleri memoya aktaramadim  alt alta. Delimitersiz siralayabilir miyim?  Delimiter ile özel algoritma uyarlamam gerekli varsa daha uygun yol onu sonra gelistireyim . Biraz kolaya kaçıyorum  Kullandığım kodlar.

Function AradanSec(text, ilk, son: widestring): String;
begin
  Delete(text, 1, pos(ilk, text) + Length(ilk) - 1);
  Result := Copy(text, 1, pos(son, text) - 1);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  webbrowser1.Navigate('https://www.epias.com.tr/');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  memo1.Clear;
  memo1.text := webbrowser1.OleObject.document.body.innerHTML;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  memo2.text := AradanSec(webbrowser1.OleObject.document.body.innerHTML,
    'rakam>', '</');
end;


Merhaba ben size konu hakkında yardımcı olabilirim 5-6 yıldır bu parse işi ile uğraşıyorum 

şimdi öncelikle bu kısım biraz sıkıntı


memo2.text := AradanSec(webbrowser1.OleObject.document.body.innerHTML,

    'rakam>', '</');

Yukarıda webrowser1.oleobject kısmındaki kaynak kodlarını önce dilerseniz bir memoya aktarın. Çünkü bazen kaynak kodlarını çekme işlemi bitmeden ayıklamak zorunda kalabilir yazılımınız ve kaynak kodları tam çekilmeden ayıklandığı için sonuç alamayabilirsiniz.

önce kaynak kodlarını memoya ekleyin daha sonra memo2.text:=aradansec(kaynak.text,     diye ayıklama işlemi gerçekleştirin daha sağlıklı olur.

ikinci olarak siz bütün değerleri almak istiyorsanız. ve bu belirttiğiniz 'rakam>' bütün değerler için geçerliyse burada bu işi for döngüsüne bağlamak gerekir.

yardımcı olabilmek içinse sitenin innerhtml kaynak kodlarını memoya aktarıp buradan paylaşabilir misiniz? kaynak kodlarını bir kontrol edelim bakalım

şu an dışarı çıkıyorum dönüce for döngüsü örneği paylaşırım sizinle ama mutlaka kaynak kodlarını buraya paylaşın sitenin

Merhabalar. Cevabınız ilginiz için teşekkür ederim. Çözüm cevap bulamayınca ara vermiştim. Inşallah ilk fırsatta çalışmaya tekrar bakayım. Çok teşekkür ederim
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Delphi ile klasör ve dosyaları görünmez yapmak haydarxxx 5 128 12-05-2018, Saat: 22:29
Son Yorum: haydarxxx
  Delphi winlock haydarxxx 4 189 12-05-2018, Saat: 16:03
Son Yorum: haydarxxx
  Delphi ile görüntü işleme narkotik 9 237 08-05-2018, Saat: 15:43
Son Yorum: narkotik
  HHBMailComponent - Kolay Mail Gönderim Bileşeni [Delphi] hyperxman 22 747 07-05-2018, Saat: 19:44
Son Yorum: hyperxman
  Delphi Örnek Login Ekranı mehmetalpgozbasi 7 209 06-05-2018, Saat: 16:35
Son Yorum: dkadir



Konuyu Okuyanlar: 1 Ziyaretçi