void __fastcall TForm1::btn6Click(TObject *Sender) //存储图片
{
TMemoryStream * MemoryImageStream=new TMemoryStream; //A
img1->Picture->Graphic->SaveToStream(MemoryImageStream); //B
AnsiString strSql = "insert into tab_img(Img) values(:Img)";
qry1->Close();
qry1->SQL->Clear();
qry1->SQL->Add(strSql);
TJPEGImage *pJPG = new TJPEGImage;
pJPG->Assign(img1->Picture->Graphic);
pJPG->SaveToStream(MemoryImageStream);
MemoryImageStream->Position = 0;
this->qry1->Parameters->ParamByName("Img")->LoadFromStream(MemoryImageStream,ftBlob);
qry1->ExecSQL();
//E
delete MemoryImageStream;
delete pJPG;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btn7Click(TObject *Sender) //加载图片
{
TMemoryStream * MemoryImageStream=new TMemoryStream; //A
img1->Picture->Graphic->SaveToStream(MemoryImageStream); //B
AnsiString strSql = "select top 1 * from tab_img";
qry1->Close();
qry1->SQL->Clear();
qry1->SQL->Add(strSql);
qry1->Open();
if(!qry1->Eof)
{
if(qry1->FieldByName("Img"))
{
((TBlobField*)(qry1->FieldByName("Img")))->SaveToStream(MemoryImageStream);
TJPEGImage *pJPG = new TJPEGImage;
MemoryImageStream->Position = 0;
pJPG->LoadFromStream(MemoryImageStream);
img2->Picture->Assign(pJPG);
if(MemoryImageStream != NULL)
{
delete MemoryImageStream;
MemoryImageStream = NULL;
}
if(pJPG != NULL)
{
delete pJPG;
pJPG = NULL;
}
}
else
img2->Picture = NULL;
}
}
//---------------------------------------------------------------------------
{
TMemoryStream * MemoryImageStream=new TMemoryStream; //A
img1->Picture->Graphic->SaveToStream(MemoryImageStream); //B
AnsiString strSql = "insert into tab_img(Img) values(:Img)";
qry1->Close();
qry1->SQL->Clear();
qry1->SQL->Add(strSql);
TJPEGImage *pJPG = new TJPEGImage;
pJPG->Assign(img1->Picture->Graphic);
pJPG->SaveToStream(MemoryImageStream);
MemoryImageStream->Position = 0;
this->qry1->Parameters->ParamByName("Img")->LoadFromStream(MemoryImageStream,ftBlob);
qry1->ExecSQL();
//E
delete MemoryImageStream;
delete pJPG;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btn7Click(TObject *Sender) //加载图片
{
TMemoryStream * MemoryImageStream=new TMemoryStream; //A
img1->Picture->Graphic->SaveToStream(MemoryImageStream); //B
AnsiString strSql = "select top 1 * from tab_img";
qry1->Close();
qry1->SQL->Clear();
qry1->SQL->Add(strSql);
qry1->Open();
if(!qry1->Eof)
{
if(qry1->FieldByName("Img"))
{
((TBlobField*)(qry1->FieldByName("Img")))->SaveToStream(MemoryImageStream);
TJPEGImage *pJPG = new TJPEGImage;
MemoryImageStream->Position = 0;
pJPG->LoadFromStream(MemoryImageStream);
img2->Picture->Assign(pJPG);
if(MemoryImageStream != NULL)
{
delete MemoryImageStream;
MemoryImageStream = NULL;
}
if(pJPG != NULL)
{
delete pJPG;
pJPG = NULL;
}
}
else
img2->Picture = NULL;
}
}
//---------------------------------------------------------------------------