자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 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 sqlconnection 문제 [1] bursil 2017.11.02 168
533 안드로이드 개발시 IDE 에러 확인 좀 부탁 드립니다. max 2020.08.24 168
532 TWebbrowser가 모든 컴포넌트 위로 뜨는 현상 [1] 스머프 2019.08.30 170
531 구글 플레이스토어에 델파이 10.3.3 으로 만든 앱 배포 등록시 오류 밤바야 2020.12.28 172
530 10.2.1 릴리즈 설치후 Xe8 에서 개발된 앱 컴파일 [2] 희망나라 2017.08.11 173
529 TMemo 버그 문의 Celsius 2015.07.09 174
528 iOS 에서 Bluetooth Low Energy 검색이 안되는데, 저만의 문제인가요? [1] 지병철 2018.05.11 174
527 삼성폰에서 TEdit 엔터키를 입력하면 앱이 죽어 버립니다. 파이어버드 2018.05.31 174
526 java2op 로 변환후에... 오류 광수생각 2019.05.02 175
525 안드로이드 디바이스 인식하지 못하고 있어요. [1] file 연금술사 2020.06.19 177
524 안드로이드에서 Free 가 안되는 이유가 왜인가요? [1] 거북이 2015.12.05 179
523 pc 에서 android 로 파일전송 질문 [2] 루피 2018.07.26 180
522 이미 존재하는 데이터 타입이나 클래스에 Helper가 존재하는지 체크방법 [3] 100jk 2018.10.05 180
521 TLocationSensor에는 안드로이드(자바)처럼 세부 설정이 없나요? [1] file 소란코더 2017.11.20 181
520 delphi xe10 firemonkey로 개발한 앱 rooting 폰 및 중국폰 에서 사용 가능 유무 당신이먼저 2017.05.19 183
519 안드로이드 BLE 자동 접속 문제 조대현 2019.03.31 184
518 [XE8] 컴포넌트 동적생성이 오동작합니다. [1] 가을이다 2015.10.30 184
517 10.2.3 질문입니다. [1] 희망나라 2018.08.14 187
516 델파이 시애틀로 ios 10버전의 기기 컴파일시 가능여부 [2] 김태윤 2017.06.12 188
515 10.3.2 버전 설치후 Mac 64비트 [1] 100jk 2019.07.25 190