| 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; |