Delphi：如何有效地读取大的二进制文件，将其转换为十六进制以将其作为 varbinary(max) 参数传递？

Question

我需要将二进制文件（zip 文件）转换为十六进制表示形式，然后将其作为 varbinary(max) 函数参数发送到 sql-server。

一个完整的例子（使用一个非常小的文件！）是：

1）我的文件包含以下位0000111100001111

2）我需要一个程序将其快速转换为0F0F

3）我将调用一个sql服务器函数，传递0x0F0F作为参数

问题是我有大文件（最多100MB，即使平均文件大小是100KB文件也是可能的），所以我需要最快的方法做这个。

创建字符串

'0x'+BinaryDataInHexadecimalRepresentation

否则说明：我需要以最有效的方式 。 （注意：可能有一种方法可以立即打开文件并获取十六进制字符串，因此在这种情况下，我需要的只是使用“这种方式”（如果有的话）。

相关问题： 传递十六进制数据到sql server

更新：阅读评论后我认为有必要在这里添加更多信息。我尝试使用 T-SQL 文本命令将二进制数据发送到存储过程的原因是，通过这种方式，我消除了服务器的一些开销：存储过程接收二进制数据并将其写入文件（此是我的最终目标）。如果我使用 DAC 组件，我将能够轻松地将 biray 数据发送到服务器，但在这种情况下，我需要使用临时表来存储数据，然后将此数据发送到写入文件的存储过程。

所以想法是：

1）使用T-SQL“长”命令：客户端的开销更大，因为我需要读取文件并将其转换为十六进制以准备长命令；服务器开销更少，因为 sql server 只是接收二进制数据并在存储函数中处理它

2) 使用 DAC：我需要传递 sql server 中的临时表，因此服务器上的开销更多，

因为我将服务器用作 web文档服务器（这是一个技巧），我想尝试减少服务器的开销。无论如何，我可能错了，（2）无论如何是比（1）更好的技术

Answer 1

好吧，这是一个可以以我能想到的速度完成转换的选项。

代码的特点：

• 仅对字符串进行一次分配（因此无需重新分配，也无需移动或复制）
• 从文件中快速读取。

由于我们知道一个字节恰好转换为两个十六进制字符，因此我们知道结果字符串需要恰好是文件大小的两倍。我们分配所需大小的字符串，然后以足够大的块从文件中读取，以便操作系统可以为我们优化它（逐字节读取是邪恶的）。我们使用实际的字符串，但我们使用指针写入字符串：

function TEditorDeschidereDeCredite.FileToHex(FileName: string): AnsiString;
var FS:TFileStream;
    PS:PAnsiChar;
    Block:array[0..1023] of byte; // 1Kb
    len,i,pos:Integer;
    B:Byte;
const Nibbs: array[0..15] of AnsiChar = ('0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'A', 'B', 'C', 'D', 'E', 'F');
begin
  FS := TFileStream.Create(FileName, fmOpenRead);
  try
    Result := '';
    SetLength(Result, FS.Size * 2);
    PS := PAnsiChar(Result);
    pos := 0; // position into the result string
    len := FS.Read(Block, SizeOf(Block));
    while len <> 0 do
    begin
      for i:=0 to len-1 do
      begin
        B := Block[i];
        PS[pos] := Nibbs[B div $F];
        Inc(pos);
        PS[pos] := Nibbs[B mod $F];
        Inc(pos);
      end;
      len := FS.Read(Block, SizeOf(Block));
    end;
  finally FS.Free;
  end;
end;

PS：我使用 AnsiString 和 PAnsiChar，因此代码也适用于 Unicode Delphi。如果您碰巧使用的是 Delphi 2010，请找到一种方法以当前形式 (AnsiString) 使用它，这样您就可以跳过转换。