if PicDlg.Execute then begin Q_Worker.Edit ; TBlobField(Q_Worker.FieldByName('Worker13')).LoadFromFile(PicDlg.FileName); end; end; end; 出错的 ‘Bitmap image is not valid’
jpg文件的存储保存到数据库var pjpg:tjpegimage; pic:TMemoryStream; begin pjpg:=tjpegimage.Create; pjpg.LoadFromFile(F:\JPG.jpg); pic:=TMemoryStream.Create; pjpg.SaveToStream(pic); pic.Position:=0; TBlobField(dataset.FieldByName('Img')).LoadFromStream(pic); dataset.post; pic.Free; pjpg.free; end; 从数据库取出 var pjpg:tjpegimage; pic:TMemoryStream; begin pjpg:=tjpegimage.Create; pic:=TMemoryStream.Create; TBlobField(dataset.FieldByName('Img')).savetoStream(pic); pic.positon:=0; pjpeg.LoadFromStream(pic); image.graphi.bmp.assign(pjpeg); end;end;
我双击DBImage控件,执行 if PicDlg.Execute then begin Q_Worker.Edit ; TBlobField(Q_Worker.FieldByName('Worker13')).LoadFromFile(PicDlg.FileName); end; end; end; 如果选取的是*.ICO类型文件,就出错的 ‘Bitmap image is not valid’ 如果选取的是*.BMP类型文件,就没问题啊 唉明天中午结帖
你用bmp的存储方法肯定不成。我们就用image存储过ico和jpeg
begin
Q_Worker.Edit ;
TBlobField(Q_Worker.FieldByName('Worker13')).LoadFromFile(PicDlg.FileName);
end;
end;
end;
出错的 ‘Bitmap image is not valid’
pjpg:tjpegimage;
pic:TMemoryStream;
begin
pjpg:=tjpegimage.Create;
pjpg.LoadFromFile(F:\JPG.jpg);
pic:=TMemoryStream.Create;
pjpg.SaveToStream(pic);
pic.Position:=0;
TBlobField(dataset.FieldByName('Img')).LoadFromStream(pic);
dataset.post;
pic.Free;
pjpg.free;
end;
从数据库取出
var
pjpg:tjpegimage;
pic:TMemoryStream;
begin
pjpg:=tjpegimage.Create;
pic:=TMemoryStream.Create;
TBlobField(dataset.FieldByName('Img')).savetoStream(pic);
pic.positon:=0;
pjpeg.LoadFromStream(pic);
image.graphi.bmp.assign(pjpeg);
end;end;
if PicDlg.Execute then
begin
Q_Worker.Edit ;
TBlobField(Q_Worker.FieldByName('Worker13')).LoadFromFile(PicDlg.FileName);
end;
end;
end;
如果选取的是*.ICO类型文件,就出错的 ‘Bitmap image is not valid’
如果选取的是*.BMP类型文件,就没问题啊
唉明天中午结帖
你不用它就可以了。