새로운 글
새로운 덧글

Q&A 게시판은 누구나 자유롭게 질의 및 응답을 할 수 있는 게시판이며 
어느 누구도 답변을 달아야만 하는 의무는 없습니다. 
만약 제품 구매 고객께서 제품설치, 등록, 제품 오류 등의 문의사항이 있으신 경우,  
좌측 메뉴에서 설치/등록/버그 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;
 
적용을 어떻게 해야 되는 지 잘 모르겠습니다. 부탁 드립니다.
번호 제목 글쓴이 날짜 조회 수
공지 데브기어 강의 - 2017년 12월~2018년 3월 관리자 2015.01.22 5251
공지 유용한 관련 사이트 관리자2 2014.03.20 42831
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 84819
2060 iOS 인증서 관련문의입니다. [2] silkroad99 2017.10.16 57
2059 Android 앱 실행 시 자동 업데이트 방법 [1] 로로봉 2017.10.12 146
» 시리얼통신 델파이 -> 안드로이드 시리널통신 도와주세요 [2] 텔로스김 2017.09.22 90
2057 FMX에서 이미지위에 이미지 삽입하는 방법. [1] Vincent 2017.10.11 61
2056 delphi XE7 - oracle 11g 연동이 안됩니다.. [1] file 유죵 2017.09.29 88
2055 Rest 파라미터 한글 문제...? 헨씀히포 2017.10.11 53
2054 안드로이드에서 파일을 열고 싶습니다. Vincent 2017.10.10 47
2053 pc 에선 작동 되는데 안드로이드에선 오류 [1] file 도담 2017.10.04 56
2052 안녕하세요 혹시 베를린에서 안드로이드 누가는 지원안하나요? [4] Vincent 2017.09.29 81
2051 델파이 XE7에서 안드로이드로 실행시.apk raised exception class segmentation fault (11). 오류 (미해결중입니다) [6] delphi 2017.09.28 60
2050 윈도우10에서 콤보박스 한글처리시 문제...? [3] 헨씀히포 2016.06.30 829
2049 REST Application 작성시 세션 유지.. [2] file 가나당 2017.09.21 49
2048 StringGrid 초기화 방법에 대해서 궁금합니다. [2] Vincent 2017.09.27 60
2047 restrequest, restclient를 이용한 fcm notification 보내기 [1] 슈퍼맨 2017.09.28 54
2046 델파이 6 소스 컴파일 및 빌드 오류 건 문의드립니다. [1] 다니엘 2017.09.14 42
2045 안녕하세요 컨트롤들을 일정하게 정렬시키려고 하는데요. [2] file Vincent 2017.09.25 41
2044 Delphi 7 에서 .NET DLL 참조 관련 [1] Joon 2017.09.25 41
2043 RAD Studio 평가판 기간이 만료되었습니다. [3] file 땅콩맨 2017.09.24 58
2042 XE10.1 FMX로 멀티다바이스에서 UI구현방법 [2] Vincent 2017.09.22 43
2041 Access Violation Error 관련 [1] Joon 2017.09.25 37


광고 모듈이 설치되어 있지 않아 실행을 중단합니다..