串口調(diào)試助手delphi_spcomm_v(文件)
【正文】 (str)。//function StrToHexStr(const S:string):string。+IntToHex(Ord(S[I]),2)。 Buffer: Pointer。 SetLength(Str,BufferLength)。 else := + Str。 end。//procedure (Sender: TObject)。var BaudRate : Integer。 。end。end。end。end。039。end。beginif (Shift=[ssAlt]) and (key=Ord(39。//procedure (var Message: TWMSysCommand)。+1313+ 39。+13+ 39。+13+ 39。 僅供學(xué)習(xí)測(cè)試之用39?，F(xiàn)作者：謝利洪 Email:xiliho22139。end.。關(guān)于39。原作者：Sky Email:mastersky39。39。+1313+ 39。+13+ 39。 if = idAbout then (39。)) and () then //快捷鍵 ALT + S 。 var Key: Word。939。 var Key: Char)。begin //TStopBits = ( _1, _1_5, _2 )。begin //TByteSize = ( _5, _6, _7, _8 )。begin //TParity = ( None, Odd, Even, Mark, Space )。 //?????????????????????????? if TryStrToInt(,BaudRate) then := BaudRate。Custom39。end。 ShowRX。 := 0。 //?????????????????????????? if FShowText then begin if then :=+StrToHexStr(Str)+39。var str :string。end。begin for I:=1 to Length(S) do begin if I=1 then Result:=IntToHex(Ord(S[1]),2) else Result:=Result+39。 end。end。 end。+
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1