///jpeg单元必须增加
uses jpeg;
.....
procedure Tchgform.Button7Click(Sender: TObject);
var
filename :string;
Ms:TmemoryStream;
begin
if openpic.Execute then
begin
filename:=openpic.FileName;
ms := TMemorystream.Create();
try
ms.LoadFromFile(filename);
Ms.Position :=0;
with tadoquery.Create(self) do
begin
close;
sql.Clear;
sql.Add('select * from aa where id=1';
open;
if eof then
begin
msgboxi('更改无效！');
ms.Free;
exit;
end;
edit;
TBlobfield(FieldByName('img')).LoadFromStream(Ms);
post;
free;
end;
ms.Free;
except
begin
msgboxi('数据提交错误，你所做的更改无效，请重试');
end;
end;
end;
end;
