Delphi如何将Jpg图象存入MS SQL Server中.(100分)

  • 主题发起人 zhouming2
  • 开始时间
TBlobField.LoadFromFile('xxxx.jpg');
 
保存jpg:
TBlobField(query1.Fields[n]).LoadFrom('xxx.jpg');

读取并显示jpg:
var
Mem: TMemoryStream;
Jpg: TJpegImage;
begin
mem:=TMemoryStream.Create;
Jpg:=TJpegImage.Create;
TBlobField(query1.Fields[n]).SaveToStream(mem);
Jpg.LoadFromStream(mem);
image1.picture.Bitmap.Assign(Jpg);
mem.Free;
Jpg.Free;
end;
 
参看已回答的问题
 
接受答案了.
 

Similar threads

回复
0
查看
813
不得闲
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
顶部