Alpha Video Training
Results 1 to 7 of 7

Thread: image reference file

  1. #1
    VAR
    Real Name
    Martin W. Cole
    Join Date
    Apr 2000
    Location
    Terrell, Texas (near Dallas)
    Posts
    5,949

    Default image reference file

    searching and studying past posts, (this is my first attempt at images,) the following script works, up to the point of assigning "result" to the image reference object.


    dim this_path as C
    dim bare_path as C
    dim app_path as C
    dim shadowed as L
    this_path=:a5.Get_Path()
    bare_path=:a5.Get_Master_Path()
    if len(alltrim(bare_path)) = 0 then 'if zero, not shadowed
    shadowed =.F.
    app_path = this_path + chr(92)
    else
    shadowed =.T.
    app_path = bare_path + chr(92)
    end if
    result=ui_get_image_filename(app_path + "bellimages\overall\\")
    ui_msg_box("","" + result) 'this displays the correct path and image
    if result "" ""
    parentform:overall.value=result 'this bombs
    end if
    end

  2. #2
    Member
    Real Name
    Duane Pederson
    Join Date
    Apr 2000
    Location
    Medicine Hat, AB
    Posts
    363

    Default RE: image reference file

    Hi Martin

    This is a script I use to automatically link up 2 image ref fields with saved image filenames in records.
    Works well.
    There may be something in here that you can use.
    Scott Emerick supplied me with the makings of it

    Duane

  3. #3
    Member
    Real Name
    Duane Pederson
    Join Date
    Apr 2000
    Location
    Medicine Hat, AB
    Posts
    363

    Default RE: image reference file

    Maybe I'll put the code in now



    'Run script: path_name2
    script_play("path_name2")

    ':pick_proofs2:browse1.Fetch_First()
    topparent:Browse1.fetch_first()
    Dim ImageFilename as c
    Dim Imagefilename2 as c

    tbl=table.open("proofs")
    tbl.fetch_first()
    while .not. tbl.fetch_eof()


    'Set filename for an Image File Reference field: 'Jpg1 and Jpg2' in current window.
    ImageFilename = a5_eval_expression("=Var-"thumb_path2+left(right(alltrim(proofs-"Pic1name),12),8)+\".jpg\"")
    ImageFilename2 = a5_eval_expression("=Var-"thumb_path2+left(right(alltrim(proofs-"Pic2name),12),8)+\".jpg\"")
    Dim TempObj as p
    Dim TempObj2 as p
    dim readonly_flag as l
    dim readonly_flag2 as l
    'Get a pointer to the Object on the Form/Browse that has the image file ref field.
    TempObj = obj(topparent.name(16)+":"+"Jpg1")
    TempObj2 = obj(topparent.name(16)+":"+"Jpg2")
    'Check if the image field is readonly
    readonly_flag = TempObj.field.readonly
    readonly_flag2 = TempObj2.field.readonly
    if readonly_flag = .t. then
    ui_msg_box("Error","Cannot change image in Image field '"+"Jpg1"+"' because it is read-only",UI_STOP_SYMBOL)
    end
    else
    dim Tbl as p
    'Get a pointer to the table for the image field
    Tbl = tempobj.Field_Get().table_get()
    dim Fld as p
    'Get a pointer to the image field
    Fld = tempobj.field_get()

    'end if

    'If the table is in View mode, put it in change mode
    If tbl.mode_get() = 0 then
    tbl.change_begin()
    fld.value_put((ImageFileName))
    tbl.change_end(.t.)
    else
    fld.value_put((ImageFileName))
    end if

    end if

    if readonly_flag2 = .t. then
    ui_msg_box("Error","Cannot change image in Image field '"+"Jpg2"+"' because it is read-only",UI_STOP_SYMBOL)
    end
    else
    dim Tbl3 as p
    'Get a pointer to the table for the image field
    tbl3 = tempobj2.Field_Get().table_get()
    dim Fld3 as p
    'Get a pointer to the image field
    Fld3 = tempobj2.field_get()

    'end if

    If tbl3.mode_get() = 0 then
    tbl3.change_begin()
    fld3.value_put((ImageFileName2))
    tbl3.change_end(.t.)
    else
    fld3.value_put((ImageFileName2))
    end if

    'now refresh the object
    tempObj.refresh()
    tempObj2.refresh()

    tbl.fetch_next()
    end if
    end while

    end

  4. #4
    "Certified" Alphaholic Scott Emerick's Avatar
    Real Name
    Scott Emerick
    Join Date
    Dec 2000
    Location
    Central Virginia/ North Carolina Border
    Posts
    2,154

    Default RE: image reference file

    Martin,

    When you say "It Bombs", what exactly happens?

    Scott

  5. #5
    VAR
    Real Name
    Martin W. Cole
    Join Date
    Apr 2000
    Location
    Terrell, Texas (near Dallas)
    Posts
    5,949

    Default RE: image reference file

    It doesn't save anything (the field is an image referrence field):

    all I'm basically trying to do is control the path/folder it opens, given the form and object. I am having them save all images as jpg's to specific folders


    here is an amended script, but for some reason it is no longer displaying the jpegs in the folder - and I have to then browse to get them (I think it wants to use bmp's)

    parentform.allow_change(.t.)
    dim app_path as C
    dim shadowed as L
    this_path=:a5.Get_Path()
    bare_path=:a5.Get_Master_Path()
    if len(alltrim(bare_path)) = 0 then 'if zero, not shadowed
    shadowed =.F.
    app_path = this_path + chr(92)
    else
    shadowed =.T.
    app_path = bare_path + chr(92)
    end if
    result=ui_get_image_filename(app_path + "bellimages\overall\\")
    ui_msg_box("","" + result)
    if result "" ""
    t=table.current()
    fld=t.field_get("overall")
    fld.value_put(result)
    end if
    parentfom.commit()
    end

  6. #6
    "Certified" Alphaholic Scott Emerick's Avatar
    Real Name
    Scott Emerick
    Join Date
    Dec 2000
    Location
    Central Virginia/ North Carolina Border
    Posts
    2,154

    Default RE: image reference file

    Martin try this:

    dim this_path as C
    dim bare_path as C
    dim app_path as C
    dim shadowed as L
    this_path=:a5.Get_Path()
    bare_path=:a5.Get_Master_Path()
    if len(alltrim(bare_path)) = 0 then 'if zero, not shadowed
    shadowed =.F.
    app_path = this_path + chr(92)
    else
    shadowed =.T.
    app_path = bare_path + chr(92)
    end if
    result=ui_get_image_filename(app_path + "bellimages\overall\\")
    ui_msg_box("","" + result) 'this displays the correct path and image
    if result "" ""
    dim tbl as p
    tbl = table.current()
    tbl.change_begin()
    tbl.overall = result
    tbl.change_end(.t.)
    overall.refresh()
    end if
    end

    Scott

  7. #7
    VAR
    Real Name
    Martin W. Cole
    Join Date
    Apr 2000
    Location
    Terrell, Texas (near Dallas)
    Posts
    5,949

    Default RE: image reference file

    Scott, just before you posted, I got it to work with this - virtually your script. (The reason the jpgs weren't showing up was because I was in a Copy of the ADB and the paths were no longer correct.) Thanks ever so much.

    within the app folder I hav a folder bellimages with several folders within that - as there will too many jpegs to manage in a single folder - this lets me direct them automatically to the correct folder - saves them the trouble of having to browse, and makes for fewer opportunities to get the wrong images.


    on error goto errors
    dim this_path as C
    dim bare_path as C
    dim app_path as C
    parentform.allow_change(.t.)
    dim shadowed as L
    this_path=:a5.Get_Path()
    bare_path=:a5.Get_Master_Path()
    if len(alltrim(bare_path)) = 0 then 'if zero, not shadowed
    shadowed =.F.
    app_path = this_path + chr(92)
    else
    shadowed =.T.
    app_path = bare_path + chr(92)
    end if
    result=ui_get_image_filename(app_path + "bellimages" + chr(92) + "overall" + chr(92))
    ui_msg_box("","" + result)
    if result "" ""
    t=table.current()
    if t.mode_get()=0
    t.change_begin()
    end if
    fld=t.field_get("overall")
    fld.value_put(result)
    end if
    parentform.commit() 'should eliminate need to t.change_end(.t.)
    parentform.resynch()
    end
    errors:
    err_msg = error_text_get(error_code_get())
    line = error_line_number_get()
    script = error_script_get()
    ui_msg_box("Error", err_msg+" Error occurred at line "+alltrim(str(line,4,0))+ " in script: "+script)
    end

Similar Threads

  1. Bitmap, JPEG Image, or Image File Reference?
    By Elke in forum Alpha Five Version 6
    Replies: 4
    Last Post: 02-09-2005, 03:38 AM
  2. Image File Reference
    By Patrick Browne in forum Alpha Five Version 5
    Replies: 10
    Last Post: 02-09-2004, 03:53 AM
  3. Image File Reference
    By Gregory R. Zilliox in forum Alpha Five Version 5
    Replies: 1
    Last Post: 12-14-2003, 03:54 PM
  4. IMAGE FILE REFERENCE
    By Willard in forum Alpha Five Version 5
    Replies: 10
    Last Post: 02-19-2003, 12:17 PM
  5. Image File Reference
    By Neil Terry in forum Alpha Five Version 5
    Replies: 2
    Last Post: 10-23-2002, 10:15 AM

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •