ISProvider.GetPhotoId

Description

It is returned as the stream (ISStream), which includes the content of the provider's photo.

Syntax

object.GetPhotoId()

Part	Attribute	Type	Description
`object`	Required	ISProvider	The `object` always implements the ISProvider interface

Return Value

object

Example

Display the list of providers with photos, if any.

Dim aFilter 
Dim aProviders
Dim aProvider
Dim aHTML
Dim aProviderPhotoId 
Dim aMessage

Set aFilter = Profile.CreateProvidersFilter
aFilter.Category = 2 'pcProvider 
set aProviders = Profile.LoadProvidersByFilter(aFilter)

aHTML = "<HTML><HEAD><TITLE>Profile Providers</TITLE></HEAD><BODY>" &_
  "<H1>The number of the providers is " & aProviders.Count & "</H1>"

for each aProvider in aProviders
  aHTML = aHTML & "<li>" & aProvider.FullName & " (" & aProvider.Code & ")</li>"

  set aProviderPhotoId = aProvider.GetPhotoId
  if aProviderPhotoId is nothing then 
    aHTML = aHTML & "<p><i>No photo</i></p>" 
  else
    aHTML = aHTML & "<p><img src='data:image/jpeg;base64, " & aProviderPhotoId.AsBase64 & "'/></p>"
  end if 
next
 
aHTML = aHTML & "</BODY></HTML>" 

Profile.ShowHTML aHTML, "Profile Providers"

Note:

In Profile Client v8 on User Interface Photo ID can be found in Organisation > People&Places > People and Places > Open the selected Provider > Personal > Photo ID.

Version information

Added in v7.11.0

return type changed from

ISStream to
    object

in v7.11.0