Delphi 2010 и Кодировка

[cargo29]

вот тема была на сайте тоже но это не помогло... http://programmersforum.ru/showthrea...=151831&page=2

[GunSmoker]

Я тебе серьёзно говорю. Начинай включать голову. Что, по-твоему, хранится в TStringList, текст которого ты передаёшь в Post?

[cargo29]

Да он же класса TString

[Stilet]

Что, по-твоему, хранится в TStringList, текст которого ты передаёшь в Post?

А что там у него? Параметры запроса. Верно?

[cargo29]

procedure TForm1.Button1Click(Sender: TObject);
var
ms: TMemoryStream; sl:TStringList; a:string;
begin
ms:=TMemoryStream.Create;
sl:=TStringList.Create;
getDir(0,dir);
Memo2.Text:=IdHTTP1.Get('http://tumen.u-tel.ru/facilities/sms');
Memo2.Text:= Copy(Memo2.Text, Pos('<h1>Отправка SMS', Memo2.Text), POS('Сервис и поддержка',Memo2.Text)-Pos('<h1>Отправка SMS', Memo2.Text));
code_capcha.Text:=Copy(Memo2.Text, Pos('Введите число с картинки',Memo2.Text), Pos('Отложить отправку SMS до', Memo2.Text)-Pos('Введите число с картинки',Memo2.Text));
code_capcha.Text:='http://tumen.u-tel.ru'+Copy(code_capcha.Text, pos('src="',code_capcha.Text)+5,Pos('" alt="captcha"',code_capcha.Text)-pos('src="',code_capcha.Text)-5);
IdHTTP1.Get(code_capcha.Text,ms);
ms.SaveToFile('capcha.jpg');
Image1.Picture.LoadFromFile('capcha.jpg');
ms.Free;
a:=Copy(Memo2.Text, Pos('<INPUT type="hidden" name="formSid" value="', Memo2.Text)+length('<INPUT type="hidden" name="formSid" value="'), Pos('<INPUT type="hidden" name="formS"',Memo2.Text)-Pos('<INPUT type="hidden" name="formSid" value="',Memo2.Text)-length('<INPUT type="hidden" name="formSid" value="')-5);
Edit1.Text:=IdHTTP1.Request.From;
sl.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
sl:TStringList; a:String; ans:AnsiString; us:UTF8String;  
begin
htp:=THTTPSend.Create;
ans:=memo1.Lines.Text;
us:=AnsiToUtf8Ex(ans,CP_UTF8);
a:=Copy(Memo2.Text, Pos('<INPUT type="hidden" name="formSid" value="', Memo2.Text)+length('<INPUT type="hidden" name="formSid" value="'), Pos('<INPUT type="hidden" name="formS"',Memo2.Text)-Pos('<INPUT type="hidden" name="formSid" value="',Memo2.Text)-length('<INPUT type="hidden" name="formSid" value="')-5);
sl:=TStringList.Create();
sl.Add('tebo=h');
sl.Add('action=ins');
sl.Add('mode=insSms');
sl.Add('delay_time=""');
sl.Add('phone_number='+nomer.Text);
sl.Add('formSid='+a);
sl.Add('formS=www1');
sl.Add('phone_post_number='+nomer.text);
sl.Add('message_text='+us);
sl.Add('confirm_code='+capcha.Text);
//str:=TStringStream.Create('tebo=h'+'action=ins'+'mode=insSms'+'delay_time=""'+'phone_number='+nomer.Text+'message_text='+Memo1.Text+'formSid='+a+'formS=www1'+'phone_post_number='+nomer.text+'confirm_code='+capcha.Text);
Memo3.Text:= IdHTTP1.Post('http://tumen.u-tel.ru/facilities/sms',sl);
//тут потом будет проверка ушло сообщение или нет
sl.Free;
end;

Вот код, капча норма загружаеться все нормально и уходит на сайт дело в том что кодировка не катит когда смс приходит.. советовали использовать Synapse но я ним ни когда не работал

[GunSmoker]

TStrings - это набор строк. Обычных строк. Которые String. Соответственно, никаких UTF8 здесь быть не может. Физически.

Следовательно, есть два варианта:
а). в UTF8 кодирует сам IdHTTP.Post. Но для этого надо ему как-то это указать.
б). кодируете в UTF8 вы, но и передавать тогда вы должны UTF8, а не строки. Кодированная информация - это набор байт, не текст. И Post надо делать на неё.

А вы всё мешаете в кучу - неудивительно, что получается ерунда.

Я не помню, как обстоят дела в Indy с поддержкой варианта а), но вариант б) поддерживается точно - надо использовать перегруженный вариант Post, который принимает набор байт.

P.S. Кажется, в Indy есть что-то вроде IdMultiPartFormDataStream - это насчёт варианта а). И, кстати, может потребоваться URL-encod-ить параметры. Опять же, надо опции IdHTTP смотреть.

[Stilet]

TStrings - это набор строк. Обычных строк. Которые String. Соответственно, никаких UTF8 здесь быть не может. Физически.

Правильно, но в случае с Д2010 где строка юникодивая по умолчанию, так же и набор строк, о которых ты глаголишь, тоже содержит контент в юникоде.

в UTF8 кодирует сам IdHTTP.Post. Но для этого надо ему как-то это указать.

Тоже возможно.

[cargo29]

Из выше сказангого я ничего не понял ((( windows-1251 можно как то по подробнее??? на счет IdMultiPartFormDataStream видел но пока не работал с ней, хотелось решить вопрос именно с idhttp и StringList

[cargo29]

Поможете опытные ??? а то уже не один день бошу ломаю с этой кодировкой.... а то ни как разобраться не могу сколько уже статей перечитал

[SamBellamy]

код работает под delphi xe, подключи библиотеку HTTPApp для HTTPEncode

function W1252To1251(const AData: String): String;
var
  S: RawByteString;
  X: Integer;
begin
  SetLength(S, Length(AData));
  for X := 1 to Length(AData) do
    S[X] := AnsiChar(AData[X]);
  SetCodePage(S, 1251, False);
  Result := S;
end;

function TfrmMain.HTTPPost(text, url: string): string;
var
  idhttp: TIdHTTP;
  SS: TStringStream;
begin
  result := '';
  text := 'PostParam=' + HTTPEncode(text);
  ss := TStringStream.Create(text);
  idhttp := TIdHTTP.Create(nil);
  IdHTTP.Request.ContentType := 'application/x-www-form-urlencoded';
  IdHTTP.HTTPOptions := IdHTTP.HTTPOptions - [hoForceEncodeParams ];
  try
    result := W1252To1251( IdHTTP.Post(url, SS) );
  finally
    idhttp.Free;
  end;
end;