DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: wjy13061029975
今日帖子: 3
在线用户: 3
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 beginner999 (beginner999) ★☆☆☆☆ -
盒子活跃会员
2003/6/2 17:11:25
标题:
如何将一个bmp图像放大或缩小后再存,大小由我们自己决定 浏览:2537
加入我的收藏
楼主: 请速回复,感谢!
----------------------------------------------
-
作者:
男 boy (阿門) ★☆☆☆☆ -
盒子活跃会员
2003/6/3 2:20:32
1楼: 改變圖像大小
Image1.Stretch:=True;
Image1.Height
Image1.Width
----------------------------------------------
Delphi開發◆伺服器架設◆免安裝APACHE,PHP,CGI Perl, MYSQL ★
作者:
男 boy (阿門) ★☆☆☆☆ -
盒子活跃会员
2003/6/3 2:24:08
2楼:
將 BMP圖形存到Blob Field:

TBlobField(Table1.FieldByName('LOGO')).LoadFromFile(OpenDialog1.FileName);
----------------------------------------------
Delphi開發◆伺服器架設◆免安裝APACHE,PHP,CGI Perl, MYSQL ★
作者:
男 boy (阿門) ★☆☆☆☆ -
盒子活跃会员
2003/6/3 2:28:29
3楼: 如何將圖片文件存到數據庫中。
http://www.2ccc.com/bbs/topic.asp?topicid=17933

未驗証

var bmp:Tbitmap
procedure Torm.openbuttonclick(sender:tobject);
begin
    if opendialog1.execute then
       image1.picture.loadfromfile(opendialog1.filename);
end;

procedure tform1.appendclick(sender:tobject);
begin
    table1.append;
    bmp:=Tbitmap.create;
    bmp.assign(image.picture.bitmap);
    table1.fields[0].assign(bmp);   
   //table1中就一個字段,為圖符型
    table1.post;
end;
----------------------------------------------
Delphi開發◆伺服器架設◆免安裝APACHE,PHP,CGI Perl, MYSQL ★
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行85.9375毫秒 RSS