TOPIC:

nateshu wrote: Deputy project:


procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
begin
SysDev:= TSysDevEnum.Create(CLSID_VideoInputDeviceCategory);
if SysDev.CountFilters > 0 then
begin
for i:= 0 to SysDev.CountFilters - 1 do
ListBox1.Items.Add(SysDev.Filters.FriendlyName);
end;

end;


procedure TForm1.ListBox1Click(Sender: TObject);
begin
if FilterGraph1.Active then FilterGraph1.Active:= False;
FilterGraph1.ClearGraph;
if ListBox1.ItemIndex > -1 then
begin
Filter1.BaseFilter.Moniker:= SysDev.GetMoniker(ListBox1.ItemIndex);
FilterGraph1.Active:= True;

FilterGraph1.Mode:= gmCapture;
with FilterGraph1 as ICaptureGraphBuilder2 do
begin
RenderStream(@PIN_CATEGORY_PREVIEW, nil, Filter1 as IBaseFilter,
nil, VideoWindow1 as IBaseFilter);
end;

FilterGraph1.Play;
end;
end;


procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: boolean);
begin
FilterGraph1.ClearGraph;
FilterGraph1.Active:= False;
end


procedure TForm1.STOPClick(Sender: TObject);
begin
FilterGraph1.Stop;
end;


procedure TForm1.PLAYClick(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
if not FilterGraph1.Active then FilterGraph1.Active:= True;
FilterGraph1.RenderFile(OpenDialog1.Filename);
FilterGraph1.Play;
end;
end;

THE PROBLEM OCCURS WHEN TO GIVE doubleclick ACIVAR READY FOR MY WEBCAM AND VIDEO CAPTURE

SysDev.Filters[i].FriendlyName;

4aiman wrote: Guess we need someone who has better understanding of accents

viking wrote: There are four versions of DirectX files, three version of DirectShow files, and three versions of DSPack itself.

4aiman wrote: And what's much more weird is that in CT paths there are several different DirectX and DirectShow files. Every time I recompile the IDE I got warned of using "diplicates". I understand that it's easier to maintain packages like this, but it's frustrating - EVERY time I think, like, "Are those really the same?"

I hope you and your health will be OK, Viking. And that's not because of DSPack
BTW, thanks for info about DSPack! Regards!

TheBlackSheep wrote: Hi Viking

I don't think the version I published is the one in CodeTyphon (I really can't take the credit for the one I published anyway since I think all I really did was amend some of the calls so they were incompatible with Lazarus at that time - it was a very long time ago now and I can't really remember all the changes I had to make, I think I'd added conditional defines to try and keep it Delphi code compatible).

Sternas will be able to confirm which version they incorporated but I suspect the numbers of different instances is actually more than you stipulated which I know doesn't help the situation any. I also don't think I ever saw any replies on the Prodigy website for the amendments I'd tried to contribute - although not sure there are many Lazarus developers on there anyway.

I had a similar issue with some code I'd published on the Lazarus forums to add some features to the RXlib (specifically the memory table component - I'd managed to add some downstream code from the JVCL memory table component which was based on the RXLib comp but which had had some nice extra features added over the years) and which I needed for an application. My patches were effectively made redundant by code others had manage to get incorporated into that particular library (but which IMHO weren't as good as the JVCL code which has stood the test of time). The code they'd incorporated broke my patches so I just stopped using it completely and switched to using the memory db features of SQLite (using Zeos). It is difficult to try and contribute sometimes when people don't return emails and there's no real way of contributing code.

Hopefully this is an opportunity to standardise on one version!

TheBlackSheep