数据库中图片的保存问题 各位大哥! 我想把临时表(table1)中的图片存放到期(table2)中去! 这样才能实现! 请各位帮忙急用! 谢谢见者有分! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 (table.fieldbyname('pic') as BlobField).assign(table2.fieldbyname('pic')) 提供一些代码!unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, DBTables, StdCtrls, ExtDlgs, ExtCtrls;type TForm1 = class(TForm) GroupBox1: TGroupBox; DataSource1: TDataSource; Table1: TTable; Button1: TButton; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Label1: TLabel; Label2: TLabel; Edit4: TEdit; Label3: TLabel; Label4: TLabel; Image1: TImage; Button2: TButton; OpenPictureDialog1: TOpenPictureDialog; procedure FormCreate(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);begin table1.Active:= true;end;procedure TForm1.Button2Click(Sender: TObject);begin if OpenPictureDialog1.execute then image1.picture.loadfromfile(OpenPictureDialog1.filename);end;procedure TForm1.Button1Click(Sender: TObject);var bmp: TBitmap;begin bmp:=TBitmap.Create; bmp.Assign(Image1.Picture.Bitmap); table1.Append; table1.fieldbyname('name').asstring:=edit1.text; table1.fieldbyname('telephone').asstring:=edit2.text; table1.fieldbyname('address').asstring:=(edit3.text); table1.fieldbyname('zip').asstring:=(edit4.text); table1.fields[4].assign(bmp); table1.post; bmp.free;end;end.有问题请发信息到我的E-mail:[email protected]来信请把问题的网址粘贴上。 为什么会除错? ado的奇怪问题 DBDateTimeEditEH1.Value的问题? JuckFapan来领分 哪里有bt协议的文档? 如何在将数据导入excel时操纵excel中的属性? 关于利用MODEM远程文件传输,吐血送分,恳请帮助! delphi dbgrid列的拖動 DELPHI有史以来最大的难题! !!!!!负载平衡问题,大师级人物请进来,入门者回避,送分! dbExpress的SQLConnnection连ORACLE,在开发机上正常,到用户机上都不通,为什么? adotable.state的返回状态问题?在线等候!
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, StdCtrls, ExtDlgs, ExtCtrls;type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
DataSource1: TDataSource;
Table1: TTable;
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
Edit4: TEdit;
Label3: TLabel;
Label4: TLabel;
Image1: TImage;
Button2: TButton;
OpenPictureDialog1: TOpenPictureDialog;
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
table1.Active:= true;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
if OpenPictureDialog1.execute then
image1.picture.loadfromfile(OpenPictureDialog1.filename);
end;procedure TForm1.Button1Click(Sender: TObject);
var
bmp: TBitmap;
begin
bmp:=TBitmap.Create;
bmp.Assign(Image1.Picture.Bitmap);
table1.Append;
table1.fieldbyname('name').asstring:=edit1.text;
table1.fieldbyname('telephone').asstring:=edit2.text;
table1.fieldbyname('address').asstring:=(edit3.text);
table1.fieldbyname('zip').asstring:=(edit4.text);
table1.fields[4].assign(bmp);
table1.post;
bmp.free;
end;end.
有问题请发信息到我的E-mail:[email protected]
来信请把问题的网址粘贴上。