5,388
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
cjs5210 2003-08-29
- 打赏
- 举报
学习
dengyueguang 2003-08-29
- 打赏
- 举报
嘿嘿，又学了一招。
zousoft 2003-08-29
- 打赏
- 举报
楼上说的也对呀。
jpyc 2003-08-29
- 打赏
- 举报
http://218.56.11.178:8020/web/index.aspx
-> 下载基地 ->例程-数据库/报表->数据库图片bmp/jpg存储(Accsee)
-> 下载基地 ->例程-数据库/报表->数据库图片bmp/jpg存储(Accsee)
samcrm 2003-08-28
- 打赏
- 举报
直接存到数据库会导致数据库个头急剧膨胀。
最好保存图片的路径信息即可。
最好保存图片的路径信息即可。
chenwei62 2003-08-28
- 打赏
- 举报
流星的作法已经可以了，楼主结贴吧。
xiaoyuer0851 2003-08-23
- 打赏
- 举报
同意楼上的意见，楼主，你使用什么数据库
然后图片字段的类型设置为什么呢 ？
然后图片字段的类型设置为什么呢 ？
LiuXing123 2003-08-23
- 打赏
- 举报
var Pjpg:Tjpegimage;
filestr:string;
begin
filestr:='';
if OpenPictureDialog1.Execute then
filestr:=trim(OpenPictureDialog1.FileName)
else
exit;
if length(filestr)>0 then; //.OnShow;
begin
if lowercase(RightStr(filestr,3))='jpg' then //jpg
begin
Pjpg:=Tjpegimage.Create;
pjpg.LoadFromFile(filestr);
dbimage1.Picture.Graphic.Assign(pjpg);
pjpg.Free;
end
else //bmp
dbimage1.Picture.Graphic.LoadFromFile(filestr);
end;
filestr:string;
begin
filestr:='';
if OpenPictureDialog1.Execute then
filestr:=trim(OpenPictureDialog1.FileName)
else
exit;
if length(filestr)>0 then; //.OnShow;
begin
if lowercase(RightStr(filestr,3))='jpg' then //jpg
begin
Pjpg:=Tjpegimage.Create;
pjpg.LoadFromFile(filestr);
dbimage1.Picture.Graphic.Assign(pjpg);
pjpg.Free;
end
else //bmp
dbimage1.Picture.Graphic.LoadFromFile(filestr);
end;
madyak 2003-08-22
- 打赏
- 举报
存入：
TBlobField(Table.FieldByName('tp')).LoadFromFile(d:\a.jpg);
取出
TBlobField(Table.FieldByName('tp')).SaveToFile(d:\a.jpg);
