202 |
|
Stream_Names := TMemoryStream.Create; |
203 |
|
Stream_Dat := TFileStream.Create(Target, fmCreate); |
204 |
|
Stream_Raw := TFileStream.Create(AnsiReplaceStr(Target, '.dat', '.raw'), fmCreate); |
205 |
+ |
Stream_Raw.Write(EmptyBytes[0], 32); |
206 |
|
if Connection.DataOS in [DOS_WINDEMO, DOS_MAC, DOS_MACBETA] then |
207 |
+ |
begin |
208 |
|
Stream_Sep := TFileStream.Create(AnsiReplaceStr(Target, '.dat', '.sep'), fmCreate); |
209 |
+ |
Stream_Sep.Write(EmptyBytes[0], 32); |
210 |
+ |
end; |
211 |
+ |
|
212 |
|
|
213 |
|
DoStep('Creating header'); |
214 |
|
progress.Position := 0; |