자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
Delphi IdHTTP 이용시 한글 깨짐현상
2018.05.01 11:16
본 게시판은 개발자들이 자유롭게 질문과 답변을 공유하는 게시판입니다.
* 따라서 최대한 정중하게 질문을 올려 주세요.
* 질문을 상세히 작성해 주실 수록 좋은 답변이 올라 옵니다.
* 다른 분들도 참고할 수 있도록 결과 댓글 필수(또는 감사 댓글)
(결과 댓글을 달지 않는 경우 다음 질문에 대한 답변이 달리지 않는 불이익이 있을 수 있습니다.)
-----------------------------------------------------------------------------------------------
안녕하세요
IdHTTP를 이용해서 파일 업로드를 하는 컴포넌트를 만드는데
업로드 하고나서 파일명을 보여줄때 자꾸 한글이 깨지네요...
혹시 이유나 해답을 아시는분 계시면 가르쳐주시면 감사하겠습니다!
procedure TForm1.Button1Click(Sender: TObject); //업로드
var
Url: string;
DataPath: string;
DataStream: TIdMultiPartFormDataStream;
ResStream: TMemoryStream;
begin
if not OpenDialog1.Execute then
Exit;
DataPath := OpenDialog1.FileName;
Url := 'http://www.cosjwn.co.kr/uesr/upload.php';
DataStream := TIdMultiPartFormDataStream.Create;
ResStream := TMemoryStream.Create;
try
// DataStream.AddFormField('user', '1234');
DataStream.AddFile('upfile', DataPath, '');
IdHTTP1.Post(Url, DataStream, ResStream);
ResStream.Position := 0;
Memo1.Lines.Add(IdGlobal.ReadStringFromStream(ResStream, -1, IndyTextEncoding_UTF8));
finally
FreeAndNil(DataStream);
FreeAndNil(ResStream);
end;
end;
댓글 0
Delphi IdHTTP 이용시 한글 깨짐현상
2018.05.01 11:16
본 게시판은 개발자들이 자유롭게 질문과 답변을 공유하는 게시판입니다.
* 따라서 최대한 정중하게 질문을 올려 주세요.
* 질문을 상세히 작성해 주실 수록 좋은 답변이 올라 옵니다.
* 다른 분들도 참고할 수 있도록 결과 댓글 필수(또는 감사 댓글)
(결과 댓글을 달지 않는 경우 다음 질문에 대한 답변이 달리지 않는 불이익이 있을 수 있습니다.)
-----------------------------------------------------------------------------------------------
안녕하세요
IdHTTP를 이용해서 파일 업로드를 하는 컴포넌트를 만드는데
업로드 하고나서 파일명을 보여줄때 자꾸 한글이 깨지네요...
혹시 이유나 해답을 아시는분 계시면 가르쳐주시면 감사하겠습니다!
procedure TForm1.Button1Click(Sender: TObject); //업로드
var
Url: string;
DataPath: string;
DataStream: TIdMultiPartFormDataStream;
ResStream: TMemoryStream;
begin
if not OpenDialog1.Execute then
Exit;
DataPath := OpenDialog1.FileName;
Url := 'http://www.cosjwn.co.kr/uesr/upload.php';
DataStream := TIdMultiPartFormDataStream.Create;
ResStream := TMemoryStream.Create;
try
// DataStream.AddFormField('user', '1234');
DataStream.AddFile('upfile', DataPath, '');
IdHTTP1.Post(Url, DataStream, ResStream);
ResStream.Position := 0;
Memo1.Lines.Add(IdGlobal.ReadStringFromStream(ResStream, -1, IndyTextEncoding_UTF8));
finally
FreeAndNil(DataStream);
FreeAndNil(ResStream);
end;
end;
