DELPHI将图片保存到ORACLE下，二进制流保存到变量存不进去，高分想求，急～
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').LoadFromStream(mem,ftblob);
//TBlobField(Parameters.ParamByName('mem').Assign(mem));
ExecSQL;
end;
end;
finally
mem.Free;
end;
end;
[解决办法]
那就改成用ADOQuery1的POST方式吧，用ADOQuery1自动生成的SQL语句
[解决办法]
with ADOQuery1 do
begin
Append;
//...................改成这种方式提交试试
TBlobField(FieldByName('Exe_Bin')).LoadFromFile(FileName);
Post;
end;
[解决办法]
