Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1.  
  2. var
  3. Send : string;
  4.  
  5. ==========Dan yang ini isikan di bawah begin:============
  6.  
  7. Send := 'metodeKAMU http://BugKAMU/ HTTP/1.1' + #10#13 + 'Host : HostKamu' #10#13; // Data Payload pengiriman
  8. if Pos('CONNECT',AThread.NetData)<>0 then //Sistem Mencari Menthod Deengan Benar;
  9. AThread.NetData := AThread.NetData + Send; //Mengabungkan Data Data Lain;
  10. Memo1.Lines.Add(AThread.NetData); //Untuk Menampilkan data log request