WebSVN – simple_log_event – Path Comparison – / – /trunk/LogTestUsingDelphi Rev 2 and /trunk/LogTestUsingDelphi Rev 3

Regard whitespace Rev 2 → Rev 3

/trunk/LogTestUsingDelphi/LogWriteTestDelphi.exe
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Deleted: svn:mime-type
-application/octet-stream
\ No newline at end of property

 /trunk/LogTestUsingDelphi/LogWriteTestDelphi.dpr
 ,12 → 9,6
   ActiveX,
   ViaThinkSoftSimpleLogEvent_TLB in '..\TLB\ViaThinkSoftSimpleLogEvent_TLB.pas';
-const
-  LOGEVENT_MSG_SUCCESS       = 0;
-  LOGEVENT_MSG_INFORMATIONAL = 1;
-  LOGEVENT_MSG_WARNING       = 2;
-  LOGEVENT_MSG_ERROR         = 3;
 var
   x: IViaThinkSoftSimpleEventLog;
 begin
 ,9 → 16,9
     CoInitialize(nil);
     x := CoViaThinkSoftSimpleEventLog.Create;
     {$IFDEF WIN64}
-    x.LogEvent(LOGEVENT_MSG_WARNING, 'This is a test warning written by Delphi 64 bit');
+    x.LogEvent('MySourceName', ViaThinkSoftSimpleLogEvent_TLB.Warning, 'This is a test warning written by Delphi 64 bit');
     {$ELSE}
-    x.LogEvent(LOGEVENT_MSG_WARNING, 'This is a test warning written by Delphi 32 bit');
+    x.LogEvent('MySourceName', ViaThinkSoftSimpleLogEvent_TLB.Warning, 'This is a test warning written by Delphi 32 bit');
     {$ENDIF}
     x := nil;
     //CoUninitialize; // TODO: If I do this, I get an access violation at process end?!

 /trunk/LogTestUsingDelphi/LogWriteTestDelphi.dproj
 ,7 → 6,7
         <MainSource>LogWriteTestDelphi.dpr</MainSource>
         <Base>True</Base>
         <Config Condition="'$(Config)'==''">Release</Config>
-        <Platform Condition="'$(Platform)'==''">Win32</Platform>
+        <Platform Condition="'$(Platform)'==''">Win64</Platform>
         <TargetedPlatforms>3</TargetedPlatforms>
         <AppType>Console</AppType>
     </PropertyGroup>