欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

delphi oracle存取照片有关问题

更新时间: 2014-01-05 02:14:54 责任编辑: Author_N1

 

delphi oracle存取照片问题

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;
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 02:14:54
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/7519/
本文WWW.DOC100.NET DOC100.NET版权所有。