logihouse / dspack Goto Github PK

Are there going to be official Packages for XE committed? 

I've attached the files I used.

What steps will reproduce the problem?
1. I try to use videocap in demos,and then,Audio playback for 1 minute, but the 
video playback only 30 seconds
2. i use dspack2.3.4 for xe4, the operating system is xp sp3
3. Video playback speed very quickly, with fast forward

Moniker.BindToObject(nil, nil, IID_IBaseFilter, result); crashed because 
Moniker was always nil. Changed to:

  function TSysDevEnum.GetBaseFilter(index: integer): IBaseFilter;
  var
    SysDevEnum  : ICreateDevEnum;
    EnumCat     : IEnumMoniker;
    Moniker     : IMoniker;
    // martin begin
    {$IFDEF FPC}
    Fetched     : ULONG;
    {$ENDIF}
    // martin end
  begin
    result := nil;
   if ((index < CountFilters) and (index >= 0)) then
      begin
        CocreateInstance(CLSID_SystemDeviceEnum, nil, CLSCTX_INPROC, IID_ICreateDevEnum, SysDevEnum);
        SysDevEnum.CreateClassEnumerator(FGUID, EnumCat, 0);
        EnumCat.Skip(index);
        {$IFDEF FPC}
        // martin begin
        EnumCat.Next(1, Moniker, Fetched); // RESULT replaced by MONIKER, OD 27.02.2013
        // martin end
        {$ELSE}
        EnumCat.Next(1, Moniker, nil);     // RESULT replaced by MONIKER, OD 27.02.2013
        {$ENDIF}
        Moniker.BindToObject(nil, nil, IID_IBaseFilter, result);
        EnumCat.Reset;
        SysDevEnum := nil;
        EnumCat    := nil;
        Moniker    := nil;
      end
  end;

What steps will reproduce the problem?
1. just try load filter with low merit( 0x00200000 (MERIT_DO_NOT_USE) ) like 
ffdshow Audio Processor, ffdshow raw video filter. 
2. DSPack will raise an error while you try to view details of such filter. 


What is the expected output? What do you see instead?
I just can use such filter using GraphStudio, or GraphStudioNext.

What version of the product are you using? On what operating system?
every version of DSPack have this bug.

Please provide any additional information below.

sorry, don't no more.

What steps will reproduce the problem?

destructor TBCAMSchedule.Destroy;
  [...]
  FreeAndNil(FSerialize);
  FreeAndNil(FHead);    //<-- add this
  FreeAndNil(FZ);       //<-- add this
  inherited Destroy;
end;

What is the expected output? What do you see instead?
FastMM4 reports a memory leak when closing the application.

What version of the product are you using? On what operating system?
r3  Jan 25, 2010

What steps will reproduce the problem?
1. Use GetErrorString to have detailed error message
2. Send some unknown parameter to the function
3. result will be some boxes and garbage characters

What is the expected output? What do you see instead?
The output should be the error message, or, when there is no predefined 
message, return "unknown error" instead of garbage.

What version of the product are you using? On what operating system?
I am using WinXP, Delphi XE2

Please provide any additional information below.
Function could be like this:
  function GetErrorString(hr: HRESULT): String;
  var
    buffer: array[0..254] of Char;
    Res: Cardinal;
  begin
    Res := AMGetErrorText(hr, @buffer[0], 255);
    if Res = 0 Then
    Begin
      Result := 'Unknown error'
    End
    Else
      result := buffer;
  end;

Note that there is error checking.
unit DXSUtil;
     *  DSPack 2.3.3                                                     *

Hi.

I want to put a TButton to open the device settings of a video capture device 
(webcam,...) to change sensibility, exposition, saturation,... parameters. This 
settings form ins't the same ... It's depending of the driver and the device in 
use.

Here I put a screen-capture of what i'm looking for...

How I can to that?

Thanks for the help!

Regards.

What steps will reproduce the problem?
BaseClass.pas:
GetModuleFileName(hinstance, Filename, sizeof(Filename));
should be
GetModuleFileName(hinstance, Filename, Length(Filename));

Replace all three occurrences.

What version of the product are you using? On what operating system?
r3  Jan 25, 2010

What steps will reproduce the problem?
1. Open {DsPack\DSVideoWinDowEx\DVDPlay}
2. Compile the Source and run Demo outside IDE
3. Attempt to play DVD.  

What is the expected output? What do you see instead?
I expect the DVD to play.  An Err message that says "The video decoder doesn't 
produce Line 21 (closed captioning) data.  (Note:  Windows Media Player and VCL 
Player plays DVD just fine)

What version of the product are you using? On what operating system?
DSPACK rev 10;  K-Lite Codec version (Win32 9.9.5 / x64 9.9.9) on Win7 64 Home; 
Delphi XE3

Please provide any additional information below.

In Delphi 2010, the IfDef declaration of PDirectDrawSurface doesn't work.  I 
received a compile error for having interfaces in variant records regardless.  
Changing all variant references to PDirectDrawSurface to Pointer allows the 
compiler to continue.  

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

What steps will reproduce the problem?
1.
2.
3.

What is the expected output? What do you see instead?


What version of the product are you using? On what operating system?
2.3.4

Please provide any additional information below.

There is a resource leak in the source. FStateLock variable in TBCSource
was not destroyed in the Destroy function.

A small change should be performed in unit DSPack.pas to allow compilation in 
Delphi XE3.

Attached is the modified unit.

If possible, create groups of projects and packages for this version of Delphi

What steps will reproduce the problem?
1. Put a new filter component on a form
2. Double click to set BaseFilter property
3. Delphi raises AV at addr 16DDBA13 in module DSPackDesign_D2010.bpl, read of 
addr 0000003C. (I use d2010 package since there is no DSPackDesign_DXE or 
DSPackDesign_DXE2)

What is the expected output? What do you see instead?
I would expect a window to pop up, asking me to choose directshow filters.

What version of the product are you using? On what operating system?
I am using Delphi XE2, tested both under XP and Win7. I

Please provide any additional information below.
Here is the stack dump:

[16DDBA13]{DSPackDesign_D2010.bpl} DSEditors.TBaseFilterPropertyClass.Edit 
(Line 111, "DSEditors.pas" + 3) + $12
[2089890A]{coreide160.bpl} PropInsp.TPropertyInspector.PropListEditDblClick 
(Line 871, "PropInsp.pas" + 18) + $E
[2113D791]{vclide160.bpl} IDEInspListBox.TInspListBox.DoEditDblClick (Line 620, 
"IDEInspListBox.pas" + 2) + $A
[2113F016]{vclide160.bpl} IDEInspListBox.TInspListBox.EditDblClick (Line 1192, 
"IDEInspListBox.pas" + 0) + $2
[50332D8D]{vcl160.bpl  } Vcl.Controls.TControl.DblClick (Line 7325, 
"Vcl.Controls.pas" + 1) + $14
[50332F08]{vcl160.bpl  } Vcl.Controls.TControl.WMLButtonDblClk (Line 7368, 
"Vcl.Controls.pas" + 4) + $C
[50332814]{vcl160.bpl  } Vcl.Controls.TControl.WndProc (Line 7204, 
"Vcl.Controls.pas" + 91) + $6
[503369F8]{vcl160.bpl  } Vcl.Controls.TWinControl.IsControlMouseMsg (Line 9753, 
"Vcl.Controls.pas" + 9) + $25
[50337163]{vcl160.bpl  } Vcl.Controls.TWinControl.WndProc (Line 9976, 
"Vcl.Controls.pas" + 152) + $6
[2113CEF3]{vclide160.bpl} IDEInspListBox.TPropInspEdit.WndProc (Line 361, 
"IDEInspListBox.pas" + 7) + $4
[503367B8]{vcl160.bpl  } Vcl.Controls.TWinControl.MainWndProc (Line 9689, 
"Vcl.Controls.pas" + 3) + $6
[500B5FCC]{rtl160.bpl  } System.Classes.MakeObjectInstance (Line 13921, 
"System.Classes.pas" + 0) + $0
[504524EF]{vcl160.bpl  } Vcl.Forms.TApplication.ProcessMessage (Line 10164, 
"Vcl.Forms.pas" + 23) + $1
[50452532]{vcl160.bpl  } Vcl.Forms.TApplication.HandleMessage (Line 10194, 
"Vcl.Forms.pas" + 1) + $4
[50452865]{vcl160.bpl  } Vcl.Forms.TApplication.Run (Line 10331, 
"Vcl.Forms.pas" + 26) + $3

Delphi XE2 was unable to compile DSEditors.pas due to lack of version check. I 
changed the version check lines as following. Now it compiles.


uses
{$IFDEF VER140} DesignIntf, DesignEditors, {$ELSE}
{$IFDEF VER150} DesignIntf, DesignEditors, {$ELSE}
{$IFDEF VER170} DesignIntf, DesignEditors, {$ELSE}
{$IFDEF VER180} DesignIntf, DesignEditors, {$ELSE}
{$IFDEF VER200} DesignIntf, DesignEditors, {$ELSE}
{$IFDEF VER210} DesignIntf, DesignEditors, {$ELSE}
{$IFDEF VER220} DesignIntf, DesignEditors, {$ELSE}
{$IFDEF VER230} DesignIntf, DesignEditors, {$ELSE}
 DsgnIntf, {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF}  {$ENDIF}
 Forms, Controls, DXSUtil, DSPack;

Add props to switch audio stream:
Streams: TStringList;
StreamNumber: integer; to change active audio stream.
Thks.

What steps will reproduce the problem?
use SampleGrabber.GetBitmap(Bitmap) can not get bitmap

Line 4909 of D3DX8 will cause an error at compile time.  
[DCC Error] D3DX8.pas(4909): E2250 There is no overloaded version of 
'D3DXGetErrorString' that can be called with these arguments

The call is to 'D3DXGetErrorString(hr, PAnsiChar(@Buffer), 255);'
The error was corrected by switching the method call to 
'D3DXGetErrorStringA(hr, PAnsiChar(@Buffer), 255);'

What steps will reproduce the problem?
1. Using these functions in Delphi Versions > D2010 leads to wrong results.

What is the expected output? What do you see instead?

GetFourCC() returned 0-Bytes between the characters, because String consists of 
Unicode chars instead of ANSI chars now.

What version of the product are you using?
SVN r10.

The fix is easy.