delphi怎样把jpeg图象导入oracle数据库？

Question

create table X(id varchar2(2), bmpfile blob);
代码怎么写？

Answer 1

mybmp:=Tbitmap.Create;
    myimage:=Tjpegimage.Create;
    if image1.Picture.Graphic =nil then
    begin
      mybmp:=nil;
    end
    else
    begin
      myimage.Assign(image1.Picture.Graphic);
      mybmp.Assign(myimage);
    end;    try
    (ADOSection.fieldbyname('Photo') as Tblobfield).Assign(mybmp); //TheGraphic);
    finally
    myimage.Free;
    mybmp.Free;
    end;
我这是写入到SQL SERVER中的，应该在ORCALE中也一样的

Answer 2

procedure TForm1.Button3Click(Sender: TObject);
begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('INSERT into rktx(rktx_jlh,rktx_tx) VALUEs(:filename,EMPTY_BLOB())');
Query1.Parameters.ParamByName('filename').Value := '12345';
Query1.ExecSQL;
Query1.SQL.Clear;
Query1.SQL.Add('UPDATE rktx SET rktx_tx=:pic WHERE rktx_jlh=:filename');
Query1.Parameters.ParamByName('filename').value := '12345';
Query1.Parameters.ParamByName('pic').LoadFromFile('c:\test.jpg', ftBlob);
Query1.ExecSQL;
end;在ORACLE8I后,BLOB类型的已经可以直接insert了,
不需要用UPDATE这种形式的