2 yang elbert yang_elbert 于 2015.06.15 10:36 提问

求帮忙,delphi 代码转成java...

因开发条屏的需要,厂家没有开发文档,只给了段delphi代码,看不太懂,需要把这段代码转换成java的,求大神帮忙...

 procedure TFmain.sendled(addr: Integer; sendstr: string);
var
  TmpWord:Word;
  str:string;
  cd:Integer;
begin
  cd:=Length(sendstr);
  sbuf[0]:= addr;  //地址
  sbuf[1]:= Byte($AE);
  sbuf[2]:= cd;     //
  sbuf[3]:= Ord(sendstr[1]);
  sbuf[4]:= Ord(sendstr[2]);
  sbuf[5]:= Ord(sendstr[3]);
  sbuf[6]:= Ord(sendstr[4]);
  TmpWord := dm.Crc16(sbuf,6);
  sbuf[7]:= HiByte(TmpWord);//高字节
  sbuf[8]:= LoByte(TmpWord);//低字节
  Str := IntToHex(sbuf[0],2)+' '+IntToHex(sbuf[1],2)+' '+IntToHex(sbuf[2],2)+' '+
         IntToHex(sbuf[3],2)+' '+IntToHex(sbuf[4],2)+' '+IntToHex(sbuf[5],2)+' '+
         IntToHex(sbuf[6],2)+' '+IntToHex(sbuf[7],2)+' '+IntToHex(sbuf[8],2);
  Send_S_String(Hex_Str.HexStrToStr(Str));
  AddInfo(str,True,2);
  Sleep(25);
end;

1个回答

dcxy0
dcxy0   Ds   Rxr 2015.06.15 13:01

只会java,不会delphi......

Csdn user default icon
上传中...
上传图片
插入图片