发信人: blee()
整理人: (2000-12-06 19:47:51), 站内信件
|
【 在 xiaoji (唔食铁0既小吉) 的大作中提到: 】
: 天哪!一个字符串(其实里边是二进制代码,图片的文件内容)怎么新建并写入
: 一个文件,我真的找不到例程呀!求教!
给你一个：
procedure StrToFile(str: String);
var
fs: TFileStream;
len: Integer;
begin
try
len := Length(str);
fs := TFileStream.Create(strLogFileName, fmOpenReadWrite);
fs.Seek(0, soFromEnd);
fs.Write(PChar(str)^, len);
fs.Free;
except
end;
end;
--
~*^~*^~*^~*^~*^~*^~*^~*^~*^~*^~*^
~*^ 图形界面的终端软件Stn ~*^
~*^ http://stn.126.com ~*^
~*^ http://stn.yeah.net ~*^
~*^~*^~*^~*^~*^~*^~*^~*^~*^~*^~*^
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.96.184.213]
|
|