Yup, that works fine. Thanks much Dennis.
And I believe you on the trailing nulls, Mike. :)
Like I said, worked fine for me too until sometime ...
Doug
On 7/25/2014 12:24 PM, MikeB wrote:
Yeah, use Dennis code. Better to check if one is there, just in case..
-----Original Message-----
From: [email protected] [mailto:[email protected]] On Behalf Of Dennis
McGrath
Sent: Friday, July 25, 2014 1:20 PM
To: RBASE-L Mailing List
Subject: [RBASE-L] - RE: Path of User's Desktop
Doug,
SLOC is working correctly.
I suggest you change your code to:
set var vInt int = 0
set var vInt = (SLOC(.strpath, (CHAR(0))) if vint > 0 then
SET VAR gUserDeskTop = (SGET(.strpath, (.vInt - 1), 1)) else
SET VAR gUserDeskTop = (TRIM(.strpath)) endif
and try tracing with watch variables to see what is happening
From: [email protected] [mailto:[email protected]] On Behalf Of Doug
Hamilton
Sent: Friday, July 25, 2014 12:00 PM
To: RBASE-L Mailing List
Subject: [RBASE-L] - Path of User's Desktop
Back Jan '11, Mike Byerley posted a small RBase routine using stdcall
to get the path to the user's desktop.
It has worked flawlessly until I did some testing yesterday on a
routine that uses Mike's code. The entire code is below for context,
but the specific command where the path is lost is:
SET VAR gUserDeskTop = (SGET(.strpath, ((SLOC(.strpath, (CHAR(0)))) -
1), 1))
Variable strpath is predefined as 260 null characters.
The correct path is returned in the variable strpath; the SGET's
purpose is extract just the path from the 260 characters (path + nulls)
that was returned by the dlcall.
However, it appears that strpath is already trimmed of trailing nulls -
or any other characters that I've tried predefining in strpath. Hence
the SLOC chokes and gUserDeskTop that is returned is blank.
So I guess the question is: Are trailing characters automatically
trimmed in the dlcall?
Is this a fluke on my system or a permanent update for which I should
remove the SGET command?
Is this a change in a Win 7 update or an RBase update? I've scanned 4
What's New in R:Base looking for "trim" and "trail" but couldn't find
any relevant references.
RBase 9.5.4.30717 (32)
Win 7, SP1
Just wondering what the best course of action should be.
TIA,
Doug
--UserDesktop.RMD get full path to user's desktop --Courtesy Mike
Beyerly, 01/13/11 {demo of SHGetSpecialFolderPath function mbyerley
6/1/2008 }
SET VAR max_path INTEGER = 260
SET VAR lngfolderfound INTEGER = NULL
SET VAR strpath TEXT = NULL
SET VAR gUserDeskTop TEXT = NULL
IF (chkfunc('SHGetSpecialFolderPathA')) = 0 THEN
STDCALL function 'SHGetSpecialFolderPathA' alias
'SHGetSpecialFolderPath' +
(integer, integer, ptr text (260), integer) : integer ENDIF
SET VAR lngfolder = 16
{ Set the variable as a BUFFER of MAX_PATH Characters filled with
Nulls. The
VAR is passed by Reference and is filled with the PATH in the
function. When
VARs are created this way, you can't trim the length, so we look for
the first
NULL (Char(0)) in the returned value and SGET everything up to that
value
to COPY to the VAR specfolder. As Simple as that. If you wanted to
Create the
Special Folder if it is NOT FOUND, you would change the first 0 in
the DLCALL
argument to a NON ZERO value.
}
-- CREATE the BUFFER of length max_path for SET VAR strpath =
(SFIL((CHAR(0)), .max_path))
SET VAR lngfolderfound = +
(dlcall('Shell32','SHGetSpecialFolderPathA', 0, lngfolder, strpath,
0))
IF lngfolderfound > 0 THEN
-- The strpath var has to be SGET to omit the trailing nulls from the
BUFFER
SET VAR gUserDeskTop = (SGET(.strpath, ((SLOC(.strpath, (CHAR(0)))) -
1), 1)) ENDIF
CLEAR VAR +
lngfolder, +
lngfolderfound, +
max_path, +
strpath
RETURN
________________________________________
This email is free from viruses and malware because avast! Antivirus
protection is active.
---
This email is free from viruses and malware because avast! Antivirus protection
is active.
http://www.avast.com
