DELPHI编程流转换如何操作

2011-11-07 05:10:37 336 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Hermes+MemOS记忆系统：用SQLite构建可编辑AI个人认知资产 AI记忆不是简单延长上下文或叠加RAG，而是构建具备分层存储、混合检索与自然语言反馈能力的个人认知资产。其核心原理在于将用户交互痕迹（L1）、偏好策略（L2）、结构化世界模型（L3）和结晶化技能统一管理，实现记忆的可追溯、可修正、可进化。技术价值体现在降低token消耗、提升长程一致性、支持离线演进，并突破传统‘静态快照’式知识库局限。典型应用场景包括个人知识助手、客服工单分析Agent、研发文档理解系统等。本文聚焦Hermes Agent与MemOS深度集成方案，详解SQLite作为ACID底座支撑L1/ 阅读详情

DELPHI编程流转换如何操作

原题是将
WORD文件加载到控件DBRichEdit中并将内存流进行编码转换成字符串保存到控件
Memo1_Words和控件Memo1_ssBlob中
代码如下：
if (length(OpenDialog1.FileName)=0 ) then
begin
showmessage('没有加载文件');
exit;
end;
MSStream:=TMemoryStream.Create;
try
MSStream := TMemoryStream.Create; // 创建内存流
TSString := TStringStream.Create('');

DBRichEdit.Lines.LoadFromFile(OpenDialog1.FileName);
DBRichEdit.Lines.SaveToStream(MSStream);

MSStream.Position:=0;
//引用单元 EncdDecd,才能引用函数EncodeStream和DecodeStream
//DecodeStream(Tss,Tms);//在这个位置是将base64转为内存流
EncodeStream(MSStream,TSString); //将内存流转化base64
ssBlob:=TSString.DataString; //转换成字符串
Memo1_Words.Text :=ssBlob; //保存为字符串
Memo1_ssBlob.Text :=ssBlob; //保存为字符串
finally
MSStream.Free;
TSString.Free;
end;
//=====================================================================
我现在的问题想再将Memo1_ssBlob内的字符再次转换到控件DBRichEdit02中,
并生成原先的WORD文档内容

...全文

时空图神经网络实战：T-GCN在交通流量预测中的深度解析本文深度解析了时空图神经网络T-GCN在交通流量预测中的实战应用。通过结合图卷积网络(GCN)和门控循环单元(GRU)，T-GCN有效捕捉交通数据的时空依赖性，相比传统方法降低30%以上预测误差。文章详细介绍了T-GCN的核心技术、工程实践和优化策略，为智能交通系统提供有力工具。阅读详情

山东蓝鸟贵薪

网络通信/分布式开发 1,594 成员 32,944 内容

+ 关注 + 加入社区

切换为时间正序

山东蓝鸟贵薪 2011-11-22

打赏
举报

问题已解决 ,谢谢关注

PaulyJiang 2011-11-22

打赏
举报

好大的鸭梨

山东蓝鸟贵薪 2011-11-22

打赏
举报

山东蓝鸟贵薪 2011-11-22

打赏
举报

太给力了呀

笨熊熊 2011-11-22

打赏
举报

這是轉換流？

baby哥 2011-11-22

打赏
举报

不懂这个

mulk 2011-11-22

打赏
举报

松雨林 2011-11-22

打赏
举报

小松来啦

松雨林 2011-11-22

打赏
举报

小松来啦

山东蓝鸟贵薪 2011-11-11

打赏
举报

努力学习中.............

山东蓝鸟贵薪 2011-11-10

打赏
举报

谢谢赐教，我试试

wdonghai 2011-11-09

打赏
举报

楼主的RichEdit控件应该是显示Rtf文件，Word文件的话,RichEdit控件是显示不了的。
...
uses EncdDecd;

//RichEdit1,RichEdit2:TRichEdit;
//Memo1:TMemo;

procedure TForm1.Button2Click(Sender: TObject);//打开Rtf文件
begin
if not OpenDialog1.Execute then exit;

RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
MSStream:TMemoryStream;
TSString,TSString2:TStringStream;
ssBlob:string;
begin
MSStream:=TMemoryStream.Create;
try
MSStream := TMemoryStream.Create; // 创建内存流
TSString := TStringStream.Create('');
try
RichEdit1.Lines.SaveToStream(MSStream);

MSStream.Position:=0;
//引用单元 EncdDecd,才能引用函数EncodeStream和DecodeStream
//DecodeStream(Tss,Tms);//在这个位置是将base64转为内存流
EncodeStream(MSStream,TSString); //将内存流转化base64
ssBlob:=TSString.DataString; //转换成字符串
Memo1.Text :=ssBlob; //保存为字符串

MSStream.Clear;
Memo1.Lines.SaveToStream(MSStream);
TSString2:=TStringStream.Create('');
try
MSStream.Position:=0;
DecodeStream(MSStream,TSString2);
TSString2.Position:=0;
RichEdit2.Lines.LoadFromStream(TSString2);
finally
TSString2.Free;
end;
finally
TSString.Free;
end;
finally
MSStream.Free;
end;
end;

山东蓝鸟贵薪 2011-11-08