关于Savetobuffer的问题

[kexi]

请问，我在delphi中到底如何，将buffer中的东西存入数据库呀？

我存入以后，读出的buffer不能用，readfrombuffer不好使了。

我分别用Blob和编码文本都试验了，都不行。

sososososososos!

[Cell]

您好：
关于buffer的演示在我们的DELPHI演示中有啊，您用OLEVARIANT类型的数据可以解决的。

[冷箫轻笛]

up

[yjs_lh]

我有相同的问题。

[yjs_lh]

我找到解决办法了。这是部分代码，供参考
最关键的是有两个函数：

function MemoryStreamToOleVariant(Strm: TMemoryStream): OleVariant;
var
Data: PByteArray;
begin
Result := VarArrayCreate([0, Strm.Size - 1], varByte);
Data := VarArrayLock(Result);
try
Strm.Position := 0;
Strm.ReadBuffer(Data^, Strm.Size);
finally
VarArrayUnlock(Result);
end;
end;

function OleVariantToMemoryStream(OV: OleVariant): TMemoryStream;
var
Data: PByteArray;
Size: integer;
begin
Result := TMemoryStream.Create;
try
Size := VarArrayHighBound (OV, 1) - VarArrayLowBound(OV, 1) + 1;
Data := VarArrayLock(OV);
try
Result.Position := 0;
Result.WriteBuffer(Data^, Size);
finally
VarArrayUnlock(OV);
end;
except
Result.Free;
Result := nil;
end;
end;

调用方法：

var
ms: TMemoryStream;
ov: OleVariant;
begin
Cell.SaveToBuffer(ov);
ms := OleVariantToMemoryStream(ov);
...//操作ms，并写回数据库等等
ms.Free;
end;

另一个的调用方法很类似。

[lihuihit]

PB的相关代码有么？

[ymw2000]

那位大哥有BCB的相关代码？？？？