DLLOpen.dll

Open a windows-dialog to search and select one file.

EEP-Example3.gif (8883 bytes)

Returnvalue for R:Base contains choosed path and file.

Parameter

dllopenparameter.gif (1932 bytes) 

Returnvalue

DLLOpen returns path and filename of the selected file as one textstring.
In case of canceling by user or error because missing parameter the returned value is NULL, character corresponding with actual R:Base settings.

Example of a call

SET VAR vFile = (UDF('@dllopen.dll',' "Textfiles (*.txt, *.bat)|*.txt;*.bat|Pascal files|*.pas;*.dpr" "d:\tmp" '))

Description

DLLOpen.DLL is developed for R:Base for Windows 6.5 and newer versions.

DLLOpen.DLL calls OpenDia.EXE. While DLLOpen.dll manage Input/Output parameters of and to R:Base, OpenDia.exe is used for the displayed Opendialog of Windows.

OpenDia.exe could be started directly. It shows information about your version and registration as well as ordering contacts.
Image37.gif (10207 bytes)

Registration

DLLOpen is shareware. You are able to download and test the full version before you decide to buy. As long as you are not registered, you get the information and the possibility to register every now and then.

Installation

Copy DLLOpen.DLL and OpenDia.EXE to the actual R:Base-directory.

Example of command file

-- Example of using dllopen
SET VAR vChoFile TEXT, vAmpCmd TEXT, vParameter TEXT
SET VAR vGraphic VARBIT
SET VAR cTextFiles TEXT = 'Textfiles (*.txt, *.asc)|*.txt;*.asc'
SET VAR cPascalFiles TEXT = 'Programs (*.cmd, *.app)|*.cmd;*.app'
SET VAR cGraphicfiles TEXT = 'Graphic|*.bmp;*.gif;*.JPEG;*.jpg'
SET VAR cPipe TEXT = (CHAR(124))

-- Example 1
-- search text files from root directory of actual drive
-- edit the selected file
SET VAR vParameter = ('"' + .cTextFiles + .cPipe + .cPascalfiles + '"')
SET VAR vParameter = (.vParameter & '"\"')
SET VAR vChoFile = (UDF('@dllopen.dll',.vParameter))

IF vChoFile IS NOT NULL THEN
  RBEDIT .vChoFile
ELSE
  PAU 2 USING 'No file choosed'
ENDIF

-- Example 2
-- search graphic files in actual directory
-- display the graphic at R> window
SET VAR vParameter = ('"' + .cGraphicFiles + '" "."')
SET VAR vChoFile = (UDF('@dllopen.dll',.vParameter))
IF vChoFile IS NOT NULL THEN
  SET VAR vAmpCmd TEXT = ('SET VAR vGraphic = [''' + .vChoFile + ''']')
  &vAmpCmd
  SHOW VAR vGraphic=50,20 AT 1 1
  PAUSE 2 using 'Press any key to continue..'
  CLS
ELSE
  PAU 2 USING 'No file choosed'
ENDIF

CLE VAR vChoFile, vAmpCmd, vParameter, vGraphic
CLE VAR cTextFiles, cPascalFiles, cGraphicfiles, cPipe
RET

Example of EEP

-- EXAMPLE.eep
-- called as EEP in a pushbutton of a form
-- in variable list of form: vfIDNR = IDNR

SET VAR vAmpCMD TEXT -- help string to create a command
SET VAR vChoFile TEXT -- choosen image, path and file
SET VAR vGraphic VARBIT -- graphic-variable to store in database

-- OpenDialog in current directory for graphic fils
SET VAR vChoFile = (UDF('@dllopen.dll','"Graphic|*.bmp;*.gif;*.JPEG;*.jpg" "."'))

-- Only if file was selected
IF vChoFile is NOT NULL THEN
  SAVEROW -- save first actual changes of record
  SET VAR vAmpCmd TEXT = ('SET VAR vGraphic = [''' + .vChoFile + ''']')
  &vAmpCmd -- create varbit
  -- update record in database
  UPDATE test2 SET FImage = .vGraphic WHERE IDNR = .vfIDNR
ENDIF

-- tricky for refresh of screen
NEXTTAB
PREVTAB
CLE VAR vAmpCmd, vChoFile, vGraphic

RETURN

-- example stores graphic-file as BLOB into the database
-- of course also only path\file could be stored, then we advice
-- to use BLOBDRAW of RBLOB.dll for best presentation in form