if chkHexReceive.Checked then begin strLength := length(ss); for i := 1 to strlength do begin byteTemp := byte((ss[i])); hexOffset := (inttohex(byteTemp, 2)); //肮奻珨曆硒俴眈肮腔髡夔˙ strTemp := strTemp + hexOffset + ' '; end; intcount := length(strtemp); hexint := 0; while intcount 0 do begin strFirst := leftstr(strtemp, 48); strtemp := rightstr(strtemp, intcount - 48); intcount := length(strtemp); hexOffset := inttohex(hexint, 4); mmRcv.Lines.Add('0x' + hexOffset + ': ' + trim(strFirst)); hexint := hexint + 16; end; end

以16进制传输数据。里面带有Demo看了你就明白了。