D
DreamLand
Unregistered / Unconfirmed
GUEST, unregistred user!
我在创建tadoblobstream的时候出了问题,代码如下:
procedure TForm1.btnLSClick(Sender: TObject);
var
ms: TAdoBlobStream;
//bs: TBlobField;
begin
ms:=TadoBlobStream.Create(dsStream.fieldbyname('content').asstring,bmWrite);
try
begin
if ms.Size=0 then exit;
tvwStream.LoadFromStream(ms);
end
finally
ms.Free;
end;
end;
主要是这一举应该怎么写?dsStream.fieldbyname('content').asstring
procedure TForm1.btnLSClick(Sender: TObject);
var
ms: TAdoBlobStream;
//bs: TBlobField;
begin
ms:=TadoBlobStream.Create(dsStream.fieldbyname('content').asstring,bmWrite);
try
begin
if ms.Size=0 then exit;
tvwStream.LoadFromStream(ms);
end
finally
ms.Free;
end;
end;
主要是这一举应该怎么写?dsStream.fieldbyname('content').asstring