Jump to content

robgab

Members
  • Content Count

    4
  • Joined

  • Last visited

Posts posted by robgab


  1. Is there a method to change the MaxRedirects of TRESTClient from the default of 5 to say 10? so that the redirection limit can be increased. 

    some sites have more then 5 redirections , once the limit is reached the TRESTClient  causes an exception. 

     

    Handle redirects is set to true but no method exists for maxredirects using TRESTClient or TRESTRequest 

     

    client  : TRESTClient;
     request : TRESTRequest;

    ....

     

    client.HandleRedirects:=true;

    MaxRedirects ??

     


  2. Is there a method to change the MaxRedirects of TRESTClient from the default of 5 to say 10?

     

    Handle redirects is set to true but no method exists for maxredirects using TRESTClient or TRESTRequest 

     

    client  : TRESTClient;
     request : TRESTRequest;

     

    ....

     

    client.HandleRedirects:=true;

    MaxRedirects ??


  3. Correct , 

    I Also tried the new call method as well

    ASyncService.InputQueryAsync from Embarcadero and it also fails too,

     

    if TPlatformServices.Current.SupportsPlatformService (IFMXDialogServiceAsync, IInterface (ASyncService)) then begin

                               with   ASyncService do begin


                      ASyncService.InputQueryAsync('Please Enter Search Term', ['Info'], [search_word],
        procedure (const AResult : TModalResult; const values: array of string)
        begin

        case AResult of

        mrOk :
        begin
        NewString:=Values[0];  //showmessage('ok pressed');
         end;

        mrCancel :
        begin
        NewString:=Values[0]; //showmessage('cancelled pressed');
        end;

        end; // end of case


       );  // final end

     


  4. not sure if others are having this issue with Rad Studio 11.1 

    seems when you call

     TDialogService.InputQuery and want to get a user input string it acts really strange, the ok button acts as the cancel button and the cancel button acts as the ok button and the value of the input from the user can't be obtained?

                      TDialogService.InputQuery('Please Enter Search Term', ['Info'], [search_word],
        procedure (const AResult : TModalResult; const values: array of string)
        begin

     

    if AResult<.mrOK2 then exit;
           // Exit;     

       NewString:=Values[0]; // gets the value of the string input from the user

        end // end of dialog code
       );  // final end
    any help would be kindly appreciated.

     

     

     

×