Delphi for delphier

Web Service – Dataset – Latihan 1 Bagian 2

Tingkatan Menengah
Kategori Web Service
Sub Kategori Dataset
Judul Mengambil data XML dan membuat file transformasi
Oleh
eko-indriyawan-png.png   Nama Eko Indriyawan
Domisili Surabaya – Darmo Satelit
Delphi Delphi 2007 for Win32
YM eko_elits
Email eko_elits@yahoo.com
Telp 031 – 605 384 36
   
Referensi Program oleh Eko Indriyawan
 

Web Service dari http://www.xmethods.net

   

Tujuan

Mengajarkan kepada para Delphier tentang bagaimana cara mengambil data XML yang kemudian dilanjutkan dengan membuat file transformasi.

  spasi

Overview

Pembahasan pada artikel ini akan menjelaskan kepada para Delphier tentang teknik mengambil data XML dari server melalui web service yang kemudian dilanjutkan dengan membuat file transformasi.

Untuk melakukan proses diatas, kita akan menggunakan tools XML Mapper. Bagi anda yang belum pernah menggunakan tools ini jangan khawatir, karena didalam artikel ini akan disajikan dengan bahasa yang mudah yang dilengkapi dengan gambar yang akan mempermudah delphier dalam memahami setiap prosesnya.

Jika nanti anda sudah bisa melakukan proses koneksi ke web service, maka silahkan anda lanjutkan ke artikel bagian ketiga.

  spasi
Petunjuk :

Silahkan anda ikuti langkah – langkah berikut ini dengan pelan – pelan agar bisa berjalan dengan lancar sesuai dengan petunjuk yang sudah diberikan.

  spasi

Langkah 1

Fokuskan perhatian anda pada object HTTPRIO1.

   

Langkah 2

Pada bagian propertyURL, silahkan anda isikan alamat “http://ws.cisa.ca/WehireWS/JobsWs.asmx?WSDL
   

Langkah 3

Masih di object yang sama, silahkan anda tuliskan kode program didalam event OnAfterExecute seperti terlihat pada potongan kode program dibawah ini.

   
 

procedure TForm1.HTTPRIO1AfterExecute(const MethodName: string; SOAPResponse: TStream);
var
XMLDoc: IXMLDocument;
begin

SOAPResponse.Position := 0;

Memo1.Lines.LoadFromStream(SOAPResponse);

end;

   

Langkah 4

Klik 2x pada tombol Ambil data dari Server melalui web service. Kemudian isikan kode program didalamnya seperti terlihat pada potongan kode program dibawah ini.

   
 

procedure TForm1.Button1Click(Sender: TObject);
begin

(HTTPRIO1 as JobsWsSoap).GetAll;

end;

   
Langkah 5

Klik 2x pada tombol edit “soap:Envelope” menjadi “soap”. Kemudian isikan kode program didalamnya seperti terlihat pada potongan kode program dibawah ini.

   
 

procedure TForm1.Button2Click(Sender: TObject);
begin

Memo1.Text := StringReplace(Memo1.Text,’soap:Envelope’,’soap’,[rfReplaceAll]);

end;

   

Langkah 6

Klik 2x pada tombol edit “soap:Body” menjadi “soap”. Kemudian isikan kode program didalamnya seperti terlihat pada potongan kode program dibawah ini.

   
 

procedure TForm1.Button3Click(Sender: TObject);
begin

Memo1.Text := StringReplace(Memo1.Text,’soap:Body’,’soap’,[rfReplaceAll]);

Memo1.Lines.SaveToFile(‘Data.xml’);

end;

   

Langkah 7

Selanjutnya, silahkan anda compile dan jalankan program aplikasinya. Tunggu beberapa saat hingga program aplikasi siap untuk dijalankan.

 
     

Langkah 8

Setelah aplikasi siap untuk dioperasikan. Silahkan anda tekan tombol Ambil data dari Server melalui web service. Apabila proses pengambilan data berhasil, maka akan didapatkan tampilan seperti berikut ini.

   
 

menengahwebservicedataset00007.png

   

Langkah 9

Lanjutkan dengan menekan tombol edit “soap:Envelope” menjadi “soap”. Tunggu beberapa saat hingga didapatkan tampilan seperti berikut ini.

   
 

menengahwebservicedataset00008.png

   

Langkah 10

Kemudian tekan tombol edit “soap:Body” menjadi “soap”. Tunggu beberapa saat hingga didapatkan tampilan seperti berikut ini.

   
 

menengahwebservicedataset00009.png

   
 

Ketika tombol edit “soap:Body” menjadi “soap”ditekan, program aplikasi juga menyimpan data stream kedalam file XML dengan nama Data.xmldi folder program berada.

   

Langkah 11

Sekarang anda buka menu Tools

   

Langkah 12

Pilih item XML Mapper.Tunggu beberapa saat hingga didapatkan tampilan seperti berikut ini.
   
 

menengahwebservicedataset00006.png

   

Langkah 13

Setelah itu pilih menu File.

   

Langkah 14

Lanjutkan dengan memilih sub menu Open. Tunggu beberapa saat hingga didapatkan tampilan seperti berikut ini.

   

menengahwebservicedataset00010.png

   

Langkah 15

Lanjutkan dengan menekan tombol Open hingga didapatkan tampilan seperti berikut ini.

   

menengahwebservicedataset00011.png

   

Langkah 16

Silahkan anda klik 2x pada data PostingDate, Title, Category, Url, Company dan Location. Berdasarkan gambar diatas terlihat bahwa ada dua data yang sama. Oleh karena itu, silahkan anda pilih untuk data yang paling atas hingga didapatkan tampilan seperti berikut ini.

   

menengahwebservicedataset00012.png

   

Langkah 17

Kemudian anda lanjutkan dengan memilih menu Create.

   

Langkah 18

Setelah itu, silahkan pilih sub menu DataPacket from XML, anda bisa juga melakukan proses ini dengan menekan tombol Ctrl + D. Jika berhasil, maka tombol Create and Test Transformationakan aktif. Untuk lebih jelasnya silahkan anda lihat gambar dibawah ini.

   

menengahwebservicedataset00013.png

   

Langkah 19

Sekarang silahkan anda tekan tombol Create and Test Transformation. Apabila sukses, maka akan didapatkan tampilan seperti berikut ini.
   

menengahwebservicedataset00014.png

   
Langkah 20

Proses transformasi telah berhasil dilakukan. Silahkan anda tutup kotak dialog diatas.

   

Langkah 21

Lanjutkan dengan membuka menu File

   

Langkah 22

Pilih sub menu Save

   

Langkah 23

Pilih item Transformation

   

Langkah 24

Simpan file transformation dengan nama ToDp.xtr

   

Langkah 25

Tekan tombol Save

   
Langkah 26

Proses pembuatan file transformation telah berhasil anda lakukan. Silahkan anda lanjutkan untuk bagian ketiga.

   
   
  spasi

Download

Ada beberapa masukan dan keluhan dari teman – teman, bahwa ada beberapa program contoh tidak bisa dijalankan dari delphi 7. Hal ini dikarenakan program contoh dibuat dengan menggunakan Delphi 2007 for win32.

Apabila anda menggunakan D7, sebaiknya anda mengikuti pandauan dari langkah – langkah yang sudah diberikan.

Atas perhatiannya, saya mengucapkan banyak terimakasih.

  spasi
Link terkait
Latihan 1
   
  Web Service JobsWs
  WSDL http://ws.cisa.ca/WehireWS/JobsWs.asmx?WSDL
   
    Bagian 1
      Mengambil Web Service dengan WSDL
    Bagian 2
      Menambil data XML dan membuet file transformasi
    Bagian 3
      Menampilkan data lewat Dataset
    Bagian 4
      Mengimplementasikan seluruh method yang ada didalam web service
    Bagian 5
      Mengakses Web Service dan menghubungkannya dengan database MS Access
   
Disarankan baca
Latihan 2
   
  Web Service ICodeCentralWS
  WSDL http://cc.codegear.com/ccws/cc.asmx?WSDL
   
    Bagian 1
      Mengambil Web Service dengan WSDL
    Bagian 2
      Menambil data XML dan membuet file transformasi
    Bagian 3
      Membuat aplikasi login codegear
       
   
Buku panduan
Dasar First Step To Be A Programmer
Menengah Pemrograman Database dengan Delphi dan MS SQL Server
Menengah Membangun database MLM
 
 
 
Jika anda mau berusaha dan punya semangat, jangan biarkan waktu anda lari begitu saja. By Eko Indriyawan

6 Komentar

  1. keren banget!!asli dah mas eko memang keren,,terus gali mas!!ntar langsung taro di blog nya ya!saya dukung terus mas!!terus kibarkan bendara mu

    Komentar oleh darvesth — Februari 16, 2008 @ 4:32 pm

  2. Salut…
    kapan ya bisa kaya mas eko….
    kudu banyak belajar nih.

    Komentar oleh kelix — Februari 16, 2008 @ 4:33 pm

  3. wah…
    makasih banyak mas
    saya salut…
    semoga ilmunya tambah trus mas…

    Komentar oleh anak_s0leh — Februari 16, 2008 @ 8:56 pm

  4. @darvesth

    makasih mas atas dukungannya

    @kelix

    Insyaallah asal mas belajar terus, sebenarnya tidak ada yang susah
    saya juga masih belajar koq mas hingga sekarang

    @anak_s0leh

    Semoga artikel ini bisa bermanfaat mas

    Komentar oleh ekoindri — Februari 16, 2008 @ 9:04 pm

  5. ingat ya,,kaya filosofi padi ya!!semakin banyak ilmu semakin tunduk!!!terima kasih ya mas sama semua contoh mas yang berikan!!!
    terus kibarkan bendara nya ya!kapan nih mo kejakarta!tak tunggu ya,biar bisa belajar sama mas!! hehehehehehe

    Komentar oleh darvesth — Februari 16, 2008 @ 10:47 pm

  6. semoga dalam waktu dekat saya bisa buka cabang di jakarta…šŸ˜€

    Komentar oleh ekoindri — Februari 16, 2008 @ 10:49 pm


RSS feed for comments on this post.

Blog di WordPress.com.

%d blogger menyukai ini: