Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 Q&A
Delphi Programming Q&A
[12982] Re:델파이7에서 WideString변수에 UTF8로 인코딩된 한글문자를 담을려고 하는데...
박태성 [] 5577 읽음    2009-11-28 14:02
델파이가 생성해준 인터페이스내 함수에
RIO.HTTPWebNode.UseUTF8InHeader := True;
를 추가해주니 별다른 변환없이 제대로 메세지가 전달되는군요

ServiceSMSSoap = interface(IInvokable)
...
...
function GetServiceSMSSoap(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): ServiceSMSSoap;
const
  defWSDL = 'http://webservice.youiwe.co.kr/SMS.v.5/ServiceSMS.asmx?WSDL';
  defURL  = 'http://webservice.youiwe.co.kr/SMS.v.5/ServiceSMS.asmx';
  defSvc  = 'ServiceSMS';
  defPrt  = 'ServiceSMSSoap';
var
  RIO: THTTPRIO;
begin
  Result := nil;
  if (Addr = '') then
  begin
    if UseWSDL then
      Addr := defWSDL
    else
      Addr := defURL;
  end;
  if HTTPRIO = nil then begin
    RIO := THTTPRIO.Create(nil);
    RIO.HTTPWebNode.UseUTF8InHeader := True;
  end
  else
    RIO := HTTPRIO;
  try
    Result := (RIO as ServiceSMSSoap);
    if UseWSDL then
    begin
      RIO.WSDLLocation := Addr;
      RIO.Service := defSvc;
      RIO.Port := defPrt;

    end else
      RIO.URL := Addr;
  finally
    if (Result = nil) and (HTTPRIO = nil) then
      RIO.Free;
  end;
end;

+ -

관련 글 리스트
12979 델파이7에서 WideString변수에 UTF8로 인코딩된 한글문자를 담을려고 하는데... 박태성 8679 2009/11/27
12982     Re:델파이7에서 WideString변수에 UTF8로 인코딩된 한글문자를 담을려고 하는데... 박태성 5577 2009/11/28
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.