var
stream1, stream2: TFileStream;//stream1: 目标文件；stream2：源文件
len, DPTJInfoLen: Integer;
str: array[0..1024] of char;
DPTJInfo: array[0..128] of char;
buffer: Pointer;
begin
DPTJInfoLen := $80;
DPTJInfo := 'Here is DPTJ Corporation DataBase Header.WARING: Do not Edit it, otherwise your data will be destoried!!! ';
stream1 := TFileStream.Create('d:/dptj.dat', fmCreate);
stream2 := TFileStream.Create('C:/dbf-data/sh020410.dbf', fmOpenRead);
GetMem(buffer, stream2.Size+DPTJInfoLen);
stream1.Seek(0,soFromBeginning); //定位到文件l头
stream2.Seek(0,soFromBeginning); //定位到文件头
stream1.Write(DPTJInfo, DPTJInfoLen);
stream1.Seek(DPTJInfoLen,soFromBeginning); //定位到文件头
stream1.CopyFrom(stream2, stream2.Size);
str:= ''; // This is additional line
stream1.free;
stream2.free;
FreeMem(buffer, stream2.Size+DPTJInfoLen);
end;
