DELPHI将图片保存到ORACLE下，二进制流保存到变量出现问题
procedure TForm1.Button1Click(Sender: TObject);
var
myPicture:TJPEGImage;
mem:TMemoryStream;

begin
mem:=TMemoryStream.Create;
myPicture:=TJPEGImage.Create;
if(OpenDialog1.Execute()) then
begin
mem.LoadFromFile(OpenDialog1.FileName);
myPicture.LoadFromFile(OpenDialog1.FileName);
myPicture.SaveToStream(mem);



with ADOQuery1 do
begin

close;
sql.Clear;
sql.Add('insert into imagetest (imgid,imgsize) values(1,"+mem+")');
// TBlobField(ADOQuery1.FieldByName('imgsize')).SaveToStream(mem);
ExecSQL;
end;
mypicture.Free;
mem.Free;
end;
end;
其中myPicture.LoadFromFile(OpenDialog1.FileName);
myPicture.SaveToStream(mem);
是想将用OpenDialog打开的图片二进制流存入变量mem中，但运行时mem为空，求各位大虾帮忙

[解决办法]
TBlobField(ADOQuery1.FieldByName('imgsize')).LoadFromFile();

会调用LoadFromStream
procedure TBlobField.LoadFromFile(const FileName: string);
var
Stream: TStream;
begin
Stream := TFileStream.Create(FileName, fmOpenRead);
try
LoadFromStream(Stream);
finally
Stream.Free;
end;
end;
[解决办法]
帮你整理一下，自己测试

Delphi(Pascal) code

procedure TForm1.Button1Click(Sender: TObject);var  mem:TMemoryStream;begin  mem:=TMemoryStream.Create;  try  if OpenDialog1.Execute then  begin    mem.LoadFromFile(OpenDialog1.FileName);    mem.Position:=0;    with ADOQuery1 do    begin      close;      sql.Clear;      sql.Add('insert into imagetest (imgid,imgsize) values(1,:mem)');      Parameters.ParamByName('mem').Assign(mem);      ExecSQL;    end;  end;  finally    mem.Free;  end;end;