Article Rating

  • 0 Rating(s)
  • 0
  • 0
  • 0
  • 0
  • 0
procedure TForm1.Button1Click(Sender: TObject);   
var   
   stream: TStream;   
begin   
   stream := TFileStream.Create('cookies.dat', fmOpenRead);   
   try   
      clCookieManager1.Cookies.Load(stream);   
   finally   
      stream.Free();   
   end;   
 
   clHttp1.CookieManager := clCookieManager1;   
   clHttp1.Get(edtUrl.Text, memResponse.Lines);   
 
   stream := TFileStream.Create('cookies.dat', fmCreate);   
   try   
      clCookieManager1.Cookies.Save(stream);   
   finally   
      stream.Free();   
   end;   
end; 

Article ID: 6, Created On: 1/22/2010, Modified: 1/23/2010