FoxPro

Problem using BSTR SafeArrays in VFP

microsoft — Sat, 29 May 2010 02:15:12 GMT

My VFP application uses a C++ dll that exposes functions which need BSTR SafeArrays to be passed as arguments.

The problem with my code is that, the task manager shows a memory increase soon after I create a safe array but it does not show a decrease in mem usage after destroying it. This results in a memory leak.

This code is frequented almost a million times during a batch process and the VM memory usage reaches ~2GB at some point and it results in a crash.

I tried SYS(3050), SYS(1104), SetProcessWorkingSetSize() etc but VM size did not decrease.

I am pasting my code below with all the required details. Please help me where I am missing a memory leak here. :((

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
	* laArray represents a singly dimensioned FoxPro array with all text (STRING)
	* array elements.  These might represent location argument values for a new
	* RMICADIF entry point
	LOCAL ARRAY laArray[30]
	LOCAL lpSafeArray AS INTEGER, loErr AS EXCEPTION
	LOCAL ARRAY laAddress[30]
	
	FOR i = 1 TO 30
		laAddress[i] = -1
	ENDFOR

	* Set some sample text values that can be examined or logged in the TestDLL.dll
	* ArrayFunction entry point
	laArray[1]  = "sample strings"
	<>
	laArray[30] = "sample strings"
	
                     lpSafeArray = SafeArrayBSTRAllocatePopulate(@laArray, 0, @laAddress)

	* Note: lpSafeArray will be NULL if the SafeArray could not be created
	IF !ISNULL(lpSafeArray) AND lpSafeArray # 0
                             
 	       * Now deallocate the memory for the SafeArray
	       =SafeArrayDeAllocate(@lpSafeArray)
                            
                            * Just a precaution
	      lpSafeArray = .NULL.
	ENDIF	
      RELEASE ALL LIKE laAddress
      laAddress = .NULL.

FUNCTION SafeArrayBSTRAllocatePopulate
	LPARAMETERS taArrayAlloc, tnLowerBound, taPointers
                     EXTERNAL ARRAY taPointers
LOCAL nNumElements, psaPtr AS INTEGER , crgsaBoundsStruc, nrgIndex, uElement, i, ;
	nSizeOfElement, loErr AS EXCEPTION

nNumElements = ALEN(taArrayAlloc)

*  Default lower bound of array to 0, to make a zero-indexed array
IF VART(tnLowerBound) # 'N'
tnLowerBound = 0
ENDIF

* Allocate a SafeArray to be filled later;  this creates the header and
* the indirection table used for further construction
crgsaBoundStruc = NumToDWORD(nNumElements) + NumToDWORD(tnLowerBound)
psaPtr = SafeArrayCreate(VT_BSTR, SINGLE_DIMENSION_ARRAY, crgsaBoundStruc)

* Success?
IF psaPtr = 0
	*  Unable to create the SafeArray
	RETURN NULL
ENDIF

*  Construct each element to add into the SafeArray
FOR i = 1 TO nNumElements
	nrgIndex = i - 1
	nSizeOfElement = 0
	* Convert a copy of the FoxPro array element to ANSI text, then to
	* double-byte, and then to its equivalent UNICODE for insertion into
	* the BSTR SafeArray
	uElement = STRCONV(STRCONV(taArrayAlloc[i], 1), 5) + CHR(0) + CHR(0)
	taPointers[i] = CreateBSTRString(@uElement)
	IF taPointers[i] 

I m in dire need of some light!! :((

GPG Command Line - RUN Issue

microsoft — Sat, 29 May 2010 02:14:48 GMT

I submitted this question once before a few minutes ago just as the forum site went into "Maintenance' mode so I am guessing that the first submittal got lost in the ether.

Anyway, I asked this question on another forum a little more than a week ago, and have yet to get THE answer so now its time to try Expert's Exchange.....

OS: Win XP Pro
VFP: VFP7

I don't know if anyone of you has had to use PGP/GPG encryption on files, but I am running into an issue which is baffling me for the time being.

I HATE PGP since it typically takes over an entire workstation whether during the installation you configure it NOT to or not. Consequently my first choice is to get GPG working.

For those not familiar with it GPG is the FREE, open source version of PGP encryption.

And, since we are working in Windows, we are using GPG4Win which is a Windows GUI to the GPG.EXE application. I have been manually running it for about a year or more now and it has been working fine, but a client now wants files delivered on a more frequent timeline so I want to automate things within a VFP application.

Not having found a GPG ActiveX, I am running the GPG.EXE (from GPG4Win) with a Command line string.

That in itself has been a lengthy effort with a GREAT deal of assistance from an individual in this site's Encryption forum, but now the command string that I have is working as long as I manually type it into a DOS window.

But when I try to execute it with a VFP RUN command, it will not execute.

NOTE - the command string is 210 characters long if I shorten the path references wihtin the string to DOS 8 character abbreviations. If I do not shorten the path references it is a good bit longer.

I have tried executing the command string itself
RUN cGPGCommand
And I have tried writing the command string into a BAT file and then executing it
RUN GPGCommand.bat
Nothing I do seems to work.

The DOS black screen flashes on 'execution', but when I look for the resultant output file, it does not exist.

The command string has 2 parts separated by a PIPE character. The first part contains the GPG Passphrase necessary to validate the execution. The second part has the remainder the command string (the bulk of it) and it utilizes the passphrase from before the PIPE character. The reason for that format was determined to be necessary by the lengthy work described above to get a working command string at all.
NOTE - to repeat, this runs just fine when manually typed at the DOS prompt.

In order to determine what did or did not work, prior to running a test, I delete the output file (if it exists) and then after execution look for it again. When I type the command string into the DOS window, things work just fine and the output file is created. When I attempt to run the exact same command string with either the VFP RUN command or as part of the BAT file, the output file never gets created.

Any ideas?

Your advice/suggestions would be greatly appreciated.

Thanks,
JRB-Bldr

FoxPro 2.6 for Windows and JKEY 3rd party add on

microsoft — Fri, 28 May 2010 09:15:28 GMT

Where can I find a copy of JKEY for FoxPro for Windows.
I was told that it is freeware and can be down loaded from
the Internet A web address would be greatly appreciated
if one exists

VFP ODBC driver allows insert/update/delete not select (file 'table.dbf' does not exist.)

microsoft — Fri, 28 May 2010 05:00:33 GMT

scenario 1:
conn.open("Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=\\dbserver\data;Exclusive=No;Null=No;Deleted=Yes;")

this connection string allows me to insert/update/delete from MyTable.dbf in the SourceDB through ASP. When I try to use this connection for a SELECT statement I get this error:

[Microsoft][ODBC Visual FoxPro Driver]File 'MyTable.dbf' does not exist.

scenario 2:
conn.open(PROVIDER=VFPOLEDB.1;DATA SOURCE=//192.168.0.1/data;")

this connection string allows me to insert/update/delete AND select. The problem with this driver is the INSERT statement won't allow inserts when all fields are not specified. For example if MyTable.dbf contains 2 fields -- 'field1, field2' -- my insert statement could look like this "INSERT into MyTable (field1) values('test')" The following error would then return:

Microsoft OLE DB Provider for Visual FoxPro error '80004005'
FIELD field2 doesn't not accept 'NULL' values

I've tried using the attribute 'Null=No;' in scenerio2 connection string but apparently that is not a valid attribute of the Provider.

The question is, What combination(s) of driver and attributes should be used to successfully insert/update/delete and select free tables from a VFP db on a 'non-local' drive?

Keep in mind:

1) inserts work in scenerio2 they just don't allow for Null fields to be left out of the insert statement. (I need to work because of the current insert statements used).

2) select statements won't work in scenerio1 because the driver can't find the table specified in the SQL. But if I do insert/update/delete SQL statements the driver has no problem finding the table and performing the SQL.

Why chr(219) appears differently in Visual FoxPro under certain conditions ?

microsoft — Fri, 28 May 2010 02:06:05 GMT

Hi Experts !

Coukd you explain why under certain and don't undrestood conditions the character chr(219) appears correctly in a thermometer (a black retangle) and under other conditions as a Û ?

Thanks in advance.

copy table data to textfile without header

microsoft — Thu, 27 May 2010 18:50:17 GMT

When I try to copy one table data in foxpro 2.6 from one table to a test file , it includes table header
information in first row, please provide code to stop it.

Move cursor to next row within grid box at last column

microsoft — Thu, 27 May 2010 11:57:36 GMT

hi,

I have a grid box with several columns. I like the cursor to move to next row whenever an enter key or the tab key is pressed instead of return to the first column on the same row.

thanks

How to send data to Outlook calendar from VFP and update…

microsoft — Wed, 26 May 2010 07:45:56 GMT

Hi there,
If anyone knows,
How to send calendar information (appointments or meetings etc...) from Visual FoxPro application by Email to Outlook, and then to be able to “set up” or “update” the related “meeting” or “appointment” on Outlook calendar of Email receiver…

It is urgent!

Thanks!

Why Visual FoxPro 9 slows down process compared with IDE ?

microsoft — Tue, 25 May 2010 19:56:06 GMT

Hi Experts

Could you point out the reason and solution why VFP9.0 executable slows down when compared with the same processs using the IDE ?
(I've put a thermomether and is remarkable the time difference between the two processes)

foxpro 2.6 data table not apending

microsoft — Tue, 25 May 2010 13:25:26 GMT

When I try to append a dbf file using appe command to upload data from text file, command run in command window, but when i create exe & run it system gives message that " exclusive open of file is required" & when I select ignore option , system gives message " cannot write to a read only file"

Visual foxpro expression (difference of time)

microsoft — Tue, 25 May 2010 08:52:44 GMT

trying to write an expression that will give me the difference of two time fields. Each time field is formatted HH:MM:SS

roll time: 13:25:45
arrival time: 13:28:46

Need to calculate the difference of these two times. This is a visual foxpro reporting tool

Need something to Copy Protect my Visual FoxPro 5.0 applications

microsoft — Tue, 25 May 2010 04:37:00 GMT

I am writing and installing my applications and I need something to copy protect my applications. After installing the runtime, my EXE file and data tables, I need something to protect it from anyone to copy the directory or directories to another PC and be able to run it without some coding or something. I do not simply want to hide files because it would still be easy for a computer person to figure this out. I need something which can read something from the PC's hard disk and writing it to some table or file in my application so that if it is copied to another PC it could never be the same and not be able to run. If the computer crashes and the user needs to reinstall, they will need to call me to give them a code or something to reinstall.

Any ideas?

FoxPro Debug problem

microsoft — Fri, 21 May 2010 15:06:16 GMT

I'm trying to resurrect my FoxPro programming environment after 10+ years. Working on Windows XP. I used to work on 6.0, now I'm working with 9.0. Pulled up a copy of the project from the backup file. I am able to do a build without errors, but when I run the project.exe file I get an error message

"Class name is invalid"

There are no hints. How do I chase this down?

decoding a scanner with VPF9

microsoft — Fri, 21 May 2010 07:34:54 GMT

I am scanning in using a hand held scanner into Visual FoxPro 9 bar codes using Code 39 font. I need to know how to decode the bar code so I can search the database for it.

SSH login is failing with permission denied error in AIX 5.3 ML08

microsoft — Fri, 21 May 2010 01:36:16 GMT

I have a AIX 5.3 ML08 server. When I try to login with SSH, both as root user and non-root user, it fails with permission denied error message.

Below is the output,
ssh -l user etr6506l3-aix93.ca.com
user@etr6506l3-aix93.ca.com's password:
Permission denied, please try again.
user@etr6506l3-aix93.ca.com's password:
Permission denied, please try again.
user@etr6506l3-aix93.ca.com's password:
Received disconnect from 155.35.7.36: 2: Too many authentication failures for user

If I look into the syslog messages file, the following PAM related error messages are observed,

May 14 07:08:01 etr6506l3-aix93 auth|security:debug sshd: PAM: pam_authenticate: error Authentication failed
May 14 07:08:01 etr6506l3-aix93 auth|security:debug sshd: PAM: pam_authenticate: error Authentication failed
May 14 07:08:01 etr6506l3-aix93 auth|security:info sshd[274440]: Failed password for user from 155.35.7.36 port 32836 ssh2
May 14 07:08:01 etr6506l3-aix93 auth|security:info sshd[274440]: Failed password for user from 155.35.7.36 port 32836 ssh2
May 14 07:08:01 etr6506l3-aix93 auth|security:info syslog: ssh: failed login attempt for user from etr6506l3-aix93.ca.com
May 14 07:08:01 etr6506l3-aix93 auth|security:info syslog: ssh: failed login attempt for user from etr6506l3-aix93.ca.com

Could you please help me out in resolving this problem.

The sshd_config file looks as below,

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
#       $OpenBSD: sshd_config,v 1.73 2005/12/06 22:38:28 reyk Exp $

# This is the sshd server system-wide configuration file.  See
# sshd_config(5) for more information.

# This sshd was compiled with PATH=/usr/bin:/bin:/usr/sbin:/sbin

# The strategy used for options in the default sshd_config shipped with
# OpenSSH is to specify options with their default value where
# possible, but leave them commented.  Uncommented options change a
# default value.

#Port 22
Protocol 2
#AddressFamily any
#ListenAddress 0.0.0.0
#ListenAddress ::

# HostKey for protocol version 1
# HostKey /etc/ssh/ssh_host_key
# HostKeys for protocol version 2
#HostKey /etc/ssh/ssh_host_rsa_key
#HostKey /etc/ssh/ssh_host_dsa_key

# Lifetime and size of ephemeral version 1 server key
#KeyRegenerationInterval 1h
#ServerKeyBits 768

# Logging
# obsoletes QuietMode and FascistLogging
SyslogFacility AUTH
#LogLevel INFO

# Authentication:

#LoginGraceTime 2m
PermitRootLogin yes
#StrictModes yes
MaxAuthTries 3

#RSAAuthentication yes
#PubkeyAuthentication yes
#AuthorizedKeysFile     .ssh/authorized_keys

# For this to work you will also need host keys in /etc/ssh/ssh_known_hosts
#RhostsRSAAuthentication no
# similar for protocol version 2
#HostbasedAuthentication no
# Change to yes if you don't trust ~/.ssh/known_hosts for
# RhostsRSAAuthentication and HostbasedAuthentication
#IgnoreUserKnownHosts no
# Don't read the user's ~/.rhosts and ~/.shosts files
#IgnoreRhosts yes

# To disable tunneled clear text passwords, change to no here!
#PasswordAuthentication yes
#PermitEmptyPasswords no

# Change to no to disable s/key passwords
#ChallengeResponseAuthentication no

# Kerberos options
#KerberosAuthentication no
#KerberosOrLocalPasswd yes
#KerberosTicketCleanup yes
#KerberosGetAFSToken no

# GSSAPI options
#GSSAPIAuthentication no
#GSSAPICleanupCredentials yes

# Set this to 'yes' to enable PAM authentication, account processing,
# and session processing. If this is enabled, PAM authentication will
# be allowed through the ChallengeResponseAuthentication mechanism.
# Depending on your PAM configuration, this may bypass the setting of
# PasswordAuthentication, PermitEmptyPasswords, and
# "PermitRootLogin without-password". If you just want the PAM account and
# session checks to run without PAM authentication, then enable this but set
# ChallengeResponseAuthentication=no
UsePAM yes

#AllowTcpForwarding yes
#GatewayPorts no
#X11Forwarding yes
#X11DisplayOffset 10
#X11UseLocalhost no
#PrintMotd yes
#PrintLastLog yes
#TCPKeepAlive yes
#UseLogin no
#UsePrivilegeSeparation yes
#PermitUserEnvironment no
#Compression delayed
#ClientAliveInterval 0
#ClientAliveCountMax 3
#UseDNS yes
#PidFile /var/run/sshd.pid
#MaxStartups 10
#PermitTunnel no

# no default banner path
Banner /some/path

# override default of no subsystems
Subsystem       sftp    /usr/sbin/sftp-server

why appear this error

microsoft — Thu, 20 May 2010 22:09:33 GMT

when i write this code line
loOutlook = CREATEOBJECT("Outlook.Application")
appears the error in attached

ODBC set up for FoxPro 9

microsoft — Thu, 20 May 2010 17:44:30 GMT

I need a little advice about setting up a ODBC connection to my server.
I am working on a Vista system connected to a small office network. Working with the ODBC Data Source Administrator I get a message to first download the driver lates driver. I check in the Windows system directory and there is a VFPODBC.dll file. I went online and downloaded a VFPODBC.msm file which is designed to be included in the VFP application release. This was saved in the VFP classes folder.

I found a VFPODBC.TXT file in the Windows System folder which seems to be the instruction on how to install the driver. It says to run the SETUP.EXE file to install the driver, but I don't know where to find the setup file.

A llitle help Please.

extract

microsoft — Thu, 20 May 2010 13:18:06 GMT

Hi
we have a field called desc and andother called mfgpn.We would like to extract the part number from desc to mfgpn. The part number will start with a # and end with a space.
eg
desc mfgpn
VALVE-QC #911505 WELLS 911505
VALVE-ACTION #68467 ACTION 68467
VALVE, FC #PCCM1600S PARKER PCCM1600S

Thanks

Refresh a Cursor?

microsoft — Thu, 20 May 2010 07:26:01 GMT

I often open several instances of the same table when I want to relate the table to a parent and be able to move the record pointer freely for a lookup. The problem is that if I append a new record in one cursor it is not immediately visible in the other cursor for the lookup. Is there a way to have a cursor refresh its data from disc periodically?

Program to get the results as in this Excel Attachment

microsoft — Sun, 16 May 2010 10:12:22 GMT

Attached is a query of what I want it to look like

the three color headers are for each company/location

the customer numbers are different to each location but the phone numbers are what I want to match them on.

is this a like a 3 query Join?

How do I identify Menu item click in Visual Foxro 9.0?

microsoft — Sun, 16 May 2010 06:10:28 GMT

Hi,

I have a VFP application in which I want to implement auto-logoff feature.

I used BINDEVENT() function to handle this. I created a eventhandler class in whose Init() i captured WM_LBUTTONUP, WM_RBUTTONUP and WM_KEYUP events. My last activity timer will be reset in the delegate method every time I get any of the above 3 windows events.

Now I want to reset a variable every time I select an item from menu.

WM_MENUSELECT is of no use because it fires even if I mouse hover over the items. What i really need to capture is a menu item selection.

WM_COMMAND seemed to solve my problem until I recognized that it was fired even when I click on 'Yes/No' buttons on the message box.

How do I capture a menu select?

Memo Field Printing VFP 9

microsoft — Sun, 16 May 2010 02:05:48 GMT

I have a report that I have created in VFP 9.

I have two groups in the report.
1st group is grouped by client_num
2nd group is grouped by year

In the Group Footer of the 2nd group I have the year and a notes field.

The notes field is a memo field.

I have found that a single field on the report will only print 254 characters so I have broken down the notes memo field by using the mline() function. Please tell me if there is another work around that works better.

Here is what I have in the expression field:
IIF(!empty(allt(mline(qryClient.prod_cont_notes,1))),mline(qryClient.prod_cont_notes,1),"")
* Note there are 20 fields like this - replacing the number accordingly for each one.

In the Print When tab I have checked the "Remove line if blank" check box.

The Print Only when expression is true is:
!empty(qryClient.prod_cont_notes) and thisform.chkPrintContNotes.value = .t.
* Note: There is a check box on the form that the user can check to print notes this is the thisform.chkPrintContNotes.value.

If I just have one field for the notes on the report the report prints in 3 pages.
* With this layout the report prints without any white space before the notes.

If I have all 20 fields the report prints 7 pages.
* With more than one field there is a lot of white space before the notes which seems to even kick it over to a new page most of the time, leaving the notes to print on the next page. In fact I have found that if I add around 10 fields it works properly but after the band height reaches a certain size it doesn't seem to work properly. I think that the problem really lies in the band not resizing properly but i am not sure. I have done this type of thing in VFP 6 and VFP 7 in the past without a problem. It could be a bug in VFP 9. I just need a work around.

Any ideas would be greatly appreciated.

contrib-rpt.FRX (26 KB) (File Type Details)

Contribution Report FRX

contrib-rpt.txt (45 KB) (Possible File Type Mismatch)

Contribution Report FRT - Just rename it to contrib_rpt.frt

Calling a Sql Server 2005 Stored Procedure from Visual Foxpro

microsoft — Sun, 16 May 2010 02:05:31 GMT

Hello,

My question involves calling a Sql Server 2005 stored procedure from Visual Foxpro 6.0. I have no problem calling the stored procedure and executing it when the stored procedure has no parameters. When I attempt to call a stored procedure that has parameters it is not working.
Below is the following Visual Foxpro 6.0 code I am using:

ln_handle=SQLStringConnect('DRIVER={SQL Server};UID=user;PWD=password;APP=Microsoft® Visual FoxPro®;SERVER=unc_server;DATABASE=test_database')

lcsql = "exec schema.spStoredProcedure ?lcParameter1, ?lcParameter2, ?lcParameter3"
lnresults=sqlexec(ln_handle, lcsql)
(I have also tried - lcsql = "exec schema.spAnotherStoredProcedure '" + lnOutput1 + "', '" + lnOutput2 + "', '" + lnOutput3 + "' " but with no success)
=sqldiscon(ln_handle)

The sql server stored procedure I am attempting to call (as seen above) has 3 parameters

Please let me know
Thanks

'API Routines'

microsoft — Sat, 15 May 2010 08:56:49 GMT

I have VFP 5.0 and VC++ 6.0. I want to build API routine. I can write the code but I don't know how to compile it. Is any one who can explain it step by step.

dbase

microsoft — Sat, 15 May 2010 04:12:50 GMT

Dear experts

iam using dbase first time iam using dbase first pfoblem is how can i use dbase how can i create a table in dbase for dbase what i want to install?
i wrote a select query in dbase but i can't give a checking condition more than one using and it showing error.
please help me to solve this problem