Z
zjwyyh
Unregistered / Unconfirmed
GUEST, unregistred user!
我是用如下方法向库中存入图片,总是无法保存??
procedure TIWForm1.IWButton1Click(Sender: TObject);
begin
if openpicturedialog1.Execute then
begin
datamodule1.ADOTable1.Edit;
IWDBimage1.Picture.LoadFromFile(openpicturedialog1.FileName);
end;
end;
procedure TIWForm1.IWButton2Click(Sender: TObject);
begin
datamodule1.ADOTable1.Post;
end;
procedure TIWForm1.IWButton1Click(Sender: TObject);
begin
if openpicturedialog1.Execute then
begin
datamodule1.ADOTable1.Edit;
IWDBimage1.Picture.LoadFromFile(openpicturedialog1.FileName);
end;
end;
procedure TIWForm1.IWButton2Click(Sender: TObject);
begin
datamodule1.ADOTable1.Post;
end;