Проблемы с новой версией Indy

[RIO]

При установки новой версии Indy (на данный момент самая свежая), появились проблемы с кодировкой, то есть при получении страницы методом Get, русские и украинские буквы отображаются как знаки вопроса . . . Я использовал функцию :

function RussianToUnicode(S: string): string;
var
W: Word;
L: Integer;
PW, PR: PWord;
begin
PW := @S[1];
L := Length(S);
SetLength(Result, L);
PR := @Result[1];
while L <> 0 do
begin
W := PW^;
case W of
$C0..$DF, $E0..$FF: PR^ := W + $0350;
else
PR^ := W;
end;
Dec(L);
Inc(PW);
Inc(PR);
end;
end;

И она не помогает, хотя раньше помогала В чем проблема ?

[Квэнди]

Производите get не в строку, а в поток (Tstringstream)

[Usov]

Помоему в ИНДИ в последних версия они что-то измени с кодировкой, у при использования ихнего мультипарта при пост запросе возникли подобные проблемы, так одни с разработчиков сказал что надо вручную формировать запрс так как этот модуль они не переделывали. Сам использую 10.2.3 с немного подправленными куками.

[RIO]

Друзья, все решилось таким образом :

procedure TForm2.Button2Click(Sender: TObject);
var
ms :TMemoryStream;
sl :TStringList;
begin
ms := TMemoryStream.Create;
sl := TStringList.Create;
HTTP.Get('СайтеГ', ms);
ms.Seek(0, 0);
sl.LoadFromStream(ms);
Memo1.Text := Sl.Text;
end;

Но предстала еще одна проблема . . . Как получить нормальную кодировку, при пост запросе ?

[Usov]

попробуй использовать то же самое и при посте
procedure Post(AURL: string; ASource, AResponseContent: TStream)

[RIO]

Спасибо всем Для пост, помогло :

var
Response: TStringStream;
P: TStringList;
begin
Response := TStringStream.Create('');
P := TStringList.Create;
P.Add('Параметр');
HTTP.Post('СайтеГ', P, Response);
Memo1.Text := Response.DataString;
P.Free;
Response.Free;
end;

[Черничный]

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

Друзья, все решилось таким образом :

procedure TForm2.Button2Click(Sender: TObject);
var
ms :TMemoryStream;
sl :TStringList;
begin
ms := TMemoryStream.Create;
sl := TStringList.Create;
HTTP.Get('СайтеГ', ms);
ms.Seek(0, 0);
sl.LoadFromStream(ms);
Memo1.Text := Sl.Text;
end;

Ха! А у меня не сработало! И в чем же дело?

[Квэнди]

"Не верю" (с)
Вы считаете что вашего сообщения достаточно чтобы вам дали совет ?