Standard |
Module1 |
FileDisplay_withName |
Basic |
fileimport_name|button (Control) |
27 |
SUB FileDisplay_withName(oEvent AS OBJECT) DIM oForm AS OBJECT DIM oField AS OBJECT DIM oField2 AS OBJECT DIM oStream AS OBJECT DIM oShell AS OBJECT DIM oPath AS OBJECT DIM oSimpleFileAccess AS OBJECT DIM stName AS STRING DIM stPfad AS STRING DIM stField AS STRING oForm = oEvent.Source.Model.Parent oField = oForm.getByName("graphical_control") oField2 = oForm.getByName("txt_filename") stName = oField2.Text IF stName = "" THEN stName = "file" END IF oStream = oField.BoundField.getBinaryStream oPath = createUnoService("com.sun.star.util.PathSettings") stPfad = oPath.Temp & "/" & stName oSimpleFileAccess = createUnoService("com.sun.star.ucb.SimpleFileAccess") oSimpleFileAccess.writeFile(stPfad, oStream) oShell = createUnoService("com.sun.star.system.SystemShellExecute") stField = convertToUrl(stPfad) oShell.execute(stField,,0) END SUB |
Standard |
Module1 |
FileInput_withName |
Basic |
fileimport_name|file_control (Control) |
23 |
SUB FileInput_withName(oEvent AS OBJECT) DIM oForm AS OBJECT DIM oField AS OBJECT DIM oField2 AS OBJECT DIM oField3 AS OBJECT DIM oStream AS OBJECT DIM oSimpleFileAccess AS OBJECT DIM stUrl AS STRING DIM stName AS STRING oField = oEvent.Source.Model oForm = oField.Parent oField2 = oForm.getByName("txt_filename") oField3 = oForm.getByName("graphical_control") IF oField.Text <> "" THEN stUrl = ConvertToUrl(oField.Text) ar = split(stUrl,"/") stName = ar(UBound(ar)) oField2.BoundField.updateString(stName) oSimpleFileAccess = createUnoService("com.sun.star.ucb.SimpleFileAccess") oStream = oSimpleFileAccess.openFileRead(stUrl) oField3.BoundField.updateBinaryStream(oStream, oStream.getLength()) END IF END SUB |
Standard |
Module1 |
ImagenameRead |
Basic |
fileimport_name (Form) |
13 |
SUB ImagenameRead(oEvent AS OBJECT) oForm = oEvent.Source IF InStr(oForm.ImplementationName, "ODatabaseForm") THEN oField = oForm.getByName("graphical_control") oField2 = oForm.getByName("txt_filename") IF oField.ImageUrl <> "" THEN stUrl = ConvertToUrl(oField.ImageUrl) ar = split(stUrl,"/") stName = ar(UBound(ar)) oField2.BoundField.updateString(stName) END IF END IF END SUB |
Standard |
Module1 |
ImagenameReset |
Basic |
fileimport_name (Form) |
9 |
SUB ImagenameReset(oEvent AS OBJECT) oForm = oEvent.Source IF InStr(oForm.ImplementationName, "ODatabaseForm") THEN oField = oForm.getByName("graphical_control") IF oField.ImageUrl <> "" THEN oField.ImageUrl = "" END IF END IF END SUB |