자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
Delphi http post 한글만깨짐
2013.04.12 06:45
웹은 euc-kr 로 되어있구요 한글만 다 깨어져 나옵니다. xe2 사용자입니다. 조언 부탁드려요~~~~
procedure TForm1.Button17Click(Sender: TObject);
var
data: TIdMultiPartFormDataStream;
idHttp : TIdHttp;
s1,s2 : string;
begin
data := TIdMultiPartFormDataStream.Create;
idHttp := TIdHttp.Create(nil);
idHttp.Request.UserAgent :='a';
idhttp.Request.ContentType := data.RequestContentType;
s1 := '제목'; // 제목
s2 := '내용'; // 내용
try
data.AddFormField('mode', 'regist_article');
data.AddFormField('id', 'board15');
data.AddFormField('nickname', 'yskil');
data.AddFormField('subject', s1);
data.AddFormField('content', s2);
Memo1.Lines.Text := idHTTP.Post('http://smschurch.co.kr/board/index.html', data);
finally
data.Free;
end;
end;
Delphi http post 한글만깨짐
2013.04.12 06:45
웹은 euc-kr 로 되어있구요 한글만 다 깨어져 나옵니다. xe2 사용자입니다. 조언 부탁드려요~~~~
procedure TForm1.Button17Click(Sender: TObject);
var
data: TIdMultiPartFormDataStream;
idHttp : TIdHttp;
s1,s2 : string;
begin
data := TIdMultiPartFormDataStream.Create;
idHttp := TIdHttp.Create(nil);
idHttp.Request.UserAgent :='a';
idhttp.Request.ContentType := data.RequestContentType;
s1 := '제목'; // 제목
s2 := '내용'; // 내용
try
data.AddFormField('mode', 'regist_article');
data.AddFormField('id', 'board15');
data.AddFormField('nickname', 'yskil');
data.AddFormField('subject', s1);
data.AddFormField('content', s2);
Memo1.Lines.Text := idHTTP.Post('http://smschurch.co.kr/board/index.html', data);
finally
data.Free;
end;
end;
아래의 링크를 한번 참조해 보시기 바랍니다.
http://www.youtu.kr/1018785