PictureBox Picture from Web (Internet) Image

Question

Thank you for your help in advance.  I have been attempting to display a web image in a SAP UDO form using the following in C# but have not been successful:
I use this code section to initiate the picture item and bind them:
SAPbouiCOM.PictureBox oPictureBox;
oForm.DataSources.UserDataSources.Add("picsource", SAPbouiCOM.BoDataType.dt_SHORT_TEXT, 100);
oItem = oForm.Items.Item("30");
oPictureBox = (SAPbouiCOM.PictureBox)oItem.Specific;
oPictureBox.DataBind.SetBound(true, "", "picsource");
I first attempted to do it through datasource:
oForm.DataSources.UserDataSources.Item("picsource").ValueEx = "http://www.myfavoritesite.com/images/picture.jpg";
Next I tried using the .Picture (direct) method:
oPictureBox.Picture = "http://www.myfavoritesite.com/images/picture.jpg";
Neither method worked for me.  I able to have the Picture pull from any place on my computer or the network but am wondering if someone can show me a way to pull an image from a website.  Perhaps I cannot use a SAP object to do this?  Can I use a .NET object in a SAP form?  Thanks for any suggestions you can provide.

Answer 1

HI,
You can use an activeX object for it.
If somebody tell's me the Picturebox Class ID it can work, but see the following code:
  oItem = oForm.Items.Add("3", BoFormItemTypes.it_PICTURE)
        oItem.Width = 280
        oItem.Height = 300
        oItem.Top = 5
        oItem.Left = 5
        Dim url As String = "http://www.itelligence.hu/hu/images/header_compass_sharp.jpg"
        Dim oPictureBox As SAPbouiCOM.PictureBox = oItem.Specific
        oPictureBox.Picture = LoadPictureBoxFromWeb(url)
  Function LoadPictureBoxFromWeb(ByVal url As String) As String
        Try
            Dim FileName As String = url.Substring(url.LastIndexOf("/") + 1)
            FileName = String.Format("{0}\{1}", Windows.Forms.Application.StartupPath, FileName)
            Dim request As WebRequest = WebRequest.Create(url)
            Dim response As WebResponse = request.GetResponse()
            Dim oPictureBox As New System.Windows.Forms.PictureBox
            oPictureBox.SizeMode = PictureBoxSizeMode.AutoSize
            oPictureBox.Image = System.Drawing.Image.FromStream(response.GetResponseStream)
            oPictureBox.Image.Save(FileName)
            Return FileName
        Catch
            Return ""
        End Try
        Return True
    End Function
Regards,
J.