怎么把filestream的流文件设为UTF-8格式显示 ( 积分: 20 )

如题

請問如何對internet上的一台考勤機進行讀寫和控制。

笨办法

var
fs:tfilestream;
ss:tstringstream;
str:string;
begin
fs:=tfilestream.create('test.txt',fmopenreadwrite);
ss:=tstringstream.create('');
fs.position:=0;
ss.copyfrom(fs,fs.size);
str:=ansitoutf8(ss.datastring);
fs.size=0;
fs.write(ss[1],length(ss));
fs.free;
ss.free;
end;