Subject Re: Display Images on the form from a local imagefolder
From Mervyn Bick <invalid@invalid.invalid>
Date Fri, 22 Sep 2023 10:29:57 +0200
Newsgroups dbase.getting-started
Attachment(s) seek_fish1.wfm

On 2023/09/22 06:13, AGOSTINHO wrote:
> Following Mervin Bick adive that's not recommended  to  save images to tables.
>
....

> I added a character field named "imagefolder" to my fish4.dbf file and wrote the image files name to this particular record "C:\Users\HOME_PC\Desktop\blueangelfish.png"
>
> Dropped an image controle  from the componed pallete  to the form
> and have programmed an onNavigate function into the form.
>
> this.IMAGE1 = new IMAGE(this)
>     with (this.IMAGE1)
>        height = 4.84
>        left = 73.1111
>        top = 3.96
>        width = 17.8889
>     endwith
>
> function form_onNavigate(nWorkArea)
>               local cImageFileName
>               // Assuming I have a field in my table that contains image file paths
>              cImageFileName = form.fish41.rowset.fields["imagefolder"]
>              // Image control's ImageFile property to display the image
>            this.image1 = cImageFileName
>    return
>


Firstly, workareas are created when a table is USE'd with XDML.
Workareas don't exist when OODML query objects are used.  One can mix
XDML and OODML table access in a form if one is very careful but it is
NOT a good idea as it can lead to major problems.  Stick with OODML.

You need to use the onNavigate event handler of the rowset created by
the query object to tell the image control which image to display.

The syntax for displaying an image file in an image object is

       dataSource = 'FILENAME "whatever.jpg"'

No event handler executed by a query or a rowset understands the concept
"form".  One needs to use this.parent.parent in event handlers executed
by the rowset.

'this' refers to the rowset
'this.parent' refers to the query
'this.parent.parent' refers to the form.

  function rowset_onNavigate(type, nRows)
    cImageFileName = this.fields["imagefolder"].value
    this.parent.parent.image1.dataSource = 'FILENAME  "'+cImagefile+["]
    return

This has not been tested but it should work.  It will, however, only
work if the image files are in the same folder as your program.  If you
haven't set the image control's datasource in the constructor code to
access the first image in the table you will need to use the form's
onOpen event handler to do this.

  function form_onOpen
    cImageFileName = form.fish41.rowset.fields["imagefolder"].value
    form.image1.dataSource = 'FILENAME  "'+cImagefile+["]
    return

It is better programming practice to keep the image files in a separate
folder with the path in one field of the table and the file name in
another.  To display a file means combining the path and the filename.
Having trailing blanks for the file name is not a problem but they must
be removed from the path.  One can provide the path as a variable and
only save the file name to the table but I prefer to include the path in
a separate field.

A revised version of your test form is attached.

Mervyn.











if file ('fish_mb.dbf')
  drop table fish_mb
endif  
if not file('fish_mb.dbf')
   copy table :dbasesamples:fish to fish_mb
endif
cDir = set('dire')
nDir_len = len(cDir)+10
cPath = cDir+'\jpg_path'
cmd = 'alter table fish_mb add jpg_path char('+nDir_len+') , add jpg_name char(10)'
&cmd
try  
   cmd = 'md '+cDir+'\jpg_path'
   &cmd
catch(exception e)
endtry
cSafety = set('safety')
set safety off
q = new query()
q.sql = 'select * from fish_mb'
q.active = true
n = 1
do while not q.rowset.endofset
   cFish = 'fish'+n+'.jpg'
   cmd = 'q.rowset.fields["fish image"].copyToFile("'+cPath+'\'+cFish+'")'
   &cmd
   q.rowset.fields['jpg_path'] .value = cPath
   q.rowset.fields['jpg_name'].value = cFish
   n++
   q.rowset.next()
enddo
q.active= false
set safety  &cSafety

** END HEADER -- do not remove this line
//
// Generated on 2023-09-22
//
parameter bModal
local f
f = new SEEK_FISH1Form()
if (bModal)
   f.mdi = false // ensure not MDI
   f.readModal()
else
   f.open()
endif

class SEEK_FISH1Form of FORM
   with (this)
      onOpen = class::FORM_ONOPEN
      height = 16.0
      left = 50.1429
      top = -0.2273
      width = 55.2857
      text = ""
   endwith

   this.FISH_MB1 = new QUERY(this)
   with (this.FISH_MB1)
      left = 25.0
      top = 4.0
      width = 6.0
      height = 1.0
      sql = 'select * from "FISH_MB.dbf" where lower(name)  like lower(:ag)'
      params["ag"] = "%"
      active = true
   endwith

   with (this.FISH_MB1.rowset)
      onNavigate = class::ROWSET_ONNAVIGATE
   endwith

   this.GRID1 = new GRID(this)
   with (this.GRID1)
      dataLink = form.fish_mb1.rowset
      height = 6.16
      left = 2.3333
      top = 5.72
      width = 50.5556
   endwith

   this.ENTRYFIELD1 = new ENTRYFIELD(this)
   with (this.ENTRYFIELD1)
      onKey = class::ENTRYFIELD1_ONKEY
      height = 1.76
      left = 24.1111
      top = 12.76
      width = 24.1111
      value = ""
   endwith

   this.IMAGE1 = new IMAGE(this)
   with (this.IMAGE1)
      height = 4.0
      left = 4.7143
      top = 0.4545
      width = 17.1429
      dataSource = form.fish_mb1.rowset.fields["fish image"]
   endwith

   this.TEXTLABEL1 = new TEXTLABEL(this)
   with (this.TEXTLABEL1)
      height = 1.76
      left = 0.7778
      top = 12.76
      width = 18.6667
      text = "Search Fish By Name"
   endwith

   this.IMAGE2 = new IMAGE(this)
   with (this.IMAGE2)
      height = 4.0
      left = 32.8571
      top = 0.4545
      width = 17.1429
   endwith

   this.rowset = this.fish_mb1.rowset

   function ENTRYFIELD1_onKey(nChar, nPosition,bShift,bControl)
      form.FISH_MB1.params['ag'] = '%'+this.value+'%'
      try
         form.FISH_MB1.requery()
      catch(exception e)
         form.FISH_MB1.requery()
      endtry
      form.image1.dataSource = form.FISH_MB1.rowset.fields["fish image"]
      form.image2.dataSource = 'FILENAME  "'+trim(form.FISH_MB1.rowset.fields['jpg_path'].value)+'\'+form.FISH_MB1.rowset.fields['jpg_name'].value+'"'
      return

   function form_onOpen()
      //Display image for first record when form opens
      form.image2.dataSource = 'FILENAME  "'+trim(form.FISH_MB1.rowset.fields['jpg_path'].value)+'\'+form.FISH_MB1.rowset.fields['jpg_name'].value+'"'
      return

   function rowset_onNavigate(type, nRows)
      this.parent.parent.image2.dataSource = 'FILENAME  "'+trim(this.fields['jpg_path'].value)+'\'+this.fields['jpg_name'].value+'"'
      return

endclass



Warning: Unknown: write failed: No space left on device (28) in Unknown on line 0

Warning: Unknown: Failed to write session data (files). Please verify that the current setting of session.save_path is correct () in Unknown on line 0