Jetter JVM-407 Betriebsanleitung Seite 339

JVM-407
Jetter AG
Result := 0;
FileSize := 0;
// open source file for reading
If FileOpen(SrcFile, SrcName, 'r')
// open destination file for writing
If FileOpen(DstFile, DstName, 'w')
// read first block of data
ReadSize := FileRead(SrcFile,
While ReadSize <>
// write read data to destination file
WriteSize := FileWrite(DstFile,
If
End_If;
Inc(FileSize, WriteSize);
// read next block of data
ReadSize := FileRead(SrcFile,
End_While;
// close both files
FileClose(SrcFile);
FileClose(DstFile);
Else
// can't open destination file
FileClose(SrcFile);
Result := -2;
End_If;
Else
// can't open source file
Result := -1;
End_If;
If Result < 0 Then
FileCopy := Result;
Else
FileCopy := FileSize;
End_If;
End_Function;
//****************************************************
// 1. Enable Tracing in JetSym
// 2. Put source file name into 'SourceName'
// 3. Set flag 'UpdateIt'
//****************************************************
FileBuffer,
SizeOf(FileBuffer));
0 Do
WriteSize <> ReadSize
// write error
Result := -3;
Exit;
FileBuffer,
SizeOf(FileBuffer));
Betriebssystem-Update
Then
Then
FileBuffer,
ReadSize);
Then
339