Delphi for delphier

Langkah-langkah mengakses dan menggunakan method web service dengan menggunakan bahasa pemrograman delphi

 
   
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
   
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
   
Langkah 2
Tambahkan beberapa object kedalam Form.
   
  HTTPRIO1: THTTPRIO;
Memo1: TMemo;
Button1: TButton;
ClientDataSet1: TClientDataSet;
DataSource1: TDataSource;
XMLTransformProvider1: TXMLTransformProvider;
Button2: TButton;
DBGrid1: TDBGrid;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Bevel1: TBevel;
Button7: TButton;
ListBox1: TListBox;
ListBox2: TListBox;
ListBox3: TListBox;
ListBox4: TListBox;
Button6: TButton;
   
Langkah 3
Atur desainnya seperti berikut ditampilkan pada gambar form dibawah ini
   
 
menengahwebservicedataset00016.png
   
Langkah 4
Lakukan langkah 5 – 18 pada bagian 1.
   
Langkah 5
Tambahkan unit JobsWs kedalam uses
   
 
unitUContoh;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, InvokeRegistry, StdCtrls, Rio, SOAPHTTPClient, xmldom,
Provider, Xmlxform, DB, DBClient, Grids, DBGrids, ExtCtrls, JobsWs;
   
Langkah 6
Lakukan langkah 1 – 2 pada bagian 2.
 
     
Langkah 7
Masih di object yang sama, silahkan anda tuliskan kode program didalam event seperti terlihat pada potongan kode program dibawah ini.
   
 
;
SOAPResponse: TStream);
begin
if StatusDownload = False then
Exit;
SOAPResponse.Position := 0;
with Memo1 do
begin
Lines.LoadFromStream(SOAPResponse);
Text := StringReplace(Text,’ soap:Envelope‘,‘soap’,[rfReplaceAll]);
Text := StringReplace(Text,’ soap:Body‘,’soap‘,[rfReplaceAll]);
Lines.SaveToFile(‘Data.xml’);
end;
StatusDownload := False;
end;
   
Langkah 8
Silahkan anda deklarasikan beberapa variabel dan prosedur dibagian Private seperti terlihat pada potongan kode program dibawah ini.
   
 
private
{ Private declarations }
StatusDownload : Boolean;
Transformation : string;
;
ArrayOfString;
Categories : ArrayOfString;
Titles : ArrayOfString;
procedureMenampilkanData;
   
Langkah 9
Kemudian anda isikan kode program didalam prosedur MenampilkanData seperti terlihat pada potongan kode program dibawah ini.
   
 
procedure TForm1.MenampilkanData;
begin
with XMLTransformProvider1 do
begin
TransformRead.TransformationFile := Transformation + ‘.xtr’;
XMLDataFile := ‘Data.xml’;
end;
with ClientDataSet1 do
begin
close;
open;
end
end;
   
Langkah 10
Silahkan anda buat file transformation seperti ditunjukkan pada bagian 2. Lakukan proses ini untuk method – method seperti dibawah ini.
   
 
Method File Transformation
GetAll ToDpGetAll
GetJobsByLocation ToDpGetLocations
GetJobsByCompany ToDpGetCompanies
GetJobsByCategory ToDpGetCategories
GetJobsByTitle ToDpGetTitles
 
Kali ini anda tidak diberikan secara detail karena untuk meringkat proses yang terlalu panjang. Dengan anda bisa memahami pada bagian 2, maka insyaallah anda sudah bisa melakukan proses pembuatan file transformasi untuk method-method seperti yang ditunjukkan pada tabel diatas.
   
 
Dibagian contoh program, file – file transformation tersebut sudah disertakan dan anda bisa langsung mencobanya.
   
Langkah 11
Pada bagian event OnCreate di object Form1. Silahkan anda berikan kode program seperti terlihat pada potongan kode program dibawah ini.
   
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Transformation := ‘ToDpGetAll‘;
StatusDownload := False;
end;
   
Langkah 12
Silahkan anda tekan 2x pada tombol GetAll dan isikan kode program didalam event OnClick seperti terlihat pada potongan kode program dibawah ini.
   
 
procedure TForm1.Button1Click(Sender: TObject);
begin
StatusDownload := True;
Transformation := ‘ ToDpGetAll‘;
(HTTPRIO1 as JobsWsSoap).GetAll;
MenampilkanData;
end;
   
Langkah 13
Lanjutkan dengan menekan 2x pada tombol GetLocations dan isikan kode program didalam event OnClick seperti terlihat pada potongan kode program dibawah ini.
   
 
procedure TForm1.Button2Click(Sender: TObject);
var
indek : Integer;
begin
Locations := (HTTPRIO1 as JobsWsSoap).GetLocations;
ListBox1.Clear;
for indek := 0 to High(Locations) do
ListBox1.Items.Add(Locations[indek]);
end;
   
Langkah 14
Kemudian anda tekan 2x pada tombol GetCompanies dan isikan kode program didalam event OnClick seperti terlihat pada potongan kode program dibawah ini.
   
 
procedure TForm1.Button3Click(Sender: TObject);
var
indek : Integer;
begin
Companies := (HTTPRIO1 as JobsWsSoap).GetCompanies;
ListBox2.Clear;
for indek := 0 to High(Companies) do
ListBox2.Items.Add(Companies[indek]);
end;
   
Langkah 15
Setelah itu, anda tekan 2x pada tombol GetCategories dan isikan kode program didalam event OnClickseperti terlihat pada potongan kode program dibawah ini.
   
 
procedure TForm1.Button4Click(Sender: TObject);
var
indek : Integer;
begin
Categories := (HTTPRIO1 as JobsWsSoap).GetCategories;
ListBox3.Clear;
for indek := 0 to High(Categories) do
ListBox3.Items.Add(Categories[indek]);
end;
   
Langkah 16
Tekan 2x pada tombol GetTitles dan isikan kode program didalam event OnClickseperti terlihat pada potongan kode program dibawah ini.
   
 
procedure TForm1.Button5Click(Sender: TObject);
var
indek : Integer;
begin
Titles := (HTTPRIO1 as JobsWsSoap).GetTitles;
ListBox4.Clear;
for indek := 0 to High(Titles) do
ListBox4.Items.Add(Titles[indek]);
end;
   
Langkah 17
Silahkan anda isikan kode program didalam event OnDblClick pada object ListBox1. Untuk lebih detailnya, silahkan anda lihat potongan kode program dibawah ini. Bagian daftar lokasi.
   
 
procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
Transformation := ‘ToDpGetLocations‘;
SetLength(Locations,1);
Locations[0] := ListBox1.Items[ListBox1.ItemIndex];
StatusDownload := True;
(HTTPRIO1 as JobsWsSoap).GetJobsByLocation(Locations);
MenampilkanData;
end;
   
Langkah 18
Kemudian anda isikan kode program didalam event OnDblClick pada object ListBox2
   
 
procedure TForm1.ListBox2DblClick(Sender: TObject);
begin
Transformation := ‘ToDpGetCompanies‘;
SetLength(Companies,1);
Companies[0] := ListBox2.Items[ListBox2.ItemIndex];
StatusDownload := True;
(HTTPRIO1 as JobsWsSoap).GetJobsByCompany(Companies);
end;
   
Langkah 19
Setelah itu anda isikan kode program didalam event OnDblClick pada object ListBox3. Untuk lebih detailnya, silahkan anda lihat potongan kode program dibawah ini. Bagian daftar Category.
   
 
procedure TForm1.ListBox3DblClick(Sender: TObject);
begin
Transformation := ‘ToDpGetCategories‘;
SetLength(Categories,1);
Categories[0] := ListBox3.Items[ListBox3.ItemIndex];
StatusDownload := True;
(HTTPRIO1 as JobsWsSoap).GetJobsByCategory(Categories);
MenampilkanData;
end;
   
Langkah 20
Selanjutnya anda isikan kode program didalam event OnDblClick pada object ListBox4. Untuk lebih detailnya, silahkan anda lihat potongan kode program dibawah ini. Bagian daftar Title.
   
 
TObject);
begin
Transformation := ‘ToDpGetTitles‘;
SetLength(Titles,1);
Titles[0] := ListBox4.Items[ListBox4.ItemIndex];
StatusDownload := True;
(HTTPRIO1 as JobsWsSoap).GetJobsByTitle(Titles);
MenampilkanData;
end;
   
Langkah 21
Kemudian anda klik 2x tombol Multi Filter dan isikan kode program didalam event OnClick seperti terlihat pada potongan kode program dibawah ini.
   
 
procedure TForm1.Button6Click(Sender: TObject);
begin
Transformation := ‘ToDpGetMultFilters’;
SetLength(Categories,1);
with ListBox3 do
if ItemIndex = -1 then
Categories[0] := ”
else
Categories[0] := Items[ItemIndex];
SetLength(Titles,1);
with ListBox4 do
if ItemIndex = -1 then
Titles[0] := ”
else
Titles[0] := Items[ItemIndex];
SetLength(Companies,1);
with ListBox2 do
if ItemIndex = -1 then
Companies[0] := ”
else
Companies[0] := Items[ItemIndex];
SetLength(Locations,1);
with ListBox1 do
if ItemIndex = -1 then
Locations[0] := ”
else
Locations[0] := Items[ItemIndex];
StatusDownload := True;
(HTTPRIO1 as JobsWsSoap).GetJobsByMultFilters(Categories,
Titles,
Companies,
Locations);
MenampilkanData;
end;
   
 
Didalam potongan kode program diatas terlihat ada penggunaan prosedur SetLength, dimana prosedur itu digunakan untuk menentukan range dari indek array dinamis. Untuk lebih jelasnya mengenai prosedur ini, silahkan anda lihat artikelnya disini.
   
Langkah 22
Silahkan anda hubungkan object – object ClientDataSet1, DataSource1, XMLTransformProvider1 dan DBGrid1seperti ditunjukkan pada langkah 1 – 8 pada bagian 3.
   
Langkah 23
Silahkan anda compile dan jalankan program aplikasinya hingga program aplikasi tersebut siap untuk dijalankan.
   
Langkah 24
Tekan tombol GetAll. Apabila berhasil, maka akan ditampilkan tampilan seperti gambar berikut dibawah ini.
   
 
menengahwebservicedataset00017.png
   
Langkah 25
Tekan tombol GetLocations. Apabila berhasil, maka akan ditampilkan tampilan seperti gambar berikut dibawah ini.
   
 
menengahwebservicedataset00018.png
   
Langkah 26
Silahkan anda klik 2x pada lokasi Alberta. Apabila berhasil, maka akan ditampilkan tampilan seperti gambar berikut dibawah ini.
   
 
menengahwebservicedataset00019.png
   
Langkah 27
Tekan tombol GetCompanies. Apabila berhasil, maka akan ditampilkan tampilan seperti gambar berikut dibawah ini.
   
 
menengahwebservicedataset00020.png
   
Langkah 28 Silahkan anda klik 2x pada companies Accenture. Apabila berhasil, maka akan ditampilkan tampilan seperti gambar berikut dibawah ini.
   
 
menengahwebservicedataset00021.png
   
Langkah 29
Tekan tombol GetCategories. Apabila berhasil, maka akan ditampilkan tampilan seperti gambar berikut dibawah ini.
   
 
menengahwebservicedataset00022.png
   
Langkah 30
Silahkan anda klik 2x pada categories Customer Service. Apabila berhasil, maka akan ditampilkan tampilan seperti gambar berikut dibawah ini.
   
 
menengahwebservicedataset00023.png
   
Langkah 31
Tekan tombol GetTitles. Apabila berhasil, maka akan ditampilkan tampilan seperti gambar berikut dibawah ini.
   
 
menengahwebservicedataset00024.png
   
Langkah 32
Silahkan anda klik 2x pada titles Start 2008 with a Flexible Part-Time Job!. Apabila berhasil, maka akan ditampilkan tampilan seperti gambar berikut dibawah ini.
   
 
menengahwebservicedataset00025.png
   
Langkah 33
Tekan tombol More Filter. Apabila berhasil, maka akan ditampilkan tampilan seperti gambar berikut dibawah ini.
   
 
menengahwebservicedataset00026.png
   
Langkah 14
Silahkan anda tekan tutup program aplikasi tersebut.
   
Langkah 15 Untuk menggabungkan dengan database, silahkan anda lihat pada bagian 5.
  spasi
Download
Klik disini untuk mendapatkan contoh kode programnya
 
Klik disini untuk mendapatkan video tutorialnya
  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  
Menengah Membangun database MLM
   
 

The Rubric Theme. Buat website atau blog gratis di WordPress,com.

Ikuti

Get every new post delivered to your Inbox.

Bergabunglah dengan 37 pengikut lainnya.

%d bloggers like this: