靠 我测试了 能正常运行 也出结果啊
你是不是做将几个bmp转化为一个gif格式的图片 ．带播放的那种效果啊．
用文件流可以实现 但得知道gif文件的结构
下面的代码可以合并文件 但我不知道gif文件的结构
function TForm1.AddFile(SourceFile,TargetFile: String): boolean;
var
Source,Target:TFileStream;
FileSize:integer;
begin
try
Source:=TFileStream.Create(SourceFile,fmOpenRead or fmShareExclusive);
Target:=TFileStream.Create(TargetFile,fmOpenWrite or fmShareExclusive);
try
Target.Seek(0,SoFromEnd);
Target.CopyFrom(Source,0);
FileSize:=Source.Size;//+Sizeof(FileSize);
Target.WriteBuffer(FileSize,sizeof(FileSize));
finally
Source.Free;
Target.Free
end;
except
Result:=False;
Exit;
end;
Result:=True;
end;
