这是一个将Image字段的内容读入Memo1的例子,希望对你有帮助:
Var ms:TMemoryStream
begin
with Query1 do
begin
Close;
Sql.Text :=' Select * from Table';
open;
Ms:=TMemoryStream.Create;
TBolbField(FieldByName('Image').SaveToStream(ms));
ms.Position :=0;
Memo1.Lines.LoadFromStream(ms);
ms.Free;
end;写入数据库:
TBolbField(FieldByName('Image').LoadFromStream(ms));
Var ms:TMemoryStream
begin
with Query1 do
begin
Close;
Sql.Text :=' Select * from Table';
open;
Ms:=TMemoryStream.Create;
TBolbField(FieldByName('Image').SaveToStream(ms));
ms.Position :=0;
Memo1.Lines.LoadFromStream(ms);
ms.Free;
end;写入数据库:
TBolbField(FieldByName('Image').LoadFromStream(ms));
(Query1.FieldByName('Image') as TBlobField).LoadFromStream(MyStream);
(Query1.FieldByName('Image') as TBlobField).SaveToStream(MyStream);
TBlobField(table.FieldbyName('mp3')).Loadfromfile(song1.mp3)
从数据库中取出
TBlobField(table.FieldbyName('mp3')).savetofile(song2.mp3)
var memolist:tstringlist;
begin
memolist:=tstringlist.create;
with Query1 do
begin
Close;
Sql.Text :=' Select * from Table';
open;
memolist.assign(FieldByName('Image')) //将blob字段中的内容放到memolist中;
end;
end;
ntext还是image,是否还有其他的字段类型,
我需要如何读取,及存放,我通过BDE连接数据库