如何在数据库中保存图片,谢谢(50分)

A

aaere

Unregistered / Unconfirmed
GUEST, unregistred user!
如何在数据库中保存图片,用DELPHI如何添加图片到数据库,又如何读取
 

保存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;
 
function SaveBlob(const FileName: string): string;
begin
if FileExists(FileName) then
begin
with TfileStream.Create(FileName, fmopenread) do
try
SetLength(Result, size);
read(pointer(Result)^, size);
finally
Free;
end;
end
else begin
Application.MessageBox('你选择的图片文件不存在!', '提示', MB_OK + MB_DEFBUTTON1 + MB_ICONInformation);
exit;
end;
end;
 
可能这两位老兄已经解决了你的问题,我还帮你顶一下。
 
下载个380M的离线论坛

好好搜索一下。

这种问题以后别问了。
 
顶部