Membuat Post dan Get Url Memakai Delphi

Sejak masih SMP, saya sudah tergila-gila dengan pemrograman desktop. Ketika internet pelan-pelan muncul di era 1990-an, saya masih bersikukuh lebih ke pemrograman dekstop dari para pemrograman internet. Bahkan saat ini, ketika saya mau tidak mau harus berhubungan dengan internet di tempat kerja, saya mencari akal melakukan tugas-tugas internet saya dengan Delphi. Salah satunya akan saya tulis di artikel ini.

Post dan Get pada pemrograman internet, mengacu pada permintaan (request) ke server http untuk memberikan data pada server tersebut. Maksud dari Post dan Get sama. Pemakaiannya dapat saling dipertukarkan. Namun ada sedikit perbedaan.

Post lebih sering digunakan pada data sensitif. Data-data yang dikirimkan tidak terlihat di url. Salah satu pemakaian Post adalah untuk mengirimkan user dan password ke server http. Perilaku Post adalah sebagai berikut:

• Post tidak pernah menjadi cached di komputer client
• Post tidak pernah tertulis di history browser
• Post tidak dapat dibuat bookmark
• Panjang query string dari Post tidak dibatasi

query string dari Post ditulis pada http body saat dikirim dengan format seperti contoh berikut:

POST /admin/admin.php HTTP/1.1
Host: octacintabuku.com
user=octa&password=rahasia


Sedangkan metode Get kebalikan dari post. Query string dari Get dapat dilihat di browser dengan perilaku sebagai berikut:

• Dapat menjadi cached di komputer client
• Tertulis di history browser
• Dapat di-bookmark
• JANGAN DIGUNAKAN untuk data sensitif
• Panjang query string dibatasi

query string pada Get terlihat di URL dengan format url seperti contoh dibawah ini:
/admin/admin.php?user=octa&password=rahasia

Banyak cara melakukan metode get dan post pada Delphi. Pada artikel ini saya menggunakan TIndy.Saya meggunakan Delphi 7, tetapi kode program dibawah ini juga dapat dipergunakan pada versi Delphi yang lebih tinggi. Tentu saja dengan sedikit penyesuaian saja.

Implemetasi Get

• Buat aplikasi baru
• Buat tampilan form seperti di gambar ini
  
  
  
  
  
  Daftar Obyek
  
  

  Nama Class	Property
  TLabel	Caption: User
  TLabel	Caption: Password
  TButton	Caption: Login Lewat URL
  TEdit	Name: edtUser
  TEdit	Name: edtPassword

  
  
  
• Tambahkan unit IdHTTP di bagian uses
  
  uses
      SysUtils, Dialogs, Registry, Forms, IdHTTP
• Masukkan kode berikut pada tombol "Login Lewat URL"
  
  var
      urlHTTP : TIdHTTP;
      txtURL : String;
  begin
     try
         txtURL := 'http://octacintabuku.com/admin/admin.php';
         urlHTTP := TIdHTTP.Create(nil);
         urlHTTP.Get(txtURL + '?user=' + edtUser.Text + '&password=' + edtPassword.Text);
      finally
         urlHTTP.Free;    
      end;
  end;

Implementasi Post

• Buat form seperti pada tulisan diatas
• Ketik kode berikut pada button ""Login Lewat URL"
  
  var
      urlHTTP : TIdHTTP;
      txtURL : String;
      slParam   : TStringList;
  begin
      try
          txtURL := 'http://octacintabuku.com/admin/admin.php';
          slParam := TStringList.Create;
          slParam.Add('user=' + edtUser.Text);
          slParam.Add('password=' + edtPassword.Text);
  
          urlHTTP := TIdHTTP.Create(nil);
          urlHTTP.HTTPOptions := [hoForceEncodeParams];
          urlHTTP.Request.ContentType := 'application/x-www-form-urlencoded';
          urlHTTP.HandleRedirects := true;
          urlHTTP.Post(txtURL, slParam);
      finally
          FreeAndNil(urlHTTP);
          FreeAndNil(slParam);
      end;
  end;

Membuat Post dan Get Url Memakai Delphi 2014-10-09T10:11:00+07:00 Rating: 4.5 Diposkan Oleh: Good Dreamer