Delphi XE4 compatibility

[GoogleCodeExporter]

I've compiled successfully on XE4. My Package:
http://www.herrotto.de/delphi/xe4/dspack_2.3.4-r10.zip

Please integrate this into the official repository.

Regards,
Tim

Original issue reported on code.google.com by herrotto...@gmail.com on 15 Jun 2013 at 10:13

[GoogleCodeExporter]

Nice

Original comment by gmele...@gmail.com on 23 Jul 2013 at 2:04

[GoogleCodeExporter]

Hi.

Compile and Install perfectly.

When I try to compile a sample application (D6-D7 SampleGrabber), I get 3 
errors...

[dcc32 Error] DSPack.pas(1854): E2033 Types of actual and formal var parameters 
must be identical

[dcc32 Error] DSPack.pas(1859): E2033 Types of actual and formal var parameters 
must be identical

[dcc32 Error] DSPack.pas(2860): E2066 Missing operator or semicolon

Original comment by axeldeli...@gmail.com on 6 Nov 2013 at 2:11

Attachments:

• [Error DSPack XE4.JPG](https://storage.googleapis.com/google-code-attachments/dspack/issue-15/comment-2/Error DSPack XE4.JPG)

[GoogleCodeExporter]

Hi,When I Try the videocap of the demos,the  Video and audio out of sync

Original comment by kevin120...@gmail.com on 6 Nov 2013 at 7:01

[GoogleCodeExporter]

Thank you very much, this package works fine in XE6 :)

Original comment by DelphiMa...@gmail.com on 11 Aug 2014 at 8:48

[GoogleCodeExporter]

For XE4-XE7 use this path and xe2 pack.
Index: DSPack.pas
===================================================================
--- DSPack.pas  (revision 10)
+++ DSPack.pas  (working copy)
@@ -1840,8 +1840,14 @@
   end;

   procedure TFilterGraph.HandleEvents;
-  var hr: HRESULT;
-      Event, Param1, Param2: Integer;
+  var
+    hr: HRESULT;
+    Event: Integer;
+    {$IF CompilerVersion >= 24.0}
+    Param1, Param2: NativeInt;
+    {$ELSE}
+    Param1, Param2: Integer;
+    {$IFEND}
   begin
     if assigned(FMediaEventEx) then
     begin

Original comment by XVla...@gmail.com on 16 Oct 2014 at 4:43

[GoogleCodeExporter]

how to install this pack on XE7?

Original comment by jlcnate.zit on 22 Dec 2014 at 6:22

[GoogleCodeExporter]

DSPack.pas
@@ -1840,8 +1840,14 @@
  var
    hr: HRESULT;
    Event: Integer;
    {$IF CompilerVersion >= 24.0}
    Param1, Param2: NativeInt;
    {$ELSE}
    Param1, Param2: Integer;
    {$IFEND}
//  var hr: HRESULT;
//      Event, Param1, Param2: Integer;

it should be compile-able now

and when u need to use DSPack, change it back like this

//  var
//    hr: HRESULT;
//    Event: Integer;
//    {$IF CompilerVersion >= 24.0}
//    Param1, Param2: NativeInt;
//    {$ELSE}
//    Param1, Param2: Integer;
//    {$IFEND}
  var hr: HRESULT;
      Event, Param1, Param2: Integer;

GL, HF 

Original comment by 1qaz5...@gmail.com on 24 Dec 2014 at 8:36

[GoogleCodeExporter]

Thank you.

Original comment by thyagool...@gmail.com on 3 Feb 2015 at 1:56