Chilkat
HOME
Android™
ASP
Visual Basic
VB.NET
C#
iOS (IPhone)
Objective-C
C++
C
MFC
Delphi
FoxPro
Java
Perl
PHP Extension
PHP ActiveX
Python
PowerShell
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; |
© 2000-2010 Chilkat Software, Inc. All Rights Reserved.