지나가던 낭인 님이 쓰신 글 :
: 서버측 html을 메모장으로 여신뒤 다른이름으로 저장해서 UTF-8을 ANSI로 저장하고 불러오면 해결됩니다.
var
http:TIdHTTP;
lStream: TStringStream;
parameters: TStringList;
Result:string;
begin
http := TIdHTTP.Create(nil);
http.Request.ContentType := 'application/x-www-form-urlencoded';
lStream := TStringStream.Create('');
try
Parameters := TStringList.Create;
parameters.Add('query=d');
http.Post(' http://ipip.kr/a.html?id=test&pw=1234', parameters,lStream);
lStream.Position := 0;
Result := lStream.ReadString(lStream.Size);
showmessage(Result);
finally
FreeAndNil(http);
FreeAndNil(lStream);
end;
|