Dear Peter,
I can't help you with your query, and you might have to repost it
because it's nestled inside a string of "Joined Query" postings.
However I'm very interested in stereoscopic pictures, and from the link
in your posting I found my way to
http://www.kamerasamling.dk/stereo/haderslev%20maj%202015/index.htm?12%20haderslev.jpg
where you have some stereoscopic pictures.
It looks like the R & L pictures are not taken at precisely the same
time, and moving people show strange effects. For instance in the last
image of a street scene with circular blue traffic signs at the bottom,
there are two men walking to the right, and in each case one of their
legs is at an impossible angle. The man on the right, just about to walk
behind the building, has his foot appearing to be in front of the yellow
sign on the pavement!
Regards,
Dave W
On 03/04/2019 15:22, Peter Randløv randlov@post9.tele.dk
[MS_Access_Professionals] wrote:
>
> Dear friends
> In my DB with 30,000 stereoscopic images there is normally an image
> for each record. If not, an alternative image will be shown.
> In the online version the check is:
>
> /If Dir(Image) = "" Then 'check if image exists
>
> /but obviously it is not that easy off line.
> From the internet I have found some code, but I cannot make it work:
> In a module I have following function:
>
> /Option Compare Database//
> //Option Explicit//
> //Public HttpRequest As Object//
> //__________________________________________________________//
> //Public Function URLExists(imageURL As String) As Boolean//
> //
> //Dim Request As Object//
> //Dim ff As Integer//
> //Dim rc As Variant//
> //
> //'On Error GoTo Endnow//
> //Set Request = CreateObject("WinHttp.WinHttpRequest.5.1")//
> //With Request//
> /*/.Open "GET", imageURL, False 'OBJECT REQUIRED/*/
> //.Send//
> //rc = .StatusText//
> //End With//
> //Set Request = Nothing//
> //If rc = "OK" Then URLExists = True//
> //Exit Function//
> //Endnow://
> //End Function//
> //
> /For the form, which opens the URL (the image), the code is:/
> //
> //Private Sub Form_Current()//
> // Dim imageURL As String//
> // Dim Filename As String//
> ////Filename = [LBNR] & ".jpg"//
> //imageURL = "www.fotohistoricum.dk/rods/samling/" & Left([LBNR], 2) &
> "/" & Filename//
> //URLExists (imageURL)//
> //MsgBox imageURL, vbInformation, URLExists(imageURL)//'*gives the
> correct URL and "False"*
> //'some code missing here//
> // With Me.Webbrowser20//
> // .ControlSource = "=" & """" & imageURL & """"//
> // End With//
> //End Sub//
> /
> The function URLExists always return "false", also if the image exists.
> The problem is in the line in bold with the error message "Object
> required".
> Any suggestion on what I am doing wrong?
>
> Best regards
> Peter
>
>
>
>
Posted by: Dave Williams <davewillgmale@gmail.com>
| Reply via web post | • | Reply to sender | • | Reply to group | • | Start a New Topic | • | Messages in this topic (9) |
Tidak ada komentar:
Posting Komentar