[Delphi Coding] Membuat HTTP GET Request dengan Indy

Coding Delphi script

[Delphi Coding] Membuat HTTP GET Request dengan Indy

Unknown   10:21:00 PM   Comment  

Yoooo haloo pengunjung yang kesasar >_<
Adhe K disini :D
Kalau kemarin kita membahas tentang Explode String pada Delphi, maka sekarang kita akan membahas tentang HTTP GET Request dengan menggunakan komponen yang bernama Indy.
Tenang aja komponen Indy (Internet Direct) kalo gak salah sudah ikut terinstall dengan komponen Default lainnya, jadinya endak usah install komponen baru lagi, kecuali mau diupgrade versinya.
Kalo enggak salah Delphi 7 menggunakan Indy Versi 9.

Sedikit Mengenai HTTP GET Request
Mungkin masih banyak yang binggung apa sih GET Request itu.
Singakatnya GET Request adalah saat client meminta data ke server, dan client hanya dapat melihat saja, maksudnya read-only jadi endak bisa mengubah data apapun yang ada di server.
eh singkat banget ya... hehehe sori kalo salah, saya tidak bisa menemukan bahasa yang pas.
Kalo pengen jelasnya bisa dibaca disini

Let's go Coding..
Pertama kita buat fungsinya dulu, sebenarnya tidak usah juga tidak apa2 jika mau menggunakan komponen langsung juga bisa, tapi saya males screenshot banyak gambar jadi pakai fungsi aja :p

function httpGETRequest(const url: string): string;
var
 idhttp : TIdHTTP;
begin
  idhttp := TIdHTTP.Create(nil);
try
  idhttp.HandleRedirects := True;
  Result := idhttp.Get(url);
finally
  idhttp.Free;
end;//Try
end;//Function

oh iya jangan lupa pada uses, tambahkan IdHTTP ya, untuk meng-import komponennya.
Sekarang untuk pemanggilan dalam prosedur kira-kira seperti ini.

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Add(httpGETRequest(Edit1.Text));//karena return fungsi dari httpGETRequest() adalah string.
  //Edit1.Text Berisi URL
end;

Penampakannya.

Jika ingin mengextract beberapa text saja maka gunakanlah Explode yang ada di postingan kemarin.

FAQ
Q: Implementasinya buat apa kk?
A: Sebenarnya tergantung anda juga mau buat apa, kalo saya sih buat autologin wifi.id, autogeneratelink, bruteforce dll.

Q: wew, boleh tuh, minta source codenya donk?
A: wew juga kakak, endak ah. mau dibilang pelit bodo amat dah, soalnya dari pengalaman duluu, udah dulu sekali, pernah buat e-book buat autologin wifi.id dan saya share di group FB saya, ada yang copas, diganti credit, dibuat aplikasi dan dijual. kwakawkkaw, ngakak lah kalo inget itu, dan parahnya waktu ditanya "itu kk buat dari nol yah? kok dijualin?" dia jawabnya "iya buat dari nol om.", dari nol dengkulmu, hla wong aplikasinya dia saya reverse pake ollydbg fungsinya ambil dari e-book aku kok, nama fungsinya aja gak diganti :p, yang beda cuman dia nambahin skin doang. dari nol mbahmu kiper! hahaha. sori curhat

Q: jadi gimana donk, saya mau buat ini itu dsb?
A: belajar, referensi banyakk baca-baca wikipedia, google dsb. Udah tau kan fungsi ini buat itu, fungsi itu buat ini, ya itu diterapkan, endak disuapin mulu~ hahaha

Sekian dari saya, Jika ada kata-kata yang berkenan mohon maaf yang sebesar-besarnya.
Salam Adhe K

Explode String on Delphi

Coding Delphi script

Explode String on Delphi

Unknown   12:40:00 AM   Comment  

Yoooooooooo sobat BeInyu.com, saya penulis baru di sini.
Mungkin bagi beberapa orang yang terbiasa dengan coding menggunakan PHP maka tidak asing lagi dengan fungsi explode
Secara bodohnya fungsi explode adalah fungsi untuk memecah string menggunakan delimeter/batas yang ditentukan menjadi variabel array.

Contohnya jika di PHP:

<?php
$StringKu = "PHP,Java,Python,Ruby,C++,Delphi,Perl";
$pecah = explode( ",",$StringKu);

echo $pecah[0]."<br>"; // PHP
echo $pecah[1]."<br>"; //Java
echo $pecah[2]."<br>"; //Python
echo $pecah[3]."<br>"; //Ruby
echo $pecah[4]."<br>"; //C++
echo $pecah[5]."<br>"; //Delphi
echo $pecah[6]."<br>"; //Perl

?>

Yup, seperti yang dilihat fungsi explode sangat berguna kan. Sekarang mari kita lihat implementasinya ke Delphi.

function explode(delimiter: String; sString: String):TStringList;
var
 c: word;
begin
  Result:=TStringList.Create;
  c:=0;
  while sString <> '' do begin
    if Pos(delimiter, sString) > 0
    then begin
      Result.Add(Copy(sString, 1, Pos(delimiter, sString)-1));
      Delete(sString, 1,Length(Result[c])+Length(delimiter));
    end
    else begin
      Result.Add(sString);
      sString:= '';
    end;
      inc(c);
  end;
end;

Untuk pemanggilannya dalam procedure kira2 seperti ini

procedure TForm1.Button1Click(Sender: TObject);
const
  StringKu = 'PHP,Java,Python,Ruby,C++,Delphi,Perl';
begin
  Memo1.Lines:=explode(',', StringKu);
//jika ingin mengambil hanya satu variabel, maka tambahkan indexnya
//misal hanya ingin mengambil kata Ruby
//maka explode(',', StringKu)[3]
//mengapa indexnya 3? dan bukan 4, karena TStringList berIndex array dan dimulai dari 0
end;

untuk penampakannya kira2 seperti ini

Form

Gimana? Sungguh berguna bukan.
Dari pengalaman sih fungsi ini sering saya pakai untuk webspider dan mengekstrak string.
Mohon maaf jika ada salah kata atau pengetikan di dalam postingan ini. sekian dan terima kasih...
Salam Adhe K