Once I have a file in a TFileStream
 
  Q1 := TFileStream.Create(curDir + 'Qtop.doc',fmOpenRead or fmShareDenyWrite);
  Q2 := TFileStream.Create(curDir + 'Qbody.doc',fmOpenRead or fmShareDenyWrite);
 
How do I join the two together so I can out put it as one file
 
  with TFileStream.Create(curDir + 'Qdone.doc',fmCreate or fmShareExclusive) do try
    CopyFrom(Q3, Q3.Size);
  finally
    Free;
  end;
(from Tony, a DUG Lurker)
 

 

Reply via email to