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

본 게시판은 개발자들이 자유롭게 질문과 답변을 공유하는 게시판입니다.
* 따라서 최대한 정중하게 질문을 올려 주세요.
* 질문을 상세히 작성해 주실 수록 좋은 답변이 올라 옵니다.
* 바쁜 와중에도 답변을 주시는 분들께 감사 댓글 필수
-----------------------------------------------------------------------------------------------

 

델파이코드 송신

procedure TfrmSense.SendData(Cmd: Integer; Temp: Integer);

 Var TR : Array[0..6] of Byte ;

 strAnsiName : AnsiString;

 strName : String;

begin

    TR[0] := 1;                                                               // T_Pk[0] : SOH

    TR[1] := StrToInt(EditID.Text);                                        // T_Pk[1] : 레벨 번호

    TR[2] := Cmd;                                                           // T_Pk[2] : 오일, 물, 온도

    TR[3] := Temp;                                                          // T_Pk[3] : 온도 Flag

    TR[4] := 0;                                                               // T_Pk[4]

    TR[5] := 4;                                                               // T_Pk[5] : EOT

    TR[6] := TR[1] xor TR[2] xor TR[3] xor TR[4] xor TR[5];

    ComPort1.Write(TR, 7);

end;

 
델파이 수신
procedure TfrmSense.ComPort1RxChar(Sender: TObject; Count: Integer);
var
    TempData : String;
    ChkSum : Variant;
begin
    Timer2.Enabled := False;
 
    if ComPort1.InputCount = 7 then
    begin
        ComPort1.Read(R_PK, 7);
        ComPort1.ClearBuffer(True, False);                                      // Input 버퍼 clear - True
        TempData := FormatFloat('00',Byte(R_PK[0])) +
                    FormatFloat('00',Byte(R_PK[1])) +
                    FormatFloat('00',Byte(R_PK[2])) +
                    FormatFloat('00',Byte(R_PK[3])) +
                    FormatFloat('00',Byte(R_PK[4])) +
                    FormatFloat('00',Byte(R_PK[5])) +
                    FormatFloat('00',Byte(R_PK[6]));
        ChkSum := (Byte(R_PK[4]) * 256) + Byte(R_PK[3]);
 
      end;
    Timer1.Enabled := True;
end;
델파이 에서는 정상으로 송수신이 정상 입니다.
 
 
function ToByteArray(JavaArray: TJavaArray<Byte>): TArray<Byte>;
begin
  SetLength(Result, JavaArray.Length);
  Move(JavaArray.Data^, Result[0], Length(Result));
end;
 
function ToJavaByteArray(ByteArray: TArray<Byte>): TJavaArray<Byte>;
begin
  Result := TJavaArray<Byte>.Create(Length(ByteArray));
  Move(ByteArray[0], Result.Data^, Length(ByteArray));
end;
 
 
안드로이드 송신부
procedure TFormMain.ButtonWriteClick(Sender: TObject);
var
  WD: TJavaArray<Byte>;
  WriteLength: Integer;
  T_Pk :TArray<byte>;
begin
    Memo.Lines.Clear;
 (*
   SetLength(T_Pk , 7);
    T_Pk[0] := 1;                                                               // T_Pk[0] : SOH
    T_Pk[1] := 1 ; //StrToInt(EditID.Text);                                           // T_Pk[1] : 레벨 번호
    T_Pk[2] := 0;                                                             // T_Pk[2] : 오일, 물, 온도
    T_Pk[3] := 0;                                                            // T_Pk[3] : 온도 Flag
    T_Pk[4] := 0;                                                               // T_Pk[4]
    T_Pk[5] := 4;                                                               // T_Pk[5] : EOT
    T_Pk[6] := T_Pk[1] xor T_Pk[2] xor T_Pk[3] xor T_Pk[4] xor T_Pk[5];
*)
    WD := TJavaArray<Byte>.Create(7);
    WD.Items[0] :=  1;
    WD.Items[1] :=  1;
    WD.Items[2] :=  0;
    WD.Items[3] :=  0;
    WD.Items[4] :=  0;
    WD.Items[5] :=  4;
    WD.Items[6] :=  WD.Items[1] XOR WD.Items[2] XOR WD.Items[3] XOR WD.Items[4] XOR WD.Items[5] ;
 
 // WriteData := ToJavaByteArray(TEncoding.UTF8.GetBytes('110004') );
 
  WriteLength := Device.write(WD); //ToJavaByteArray(T_Pk)
  Memo.Lines.Add('Write ' + IntToStr(WD.Items[0])+IntToStr(WD.Items[1])
                          + IntToStr(WD.Items[2])+IntToStr(WD.Items[3])
                          + IntToStr(WD.Items[4])+IntToStr(WD.Items[5])
                          + IntToStr(WD.Items[6])+' '+IntToStr(WriteLength));
 
  Memo.Lines.Add('Write ' + IntToStr(T_Pk[0])+IntToStr(T_Pk[1])
                          + IntToStr(T_Pk[2])+IntToStr(T_Pk[3])
                          + IntToStr(T_Pk[4])+IntToStr(T_Pk[5])
                          + IntToStr(T_Pk[6])+' '+IntToStr(WriteLength));
 
  WD.DisposeOf;
  Sleep(500);
  ButtonReadClick(Sender);
//  Memo.Lines.Add('Write length: ' + IntToStr(WriteLength) );
end;  
 
//안드로이드  수신부
procedure TFormMain.ButtonReadClick(Sender: TObject);
var
  ReadData: TJavaArray<Byte>;
  ReadLength,
  ReadAvailable: Integer;
  ResByte:TArray<byte>;
 
begin
  ReadAvailable := Device.getQueueStatus;
  Memo.Lines.Add('Read available: ' + IntToStr(ReadAvailable));
  if ReadAvailable > 0 then
  begin
    SetLength( ResByte ,7);
    ReadData := TJavaArray<Byte>.Create(ReadAvailable);
    ReadLength := Device.read(ReadData);
 
    ResByte := ToByteArray(ReadData);
    Memo.Lines.Add('Read length: ' + IntToStr(ReadLength));
//    Memo.Lines.Add('Read data: ' + TEncoding.UTF8.GetString(ToByteArray(ReadData)));
 
    Memo.Lines.Add('Read data: ' +IntToStr(ResByte[0])+IntToStr(ResByte[1])
                          + IntToStr(ResByte[2])+IntToStr(ResByte[3])
                          + IntToStr(ResByte[4])+IntToStr(ResByte[5])
                          + IntToStr(ResByte[6]));
 
 
  end;
end;
 
적용을 어떻게 해야 되는 지 잘 모르겠습니다. 부탁 드립니다.
번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 15634
공지 유용한 관련 사이트 관리자2 2014.03.20 54464
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 97828
534 DataSnap Unit 들 [2] file 델파인 2019.02.19 153
533 IOS 배포버전 컴파일시 오류 문의 입니다. vastia 2019.01.24 166
532 TMemo 및 다른 컴포넌트의 STyle지정 100jk 2019.01.23 128
531 안녕하세요 splash 화면에 대해서 질문드려요 [2] file vast 2019.01.17 249
530 RIO 에서 TWebbrowser 문제해결 차선책 [1] 지병철 2019.01.10 247
529 도쿄에서의 문제 RIO에서 해결된 부분과 아닌부분(앱제작 시) [4] 지병철 2018.12.14 532
528 mousedown 에서의 shift상태 [1] 100jk 2018.12.27 156
527 Xe10으로 앱개발 배포할때 델파이가 지원하는 안드로이드 , ios 버전 문제? [2] 미스터리 2018.12.26 258
526 파이어몽키(FMX) 안드로이드 6.0 이후 버전 Mac Address 가져오기? [1] 우드너 2018.12.10 335
525 RIO 에서의 문제 [4] 지병철 2018.12.04 515
524 Android IOS 동영상 촬영... 하얀까마귀 2018.11.30 134
523 안드로이드애서 글자 주변에 테두리(라인?) 이 생깁니다. [3] file nervsystem 2018.11.13 531
522 모바일 터치 이벤트 관련 문의 박수영 2018.11.13 109
521 앱삭제시 데이타베이스도 삭제되나요.? [2] 희망나라 2018.11.06 448
520 listview Data 뿌려주거나 클릭 시 EvalError 발생. [4] file 엔달 2018.09.27 326
519 Motion Sensor 사용 [1] 오사씨 2018.10.30 132
518 터치 이벤트를 임의로 발생시키는 방법 100jk 2018.10.29 302
517 만보기 구현 오사씨 2018.10.27 470
516 폼을 가로로 고정하는법 [2] 100jk 2018.10.15 224
515 앱에서 글자가 위아래 잘려 보이는 현상 해결 방안 문의 [8] file 지병철 2018.10.05 1089