WideString类型写入数据库image字段???

kugoo2338903 2010-06-25 11:26:07
WideString类型如何写入到数据库image字段???
反之又是怎么实现的????
...全文
159 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
haitao 2010-06-26
  • 打赏
  • 举报
回复
widestring?还不如ansistring来的明确吧
kugoo2338903 2010-06-26
  • 打赏
  • 举报
回复
[Quote=引用 1 楼 avan_lau 的回复:]
Stream: TMemoryStream;
//读取
TBlobField(FieldByName('BlobField')).SaveToStream(Stream);
//保存
TBlobField(FieldByName('BlobField')).LoadFromStream(Stream);
//读到字串变量的内存
Stream.Posion := 0 ;
Stream.……
[/Quote]

这是读写到数据库的过程,那读之后,写之前,是怎么和widestring这个类型的字符串转换的呢
kugoo2338903 2010-06-26
  • 打赏
  • 举报
回复
我用的是D7,好像编译也通不过
kugoo2338903 2010-06-26
  • 打赏
  • 举报
回复
上面的大侠,这是读写到数据库的过程,那读之后,写之前,是怎么和widestring这个类型的字符串转换的呢
wzwcn 2010-06-26
  • 打赏
  • 举报
回复
这样读:
var bStream:TStream;
s:String;
begin
bStream:=TBlobStream.Create(TBlobField(Table1.FieldByName('Field1')),bmRead);
try
SetLength(s,bStream.Size div 2);
bStream.Read(Pchar(s)^,bStream.Size);
showmessage(s);
finally
bStream.Free;
end;
end;
wzwcn 2010-06-26
  • 打赏
  • 举报
回复
如果是Delphi2009或者Delphi2010可以这样写:
var bStream:TStream;
s:String;
begin
s:='中国abcdefg';//要写入的值
Table1.Edit;
bStream:=TBlobStream.Create(TBlobField(Table1.FieldByName('Field1')),bmWrite);
try
bStream.Write(Pchar(s)^,ByteLength(s));
Table1.Post;
finally
bStream.Free;
end;
end;
金卯刀 2010-06-26
  • 打赏
  • 举报
回复
Stream: TMemoryStream;
//读取
TBlobField(FieldByName('BlobField')).SaveToStream(Stream);
//保存
TBlobField(FieldByName('BlobField')).LoadFromStream(Stream);
//读到字串变量的内存
Stream.Posion := 0 ;
Stream.Read(...)
//由字串写到流中
Stream.Posion := 0 ;
Stream.write(...)

16,748

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
  • 语言基础/算法/系统设计社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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