一个简单问题!!快来拣分!!! where from?file?memory or i/o port? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 我靠,让我有创义.看我的----------->>>>>>>>>>>>>>>------------->>>>>>>>>>>>>>超频关注 var Stream: TMemoryStream;begin Stream := TMemoryStream.Create;//????????????????????? Stream.Free;end; Stream: TMemoryStream;//保存形式就是二进制呀!你要个???2Bin转换还可以! http://www.csdn.net/expert/topic/381/381491.shtm FF 各位大哥!请帮忙UP一下!UP有分!! 不知道的想知道。[email protected] CaoBingHao(茶叶里的碱) 说的对,就是它,怎么实现? 怎样得到一串"二进制零流"? 你要的是不是这个样子呢:procedure TForm1.BitBtn1Click(Sender: TObject);const mysize=409600;var s:TMemoryStream; mypchar:pchar;begin s:=TMemoryStream.Create; GetMem(mypchar,mysize); FillChar(mypchar^,mysize,#0); //if you change #0 to #30,it will change // to ASCII char '0'. s.Write(mypchar^,mysize); s.SaveToFile('c:\temp.dat'); FreeMem(mypchar); s.Free;end; 大家帮我看下,这个函数怎么会错误,编译不过去 delphi窑洞关门了? 这些是什么码 请问TBytes 类型的变量 要引用哪个单元? 高手求救!还是该死的SocketConnection问题(midas三层结构) 有关数据库的导入、导出的问题,请高手帮忙解决?? 用winsock进行通迅的时候如何.. 在delphi中怎样打开*.dll文件,并进行修改和编译 关于.txt关联问题(注册表问题) 取网络机器名失败,为什么啊?SHGetSpecialFolderLocation 怎样通过 一个sql语句关闭某个表的触发器? 能否用程序控制ATX机箱的机器开机?如能,在DELPHI中怎么写?
----------->>>>>>>>>>>>>>>------------->>>>>>>>>>>>>>
超频关注
Stream: TMemoryStream;
begin
Stream := TMemoryStream.Create;
//?????????????????????
Stream.Free;
end;
//保存形式就是二进制呀!
你要个???2Bin转换还可以!
procedure TForm1.BitBtn1Click(Sender: TObject);
const mysize=409600;
var s:TMemoryStream;
mypchar:pchar;
begin
s:=TMemoryStream.Create;
GetMem(mypchar,mysize);
FillChar(mypchar^,mysize,#0); //if you change #0 to #30,it will change
// to ASCII char '0'.
s.Write(mypchar^,mysize);
s.SaveToFile('c:\temp.dat');
FreeMem(mypchar); s.Free;
end;