盒子论坛 v2.1

我做了一个局域网文件传送软件，
我在服务器端用以下程序分解：
const
packetlen=2048;
type tpacket=array[1..packetlen] of char;
var
  Form1: TForm1;
  packets: array of tpacket;
implementation

{$R *.dfm}
procedure tform1.readintobuffer(s:string);
var i,j:integer;
    infile :file;
begin
assignfile(infile,s);
reset(infile,1);
i:=filesize(infile) div packetlen;
setlength(packets,i+1);
for i:=0 to length(packets)-2 do
blockread(infile,packets[i],packetlen);
i:=length(packets)-1;
j:=filesize(infile) mod packetlen;
blockread(infile,packets[i],j);
edit1.Tag:=filesize(infile);
closefile(infile);
end;

我在客户端用以下程序合并：
procedure tform1.combinepacket;
var outfile :file;
    i,j:integer;
begin
assignfile(outfile,edit2.Text);
rewrite(outfile,1);
for i:=0 to length(packets)-2 do
blockwrite(outfile,packets[i],packetlen);
i:=length(packets)-1;
j:=edit2.tag mod packetlen;
blockwrite(outfile,packets[i],j);
closefile(outfile);
end;

出现的问题是：客户端收到的文件不能用（打不开）。（我来我在试一个文本文件时发现，在收到的文本文件中，第一个字前多了一个空字节）不知道这个发现有没有用？
----------------------------------------------
因为笨，所以问！

作者：

blueway (舞雨)	★☆☆☆☆	-
	盒子活跃会员

2004/3/4 20:01:31

1楼：

关注

----------------------------------------------
-

作者：

cjg98821 (hellow)	★☆☆☆☆	-
	盒子活跃会员

2004/3/4 23:02:22

2楼：

高手救命！！我自己顶一下，又要下去了！
----------------------------------------------
因为笨，所以问！

作者：

besthing (dkdk)	★☆☆☆☆	-
	普通会员

2004/3/4 23:54:40

3楼：

你的代码中
edit1.tag
或edit2.tag
肯定是敲错了。

可能导致保存的文件可能缺少信息。
^_^
----------------------------------------------
-

作者：

cjg98821 (hellow)	★☆☆☆☆	-
	盒子活跃会员

2004/3/5 0:42:15

4楼：

没有错！你能不能看看我另外一个贴子的附件？
----------------------------------------------
因为笨，所以问！

信息

登陆以后才能回复