[TidHTTP] Как получить ответ от веб-сервера в нужной кодировке?

[mrseagull]

Используя IdHTTP загружаю текстовый файл из интернета.

UnicodeString URL = "http://seatr.do.am/AntiCafe48/30.03.2015";
String str;
str = IdHTTP1->Get(URL);
Form4->Memo1->Lines->Add(str);

В итоге вместо кириллицы абра кадабра. Что можно сделать?

[Brovin Yaroslav]

Добрый вечер,

 

У TidHttp есть перегруженный метод получения ответа с возможностью указания потока. 

 

Сервер по указанному адресу присылает ответ в ANSI кодировке. А у функция Get возвращает UnicodeString в С++ Builder. Поэтому решение - это представить полученный ответ в ANSI кодировке:

 

C++:

TStringStream *SS = new TStringStream(L"", TEncoding::ANSI, false);
try
{
	UnicodeString URL = "http://seatr.do.am/AntiCafe48/30.03.2015";
	IdHTTP1->Get(URL, SS);
	ShowMessage("Response: " + SS->DataString);
}
 __finally
{
	SS->Free();
}

Delphi:

var
  SS: TStringStream;
begin
  SS := TStringStream.Create('', TEncoding.ANSI);
  try
    IdHTTP1.Get('http://seatr.do.am/AntiCafe48/30.03.2015', SS);
    ShowMessage('Response: ' + SS.DataString);
  finally
    SS.Free;
  end;
end;

Результат:

Изменено 31 марта, 2015 пользователем Brovin Yaroslav
Добавлен код для C++ Builder

[mrseagull]

Что-то не так

[VladimirS]

А что, Cи позволяет создавать выполнять код вне процедур, функций, методов?

[Brovin Yaroslav]

Автор указал, что создание идет в обработчике кнопки 2.

[Brovin Yaroslav]

Мой код компилируется на все платформы. Попробуйте вначале собрать пример с моим кодом, сделав полный копипаст.

[mrseagull]

Все заработало! Простите за преждевременную панику.