使用TMemoryStream
var BlobField1:TBlobField;
TmpStream:TMemoryStream;
TmpStream:=TMemoryStream.Create;
RichEdit1.lines.SaveToStream(TmpStream);
TmpStream.position:=0;
AdoQuery1.Append;
BlobField1:=(TBlobField)AdoQuery1.FieldByName('content');
BlobField1.LoadFromStream(TmpStream);
AdoQery1.post;
var BlobField1:TBlobField;
TmpStream:TMemoryStream;
TmpStream:=TMemoryStream.Create;
RichEdit1.lines.SaveToStream(TmpStream);
TmpStream.position:=0;
AdoQuery1.Append;
BlobField1:=(TBlobField)AdoQuery1.FieldByName('content');
BlobField1.LoadFromStream(TmpStream);
AdoQery1.post;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货