报错: 缺少所需的空白区 ms:= TMemoryStream.Create;
SOAPAttach.SaveToStream(ms);
TBlobField(rs.FieldByName('FileData')).LoadFromStream(ms);自己感觉应该是 TMemoryStream.Create 创建的时候没有不足。
这个是什么原因?
SOAPAttach.SaveToStream(ms);
TBlobField(rs.FieldByName('FileData')).LoadFromStream(ms);自己感觉应该是 TMemoryStream.Create 创建的时候没有不足。
这个是什么原因?
解决方案 »
- 贴图,怎么把本地的图片贴上去啊?
- 求:数据库SQL SERVER保存读取图片例程。(jpg和bmp格式)
- 请教个关于程序控制文件读写的问题
- 如何生成另外一个exe程序(愿以传奇木马原代码做酬谢)
- 关于自动生成编号的问题!
- delphi7+ado+access2000开发的程序,能在没有安装access2000的机器上运行吗?
- 大哥大姐门帮帮俺,菜鸟在线等到。。。
- 关于转化string至olevariant或widestring中文会出错的问题。
- 救命啊~~~~~~~~~~~~MIDAS传递Variant数组
- help help help help help help help help help help
- 谁有delphi三层架构的例子
- delphi 中ftp下载运行
ms:= TMemoryStream.Create;
try
MS.postion:=0;
SOAPAttach.SaveToStream(ms);
TBlobField(rs.FieldByName('FileData')).LoadFromStream(ms);
finally
ms.free;
end;
ms:= TMemoryStream.Create;
MS.postion:=0;
SOAPAttach.SaveToStream(ms);
rs.Append;
TBlobField(rs.FieldByName('FileData')).LoadFromStream(ms);
rs.Post;
finally
ms.free;
end;
ms:= TMemoryStream.Create;
SOAPAttach.SaveToStream(ms);
MS.seek(0,sobeginning); rs.Append;
TBlobField(rs.FieldByName('FileData')).LoadFromStream(ms);
rs.Post;
finally
ms.free;
end;
这是原来的
rs.Open;
rs.Append;
rs.FieldByName('Datetime').AsDateTime:= now;
rs.FieldByName('Customer').AsString:= Customer;
rs.FieldByName('FileName').AsString:= FName;
rs.FieldByName('FileType').AsString:= FType;
rs.FieldByName('Status').AsString:= '1'; ms:= TMemoryStream.Create;
SOAPAttach.SaveToStream(ms);
TBlobField(rs.FieldByName('FileData')).LoadFromStream(ms); rs.Post;
rs.Free; //释放
ms.Free;
这是原来的
rs.Open;
rs.Append;
rs.FieldByName('Datetime').AsDateTime:= now;
rs.FieldByName('Customer').AsString:= Customer;
rs.FieldByName('FileName').AsString:= FName;
rs.FieldByName('FileType').AsString:= FType;
rs.FieldByName('Status').AsString:= '1'; ms:= TMemoryStream.Create;
SOAPAttach.SaveToStream(ms);
TBlobField(rs.FieldByName('FileData')).LoadFromStream(ms); rs.Post;
rs.Free; //释放
ms.Free;
rs.Free; //释放
这句执行之后MS的指针会指向末尾,所以当下一句TBlobField(rs.FieldByName('FileData')).LoadFromStream(ms); 执行的时候会出错,需要这样SOAPAttach.SaveToStream(ms);
MS.postion:=0;
TBlobField(rs.FieldByName('FileData')).LoadFromStream(ms);
SoapAttach: TSOAPAttachment
应该是SoapAttach 的远程传输的时间设置问题吧
只要过了30秒就会报错。谁知道这个时间是那里怎么设置的???