如何在数据库中存取图片? 要从SYBASE的image字段里存取图片,应该怎么做?有DELPHI的代码示例就太好了。 多谢了! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Query1.parambyname(image_field).Assign(Image1.); procedure TForm1.Button3Click(Sender: TObject); var B: TBitmap; begin B := TBitmap.Create; try B.LoadFromFile('c:\delphi\images\splash\16color\athena.bmp'); DBImage1.Picture.Assign(B); finally B.Free; end; end;///////////////////////////////////////////////////////////var st: TStringStream;begin st := tstringstream.create(''); bitmap.savetostream(st); query1.sql.text := 'insert into table Image_field values :bmp'; query1.parambyname('bmp').asblob := st.datastring; query1.execsql; st.free;end; to del_c_sharp(摩托~◎~◎~◎) 那怎么样取图片呢? 很简单的算法问题,请大家帮帮忙! 非常奇怪的问题啊~~~~在线等待 有江门的程序员吗? 一个TDBGrid很菜的问题,进来看看把? 关于Delphi控制Access数据库的问题!! 如何获得mpeg或mp3等歌曲的相关信息 现在跳槽合适吗? IdHttpServer下载文件,在浏览器中打开为乱码 谁想要D版delphi6? 怎样枚举一个目录下的所有文件! 各位:学习delphi相应的数据库应学习Oracle还是DB2,还是Ms sql? 很菜的问题,请大家帮忙,高分相送。
var
B: TBitmap;
begin
B := TBitmap.Create;
try
B.LoadFromFile('c:\delphi\images\splash\16color\athena.bmp');
DBImage1.Picture.Assign(B);
finally
B.Free;
end;
end;
///////////////////////////////////////////////////////////
var
st: TStringStream;
begin
st := tstringstream.create('');
bitmap.savetostream(st);
query1.sql.text := 'insert into table Image_field values :bmp';
query1.parambyname('bmp').asblob := st.datastring;
query1.execsql;
st.free;
end;
那怎么样取图片呢?