将 RTF 图像数据转换为纯文本（SQL Server 和 Dephi BDS 2006）

Question

一直在这个问题上挣扎了一段时间。我们有一个包含图像类型数据的旧表（SQL Server）。我想获取文本。

到目前为止，这就是我所做的。

• 尝试转换或转换它（不允许）
• 尝试通过调用SP将数据带入delphi（我已经到了将数据分配给变体的地步）
• 研究了RTF到文本函数（在SO上找到了一些东西） ，如果我可以将图像数据放入字符串中）。

这是我到目前为止的代码。它现在附加到按钮单击（将在服务中运行）。我认为对report var的赋值不正确，SetString也可能不正确。我什至不确定我是否以正确的方式处理这件事。

var
report: array of byte;
s: string;

begin
  ADOStoredProc1.Parameters.ParamByName('@EncounterID').Value := '7';

  ADOStoredProc1.Open;
  while not ADOStoredProc1.EOF do
  begin
    report := ADOStoredProc1.FieldByName('Report').Value;
    SetString(s, PAnsiChar(@report[0]), length(report));
    Memo1.Lines.Add(s);

    ADOStoredProc1.Next;
  end;

Answer 1

我对“RTF 图像”有点困惑。你的意思是RTF文本吗？还是图像（图片）？从代码中，我怀疑前者......

我不确定为什么你使用字节数组，然后立即将其放入字符串中。

这应该同样有效（实际上，更好，因为它不使用 Value （这是一个 Variant 转换）并避免 SetString 函数调用）

while not ADOStoredProc.Eof do
begin
  Memo1.Lines.Add(ADOStoredProc1.FieldByName('Report').AsString;
  ADOStoredProc1.Next;
end;

：不过，可能可以通过这种方式在备忘录中获取 RTF 格式。如果您尝试删除格式，则需要使用 TRichEdit，并使用 EM_STREAMIN 消息添加内容，然后使用 TRichEdit.PlainText 属性。 此处有一个执行此操作的示例。