Delphi for delphier

Web Service – Dataset – Latihan 2 Bagian 3

Tingkatan Menengah
Kategori Web Service
Sub Kategori Dataset
Judul Membuat aplikasi login ke codegear.
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 membuat program aplikasi desktop bisa login ke situs codegear.

  spasi

Overview

Pembahasan pada artikel ini akan menjelaskan kepada para Delphier tentang cara melakukan proses login ke codegear dengan menggunakan service yang sudah disediakan oleh codegear.

Program aplikasi ini masihlah bagian awal pada latihan kedua. Dibagian selanjutnya akan diajarkan menggunakan method-method lain yang ada didalam service ICodeCentralWS.

Semoga pada tutorial yang ada didalam artikel kali ini bisa memberikan anda pencerahan untuk mengakses service ICodeCentralWSmenjadi lebih dalam.

  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

Jika anda belum membaca bagian 1dan bagian 2 pada latihan 2 ini, silahkan anda baca terlebih dahulu.

   

Langkah 2

Sekarang kita fokuskan perhatian kita ke object ClientDataSet1.

   

Langkah 3

Silahkan anda tentukan property untuk ProviderName-nya dengan XMLTransformProvider1.

   

Langkah 4

Silahkan anda klik 2x tombol Login dan isikan kode program didalam event OnClick. Untuk lebih jelasnya, silahkan anda lihat potongan kode program dibawah ini.

   
 

procedure TForm1.Button1Click(Sender: TObject);
begin

(HTTPRIO1 asICodeCentralWSSoap).Login(edit1.Text,Edit2.Text,”);

with XMLTransformProvider1 do
begin

TransformRead.TransformationFile := ‘ToDp.xtr‘;
XMLDataFile := ‘ Data.xml‘;

end;

with ClientDataSet1 do
begin

Close;
Open;

Edit3.Text := ClientDataSet1.FieldValues[‘ Result‘];
Edit4.Text := ClientDataSet1.FieldValues[‘ SessionID‘];

end;

end;

   

Langkah 5

Silahkan anda compile dan jalankan program aplikasinya dengan menekan tombol Ctrl + F9.

   

Langkah 6

Setelah itu silahkan anda tekan tombol F9 hingga program aplikasi siap dijalankan. Untuk lebih detail mengenai tampilan program aplikasi, silahkan lihat gambar berikut ini.

   
 

menengahwebservicedataset00046.png

   
   

Langkah 11

Lanjutkan dengan menekan tombol Login. Apabila berhasil, maka akan didapatkan tampilan seperti berikut ini.

   
 

menengahwebservicedataset00047.png

   

Langkah 12

Kemudian silahkan anda ganti passwordnya dengan data 112233. Setelah itu anda tekan tombol Login sekali lagi. Jika benar akan didapatkan tampilan seperti berikut ini.

   
 

menengahwebservicedataset00048.png

   

Penjelasan

Pada langkah 11 program aplikasi diberikan data Email dan Password dengan benar. Sehingga ketika ketika request ke server akan mendapatkan respond status True dengan sessionID seperti terlihat pada gambar. Sedangkan pada langkah 12 diberikan data password salah, maka hasil repond yang diberikan adalah status False dengan tidak diberikan data SessionID.

   

Langkah 13

Silahkan anda tekan tutup program aplikasi tersebut.

  spasi

Download

Dataset – Latihan 2 Bagian 3

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 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
       
   
Disarankan baca
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
   
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

Buat situs web atau blog gratis di WordPress.com.

%d blogger menyukai ini: