图片如何在数据库中存储？

[lingxiang]

如何用程序调取显示图片？谢谢！！

[weitao999]

用Blob型的字段。
TblobField.loadfromfile
TblobField.savetofile.
详细可参考帮助！

[pengdali]

if(DATABASE_STATE==INSERT)
{
AnsiString st;
TMemoryStream *tmp = new TMemoryStream();
DBI1->Picture->SaveToFile("TTT.jpg");
tmp->LoadFromFile("TTT.jpg");
DeleteFile("TTT.jpg");
ADOQuery1->Parameters->ParamByName("PIC")->LoadFromStream(tmp,ftBlob);
ADOQuery1->Parameters->ParamByName("TD")->Value=DP1->Date;
st="摄于"+ DP1->Date;
ADOQuery1->Parameters->ParamByName("JPEG")->Value=JpegOrBmp?"BMP":"JPEG";
ADOQuery1->Parameters->ParamByName("IDI")->Value=MEM1->Text + st;
ADOQuery1->Parameters->ParamByName("HEI")->Value=BT->Height;
ADOQuery1->Parameters->ParamByName("WID")->Value=BT->Width;
ADOQuery1->ExecSQL();
ShowMessage("保存" + IntToStr(tmp->Size ));
ShowMessage("成功保存图片！");
delete tmp;
return;
}

[pengdali]

下面是一个拷贝图像到SQL Server的pubs数据库的例子, 表名pub_info, 字段名logo，图像文件名picture.bmp，保存到pub_id='0736'记录
sp_textcopy @srvn
ame = 'ServerName',
@login = 'Login',
@password = 'Password',
@dbname = 'pubs',
@tbname = 'pub_info',
@colname = 'logo',
@filename = 'c:\picture.bmp',
@whereclause = " WHERE pub_id='0736' ",
@direction = 'I'

[pengdali]

delphi
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ADOTable1.Append;
TBlobField(ADOTable1.FieldByName('FImage')).LoadFromFile(OpenPictureDialog1.FileName);
ADOTable1.Post;
end;