소스는 다음과 같고 환경 del2010 입니다. 어떻게 수정해야할지 좀 부탁합니다
var
rbstr: RawByteString;
HTML: String;
MemoryStream: TMemoryStream;
StringStream: TStringStream;
slPost: TStringList;
begin
slPost := TStringList.Create;
slPost.Add('student_info=박지훈');
slPost.Add('reserve_purpose=임프');
StringStream := TStringStream.Create(slPost.Text);
slPost.Free;
MemoryStream := TMemoryStream.Create;
IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';
IdHTTP1.Post('
http://주소', StringStream, MemoryStream);
StringStream.Free;
SetLength(rbstr, MemoryStream.Size);
StrLCopy(PAnsiChar(rbstr), PAnsiChar(MemoryStream.Memory), MemoryStream.Size); <-------- 요부부에서 access violation에러가 발생합니다
MemoryStream.Free;
if Pos('utf-8', IdHTTP1.Response.ContentType)=0 then
SetCodePage(rbstr, 949, false)
else
SetCodePage(rbstr, 65001, false);
Memo1.Lines.Text := rbstr;
end;