2011년 2월 24일 목요일

Indy의 idHTTP.Get에서의 한글 깨짐 회피 방법

var
  rbstr: RawByteString;
  HTML: String;
  MemoryStream: TMemoryStream;
begin
  MemoryStream := TMemoryStream.Create;
  IdHTTP1.Get('http://blog.devgear.co.kr/imp', MemoryStream);
  rbstr := PAnsiChar(MemoryStream.Memory);
  MemoryStream.Free;
  if (Pos('utf-8', IdHTTP1.Response.ContentType)=0) and (AnsiPos('charset=utf-8', rbstr)=0) then<BR>    SetCodePage(rbstr, 949, false)
  else
    SetCodePage(rbstr, 65001, false);
  HTML := rbstr;
end;

댓글 없음:

댓글 쓰기