[dff]

Столкнулся с проблемой

Написал функцию вот она

Код:

function TForm1.SendData(url:string;url_str:string):string;
var
data: TStringStream;
dump:TStream;
dump_txt:TStringList;
otv:string;
begin
  RandHeader;

  //dump := TStringStream.Create('', TEncoding.UTF8);
  dump_txt:=TStringList.Create;
  dump:=TMemoryStream.Create;
  otv:='';

  IdHTTP1.Request.ContentType:='application/x-www-form-urlencoded; charset=UTF-8';

  data:=TStringStream.Create;
  data.WriteString(url_str);

      try
        IdHTTP1.Post(url,data,dump);
      except
      end;

        dump.Seek(0, soFromBeginning);
        dump_txt.LoadFromStream(dump);
        otv:=dump_txt.Text;
        dump.Free;
        dump_txt.Free;
        data.Free;
  SendData:=otv;
end;

Если передавать url адрес то он передается не правильно или вообще не передается из за знака &

SendData('http://site.xx/','url=http://site.xx/?q=вася+пупкин)

SendData('http://site.xx/','url=http://site.xx/?q=%E2%E0%F1%FF+%EF%F3%EF%EA%E8%ED)

Вот допустим так я отправил

а на сайте http://site.xx/ в $_GET['url'] получу http://site.xx/?q=вася пупкин

т.е. мне нужно чтобы на сайт пришел оригинальный адрес, такой какой я передал

http://site.xx/?q=%E2%E0%F1%FF+%EF%F3%EF%EA%E8%ED

Как исправить?

[NumLock]

посмотри сниффером что реально передается.

Код:

class function TIdURI.URLEncode(const ASrc: string): string;
class function TIdURI.URLDecode(ASrc: string): string;