13,825
社区成员
发帖
与我相关
我的任务
分享
var
fil:string;
begin
if openpicturedialog1.FileName='' then
begin
showmessage('请选择照片!');
exit;
end;
picture:=Tpicture.Create; //声明个图片对象
picture.LoadFromFile(extractfilename(openpicturedialog1.filename));//文件打开对话框,选取你的图片文件,这个只适用于.bmp格式的图像
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from picture');
adoquery1.Open;
adoquery1.Insert;
adoquery1.FieldByName('图片编号').AsString:=edit1.Text;
adoquery1.FieldByName('图片').Assign(picture);
adoquery1.Post;
picture.Free;//释放图片对象
end;
//将图导入数据库
String sql="select * from singnaldata";
ADOQuery1->ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=wsingnal.mdb;Persist Security Info=False";
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add(sql);
ADOQuery1->Open();
for(int i=0;i<15;i++)
{
for(int j=0;j<4;j++)
{
String file="D:\\tmp\test.bmp";
if(FileExists(file))
{
ADOQuery1->Insert();
ADOQuery1->FieldByName("Kind")->AsString=pn[i];
ADOQuery1->FieldByName("Color")->AsString=cln[j];
TADOBlobStream *tStream;
TMemoryStream *temp=new TMemoryStream();
Graphics::TBitmap *pBitmap=new Graphics::TBitmap();
pBitmap->LoadFromFile(file);
pBitmap->SaveToStream(temp);
((TBlobField *)ADOQuery1->FieldByName("picture"))->LoadFromStream(temp);
}
}
}
ADOQuery1->Post();
//将图从库中导出
String sql="select * from singnaldata where Kind='"+kind+"' and Color='"+color+"'";
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add(sql);
ADOQuery1->Open();
TMemoryStream *temp=new TMemoryStream();
((TBlobField *)ADOQuery1->FieldByName("Picture"))->SaveToStream(temp);
temp->Position=0;
temp->SaveToFile(picfile);