翻java成delphi，delphi7下有一样的编码dcu么？

[Henry.6]

String s = new String(org.apache.commons.codec.binary.Hex.encodeHex(byte[] b));

[亮剑_]

encodeHex，字面看是将byte[]编成十六进制码

[Henry.6]

[Quote=引用 1 楼 bdmh 的回复:]
你得先搞明白encodeHex的运作，然后自己写一个，没有现成的
[/Quote]
源码这个有的，要自己翻，痛苦。

[Henry.6]

http://www.oschina.net/code/explore/commons-codec-1.4-src/src/java/org/apache/commons/codec/binary/Hex.java

[erhan]

代码不是我写的，LockBox的LbUtils下面带的

{ -------------------------------------------------------------------------- }
function BufferToHex(const Buf; BufSize : Cardinal) : string;
var
  I     : LongInt;
begin
  Result := '';
  for I := 0 to BufSize - 1 do
    Result := Result + IntToHex(TByteArray(Buf)[I], 2);              {!!.01}
end;
{ -------------------------------------------------------------------------- }
function HexToBuffer(const Hex : string; var Buf; BufSize : Cardinal) : Boolean;
var
  i, C  : Integer;
  Str   : string;
  Count : Integer;
begin
  Result := False;
  Str := '';
  for i := 1 to Length(Hex) do
    if Upcase(Hex[i]) in ['0'..'9', 'A'..'F'] then
      Str := Str + Hex[i];

  FillChar(Buf, BufSize, #0);
  Count := Min(Length(Hex), BufSize);

  for i := 0 to Count - 1 do begin
    Val('$' + Copy(Str, (i shl 1) + 1, 2), TByteArray(Buf)[i], C);   {!!.01}
    if (C <> 0) then
      Exit;
  end;

  Result := True;
end;

[erhan]

上面的定义 TByteArray = array[0..32767] of Byte;

[bdmh]

你得先搞明白encodeHex的运作，然后自己写一个，没有现成的

[我看见佛]

DELPHI有DCU文件，是编译的链接文件，没听说过DCU编码的

[kaikai_kk]

D沒有encodeHex函数,要自己写代码实现

[lzg827]

楼主java里面的encodeHex应该有源码的吧。
不见得是java自带的吧。。。

[Henry.6]

[Quote=引用 9 楼 erhan 的回复:]
上面的定义 TByteArray = array[0..32767] of Byte;
[/Quote]

为什么一定是定长数组？当然定长读出的数据跟那个java的现在是一致的。
我一定义为变长数组。
就不能用TMemoryStream.readbuff 写到buffer中

  TByteArray2 = array of Byte;
var
  buff : TByteArray2;
  P             : PByte;
  P_SendStream: TMemoryStream;
  BufSize : Cardinal;
begin
  P_SendStream := TMemoryStream.Create();
  try
    P_SendStream.LoadFromFile('d:\a.zip');

    BufSize := P_SendStream.Size;
    SetLength(buff,BufSize);
    P_SendStream.Position := 0;
    P_SendStream.ReadBuffer(buff,BufSize);//必然出错，为什么？

    mmo1.Clear;
    mmo1.Lines.Add(LowerCase( BufferToHex(buff,BufSize)));

  except
    FreeAndNil(P_SendStream);
  end;
end;