auto populating image fields

[scottly]

I have a table record that contains an image type field. Each record has a record ID (in this case used as an Athletes unique ID). The client has taken photographs of each athelete and saved tham as athleteid.jpg - so 1.jpg, 2.jpg, 101.jpg etc. All jpg's have been saved in to one sub directory under there main a5 app directory. Rather than them having to right click / import in a maintenance form for each athelete in order to save the image to the record image field, is there a way I can import/load the images on mass.

I know how to read in a list of files in a directory, and locate the athlete record for each athelete id that can be derived from the image name, but how do I actually 'emulate' the right clcik/import of the image? I have searched but can not locate the xbasic to do that final step. No doubt there will be a little function somewhere that allows me to give it the image file path/name and effect the import of the images?

Regards,
Scott

[Peter.Greulich]

RE: auto populating image fields

Check out the attached sample previously posted to the v5 forum.

[scottly]

RE: auto populating image fields

shall do - thanks

[scottly]

RE: auto populating image fields

A weird result with this one - I will need to go back (tomorrow) and check my code. Images not displaying in the image box on the right when I click on the path in the browse om the left (after loading some images). I will look closer at it tomorrow.

Thanks for your help - much appeciated.

Regards,
Scott

[Chris Cooper]

RE: auto populating image fields

I have the same problem Scott, any ideas?

[scottly]

RE: auto populating image fields

Not sure yet - will look at it some more in the next few hours. If it worked on prior releases then possibly a bug or different approach required in v6.

Regards,
Scott

[Chris Cooper]

RE: auto populating image fields

I have tried it with V5 with no luck but haven't had a chance to delve deeper yet.

[scottly]

RE: auto populating image fields

Run it under debug and you will see an error - I am re-working it now.

[scottly]

RE: auto populating image fields

This works for me - maybe the exampel will help you - see comments in the code.

Regards,
Scott

dim shared mysourceimage as C
dim ws_xathleteid as C
dim shared ws_athleteid as N
'Open Athelets File
tbl = table.open("Athletes")
'Set mypath that has all images (hard code for now)
mypath="c:\nias\athleteimages" + chr(92)
'************************************************************
' Read for list of .jpg files that are in the atheletimages directory
'**************************************************************
files = filefind.get(MYPATH+"*.jpg",0,"n|c|l")
count = w_count(files,crlf())
dim a_files[count] as p
'now load the property array with the info in files
a_files.initialize_properties("name|date_time|size",files)
'**********************************************************************
' Loop through each image file found, if Athelteid exists
' (file name prefix is athleteid)
' set at_webimagedir (note: field type of this field is
' image reference - not jpg!)
' In my maintenance Form, image place holder uses at_webimageref
'**********************************************************************
j=0
while j""count
j=j+1
bypass_loop:
mysourceimage=a_files[j].name
'work out athlete id - first characters in the file name
ws_xathleteid=word(mysourceimage,1,".")
ws_athleteid=convert_type(ws_xathleteid,"N")
' query athlete Table
query.filter="at_id=ws_athleteid"
query.order=""
query.options="M"
qry_athletes=tbl.query_create()
nrecs=qry_athletes.records_get()
' If athlete record found then update record with the reference
if nrecs=1 then
tbl.change_begin()
myfullpath=mypath+mysourceimage
tbl.at_webimagedir=image_filename_encode(myfullpath)
tbl.change_end(.t.)
end if
qry_athletes.drop()
xbasic_wait_for_idle()
end while
tbl.close()

[Alatwharfedale]

Re: auto populating image fields

Hi Scott

I'm not sure if I can help you as I'm trying to solve with automated file import into RTF fields. I guess the concept is the same. I see the code above on the image import - but can you point me in the right direction on file import generally?
Best regards
Al

[Stan Mathews]

Re: auto populating image fields

Hi Scott

I'm not sure if I can help you as I'm trying to solve with automated file import into RTF fields. I guess the concept is the same. I see the code above on the image import - but can you point me in the right direction on file import generally?
Best regards
Al

Al,

I don't think you have the same situation.

An image reference field is designed to hold a reference to a .bmp or .jpg file. There is a function to turn the full path of such a file into the format necessary for an image reference field ( image_filename_encode() ). Nothing is stored in the image reference field except a "pointer" to the actual file.

If I read your other post correctly, you want to import the contents of a word document into an rtf memo field.

This is a different matter.

I see the code above on the image import

Nothing is being imported in the code above.