안녕하십니까?..
sobi_shin이라 합니다.
저번에 질문한것이 하도 엉성해서 죄송합니다.
제차 질문드립니다.
많은 협조바랍니다.
Web상에서 구현하는 CS프로그램입니다.
ActiveXform을 이용했습니다.
한 Web폼에서 코드와 명칭을 설정하면, 그것에 해당되는 정보를 DB로부터 정보를 가져와 표시하는 것입니다.
이 폼에서 빠져나갔다가. 다시 이폼으로 들어가면, 조금전에 표시한 코드와 명칭을 쿡키에 셋트를 해두었다가
제차 불러들여(코드와 명칭) 제표시하는 부분에서 장애가 발생하고 있습니다.
하기는 쿡키에 코드와 명칭을 셋팅하는 소스입니다.
--------------------------------------------------
:
:
CookieFuncStr := 'SetCookie('''', '''', '''', '''', '''', '''', '''', '''', '''', '''', ''' + edPROCOD.Text + ''', ''' + edPRONAM.Text + ''' )';
if ScriptFlag and (Html <> nil) then Html.ExecScript( CookieFuncStr , '' );
:
:
--------------------------------------------------
다시 셋팅하는 부분은 하기와 같습니다.
--------------------------------------------------
procedure TUCAAA001.Set_GlSujuName(const GlSujuName: WideString);
begin
if GlSujuName <> '' then
edPRONAM.Text := GlSujuName;
end;
--------------------------------------------------
장애가 발생하는곳은 다시 셋팅하는곳에서 문자가 깨져버립니다.
운영은 Windows2003Server 일본어버젼이구요...
다른 OS에서는 발생하지 않으나, 유독 이OS에 이곳만이 글자가 깨져버립니다.
'File#1'은 정상적인 표시입니다.
'File#2'은 문자가 깨져표시되는 현상입니다.
많으신 도움바랍니다....
오늘도 좋으신 하루가 되시길 기원합니다.
추신 : 잘 못된 질문이나, 누락 된것등이 있으면 지적바랍니다.
CookieFuncStr := 'SetCookie('''', '''', '''', '''', '''', '''', '''', '''', '''', '''', ''' + UrlEncode(edPROCOD.Text) + ''', ''' + UrlEncode(edPRONAM.Text) + ''' )';
procedure TUCAAA001.Set_GlSujuName(const GlSujuName: WideString);
begin
if GlSujuName <> '' then
edPRONAM.Text := UrlDecode(GlSujuName);
end;
URLEncode와 URLDecode관련 코드는 검색해보시면 아실 수 있습니다.
원천적으로 보면 유니코드 문제인것 같습니다. 혹시 설치된 일본어 2003 서버가 트윅되어 유니코드에 필요한 모듈들이 설치가 안되어있거나 한건 아닌지 모르겠네요.. 일단 위처럼 URLEncode와 URLDecode를 이용하면 아마 아무 문제 없을것입니다. ^^