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
  Parça Parça veri gönderme onurakman 1 113 08-06-2019, Saat: 18:08
Son Yorum: masteryoda
  [ÇÖZÜLDÜ] Veritabanından hızlı veri çekmek için tavsiye wiseman 6 237 31-05-2019, Saat: 22:34
Son Yorum: frmman
Question Veritabanindan Word dosyasina veri eklemek Ugur 13 454 09-05-2019, Saat: 17:19
Son Yorum: Ugur
  Veri tabanına aynı değeri tekrarlama arsl01 21 626 03-05-2019, Saat: 11:34
Son Yorum: edo
  Fastreport nesne kontrolu ve veri yazma cinarbil 3 190 18-04-2019, Saat: 08:16
Son Yorum: cinarbil



Konuyu Okuyanlar: 1 Ziyaretçi