Anfidya'nın arka bahçesi..

There is dark web in the deep web..

Archive for Mart, 2016

[Delphi] İnternet Üzerinden XML Veri Alma / Get XML Data From Internet

leave a comment

Selam köylüler/ Hello Canolar,

Yıl olmuş 2016 hatta üzerinden üç ay geçmiş ve ben hala bir şeyler yazmamışım. Varooo (: Neyse bugün bloga yeni yazı eklemem için planda olmayan bir durum oldu.
Evladım bu blogu bir şekilde birileri bulup bir şeyler okuyormuş layyynn! Neyse aga ben yazarım gerisi size kalmış. Bunların ingiliççesini aşağıya yazmayacam değerimi bilin.

Bugün, internetten bir xml verisini idhttp ile programımıza çekerek içeriğini ayrıştıracağız.
Today, we will get xml data with idhttp from internet.

Öncelikle, form üzerine “Indy Client” bölümünden bir adet “IDHTTP” ve “Internet” kısmından bir adet “XMLDocument” koyuyoruz.
Firstly, I have to add “IDHTTP” component from “Indy Client” tab and “XMLDocument” component from “Internet” tab.

Daha sonra aşağıda ki kodları her hangi bir kod bloğuna veya komponente dahil edebilirsiniz.(söylemeyi unuttum bir tanede “Memo”)
After that, you can include this codes in any function(or procedure) or any component.(I forgot to say, please add a “Memo”)

var
 a : IXMLNode;
 i  : IntegeR;
begin
 XMLDocument1.XML.Clear;
 XMLDocument1.XML.Text := IdHTTP1.Get('http://anfidya.com/anan.xml');
 XMLDocument1.Active := True;
  for i:=0 to XMLDocument1.DocumentElement.ChildNodes.Count -1 do
  begin
   a := XMLDocument1.DocumentElement.ChildNodes[i];
   Memo1.Lines.Add(a.ChildNodes['description'].Text);
  End;
 XMLDocument1.Active := False;
end;

http://anfidya.com/anan.xml adresine giderek yapıyı inceleyebilirsiniz. Uzun uzun açıklamaya gerek yok bence siz bir bakışta nokta atışı yaparsınız. He eğer olurda yorgun vs olursanız lütfen yorum olarak yazın size uygun bir yol buluruz smile.

You can exemine http://anfidya.com/anan.xml address. It is so clear but if you have a problem, please fell to free make comment 😛

Allah hepinizi sevsin gençler.

Written by anfidya

Mart 12th, 2016 at 12:50 am