새로운 글
새로운 덧글

자유롭게 질의 및 응답을 할 수 있는 게시판이며 어느 누구도 답변을 달아야만 하는 의무는 없습니다. 
  • 제품설치/등록/제품 오류 문의: 설치/등록 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;
 
적용을 어떻게 해야 되는 지 잘 모르겠습니다. 부탁 드립니다.
번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2018.8~2018.11 관리자 2015.01.22 5972
공지 유용한 관련 사이트 관리자2 2014.03.20 43204
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 84867
2064 델파이로 앱 개발 시 VC에서 만들어진 dll을 사용할 수 있나요? [2] 황새냉이 2017.10.19 64
2063 PAServer관련 질문드립니다. [2] 이노베이션 2017.10.23 83
2062 FDLocalSql사용시 쿼리결과에 한글이 제대로 표시되지 않습니다. [1] 왕초보 2017.10.20 37
2061 아이폰 상태바에 내용이 안보이고 그만큼 잘리는 현상입니다. [1] gildata 2017.10.19 69
2060 RAD Studio C++ Builder 10.1 베를린 환경에서 델파이 컴포넌트 Build 안되는 문제.. [1] 펭귄아빠 2017.10.23 78
2059 퀵레포트에 관해서..? [2] 헨씀히포 2017.10.19 76
2058 FTP로 이미지 다운로드 [1] 똘귀아빠 2017.10.20 77
2057 파이어몽키 apk배포에 대하여 [1] 나는프로그래머! 2017.10.19 79
2056 iOS 인증서 관련문의입니다. [2] silkroad99 2017.10.16 70
2055 Android 앱 실행 시 자동 업데이트 방법 [1] 로로봉 2017.10.12 649
» 시리얼통신 델파이 -> 안드로이드 시리널통신 도와주세요 [2] 텔로스김 2017.09.22 150
2053 FMX에서 이미지위에 이미지 삽입하는 방법. [1] Vincent 2017.10.11 77
2052 delphi XE7 - oracle 11g 연동이 안됩니다.. [1] file 유죵 2017.09.29 129
2051 Rest 파라미터 한글 문제...? 헨씀히포 2017.10.11 135
2050 안드로이드에서 파일을 열고 싶습니다. Vincent 2017.10.10 62
2049 pc 에선 작동 되는데 안드로이드에선 오류 [1] file 도담 2017.10.04 63
2048 안녕하세요 혹시 베를린에서 안드로이드 누가는 지원안하나요? [4] Vincent 2017.09.29 94
2047 델파이 XE7에서 안드로이드로 실행시.apk raised exception class segmentation fault (11). 오류 (미해결중입니다) [6] delphi 2017.09.28 105
2046 윈도우10에서 콤보박스 한글처리시 문제...? [3] 헨씀히포 2016.06.30 1200
2045 REST Application 작성시 세션 유지.. [2] file 가나당 2017.09.21 83



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