Chilkat HOME ASP Visual Basic VB.NET C# Visual C++ C MFC Delphi FoxPro Java Perl PHP Python Ruby SQL Server VBScript
|
Adding Cookies to an HTTP GET RequestExample showing how to add one or more cookies to an HTTP GET request. uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, CHILKATHTTPLib_TLB, OleCtrls; ... procedure TForm1.Button1Click(Sender: TObject); var http: TChilkatHttp; success: Integer; request: TChilkatHttpRequest; response: IChilkatHttpResponse; domain: String; port: Integer; ssl: Integer; begin http := TChilkatHttp.Create(Self); // Any string unlocks the component for the 1st 30-days. success := http.UnlockComponent('Anything for 30-day trial'); if (success <> 1) then begin ShowMessage(http.LastErrorText); end; // The Cookie header field has this format: // Cookie: name1=value1 [; name2=value2] ... // Build an HTTP GET request: request := TChilkatHttpRequest.Create(Self); request.SetFromUrl('http://www.example-code.com/'); request.UseGet(); // Add two cookies: request.AddHeader('Cookie','user="mary"; city="Chicago"'); // Send the HTTP GET. The cookies are sent as part of the HTTP header. domain := 'www.example-code.com'; port := 80; ssl := 0; response := http.SynchronousRequest(domain,port,ssl,request.DefaultInterface); if (response = nil ) then begin ShowMessage(http.LastErrorText); end; // Display the HTML body of the response. if (response.StatusCode = 200) then begin Memo1.Lines.Add(response.BodyStr); end else begin Memo1.Lines.Add('HTTP Response Status = ' + IntToStr(response.StatusCode)); end; end; |
Need a specific example? Send a request to support@chilkatsoft.com
© 2000-2007 Chilkat Software, Inc. All Rights Reserved.