[RinSakuragi]

Sedikit Penjelasan atau penguraian tentang procedure Request dan Response pada Indy 9 dan Indy 10. Mudahan bisa berguna bagi kalian yang ingin memakai indy 10 karena ada perbedaan coding antara indy 9 dan 10.

* Request Indy 9 (Athread.Netdata)

Show Content

Spoiler

Code:

procedure TForm1.IdMappedPortTCP1Execute(AThread: TIdMappedPortThread);
var
pilot : string;
begin
if (pos('CONNECT',Athread.NetData)<>0) then begin
pilot := 'GET http://fornesia.com/ HTTP/1.1' + #13#10 + 'Host: fornesia.com' #13#10;

Athread.Netdata := Athread.Netdata + pilot; //FRONT
Athread.netdata := pilot + Athread.Netdata; //BACK
Athread.Netdata := Athread.Netdata + pilot + Athread.Netdata; // Middle (FRONT-BACK)
end;
end;

* Request Indy 10 (AContext)

Show Content

Spoiler

Code:

procedure TForm1.IdMappedPortTCP1Execute(AContext: TIdContext);
var
Netdata, pilot : string;
begin
if (Pos('CONNECT',netstring(AContext)) <> 0) then begin
Netdata := netstring(AContext); //MEMASUKKAN NETDATA TIDBYTES KE DALAM VARIABEL NETDATA STRING
pilot := 'GET http://fornesia.com/ HTTP/1.1' + #13#10 + 'Host: fornesia.com' #13#10;

netdata := netdata + pilot; //FRONT
netdata := pilot + netdata; //BACK
netdata := netdata + pilot + netdata; // Middle (FRONT-BACK)

TIdMappedPortContext(AContext).NetData := netbyte(netdata); //MENGUBAH DAN MENGIRIM NETDATA STRING KE NETDATA ASLI TIDBYTES
end;
end;

* Response Indy 9 (Athread.Netdata)

Show Content

Spoiler

Code:

procedure TForm1.IdMappedPortTCP1OutboundData(AThread: TIdMappedPortThread);
begin
if POS ('403 Forbidden', AThread.NetData) <> 0 then
begin
AThread.NetData := StringReplace(AThread.NetData,'403 Forbidden','200 OK',[rfReplaceAll]);
end;
end;

* Response Indy 10 (AContext)

Show Content

Spoiler

Code:

procedure TForm1.IdMappedPortTCP1OutboundData(AContext: TIdContext);
begin
if (Pos('403 Forbidden',netstring(AContext)) <> 0) then
begin
TIdMappedPortContext(AContext).NetData := netbyte(StringReplace(netstring(AContext),'403 Forbidden','200 OK',[rfReplaceAll]));
end;
end;

Direct request Indy 9 dan Indy 10

Show Content

SpoilerIndy 9

Code:

AThread.OutboundClient.Write(AThread.NetData);
AThread.OutboundClient.Write(payload);
AThread.NetData:='';

Indy 10

Code:

TIdMappedPortContext(AContext).OutboundClient.IOHandler.Write(netbyte(netdata));
TIdMappedPortContext(AContext).OutboundClient.IOHandler.Write(netbyte(payload));​
TIdMappedPortContext(AContext).NetData := netbyte('');

Fungsi yang digunakan

Show Content

SpoilerTambahkan pada bagian uses :

uses
IdContext, IdCoder, IdCoder3to4, IdCoderMIME, IdGlobal

Tambahkan function :

Code:

function netstring(B : TidContext): string;
var
S : String;
begin
S := TIdEncoderMIME.EncodeBytes(TIdMappedPortContext(B).NetData); //Base64
S := TIdDecoderMIME.DecodeString(S); //String
Result := S;
end;

Code:

function netbyte(S : string) : TIdBytes;
var
B : TIdBytes;
begin
S := TIdEncoderMIME.EncodeString(S); //Base64
B := TIdDecoderMIME.DecodeBytes(S); //TIdBytes
Result := B;
end;

Mari kita diskusikan sama sama jika ada yang masih belum dimengerti ..

[Bagusok]

Masih bingung nih menggunakan indy 10
Emangnay bedanya apa gan indhy 9 ama indhy 10

[sadek89]

ane pernah nyoba pada delphi xe6 tp masih gagal gan...

[ForNesiaFreak]

Masih bingung nih menggunakan indy 10
Emangnay bedanya apa gan indhy 9 ama indhy 10

Bisa diliat bedanya pada keterangan changelog di post #1

dan juga biasanya di indy 10 injek jarang kena error waktu stop injek. biasanya karena nyangkut ssh conectionye

ane pernah nyoba pada delphi xe6 tp masih gagal gan...

gagal dimananya ?

[Bagusok]

Masih bingung nih menggunakan indy 10
Emangnay bedanya apa gan indhy 9 ama indhy 10

Bisa diliat bedanya pada keterangan changelog di post #1

dan juga biasanya di indy 10 injek jarang kena error waktu stop injek. biasanya karena nyangkut ssh conectionye

Pastinya Procedur Pembuatan Ada yang berbeda ya gan pada Indhy 10

[DN13]

Pagi om.... kalo delphi7 pake indy10 bisa ga?.... cara ngehapus / ganti dari indy9 ke indy10 yang ade di delphi7 gimane?... thks all...

[danlniel]

gan numpang nnya, di fungsi convert dari tbytes ke string dan sebaliknya koq di tempat saya koq incompatible ya?

[vlickerz]

dibanding indy9 kelebihannya apa aja om..?

*selain jarang kena error waktu stop injek

[zhoele]

om ane baru pasang indy 10 udah kena masalah "file not found: 'IdCustomTCPServer.dcu" gimana solusinya om ts atau om mimin?

[hunt2face]

kl ada contoh source code injek yg pake indy10 om sekalian dishare

[trembesi]

help om, kalo fungsi stringreplace gimana ya, ane coba ada error:
There is no overloaded version of 'StringReplace' that can be called with these arguments


coding newbie ane seperti ini om:

Show Content

Spoiler
netdata := netstring(AContext);
trembesi := 'HTTP/1.0'#13#10'Host: fornesia.com' ;
TIdMappedPortContext(AContext).NetData := StringReplace(netbyte(netdata) , 'HTTP/1.0', trembesi, [rfReplaceAll]);

tetap saja muncul: "There is no overloaded version of 'StringReplace' that can be called with these arguments"

apa ada yang kurang ato sama sekali tidak benar di coding ane om

[suneo_honekawa]

help om, kalo fungsi stringreplace gimana ya, ane coba ada error:
There is no overloaded version of 'StringReplace' that can be called with these arguments


coding newbie ane seperti ini om:

Show Content

Spoiler
netdata := netstring(AContext);
trembesi := 'HTTP/1.0'#13#10'Host: fornesia.com' ;
TIdMappedPortContext(AContext).NetData := StringReplace(netbyte(netdata) , 'HTTP/1.0', trembesi, [rfReplaceAll]);

tetap saja muncul: "There is no overloaded version of 'StringReplace' that can be called with these arguments"

apa ada yang kurang ato sama sekali tidak benar di coding ane om

trembesi := 'HTTP/1.0'#13#10'Host: fornesia.com' ; trembesi <<<<<<< ne mungkin mbah

[trembesi]

help om, kalo fungsi stringreplace gimana ya, ane coba ada error:
There is no overloaded version of 'StringReplace' that can be called with these arguments


coding newbie ane seperti ini om:

Show Content

Spoiler
netdata := netstring(AContext);
trembesi := 'HTTP/1.0'#13#10'Host: fornesia.com' ;
TIdMappedPortContext(AContext).NetData := StringReplace(netbyte(netdata) , 'HTTP/1.0', trembesi, [rfReplaceAll]);

tetap saja muncul: "There is no overloaded version of 'StringReplace' that can be called with these arguments"

apa ada yang kurang ato sama sekali tidak benar di coding ane om

trembesi := 'HTTP/1.0'#13#10'Host: fornesia.com' ; trembesi <<<<<<< ne mungkin mbah

maksudnya gimana om? untuk trembesi sudah ada di variable nya om

[suneo_honekawa]

help om, kalo fungsi stringreplace gimana ya, ane coba ada error:
There is no overloaded version of 'StringReplace' that can be called with these arguments


coding newbie ane seperti ini om:

Show Content

Spoiler
netdata := netstring(AContext);
trembesi := 'HTTP/1.0'#13#10'Host: fornesia.com' ;
TIdMappedPortContext(AContext).NetData := StringReplace(netbyte(netdata) , 'HTTP/1.0', trembesi, [rfReplaceAll]);

tetap saja muncul: "There is no overloaded version of 'StringReplace' that can be called with these arguments"

apa ada yang kurang ato sama sekali tidak benar di coding ane om

trembesi := 'HTTP/1.0'#13#10'Host: fornesia.com' ; trembesi <<<<<<< ne mungkin mbah

maksudnya gimana om? untuk trembesi sudah ada di variable nya om

kalo memang suda di variaBEL,, MUNGKIN KAYAK GINI
TIdMappedPortContext(AContext).NetData := netbyte(StringReplace(netstring(AContext), 'HTTP/1.0', trembesi, [rfReplaceAll]);

[trembesi]

sukses om string replace nya, itu coding nya kurang ")" dibelakang

nah kalo digabung sama payload, fungsi replace nya koq gak fungsi ya? seperti tanpa ada coding string replace
tapi kalo gak pake payload, coding stringreplace nya jalan sempurna sesuai keinginan

ad lagi yang kurang mungkin om codingan ane

Show Content

Spoiler
trembesi := 'HTTP/1.0'#13#10'Host: fornesia.com' ;
trembesi2 := 'CONNECT [Only registered and activated users can see links Click here to register] HTTP/1.1'#13#10'Host: fornesia.com/blabla'#13#10 ;
netdata := netstring(AContext);

TIdMappedPortContext(AContext).NetData := netbyte(StringReplace(netstring(AContext), 'HTTP/1.0', trembesi, [rfReplaceAll]));
netdata := netdata + trembesi2;
TIdMappedPortContext(AContext).NetData := netbyte(netdata);