Delphi for delphier

Web Service – Dataset – Latihan 1 Bagian 1

Tingkatan Menengah
Kategori Web Service
Sub Kategori Dataset
Judul Mengambil web service dengan WSDL
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 Web Service dengan menggunakan WSDL.

  spasi

Overview

Pembahasan pada artikel ini akan menjelaskan kepada para Delphier tentang cara koneksi ke web service menggunakan WSDL.

Untuk melakukan proses koneksi tersebut, kita akan menggunakan tools WSDL Importer. Bagi anda yang belum pernah membuat aplikasi web service, 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 kedua.

  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

Buat program aplikasi baru.

   

Langkah 2

Tambahkan beberapa object kedalam Form

   
  HTTPRIO1: THTTPRIO;
ClientDataSet1: TClientDataSet;
XMLTransformProvider1: TXMLTransformProvider;
Button1: TButton;
Edit1: TEdit;
Label1: TLabel;
Label2: TLabel;
Edit2: TEdit;
Bevel1: TBevel;
Bevel2: TBevel;
Label3: TLabel;
Edit3: TEdit;
Label4: TLabel;
Edit4: TEdit;
  spasi

Langkah 3

Atur desainnya seperti berikut ditampilkan pada gambar form dibawah ini

   
 

menengahwebservicedataset00001.png

   

Langkah 4

Tambahkan library XMLIntf kedalam uses. Untuk lebih jelasnya silahkan lihat potongan kode program dibawah ini.

   
 

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, InvokeRegistry, StdCtrls, Rio, SOAPHTTPClient, XMLIntf, xmldom,
Provider, Xmlxform, DB, DBClient, Grids, DBGrids, ExtCtrls;

   
Langkah 5

Lanjutkan dengan membuka situs www.xmethods.net.

   

Langkah 6

Pilih service name “Jobs in British Columbia and Alberta

   

Langkah 7

Kemudian anda copy WSDL “http://ws.cisa.ca/WehireWS/JobsWs.asmx?WSDL

   

Langkah 8

Silahkan anda kembali ke IDE Delphi.

   

Langkah 9

Pilih menu File.

   

Langkah 10

Pilih sub menu New

   

Langkah 11

Pilih item Other

   

Langkah 12

Pilih kategori Web Service
   

Langkah 13

Pilih item WSDL Importer.Untuk lebih jelasnya silahkan lihat tampilan gambar berikut ini.

   
 

menengahwebservicedataset00002.png

   

Langkah 14

Silahkan anda tekan tombol OK. Tunggu beberapa saat hingga didapatkan tampilan seperti berikut ini.

   

menengahwebservicedataset00003.png

   

Langkah 15

Silahkan anda paste untuk url wsdl yang telah anda copy. Untuk detailnya, silahkan anda lihat gambar dibawah ini.

   

menengahwebservicedataset00004.png

   

Langkah 16

Silahkan anda lanjutkan dengan menekan tombol Next. Jika berhasil, maka akan didapatkan tampilan seperti berikut ini.

   

menengahwebservicedataset00005.png

   

Langkah 17

Kemudian anda lanjutkan dengan menekan tombol Finish. Dan secara langsung sistem akan mengenerate WSDL itu tadi menjadi sebuah unit dengan nama JobsWs.

   

Langkah 18

Setelah itu, silahkan anda simpan unitnya dengan nama JobsWs.

   

Langkah 19

Tambahkan unit tersebut kedalam library program anda. Untuk lebih detailnya silahkan anda lihat potongan kode program dibawah ini.
   
 

var
Form1: TForm1;

implementation

uses JobsWs;

{$R *.dfm}

   
Langkah 20 Proses konek dengan web service telah kita lakukan. Untuk tahap selanjutnya, silahkan anda baca petunjuk untuk bagian 2 pada Latihan 1.
  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

12 Komentar

  1. seeppp…..ini yang saya butuhkan….bisa hemat pengeluaran nih utk beli buku hehehhe…maklum masih cupet nih lg kosong proyek..hehhehe
    maju terus bos eko…karyamu ditunggu oleh para delphier newbie terutama kulo hehehhehe……

    Komentar oleh robby fermawan — Februari 18, 2008 @ 11:56 am

  2. mas eko,setelah saya membaca dan mencoba mengikuti langkash2 yang ada, namun saya masih bingung sebenernya web services ini gunanya untuk apa, dan kapan kita menggunakannya?mohon dijelaskan sebelum saya melangkah ke bag 2.satu lagi komponen yang dibawah ini saya belum menemukannya,carinya dimana:
    ClientDataSet1PostingDate: TStringField;
    ClientDataSet1Title: TStringField;
    ClientDataSet1Category: TStringField;
    ClientDataSet1Url: TStringField;
    ClientDataSet1Company: TStringField;
    ClientDataSet1Location: TStringField;
    mohon maaf jika pertanyaannya dasar sekali.makasih sebelumnya.

    Komentar oleh ricky06 — Februari 18, 2008 @ 12:00 pm

  3. Dan Karyamu

    Karyamu membuat aku tergagum, dan karyamu membuat aku ingin meniru…dan karyamu membuat aku terbantu….dan karyamu membuat aku tergugah……..
    dan karyamu membuat aku merasa berhutang jasa…………….

    Komentar oleh mas_kofa — Februari 18, 2008 @ 12:19 pm

  4. @robby fermawan

    alhamdulillah jika bisa berhemat

    @ricky06

    Untuk memperdalam soap silahkan buka link dibawah ini

    http://www.w3schools.com/soap/default.asp

    Untuk memperdalam wsdl silahkan buka link dibawah ini

    http://www.w3schools.com/wsdl/default.asp

    Untuk memperdalam xml silahkan buka link dibawah ini

    http://www.w3schools.com/xml/default.asp

    Untuk memperdalam web service silahkan buka link dibawah ini

    http://www.w3schools.com/webservices/default.asp

    Untuk memperdalam AJAX silahkan buka link dibawah ini
    http://www.w3schools.com/ajax/default.asp

    @mas_kofa

    saya jadi terharu juga nih…

    makasih mas, semoga bermanfaat dan mendapatkan banyak hikmah

    Komentar oleh ekoindri — Februari 18, 2008 @ 2:07 pm

  5. adakah yang bisa bantu saya tuk mencoba pecahkan masalah diatas?
    masalah 1 lagi
    Memo1.Text := StringReplace(Memo1.Text,’soap:Envelope’,’soap’,[rfReplaceAll]);
    soap tidak dikenalai kenapa yach?mohon petunjuk dan bimbingannya trima kasih

    Komentar oleh ricky06 — Februari 18, 2008 @ 2:51 pm

  6. itu adalah bug yang ada di delphi untuk detailnya silahkan anda tanyakan kepada team dari codegear, karena saya tidak menjelaskan permasalahan ini…

    untuk referensi yang kasusnya hampir sama, silahkan kunjungi url ini

    http://www.agnisoft.com/soap/dotnetsoap.htm

    Komentar oleh ekoindri — Februari 18, 2008 @ 3:18 pm

  7. good tutorial 😀

    Komentar oleh starboard — Februari 19, 2008 @ 9:14 pm

  8. Saya punya pertanyaan yang sama seperti diatas yang belum terjawab.

    ricky06 said, on Februari 18th, 2008 at 12:00 pm

    mas eko,setelah saya membaca dan mencoba mengikuti langkash2 yang ada, namun saya masih bingung sebenernya web services ini gunanya untuk apa, dan kapan kita menggunakannya?mohon dijelaskan sebelum saya melangkah ke bag 2.satu lagi komponen yang dibawah ini saya belum menemukannya,carinya dimana:
    ClientDataSet1PostingDate: TStringField;
    ClientDataSet1Title: TStringField;
    ClientDataSet1Category: TStringField;
    ClientDataSet1Url: TStringField;
    ClientDataSet1Company: TStringField;
    ClientDataSet1Location: TStringField;
    mohon maaf jika pertanyaannya dasar sekali.makasih sebelumnya.

    Komentar oleh Singgih — Februari 21, 2008 @ 1:55 pm

  9. ok… tutorialnya sudah saya rubah.
    Silahkan dicoba kembali

    semoga berhasil

    Komentar oleh ekoindri — Februari 21, 2008 @ 2:13 pm

  10. web service itu digunakan untuk komunikasi data. Dan bisa dilakukan untuk multiplatform.

    Web Service itu berisi method ( prosedur dan fungsi ) yang digunakan untuk komunikasi.

    Misalkan kita ingin mendownload data dari server, maka kita bisa menggunakan web service untuk jembatannya.

    Kalau program aplikasi berjalan di jaringan lokal mungkin kita sudah cukup dijawab dengan ADO ( Query, stored procedure, table, dll ) untuk komunikasi datanya.

    Nah Web service ini bisa dikatakan mirip kek ADO

    Komentar oleh ekoindri — Februari 21, 2008 @ 2:20 pm

  11. Mas Eko,
    Artikel-artikelnya mantap nih. Alhamdulillah berguna untuk nambal bolong2 coding style saya hehehe..
    Pengen juga bikin artikel tentang delphi, tapi susah nentuin mulai dari mana, dan topik apa yang kira2 banyak dibutuhkan teman2 yang lain.

    Salam,

    Roni.

    Komentar oleh Roni — Februari 25, 2008 @ 1:06 pm

  12. @Roni

    sip2.. semoga artikel ini bisa bermanfaat
    kalau mas roni kesusahan memulai dari mana, mulai aja yang paling mudah
    tidak ada yang langsung bisa sempurna, semua belajar dari kesalahan dan kekurangan

    Komentar oleh ekoindri — Maret 6, 2008 @ 10:00 am


RSS feed for comments on this post.

Buat situs web atau blog gratis di WordPress.com.

%d blogger menyukai ini: