Penerapan fungsi “StringReplace” Delphi 7 untuk menghubungkan dengan Search Engine(Google, Yahoo)

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..

untuk membaca lebih lanjut silahkan klik link dibawah

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