我的保存代码如下: implementation uses jpeg,unit2; {$R *.dfm}procedure TForm1.Button1Click(Sender: TObject); begin opendialog1.Filter:='图形文件(*.jpg)|*.jpg'; if openpicturedialog1.Execute then begin table1.Active:=true; table1.Append; dbimage1.Picture.LoadFromFile(openpicturedialog1.FileName); end; end; procedure TForm1.Button2Click(Sender: TObject); begin table1.Post; end; 我相信它没错,字段里应该有数据吧?如果错了请帮我改写好吗? 浏览代码是不是也不能浏览*.bmp呢?
procedure TForm1.Button1Click(Sender: TObject); begin openpicturedialog1.Filter:='图形文件(*.jpg)¦*.jpg'; if openpicturedialog1.Execute then begin table1.Active:=true; table1.Append; TBlobField(Table1.FieldByName('YourPictueFieldName')).LoadFromFile(OPenPictureDialog1.FileName); end; end; end; procedure TForm1.Button2Click(Sender: TObject); begin table1.Post; end;
implementation
uses jpeg,unit2;
{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
opendialog1.Filter:='图形文件(*.jpg)|*.jpg';
if openpicturedialog1.Execute then begin
table1.Active:=true;
table1.Append;
dbimage1.Picture.LoadFromFile(openpicturedialog1.FileName);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
table1.Post;
end;
我相信它没错,字段里应该有数据吧?如果错了请帮我改写好吗?
浏览代码是不是也不能浏览*.bmp呢?
begin
openpicturedialog1.Filter:='图形文件(*.jpg)¦*.jpg';
if openpicturedialog1.Execute then
begin
table1.Active:=true;
table1.Append;
TBlobField(Table1.FieldByName('YourPictueFieldName')).LoadFromFile(OPenPictureDialog1.FileName);
end;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
table1.Post;
end;