Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Sayfa içeriği gizlenmiş sayfadan veri çekme
#1
Merhaba, idhttp.get ile bir siteden veri çekmek istedim. Fakat bilmediğim bir konuyla karşılaştım. Chrome gibi tarayıcıyla ilgili sayfanın Kaynak Kodunu Görüntüle dediğimde farklı içerik , incele diyerek görüntülediğimde farklı içerik geldi. Idhttp.get ile incele diyerek aldığım html içeriği alamadım bunu nasıl alırım ? Bunun sebebi nedir.

GmzlBy.jpg
Cevapla
#2
Emeğinize sağlık, çok teşekkürler harika bir açıklama olmuş. Anladığım kadarıyla buradan veri çekmek için yeterli bilgim olmadığı için bu bilgiyi çekemeyeceğim. Smile Yine hüsran yine. Konu beni aştı..
Cevapla
#3
Tam vazgeçme aşamalarındayken sayenizde yine ümitlendim Smile  Dediğiniz üzere tarayıcının network kısmından sitenin reuquest url sini buldum ve metodunu buldum.
Gördüm ki site https  ve get metodu kullanıyor. idhttp ssl hatası ile uğraşmamak adına bende NetHTTPClient.Get ile bilgiyi çektim. Bilgi json olarak geldi.
Şimdi tek sorun bu json veriyi nasıl ayrıştıracağımda. Bunu nasıl yapacağımı bilmiyorum bir sürü json parse şekli gösterilmiş.  Açıkcası buda kafa karıştırıcı 
Aşağıdaki json çıktısında , id ve balls kısmını parselemeyi deneyeceğim. 
{"game":{"id":37382,"is_current_game":true,"balls":"10,29,57,43,63,11,49,48,20,67,37,21,39,24,54,72,61,14,15,3,27,68,66,59,7,4,46,75,1,73,83,31,90,40,47,22,12,25,18","ball_x":80,"result":false,"c_1":"92","c_2":"","tombala":"","tulum":"","video_url":"","end_at":"0001-01-01T00:00:00Z","created_at":"2019-01-09T12:54:16.475Z","updated_at":"2019-01-09T12:54:16.475Z"}}

Cevapla
#4
Merhaba,
Aşağıdaki gibi basit bir metod ile halledebilirsiniz.
procedure TForm1.Button1Click(Sender: TObject);
  function GetArsJSONdanBirDegerAl(jsonMetin, AlanAdi: String): String;
  var
    Params: TJsonObject;
  begin
    Params := TJsonObject.ParseJSONValue(TEncoding.UTF8.GetBytes(jsonMetin), 0)
      as TJsonObject;
    Result := Params.GetValue<string>(AlanAdi);
  end;

begin
  Memo2.Lines.Add(GetArsJSONdanBirDegerAl(Memo1.Text, 'game.id'));
  Memo2.Lines.Add(GetArsJSONdanBirDegerAl(Memo1.Text, 'game.balls'));
end;
Not: Uses bölümüne System.JSON eklemelisiniz.

   
While true do; Hayat döngüsü, kısır değildir! Yapılan bir yanlış, o döngünün dışına çıkmanızı sağlayacaktır.
WWW
Cevapla
#5
Çok teşekkürler Fesih bey bende konuyu araştırıyordum.
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Question Veritabanindan Word dosyasina veri eklemek Ugur 13 412 09-05-2019, Saat: 17:19
Son Yorum: Ugur
  Veri tabanına aynı değeri tekrarlama arsl01 21 502 03-05-2019, Saat: 11:34
Son Yorum: edo
  Fastreport nesne kontrolu ve veri yazma cinarbil 3 137 18-04-2019, Saat: 08:16
Son Yorum: cinarbil
  Delphi 7 json veri işlemleri onurakman 8 332 17-04-2019, Saat: 11:22
Son Yorum: OBK
  Network Veri Okuma ercanskose 6 253 14-04-2019, Saat: 20:14
Son Yorum: mrmarman



Konuyu Okuyanlar: 1 Ziyaretçi