因开发条屏的需要,厂家没有开发文档,只给了段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;