Re: Retrieving Image from LTMMPlay

I currently use to access individual frames in a video

Clipboard.Clear
Set pic = LTMMPlay.GetStillPicture(1000)
Clipboard.SetData pic
lCount = 0
Do While ld.Paste(PASTE_ISREADY) = 0 And (lCount 0 Then
ld.Paste 0
ld.ForceRepaint
End If

I would like to eliminate the use of the clipboard but I haven't figured out a method that works.
Ian

Ian,
It appears you're using one of our OCX/COM objects such as the LEAD Main OCX. If that's the case, you can get the still picture from our player control and pass it to our Main OCX control by using the following code:
+----------------+
Dim pic As Long
pic = ltmmPlayCtrl1.GetStillDIB(1000)
LEAD1.SetDIB (pic)
+----------------+

Thanks,
Maen Badwan
LEADTOOLS Technical Support

I tried implementing this and it works for a bit but I quickly run out of memory. Perhaps I need to clear a memory buffer?

Yes you need to free the memory of the DIB image. Try to use the following code:
+------------+
Private Declare Function GlobalFree Lib "kernel32.dll" (ByVal hMem As Long) As Long
Private Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long

Private Sub Command1_Click()
  Dim pic As Long
  pic = ltmmPlayCtrl1.GetStillDIB(500)
  LEAD1.Bitmap = 0
  LEAD1.SetDIB (pic)
  GlobalUnlock(pic)
  GlobalFree (pic)
End Sub
+------------+

If the problem persists, please send this issue to support@leadtools.com and include the following information in your email:
1. What is the versions of LEADTOOLS Imaging SDK (14.5, 17.0, etc.)?
2. What is the versions of LEADTOOLS Multimedia SDK that you use?
3. Send me your LEADTOOLS serial numbers (do Not post them here).
4. A link to this forum post.

Thanks,
Maen Badwan
LEADTOOLS Technical Support

Thanks very much for the help. That seems to solve the memory issue and allows me to avoid using the clipboard.

Ian