procedure TForm1.Button3Click(Sender: TObject);
var
StrmSource:TMemoryStream;
StrmDest:TMemoryStream;
begin
//1:StrmSource,读入file1
StrmSource:=TMemoryStream.Create;
StrmSource.LoadFromFile(FileName1); /2:将StrmSource内容拷贝到 StrmDest
StrmDest:=TMemoryStream.Create;
StrmDest.CopyFrom(StrmSource,StrmSource.Size); StrmSource.Clear;
//3:再读入flle2
StrmSource.LoadFromFile(FileName2); //4:再拷贝到StrmDest
StrmDest.Seek(0,soFromEnd);
strmDest.CopyFrom(StrmSource,StrmSource.Size); //5:保存到文件
strmDest.Position:=0;
StrmDest.SaveToFile(ExtractFilePath(Application.ExeName)+'合并后的文件.txt');
//6:释放流
StrmSource.Free;
strmDest.Free
end;代码如上?
合并txt文件没问题;可是合并pdf文件的时候,结果是只显示第一个文件,为什么呢??
高手指点。
谢
var
StrmSource:TMemoryStream;
StrmDest:TMemoryStream;
begin
//1:StrmSource,读入file1
StrmSource:=TMemoryStream.Create;
StrmSource.LoadFromFile(FileName1); /2:将StrmSource内容拷贝到 StrmDest
StrmDest:=TMemoryStream.Create;
StrmDest.CopyFrom(StrmSource,StrmSource.Size); StrmSource.Clear;
//3:再读入flle2
StrmSource.LoadFromFile(FileName2); //4:再拷贝到StrmDest
StrmDest.Seek(0,soFromEnd);
strmDest.CopyFrom(StrmSource,StrmSource.Size); //5:保存到文件
strmDest.Position:=0;
StrmDest.SaveToFile(ExtractFilePath(Application.ExeName)+'合并后的文件.txt');
//6:释放流
StrmSource.Free;
strmDest.Free
end;代码如上?
合并txt文件没问题;可是合并pdf文件的时候,结果是只显示第一个文件,为什么呢??
高手指点。
谢
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货