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 Rating: 4.5 Diposkan Oleh: Good Dreamer

4 comments:

  1. Komentar ini telah dihapus oleh pengarang.

    BalasHapus
  2. Dalam contoh diatas, saya misalkan ada url octacintabuku.com dengan direktori admin dan file admin.php. Untuk percobaan, coba buat http server memakai xamp

    BalasHapus
  3. Gan kalau kitu mau post gambar gimana cara y gunakan php. Biar gambar y ke simpan dideroctoy file di xammp y kaya web

    BalasHapus

Diberdayakan oleh Blogger.