*.jpeg图片转换成二进制保存到数据库中,然后在从数据库中读出转换成*.jpeg的图片(20分)

同上

用Image字段即可

FieldByName('Photo').Assign(jpg);//保存
Image1.Picture.Bitmap.Assign(TBlobField(FieldByName('Photo'))) ; //读取

先说下用的什么数据库！好吗？不同的数据库做法不同！

我想把其保存到具有64K大小的IC卡上。我们有配套的IC卡读写器。

帮顶！

╭=========================================╮

80G海量源代码,控件，书籍全免费狂下不停！

http://www.source520.com

╰=========================================╯

TFileStream* ComposedFile = new TFileStream(strName,fmOpenRead);
iFileLength = ComposedFile->Size; //文件的大小
//RzEdit5->Text = IntToStr(iFileLength);
Summation = Summation + iFileLength; //相同文件名的总大小
Size = Summation;
Main_DataModule->ADOQuery1->Last();
Main_DataModule->ADOQuery1->Append();
Main_DataModule->ADOQuery1->Edit();

Main_DataModule->ADOQuery1->FieldByName("MAP_ID&quot->AsString = IntToStr(MapId2);
Main_DataModule->ADOQuery1->FieldByName("MAP_FILENAME&quot->AsString = ExtractFileName(FileText);
Main_DataModule->ADOQuery1->FieldByName("MAP_EXTENDNAME&quot->AsString = strExtendedName;
Main_DataModule->ADOQuery1->FieldByName("MAP_SIZE&quot->AsFloat = iFileLength;
((TBlobField*)(Main_DataModule->ADOQuery1->FieldByName("MAP_CONTENT&quot))->LoadFromStream(ComposedFile);
Main_DataModule->ADOQuery1->Post();
保存图片 字段为Image类型， 下面为取出文件

TMemoryStream * ComposedFile = new TMemoryStream;

Main_DataModule->ADOQuery1->Close();
Main_DataModule->ADOQuery1->SQL->Clear();
Sql = "select * from "+TableName + " where MAP_ID = "+ MapId+";";
Main_DataModule->ADOQuery1->SQL->Add(Sql);
Main_DataModule->ADOQuery1->Open();

FileName = Main_DataModule->ADOQuery1->FieldByName("MAP_FILENAME&quot->AsString;
ExtendName = Main_DataModule->ADOQuery1->FieldByName("MAP_EXTENDNAME&quot->AsString;
((TBlobField*)(Main_DataModule->ADOQuery1->FieldByName("MAP_CONTENT&quot))->SaveToStream(ComposedFile);

PathName = Path+FileName+"."+ExtendName;
ComposedFile->SaveToFile(PathName);
delete ComposedFile;
return PathName;