Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 138
  • Last Modified:

PLEASE HELP WITH SUCH DIFFICULT PROBLEM

Hello,

I have big problem and I believe that you'll help me.

And so, I'm writing a program that should has three windows in which there would be video streams (about 5 fps each) from video capturing card (Fly Video or similar). In future the code for AVI capturing would be added but now i need just small sample how just to see them.

Thank YOU!
0
RentGen
Asked:
RentGen
1 Solution
 
DaFoxCommented:
Hi.

What do you want to "see"? Do you want a video capture example code?
Could you please rephrase your question?

Markus
0
 
LukA_YJKCommented:
MediaPlayer can do it, I think. That is to show an AVI video.
0
 
JDuncanCommented:
You can embed multiple olecontainers on a form and play video's by setting the olecontainer to mediaplayer as follows:-

Filenameis the url pointing to the video avi/asf file

procedure TPreviewForm.OpenOLE(filename :String );
var
  OleObj : Variant;
begin
if (length(fileName)>0) then begin
  OleItem.CreateType:=ctNewObject;
  OleItem.ShowAsIcon:=false;
  OleItem.IconMetaPict:=0;
  OleItem.ClassID:=ProgIDToClassID('MediaPlayer.MediaPlayer.1');
  OleItem.FileName:=Filename;
  OleItem.DataObject:=nil;
  OleContainer1.CreateObjectFromInfo(OleItem);

  OleObj:=OleContainer1.OleObject;
  OleObj.FileName:=Filename;
  OleObj.ShowControls:=false;
  OleObj.ShowAudioControls:=true;
  OleObj.EnableTracker:=true;
  OleObj.ShowCaptioning:=false;
  OleObj.CurrentPosition:=StartPosition;

  OleContainer1.Run;
  if OleContainer1.State=osRunning then
    OleContainer1.DoVerb(0);
  OleObj.CurrentPosition:=StartPosition;
  if ShowControls1.Checked then
    OleObj.ShowControls:=true
  else
    OleObj.ShowControls:=false;
end;
end;


JD

0
 
CleanupPingCommented:
RentGen:
This old question needs to be finalized -- accept an answer, split points, or get a refund.  For information on your options, please click here-> http:/help/closing.jsp#1 
EXPERTS:
Post your closing recommendations!  No comment means you don't care.
0

Featured Post

Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now