자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

Delphi IdHTTP 이용시 한글 깨짐현상

2018.05.01 11:16

브로아 조회 수:1043

본 게시판은 개발자들이 자유롭게 질문과 답변을 공유하는 게시판입니다.
* 따라서 최대한 정중하게 질문을 올려 주세요.
* 질문을 상세히 작성해 주실 수록 좋은 답변이 올라 옵니다.
* 다른 분들도 참고할 수 있도록 결과 댓글 필수(또는 감사 댓글)
(결과 댓글을 달지 않는 경우 다음 질문에 대한 답변이 달리지 않는 불이익이 있을 수 있습니다.)
-----------------------------------------------------------------------------------------------

 

안녕하세요

 

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;

 

1.png

 

번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 17076
공지 유용한 관련 사이트 관리자2 2014.03.20 55916
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 99352
1333 Delphi XE8 Loadlibrary를 이용한 VC++ dll 사용에 대한 문의드립니다. [1] file mir 2015.12.24 201315
1332 delphi10 dll 호출시 오류 [1] secret 홍홍홍 2015.12.27 4
1331 [마이그레이션] Panel의 Color 속성이 적용되지 않습니다. file 험프리 2015.12.28 663
1330 listbox의 multiselect 속성 접근 [2] 라드 2015.12.28 406
1329 not enough space 어떻게해결하나요 [2] 봉봉봉 2015.12.30 694
1328 델파이버전업 하면서 이 버그는 고쳐졌을줄 알았는데..... [4] 아놀드 2016.01.04 411
1327 DataSnap Server에 메모리 릭이 발생합니다. [5] 델사냥 2016.01.04 419
1326 IBLite 연결이 잘 안되네요~ [6] file 아놀드 2016.01.07 276
1325 delphi 10에서 사물인터넷관련 개발 [1] 영감땡감 2016.01.07 288
1324 바코드로부터 입력과 키보드 입력을 어떻게 구분하나요? [1] from5 2016.01.09 1409
1323 IBLite 연결 질문~ [2] file 아놀드 2016.01.11 355
1322 XE10 에서 TOOL 파렛트에 openwire studio 컴포넌트를 사용할려면 어찌해야 하죠 [1] 손오공 2016.01.12 110
1321 Installer for OpenWire (368 MB): OpenWire 7.7.0.0 VCL and FireMonkey 32 & 64 bit support for XE7 to 10 Seattle 을 다운로드해서 설치하였으나 컴포넨트가 보이지 않아요 예를 들어 TOOL 파렛트에 OPENWIRESTUDIO 컴포넌트가 보이던데 (유투브동영상 참조) 전화좀 기다립니다 [1] 손오공 2016.01.12 153
1320 windows 7 , delphi xe5 에서의 LoadLibrary 가 실행되지 않습니다. [1] 쭈니쿤 2016.01.12 741
1319 Edit options font관련건 [1] file 김하나 2016.01.12 121
1318 드래그시 커서,키보드 노출 및 오브젝트 동작에대해서 문의합니다 file 봉봉봉 2016.01.12 162
1317 XE2 -> XE10 으로 컴파일만 다시했는데...오류가 납니다. 파란하늘 2016.01.13 102
1316 (Delphi 10) UPX 압축 문제 [1] 김재욱 2016.01.14 389
1315 Exception EFilerError in module rtl190.bpl at 000FF30F 에러가 납니다. 쭈니쿤 2016.01.15 366
1314 바코드 리더기로부터 오는 값을 입력받지 않게 하는 방법 문의요 [1] from5 2016.01.15 301