JPG图片写入SQL数据库,如何在QREPORT报表中利用QRDBImage显示出供打印???在线等,急.
我也想把jpg图片输出到报表中，可是QRDBIMAGE只能输出.BMP图片，不能输出.JPG的图片，QRIMAGE又只能输出一张图片，请问应该怎么实现.JPG图片的显示呢，在线等，很急，谢谢！ 问题点数：0、回复次数：8Top
1 楼lencon（深秋叙）回复于 2005-04-01 15:13:53 得分 0
把JPEG以BMP保存到数据库呀Top
2 楼whx993（红尘笑）回复于 2005-04-01 15:28:25 得分 0
可是我要保存的是.JPG图片阿，你的意思是保存的时候先转换图片的格式？怎么转换呢？Top
3 楼lencon（深秋叙）回复于 2005-04-01 15:35:28 得分 0
VAR
S:STRING;
st: TstringStream;
Str:String;
Jpeg:TJPEGIMAGE;
bmp:TBitmap; //存图像
begin
Str := ExtractFileExt(OpenP.filename);
Str := lowercase(Copy(Str,2,3));
Jpeg := TJPEGIMAGE.Create;
bmp:=TBitmap.Create;
if Str='bmp' then
BEGIN
bmp.LoadFromFile(OpenP.FileName);
END
else if Str='jpg' then
begin
Jpeg.LoadFromFile(OpenP.FileName);
bmp.Assign(jpeg);
end;
if (str='bmp') or (str='jpg') then
begin
st := tstringstream.create('');
bmp.SaveToStream(st);
ADOQUERY3.FieldBYNAME('文件内容').AsString:= st.datastring;
st.Free;
end else APPLICATION.MessageBox('系统暂不能接受此种格式的图像！','林康软件',MB_OK+MB_ICONWARNING);
jpeg.Free;
bmp.Free;
TRY
ADOQUERY3.Post;
EXCEPT
ADOQUERY3.Cancel;
APPLICATION.MessageBox('系统不能保存此条信息！','林康软件',MB_OK+MB_ICONWARNING);
END;
Top
4 楼lencon（深秋叙）回复于 2005-04-01 15:37:02 得分 0
我一直这样做,上面是我从程序中截取的一段,稍微修改一下就可以了,成功别忘给分Top
5 楼lencon（深秋叙）回复于 2005-04-01 15:39:37 得分 0
OPENP 是OPENPICTUREDIALOG,
你需要加 IF OPENPICTUREDIALOG.EXECUTE THEN 等...Top
6 楼cdsgajxlp（起名很难）回复于 2005-04-01 15:56:07 得分 0
JPG图片写入SQL数据库
最好是采用文件流的形式
var
st: TstringStream;
ft: TfileStream;
begin
ft:=TfileStream.create('d:/file.jpg',fmOpenRead);
st := tstringstream.create('');
st.copyform(ft,ft.size);
ADOQUERY3.FieldBYNAME('文件内容').AsString:= st.datastring;
st.Free;
....
end;Top
7 楼whx993（红尘笑）回复于 2005-04-01 16:58:08 得分 0
谢谢lencon（深秋叙），可是我的图片是以stream文件流的形式保存的到SQL中，还有你给的代码是保存.jpg或.bmp图片，这个我已经实现了。现在我的问题是要在quickrep中显示我的图片集，哪位高手知道的给个例子阿，谢谢大家了！Top
8 楼lencon（深秋叙）回复于 2005-04-02 08:59:24 得分 0
直接用 DBIMAGE 连接显示Top
