Составление URL в HttpClient

[rareMax]

Можно ли в THTTPClient составлять адрес запроса в таком виде:

URI.Add('param','Name');

Что бы потом, например при GET запросе был такой адрес: examp.le/index.php?param=name

До этого все время пользовался конкатенацией строк либо через Format. Возможно кто то уже сталкивался с таким? Пробовал использовать THTTPRequest - но не подружился как то с ним.

[sviat9440]

Тоже интересует это. Пока обхожусь так:

IdHTTP1.Get('http://localhost/?param1=' + param1 + '&param2=' + param2);

Но это мазохизм если будет 20 параметров))

[sviat9440]

К сожалению тестировать THTTPRequest щас не могу, проблема с Delphi XE10. Не работает буилд с руганью на системный реестр. Переустанавливаю...

Изменено 12 марта, 2016 пользователем sviat

[rareMax]

Ага, нашел, кажется

class function THello.AdvancedShort(const URL, APIkey: String;
  const AppID: Int64; Domen, Folder: String; AdvertType: TAdvertType): String;
var
  HTTP: THTTPClient;
  URI: TURI;
begin
  HTTP := THTTPClient.Create;
  try
    //---cut
    URI.AddParameter('key', APIkey);
    URI.AddParameter('uid', AppID.ToString);
    URI.AddParameter('url', URL);
    Result := HTTP.Execute('GET', URI).ContentAsString.Trim;
  finally
    HTTP.Free;
  end;
end;

[sviat9440]

ухты)) А если сделать:

Result := HTTP.Get(URL.toString);

Результат будет тот же?

[rareMax]

ухты)) А если сделать:

Result := HTTP.Get(URL.toString);

Результат будет тот же?

Да

[sviat9440]

Спасибо)

[sviat9440]

Прости: что в uses писать? У меня не видит TURI.

[sviat9440]

System.Net.URLClient.TURI

 

кажется нашел

[sviat9440]

К сожалению не работает... что я делаю не так?

          URI.Create(Main_URL + 'autorization_session');
          URI.AddParameter('login', TempLogin);
          URI.AddParameter('token', TempToken);
          URI.AddParameter('client', Client);
          URI.AddParameter('device', DeviceInfo.diDevice);
          ShowMessage(URI.ToString);

[Rusland]

А если так передавать параметры 

      sStream := TStringStream.Create();
      sList:=TStringList.Create;
      sList.Add('Lat='+Lat);
      sList.Add('Lon='+Lon);
      sList.Add('Alt='+Alt);
      aResponse:=aHttpClient.Post(sURL,sList,sStream);

Изменено 14 марта, 2016 пользователем Rusland

[kami]

POST и GET - разные вещи, сервер может дать отлуп при неправильном типе запроса.

[Rusland]

Проверял и с GET-запросом - работает.

      sList.Add('f=5');

      aResponse:=aNetHttpClient.Post('http://www.programmersforum.ru/forumdisplay.php',sList,sStream);

 

[Vitaldj]

Я так делаю:

  sql_param:=TStringList.Create;
  sql_param.Add('fio_f='+reg2.suiEdit1.Text+'');   sql_param.Add('fio_i='+reg2.suiEdit2.Text+'');
  sql_param.Add('fio_o='+reg2.suiEdit3.Text +'');


-----куча других параметров------
  memo1.Lines.Add( form1.IdHTTP1.post( 'http://сайт/inet.php', sql_param ));

при этом в мемо1 получаю ответ

[Rusland]

Vitaldj, чем ваш TStringList отличается от моего? 

[Vitaldj]

Vitaldj, чем ваш TStringList отличается от моего? 

Да ничем, кроме того, что у вас 3-и параметра, а у меня 2)))

[Равиль Зарипов (ZuBy)]

ну как по мне использовать TStringStream правильней, т.к. можно сразу указать кодировку.

а в запрос передавать TStringStream.DataString;

[Rusland]

а в запрос передавать TStringStream.DataString;

Как?

[sviat9440]

Насколько я понял это для пост запроса? Или для гет тоже пойдет?

 

 

А если так передавать параметры 

      sStream := TStringStream.Create();
      sList:=TStringList.Create;
      sList.Add('Lat='+Lat);
      sList.Add('Lon='+Lon);
      sList.Add('Alt='+Alt);
      aResponse:=aHttpClient.Post(sURL,sList,sStream);

[Rusland]

http://fire-monkey.ru/topic/2421-sostavlenie-url-v-httpclient/#entry13868

Изменено 14 марта, 2016 пользователем Rusland

[Равиль Зарипов (ZuBy)]

 

а в запрос передавать TStringStream.DataString;

Как?

 

 

Как-то так

var
  Str: TStringStream;
  Return: string;
begin
  Str := TStringStream.Create('', TEncoding.UTF8);
  Str.WriteString('param=' + 'value&');
  Str.WriteString('param=' + 'value&');
  Str.WriteString('param=' + 'value&');
  Str.WriteString('param=' + 'value');
  Return := IdHTTP1.Get('http://mysite.com/request.php?' + Str.DataString);
  Str.Free;
end;

У меня для одно из приложении есть вспомогающий класс, который формирует (JSON) параметры для запроса

Вот так с ним работать

  OpenJSON('Installs');
  Param('inst_os', aDevInfo.diPlatform);
  Param('inst_ver', aDevInfo.diPlatformVer);
  Param('inst_arch', aDevInfo.diArchitecture);
  Param('inst_device', aDevInfo.diDevice);
  Param('inst_phis_screen', aDevInfo.diScreenPhis);
  Param('inst_logic_screen', aDevInfo.diScreenLogic);
  Param('inst_scale', aDevInfo.diScale.ToString);
  Param('inst_location', aLocation.ToString);
  Param('inst_acc_id', aAcc_id.ToString);

  Param('inst_mac', aDevInfo.diMacAddress);
  Param('inst_ip', aDevInfo.diIPAddress);
  Param('inst_lang', aDevInfo.diLang);
  CloseJSON;
  Result := ToJSON;

Изменено 14 марта, 2016 пользователем ZuBy