Добрый вечер,
У 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;
Результат: