delphi oracle存取照片问题

虎滴小猪猪 2013-01-25 10:09:58



procedure TMainForm.btnInputPhotoInfoClick(Sender: TObject);

var

  bRst: Boolean;

  msStream: TMemoryStream;

  iSize: Int64;

begin

  if img111.Picture.Graphic = nil then

  begin

    ShowMsg('照片不能为空');

    Exit;

  end;

  msStream := TMemoryStream.Create;

  img111.Picture.Graphic.SaveToStream(msStream);

  msStream.Position := 0;

  bRst := SaveReaderPhoto(Trim(edtCode112.Text),msStream);

  if bRst then

  begin

    ShowMsg('保存照片成功');

  end

  else ShowMsg('保存照片失败');

  FreeAndNil(msStream);

end;



function SaveReaderPhoto(const A_sBarCode: string;

  A_msStream: TMemoryStream): Boolean;

begin

  Result := False;

    with SysDM.OraqryReaderInfoData do

    begin

      SQL.Text :=

        'update readerinfo set reader_photo= empty_blob()' +

        ' where reader_barcode = :BarCode';

      ParamByName('BarCode').AsString := Trim(A_sBarCode);

      ExecSQL;

      Close;

      SQL.Text :=

        'update readerinfo set reader_photo = :photo' +

        ' where reader_barcode = :BarCode';

      ParamByName('BarCode').AsString := Trim(A_sBarCode);

      A_msStream.Position := 0;

      ParamByName('photo').LoadFromStream(A_msStream,ftBlob);

      try

        ExecSQL;

           Result := True;

      except

        on E:Exception do

        begin

          WriteLog('Melinets_SaveReaderPhoto/' + E.Message);

        end;

      end;

      Close;

    end;

end;

以上是源码，但是存入到库以后，是空的，谁能帮我看看啊，

...全文

458 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

虎滴小猪猪 2013-08-21

打赏
举报

Delphi7 中使用ODAC存取图片说明：ODAC组件我不熟悉，在使用它存取图片的时候，特别注意sql的写法。（转载） ODAC 组件支持 Oracle8 的 BLOB 和 CLOB 数据类型。你可以使用TOraQuery 组件来获取 LOB 字段的值，BLOB 和 CLOB 数据类型通过LOB 定位器(指定数据地址) 存储在表列中；实际的 BLOB 和 CLOB 数据存储在独立的表空间中。当存取 LOB 列时，返回的是定位器。要初始化LOB 定位器，你必须使用EMPTY_BLOB 或 EMPTY_CLOB Oracle 函数。要返回初始化后的定位器，应在同样的语句中使用RETURNING 子句。 ODAC 写LOB 数据到Oracle 且返回初始值字段，需使用：值参数. 对 ODAC 来说，在LOB 操作中使用 ParamType 属性是非常重要的。如果ParamType 是 ptInput ， ODAC 写数据到服务器，如果ParamType 是 ptOutput，它则读取数据. 以下两个例子是从Oracle10g中存/取jpg和bmp图片，需要注意的是在存图片的时候SQL语句的写法。（1）存图片 procedure TNewStamp.BitBtn3Click(Sender:TObject); var pic:TMemoryStream; pjpg:tjpegimage; pjpeg:tjpegimage; bmp:tbitmap; begin {//jpg图片 pjpeg:=tjpegimage.Create; pjpg:=tjpegimage.Create; pjpg.LoadFromFile(‘C:\1112.jpg’); pic:=TMemoryStream.Create; pjpg.SaveToStream(pic); pic.Position:=0; pjpeg.LoadFromStream(pic); image1.Picture.Assign(pjpeg); login.SmartQuery1.Close; login.SmartQuery1.SQL.Clear; login.SmartQuery1.SQL.Add(‘insert into TEST(TEST1,TEST2) VALUES(:t1,EMPTY_BLOB()) returning TEST2 into:TEST2′); login.SmartQuery1.ParamByName(‘t1′).AsString:=’123′; login.SmartQuery1.ParamByName(‘TEST2′).ParamType:=ptInput; login.SmartQuery1.ParamByName(‘TEST2′).AsOraBlob.LoadFromStream(pic); login.SmartQuery1.Prepare; login.SmartQuery1.ExecSQL; } //bmp图片 bmp:=tbitmap.Create; pic:=TMemoryStream.Create; bmp.LoadFromFile(‘C:\122.bmp’); bmp.SaveToStream(pic); pic.Position:=0; login.SmartQuery1.Close; login.SmartQuery1.SQL.Clear; login.SmartQuery1.SQL.Add(‘insert into TEST(TEST1,TEST2) VALUES(:t1,EMPTY_BLOB()) returning TEST2 into:TEST2′); login.SmartQuery1.ParamByName(‘t1′).AsString:=’124′; login.SmartQuery1.ParamByName(‘TEST2′).ParamType:=ptInput; login.SmartQuery1.ParamByName(‘TEST2′).AsOraBlob.LoadFromStream(pic); login.SmartQuery1.Prepare; login.SmartQuery1.ExecSQL; end; （2）取图片 procedure TNewStamp.BitBtn2Click(Sender:TObject); var pic:TMemoryStream; pjpeg:tjpegimage;//jpg格式图片 bmp:tbitmap;//bmp格式图片 begin login.OraQuery1.SQL.Clear; login.OraQuery1.SQL.Add(‘select * from TEST ‘); login.OraQuery1.AutoCommit:= false; login.OraQuery1.FetchAll:= true; login.OraQuery1.Open; if login.OraQuery1.RecordCount = 0 then begin showmessage(‘没有记录’); exit; end; bmp:=tbitmap.Create; pjpeg:=tjpegimage.Create; pic:=TMemoryStream.Create; TBlobField(login.OraQuery1.fieldbyname(‘TEST2′)).savetostream(pic); pic.Position:=0; bmp.LoadFromStream(pic); bmp.SaveToFile(‘C:\122.bmp’); image1.Picture.Assign(bmp); pic.Free; end; ODAC 组件支持Oracle 8 的BLOB 和 CLOB 数据类型。你可以使用TOraQuery 组件来获取LOB 字段的值，使用同样的方法，你也可以获取 LONG 或LONG ROW 字段。当你需要使用 SQL DML 及 PL/SQL 语句存取这些字段时，你就会发现 LOB 数据类型的用法有明显的不同。 BLOB 和CLOB 数据类型通过LOB 定位器(指定数据地址) 存储在表列中；实际的 BLOB 和 CLOB 数据存储在独立的表空间中。与之不同的是，LONG 或LONG RAW 类型存储在数据库中，表中存放着它们的实际值。当存取LOB 列时，返回的是定位器，而不像LONG 或LONG RAW 数据类型那样返回它的实际值。例如，分析这个表的定义： CREATE TABLE ClobTable ( Id NUMBER, Name VARCHAR2(30), Value CLOB ) 如果我们不通过值参数初始化LOB 定位器，Oracle 将不允许使用下面的语句来更新数据表： UPDATE ClobTable SET Name = :Name, Value = :Value WHERE Id = :Id 要初始化LOB 定位器，你必须使用EMPTY_BLOB 或EMPTY_CLOB Oracle 函数。要返回初始化后的定位器，应在同样的语句中使用 RETURNING 子句。例如： UPDATE ClobTable SET Name = :Name, Value = EMPTY_CLOB() WHERE Id = :Id RETURNING Value INTO :Value ODAC 写 LOB 数据到 Oracle 且返回初始值字段，需使用：值参数。存储过程允许自动初始化 LOB 值，方法如下： CREATE OR REPLACE PROCEDURE ClobTableUpdate (p_Id NUMBER, p_Name VARCHAR2, p_Value OUT CLOB) is begin UPDATE ClobTable SET Name = p_Name, Value = EMPTY_CLOB() WHERE Id = p_Id RETURNING Value INTO p_Value; end; 注意：值参数被声明为OUT。同时，设置LOB 数据类型的参数的ParamType 属性为ptInput ，且指定它到所需的数据前来实际调用存储过程。我们可以这样调用前面声明的存储过程： OraStroredProc1.StoredProcName := ’ClobTableUpdate’; OraStroredProc1.Prepare; OraStroredProc1.ParamByName(’p_Id’).AsInteger := Id; OraStroredProc1.ParamByName(’p_Name’).AsString := Name; OraStroredProc1.ParamByName(’Value’).ParamType := ptInput; OraStroredProc1.ParamByName(’Value’).AsCLOBLocator.LoadFromFile(FileName); OraStroredProc1.Execute; 对ODAC 来说，在LOB 操作中使用 ParamType属性是非常重要的。如果 ParamType 是 ptInput ， ODAC 写数据到服务器，如果ParamType 是 ptOutput，它则读取数据。你可以使用 LOB 参数的dtBlob 和dtMemo 数据类型来编写普通的DML 语句。在这种情况下，Oracle 自动将 LONG 和 LONG ROW 类型的值转换为 CLOB 或BLOB 数据。