5,392
社区成员
发帖
与我相关
我的任务
分享有以下几个问题，分不够可以加
1、如何将STRING写到TmemorySTREAM,
2、如何将Tmemorystream写成二进制数据
3、如何将如何将二进制数据写成文件？
2、如何将Tmemorystream写成二进制数据
3、如何将如何将二进制数据写成文件？
...全文
请发表友善的回复…
发表回复
wangjintu 2004-08-13
- 打赏
- 举报
说的没错,顶下
oioioi-090 2004-08-13
- 打赏
- 举报
顶！
我也试一下！
我也试一下！
sankis 2004-08-12
- 打赏
- 举报
UP
aiirii
说的已经很全了。
aiirii
说的已经很全了。
pandarus 2004-08-12
- 打赏
- 举报
跟上
aiirii 2004-08-12
- 打赏
- 举报
>>2、如何将Tmemorystream写成二进制数据
修改上面的 string 為 byte 數組就可
>>3、如何将如何将二进制数据写成文件？
TMemoryStream 直接保存就是了
有個 SaveToFile
修改上面的 string 為 byte 數組就可
>>3、如何将如何将二进制数据写成文件？
TMemoryStream 直接保存就是了
有個 SaveToFile
aiirii 2004-08-12
- 打赏
- 举报
>>1、如何将STRING写到TmemorySTREAM,
var ms:TmemorySTREAM;
s1, s2: string;
i: integer;
begin
s1 := DateTimeToStr(now);
showMessage(s1);
ms := TMemoryStream.Create;
ms.Write(s1[1], length(s1));
setLength(s2, ms.Size);
ms.Position := 0;
ms.read(s2[1], ms.Size);
showMessage(s2);
ms.Free;
end;
var ms:TmemorySTREAM;
s1, s2: string;
i: integer;
begin
s1 := DateTimeToStr(now);
showMessage(s1);
ms := TMemoryStream.Create;
ms.Write(s1[1], length(s1));
setLength(s2, ms.Size);
ms.Position := 0;
ms.read(s2[1], ms.Size);
showMessage(s2);
ms.Free;
end;
