자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 

• 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

• 전체
• Delphi
• C++ Builder
• RadPHP
• Firemonkey
• Interbase
• 도서

Firemonkey 파이어몽키 소켓통신 - 질문수정

2019.12.17 09:42

hs 조회 수:308

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

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

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

 

아래 소스를 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;

이 게시물을

• Twitter
• Me2day
• Facebook
• Delicious

목록

댓글 2

• hs

  2019.12.19 13:11

  이게 맞는건지 모르겠지만. 안드로이드에서는 String 배열이 0부터 시작을 해야 하네요.

  그런데 이상한게.. 1부터 해도

      Memo1.Lines.Add(Str[9]);

  이렇게 하나하나 찍어보면 맞게 나오는데

  Copy 또는 Delete할때 문제가 발생합니다.

   

  procedure TForm1.Button6Click(Sender: TObject);

  var

      Str : RawByteString;

      TempStr : string;

      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[0], Length(Str));

   

      Buf := nil;

      SetLength(Buf,13);

   

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

   

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

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

      end;

      Memo1.Lines.Add('=====================');

   

      for i := 0 to Length(Str)-1 do begin

          Memo1.Lines.Add(IntToStr(Ord(Str[i])));

      end;

      Memo1.Lines.Add('=====================');

      Memo1.Lines.Add(Str[8]);

      Memo1.Lines.Add(Str[9]);

      Memo1.Lines.Add(Str[10]);

      Memo1.Lines.Add(Str[11]);

      Memo1.Lines.Add(Str[12]);

      Memo1.Lines.Add('=====================');

      Memo1.Lines.Add(Copy(Str,9,5));

      Memo1.Lines.Add('=====================');

   

      Delete(Str,1,8);

      Memo1.Lines.Add(Str);

  end;

  댓글

• 

  험프리

  2019.12.23 09:48

  조치결과를 남겨주셔서 감사합니다.

   

  작성해 주신 내용 참고해 확인해 보니 안드로이드 플랫폼의 경우 0기반 문자열을 사용하는 것을 다시 확인했습니다.

  http://docwiki.embarcadero.com/RADStudio/Rio/en/Migrating_Delphi_Code_to_Mobile_from_Desktop#Use_0-Based_Strings

   

  iOS와 안드로이드 즉 모바일 컴파일러(DCCISOARM, DCCIOS32, DCCAARM)는 0기반 문자열을

  윈도우와 OSX 즉 데스크탑 컴파일러(DCC32, DCC64, DCCOSX)는 1기반 문자열을 사용합니다.

   

  만약 모바일과 데스크탑 컴파일러 모두 같은 기반 문자열을 사용하려면 {$ZEROBASEDSTRINGS ON/OFF} 지시어를 이용하시기 바랍니다.

  http://docwiki.embarcadero.com/RADStudio/Rio/en/Zero-based_strings_(Delphi)

   

  다음 링크의 예제를 참고하시기 바랍니다.

  https://wiert.me/2015/01/14/delphi-zerobasedstrings-and-maintaining-cross-version-delphi-libraries/

  ——————

  제안한 해결책으로 진행하신 결과가 성공이든 실패이든, 그 결과가 적힌 Q&A는 다른 사용자들의 시간을 크게 절약해줄 수 있습니다.

  댓글

목록

번호	제목	글쓴이	날짜	조회 수
공지	[프로그래밍 강의] 2021.6~2021.12	관리자	2015.01.22	17266
공지	유용한 관련 사이트	관리자2	2014.03.20	56161
공지	본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다.	관리자	2012.01.10	99583
459	모바일 디바이스에서 실행 시 검은화면에서 멈춰버립니다. 오류를 어떻게 확인하나요?	Humphery	2015.05.27	2233
458	개발연동하는데 C# DLL로 되어있는데 이걸 참고해서 델파이로 로딩하는게 가능한가요? [1]	다윗처럼	2016.08.08	2248
457	안드로이드 스트링드리드를 엑셀파일로 저장? [1]	memc	2014.09.28	2255
456	소스코드에서 도움말키(F1 Key) 에러 [1]	침묵	2014.08.01	2256
455	개발자님 바코드 관련 스캔 문의 [1]	초보델파이	2014.10.18	2257
454	iOS 호환성 문제 해결방안	봉가이버	2017.02.06	2278
453	모바일 개발용 맥북 추천부탁드려요 [1]	LGS	2014.11.16	2279
452	Firemonkey Desktop Application 작성 시, 프로젝트 옵션에서 Appearance 기능이 없나요? [1]	godkdi	2014.05.16	2286
451	[XE6] 작업중 상태 보여주기.. [1]	가을이다	2014.07.29	2287
450	[PreCompile] 빌드 속도를 빨리 하기 위해서 포럼의 내용처럼 했는데.. Cache 사이즈가 너무 크네요..	정호근	2014.07.11	2291
449	윈도우10에서 델파이7 프로젝트의 구동 가능 여부를 알고 싶습니다. [1]	차니찬	2016.05.19	2311
448	응용프로그램 화면크기가 해상도에 따라 반영하고 싶습니다.	험프리	2018.01.04	2322
447	delphi 7.0 에서 xe6로 넘어가려고 하는데 컴포넌트 인스톨 오류 나네요. [1]	하우리	2014.05.16	2325
446	Android 에서 미디어(동영상) 플레이하는 방법 (XE5) - 추가 질문	superman	2014.10.07	2327
445	XE6 TMemo 키보드 이벤트 문제	가을이다	2014.07.03	2328
444	64비트 플랫폼으로 개발 중입니다. [2]	ip7203	2019.05.27	2328
443	IntraWeb DBX Error 현상	어휴힘들어	2014.05.29	2344
442	안드로이드에서 백그라운드 푸쉬 해결방법. [4]	나즈나	2017.06.19	2346
441	블루투스 통신 방법 [4]	권혁상	2016.02.17	2346
440	[XE6] Baas 를 이용한 Push 알림창이 사라지지 않습니다. [2]	가을이다	2014.08.22	2354

첫 페이지 137 138 139 140 141 142 143 144 145 146 끝 페이지

쓰기

검색

제목+내용제목내용댓글이름닉네임태그 검색

태그