Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / fpc-pascal / 2012-10

set useragent in fphttpclient?

3 messages · 2 people ·

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

waldo kitty

how do i set the useragent field in a client built with fphttpclient?

i'm starting with the example "httpget" and then moving on from there...

i've tried various WAGs like

RequestHeaders(fieldUserAgent,'my user agent');
RequestHeaders('User-Agent','my user agent');
SetRequestHeaders(fieldUserAgent,'my user agent');
SetRequestHeaders('User-Agent','my user agent');

but i can't find the combination :/

do they need to be set before the "With TFPHTTPClient.Create(nil) do" line??

===== code =====
program Project1;
{$mode objfpc}{$H+}

uses

   {$IFDEF UNIX}{$IFDEF UseCThreads}
   cthreads,
   {$ENDIF}{$ENDIF}
   Classes,
   { you can add units after this }
   SysUtils, fphttpclient;
var
   i : Integer;
begin
   if (ParamCount2) then
     begin
     writeln('Usage : ',ExtractFileName(ParamStr(0)), ' URL filename');
     Halt(1);
     end;
   With TFPHTTPClient.Create(Nil) do
     try
       RequestHeaders('User-Agent','Mozilla/5.0 (compatible; fpweb)');
       Get(ParamStr(1),ParamStr(2));
       Writeln('Response headers:');
       For I:=0 to ResponseHeaders.Count-1 do
         Writeln(ResponseHeaders[i]);
     finally
       Free;
     end;
end.
===== end code =====

Reply by email

Michael Van Canneyt
to waldo kitty
waldo kitty wrote 11 lines
how do i set the useragent field in a client built with fphttpclient? i'm starting with the example "httpget" and then moving on from there... i've tried various WAGs like RequestHeaders(fieldUserAgent,'my user agent'); RequestHeaders('User-Agent','my user agent'); SetRequestHeaders(fieldUserAgent,'my user agent'); SetRequestHeaders('User-Agent','my user agent');
Try
   AddHeader('User-Agent','My user agent');

as in

    With TFPHTTPClient.Create(Nil) do
     try
       AddHeader('User-Agent','Mozilla/5.0 (compatible; fpweb)');
       Get(ParamStr(1),ParamStr(2));
       Writeln('Response headers:');

Michael.

Show quoted text 21 lines
but i can't find the combination :/ do they need to be set before the "With TFPHTTPClient.Create(nil) do" line?? ===== code ===== program Project1; {$mode objfpc}{$H+} uses {$IFDEF UNIX}{$IFDEF UseCThreads} cthreads, {$ENDIF}{$ENDIF} Classes, { you> With TFPHTTPClient.Create(Nil) do try RequestHeaders('User-Agent','Mozilla/5.0 (compatible; fpweb)'); Get(ParamStr(1),ParamStr(2)); Writeln('Response headers:');

can add units after this }

Show quoted text 27 lines
SysUtils, fphttpclient; var i : Integer; begin if (ParamCount2) then begin writeln('Usage : ',ExtractFileName(ParamStr(0)), ' URL filename'); Halt(1); end; With TFPHTTPClient.Create(Nil) do try RequestHeaders('User-Agent','Mozilla/5.0 (compatible; fpweb)'); Get(ParamStr(1),ParamStr(2)); Writeln('Response headers:'); For I:=0 to ResponseHeaders.Count-1 do Writeln(ResponseHeaders[i]); finally Free; end; end. ===== end code ===== _______________________________________________ fpc-pascal maillist - http://lists.freepascal.org/mailman/listinfo/fpc-pascal

Reply by email

waldo kitty
to Michael Van Canneyt
Michael Van Canneyt wrote 18 lines
On Mon, 15 Oct 2012, waldo kitty wrote: > i've tried various WAGs like > > RequestHeaders(fieldUserAgent,'my user agent'); > RequestHeaders('User-Agent','my user agent'); > SetRequestHeaders(fieldUserAgent,'my user agent'); > SetRequestHeaders('User-Agent','my user agent'); Try AddHeader('User-Agent','My user agent'); as in With TFPHTTPClient.Create(Nil) do try AddHeader('User-Agent','Mozilla/5.0 (compatible; fpweb)'); Get(ParamStr(1),ParamStr(2)); Writeln('Response headers:');

thanks... that works! :)

i knew it would be something simple that i just hadn't seen or wrapped my head around...

Reply by email