Please Wait, Loading...

Thursday 30 May 2013

Parsing Webservice Dengan Delphi

Berikut adalah skrip untuk membuat program aplikasi yang digunakan untuk memparsing data xml di webservice, aplikasi ini dibangun menggunakan Delphi 7 yang dijalankan diatas OS Windows 7. Komponen yang digunakan yaitu menggunakan komponen IdHTTP  (Indy Clients). untuk skriptnya adalah sebagai berikut :
Untuk komponen indy sendiri secara default sudah terinstall saat kita pertama kali menginstall delphi 7,
namun jika saudara tidak menemukan komponen tersebut di IDE Delphi 7 anda, maka anda bisa mendowloadnya di alamat www.indyproject.org. Tata cara instalasi komponen tersebut secara dalam topik pembahasan kali ini tidak dijelaskan, mohon maaf sebelumnya. Semoga bacaan dapat bermanfaat.. sekian dan selamat mencoba.
procedure TXMLForm.cxButton1Click(Sender: TObject);
var Answer,aProx,pProx: string;
GetHTML  : TIdHTTP;
begin
  GetHTML:= TIdHTTP.create(Nil);
    try
    GetHTML.Connected;
      aProx := aProxtxt.Text; pProx := pProxtxt.Text;
      GetHTML.Request.UserAgent:= 'Mozilla/7.0';
      Answer := GetHTML.Get(txtWs.EditValue) ;
      MemoWs.Text := Answer;
    finally
      GetHTML.Free;
    end;
end;