[JVCL-Checkins] SF.net SVN: jvcl: [11389] trunk/jvcl/run/JvInterpreter.pas

[<iv...@us...>]

Revision: 11389
          http://svn.sourceforge.net/jvcl/?rev=11389&view=rev
Author:   ivan_ra
Date:     2007-06-26 08:19:02 -0700 (Tue, 26 Jun 2007)

Log Message:
-----------
National symbols in oleAutomation + dispatch parameters in DispatchCall 

Modified Paths:
--------------
    trunk/jvcl/run/JvInterpreter.pas

Modified: trunk/jvcl/run/JvInterpreter.pas
===================================================================
--- trunk/jvcl/run/JvInterpreter.pas	2007-06-26 12:56:22 UTC (rev 11388)
+++ trunk/jvcl/run/JvInterpreter.pas	2007-06-26 15:19:02 UTC (rev 11389)
@@ -4643,7 +4643,7 @@
     Wrd: WordBool;
     Poin: Pointer;
     Dbl: Double;
-    //TempDisp : IDispatch; ComObj
+    TempDisp : IDispatch; //ComObj
 
     procedure AddParam1(Typ: Byte; ParamSize: Integer; const Param);
     begin
@@ -4678,11 +4678,11 @@
           Wrd := WordBool(Param);
           AddParam1(varBoolean, SizeOf(Wrd), Wrd);
         end;
-     { varDispatch:
+      varDispatch:
         begin
-          TempDisp := VarToInterface(Param.IFace);
+          TempDisp := Param;//VarToInterface(Param).IFace);
           AddParam1(varDispatch, SizeOf(TempDisp), TempDisp);
-        end; }
+        end;
 
     end;
   end;
@@ -4719,6 +4719,8 @@
     { call }
     // (rom) absolute removed
     VarDispInvoke(PVRes, Args.Obj, PChar(Names), @CallDesc, @ParamTypes[0]);
+    Ptr := 0;
+    TypePtr := 0;
   except
     on E: EOleError do
       JvInterpreterErrorN2(ieOleAuto, -1, Identifier, E.Message);
@@ -7148,6 +7150,7 @@
             begin
               try
                 InterpretExcept(E);
+                FLastError.Clear;
               except
                 on E1: EJvInterpreterError do
                 begin


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.