请高手帮忙！我想将JPEG图象存入MS SQL Image字段，如何做？

[lihai_feng]

请高手帮忙！我想将JPEG图象存入MS SQL Image字段，如何做？，用BMP图象很好解决，但如果想存JPEG，它就老报错，"bitmap image is not valid"

[alin]

uses jpeg;

procedure Tfrm_Swatch.bb_AddPicClick(Sender: TObject);
Var
PicName,ExtName:String;
JpegImage:TJpegImage;
BitMap:TBitMap;
begin
if OpenPictureDialog.Execute then
Begin
tb_Pic.Append;
PicName :=OpenPictureDialog.FileName;
ExtName:=ExtractFileExt(PicName);
if UpperCase(ExtName) ='.BMP' then
begin
BitMap:=TBitMap.Create;
Try
BitMap.LoadFromFile(PicName);
dbi_Pic.Picture.Graphic.Assign(BitMap);//dbi_Pic是TDBImage控件
tb_Pic.Post;
finally
BitMap.Free;
End;
end;
if (UpperCase(ExtName) ='.JPG') or
(UpperCase(ExtName) ='.JPEG')then
begin
JpegImage:=TJpegImage.Create;
Try
JpegImage.LoadFromFile(PicName);
dbi_Pic.Picture.Graphic.Assign(JpegImage);
tb_Pic.Post;
finally
JpegImage.Free;
End;
end;
end;
end;

[Hank]

可能KXY的方法可行，不过问题是很烦人——ACCESS97及SQL SERVER的图像均不能在DELPHI中直接显示，必须用流来操作！因为DELPHI不辨认JPEG的文件流（BMP和GIF可以），估计这种方法不可行！
用TMemoryStream估计可以！

[IAmKylix]

GIF你有好办法吗？

[huliao]

关注

[qiuzhi]

关注

[kxy]

不用管什么图像格式，全部当作二进制文件。
显示的时候，不要用 TDBImage(除非你要编辑此图像) 用Image
保存到sql
var
TheStream : TMemoryStream;
begin
....
TheStream.LoadFromFile(...);
...
TBlobFiled(Table1.FieldByname(...)).LoadFromStream(TheStream);
....
end;

或者 TBlobFiled(Table1.FieldByname(...)).LoadFromFile(TheFile);

读出 使用 TBlobField(...).SaveToStream; or .SaveToFile;

[qianying]

kxy的方法在我这儿好象成功不了 :(