Curbing VFP memory & sys(3050...)

TheMSsForum.com: The Microsoft Software Forum

The MSS Forum ‹ Exchange Fox
- Archive
  - Biz
  - MCSE
  - CRM
  - Drivers
  - Framework
  - ADO
  - ASP
  - Compact
  - Forms
  - Dotnet
  - C#
  - VB
  - FontpageGen
  - Excel
  - WorkSheet
  - Exchange
  - Setup
  - Fox
  - Fontpage
  - ASP
  - IIS
  - Entourage
  - Money
  - Messanger
  - PocketPC
  - Powerpoint
  - Project
  - Publisher
  - Excel
  - VB
  - Security
  - Portal
  - Services
  - SQLServerDev
  - SVCS
  - SQLServer
  - VB
  - VC
  - MFC
  - ExcelGen

- Previous
  - 1
    - German error message in English version of VFP I have a client with a very robust and large VFP application. The app has been modified from the original Foxpro for DOS version years ago. There are still some DOS code (@say, etc) in the program. Recently, the application is giving a GPF error (ie. not trappable by try....catch...) when certain simple actions are performed. Actions such as displaying a browse, printing to a screen, etc. The GPF message is in GERMAN! They installed the application in English. This seems strange. I have "band-aid" fixed the few times this has come up by some unorthodox methods. One time this message was coming up on a simple @ SAY line that didn't fail except in one specific case. The @ SAY was in a global, very often used function routine to display text on a dialog box. This code is run hundreds of times a day. In one specific scenario, VFP would crash with the error message in German. I tried to debug, but the code ran fine with the debugger. So...I thought I will write the contents of memory to a file (DISPLAY MEMORY TO...) at the line where the GPF occurs. To my surprise, the GPF did not occur when I wrote memory to a file. So...that writing to a text file fix, stayed in the production version of the program since I couldn't find another solution that worked. But now, the GPF in German is coming up more often. It seems to me that VFP itself is becoming unstable. Any ideas as to how to fix this problem? The app is running under VFP 8. Tag: Curbing VFP memory & sys(3050...) Tag: 229829
  - 2
    - Vista & VFP Version 8 Does anyone know if there are any compatability problems running Visual Foxpro Version 8 in Windows Vista? Tag: Curbing VFP memory & sys(3050...) Tag: 229828
  - 3
    - any way to use the Win32API SHFileOperation Is there any way for a VFP app to copy/move a file using the API SHFileOperation()? It requires a structure as a parameter, and I was wondering if anyone knew of a way to do this from VFP? Thanks. Chip Tag: Curbing VFP memory & sys(3050...) Tag: 229825
  - 4
    - ZORDER - Bring to front - not working This is one of those annoying little things that I've never found the answer too..... I often have multiple buttons on a form which are 'butted' up to each other in a brick like fashion and I use the 'send to back / front' buttons on the Layout Toolbar to arrange them in the correct order (i.e. so that the first button is overlapped slightly by the second and the second is overlapped slightly by the third) giving the impression that they are nestled tightly together......however when I save & exit from the form and then go back into it the 'order' has changed - i.e. the first button could be 'overlapping' the second rather than vice-versa - it is completely random. It seems to worsen when their are boxes / shapes on the form but this is not always the case. I'm using VFP9 but it's a long standing problem that I've seen in earlier versions. Has anyone else experienced this? Tag: Curbing VFP memory & sys(3050...) Tag: 229824
  - 5
    - TreeView BackColor Hi All How Can I Change The TreeView BackColor Thanks Tag: Curbing VFP memory & sys(3050...) Tag: 229819
  - 6
    - Fox community feedback would be great Hi Fox community Our VFP written application (www.backpackpro.com) is now released free for personal use. It allows you to easily backup your work into a zip file and writes to CD/DVD/FTP etc. Would love feedback on it so we can improve the next version. Thanks Tristan Tag: Curbing VFP memory & sys(3050...) Tag: 229818
  - 7
    - Foxpro Print Toolbar Dear All How can I add Find button in Report Preview and which will find specified Text within Report Viewer using VFP6. Is it possible or not ? VP Tag: Curbing VFP memory & sys(3050...) Tag: 229812
  - 8
    - Declaring Custom Types as Variables in FoxPro I used VB6 to Create an OCX within this ocx I Created a Custom Type: Public Type TRdrOptions Option1 As Boolean Option2 As Boolean Option3 As Boolean Option4 As Boolean Option5 As Boolean Option6 As Boolean Option7 As Boolean Option8 As Boolean End Type In the vb test application i can easily declare a varible to that type: Dim Options As C100_OCX.TRdrOptions This is now a recognised variable!!! I am not a foxPro Programmer but that is what the Application will be written in: How do u define a varible to a type within the OCX in foxPro as i Have done in the VB Example Above: I Need to use the because of the 24 Parameter Restriction in foxPro Tag: Curbing VFP memory & sys(3050...) Tag: 229811
  - 9
    - sqlstringconnect() and collation How to use the "collate" keyword? For example, I want to use collation=`Chinese_Taiwan_Stroke_CI_AS`.... -- .~. Might, Courage, Vision, SINCERITY. http://www.linux-sxs.org / v \ Simplicity is Beauty! May the Force and Farce be with you! /( _ )\ (Ubuntu 6.10) Linux 2.6.19.2 ^ ^ 22:29:01 up 9 days 1:41 0 users load average: 1.07 1.02 1.00 news://news.3home.net news://news.hkpcug.org news://news.newsgroup.com.hk Tag: Curbing VFP memory & sys(3050...) Tag: 229803
  - 10
    - SQL Server: escaping quoation mark and collation select '''+@ac_code+''' as xxx select ''''+@ac_code+'''' as xxx Why sometimes ''' will work, while sometimes it needs ''''? Is it affected by database collation? -- .~. Might, Courage, Vision, SINCERITY. http://www.linux-sxs.org / v \ Simplicity is Beauty! May the Force and Farce be with you! /( _ )\ (Ubuntu 6.10) Linux 2.6.19.2 ^ ^ 20:17:01 up 8 days 23:29 0 users load average: 1.00 1.00 1.00 news://news.3home.net news://news.hkpcug.org news://news.newsgroup.com.hk Tag: Curbing VFP memory & sys(3050...) Tag: 229801
  - 11
    - Help file for M$ SQL Server Management Express Studio 2005 Can I set it to use SQL Server 2000 BOL ? -- .~. Might, Courage, Vision, SINCERITY. http://www.linux-sxs.org / v \ Simplicity is Beauty! May the Force and Farce be with you! /( _ )\ (Ubuntu 6.10) Linux 2.6.19.2 ^ ^ 19:02:01 up 8 days 22:14 0 users load average: 1.00 1.00 1.00 news://news.3home.net news://news.hkpcug.org news://news.newsgroup.com.hk Tag: Curbing VFP memory & sys(3050...) Tag: 229800
  - 12
    - ACTIVEX controls for MS FAX & MS WORD I have found quite a bit of help in this forum concerning MS FAX (for XP) integration using ACTIVEX commands in conjunction with MS WORD. I have used the code found at http://fox.wikis.com to get started. In order to make a robust program, I need to have someone point me to some place where I can get documentation for other Faxserver commands which should exist. Things like why did a fax attempt fail (busy signal, no answer, no fax on receiver side, etc.) Also, how to remove a job from the queue if I need to do so. I know the information must be out there someplace, but I haven't been able to find it. E. Myron Tag: Curbing VFP memory & sys(3050...) Tag: 229787
  - 13
    - SelectedBackColor Of Textbox Hi All How can I change SelectedBackColor Of Textbox Control SelectedBackColor Doesn't work Thanks Tag: Curbing VFP memory & sys(3050...) Tag: 229778
  - 14
    - MI5 Persecution: what people said (4192) From: aa1gha@zen.sunderland.ac.uk (gillian.hardy) Newsgroups: uk.misc,uk.legal,uk.politics,uk.politics.misc,uk.media Subject: Re: Read About "MI5 Persecution" on the Web! Date: Mon May 13 21:27:26 1996 : In article <Dr5sDI.50x.0.bloor@torfree.net>, bu765@torfree.net wrote: : |> This site is now running brilliantly. It will be updated with new : |> information regarding this case and is well worth including in your : |> bookmark file. For my sins I had a look and it's quite good actually. Nicely set out and presented. Didn't read it though, having read the rants a million times before. By the way, anyone noticed Chris Tarrant looking at you funny during Man O Man yet? Thought not... Gillian ------------------------------- From: franco@elea.demon.co.uk (Francis Devonshire) Newsgroups: uk.misc,uk.legal,uk.politics,uk.politics.misc,uk.media Subject: Re: Read About "MI5 Persecution" on the Web! Reply-To: franco@elea.demon.co.uk Date: Tue May 14 19:17:26 1996 In message <4na2d0$dho@leofric.coventry.ac.uk> Stephen Hopkins wrote: :Yes, I have to be honest: that page is one of the best examples of how to :present a long document on the Web that I've seen. Hopefully, frames will :become more and more prevalent and this style of presentation will become :the norm for long documents such as that. My html thingy doesnt seem to do frames so all I got was a blank page. Then again, maybe someone, somewhere doesn't want me to read it. BTW does 'troll' bring to mind a fishing lure (ie you are American), or an ogre type thing (ie you are European). I much prefer the image of the latter. +--------------------------------------------------------------------------+ | Francis Devonshire Titchfield, Hampshire, United Kingdom | +--------------------------------------------------------------------------+ ------------------------------- Newsgroups: uk.misc,uk.legal,uk.politics.misc,soc.culture.british From: duncan@yc.estec.esa.nl (Duncan Gibson) Subject: Re: MI5 Persecution: Bugging Date: Wed Jun 12 06:46:41 1996 Mike Corley <bu765@torfree.net> wrote: > Read about the MI5 Persecution on the Web Now, whatever you might think about the content, this is a very well designed and presented web page (if you use Netscape to look at it anyway - Mosaic couldn't handle it). This is my article, not my employer's, with my opinions and my disclaimer! -- Duncan Gibson, ESTEC/YCV, Postbus 299, 2200AG Noordwijk, The Netherlands Tel: +31 71 5654013 Fax: +31 71 5656142 Email: duncan@yc.estec.esa.nl 4192 -- Posted via a free Usenet account from http://www.teranews.com Tag: Curbing VFP memory & sys(3050...) Tag: 229774
  - 15
    - Code39 Bar code does anyone know how to direct Zebra bar code printer output to a file instead of print directly to the zebra printer. I'm working on a program to print bar code using command, as bar code font cannot provide certain feature such as sizing & etc.. the reason of redirecting output because the physical printer is at client side.. which i don't have access to.. Thanks! Tag: Curbing VFP memory & sys(3050...) Tag: 229771
  - 16
    - TextBox LostFocus Hi All when I press Up or Down Arrow key in Textbox The Focus Go To The Next Control How Can I Cancel This Action Thanks Tag: Curbing VFP memory & sys(3050...) Tag: 229766
  - 17
    - IP address textbox data entry This is a multi-part message in MIME format. ------=_NextPart_000_01AF_01C73B25.375ABA30 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Hi all, I am working on a project which will require some data entry for IP = address (ex: 192.168.1.001). I will like to get some suggestions on how = to handle this kind of data with some validations. I was thinking in = having 4 fields to handle each segment and another field to store the = whole IP, what do you think? --=20 Edhy Rijo www.progytech.com Bronx NY ------=_NextPart_000_01AF_01C73B25.375ABA30 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Diso-8859-1"> <META content=3D"MSHTML 6.00.5730.11" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV><FONT face=3DArial size=3D2>Hi all,</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>I am working on a project which will = require some=20 data entry for IP address (ex: 192.168.1.001).  I will like to get = some=20 suggestions on how to handle this kind of data with some = validations.  I=20 was thinking in having 4 fields to handle each segment and another field = to=20 store the whole IP, what do you think?</FONT></DIV><FONT face=3DArial = size=3D2> <DIV><BR>-- <BR>Edhy Rijo<BR><A=20 href=3D"http://www.progytech.com">www.progytech.com</A><BR>Bronx = NY</DIV> <DIV> </DIV> <DIV></FONT> </DIV></BODY></HTML> ------=_NextPart_000_01AF_01C73B25.375ABA30-- Tag: Curbing VFP memory & sys(3050...) Tag: 229760
  - 18
    - Can I accept date value in combo box I would like to show some defaul dates in combo box. User should be able to select one of these default date or can enter new date in combo box. Is it possible. With Style property 0, user can enter the new value but only any string not date format. Is there anyway to accomodate date type in combo box? Thanks. Tag: Curbing VFP memory & sys(3050...) Tag: 229757
  - 19
    - Appearance of labels change unexpectedly I have a continuing problem where the appearance of labels placed on a form change whenever I click on other controls. I simply place labels next to controls (via my own class library). By default they appear in bold, Arial, 8. As I begin to use the other controls on the form - listboxes, combos etc. the labels 'darken' bit by bit to the stage where they are almost illegible. I really can't understand why - there's no code in the background doing something it shouldn't. I wondered if it was a problem with the font (it happens on different PC's) - but Arial being so 'common' I can't think why. I'm using VFP9 Any help would be much appreciated...... Tag: Curbing VFP memory & sys(3050...) Tag: 229746
  - 20
    - ListBox Problem I'm trying to delselect all the items in a listbox but leave the current item in view with focus (but not selected)..... I tried the folowing code: LOCAL nLoop, nItem, oList oList = ThisForm.List1 ThisForm.LockScreen = .t. nItem = oList.ListIndex FOR nLoop = 1 TO oList.ListCount oList.Selected(nLoop) = .f. NEXT nLoop oList.ListIndex = nItem && Go back to original item ThisForm.LockScreen = .f. It seems that setting the .listindex back to the original item ALSO 'selects' it (i.e. highlights it in blue) which defeats the object. If I don't use listindex then the item with focus is the last one in the list. I wondered if anyone had any ideas Tag: Curbing VFP memory & sys(3050...) Tag: 229737
  - 21
    - C/VB dll for "browsing" large datasets? I am facing a problem that has become a major issue of late with my users. They are frequently trying to "browse" tables and views that are larger than 2GB. This is causing the application to spew and then I get complained to. I am now considering (and looking for comments from the best user community for the best application ever) creating a C++ or VB "external" program that will use alternate methods to retrieve and display the data. If anyone has encountered this problem and come up with a better solution or has any thoughts on a workable solution, please let me know as I am at a loss right now. The only thing I know for sure is that our clients are getting bigger so this problem will arise more and more as time goes on. Thanks, CJ Tag: Curbing VFP memory & sys(3050...) Tag: 229727
  - 22
    - Insert into memo field from vb.net oledb Is there a limitation on a string from a VB.NET oledb INSERT on a FoxPro table's memo field? I found I had to trim a system exception message string down to a length of 250, otherwise I was getting an OLEDB exception of "Command contains unrecognized phrase/keyword." The system exception originally was 345 in length: "System.Data.OleDb.OleDbException: Cannot open file \\myserver\vol1\folder1\subfolder\mydir\dbfs\test\cond_eom.dbf. at OSPUserClose.Prepost.makeEOMFiles() in D:\dev\OSPUserClose\OSPUserClose\Prepost.vb:line 597 at OSPUserClose.Prepost.RunPrepostButton_Click(Object sender, EventArgs e) in D:\dev\OSPUserClose\OSPUserClose\Prepost.vb:line 92" I removed any single quotes, chr(10) and chr(13)'s and nothing else unusual appears when I read the Hex values. Below is an example of my vb code. It only fails on the string above, so far. Thanks in advance, Marc Miller Dim strOleDbCommand2 As OleDbCommand = New OleDbCommand("INSERT INTO error_log " & _ "VALUES ('" & strProcName & "', datetime(),'" & strUser & "','" & strError & "')", oConn) oConn.Open() strOleDbCommand2.ExecuteNonQuery() Tag: Curbing VFP memory & sys(3050...) Tag: 229721
  - 23
    - Barcode Printing Dear All I am using zebra TLP 2844 for barcode printing. I am creating .Txt file and changing name of Zabra printer driver to generaic Text anddumping that Txt file to the printer. But Now it is not working with USB,as I change the driver to Generic Text It is not printing. i had gone through the manual It saying use Barcode designer software ? how it can be ? any idea ? ny sample code ? Tag: Curbing VFP memory & sys(3050...) Tag: 229716
  - 24
    - Generic Text Printer Hi, I am printing BARCODE on TLP 2844 using EPL language unde VFP. I am dumping Text File to Generic Text Printer and It will print fine, but if I enabled PC for Arebic then Generic Text Printer will not print anything, I had redirect output to File .. but it is thing.... why? any solution ? Thanx Tag: Curbing VFP memory & sys(3050...) Tag: 229715
  - 25
    - VFP & mySQL Community or Enterprise? Just getting started with using mySQL w/VFP, and I already have a decision to make. There are two versions now, Community and Enterprise. What's the difference? Which should I choose? -Lew Tag: Curbing VFP memory & sys(3050...) Tag: 229714
- Next
  - 1
    - Destination Folder for Applications Thanks in advance for the help. Is there any way to tell the project manager what the destination should be for the EXE? I always put each EXE in the same place and I always have to navigate to the folder where the EXE needs to go. Is there any way to get the project manager to remember this folder so that I don't have to navigate each time? Thanks again. Jeff Tag: Curbing VFP memory & sys(3050...) Tag: 229706
  - 2
    - Orphan Excel Process Hello and thanks in advance for the help. I have some applications which use office automation to read MS Excel files. Sometimes, if one of these applications has an unexpected termination, I am left with an orphan Excel process. Is there any way to kill these processes programatically? As far as improving the error handling of the code, these are web based apps which use FoxWeb so I don't really have great error handling available. Thanks for the help. Jeff Tag: Curbing VFP memory & sys(3050...) Tag: 229705
  - 3
    - Making .vcx Class files. Is a .vcx simply a file like a prg with the extension replaced ? Tag: Curbing VFP memory & sys(3050...) Tag: 229697
  - 4
    - Program for reading mail queue I want to write a program to get the number of mails there are in the queue of a POP3 collector mailbox, and trigger an alarm when there are more than 50 mails. Walter Tag: Curbing VFP memory & sys(3050...) Tag: 229696
  - 5
    - MS FAX using automation I have successfuly used Automation of Word in the past. It seems that it should be relatively easy to add code to print to the MS XP FAX driver from inside of a WORD document. If I set the default print driver to the XP FAX driver before opening the Word document then a print command should cause it to try to send a fax. The problem I see is how do I tell the FAX driver the phone number and other data to use while controlling the Word Document with automation? Also, how is status handled with the Fax driver? Has anyone tried this approach? Is there a source for documentation on the XP FAX object parameters? --E. Myron Tag: Curbing VFP memory & sys(3050...) Tag: 229689
  - 6
    - An Amusing Moment I had an amusing moment today. I had to look up a command that I have not used in quite some time. The command was STORE! When I were a lad (dBASE II 2.02), STORE was a necessity. There was no assignment statement besides STORE. Mind you, that was nearly a quarter century ago. Sincerely, Gene Wirchenko Computerese Irregular Verb Conjugation: I have preferences. You have biases. He/She has prejudices. Tag: Curbing VFP memory & sys(3050...) Tag: 229688
  - 7
    - Find duplicates in FP 6 table? Is there a command to find and delete duplicate records in a FoxPro 6 table? The best solution from my point of view would be to do it via an ADO connection from a Visual Basic 6 app. Thanks in advance. Jim Tag: Curbing VFP memory & sys(3050...) Tag: 229683
  - 8
    - Fire event after form is displayed? Hi, I'm running VFP 9.0 sp1 and I want to fire an event after the main form of the application is displayed. I want a messagebox to appear when the application starts that prompts the user to say yes or no. I tried putting it into the Init() event of the form but the messagebox pops up before the form is displayed. I've thought about putting it into the Activate() event but then it fires every time I select the form also, I only want it to fire when the program launches. Any suggestions? Thanks in advance, Linn Tag: Curbing VFP memory & sys(3050...) Tag: 229673
  - 9
    - sys(1270) + mouse clicked Is there a way to know whether the mouse has been clicked? I meant not using any object.click() event. -- iTech Consulting Co., Ltd. Specialized in providing ePOS solutions Website: http://www.itech.com.hk (IE only) Tel: (852) 2325 3883 Fax: (852)2325 8288 Tag: Curbing VFP memory & sys(3050...) Tag: 229669
  - 10
    - Remote View Boolean Fields I am currently using VFP 7.0, I can not seem to get a remote view field to convert to foxpro logical. I get an error saying "Type conversion required by DataType field is invalid". Why won't foxpro convert an SQL boolean type to its logical type. It wants to convert it to a character field length of one, which will not work in our case because we have existing code that relys on this field being a "logical" data type. Thanks in advance, Curtis Tag: Curbing VFP memory & sys(3050...) Tag: 229667
  - 11
    - weird compile behaviour and memberclass Hi, Here's a frustrating problem we're experiencing ever since using the grid memberclass to point to a custom column class; I am hoping someone has encountered and fixed this! We're using VFP 9 (no sp). Intermittently, *only* when running our exe from within a VFP development session, forms/classes which contain our grid class using the memberclass feature take a long time to open (eg. a form should take no time to open but instead takes 2 minutes!). I have tracked the slowness to any code which causes VFP to add columns to the grid : this.recordsource = something, this.columncount = x etc. It appears that the slowness only occurs after building the project and only when a change has been made to a class (and maybe also a form) that contains our grid class. The only remedy is to exit VFP and run it again, the problem disappears after the restart. It is as though VFP is having trouble finding the prg/fxp which contains the column class definition, even though the prg is included in the project and is one of the procedure files (set procedure to ...). Any ideas? Thanks. Paul Elliott Tag: Curbing VFP memory & sys(3050...) Tag: 229666
  - 12
    - Rlock() & multiple instances of app I'm revisiting my thread of last week with the same results: I have a master table of idnos that my app must process. The app looks for a record that has a processed flag set to false and rlocks() the record, if it fails to get the rlock(), it moves on to another record and repeats this procedure until it finds a rec it can rlock(). The purpose of this activity is to prevent a given idno from be processed multiple times. Unfortunately, when I run multiple instances of the app on a *single* work station, the rlock is ignored and all instances find and process the same idno. I've verified that multilocks in on, and that I'm not moving the record pointer. Is it possible that the rlock() is owned by the workstation rather than the application instances that are running on the workstation (ie once one instance has an rlock(), all instances automatically share it)? My old, DOS-like method of creating a low level 'flag' file with fcreate() and testing for file handle > 0 works fine. -Lew Tag: Curbing VFP memory & sys(3050...) Tag: 229661
  - 13
    - BARCODE Printing Dear All I am using zebra TLP 2844 for barcode printing. I am creating .Txt file and changing name of Zabra printer driver to generaic Text anddumping that Txt file to the printer. But Now it is not working with USB,as I change the driver to Generic Text It is not printing. i had gone through the manual It saying use Barcode designer software ? how it can be ? any idea ? ny sample code ? Tag: Curbing VFP memory & sys(3050...) Tag: 229657
  - 14
    - Help. Hi all, I have been try to use a textboxs to display all data in a form. The first textbox is a "Rental No." and you can also edit it to search for the Rental no. to edit. I have problems trying to get the correct record. Please advise / help / suggestion(s). Thanks for reading. regards, MaxMan Tag: Curbing VFP memory & sys(3050...) Tag: 229656
  - 15
    - Into Table or Into Cursor Is one "really" faster than the other? I got into the habit of always using ...INTO TABLE TableName... instead of ...INTO CURSOR CursorName... for all SQL queries because I had problems with indexing, record numbers, etc. and reliability in the older versions. I've done no real testing, but one seems to work as fast as the other in VFP9, even with large query results. Is this because cpu speed, hard drive speed, or does Foxpro really buffer the result anyway and write it to the hard drive when it gets the chance? Or is it my imagination that one is as fast as the other? Steve Meyerson Tag: Curbing VFP memory & sys(3050...) Tag: 229647
  - 16
    - Generic XML reader This is a multi-part message in MIME format. ------=_NextPart_000_000A_01C736F9.07B138C0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable The code below works for reading up to 3 levels of an XML file with into = a treeview control. Now I would like to develop this code to make it = generic and so it takes *any* number of levels. How can I do this - = would I need to use a recursive function? Any help would be appreciated. Code: *** readxml.prg Parameters oForm iNodekey =3D 1 oXmldoc =3D Createobject('msxml2.domdocument') oXmldoc.Async =3D .F. cXMLDoc=3D Locfile('*.xml', 'xml') oXmldoc.Load(cXMLDoc) oTree =3D oForm.treeview1 oNodes =3D oTree.nodes cParent =3D oXmldoc.DocumentElement.BaseName oTree.nodes.Clear oTree.nodes.Add(,, cParent, 'Rot: ' + cParent) oBase =3D oXmldoc.DocumentElement If !oBase.hasChildNodes Return Endif Store ',|@' To c1, c2, c3 Store .T. To l1, l2, l3 Store '' To cNodekey, ccNodekey, cccNodekey For Each oChild1 In oBase.childnodes getnode(oTree, oNodes, cParent, @iNodekey, @cNodekey, 1, @c1, @l1) If l1 And oChild1.hasChildNodes For Each oChild2 In oChild1.childnodes getnode(oTree, oNodes, cNodekey, @iNodekey, @ccNodekey, 2, @c2, @l2) If l2 And oChild2.hasChildNodes For Each oChild3 In oChild2.childnodes getnode(oTree, oNodes, ccNodekey, @iNodekey, @cccNodekey, 3, @c3, = @l3) Next Endif Next Endif Next Function getnode Parameters oTv, oNd, cPr, iKey, cKey, nLevel, lc, ll iKey =3D iKey + 1 cKey =3D Replicate("c", nLevel) + Alltrim(Str(iKey)) cChild =3D 'oChild' + Transform(nLevel) If &cChild..nodename <> lc oNd.Add(cPr, 4, cKey, &cChild..nodename) oTv.nodes(cKey).Tag =3D &cChild..Text lc =3D &cChild..nodename Else ll =3D .F. Endif return ------=_NextPart_000_000A_01C736F9.07B138C0 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Diso-8859-1"> <META content=3D"MSHTML 6.00.2900.3020" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY> <DIV><FONT face=3DArial size=3D2>The code below works for reading = up to 3=20 levels of an XML file with into a treeview control. Now I would like to = develop=20 this code to make it generic and so it takes *any* number of levels. How = can I=20 do this - would I need to use a recursive function?</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Any help would be = appreciated.</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Code:</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3D"Courier New" size=3D2>*** readxml.prg</FONT></DIV> <DIV><FONT face=3D"Courier New" size=3D2>Parameters = oForm<BR>iNodekey  =3D=20 1<BR>oXmldoc =3D Createobject('msxml2.domdocument')<BR>oXmldoc.Async =3D = .F.<BR>cXMLDoc=3D Locfile('*.xml',=20 'xml')<BR>oXmldoc.Load(cXMLDoc)<BR>oTree   =3D = oForm.treeview1<BR>oNodes=20 =3D oTree.nodes<BR>cParent =3D=20 oXmldoc.DocumentElement.BaseName<BR>oTree.nodes.Clear<BR>oTree.nodes.Add(= ,,=20 cParent, 'Rot: ' + cParent)</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3D"Courier New" size=3D2>oBase =3D = oXmldoc.DocumentElement<BR>If=20 !oBase.hasChildNodes<BR> Return<BR>Endif<BR>Store ',|@' To c1, c2,=20 c3<BR>Store .T. To l1, l2, l3<BR>Store '' To cNodekey, ccNodekey,=20 cccNodekey<BR>For Each oChild1 In = oBase.childnodes<BR> getnode(oTree,=20 oNodes, cParent, @iNodekey, @cNodekey, 1, @c1, @l1)<BR> If l1 And=20 oChild1.hasChildNodes<BR>  For Each oChild2 In=20 oChild1.childnodes<BR>   getnode(oTree, oNodes, cNodekey, = @iNodekey, @ccNodekey, 2, @c2, @l2)<BR>   If l2 And=20 oChild2.hasChildNodes<BR>    For Each oChild3 In=20 oChild2.childnodes<BR>     getnode(oTree, = oNodes,=20 ccNodekey, @iNodekey, @cccNodekey, 3, @c3,=20 @l3)<BR>    Next<BR>   Endif<BR> =  Next<BR> Endif<BR>Next</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV><FONT = face=3D"Courier New" size=3D2> <DIV><FONT face=3DArial></FONT><FONT face=3DArial></FONT><BR>Function=20 getnode<BR> Parameters oTv, oNd, cPr, iKey, cKey, nLevel, lc, = ll</DIV> <DIV><FONT face=3DArial></FONT> </DIV> <DIV> iKey =3D iKey + 1<BR> cKey =3D Replicate("c", nLevel) +=20 Alltrim(Str(iKey))<BR> cChild =3D 'oChild' + = Transform(nLevel)<BR> If=20 &cChild..nodename <> lc<BR>  oNd.Add(cPr, 4, cKey,=20 &cChild..nodename)<BR>  oTv.nodes(cKey).Tag =3D=20 &cChild..Text<BR>  lc =3D=20 &cChild..nodename<BR> Else<BR>  ll =3D=20 .F.<BR> Endif<BR>return</FONT></DIV></BODY></HTML> ------=_NextPart_000_000A_01C736F9.07B138C0-- Tag: Curbing VFP memory & sys(3050...) Tag: 229631
  - 17
    - Alter Table question Does ALTER TABLE work with cursors as well as tables? The following two lines: Select cFamilyname from People into cursor Trythis Readwrite Alter table Trythis add column Anything C(20) fails with 'Invalid operation for this cursor'. However if I try it with a different table, creating a different cursor with different fieldnames it consistently works. I have checked both tables, rebuilt them from scratch etc to try to see if there is anything different between them, apart from names. The foxpro help doesn't mention cursors, but Hackers Guide 7 states that it will work with cursors, allbeit the wording says "ALTER TABLE works not only on tables, but also on cursors built with CREATE CURSOR" so I am wondering whether it can or can't be relied on to work with cursors created via SELECT or whether I am doing something wrong. I have tried in both vfp7 and vfp9 Many thanks Stephen Tag: Curbing VFP memory & sys(3050...) Tag: 229616
  - 18
    - Strange problem 4 What could cause a grid.columns[] to suddenly disappear after a few refresh... Note: there is no logic to turn if off explicitly. Not lockscreen... no... I think you got it. -- .~. Might, Courage, Vision, SINCERITY. http://www.linux-sxs.org / v \ Simplicity is Beauty! May the Force and Farce be with you! /( _ )\ (Ubuntu 6.10) Linux 2.6.19.2 ^ ^ 22:31:01 up 1 day 1:43 0 users load average: 1.00 1.00 1.00 news://news.3home.net news://news.hkpcug.org news://news.newsgroup.com.hk Tag: Curbing VFP memory & sys(3050...) Tag: 229612
  - 19
    - which port use VfP9 I wrote a program with vfp9 and made it ExE and put it in server and when I turn on fire wall on server I cant run it from client . but when I turn off fire wall on server it runs. I want know which port use vfp9 and I can open this port in fire wall . Thanks bijan Tag: Curbing VFP memory & sys(3050...) Tag: 229603
  - 20
    - VFP 8.0 losing memory variables I have a very large application that seems to be losing a public object variable at run-time. I create define a public variable "pScreen", initialize the variable with a blank string and then issue a command such to create a form linking the variable to the screen. Such as: PUBLIC pScreen pScreen = "" DO FORM SomeScreen NAME pScreen LINKED NOSHOW ...... Somewhere in the code the variable is undefined (ie. TYPE("pScreen")= "U"). I know this because when a code tries to reference the pScreen variable, an exception is thrown. To debug, I set a breakpoint immediately after the "DO FORM" and put TYPE("pScreen") into the watch window. I set a breakpoint on the watch for when TYPE("pScreen") changes. Without any other program code changes, the application runs fine and the variable never becomes undefined (until I want it to be undefined)!!! I follow the exact same keystrokes/mouse clicks when running in debug mode with the watch as without. Any ideas of why the variable becomes undefined somewhere in the code but not when a watch/breakpoint is set? Tag: Curbing VFP memory & sys(3050...) Tag: 229591
  - 21
    - VFP 9.1 Unions in subqueries The following query works: select ph.Source, ph.SrcRec, rpl.Agency ; from ( ; select * ; from HasOtherRecLevelErrs ; union ; select * ; from HasFieldLevelErrs ; ) as rpl ; inner join PEDHold as ph ; on rpl.Agency=ph.Agency ; into cursor OthersToHoldDetail but when we try select ....... where in (select ...... with union here) does not work. What is the official policy on what is allowed. The documentation is sparce on this subject. Tag: Curbing VFP memory & sys(3050...) Tag: 229584
  - 22
    - Escape, read events & loops This is an old story: I have a form that initiates a lengthy batch processing loop. The command buttons on the form are unclickable while the loop is running so I set escape on, test for inkey() and exit if the user presses escape.... This get me back to my read events statement and the buttons become alive again. This method is as old as the hills and somewhat inelegant. Are there any other or newer suggestions? -Lew Tag: Curbing VFP memory & sys(3050...) Tag: 229582
  - 23
    - use of "do while" in Visual foxpro 6 I have a problem using the do while command. In fact, I have a table (magazines.dbf) that consists of 900.000 records, each representing sales figures of a magazine. There are 800 different magazines in the table. Each record has a unique (numeric key - magnumber) that serves as a proxy for the name of a magazine (numbers start from 100 through 900). What I want to do, is to add records from a given magazine to another table (report.dbf), and run a program (retail.prg) and repeat this until the final number of 900 is reached. I tried this : cnt=100 do while cnt <= 900 use report delete all pack append from magazines for manumber=cnt do retail.prg cnt=cnt+1 enddo The report is provided for the records with magnumber=100 but at the line "cnt=cnt+1" I receive the message "variable CNT is not found". Can you tell me what to do ? -- blomme ------------------------------------------------------------------------ Posted via http://www.codecomments.com ------------------------------------------------------------------------ Tag: Curbing VFP memory & sys(3050...) Tag: 229572
  - 24
    - timing of updating data from a control When changing data via a control bound to a data source, there is some delay until the change actually registers. This is a particular problem with a check box in a grid, where I am trying to count the number of .T. values in that field. I usually have interactivechange trigger a timer which waits a couple tens of a second, then performs the count routine. However, this is not reliable. For instance, if I change the value of myfield clicking a checkbox bound to mytable.myfield, then issue SELECT COUNT(*) FROM mytable WHERE myfield the count is invariably off by one until after some period of time has passed, which may be as long as a second or so. All data is local, no network is involved. The table has about 5000 records. Anyone have a good solution? Tag: Curbing VFP memory & sys(3050...) Tag: 229569
  - 25
    - SourceSafe 2005 I have not ready any discussions re: VSS 2005 with VFP. Are there any benefits to upgrade form version 6? Tag: Curbing VFP memory & sys(3050...) Tag: 229566

I must run multiple instances of my app, and since they all show their VFP
lineage, I max out my CPU at 100% (a per the Task Manager Performance
display) after instance 2. I'm trying to curb the Fox via sys(3050...) calls
so I can run more instances, but even using values like VAL(SYS(3050,2))
/100000 for 3050 1 & 2 calls produces little or no change. Could it be that
the VFP runtime uses a single memory allocation for all instances?
-Lew

Top