Kali ini saya memberikan contoh penerapan fungsi StringReplace untuk membuat program yang menghubungkan dengan search engine (Google,Yahoo). Program ini sangat sederhana, maaf bagi anda yang sudah MASTER Delphi, pasti akan sakit mata melihat artikel saya ini…
ini hanya program sederhana untuk para internet surfer..halah.. bahasane ramutu... hehe
seperti gambar diatas sekilas kayak search engine.. padahal cuma menhubungkan thok.. huhuhu....
Oke langsung saya mulai saja prancangannya.. pada search engine (saya ambil contoh Google)saat kita menuliskan keyword, lalu mulai proses searching kemudian muncul hasil – hasilnya maka di address bar browser kita akan muncul alamat tertentu..
Misal menuliskan keyword : “download mp3 gratis”(tanpa tanda petik)
Maka pada address bar akan tertulis :
http://www.google.co.id/search?hl=id&q=download+mp3+gratis&btnG=Telusuri+dengan+Google&meta=
nnah.. dari sini dapat di ketahui bahwa keyword yang kita masukan tadi karakter spasi nya diganti dengan karakter “+”… sudah dapat gambarannya kan???
Begini jelasnya
Input/ keyword : “download mp3 gratis”, maka output di address bar..
Output/address bar : download+mp3+gratis
Begitulah.. segini aje penjelasannya males ngetik.. hehe.. langsung aja listing programnya
/////////////////////////////////////////////////////////////////////////////////////////////////////////
procedure TForm1.Button1Click(Sender: TObject);
var
Abody, Abody1 ,Abody2, front1, front2, replace,
back1, back2, Brow : String;
begin
replace := StringReplace(edit1.Text,' ','+',[rfreplaceall]);
front1 := 'www.google.co.id/search?hl=id&q=';
front2 := 'id.search.yahoo.com/search?p=';
back1 := '&btnG=Telusuri+dengan+Google&meta=';
back2 := '&sm=Semua+Web&fr=yfp-t-web&toggle=1&cop=&ei=UTF-8';
Abody1 := front1+replace+back1;
Abody2 := front2+replace+back2;
if radiogroup1.ItemIndex = 0 then brow := 'Firefox' else brow := 'IExplore';
if radiogroup2.ItemIndex = 0 then Abody := Abody1 else Abody := Abody2;
shellexecute(self.Handle,'open',pchar(brow),pchar(Abody),nil,sw_normal);
end;
///////////////////////////////////////////////////////////////////////////////////////////
Karena Cuma program contoh ato iseng-iseng an, masih bnyak kekurangannya… hehe
Kalo mau download nih tak kasih link nya
search-engine
terimakasih.. semoga barguna
1 komentar:
tolong yg cara bikin server pk delphi donk
Posting Komentar