盒子论坛 v2.1

Function Cjt_LoadFromFile(SourceFile,TargetFile :string):Boolean;
var
  Source:TFileStream;
  Target:TMemoryStream;
  MyFileSize:integer;
begin
  try
    Target:=TMemoryStream.Create;
    Source:=TFileStream.Create(SourceFile,fmOpenRead or fmShareDenyNone);
    try
      Source.Seek(-sizeof(MyFileSize), soFromEnd);
      Source.ReadBuffer(MyFileSize, sizeof(MyFileSize)); //读出资源大小
      Source.Seek(-MyFileSize,soFromEnd);//定位到资源位置
      Target.CopyFrom(Source,MyFileSize - sizeof(MyFileSize));//取出资源
      Target.SaveToFile(TargetFile);//存放到文件
    finally
      Target.Free;
      Source.Free;
    end;
  except
    Result:=false;
    Exit;
  end;
  Result:=true;
end;

Target.CopyFrom(Source,MyFileSize - sizeof(MyFileSize));//取出资源
读写错误！！！！  不知道这句怎么改！
----------------------------------------------
-

作者：

zizii (高高高级馒头)	★☆☆☆☆	-
	神秘会员

2003/9/5 19:00:34

1楼：

错误CODE贴出来，看着头大。
----------------------------------------------
维护世界和平，共创美好盒子。

作者：

amer (amer)	★☆☆☆☆	-
	盒子活跃会员

2003/9/5 19:15:39

2楼：

就是这里出的错
Target.CopyFrom(Source,MyFileSize - sizeof(MyFileSize));//取出资源

此帖子包含附件:

大小:13.5K

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

作者：

zizii (高高高级馒头)	★☆☆☆☆	-
	神秘会员

2003/9/5 20:38:10

3楼：

仔细检查你的MyFileSize呀什么的数值有没有问题。
----------------------------------------------
维护世界和平，共创美好盒子。

信息

登陆以后才能回复