Changeset 490 for tools/wow_patcher/wowpatcher.pas

Timestamp:

Sep 10, 2010, 6:50:32 AM (14 years ago)

Author:

george

Message:

• Opraveno: Kontrola existence souboru.
• Opraveno: Nevytvářet upravený soubor pokud úprava selže.

File:

• tools/wow_patcher/wowpatcher.pas (modified) (4 diffs)

tools/wow_patcher/wowpatcher.pas

@@ -39 +39 @@
 
 procedure TWoWPatcher.DoRun;
-var
-  ErrorMsg: String;
 begin
   WriteLn('wowpatcher ' + Version + ' ' + ReleaseDate);
@@ -134 +132 @@
   NotValid: Boolean;
 const
+  // -1 means any byte value
   StartSequence: array[0..15] of Integer = ($8D, $4D, $E8, $E8, -1, -1, -1, -1, $5B, $8B, $E5, $5D, $C3, $8D, $49, $00);
   StartSequence2: array[0..15] of Integer = ($88, $1D, -1, -1, -1, -1, $E8, -1, -1, -1, -1, $5B, $8B, $E5, $5D, $C3);
 begin
-  try
-    NewFile := TFileStream.Create(NewFileName, fmCreate);
+    if not FileExists(FileName) then begin
+      WriteLn(Format('File %s not found', [FileName]));
+      Exit;
+    end;
     try
       OriginalFile := TFileStream.Create(FileName, fmOpenRead);
@@ -180 +181 @@
       end;
       WriteLn;
-    end else WriteLn('not found');
+    end else begin
+      WriteLn('not found');
+      Exit;
+    end;
 
     WriteLn;
@@ -215 +219 @@
       end;
       WriteLn;
-    end else WriteLn('not found');
-
-    NewFile.WriteBuffer(Buffer[0], Length(Buffer));
+    end else begin
+      WriteLn('not found');
+      Exit;
+    end;
+
+  try
+    WriteLn(Format('Patched file %s created', [NewFileName]));
+    NewFile := TFileStream.Create(NewFileName, fmCreate);
+    if Length(Buffer) > 0 then
+      NewFile.WriteBuffer(Buffer[0], Length(Buffer));
   finally
     NewFile.Free;