자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

본 게시판은 개발자들이 자유롭게 질문과 답변을 공유하는 게시판입니다.
* 따라서 최대한 정중하게 질문을 올려 주세요.
* 질문을 상세히 작성해 주실 수록 좋은 답변이 올라 옵니다.
* 다른 분들도 참고할 수 있도록 결과 댓글 필수(또는 감사 댓글)
(결과 댓글을 달지 않는 경우 다음 질문에 대한 답변이 달리지 않는 불이익이 있을 수 있습니다.)
-----------------------------------------------------------------------------------------------

안녕하십니까. 수고 많으십니다.

테스트 하면서 질문이 잘 못된거 같아서.. 삭제를 했다가.. 다시 정리해서 올립니다.

 

아래 소스를 Platforms를 Windows로 하고 실행을 하면

252

0

0

0

0

144

48

60

104

115

107

105

109

Size : 13

hskim

이렇게 나오는데 Platforms를 Android로 하고 실행을 하면

252

0

0

0

0

144

48

60

104

115

107

105

109

Size : 13

<hski

로 나옵니다. 교육받으면서 소켓으로 받을때 한자리 짤린다고 했던 부분이 이 현상 같습니다.

 

procedure TForm1.Button3Click(Sender: TObject);

var

    Str : RawByteString;

    Buf: TIdBytes;

    i : integer;

begin

    SetLength(Buf,13);

 

    Buf[0] := 252;

    Buf[1] := 0;

    Buf[2] := 0;

    Buf[3] := 0;

    Buf[4] := 0;

    Buf[5] := 144;

    Buf[6] := 48;

    Buf[7] := 60;

    Buf[8] := 104;

    Buf[9] := 115;

    Buf[10] := 107;

    Buf[11] := 105;

    Buf[12] := 109;

 

    SetLength(Str, Length(Buf));

    Move(Buf[0],Str[1],Length(Buf));

 

    Buf := nil;

    SetLength(Buf,13);

 

    Move(Str[1],Buf[0],Length(Buf));

 

    for i := Low(Buf) to High(Buf) do begin

        Memo1.Lines.Add(IntToStr(Buf[i]));

    end;

 

    Memo1.Lines.Add('Size : ' + IntToStr(Length(Str)));

    Delete(Str,1,8);

    Memo1.Lines.Add(Str);

end;

====================================

여러가지 형태로 TIdBytes를 RawByteString으로 바꾸는데..

결과는

252

0

48575

252

<hski

hskim

??0<hskim

<hski

형태로 나옵니다.

Str,Str4는 앞 4바이트 짤라서 숫자형으로 바꾸는건 맞는데 마지막 5바이트 문자는 잘못 나오고

Str2는 앞 4바이트 숫자형은 안바뀌는데 마지막 5바이트 문자는 잘 나옵니다.

 

procedure TForm1.Button2Click(Sender: TObject);

var

    Str : RawByteString;

    Str2 : RawByteString;

    Str3 : RawByteString;

    Str4 : RawByteString;

    Buf: TIdBytes;

    nSize : integer;

begin

    Setlength(Buf,13);

    Buf[0] := 252;

    Buf[1] := 0;

    Buf[2] := 0;

    Buf[3] := 0;

    Buf[4] := 0;

    Buf[5] := 144;

    Buf[6] := 48;

    Buf[7] := 60;

    Buf[8] := 104;

    Buf[9] := 115;

    Buf[10] := 107;

    Buf[11] := 105;

    Buf[12] := 109;

 

    SetLength(Str, Length(Buf));

    Move(Buf[0],Str[1],Length(Buf));

 

    Str2 := TEncoding.ASCII.GetString(Buf);

 

    Str3 := BytesToString(Buf);

 

    SetLength(Str4, Length(Buf));

    BytesToRaw(Buf, Str4[1], Length(Buf));

 

 

    Move(Str[1],nSize,4);

    Memo1.Lines.Add(IntToStr(nSize));

 

    Move(Str2[1],nSize,4);

    Memo1.Lines.Add(IntToStr(nSize));

 

    Move(Str3[1],nSize,4);

    Memo1.Lines.Add(IntToStr(nSize));

 

    Move(Str4[1],nSize,4);

    Memo1.Lines.Add(IntToStr(nSize));

 

    Delete(Str,1,8);

    Delete(Str2,1,8);

    Delete(Str3,1,8);

    Delete(Str4,1,8);

 

    Memo1.Lines.Add(Str);

    Memo1.Lines.Add(Str2);

    Memo1.Lines.Add(Str3);

    Memo1.Lines.Add(Str4);

end;

번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 20046
공지 유용한 관련 사이트 관리자2 2014.03.20 58957
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 102574
2719 Delphi Rio 10.3.3 AAB 로컬서비스 실행시 문제점 해결 방법문의 [3] silkroad99 2019.12.23 371
2718 delphi 10.2.3 도쿄 다국어 관련 질문입니다. [10] file 신우 2018.05.28 494
2717 rio 10.3.3버전에서 다국어 작성중입니다. 봐주세요. [1] 델파이_사랑 2019.12.27 219
2716 indy udp 서버로 수신한 데이터에 대한 응답을 udp로 보내는 echo 서버를 만들었는데 [2] 금목암 2019.11.15 901
2715 64 bit Platform 추가 설치 가능한가요?? [1] jsssssslee 2019.12.24 307
2714 Statusbar 의 Bevel 이 먹히지 않습니다. 오랜동안 2019.12.25 183
2713 EMS 서버를 운영서버로 전환하는 중 에러 [1] 봉프 2019.12.23 376
2712 MDI폼에서 팝업창 표시..? [2] 헨씀히포 2019.12.22 316
2711 Tvalue의 데이터 관련 문의 건 [3] 한태수 2019.12.23 180
2710 모바일에서 datasnap을 이용해 데이터를 가져올때 [2] 종결자 2019.12.16 198
2709 bitmap 용량 줄여서 blob에 저장하기 [3] 종결자 2019.12.15 422
2708 tcxgrid Custom Filter 사용시 체크 [1] 가나다 2019.12.12 511
2707 Firemonkey Stringgrid 표현 [1] 넓다란세상 2019.12.15 268
2706 안드로이드 이미지 공유시 문제 [1] 델마당쇠 2019.12.16 294
2705 firedac으로 mssql 연결 쿼리시 속도가 너무 느림 [1] 빅비스 2019.12.19 554
2704 sqlconnection 사용법을 알고 싶습니다. [1] 덩어리2 2019.12.14 214
2703 Rio 10.3 에서 FireDAC Interbase 접속문제 [2] file 이치고 2019.12.18 300
» 파이어몽키 소켓통신 - 질문수정 [2] hs 2019.12.17 344
2701 델파이 64비트에서 android:debuggable 옵션을 false 로 하는 방법 좀 가르쳐주세요. [1] 델파이_사랑 2019.12.16 244
2700 비콘 pky4437 2019.12.16 128