H
hongtaosh
Unregistered / Unconfirmed
GUEST, unregistred user!
请教：想把一幅图存入Access数据库，按下button1后老说"Invalid BLOB length",（Image字段类型为OLE），请问怎么办？
procedure TForm1.FormShow(Sender: TObject);
begin
Image1.Canvas.Ellipse(50,50,200,200);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
stream:TMemoryStream;
begin
try
stream:=TMemoryStream.Create;
image1.Picture.Bitmap.SaveToStream(stream);
with table1 do
begin
Open;
edit;
TBlobField(table1.FieldByName('Image')).LoadFromStream(stream);
post;
end;
finally
stream.Free;
end;
end;
end.
procedure TForm1.FormShow(Sender: TObject);
begin
Image1.Canvas.Ellipse(50,50,200,200);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
stream:TMemoryStream;
begin
try
stream:=TMemoryStream.Create;
image1.Picture.Bitmap.SaveToStream(stream);
with table1 do
begin
Open;
edit;
TBlobField(table1.FieldByName('Image')).LoadFromStream(stream);
post;
end;
finally
stream.Free;
end;
end;
end.