请教高手小问题～。～谢啦

[nityly]

请教SQL Server中字段为image类型的如何写sql语句？
1 向该字段插入图片？
2 查询并在网格控件中显示结果

select surfacename = isnull(surfacename,''),
surimage = isnull(surimage,'')

from surface
其中surimage为image类型，surfacename为字符型

[rlongriver]

用流来存取，
你怎么能在网格上显示image？？？

[tiexinliu]

网格控件中显示部分结果，image在dbimage中显示,

[WuLoveXue]

网格是可以显示图片的，要自己画！

[rlongriver]

关于存图，示意代码：供叁考
uses Jpeg

var
msql :string;
jpg :TJPEGImage;
bmp :TBitmap;
begin
if OpenPictureDialog1.Execute then
begin
jpg := TJPEGImage.Create;
bmp := TBitmap.Create;
try
if OpenPictureDialog1.FilterIndex =1 then //如果是jpg图
begin
jpg.LoadFromFile(OpenPictureDialog1.FileName);
bmp.Assign(jpg);
end
else
begin
bmp.LoadFromFile(OpenPictureDialog1.FileName); //如果是bmp图
end;
Image1.Picture.Bitmap := bmp;
Panel_pic.Caption := DateTimeToStr(now);
msql := 'insert into Base_Picture (ArchivesID,Type,Explain,Picture,Flag) values (:ArchivesID,:Type,:Explain,:Picture,:Flag)';
Query_Picture.Close;
Query_Picture.SQL.Clear;
Query_Picture.SQL.Add(msql);
Query_Picture.Parameters.ParamByName('ArchivesID').Value := E_ArchivesID.Text;
Query_Picture.Parameters.ParamByName('Type').Value := Panel_pic.Caption;
//Query_Picture.Parameters.ParamByName('Explain').Value := Memo1.Text;
Query_Picture.Parameters.ParamByName('Picture').Assign(bmp); //这里Picture为image类型
Query_Picture.Parameters.ParamByName('Flag').Value := 't';
Query_Picture.ExecSQL;
except
on e:Exception do
Application.MessageBox(pchar(e.Message),'系统提示',mb_ok + MB_ICONERROR);
end;
jpg.Free;
bmp.Free;

end;

[sailer_shi]

还是向数据库中村图片，为什么不存入图片的地址呢？

[lead001]

看看这，可以解决你的问题

//写入
var
　MS: TMemoryStream;
begin
　MS:=TMemoryStream.create;
　Image1.Picture.Bitmap.SaveToStream(MS);
　MS.Position:=0;
　Table1.Append;
　//在数据库中添加一条记录
　TBlobField(Table1.FieldbyName(’image’)).LoadFromStream(MS);
　Table1.Post;
　//将所作的更新写入数据库
end;
//读取
var
　MS: TStream;
begin
　with Table1 do
　　MS:=CreateBlobStream(FieldbyName(’image’),bmRead);
　Image1.Picture.Bitmap.
　LoadFromStream(MS);
　MS.Free;
end;

[nityly]

请问图像必须要存入文件或存入流才能操作吗，他们有什么区别呢？一般采用哪呀？
还有那些类型需要这样呢？

[viaboy]

(Table1.FieldbyName(’image’)as tbolbfield).LoadFromfile(filename)