Display .PCT Quicktime pictures using Access

Posted on 2006-03-28
Medium Priority
Last Modified: 2010-05-18
I have a database where I need to display on a form .PCT pictures created by Quicktime.

I always use WebBrowser1 .ocx to display .jpg pictures but it won't display .PCT picutures.

(Handy Code I wrote:)
Dim varPath As Variant
Dim varPic1 As Variant

Dim varX As Variant
Dim varY As Variant
Dim varZ As Variant

varPath = DLookup("[PicPath]", "QRY_PicLookup", "[Screen]=" & [List67].Column(1))
varPic1 = DLookup("[PIC1]", "QRY_PicLookup", "[ID]=" & List67.Column(0))

varX = "about:<html><center><body scroll='no'><img src='" 'Centers Picture
varY = "</img><p> </center><pre> </pre></body></html>" 'Puts Picture in Center
varZ = "'width=100% height=100% />"

'Puts Picture in WebBrowser Contol Centered & Turns off ScrollBar & Scales Picture to WebBrowser Size
    WebBrowser1.Navigate varX + varPath + varPic1 + varZ + varY

I noticed in my Access controls there is a QuickTime Object...perhaps this could work however I don't know the string comands to use it from VB for this control.

Converting the images from .PCT to .JPG is not an option.
Any Ideas...Thanks a million in advance!
Question by:ACSPanama
  • 2
LVL 39

Expert Comment

ID: 16311955
Quicktime comes with an ActiveX control QTPlugin.ocx found in C:\Program Files\QuickTime\ if installed in the default folder.  I have never used it.  Googling the control, I found many references with problems with the control (example: http://lists.apple.com/archives/QuickTime-API/2003/Oct/msg00254.html).  You could try installing it and playing with it to see if you could get it to work.  

Or you can open IE in an unbound OLE control and run the Quicktime in that (I haven't tried that either).

Or you can convert the pct files to a temporary jpg file on the fly to display it and then delete the jpg file.

Author Comment

ID: 16313807
Discovered that you can use Unbound Object Frame and it views the Quicktime .PCT files perfectly! Who would of guessed?

There is a sample database here:

I story my file names in a table and sort them by a query. This works with .PCT, .JPG files etc.
Here is my Code:

Dim varPath As Variant
Dim varPic1 As Variant

varPath = DLookup("[PicPath]", "QRY_PicLookup", "[Screen]=" & [List67].Column(3))
varPic1 = DLookup("[PIC1]", "QRY_PicLookup", "[ID]=" & List67.Column(0))

Me.ImgView1.Picture = varPath + varPic1  'Puts Picture in ImageBox
LVL 39

Accepted Solution

thenelson earned 375 total points
ID: 16315119
Good!  Glad you got a solution.  Sounds like I helped at least a little with my unbound OLE box suggestion.  Happy programming.

Featured Post

What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article describes a method of delivering Word templates for use in merging Access data to Word documents, that requires no computer knowledge on the part of the recipient -- the templates are saved in table fields, and are extracted and install…
We live in a world of interfaces like the one in the title picture. VBA also allows to use interfaces which offers a lot of possibilities. This article describes how to use interfaces in VBA and how to work around their bugs.
Polish reports in Access so they look terrific. Take yourself to another level. Equations, Back Color, Alternate Back Color. Write easy VBA Code. Tighten space to use less pages. Launch report from a menu, considering criteria only when it is filled…
With just a little bit of  SQL and VBA, many doors open to cool things like synchronize a list box to display data relevant to other information on a form.  If you have never written code or looked at an SQL statement before, no problem! ...  give i…
Suggested Courses

850 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question