05-10-2014, 06:02 AM
agan2 and sesepuh mau nanya nih...cara buat pilot multi request da yg tau gak gan...maklum masih cupu ma delphi nih jadi butuh bimbinganx...sekalian
ane buat pilot kek gini mbah dan agan2 sekalian kira2 yg kurang dan letak kesalahanx dimana yah....
Pilot:
======
req :=stringreplace(AThread.NetData, #13#10#13#10, #13#10 + 'Host: BUG' + #13#10#13#10, [rfReplaceAll]);
bug:='BUG';
payload := 'Methode BUG/ HTTP/1.1'#13#10;
StringReplace(Req,#13#10+#13#10, #13#10+#13#10'Host: BUG'+#13#10+#13#10, [rfReplaceAll]);
if (pos('Host: BUG',athread.NetData)<>0) then
athread.NetData := athread.NetData + payload;
end;
Sebelumx makasih tas bantuan dan koreksix
ane buat pilot kek gini mbah dan agan2 sekalian kira2 yg kurang dan letak kesalahanx dimana yah....
Pilot:
======
req :=stringreplace(AThread.NetData, #13#10#13#10, #13#10 + 'Host: BUG' + #13#10#13#10, [rfReplaceAll]);
bug:='BUG';
payload := 'Methode BUG/ HTTP/1.1'#13#10;
StringReplace(Req,#13#10+#13#10, #13#10+#13#10'Host: BUG'+#13#10+#13#10, [rfReplaceAll]);
if (pos('Host: BUG',athread.NetData)<>0) then
athread.NetData := athread.NetData + payload;
end;
Sebelumx makasih tas bantuan dan koreksix
zevoic, proud to be a member of ForNesia Family since Apr 2014.