我存入图片,编译通不过
难道TBlobField需要自己定义吗?procedure TForm2.BitBtn1Click(Sender: TObject);
var
jsq:integer;
begin
if OpenPictureDialog1.Execute then
begin
form1.ADOQuery2.Insert;
TBlobField(form1.ADOQuery2.FieldByName('照片')).LoadFromFile(OpenPictureDialog1.FileName);
form1.ADOQuery2.FieldByName('照片编号').Text:=OpenPictureDialog1.FileName;
form1.ADOQuery2.Post;
Memo1.Lines.Add(OpenPictureDialog1.Files[0]);
if CheckBox1.Checked=true then
begin
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;
ProgressBar1.Max:=100;
for jsq:=0 to 100 do
begin
ProgressBar1.Position:=jsq;
end;
end
end;
难道TBlobField需要自己定义吗?procedure TForm2.BitBtn1Click(Sender: TObject);
var
jsq:integer;
begin
if OpenPictureDialog1.Execute then
begin
form1.ADOQuery2.Insert;
TBlobField(form1.ADOQuery2.FieldByName('照片')).LoadFromFile(OpenPictureDialog1.FileName);
form1.ADOQuery2.FieldByName('照片编号').Text:=OpenPictureDialog1.FileName;
form1.ADOQuery2.Post;
Memo1.Lines.Add(OpenPictureDialog1.Files[0]);
if CheckBox1.Checked=true then
begin
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;
ProgressBar1.Max:=100;
for jsq:=0 to 100 do
begin
ProgressBar1.Position:=jsq;
end;
end
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货