도움이 될지는 모르겠으나... 일단은 이렇게 하면 되지 않을까 합니다.

(99.9% 이론상으로.... -.-;;)



function htonf(x: single): single;

var

r: single;

s1, s2: PChar;

begin

s1 := PChar(@x);

s2 := PChar(@r);



s2[0] := s1[3];

s2[1] := s1[2];

s2[2] := s1[1];

s2[3] := s1[0];



Result := r;

end;





Lyle 께서 말씀하시기를...

> float htonf (float x)

> {

> float r;

> char *s1 = (char *) &x;

> char *s2 = (char *) &r;

>

> s2[0] = s1[3];

> s2[1] = s1[2];

> s2[2] = s1[1];

> s2[3] = s1[0];

>

> return r;

> }

>

> 이를 파스칼로 바꾸려고 합니다. 일단 포인터를 배열처럼 유연하게

> 사용할 수가 없어서 아래와 같이 해보았습니다.

>

> function TForm1.htonf(x : single):single;

> var

> r : single;

> tmp : string;

> s1,s2 : PChar;

> begin

> tmp := FloattoStr(x);

>

> s1 := NIL;

> s2 := AllocMem(4*Sizeof(PChar));

> s1 := PChar(tmp);

>

> (s2 + 0*Sizeof(Char))^ := (s1 + 3*Sizeof(Char))^;

> (s2 + 1*Sizeof(Char))^ := (s1 + 2*Sizeof(Char))^;

> (s2 + 2*Sizeof(Char))^ := (s1 + 1*Sizeof(Char))^;

> (s2 + 3*Sizeof(Char))^ := (s1 + 0*Sizeof(Char))^;

>

> r := StrtoFloat(s2);

> Result := r;

> FreeMem(s2);

> end;

>

> 그런데 문제는 tmp := FloattoStr(x); 에서 4byte 의 float type을 잃어버린다는

> 것이죠. 예를 들어서 1234를 x 파라미터 값으로 넘겼을 때 r 이 4321 이 되지만

> 123 을 주었을 때는 '0123'의 byte ordering을 바꾸는 것이 아니라

> FloattoStr('0123'), 즉 '123'을 바꾸어서 s1 은 3byte, s2는 4byte가 되어

> 에러가 나게됩니다. 최대한 C 에서 만든 함수처럼 간단하게 하고싶은데

> 어떻게 할 방법이 없을까요?

>

안치봉 께서 말씀하시기를...

> 도움이 될지는 모르겠으나... 일단은 이렇게 하면 되지 않을까 합니다.

> (99.9% 이론상으로.... -.-;;)

>

> function htonf(x: single): single;

> var

> r: single;

> s1, s2: PChar;

> begin

> s1 := PChar(@x);

> s2 := PChar(@r);

>

> s2[0] := s1[3];

> s2[1] := s1[2];

> s2[2] := s1[1];

> s2[3] := s1[0];

>

> Result := r;

> end;

>

답변 주셔서 너무너무 고맙습니다. 지금 제가 아는 한계에 부디쳐서 여기저기에 글을 올려놓고 누군가 해결책을 제시해주길 기다리면서 밤샘을 하는 중이에요. 미련하지만 급해서 어쩔 수가 없군요.

그런데 주신 답은 ... 안되는걸요? 쩝, 하지만 뭔가 흰트가 될 것같아 심심한 밤중에 이거저거 해보긴 하겠습니다. 부디 좋은 답변들 올려주십시오. 아멘. T_T

궁극적으로 무엇을 구현할려고 하시려는지 잘은 모르겠으나....-.-;;



간단히 숫자의 위치를 바꾼다고 숫자가 완벽하게 역순위로 되지는 않을것 같습니다.(하지만 그 값을 문자열 값으로 변환하여 사용한다면 되겠죠)



예를 들어 십육진수로...



F001 을 그 방식대로 뒤집으면 01F0 이 됩니다.(바이트단위로 위치를 바꾸므로...)



그러면 이 16진수를 십진수로 봅시다.



F001 => 61441

01F0 => 496



(얼핏 보면 숫자 61441 을 뒤집으면 14416이 나올것 같지만 아닙니다)



보듯이 10진수로 값을 보면 확현한 차이가 있습니다. 더구나 float형이면 ...



글쎄요 ... 단지 바이트의 위치를 바꾼다는 것이 숫자를 거꾸로 뒤집는것을 가능하게 하지는 않습니다. 단 예외는 모두같은 수일때는 가능할겁니다.



예를 들어 FFFF나 이렇게 각단위의 숫자가 모두같은 숫자요...



어떤 변수의 값이 1234 라고 해서 그값 그대로 변수에 1234가 들어가는 것이 아닙니다. 십진수로 1234라면 실제로 기계어(?)로 보자면 그 값에는 04D2 가 들어가 있습니다.



Lyle 께서 말씀하시기를...

> 안치봉 께서 말씀하시기를...

> > 도움이 될지는 모르겠으나... 일단은 이렇게 하면 되지 않을까 합니다.

> > (99.9% 이론상으로.... -.-;;)

> >

> > function htonf(x: single): single;

> > var

> > r: single;

> > s1, s2: PChar;

> > begin

> > s1 := PChar(@x);

> > s2 := PChar(@r);

> >

> > s2[0] := s1[3];

> > s2[1] := s1[2];

> > s2[2] := s1[1];

> > s2[3] := s1[0];

> >

> > Result := r;

> > end;

> >

> 답변 주셔서 너무너무 고맙습니다. 지금 제가 아는 한계에 부디쳐서 여기저기에 글을 올려놓고 누군가 해결책을 제시해주길 기다리면서 밤샘을 하는 중이에요. 미련하지만 급해서 어쩔 수가 없군요.

> 그런데 주신 답은 ... 안되는걸요? 쩝, 하지만 뭔가 흰트가 될 것같아 심심한 밤중에 이거저거 해보긴 하겠습니다. 부디 좋은 답변들 올려주십시오. 아멘. T_T

>