초보 델파이...백 wrote:

> 한글을 유니코드로 바꾸려면 어찌해야 되나요?

>

> 별 함수도 없는것 같고, 딱히 좋은 방법도 안 떠 오릅니다.

> 어디 좋은 방법없습니까??? ^^;

>

> 비슷한거라도 좋으니 꼭 좀 알려주세용....



제가 예전에 작업했던 소스인데 참조해 보세요 ...



// 한글 및 영문을 UniCode로 변환함

function EnCode_Unicode(UserName : String):String;

Var S : String;

i, UniCode : Integer;

CouFlg : Boolean;

SaveList : TStringList;

ReturnStr : String;

begin

S := UserName;

CouFlg := False;

SaveList := TStringList.Create;



for i := 1 to Length(S) do begin

if CouFlg then begin

CouFlg := False;

Continue;

end;



if IsDBCSLeadByte(Byte(s[i])) then begin

SaveList.Add('H' + s[i] + s[i+1]);

CouFlg := True;

end Else

SaveList.Add('E' + s[i]);



end;



ReturnStr := '';

for i := 0 to SaveList.Count - 1 do begin

if Copy(SaveList[i],1,1) = 'E' then begin // 영문일때

MultiByteToWideChar(CP_ACP, MB_PRECOMPOSED, PChar(Copy(SaveList[i],2,1)), 2, @UniCode, 1);

ReturnStr := ReturnStr + 'E' + IntToStr(UniCode);

end else begin // 한글일때

MultiByteToWideChar(CP_ACP, MB_PRECOMPOSED, PChar(Copy(SaveList[i],2,2)), 2, @UniCode, 1);

ReturnStr := ReturnStr + 'H' + IntToStr(UniCode);

end;

end;



SaveList.Free;

Result := ReturnStr;



end;



// Unicode를 한글 및 영문으로 변환함

function DeCode_Unicode(UserCode : String):String;

Var i, UniCode : Integer;

ChkData : String;

Desc : array[0..2] of Char;

SaveList : TStringList;

ReturnStr : String;

begin

ChkData := '';

SaveList := TStringList.Create;

for i := 1 to Length(UserCode) do begin

if (Copy(UserCode,i,1) = 'E') or (Copy(UserCode,i,1) = 'H') then begin

if ChkData <> '' then

SaveList.Add(ChkData);

ChkData := '';

Continue;

end;



ChkData := ChkData + Copy(UserCode,i,1);

end;



SaveList.Add(ChkData);



ReturnStr := '';

for i := 0 to SaveList.Count - 1 do begin

Desc := Char(0);

UniCode := StrToInt(SaveList[i]);

WideCharToMultiByte(CP_ACP, WC_COMPOSITECHECK, @UniCode, 1, @Desc, 2, nil, nil);

ReturnStr := ReturnStr + String(Desc);

end;

Result := ReturnStr;

SaveList.Free;

end;