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;
댓글 없음:
댓글 쓰기