★★★★★和大家讨论一下如何往数据库中保存一个大字段（比如文件）★★★★★

[梅文海]

１．字段用什么类型
２．如果是一个流，该如何？

[chechy]

1、如果是文本，用MEMO，要不就用BLOB类型（不同的数据库BLOB具体类型会不一样，SQL Server好像是Graphic）
2、也可以存入BLOB类型。

[taxi]

Blob字段。
类型要看是用什么数据库了，Paradox可用Graphic,Access是OLE,Sql Server可以用Image类型的字段。
TBlobField(AdoTable1.FieldByName('Data')).LoadFromStream()

[梅文海]

我现在用的是ＳＱＬ　Ｓｅｒｖｅｒ，字段是Ｉｍａｇｅ类型。
写数据库我用CreateBlobStream，
读数据库我应该用什么？

[chechy]

写数据库可以用TBlobField.LoadFromStream，而读取可以用TBlobField.SaveToStream

[wumengs]

//把图象文件导入到TDBImage控件中
procedure SaveToDBImage(APicType: TPicType; AFileName: string; ADBImage: TDBImage);
var
myJpg: TJpegImage;
begin
if (ADBImage.DataSource.State = dsEdit) or (ADBImage.DataSource.State = dsInsert) then
begin
if APicType = bmp then
begin
ADBImage.Picture.LoadFromFile(AFileName);
exit;
end;

if APicType = jpg then
begin
myJpg := TJpegImage.Create;
try
myJpg.LoadFromFile(AFileName);
ADBImage.Picture.Graphic.Assign(myJpg);
finally
myJpg.Free;
end;
end;
end;
end;

//把TDBImage控件图象导入到图象文件中
procedure LoadFromDBImage(APicType: TPicType; AFileName: string; ADBImage: TDBImage);
var
myJpg: TJpegImage;
begin
if APicType = bmp then
begin
ADBImage.Picture.SaveToFile(AFileName);
exit;
end;

if APicType = jpg then
begin
myJpg := TJpegImage.Create;
try
myJpg.Assign(ADBImage.Picture.Graphic);
myJpg.SaveToFile(AFileName);
finally
myJpg.Free;
end;
end;
end;

[梅文海]

我的问题基本解决，我是用“流”解决的。