请问怎么把一个jpg图片转成字符串存到数据库中,读取数据的时候又怎样把该字符串转成图片显示出来呢 请问怎么把一个jpg图片转成字符串存到数据库中,读取数据的时候又怎样把该字符串转成图片显示出来呢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Var JPGImage:TjpegImage; Bitmap:TBitmap; Stream : TMemoryStream; FileName:String; ExtName: string; begin JPGImage:=TJpegImage.Create; JPGImage.LoadFromFile(FileName); //JPG图象保存到数据库,要以MemoryStream为中介 Stream:= TMemoryStream.Create ; JPGImage.SaveToStream(Stream); table1.append; table1FileName.asstring:=ExtractFileName(FileName); table1Blob.LoadFromStream(Stream); table1.Post; Image1.Picture.Assign(JPGImage); Stream.Free ; 通过二进制写到数据库中,当中还会涉及到流,具体函数可以查看Delphi帮助 oklida(JAVA战士) 不是提供给你了流的代码了吗? 通过流的读入、取出就可以实现了。oklida(JAVA战士)代码是读入的:)你自己再试试吧 label 如何对应数据库中的字段 进度条 CHM版《DELPHI全掌握》制作完毕![散点分] 问个问题,用流在exe文件后添加数据,exe文件还可以执行,为什么? 高分寻求 免费手机号码和IP地址归属地? 这个分类统计谁会? 怎么实现像VS。net中html文件界面 请问如何查看应用程序用了什么控件? 哪里能够下载到第三方控件TStretchHandle? 有一串字符为'001',怎样使用代码将他不断加1后变成'002','003'...'015','016'...,并按照此顺序排列。 在线求助,急~~~关于DBGrid和Qreport 将数据库中的每一条记录逐一的显示出来!!怎么显示啊?
JPGImage:TjpegImage;
Bitmap:TBitmap;
Stream : TMemoryStream;
FileName:String;
ExtName: string;
begin
JPGImage:=TJpegImage.Create;
JPGImage.LoadFromFile(FileName);
//JPG图象保存到数据库,要以MemoryStream为中介
Stream:= TMemoryStream.Create ;
JPGImage.SaveToStream(Stream);
table1.append;
table1FileName.asstring:=ExtractFileName(FileName);
table1Blob.LoadFromStream(Stream);
table1.Post;
Image1.Picture.Assign(JPGImage);
Stream.Free ;