I must save a blob file read from a table and allow user to choose the destination folder in its file system. The application is a Windows application.
My code is similar to this one:
With this code I can show the save dialog, choose the folder in the file system but nothing happens when I press the Save button. The file exists because I can find it in the Lansa temp folder.
Code: Select all
Define_Com Class(#prim_Appl.ICommonDialogFileSave) Name(#SaveDialog) Reference(*dynamic) Fetch Fields(#Blob_file) From_File(BLOB_file_table) With_Key(#BLOB_file_table_key) #SaveDialog <= #SYS_APPLN.CreateFileSaveDialog #SaveDialog.File := #Blob_file.FileName If Cond(#SaveDialog.show) endif
How can I make it work?