Знак + в данных Post запроса

[FLIER]

Сообщение от Пепел Феникса

про URLEncode написано достаточно уже и тут на форуме и в гугле.

Не выходит, по прежнему пробел а не +

HTTPp.URL.ParamsEncode тоже нет: на месте +-са перенос строки да еще и нули преображаются.

Посмотрел что поисковики заменяют + на %2B тоже результата не принесло.

[Человек_Борща]

а кода все нет )))

[FLIER]

Сообщение от Человек_Борща

а кода все нет )))

begin
//link := HTTPp.URL.ParamsEncode(link);
list.Add('ch='+link);
//list.Text := StrAnsiToUtf(list.Text);
//list.Text:= HTTPp.URL.ParamsEncode(list.Text);
list.Add('url=http://www...com/su/all-events.htm');
list.Add('ws=true');
//list.Text := StrAnsiToUtf(list.Text);
//ls.Write(list.Text, SizeOf(list.Text));
//buf := list.Text;

// list.Text:= HTTPp.URL.ParamsEncode(list.Text);
//list := UTF8ToAnsi(list);
try
//HttpHeadConfig(HTTPp, HTTPp.Request.UserAgent,1,1);
html.Text := HTTPp.PostEx('https://www...com/su/betslip/add.htm', list);
except on e : EIDHttpProtocolException do
begin
result := 'res=2;'+'resstr= Ошибка: '+IntToStr(e.ErrorCode);
list.Free;html.Free;exit;
end;
end;
end;

[doktor255]

FLIER Если бы был чуточку внимательнее, уже бы решил свой вопрос. Ответ дан выше. Проснись.

[Человек_Борща]

Нормальный TidHTTP использовать пробовали?

[FLIER]

Сообщение от doktor255

FLIER Если бы был чуточку внимательнее, уже бы решил свой вопрос. Ответ дан выше. Проснись.

ls :TStringStream;
...
ни так

   list.Add('ch='+link+'&'+'url=http://www...com/su/all-events.htm'+'&'+'ws=true');
   ls.Position := 0;
   list.SaveToStream(ls);
   ls.Position := 0;

ни эдак

   ls.Clear; ls.Position := 0;
   ls.WriteString('ch='+link);
   ls.WriteString('url=http://www...com/su/all-events.htm');
   ls.WriteString('ws=true');
   ls.Position := 0;

этот "+" не проходить, пробел вместо него. Пробовал TIdMultiPartFormDataStream - разрывает строку как пожелает.

Сообщение от Человек_Борща

FLIER Нормальный TidHTTP использовать пробовали?

Да, результат такой-же.

Где-то idHttp его заменяет "+" на пробел при методе post. Подскажите пожалуйста как найти нужную функцию.




Снифер:


Подскажите ребята крыша уже едет (((

[Человек_Борща]

А использовать этот совет пробовали?

Сообщение от doktor255

FLIER StringStream. И будет тебе счастье. Если конечно сам не накосячишь.

[FLIER]

Сообщение от Человек_Борща

А использовать этот совет пробовали?

ls :TStringStream;
...
ни так

list.Add('ch='+link+'&'+'url=http://www...com/su/all-events.htm'+'&'+'ws=true');
ls.Position := 0;
list.SaveToStream(ls);
ls.Position := 0;

ни эдак

ls.Clear; ls.Position := 0;
ls.WriteString('ch='+link);
ls.WriteString('url=http://www...com/su/all-events.htm');
ls.WriteString('ws=true');
ls.Position := 0;

не работает....


Скиньте свой пример, пожалуйста, я попробую.

[doktor255]

procedure TForm1.Button1Click(Sender: TObject);
var
 Stream: TStringStream;
 Http: TIdHttp;
begin
 Http:= TIdHttp.Create;
 Stream := TStringStream.Create;
 Stream.WriteString('param1=123+456+789&');
 Stream.WriteString('param2=qwe+rty');
 Http.Post('http://google.com', Stream);
 Stream.Free;
 Http.Free;
end;

Снифер

POST / HTTP/1.0
Connection: keep-alive
Content-Length: 33
Host: google.com
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Encoding: identity
User-Agent: Mozilla/3.0 (compatible; Indy Library)

param1=123+456+789&param2=qwe+rty

Вопросы?
P.S.

list.Add('ch='+link+'&url=http://www...com/su/all-events.htm&ws=true');

[FLIER]

Сообщение от doktor255

procedure TForm1.Button1Click(Sender: TObject);
var
 Stream: TStringStream;
 Http: TIdHttp;
begin
 Http:= TIdHttp.Create;
 Stream := TStringStream.Create;
 Stream.WriteString('param1=123+456+789&');
 Stream.WriteString('param2=qwe+rty');
 Http.Post('http://google.com', Stream);
 Stream.Free;
 Http.Free;
end;

Снифер

Вопросы?
P.S.

Я так и делал...большое спасибо...мой снифер меня обманывал...буду разбираться дальше.