起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 254|回复: 12

【结贴】数据签名

[复制链接]
发表于 2009-7-22 10:45:01 | 显示全部楼层 |阅读模式
数据签名签入报错

szqm.jpg

13.63 KB, 下载次数: 103

回复

使用道具 举报

 楼主| 发表于 2009-7-22 11:04:20 | 显示全部楼层
图片是1.76KB的jpg没报错
图片是8.6KB的jpg报错
为什么
回复 支持 反对

使用道具 举报

发表于 2009-7-22 14:16:25 | 显示全部楼层
贴图看看,
说说楼主在具体做什么时候出现的?签入是签入平台的资源么?
图片是什么意思?在那里更换的图片?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-7-22 15:12:10 | 显示全部楼层
procedure TMAINFORM.OnQMClick(Sender:TObject);//倒入签名
var
  lStream:TMemoryStream;
begin
  lStream := TBizPublicUtils.GetCurrPersonOfIograph;
  try
    if lStream <> nil then
    begin
       DataSetBroker1.DataSet.FieldByName('Minister').ReadOnly := False;
       DataSetBroker1.DataSet.Edit;
       TBlobField(DataSetBroker1.DataSet.FieldByName('Minister')).LoadFromStream(lStream);
       //if DataSetBroker1.DataSet.FieldByName('MinisterPermissionTime').isnull then
       DataSetBroker1.DataSet.FieldByName('MinisterPermissionTime').AsDateTime:=syssrv.SysService.Time;
       DataSetBroker1.DataSet.Post;
       DataSetBroker1.DataSet.ApplyUpdates;
       DataSetBroker1.DataSet.FieldByName('Minister').ReadOnly := True;
    end;
  finally
    lStream.Free;
  end;
end;
Minister是一个2进制流的字段,用代码导入图片
回复 支持 反对

使用道具 举报

发表于 2009-7-22 15:40:09 | 显示全部楼层
在:
TBlobField(DataSetBroker1.DataSet.FieldByName('Minister')).LoadFromStream(lStream);
加一句看看效果:
lStream.Position := 0;
回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-7-22 16:12:21 | 显示全部楼层
做个例子你看下
图片lq.jpg签名出错 111.jpg签名没问题
不知道为什么

szqm.rar

1.8 MB, 下载次数: 66

回复 支持 反对

使用道具 举报

发表于 2009-7-22 16:55:53 | 显示全部楼层
procedure TSZQMFORM.OnQMClick(Sender:TObject);//倒入签名
var
  lStream:TMemoryStream;
begin
  lStream := TMemoryStream.Create;
  try
    lStream.LoadFromFile('D:\temp\szqm\lq.jpg');
    if lStream <> nil then
    begin
       DataSetBroker1.DataSet.FieldByName('MC').ReadOnly := False;
       DataSetBroker1.DataSet.Edit;
       lStream.Position :=0;
       TBlobField(DataSetBroker1.DataSet.FieldByName('MC')).LoadFromStream(lStream);
       DataSetBroker1.DataSet.Post;
       DataSetBroker1.DataSet.ApplyUpdates;
       DataSetBroker1.DataSet.FieldByName('MC').ReadOnly := True;
    end;
  finally
    lStream.Free;
  end;
end;
我这样做了一下是没有问题的
回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-7-23 08:30:31 | 显示全部楼层
一样的 报一楼的错误
回复 支持 反对

使用道具 举报

发表于 2009-7-23 08:49:54 | 显示全部楼层
回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-7-23 10:57:18 | 显示全部楼层
但是我写入签名也出错
而且图片是1.76KB的jpg没报错
图片是8.6KB的jpg报错
为什么
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-18 16:02 , Processed in 0.045267 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表