在线等类型转换问题!!在线!!!

StyxExtraditer 2005-10-24 04:22:42
因为客户需要对字体信息进行保存,所以一篇文档我以流的形式保存在数据库里!!
现在碰到个问题,因为我取数据的时候也是按流取的
但是取出来的东西我要用到POS这个函数
有什么东西是把流文件转换成字符串的东西!!

比较急!!在线等!!

...全文
143 10 打赏 收藏 转发到动态 举报
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
小呆之家 2005-10-25
  • 打赏
  • 举报
回复
var
buffer:string;
temp:tmemorystream;
i:integer;
begin
temp:=tmemorystream.create;

try
TBlobField(ADOQuery1.Fields[0]).SaveToStream(temp);
temp.position:=0;
i:=temp.size;
setlength(buffer,i);
temp.read(buffer,i);

finally
freeandnil(temp);
end;
end;
//----------给你参考下吧 :)
StyxExtraditer 2005-10-25
  • 打赏
  • 举报
回复
郁闷了!!没人回答啊
StyxExtraditer 2005-10-24
  • 打赏
  • 举报
回复
长度未知!!怎么读??
读到BUFF???
没玩过。。。。。
能具体点吗???
imho888 2005-10-24
  • 打赏
  • 举报
回复
先按长度把流读到一Buff里,
s:=pchar(@Buff[0]);就行了。
StyxExtraditer 2005-10-24
  • 打赏
  • 举报
回复
报错内容为:


Control '' has no parent window
StyxExtraditer 2005-10-24
  • 打赏
  • 举报
回复
本来取出来的流信息就是用RichEdit显示的

曾经试过S:=RichEdit1.line.text


但是报错
konhon 2005-10-24
  • 打赏
  • 举报
回复
用DBRichEdit控件試試, 將PlainText屬性設為True
StyxExtraditer 2005-10-24
  • 打赏
  • 举报
回复
TempStream:=FieldByName('内容').DataSet.CreateBlobStream(FieldByName('内容'),bmRead);

到这一步!!把流读出来.

再咋搞???
StyxExtraditer 2005-10-24
  • 打赏
  • 举报
回复
咋玩???
aiirii 2005-10-24
  • 打赏
  • 举报
回复
TStringStream 就是你要的

2,496

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧