Rabu, 15 April 2015

Konsep dan Cara Replace Header Pada Program Delphi 7 Agar 200 OK

Kali ini saya mau berbagi tips seputar Konsep dan Cara Replace Header Pada Program Delphi 7 2015 ok sebelum saya lanjutkan silahkan baca juga postingan sebelumnya yaitu Cara Membuat Plink Agar Bisa Auto Reconnect Otomatis ok kali ini kita akan belajar replace header dengan bantuan 2 memo dan 2 timer sebagai percobaannya, caranya silahkan buka program delphi anda lalu tambahkan 2 timer dan 2 memo sebagai percobaannya;

Cara Replace Header

Lalu Klik Timer1 dan masukan kode :
var Header : String;
beginHeader:= StringReplace(memo1.Text, 'HTTP/1.1 403 Forbidden', 'HTTP/1.1 200 OK',[rfReplaceAll, rfIgnoreCase]);
memo2.Lines.Add(Header);

Lalu klik timer2 lalu masukan kode;
memo1.Lines.Clear;
memo1.Lines.Add('HTTP/1.1 403 Forbidden');

Dan dibawah ini adalah contoh kode jadinya atau listingnnya:

procedure TForm1.Timer1Timer(Sender: TObject);
var Header : String;
begin
Header:= StringReplace(memo1.Text, 'HTTP/1.1 403 Forbidden', 'HTTP/1.1 200 OK',[rfReplaceAll, rfIgnoreCase]);
memo2.Lines.Add(Header);
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
memo1.Lines.Clear;
memo1.Lines.Add('HTTP/1.1 403 Forbidden');

end;

Lalu silahkan simpan projectnya dan lihat hasilnya apa yang terjadi saudara saudara dan silahkan anda kembangkan atau anda gabungkan dengan program injek injek andalan anda dan silahkan otak atik lagi berdasarkan keperluan anda.

Cara Mengganti Data Respone Header Dengan Variable (Belajar Indi Server)

1. Buat variable baru dulu misal var header string; kemudian kita isi datanya dengan header:='HTTP/1.1 200 OK'; variable sudah siap digunakan dan kita akan proses dengan data aslinya.

2. Kita buat syntaxnya misal; StringReplace(athread.netdata,'HTTP/1.1 403 Forbidden',Header,[rfReplaceAll, rfIgnoreCase]);

3. Jadi kalau ada string masuk HTTP/1.1 403 Forbidden maka akan digantikan dengan data Header yang dimana header tersebut berisikan HTTP/1.1 200 OK paham gak? :)

Baca Juga; Metode Connect Untuk Mencari String Data Yang Cocok

Dan hanya itu saja info kali ini seputar Konsep dan Cara Replace Header Pada Program Delphi 7 Agar 200 OK Semoga bermanfaat dan terima kasih.