archive-com.com » COM » E » EFG2.COM

Total: 878

Choose link from "Titles, links and description words view":

Or switch to "Titles and links view".

  • 236 11 Jun 2001 23 08 24 0700 Lines 44 Path dnews Xref dnews borland public delphi graphics 39625 Hi Alan Alan Miller wrote in I m fairly new at this video world but I am amazed that I can find no examples of an application doing video cam capture that doesn t use a popup window from wfw of which i don t have the source of course In other words all the components and examples actually calls this in the wfw pas file function capDlgVideoCompression hwnd THandle boolean begin Result boolean SendMessage hwnd WM CAP DLG VIDEOCOMPRESSION 0 0 end This is the a documented and easy way to choose and initialize all usefully properties This brings up a list of available codecs that the user can select from However since that window is controlled from within windows I need an example to get the ICinfo on the codecs available to the system that my app can pick from ie mpeg 4 instead of it always choosing the default AVI output which is a huge file believe me I looked up all the win sdk info on icinfo and icchoose etc and i just can t seem to

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/2001/0612a.txt (2016-02-14)
    Open archived version from archive



  • uk web http www wilsonc demon co uk delphi htm unit MainForm interface uses Windows Messages SysUtils Classes Graphics Controls Forms Dialogs StdCtrls mmsystem const WM FINISHED WM USER 200 type TForm1 class TForm Button1 TButton Button2 TButton procedure Button1Click Sender TObject procedure Button2Click Sender TObject procedure FormCloseQuery Sender TObject var CanClose Boolean private fData PChar fWaveHdr PWAVEHDR fWaveOutHandle HWAVEOUT procedure ReversePlay const szFileName string procedure WaveOutProc hwo HWAVEOUT uMsg UINT dwParam1 dwParam2 DWORD procedure WmFinished var msg TMessage message WM FINISHED Private declarations public Public declarations end var Form1 TForm1 implementation R DFM procedure Interchange hpchPos1 hpchPos2 PChar wLength word var wPlace word bTemp char begin for wPlace 0 to wLength 1 do begin bTemp hpchPos1 wPlace hpchPos1 wPlace hpchPos2 wPlace hpchPos2 wPlace bTemp end end procedure waveOutPrc hwo HWAVEOUT uMsg UINT dwInstance dwParam1 dwParam2 DWORD stdcall begin TForm1 dwInstance WaveOutProc hwo uMsg dwParam1 dwParam2 end procedure TForm1 ReversePlay const szFileName string var mmioHandle HMMIO mmckInfoParent MMCKInfo mmckInfoSubChunk MMCKInfo dwFmtSize dwDataSize DWORD pFormat PWAVEFORMATEX wBlockSize word hpch1 hpch2 PChar begin mmioHandle mmioOpen PChar szFileName Nil MMIO READ or MMIO ALLOCBUF if mmioHandle 0 then raise Exception Create Unable to open file szFileName try mmckInfoParent fccType mmioStringToFOURCC WAVE 0 if

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/2000/0607a.txt (2016-02-14)
    Open archived version from archive


  • could request if it has this capability before trying to play Hope this helps Genival P Carvalho Sao Paulo Brazil procedure TForm1 Button1Click Sender TObject begin SendMCICommand open waveaudio shareable SendMCICommand play hickory wav SendMCICommand play greeting wav SendMCICommand close waveaudio end procedure TForm1 SendMCICommand Cmd string var RetVal integer ErrMsg array 0 254 of char begin RetVal mciSendString StrAsPChar Cmd nil 0 0 if RetVal escreveu nas notícias de

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1999/1121a.txt (2016-02-14)
    Open archived version from archive


  • form the device to the disk as a BMP device independent bitmap file record a AVI file with sound and close the device Note You must have a video capture device installed for this example to work Example unit Unit1 interface uses Windows Messages SysUtils Classes Graphics Controls Forms Dialogs ExtCtrls MPlayer StdCtrls type TForm1 class TForm Panel1 TPanel OpenVideo TButton CloseVideo TButton GrabFrame TButton SaveBMP TButton StartAVI TButton StopAVI TButton SaveDialog1 TSaveDialog procedure FormCreate Sender TObject procedure OpenVideoClick Sender TObject procedure CloseVideoClick Sender TObject procedure GrabFrameClick Sender TObject procedure SaveBMPClick Sender TObject procedure StartAVIClick Sender TObject procedure StopAVIClick Sender TObject private Private declarations hWndC THandle CapturingAVI bool public Public declarations end var Form1 TForm1 implementation R DFM const WM CAP START WM USER const WM CAP STOP WM CAP START 68 const WM CAP DRIVER CONNECT WM CAP START 10 const WM CAP DRIVER DISCONNECT WM CAP START 11 const WM CAP SAVEDIB WM CAP START 25 const WM CAP GRAB FRAME WM CAP START 60 const WM CAP SEQUENCE WM CAP START 62 const WM CAP FILE SET CAPTURE FILEA WM CAP START 20 function capCreateCaptureWindowA lpszWindowName PCHAR dwStyle longint x integer y integer nWidth integer nHeight integer

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1999/0128a.txt (2016-02-14)
    Open archived version from archive


  • 52 Message ID X Trace dnews 992363578 62 155 203 52 12 Jun 2001 09 32 58 0700 Lines 56 Path dnews Xref dnews borland public delphi multimedia 1679 Hi Nick Nick Barrett wrote in How does one set the capture frame rate when using capCaptureSequenceNoFile I have tried changing CaptureParms dwRequestMicroSecPerFrame in my program but there seem to be no change to the rate that VideoStreamCallback is called I have tested the following method in my demo there are no problems I can set 1 frame per second and 50 frames per second the frame rate will realize UDFrameRate is a TUpDown var CaptureParms TCaptureParms begin if FCapWnd 0 then begin capCaptureGetSetup FCapWnd CaptureParms SizeOf CaptureParms with CaptureParms do begin frame rate dwRequestMicroSecPerFrame 1000000 div UDFrameRate Position background capture fYield True abort by mouse click fAbortLeftMouse True fAbortRightMouse True abort after 30 seconds fLimitEnabled True wTimeLimit 30 abort with space key vKeyAbort vk space end capCaptureSetSetup FCapWnd CaptureParms SizeOf CaptureParms capCaptureSequenceNoFile FCapWnd end end But I know a effect from my program If the duration of the callback procedure to big the next frame s will skip Use dwTimeCaptured to detect the correct position of the frame But this

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/2001/0612c.txt (2016-02-14)
    Open archived version from archive


  • http home t online de home Robert Rossmair TrrMixer To control the recording volume replace Playback by Recording 8 8 8 unit VolDemo1 interface uses Windows Messages SysUtils Classes Graphics Controls Forms ComCtrls rrMixer type TForm1 class TForm Mixer TrrMixer VolumeL TTrackBar VolumeR TTrackBar procedure VolumeLChange Sender TObject procedure VolumeRChange Sender TObject procedure FormCreate Sender TObject private procedure PlaybackVolumeChange Sender TrrMixer Control TAudioLineControl end var Form1 TForm1 implementation R DFM procedure TForm1 VolumeLChange Sender TObject begin Mixer Playback Volume Position 0 VolumeL Max VolumeL Position end procedure TForm1 VolumeRChange Sender TObject begin Mixer Playback Volume Position 1 VolumeR Max VolumeR Position end procedure TForm1 PlaybackVolumeChange Sender TrrMixer Control TAudioLineControl begin VolumeL Position VolumeL Max Mixer Playback Volume Position 0 VolumeR Position VolumeR Max Mixer Playback Volume Position 1 end procedure TForm1 FormCreate Sender TObject begin Mixer DeviceID 0 VolumeL Min Mixer Playback Volume Minimum VolumeL Max Mixer Playback Volume Maximum VolumeL Position VolumeL Max Mixer Playback Volume Position 0 VolumeR Min Mixer Playback Volume Minimum VolumeR Max Mixer Playback Volume Maximum VolumeR Position VolumeR Max Mixer Playback Volume Position 1 Mixer Playback Volume OnChange PlaybackVolumeChange end end 8 8 8 object Form1 TForm1 Left 192 Top 120 Width 217 Height

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/2001/0207.txt (2016-02-14)
    Open archived version from archive


  • delphi upgrade borland public delphi vcl components writing borland public delphi winapi Subject Re Volume control References Content Type text plain charset us ascii Content Transfer Encoding 7bit NNTP Posting Host 132 234 46 2 X Trace dnews 1003269712 132 234 46 2 16 Oct 2001 15 01 52 0700 Lines 54 Path dnews Xref dnews borland public delphi database desktop 130733 borland public delphi graphics 42825 borland public delphi objectpascal 210342 borland public delphi thirdparty tools 50285 borland public delphi upgrade 2721 borland public delphi vcl components writing 44233 borland public delphi winapi 149536 Marco Branco wrote 1 How could i control both left and right volume independently 2 How could i control the main volume buton to both sides right and left uses mmsystem function GetWaveVolume DWord var Woc TWAVEOUTCAPS Volume DWord begin if WaveOutGetDevCaps WAVE MAPPER Woc sizeof Woc MMSYSERR NOERROR then if Woc dwSupport and WAVECAPS VOLUME WAVECAPS VOLUME then begin WaveOutGetVolume WAVE MAPPER Volume Result Volume end end procedure SetWaveVolume const AVolume DWord var Woc TWAVEOUTCAPS begin if WaveOutGetDevCaps WAVE MAPPER Woc sizeof Woc MMSYSERR NOERROR then if Woc dwSupport and WAVECAPS VOLUME WAVECAPS VOLUME then WaveOutSetVolume WAVE MAPPER AVolume end Here s how they

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/2001/1016.txt (2016-02-14)
    Open archived version from archive


  • text plain charset koi8 r X MimeOLE Produced By Microsoft MimeOLE V4 72 3110 3 X Complaints To abuse east ru X Trace bull east ru 926487257 22514 195 170 63 17 12 May 1999 05 34 17 GMT Organization East Connection ISP Mime Version 1 0 NNTP Posting Date 12 May 1999 05 34 17 GMT Newsgroups comp lang pascal delphi components misc Something like it May be var

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1999/0511.txt (2016-02-14)
    Open archived version from archive



  •