삭제를 위한 암호를 넣어 주세요

질문 올리고, 구글검색으로 5분만에 해결점을 찾았네요.
테스트해보니 아주 잘 동작됩니다. ^^

저같은 원인으로 고민하시는 분들에게 도움이 되고자, 해결법을 적었습니다.

출처 : http://bloodguy.tistory.com/entry/Delphi2009-IdHTTP-Indy10-%EC%97%90%EC%84%9C-UTF-8-%EC%9B%B9%ED%8E%98%EC%9D%B4%EC%A7%80-%ED%95%9C%EA%B8%80-%EA%B9%A8%EC%A7%90

 
2017-03-22 오전 3:21:22

삭제를 위한 암호를 넣어 주세요

Delphi2009 + IdHTTP (Indy10) 에서 UTF-8 웹페이지 한글 깨짐

소스파일 자체의 인코딩도 UTF-8이고 페이지세팅도 UTF-8일 경우,
아래와 같은 형태로 가져오면 됨.

function getURLContent(URL: String): String;
var
  IdHTTP1: TIdHTTP;
  Stream: TBytesStream;
begin
  Result:='';
  Stream := TBytesStream.Create;
  IdHTTP1:=TIdHTTP.Create(nil);
  try
    IdHTTP1.Get(URL, Stream, []);
    Result:=TEncoding.UTF8.GetString(Stream.Bytes, 0, Stream.Size);
  finally
    FreeAndNil(IdHTTP1);
    FreeAndNil(Stream);
  end;
end;

중요한 것은 TEncoding



아래와 같은 property 를 가지고 있으므로 인코딩에 따라 적절하게 사용하면 될 듯.

TEncoding.ASCII                   - Returns an encoding for the ASCII character set.  
TEncoding.BigEndianUnicode - Returns an encoding for the UTF-16 format with big-endian byte order.  
TEncoding.Default                 - Returns an encoding for the operating system`s default ANSI code page.  
TEncoding.Unicode               - Returns an encoding for the UTF-16 format with little-endian byte order.  
TEncoding.UTF7                   - Returns an encoding for the UTF-7 format.  
TEncoding.UTF8                   - Returns an encoding for the UTF-8 format. 
2017-03-22 오전 3:22:20