为何不能存入扩展名为.JPG格式的图片？

cjs5210 2004-09-13 02:01:09

数据库使用的是 sqlserver2000
图片字段类型为 image

如果存入的是.bmp格式的就没有问题，如果是.jpg格式的就会出现以下错误，请各位大哥指教！
procedure TForm1.Button1Click(Sender: TObject);
var
strm:tmemorystream;
ext:string;

JPEGImage:TJPEGImage;
begin
if image1.picture.Graphic <> nil then //避免image1中无图像保存出错
begin
ext:=extractfileext(openpicturedialog1.FileName ); //取出文件的扩展名
strm := tmemorystream.Create ;
try
image1.Picture.Graphic.SaveToStream(strm);
adoquery1.Append;
strm.Position :=0;
tblobfield(adoquery1.FieldByName('image')).LoadFromStream(strm);//执行到此处就出现“Bitmap images is not valid”的错误
adoquery1.Post ;
finally
strm.Free ;
end;
end;
end;

...全文

325 12 打赏收藏转发到动态举报

写回复

用AI写文章

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

railgunman 2004-09-17

打赏
举报

帮你up

立志做一个佳娃~ 2004-09-14

打赏
举报

加一个字段标识文件类型也可以，以前我使用的是TRY语句嵌套的方法来显示bmp,jpeg文件，这样可以免去一个字段的空间大小。建议楼主试试，存入无限制，取出时使用try finall进行嵌套显示流格式不同的图像。

vipxch 2004-09-14

打赏
举报

同意 RamjetZhang(万花从中一点红，玉树临风王小桃是也) 思路，把我实现的过程大概说一下希望能给你一点启发，不对之处请各位指正；
数据库使用sql2000，我用image控件显示数据库中的jpeg图象，jpeg格式图象用dbimage无法显示，具体代码忘记了，主要就是在表中有个字段来区图象格式（bmp或者jpeg），在保存的时候久区分开来，从数据库中根据图象格式不同用不同的类来存储（bmp，用TPicture，jepg的用TJPEGImage）并显示在Timage中即可，大概思路是这样！！！

天行归来 2004-09-14

打赏
举报

我的那种方法和文件类型是无关的，只是把文件当成流存在数据库中。
如果保证是bmp，用不着用这些方法。直接用dbimage就可以解决。

立志做一个佳娃~ 2004-09-14

打赏
举报

您是不是要用 TDBImage 顯示 jpeg？
是的話改這樣子的方式試試:

var
jpg: TJpegImage;
bmp: TBitmap;
begin
if OpenPictureDialog1.Execute then
begin
jpg := TJpegImage.Create;
try
jpg.LoadFromFile(OpenPictureDialog1.FileName);
bmp := TBitmap.Create;
try
bmp.Width := jpg.Width;
bmp.Height := jpg.Height;
bmp.Assign(jpg);
TBlobField(EmInfoQuery.FieldByName('Pics')).Assign(bmp);
finally
bmp.Free;
end;
finally
jpg.Free;
end;
end;
end;

立志做一个佳娃~ 2004-09-14

打赏
举报

http://blog.csdn.net/ghyghost/archive/2003/07/21/15773.aspx
http://blog.csdn.net/ghyghost/archive/2003/07/21/15774.aspx

cdsgajxlp 2004-09-14

打赏
举报

流

cjs5210 2004-09-13

打赏
举报

楼上的几位大哥，你们的操作对bmp可以，但是对jpg就是有时行有时不行啊，我jpeg单元也引用了
求高手再给解解惑！

cxz7531 2004-09-13

打赏
举报

不要用TMemoryStream 这样
存入
TBlobField(adoquery1.FieldByName('image')).LoadFromFile('c:\c.jpg');
adoquery1.post;
读出

TBlobField(adoquery1.FieldByName('image')).SaveToFile('c:\cc.jpg');

天行归来 2004-09-13

打赏
举报

//把文件当作流存在数据库里面，需要记住文件类型，便于今后决定如何打开。
procedure SaveFileToDB();
var
Dlg: TOpenDialog;
Stream: TMemoryStream;
begin

Dlg := TOpenDialog.Create(Self);
Dlg.Title := '请选择文件！';
if Dlg.Execute then
begin
Stream := TMemoryStream.Create;
Stream.LoadFromFile(Dlg.FileName);
adsFile.Append;
TBlobField(adsFile.FieldByName('File')).LoadFromStream(Stream);
adsFile['FileName'] := ExtractFileName(Dlg.FileName);
adsFile.Post;
Stream.Free;
Dlg.Free;
ShowMessage('文件保存到数据库操作完毕！');
end;

end;

//从数据库取文件，并打开浏览。
procedure ViewFileFromDB();
var
BlobS: TBlobStream;
MemoryStream: TMemoryStream;
FileName: String;
begin

if (adsFile.RecordCount<=0) or (adsFile.FieldByName('File').IsNull) then Exit;
BlobS := TBlobStream(adsFile.CreateBlobStream(adsFile.FieldByName('File'),bmRead));
MemoryStream := TMemoryStream.Create;
MemoryStream.LoadFromStream(Blobs);
FileName := adsFile['FileName'];
MemoryStream.SaveToFile(FileName);
MemoryStream.Free;
ShellExecute(Handle,'Open',PChar(FileName),nil,nil,SW_SHOWNORMAL);

end;

cjs5210 2004-09-13