//Banasoft AVPhone3 video/audio controls
//Version: 6.0
AVPhone3;
GUID = {34754227-0620-43ED-B218-C60387EA5BB9};


Dispatch _VidCap;
GUID = {305C0606-730B-46FA-B4F3-2E11C05B055D};
  function QueryInterface(riid: ^GUID; out ppvObj: ^^VOID); stdcall;
  function AddRef: UI4; stdcall;
  function Release: UI4; stdcall;
  function GetTypeInfoCount(out pctinfo: ^UINT); stdcall;
  function GetTypeInfo(itinfo: UINT; lcid: UI4; out pptinfo: ^^VOID); stdcall;
  function GetIDsOfNames(riid: ^GUID; rgszNames: ^^I1; cNames: UINT; lcid: UI4; out rgdispid: ^I4); stdcall;
  function Invoke(dispidMember: I4; riid: ^GUID; lcid: UI4; wFlags: UI2; pdispparams: ^DISPPARAMS; out pvarResult: ^Variant; out pexcepinfo: ^EXCEPINFO; out puArgErr: ^UINT); stdcall;
  //Current capture device index or name substring, -1 means no device.
  property-get Device: Variant; stdcall;
  //Current capture device index or name substring, -1 means no device.
  property-put Device(: Variant); stdcall;
  //Device name collection, use for each to enum device names.
  property-get Devices: IDispatch; stdcall;
  //Set or get the device format, BITMAPINFO in string.
  property-get Format: Variant; stdcall;
  //Set or get the device format, BITMAPINFO in string.
  property-put Format(: Variant); stdcall;
  //IPicture property for current image.
  property-get Picture: IDispatch; stdcall;
  //Capture speed, 0 to 30. 0 means stop, default is 8.
  property-get Rate: R8; stdcall;
  //Capture speed, 0 to 30. 0 means stop, default is 8.
  property-put Rate(: R8); stdcall;
  //Show the about window.
  function AboutBox; stdcall;
  //Show the display dialog.
  function DisplayDlg; stdcall;
  //Show the device format selection dialog.
  function FormatDlg; stdcall;
  //Show the source dialog.
  function SourceDlg; stdcall;

CoClass VidCap;
GUID = {D12BA6BB-0E5E-4879-B9E8-E7BFFA2C402D};

Dispatch _VidRnd;
GUID = {12B7B21A-7B3D-4634-AAEE-2FA75424C07C};
  function QueryInterface(riid: ^GUID; out ppvObj: ^^VOID); stdcall;
  function AddRef: UI4; stdcall;
  function Release: UI4; stdcall;
  function GetTypeInfoCount(out pctinfo: ^UINT); stdcall;
  function GetTypeInfo(itinfo: UINT; lcid: UI4; out pptinfo: ^^VOID); stdcall;
  function GetIDsOfNames(riid: ^GUID; rgszNames: ^^I1; cNames: UINT; lcid: UI4; out rgdispid: ^I4); stdcall;
  function Invoke(dispidMember: I4; riid: ^GUID; lcid: UI4; wFlags: UI2; pdispparams: ^DISPPARAMS; out pvarResult: ^Variant; out pexcepinfo: ^EXCEPINFO; out puArgErr: ^UINT); stdcall;
  //Set or get the video format, BITMAPINFO in string.
  property-get Format: Variant; stdcall;
  //Set or get the video format, BITMAPINFO in string.
  property-put Format(: Variant); stdcall;
  //Render speed, -30 to 30, 0 means stop.Set to positive value will use internal buffer for every frame.
  property-get Rate: R8; stdcall;
  //Render speed, -30 to 30, 0 means stop.Set to positive value will use internal buffer for every frame.
  property-put Rate(: R8); stdcall;
  //Zoom percentage, 1 to 10000, 0 means random, -1 means full screen. Default is 100.
  property-get Zoom: R8; stdcall;
  //Zoom percentage, 1 to 10000, 0 means random, -1 means full screen. Default is 100.
  property-put Zoom(: R8); stdcall;
  //Current image, IPictureDisp object.
  property-get Picture: IDispatch; stdcall;
  //Current image, IPictureDisp object.
  property-putref Picture(: IDispatch); stdcall;
  //Show the about window.
  function AboutBox; stdcall;
  //Write a frame to output buffer.
  function Frame(out Data: ^Variant; out IsKeyFrame: Bool); stdcall;

CoClass VidRnd;
GUID = {25A2BEE0-5504-449A-85F4-54B564C9E466};

Dispatch _AudCap;
GUID = {5354D07E-C419-4AB0-BACD-7A3FCC811CC2};
  function QueryInterface(riid: ^GUID; out ppvObj: ^^VOID); stdcall;
  function AddRef: UI4; stdcall;
  function Release: UI4; stdcall;
  function GetTypeInfoCount(out pctinfo: ^UINT); stdcall;
  function GetTypeInfo(itinfo: UINT; lcid: UI4; out pptinfo: ^^VOID); stdcall;
  function GetIDsOfNames(riid: ^GUID; rgszNames: ^^I1; cNames: UINT; lcid: UI4; out rgdispid: ^I4); stdcall;
  function Invoke(dispidMember: I4; riid: ^GUID; lcid: UI4; wFlags: UI2; pdispparams: ^DISPPARAMS; out pvarResult: ^Variant; out pexcepinfo: ^EXCEPINFO; out puArgErr: ^UINT); stdcall;
  //Audio input device index or name substring, -1 for default device and -2 for no device selected.
  property-get Device: Variant; stdcall;
  //Audio input device index or name substring, -1 for default device and -2 for no device selected.
  property-put Device(: Variant); stdcall;
  //Audio wave device name collection.
  property-get Devices: IDispatch; stdcall;
  //Set or get the device format, WAVEFORMEX in string.
  property-get Format: Variant; stdcall;
  //Set or get the device format, WAVEFORMEX in string.
  property-put Format(: Variant); stdcall;
  //Capturing speed, 1 to 30 frames persecond.
  property-get Rate: R8; stdcall;
  //Capturing speed, 1 to 30 frames persecond.
  property-put Rate(: R8); stdcall;
  //Capturing volume. Low word for left channel and high word for right channel.
  property-get Volume: I4; stdcall;
  //Capturing volume. Low word for left channel and high word for right channel.
  property-put Volume(: I4); stdcall;
  //Show the about window.
  function AboutBox; stdcall;
  //Show the format selection dialog.
  function FormatDlg; stdcall;

CoClass AudCap;
GUID = {F6E028A4-E490-46C2-81BA-B8282CF5244A};

Dispatch _AudRnd;
GUID = {FC9B5088-6234-4440-9139-25D83B87203C};
  function QueryInterface(riid: ^GUID; out ppvObj: ^^VOID); stdcall;
  function AddRef: UI4; stdcall;
  function Release: UI4; stdcall;
  function GetTypeInfoCount(out pctinfo: ^UINT); stdcall;
  function GetTypeInfo(itinfo: UINT; lcid: UI4; out pptinfo: ^^VOID); stdcall;
  function GetIDsOfNames(riid: ^GUID; rgszNames: ^^I1; cNames: UINT; lcid: UI4; out rgdispid: ^I4); stdcall;
  function Invoke(dispidMember: I4; riid: ^GUID; lcid: UI4; wFlags: UI2; pdispparams: ^DISPPARAMS; out pvarResult: ^Variant; out pexcepinfo: ^EXCEPINFO; out puArgErr: ^UINT); stdcall;
  //Wave output device index or name substring. -1 for default, -2 for no device selected.
  property-get Device: Variant; stdcall;
  //Wave output device index or name substring. -1 for default, -2 for no device selected.
  property-put Device(: Variant); stdcall;
  //Output device name collection.
  property-get Devices: IDispatch; stdcall;
  //Set or get the audio format, WAVEFORMATEX in string.
  property-get Format: Variant; stdcall;
  //Set or get the audio format, WAVEFORMATEX in string.
  property-put Format(: Variant); stdcall;
  //Write a block of audio data to output buffer.
  function Frame(out Data: ^Variant); stdcall;
  //Output volume, low word for left channel and high word for right channel.
  property-get Volume: I4; stdcall;
  //Output volume, low word for left channel and high word for right channel.
  property-put Volume(: I4); stdcall;
  //Show the about window.
  function AboutBox; stdcall;

CoClass AudRnd;
GUID = {E6E18A04-22B6-477B-B991-D6713A77B510};

Dispatch _VidCodec;
GUID = {14BB917C-CF83-446D-BA78-2288AFDFF063};
  function QueryInterface(riid: ^GUID; out ppvObj: ^^VOID); stdcall;
  function AddRef: UI4; stdcall;
  function Release: UI4; stdcall;
  function GetTypeInfoCount(out pctinfo: ^UINT); stdcall;
  function GetTypeInfo(itinfo: UINT; lcid: UI4; out pptinfo: ^^VOID); stdcall;
  function GetIDsOfNames(riid: ^GUID; rgszNames: ^^I1; cNames: UINT; lcid: UI4; out rgdispid: ^I4); stdcall;
  function Invoke(dispidMember: I4; riid: ^GUID; lcid: UI4; wFlags: UI2; pdispparams: ^DISPPARAMS; out pvarResult: ^Variant; out pexcepinfo: ^EXCEPINFO; out puArgErr: ^UINT); stdcall;
  //Set or get the video format before conversion, BITMAPINFO in string.
  property-get InFormat: Variant; stdcall;
  //Set or get the video format before conversion, BITMAPINFO in string.
  property-put InFormat(: Variant); stdcall;
  //Set or get the video after conversion format, BITMAPINFO in string.
  property-get OutFormat: Variant; stdcall;
  //Set or get the video after conversion format, BITMAPINFO in string.
  property-put OutFormat(: Variant); stdcall;
  //Write a block of video data for conversion.
  function Frame(out Data: ^Variant; out IsKeyFrame: Bool); stdcall;
  //Send message to ICM.
  function SendMessage(MsgID: I4; Param1: I4; Param2: I4): I4; stdcall;
  //Show the compressor selection dialog.
  function CompressorDlg; stdcall;
  //Compression quality, 0 to max 9999, -1 for default.
  property-get Quality: I4; stdcall;
  //Compression quality, 0 to max 9999, -1 for default.
  property-put Quality(: I4); stdcall;
  //Show the about window.
  function AboutBox; stdcall;

CoClass VidCodec;
GUID = {136923D8-B1A0-450B-84A1-905F519ADA0D};

Dispatch _AudCodec;
GUID = {F16E8A1C-6F91-497F-B26A-B50D3D5BFDC2};
  function QueryInterface(riid: ^GUID; out ppvObj: ^^VOID); stdcall;
  function AddRef: UI4; stdcall;
  function Release: UI4; stdcall;
  function GetTypeInfoCount(out pctinfo: ^UINT); stdcall;
  function GetTypeInfo(itinfo: UINT; lcid: UI4; out pptinfo: ^^VOID); stdcall;
  function GetIDsOfNames(riid: ^GUID; rgszNames: ^^I1; cNames: UINT; lcid: UI4; out rgdispid: ^I4); stdcall;
  function Invoke(dispidMember: I4; riid: ^GUID; lcid: UI4; wFlags: UI2; pdispparams: ^DISPPARAMS; out pvarResult: ^Variant; out pexcepinfo: ^EXCEPINFO; out puArgErr: ^UINT); stdcall;
  //Set or get the audio format before conversion, WAVEFORMATEX in string.
  property-get InFormat: Variant; stdcall;
  //Set or get the audio format before conversion, WAVEFORMATEX in string.
  property-put InFormat(: Variant); stdcall;
  //Set or get the audio format after conversion, WAVEFORMATEX in string.
  property-get OutFormat: Variant; stdcall;
  //Set or get the audio format after conversion, WAVEFORMATEX in string.
  property-put OutFormat(: Variant); stdcall;
  //One frame converted.
  function Frame(out Data: ^Variant); stdcall;
  //Show the compressor selection dialog.
  function CompressorDlg; stdcall;
  //Show the about window.
  function AboutBox; stdcall;

CoClass AudCodec;
GUID = {4A4E8F27-1116-4FB9-8B9E-6AA940F801EA};

Dispatch _AVIFile;
GUID = {EF3DCD33-BCD1-439A-B71E-6196C6CFBCCE};
  function QueryInterface(riid: ^GUID; out ppvObj: ^^VOID); stdcall;
  function AddRef: UI4; stdcall;
  function Release: UI4; stdcall;
  function GetTypeInfoCount(out pctinfo: ^UINT); stdcall;
  function GetTypeInfo(itinfo: UINT; lcid: UI4; out pptinfo: ^^VOID); stdcall;
  function GetIDsOfNames(riid: ^GUID; rgszNames: ^^I1; cNames: UINT; lcid: UI4; out rgdispid: ^I4); stdcall;
  function Invoke(dispidMember: I4; riid: ^GUID; lcid: UI4; wFlags: UI2; pdispparams: ^DISPPARAMS; out pvarResult: ^Variant; out pexcepinfo: ^EXCEPINFO; out puArgErr: ^UINT); stdcall;
  //Open file for read or write.
  function OpenFile(Path: BSTR; out ReadOnly: Bool; out Handler: BSTR); stdcall;
  //Close current file.
  function CloseFile; stdcall;
  //Add new track to file.
  function StreamAdd(fccType: Variant); stdcall;
  //Show the about window.
  function AboutBox; stdcall;
  //Read track data. Track -1 for first audio track, -2 for first video track, -3 for first text track, -4 for first midi track.
  function StreamRead(Track: I4; out Data: ^Variant; out Info: ^Variant); stdcall;
  //IPicture property for set or get current track picture.
  property-get StreamPicture(Track: I4): IDispatch; stdcall;
  //IPicture property for set or get current track picture.
  property-putref StreamPicture(Track: I4; : IDispatch); stdcall;
  //Write track data.Track -1 for first audio track, -2 for first video track, -3 for first text track, -4 for first midi track.
  function StreamWrite(Track: I4; out Data: ^Variant; out Info: Variant); stdcall;
  //Total track amount.
  property-get StreamCount: I4; stdcall;
  //Get or set stream format.
  property-get StreamFormat(Track: I4): Variant; stdcall;
  //Get or set stream format.
  property-put StreamFormat(Track: I4; : Variant); stdcall;
  //The max length of the tracks in mseconds.
  property-get Length: I4; stdcall;
  //Current frame position.
  property-get Position: I4; stdcall;
  //Current frame position.
  property-put Position(: I4); stdcall;
  //Track rate.
  property-get StreamRate(Track: I4): R8; stdcall;
  //Track rate.
  property-put StreamRate(Track: I4; : R8); stdcall;

CoClass AVIFile;
GUID = {DEFDFF51-DFF9-413A-BC11-4742D3523025};

Dispatch _UDPSocket;
GUID = {4AC7D068-6D68-4526-8A40-625294563269};
  function QueryInterface(riid: ^GUID; out ppvObj: ^^VOID); stdcall;
  function AddRef: UI4; stdcall;
  function Release: UI4; stdcall;
  function GetTypeInfoCount(out pctinfo: ^UINT); stdcall;
  function GetTypeInfo(itinfo: UINT; lcid: UI4; out pptinfo: ^^VOID); stdcall;
  function GetIDsOfNames(riid: ^GUID; rgszNames: ^^I1; cNames: UINT; lcid: UI4; out rgdispid: ^I4); stdcall;
  function Invoke(dispidMember: I4; riid: ^GUID; lcid: UI4; wFlags: UI2; pdispparams: ^DISPPARAMS; out pvarResult: ^Variant; out pexcepinfo: ^EXCEPINFO; out puArgErr: ^UINT); stdcall;
  //Address of local machine.
  property-get LocalAddress: I4; stdcall;
  //Set default send to address and return the address.
  function SetHost(Host: Variant): I4; stdcall;
  //Set default send to port and return the port.
  function SetPort(Port: Variant): I2; stdcall;
  //Get host string IP from address. Get remote host, 0 for current, -1 for default.
  function GetIP(Address: I4): BSTR; stdcall;
  //Get remote host, 0 for current, -1 for default.
  function GetHost(Address: I4): BSTR; stdcall;
  //Get port, 0 for current, -1 for default.
  function GetPort(Port: I2): BSTR; stdcall;
  //Show the about window.
  function AboutBox; stdcall;
  //Bind socket to the local address and the port.
  function Bind(out Port: Variant; out Host: Variant); stdcall;
  //Send message to remote.
  function Frame(Address: I4; Port: I2; Handle: I4; out Param: I4; out Data: ^Variant); stdcall;

CoClass UDPSocket;
GUID = {4F91D36B-CB20-4F20-960C-6F1565CDD36D};

Dispatch __VidCap;
GUID = {FFFEFCB1-0B7F-4ADA-BC0E-92628680F92E};
  //One frame data captured.
  function Frame(out Data: ^Variant); stdcall;

Dispatch __VidRnd;
GUID = {B8EE1EC8-2B91-48D3-8D85-9D590715B32D};
  //Output buffer is empty.
  function BufferEmpty; stdcall;
  //Format or size changed.
  function Resize; stdcall;
  //Left mouse button click the window.
  function Click; stdcall;
  //User key down in full screen mode.
  function KeyDown(out KeyCode: ^I2; out Shift: ^I2); stdcall;
  //User key up in full screen mode.
  function KeyUp(out KeyCode: ^I2; out Shift: ^I2); stdcall;
  //User key press in full screen mode.
  function KeyPress(out KeyAscii: ^I2); stdcall;
  //Mouse down.
  function MouseDown(out Button: ^I2; out Shift: ^I2; out x: ^R4; out y: ^R4); stdcall;
  //Mouse up.
  function MouseUp(out Button: ^I2; out Shift: ^I2; out x: ^R4; out y: ^R4); stdcall;
  //Mouse move.
  function MouseMove(out Button: ^I2; out Shift: ^I2; out x: ^R4; out y: ^R4); stdcall;

Dispatch __AudCap;
GUID = {CB45AE57-596A-45BD-8552-CBE9252CCD50};
  //One frame captured, data is a byte array
  function Frame(out Data: ^Variant); stdcall;

Dispatch __AudRnd;
GUID = {D97226CD-FE2D-4247-A823-076EEFB93B9F};
  //Output buffer empty.
  function BufferEmpty; stdcall;

Dispatch __VidCodec;
GUID = {54FAC8AB-0584-4329-88CC-325ED116AE42};
  function Frame(out Data: ^Variant; IsKeyFrame: Bool); stdcall;
  //ICM driver is opening.
  function DriverOpened; stdcall;

Dispatch __AudCodec;
GUID = {9500E7EF-4A53-424D-96FD-12BA865B9C22};
  function Frame(out Data: ^Variant); stdcall;

Dispatch __AVIFile;
GUID = {EBA2844E-71B1-4829-AAA0-6C20E5F4A232};

Dispatch __UDPSocket;
GUID = {7EE341FF-C76A-4067-BE2B-5BD5DC933809};
  function Frame(Address: I4; Port: I2; Handle: I4; Param: I4; out Data: ^Variant); stdcall;

http://ftp.sunet.se/pub/simtelnet/win95/mmedcapt/avphone3.exe

* Reference To: MSVBVM50.__vbaLenBstr, Ord:0000h
                                  |
:42031908 FF15E0130442            Call dword ptr [420413E0]
:4203190E 85C0                    test eax, eax
:42031910 0F8482000000            je 42031998

* Possible StringData Ref from Code Obj ->"This control is license to:"
                                  |
:42031916 684CD80042              push 4200D84C

.......................................................................

|:42031910(C)
|
* Possible StringData Ref from Code Obj ->"Unregister version"
                                  |
:42031998 68B0D80042              push 4200D8B0