怎么读取一个网络上的文件显示到MEMO中啊??????

vbFly 2004-02-09 05:39:53
procedure TForm1.Button1Click(Sender: TObject);
var
SaveFileStream:TStream;
sa:TStream;
begin
SaveFileStream := TFileStream.Create('c:\ddd.dfr',fmCreate);
sa:= TMemoryStream .Create;
IdHTTP1.Get('http://luo:7001/pri/test.dfr',SaveFileStream);
SaveFileStream.free;
memo1.lines.LoadFromFile('c:\ddd.dfr');
end;

可以读到本地的文件,能否用TMemoryStream直接在内存里然后用memo1.line.LoadFromStram来实现列?试了一下不能成功,麻烦各位写个代码我看看,谢谢了!!!
...全文
23 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复

1,593

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 网络通信/分布式开发
社区管理员
  • 网络通信/分布式开发社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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