next »

[subh]

The VB header is not complete.

any news? Inout
How to Alpha color change when Multi Video Output?

Ionut pls. check my code, where i am wrong?

[Ionut Cristea]

  Seems to be ok except some codes have been set after creation of stream but that don't matter so much. What is the problem.

Ionut

[subh]

the problem is does not work all panel Alpha color, working only one panel (picturebox1).

[subh]

the problem is does not work all panel Alpha color, working only one panel (picturebox1).

which day you post your new vb header and demo code and please upload demo code. Ionut, I told you how to get
codec filter name in popup menu or dual audio streems name so kindly help this code

please reply

subh

[Ionut Cristea]

var
 menu: TMenuItem;
 count: Integer;
 str: xVideo_STREAMS;
 I: Integer;
begin
 Popupmenu1.Items.Items[2].Items[0].Clear;
 Popupmenu1.Items.Items[2].Items[1].Clear;
 Popupmenu1.Items.Items[2].Items[2].Clear;
 count := xVideo_ChannelStreamsCount(chan);
 if(count<=0) then exit;
 for I := 0 to count-1 do
 begin
   if(xVideo_ChannelGetStream(chan,I,@str,xVideo_UNICODE)) then
   begin
     menu := TMenuItem.Create(PopupMenu1);
     menu.Caption := String(PWideChar(str.name));
     menu.Checked := str.enabled;
     menu.Tag := I;
     menu.OnClick := EnableStream;
     Popupmenu1.Items.Items[2].Items[str.format-1].Add(menu);
   end;
 end;
end;

HEre is the delphi code to get the streams. About vb code, sorry don't know so much VB.

Ionut

[subh]

Try Delphi to vb then I'll post it okay 

subh

[subh]

Try Delphi to vb then I'll post it okay 

and how to solve this code.
the problem is does not work all panel Alpha color, working only one panel (picturebox1). ??


subh 

[subh]

var
 menu: TMenuItem;
 count: Integer;
 str: xVideo_STREAMS;
 I: Integer;
begin
 Popupmenu1.Items.Items[2].Items[0].Clear;
 Popupmenu1.Items.Items[2].Items[1].Clear;
 Popupmenu1.Items.Items[2].Items[2].Clear;
 count := xVideo_ChannelStreamsCount(chan);
 if(count<=0) then exit;
 for I := 0 to count-1 do
 begin
   if(xVideo_ChannelGetStream(chan,I,@str,xVideo_UNICODE)) then
   begin
     menu := TMenuItem.Create(PopupMenu1);
     menu.Caption := String(PWideChar(str.name));
     menu.Checked := str.enabled;
     menu.Tag := I;
     menu.OnClick := EnableStream;
     Popupmenu1.Items.Items[2].Items[str.format-1].Add(menu);
   end;
 end;
end;

HEre is the delphi code to get the streams. About vb code, sorry don't know so much VB.

Ionut

sorry Ionut does not work properly
String(PWideChar(str.name)); 'not found

what can I do now???

subh 

[Ionut Cristea]

 That's is a cast for reading unicode strings.

str.name is a ansi/unicode string. Depends if xVideo_UNICODE flag was specified when called the xVideo_ChannelGetStream function.

Ionut

[Chris]

I don`t think that vb6(15 years old dev language strange)  knows unicode
so change it to

if(xVideo_ChannelGetStream(chan,I,@str,0)) then
   begin
     menu := TMenuItem.Create(PopupMenu1);
     menu.Caption := PAnsiChar(str.name);
     menu.Checked := str.enabled;
     menu.Tag := I;
     menu.OnClick := EnableStream;
     Popupmenu1.Items.Items[2].Items[str.format-1].Add(menu);
   end;

[subh]

I don`t think that vb6(15 years old dev language strange)  knows unicode
so change it to

I know Chris but I love VB and my demo project ready is 85% complete, I can't change my language. thanks your advice and I will follow to you

Hello Ionut,
My Over head Programmer I don't Understand this logic, I totally confused
and I hate copy paste.

see my attachment and please create it for me
thanks

[Ionut Cristea]

  Take this. Note that you should read the documentation or see the examples. No one will do the whole project for you and i don't know VB so i can't help you so much except with C++/.NET or Delphi examples.


Ionut