안녕하세여.. 타락임다. ^^



procedure TForm1.BitBtn1Click(Sender: TObject);

var

szBuf : array [0..256] of char;

strTemp, strOut : string;

i : integer;

begin

//

strTemp := '우리나라 좋은나라';

// string 을 버퍼에 넣는다.

StrPCopy(szBuf, strTemp);

// 버퍼 안에는 이진수가 들어있다.

// 핸들링할때 이진수, 헥사, 문자로 불러쓴다.

for i := 0 to StrLen(szBuf) - 1 do

strOut := strOut + ' ' + IntToHex(byte(szBuf[i]), 0);

// 파일로 저장하거나 다른 Dll로 보낼땐 @szBuf 를 보낸다.



ShowMessage(strOut);

end;



흠.. 질문을 다시보니까 문제가 몬지 알겠군여.. 흠흠...



송인섭님이 기초가 좀 약하신거 같군여..



컴퓨터는 스트링과 정수를 같게 봅니다.



스트링으로 읽고 쓰면, 문자를 출력하고, integer로 읽고 쓰면, 정수를 보입니다.



가령, 스트링을 문자값으로 저장해도 핵사값으로 변환해서 저장해도 에디트해보면



이진수 값은 같습니다. 그러니까 문제는 스트링을 헥사값으로 변환하지 말고



배열에 넣어서 화일로 저장하세여.. 그리고 문자를 원하면 스트링으로 읽고



숫자를 원하면 byte()로 읽으세여..



왕초보 타락천사.. ^^



송인섭 wrote:

> 스트링값을 헥사코드로 변환하여 화일로 만든 후 전자수첩으로 데이터를 엑세스 할려고 합니다.

> 그런데 도대체가 어떻게 해야할지 모르겠어요.

> 일단 임시 파일로 만들어서 dll을 이용하여 데이터를 넣어야하는데 잘 안됩니다.

> uedit에서 임시 파일을 보면

> 0000000000h: 01 03 03 40 30 40 ;.d......송

> 0000000001h: 01 03 03 40 30 40 ;.d.....,019-215

> 0000000002h: 01 03 03 40 30 40 ;.d......송

> 0000000003h: 01 03 03 40 30 40 ;.d......송

> 0000000004h: 01 03 03 40 30 40 ;.d......송

> 이런 식으로 보입니다.

> 어떻게 이런식으로 만들수 있을 까요...

> 고수님들의 가르침을 원하고 있습니다.

> 벌써 2주째 이러고 있군요....제발 갈쳐 주세요...플리즈