数据库存储图片问题

wangqing01 2006-04-06 10:04:03
如果把图片直接存储到数据库上,数据就很大.运行慢,不宜备分,但是保存图片路径,在C/S中就得访问数据库服务器,难道每次都要输入用户名密码什么的吗?即使把用户名和密码作成参数也不太方便吧,又更好得方法吗?
...全文
136 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
huangheng1983 2006-04-12
  • 打赏
  • 举报
回复
use jpeg
就可以使用JPG图片了。
其实有一个很简单的方法存取图象(仅限BMP和JPEG)到数据库字段中,不需要使用流,我初学还不会流。
这是我的一个代码:

unit Unitpic;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBCtrls, StdCtrls, DB, Grids, DBGrids, ADODB, Mask;

type
TForm1 = class(TForm)
ADOTable1: TADOTable;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
ADOTable1DSDesigner: TWideStringField;
ADOTable1DSDesigner2: TWideStringField;
ADOTable1DSDesigner3: TBlobField;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
DBImage1: TDBImage;
OpenDialog1: TOpenDialog;
DBEdit1: TDBEdit;
DBComboBox1: TDBComboBox;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure DBImage1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if not adotable1.Bof then
adotable1.Prior;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if not adotable1.Eof then
adotable1.Next;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
adotable1.Insert;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
adotable1.Delete;
if adotable1.Eof then
showmessage('没有数据了!');
end;

procedure TForm1.DBImage1Click(Sender: TObject);
begin
if opendialog1.Execute then
begin
adotable1.Edit;
ADOTable1DSDesigner3.LoadFromFile(opendialog1.FileName);
end;
end;

end.
wangqing01 2006-04-11
  • 打赏
  • 举报
回复
我说的是访问外部图片文件
todouwang 2006-04-11
  • 打赏
  • 举报
回复
数据库连接控件都有loginPrompt属性,设置成False,就不用每次都填用户和密码了

2,505

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧