SQL数据库图片存取问题(简单)
我找这个很久了 我希望一个完整的程序 有存和取图片这两个功能就可以了 我在网上找的都实现不了 用ADO和SQL2000
[解决办法]
Jpg.Assign(Image1.Picture.Graphic); // 说这个没有初始化 是不是不能用JPG格式
我晕,你这里肯定会报告错误的啊,你前面的JPG连创建都没有创建,你得用
Jpg := TJpgegImage.create;先创建啊
你可以使用那个DBImage啊,可以直接向数据库存取和读取图片(不过要使他支持JPeg格式的话,要修改一下他的源代码,如果要的话,可以找我)
[解决办法]
procedure TForm1.BitBtn1Click(Sender: TObject);
var
Ms:TmemoryStream;
jpg:Tjpegimage;
begin
ms:=TmemoryStream.Create;
//Jpg.Assign(Image1.Picture.Graphic); // 说这个没有初始化 是不是不能用JPG格式
//Jpg.SaveToStream(Ms) ;
Image1.Picture.Graphic.SaveToStream(ms);
Ms.Position :=0;
ADOquery1.append;
TBlobField(ADOquery1.FieldByName( 'img ')).LoadFromStream(Ms);
ADOquery1.Post;
Ms.Free ;
//jpg.free;
end;
这样试试
end.