VPF::Ошибка метода GET - <html>. - Форум программистов

MacTep

Дата 16.10.2011, 15:54 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: нет
Всего: 4

Делаю следующее:

Код


procedure TfrmFrameConfigSMS.sBitBtn2Click(Sender: TObject);
var s: string;
    url: string;
    p_phone, p_text: string;
begin
  login := 'test';
  password := 'test';
  p_phone := '79276000000';
  p_text := 'Test!';
  url := 'http://'+login+':'+password+'@gate.prostor-sms.ru/send/?api_login='+login+'&api_password='+password+'&phone='+p_phone+'&text='+p_text;
  try
    s := HTTP.GET(url);
    Memo1.Lines.Clear;
    Memo1.Lines.Text := s;
  finally
  end;
end;

Получаю ошибку: http://clip2net.com/s/1fdYG

<html> - что это за ошибка такая?

P.S. Свойство компонента idHttp HandleRedirects стоит в True.

Это сообщение отредактировал(а) MacTep - 16.10.2011, 15:54

--------------------

(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)

MacTep

Дата 17.10.2011, 00:15 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: нет
Всего: 4

Решил вопрос вот этой функцией

Код


function EncodeUrl(url:string):string;
var
  i: integer;
begin
  result:='';
  for i:=1 to Length(url) do
    if (url[i] < #127) and (url[i] > #32) then result:=result+url[i]
    else result:=result + '%' + IntToHex(ord(url[i]),2);
end;

Оказалось, текст "Test!" отправить может нормально, а вот для теста с пробелами типа "Privet vsem!" уже нужна нормализация smile

В общем, спасибо Snowy. Снова он помог, хоть и пассивно - в поиске нашел его пост вот в этой теме: http://forum.vingrad.ru/index.php?showtopi...t&p=1328423

--------------------

(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)

Keeper89

Дата 17.10.2011, 16:22 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 6
Всего: 58

URLEncode или как там в Indy нужно ставить всегда.

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

MacTep

Дата 22.10.2011, 00:17 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: нет
Всего: 4

Цитата(Keeper89 @ 17.10.2011, 16:22

)

URLEncode или как там в Indy нужно ставить всегда.

Таким образом не нужно будет использовать функцию, которая меня спасла?

--------------------

(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »