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
  Listview veri sorgulama hk. wiseman 15 577 13-02-2019, Saat: 11:02
Son Yorum: ssahinoglu
  iç içe döngüyle excelden veri tabanına kayıt alma sorunu?[SORUN ÇÖZÜLDÜ] baloglurecep 4 314 20-01-2019, Saat: 13:24
Son Yorum: baloglurecep
  TResourceStream - Alt Exe belgesine veri gönderme - FindResourceEx - Genereic_Write eroniko 4 366 31-12-2018, Saat: 16:40
Son Yorum: eroniko
  Excel den Delphi ye veri çekme nmtsltn 1 341 26-12-2018, Saat: 11:32
Son Yorum: DelphiCan Yönetim
  Comport Library porta veri gönderme hatası baloglurecep 7 1.300 25-12-2018, Saat: 09:12
Son Yorum: frmman



Konuyu Okuyanlar: 1 Ziyaretçi