随笔 - 110  文章 - 28 评论 - 26 

留言簿(1)

随笔分类(103)

随笔档案(110)

文章分类(25)

文章档案(28)

新闻档案(3)

友情连接

  • 小蜜蜂
  • 马氏膏药网
  • 淋巴结肿大,淋巴结核,淋巴结炎 乳腺增生,小叶增生 颈椎病,腰椎病,腰间盘突出 马氏淋巴消炎贴,马氏增生散结贴,马氏关节肌肉贴
  • 黑客基地
  • 全球最大的黑客门户网站

最新随笔

积分与排名

  • 积分 - 143116
  • 排名 - 44

最新评论

阅读排行榜

评论排行榜

TStream 是一个抽象的基类, 不能直接生成对象. 在具体的应用中, 主要使用它的子孙类:
TFileStream: 文件流
TStringStream: 字符串流
TMemoryStream: 内存流
TResourceStream: 资源文件流
THandleStream: 是 TFileStream 的父类、TStream 的子类
TCustomMemoryStream: 是 TMemoryStream 和 TResourceStream 的父类、TStream 的子类
posted on 2009-01-21 17:32 小叶子 阅读(808) 评论(1)  编辑 收藏 引用 所属分类: delphi流的应用

FeedBack:
# re: delphi的 流 2011-05-26 17:38 delphi Lover
我想将2个EXE文件通过内存流添加在一起,生成一个新的EXE文件。怎么弄都没通过。请老师帮忙看看!

var
File1,File2,NewFile:string;
SourceMem,TargetMem:TMemoryStream;
mybuf:array[0..32767] of Char;
begin
SourceMem:=TMemoryStream.Create;
TargetMem:=TMemoryStream.Create;
TargetMem.LoadFromFile(File1);
SourceMem.LoadFromFile(File2);
SourceMem.read(mybuf,SourceMem.Size);
TargetMem.Seek(0,2);//从尾部添加
TargetMem.Write(mybuf,SourceMem.Size);
TargetMem.SaveToFile(NewFile);
SourceMem.Free;
TargetMem.Free;
end;  回复  更多评论
  
只有注册用户登录后才能发表评论。

笔记和文章,可能抄袭,只为学习,请原谅