Hex코드를 두자리씩 숫자형태로 변환하고 다시 문자로 변환하면 됩니다.



아래 간단한 예제를 참조하세요..





From 류..



---------



Function HTB(Var Ch:Char):Byte;

Begin

Ch:= UpCase(Ch);

If Ch in ['0'..'9'] then HTB:=Byte(Ch)-48

Else If Ch in ['A'..'F'] then HTB:=Byte(Ch)-55

Else HTB:=0; // 에러처리는 따로 하지 않았음

End;



Function HexToByte(Value:String):Byte;

Var

Loop, Mul, Size : Byte;

Begin

Result:= 0;

Size:= Length(Value);

If Size > 2 then Exit; // 에러처리는 따로 하지 않았음



Mul:= 1;

For Loop:= 1 to Size do

Begin

Result:= Result+HTB(Value[Size+1-Loop])*Mul;

Mul:= Mul Shl 4;

End;

End;



procedure TForm1.Button1Click(Sender: TObject);

begin

Caption:= Char(HexToByte('C2')) + Char(HexToByte('81'));

end;







델초보...^^; wrote:

> Text파일에 들어있는 Hex코드를 한글로 변환할 수 있나요??

>

> C2 81 A1 77 D3 81

> AC E1 20 AC E5 00

> AD A5 B8 F7 AC E5

> 8B B1 A3 A1 BA 81

> 8B B1 AE 81 B8 F7

> A2 85 D1 81 AE 82

> .

> .

> .

> 8B B1 BB A5 B5 77

>

> 이런씩으로 Hex값만 들어있거든요...이걸 한글로 변환할수 있나해서요...

>

> 혹시 변환할수 있다면 어떻게 변환해야 되는지 좀 가르쳐 주세요...

>

>