将图片插入到SQL Server数据库

--新建表image create table image(img_id int,img image)  

 

拖控件

TADOQuery

包含Jpeg.hpp

//存入图片： //image以二进制形式存放图片 ADOQuery1->Close(); ADOQuery1->SQL->Clear(); ADOQuery1->SQL->Add("insert into image values(:img_id,:img)"); ADOQuery1->Parameters->Items[0]->Value=1; ADOQuery1->Parameters->Items[1]->LoadFromFile("c:/3.jpg",ftBlob); ADOQuery1->ExecSQL(); //取图片 TMemoryStream *stream=new TMemoryStream; TJPEGImage *jpg=new TJPEGImage; ADOQuery1->Close(); ADOQuery1->SQL->Clear(); ADOQuery1->SQL->Add("select *from infos where img_id=1"); ADOQuery1->Open(); (TBlobField*)ADOQuery1->FieldByName("img")->SaveToStream(stream); stream->Postion=0; jpg->LoadFromStream(stream); Canvas->Draw(0,0,jpg); delete jpg; delete stream;