ms winsock activex control

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
    - need some advice on user impersonation and vfp 8 We have an application that spans several generations of VFP and now have to make some modifications to it. It runs client/server to a sql database or an oracle database for starters. The app launches and the user must log in. This is a user and password that resides in our app and db. It is not integrated with the OS user in anyway. There in lies the problem. Now, we need to make all the properites of the user accounts in the app behave like OS users where you can require strong passwords, minimum lengths, expirations, memory, encryption, etc. All the things the OS generally handles. What I am thinking I might do is somehow map those user accounts to the domain user accounts (at least for windows domains) thru the use of thier account SID or something. Then give them a cmd line switch on launch to use that feature or not or something like that. Is this possible? If so, how? Do I hook into some windows API for this? Not really sure. If anyone can shed some light I'd be greatful. TIA Tag: ms winsock activex control Tag: 207339
  - 2
    - Auto Dial and Disconnect in VFP Friends, Some months ago I was looking for a way to programatically dial and disconnect a SPECIFIED dial-up networking connecion. Although no VFP solution was found, today I came across a topic by the name of RASDIAL in windows help. There is an internal application in windows by the name of rasdial.exe which did what I wanted. (My OS is win XP Pro, however this application seems to be there in Win95 upwards) However while I was searching for topics related to RASDIAL in windows web knowledgebase, it appeared to me that there is an RASDIAL API also. My knowledge of API call is as good as none. I will appreciate it very much if some members please guide me towards better usage of this feature. I used the following code to connect and disconnect: run rasdial "Connection_name" "username" "password" run rasdial "connection_name" /d (I found details about the utility by searching by keyword "rasdial" in win XP help) Now I am looking forward to have following features: 1. To know if connection has been successful, else redial. 2. To be able to do these things without the usual black window. Please accept my gratitude for the helpful and useful posts in the group. I will look forward to have a detailed sample code because I do not have detailed knowledge of API calls. Best Regards S Bans Tag: ms winsock activex control Tag: 207338
  - 3
    - Excel Auomation - Adding Textbox I'm hoping to have better luck posting this the second time around. I've gotten most of the elements to creating Excel sheets down and adding data to them. I want to add a textbox to a sheet for some free flowing data. I'm having a problem getting the code from VB to VFP. Here is the VB code: ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1", Link:=False, DisplayAsIcon:=False, Left:=11.25, Top:=322.5, Width:=428.25, Height:=47.25).Select If anybody would know how to, also, add text to it, I'd much appreciate. Thanks. Tag: ms winsock activex control Tag: 207335
  - 4
    - checkbox in listbox? Hello, In a listbox, is it possible to show a logical field using a checkbox, like it does in a grid? If it is, how is it done? Thank you. -- jw Tag: ms winsock activex control Tag: 207332
  - 5
    - odbc driver for vfp9.0? Is there an updated odbc driver for vfp 9.0 Thanks, John Tag: ms winsock activex control Tag: 207329
  - 6
    - Crystal Reports Question I have a parameter field named group defined as a string range. From this I have a formula field named mingroup defined as follows minimum({?group}) In the display string of mingroup I have the following code if trim({@mingroup}) = "" then "Earliest" else {@mingroup} This code does not work, is there any way to detect wether {@mingroup} is empty. I have tried different comparisons to an empty string and nothing seems to work. Thanks in advance Dave Tag: ms winsock activex control Tag: 207323
  - 7
    - Image I have images stored in a SQL 2000 database and have created views in VFP to access the tables. How do I actually read the binary data stored in the table to be displayed lets say in a image control? I was hoping something like this would work: thisform.image1.picture=mysqltable.image && but if doesnt. Is there a different control I need to use or is there a way to make the above example work. Many thanks Shahriar Tag: ms winsock activex control Tag: 207319
  - 8
    - get dynamic internet ip ? This is a multi-part message in MIME format. ------=_NextPart_000_0008_01C50EB9.2074A0A0 Content-Type: text/plain; charset="windows-874" Content-Transfer-Encoding: quoted-printable Hi, how do i programmatically retreive current internet ip ? regards Hoe ------=_NextPart_000_0008_01C50EB9.2074A0A0 Content-Type: text/html; charset="windows-874" 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=3Dwindows-874"> <META content=3D"MSHTML 6.00.2900.2135" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV><FONT face=3DArial size=3D2>Hi,</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>how do i programmatically retreive = current internet=20 ip ?</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>regards</FONT></DIV> <DIV><FONT face=3DArial size=3D2>Hoe</FONT></DIV></BODY></HTML> ------=_NextPart_000_0008_01C50EB9.2074A0A0-- Tag: ms winsock activex control Tag: 207316
  - 9
    - GDI+ Hello ! I recently downloaded from UT Alexander Golovlev's class "GpImage.prg" That´s a really terrific tool! That enables resizing and converting image files, using GDI+ I started studying it, and would like to Draw some string on an image. But I don't have any experience dealing directly with the APIS. I researched on MSDN and www.news2news.com and there I found the method GdipDrawString , that has the syntax below. How can I implement it ? Thank you very much in antecipation Cesar Chalom Sao Paulo - Brazil *!* DECLARE INTEGER GdipDrawString IN gdiplus; *!* INTEGER graphics,; *!* STRING widechar,; *!* INTEGER length,; *!* INTEGER fnt,; *!* STRING @ rectf,; *!* INTEGER stringFormat,; *!* INTEGER brush Tag: ms winsock activex control Tag: 207312
  - 10
    - copy to throws error 202 I have a table open and have to copy it to a csv: COPY TO (lcStatusFile) TYPE DELI lcStatusFile = "D:\temp\DAWN\load_status_prob_20050208\200501 DAWN_Status_Submittal.csv" The file itself exists, so there should be no problem with the path. When the COPY TO executes I get error: Invalid path or file name (Error 202) I tried this: COPY TO ( JUSTFNAME(lcStatusFile) ) TYPE DELI and it worked. I tried this: ?DIRECTORY( JUSTPATH(lcStatusFile) ) and it was .T. What else can I try? Thanks, Woody Tag: ms winsock activex control Tag: 207309
  - 11
    - copy to throws error 202 I have a table open and have to copy it to a csv: COPY TO (lcStatusFile) TYPE DELI lcStatusFile = "D:\temp\DAWN\load_status_prob_20050208\200501 DAWN_Status_Submittal.csv" The file itself exists, so there should be no problem with the path. When the COPY TO executes I get error: Invalid path or file name (Error 202) I tried this: COPY TO ( JUSTFNAME(lcStatusFile) ) TYPE DELI and it worked. I tried this: ?DIRECTORY( JUSTPATH(lcStatusFile) ) and it was .T. What else can I try? Thanks, Woody Tag: ms winsock activex control Tag: 207307
  - 12
    - Vanishing forms I'm upgrading from 3.0b to 9.0. If I show a form with buttons or boxs and attempt to click the option, if the mouse touches the option all contents disappears. I fixed one screen by changing the default Themes to F. That worked for one screen but not others. Also the look of the screen is not that attractive. Any clues??? Tag: ms winsock activex control Tag: 207306
  - 13
    - how to remove the AutoInc of a field? Anyone out there knows how to drop the AutoInc of a field? I need to remove this temporarily to udpate this field & set it back. I just need to be able to drop the autoinc feature off for a while. Tag: ms winsock activex control Tag: 207305
  - 14
    - The Definitive Chord & Scale Bible - Literally EVERY chord and scale! Finally it exists!! IF YOU PLAY GUITAR, YOU NEED THIS BOOK!! Listen to my story: In the process of teaching myself guitar, I went looking for a book that simply had the all the chords, scales and modes, and nothing else. I was totally surprised to find that such a book didn't exist. There are plenty of places to find this information, but it tends to be spread out over the coarse of a long book or in a poorly organized workbook. I found some of it on the web in the form of calculators and such, but that wasn't helpful since I wanted to practice away from my computer. That is why I created THE ULTIMATE GUITAR RESOURCE, which has LITERALLY EVERY CHORD, SCALE and MODE in an easy to download and print document. Its a full 37 pages for only $3.99! (hardcover is available) What makes this guide even better is that you don't need to read music to use it, so it can help every player at any level. I guarantee you'll use this guide for years! For way less than you spent on lunch, you'll learn: -EVERY CHORD (in every position) -EVERY SCALE, including the jazz and blues scales -ALL THE MODES -LITERALLY EVERYTHING YOU NEED TO KNOW - solo and play chords without reading music today. A free sample is available at: <http://keystone-music.com/> <http://keystone-music.com/> <http://keystone-music.com/> Good luck and God Bless! p.s. I apologize if this message annoys, aggravates, miffs, disturbs, bugs or angers you. I'm actually just a dude who wrote a book that hundreds of people are using and apparently liking very much. While this may fall into a spam-like category, (since I am selling something, and you didn't ask for this message), I think that its not totally over that line since I'm not pitching a porn site, a refinance loan or a cock enlargement. Peace! everychordandscale@yahoo.com Tag: ms winsock activex control Tag: 207294
  - 15
    - Strange Problem - Please Help Thanks in advance for the help! I have the following code in the VALID method of a Text control in column in a grid: SELECT TERMS LOCATE FOR ALLTRIM(TERMS.LONG == ALLTRIM(THIS.VALUE) IF NOT FOUND() ... ELSE ... ENDIF When this code executes the locate is failing where it shouldn't. When I put a SET STEP ON above the SELECT TERMS line and step through the code it works correctly. When I put the SET STEP ON inside the IF NOT FOUND() block I observe the following in the watch window: FOUND() is .F. (as you would expect since it is in the NOT FOUND() block) THIS.VALUE is what I am expecting it to be ALIAS() is TEMPTRAN and not TERMS If I go to the command window and type SELECT TERMS LOCATE FOR TERMS.LONG == ALLTRIM(THIS.VALUE) ALIAS() in the watch window changes to TERMS FOUND() in the watch window changes to .T. Does anyone know why this code might be failing when it is not run from within the debugger? Tag: ms winsock activex control Tag: 207284
  - 16
    - vfp9 dlls ? This is a multi-part message in MIME format. ------=_NextPart_000_0010_01C50E47.66E5F2E0 Content-Type: text/plain; charset="windows-874" Content-Transfer-Encoding: quoted-printable Hi, what are the royalty free dll files to distribute with vfp application = developed in vfp v9 ? Regards Hoe ------=_NextPart_000_0010_01C50E47.66E5F2E0 Content-Type: text/html; charset="windows-874" 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=3Dwindows-874"> <META content=3D"MSHTML 6.00.2900.2135" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV><FONT face=3DArial size=3D2>Hi,</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>what are the royalty free dll files to = distribute=20 with vfp application developed in vfp v9 ?</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Regards</FONT></DIV> <DIV><FONT face=3DArial size=3D2>Hoe</FONT></DIV></BODY></HTML> ------=_NextPart_000_0010_01C50E47.66E5F2E0-- Tag: ms winsock activex control Tag: 207282
  - 17
    - Folder name - short notation How can I get the result from getdir() to be displayed in the short form like c:\locals~1 rather than the long name form 'c:\documents and settings'? I would like to do it in VFP7. Aaron Tag: ms winsock activex control Tag: 207280
  - 18
    - OWC10 still stuck One last attempt. I apologize for second post in advance, not trying to inflame I'm simply not up to speed on objects and arrays. Since this should be easy I'm looking for a quick solution here before attempting an outsource. If you feel this post is beyhond the intentions of this group simply don't reply, I'm not here to offend anyone but would like to save a buck if I can! Here's the specification and yes, there is a reason I need to do it this way. Overview: VFP function that creates and exports line chart to "gif" format using OWC10.dll in background using bare minimum VFP 6.0 code. Parameters passed: cDestFile: target GIF destination file name. cDataSource: Comma delimited source file name. Will always have two fields 1.) Data Labels and 2.) Values cTitle: Chart title label cLineColor: Series line color cBackColor: Chart background color lShowLegend: Logical value determines whether to show legend nLabelAlign: Label orientation (0 horizontal, 90 vertical, etc.) Parameters returned (numeric): 0=Failure 1=Success Sample VFP6 code to call this function (MakeChart): && Set parameters cDestFile="c:\Graph.gif" cDataSource= "c:\source.txt" cTitle="My Chart" cLineColor="Red" cBackColor="Black" lShowLegend=.f. nLabelAlign=90 && Call function MakeChart(cDestFile,cDataSource,cTitle,cLineColor,cBackColor,lShowLegend,nLa belAlign) Sample Data Set (c:\source.txt): "Label","Value" "John","36" "Jane","25" "Fred","52" "Mike","65" "Otis","47" TYIA - Ben Tag: ms winsock activex control Tag: 207269
  - 19
    - _genxtab doesnt work in compiled EXE file in Foxpro for Dos 2.6 -- _________________________________________ Zahid Maqsood zahidbutt@onlinestiching.com zahidbutt@hotmail.com zahidbutt@yahoo.com itmanager@crescentsugar.com Tag: ms winsock activex control Tag: 207266
  - 20
    - Zipping in WinXP Friends, Some months ago (on 14th Dec 2004) there was a posting of code for Zipping in Window XP (code is appended below), it is working fine if 1. I compress a complete folder (giving only path of the folder) 2. I compress a complete folder (giving wild card like - "C:\myproject\*.*" as source) 3. I compress a ZIP file again However we get an empty ZIP folder if we want to zip ONE specific file in a folder, like we do not get desired results if we give "C:\myproject\test.txt" as source. I will appreciate any further guidance about how to compress only SPECIFIED files from a folder. Regards S Bans ************************* Cheap and build in to Windows XP. Use the Windows Shell to Control Zip folders Ex: ZIP("C:\myproject\*.*", "C:\Temp\MyZipFile.ZIP") You even get the flying folders animation PROCEDURE ZIP(lcFromFileOrFolder AS STRING, lcZipFile AS STRING) LOCAL lcEmptyZip AS STRING LOCAL oSHELL AS SHELL.APPLICATION lcEmptyZip = "PK"+CHR(5)+CHR(6)+REPLICATE(CHR(0),18) TRY oSHELL = CREATEOBJECT("Shell.Application") IF NOT EMPTY(lcZipFile) lcFullName = FULLPATH("&lcZipFile.") IF UPPER(JUSTEXT(lcFullName)) <> "ZIP" lcFullName = lcFullName + ".ZIP" lcFullName = STRTRAN(lcFullName,"..",".") ENDIF IF FILE("&lcFullName.") IF MESSAGEBOX("File "+lcFullName+" already exist Override?",256+64+4,"Warning") <> 6 EXIT ELSE DELETE FILE "&lcFullName." ENDIF ENDIF IF STRTOFILE(lcEmptyZip, "&lcFullName.") <> 22 = MESSAGEBOX("Error creating " + lcFullName, 16, "Zip file creation error") EXIT ENDIF ELSE = MESSAGEBOX("No Zip file name specified",16, "Missing info") EXIT ENDIF IF NOT EMPTY(lcFromFileOrFolder) lcFromFileOrFolder = FULLPATH("&lcFromFileOrFolder") TRY loFolder = oSHELL.NameSpace("&lcFromFileOrFolder.") IF ISNULL(loFolder) && not full folder lcFolder = JUSTPATH(lcFromFileOrFolder) loFolder = oSHELL.NameSpace("&lcFolder.") IF ISNULL(loFolder) = MESSAGEBOX("Invalid Folder name",16,"Error") EXIT ELSE loFolder = loFolder.ITEMS() loFolder.FILTER(-1, JUSTFNAME(lcFromFileOrFolder)) ENDIF ENDIF loZipFolder = oSHELL.NameSpace("&lcFullName.") IF NOT ISNULL(loZipFolder) loZipFolder.CopyHere(loFolder) DECLARE INTEGER "FindWindow" IN WIN32API; STRING @lpClassName, STRING @lpWindowName WAIT "" TIMEOUT 3 DO WHILE .T. lnHWnd = FindWindow("#32770","Compressing...") IF lnHWnd <> 0 WAIT "" TIMEOUT 1 ELSE EXIT ENDIF ENDDO ENDIF CATCH TO oexception ? oexception.lineno, oexception.errorno, oexception.message ENDTRY ELSE = MESSAGEBOX("No files to ZIP",16, "Missing Info") ENDIF CATCH FINALLY ENDTRY ENDPROC Tag: ms winsock activex control Tag: 207265
  - 21
    - Unzip WinXP Friends, Some months ago there was a posting of code for UNZipping in Window XP (code is appended below), it is working fine, however it creates an EXTRA folder under: C:\Documents and Settings\USER\Local Settings\Temp\ by the name of Temporary Directory 1 for UNZIPPEDFILE.zip Temporary Directory 2 is also created if the same file is unzipped again. After repeat runs on the same file, we may start getting curious results and messages. It we unzip big files, then the Hard Disk can get filled up without our knowledge. It there some solution so that this folder is either not created or deleted automatically after unzipping. I will look forward to have your comments. Best Regards S Bans ***************** PROCEDURE UnZIP(lcZipFile AS STRING, lcToFolder AS STRING) * LOCAL lcEmptyZip AS STRING LOCAL oSHELL AS SHELL.APPLICATION lcEmptyZip = "PK"+CHR(5)+CHR(6)+REPLICATE(CHR(0),18) TRY oSHELL = CREATEOBJECT("Shell.Application") IF NOT EMPTY(lcZipFile) lcFullName = FULLPATH("&lcZipFile.") IF UPPER(JUSTEXT(lcFullName)) <> "ZIP" lcFullName = lcFullName + ".ZIP" lcFullName = STRTRAN(lcFullName,"..",".") ENDIF IF NOT FILE("&lcFullName.") = MESSAGEBOX("Zip File "+lcFullName+" not found",16,"Error") EXIT ENDIF ELSE = MESSAGEBOX("No Zip file name specified",16, "Missing info") EXIT ENDIF IF NOT EMPTY(lcToFolder) lcToFolder = FULLPATH("&lcToFolder") TRY loFolder = oSHELL.NameSpace("&lcToFolder.") IF ISNULL(loFolder) && does not exist (create) MKDIR "&lcToFolder." loFolder = oSHELL.NameSpace("&lcToFolder.") ENDIF loZipFolder = oSHELL.NameSpace("&lcFullName.") IF NOT ISNULL(loZipFolder) lnZipFileCount = loZipFolder.ITEMS.COUNT lnFileCount = loFolder.ITEMS.COUNT loFolder.CopyHere(loZipFolder.ITEMS) && unzip executes asynchronously ENDIF CATCH ENDTRY ELSE = MESSAGEBOX("No files to ZIP",16, "Missing Info") ENDIF CATCH FINALLY ENDTRY ENDPROC Tag: ms winsock activex control Tag: 207264
  - 22
    - remove read only attribute--please help how can I remove read only attribute of a label.lbx (label file type) before I replace new information into label.lbx. THANY YOU Ming Tag: ms winsock activex control Tag: 207261
  - 23
    - user-adjustable reports I have reports with one record in a tall detail band, no header, footer, title, nor summary. These are intended to be printed on pre-printed forms, with the text boxes filling in the blanks. As expected, there are alignment differences for different users using different printers. Alignment between the individual controls does not change, but margins do. I can allow the user to edit the report, but these users are not particularly computer savvy. I have grouped all the controls on the report, and I would like to allow the user to specify something like "move everything up 1/8 inch and right 1/4 inch", then have the app make the adjustment. Can this be done with report listeners? Or is it best to hack the report? Something like REPLACE hpos WITH hpos + 10 FOR objtype = 8 Or, since I have grouped the controls, is there a simple way to reposition the group? How are groups represented in the frx? Tag: ms winsock activex control Tag: 207243
  - 24
    - Upgrading to 9.0 compiling error I'm upgrading from 3.0B to vfp 9.0 and have received this error in compiling. Any suggestions? DIMENSION aLines[nLines] Error in line 116: Invalid use of a Visual FoxPro function as an array. aLines[I] = SUBSTR(cText,nT1,nT2) Error in line 122: Too few arguments. nS = MAX(nS,TXTWIDTH(aLines[I])) Error in line 123: Too few arguments. @ nThisLine,nC SAY aLines[I] PICT cPict SIZE 1,nW Error in line 145: Too few arguments. @ nThisLine,nC SAY aLines[I] PICT cPict SIZE 1,nW COLOR (cRGB) Error in line 148: Too few arguments. Thanks in advance. Tag: ms winsock activex control Tag: 207237
  - 25
    - Color Q. I have a navigation form that has pictures on the command buttons. Depending on what the pcs "Color Quality, I want a less dramatic picture on the command button for lower colors (i.e. 16 - 256 colors) and a flasher picture for 16 & 32 bit color. My question is, how in the activate or load of my form can I determine what the color on the pc is set? I am sure it is an api call or something fancy. Your help is always appreciated. Jonathan Morningstar Tag: ms winsock activex control Tag: 207230
- Next
  - 1
    - Locking & Unlocking a Demo I have had many request to send out demo's for some of my programs. I have put date limits and record count to limit the user but then when they want to purchase the program I have to send them another CD or have them download another file. I know that some demo's that I download and want to purchase, the seller just sends me an unlocking code and it works to unlock the program. Does anyone know how to lock and unlock a demo exe application using VFP8??? TonySper Tag: ms winsock activex control Tag: 207229
  - 2
    - How to Search for text string in all *.prg files? How to Search for text string in all *.prg files? The Windows Find dialog does not seem to be able to search inside Visual Foxpro 6.0 *.prg files in a folder. I guess even the uncompiled .prg (vs. the executable *.fxp) is not really stored as plain text. I assume there must be a way to do this in FoxPro, itself, but can't see it. Any ideas? Thanks -- JJ John "J.J." Jackson Tag: ms winsock activex control Tag: 207219
  - 3
    - PageFrame Refresh Is there a means of refreshing all the pages in a pageframe short of going through the list of pages? Or if not, is there a way to accomplish this without specifying each page in code? I have a page frame with 2 pages; each page has its own pageframe with several pages. thisform.refresh will only refresh the active page. Using VFP8, sp1 on Windows XP sp2. Thanks, Dave Tag: ms winsock activex control Tag: 207215
  - 4
    - Cannot OKL escape during SCAN..ENDSCAN Not entirely true but I've come across another bizarre thing in FPW2.6a: *{--------------------------- SELECT bigtable m.lkill=.F. ON KEY LABEL esc DO cancscan WITH m.lkill SCAN IF m.lkill EXIT ENDIF *stuff ENDSCAN ***** FUNCTION cancscan ***** PARAMETERS m.pflag PUSH KEY CLEAR m.pflag=.T. POP KEY *{--------------------------- So, the scan takes a long time and the user is supposed to be able to cancel halfway through. For some reason when in the loop, the escape keypress is ignored. It is nothing to do with SET ESCAPE [already tried, SET ESCAPE does not affect ON KEY LABEL esc] If I bind a different key it works OK. What's *really* strange is that with escape bound, it works if I press any other key on the keyboard first. As soon as I suspend the program it seems to work properly too so debugging isn't easy. This only seems to be the case during a SCAN, I set a different procedure for escape after the scanning and that always works. Any ideas? -- TIA Andrew Howell Tag: ms winsock activex control Tag: 207213
  - 5
    - SQL cursoradapters display of zero amounts weird When working with sql cursoradapters in grids, amounts are always missing the zero before the decimal point. e.g .00 or .45 instead of 0.00 and 0.45. They display correctly in a textbox. The VFP cursoradapter shows correctly in the same grid class so it can't be a formatting problem within the grid. If you BROWSE the cursoradapter, you again see the fields without the zero before the decimal points. What causes this and is there any way of forcing the zero to show? Thanks for any help, Bernie Tag: ms winsock activex control Tag: 207209
  - 6
    - make yourself one... hi ppl, why don't you make your onw code bar?! i 've make my self an EAN-13 and EAN-8 code bar.. and work perfectly as much in screen ou printing!!! and isn't so dificult to do it!!! the only problem is that a can resize the code bar..the code bar is fixed to a height and width... ATSP Tag: ms winsock activex control Tag: 207206
  - 7
    - Is it possible to draw a table in vfp8? Hi All, I think this question sounds stupid! Anyway, here it goes... Is it possible to draw a table with rows and colums like in MS Word? I did think of using a grid. But, I won't be populating the grid with multiple record from a table/s. The contents to be displayed on the table would be a result of a join of several tables which fetches exactly, one entity's data from all the tables in the database. But I would be displaying the whole lot of information in a several rows and columns. Can anybody suggest me how to do this? Thanks. Tag: ms winsock activex control Tag: 207196
  - 8
    - want to remove the read only status of label.lbx I wrote a label program, the program run on different computer, different site and different printer. I want to print 22 labels on one sheet on different situation. so I removed the printer driver in label.lbx before printing in order to the labels can be printed 22 labes on one sheet on each computer. the templabel.lbx is read only a error occured , when I created a setup.exe. how can I remove the read only status of templabel.lbx ? the following is the code of label program. thank you for your help ming *********************************************** COPY FILE 2x11.lbx TO templabel.lbx COPY FILE 2x11.lbt TO templabel.lbt *** Open the temporary report file USE templabel.lbx IN 0 -------------------------> problem occured right here. SELECT ("templabel") GOTO TOP * Strip some information from EXPR. Remove the driver info. lcExpr = Expr lcExpr = STRTRAN(lcExpr, 'DEVICE=', '*DEVICE*=') lcExpr = STRTRAN(lcExpr, 'DRIVER=', '*DRIVER*=') lcExpr = STRTRAN(lcExpr, 'OUTPUT=', '*OUTPUT*=') lcExpr = STRTRAN(lcExpr, 'DEFAULT=', '*DEFAULT*=') lcExpr = STRTRAN(lcExpr, 'PRINTQUALITY=', '*PRINTQUALITY*=') lcExpr = STRTRAN(lcExpr, 'YRESOLUTION=', '*YRESOLUTION*=') lcExpr = STRTRAN(lcExpr, 'TTOPTION=', '*TTOPTION*=') lcExpr = STRTRAN(lcExpr, 'DUPLEX=', '*DUPLEX*=') REPLACE TAG WITH '', TAG2 WITH '', EXPR WITH lcExpr -------------> error occured here , as it is read only, so it can be replace with everything *** Close the temp report file so we could run it. USE IN ("templabel.lbx") && Close the FRX file Tag: ms winsock activex control Tag: 207185
  - 9
    - Auto Increment records like a new emplyee number In VFP9 I used the wizard to create an emplyee table, and indexed it on employeeid. Then I used the wizard and created a form to view and enter employee data. The first time I ran the form I used the command buttons and created a new employee and gave the employee an employeeid of 101. Entered all the rest of the table data and exited. The next time I ran the form, it automatically presents the data from the last record (which I thought I could hide by telling the data environment "no data on load", but it still shows the last record) The second thing is when I click add button, there was no indication as to where the cursor is (and I wanted it to start at the top of the form in Employeedid) so I editied the add button in the command group and tried this code, and it does put me where I want to be, but all the other data is still there) On the click event of the add button ThisForm.EMPLOYEEID1.SetFocus Lastly if I gave the first employee the ID of 101 and add a new employee what would you need to to to get it to assune the next emplyee should be 102? Any help greatly appreciated. Dan Tag: ms winsock activex control Tag: 207173
  - 10
    - Bill Anderson at LA Fox February 8/Using Software Design Patterns Here's a synopsis of the topic at LA Fox this Tuesday...for further details, visit us at http://www.lafox.org. All well structured object oriented architectures are full of patterns. Focusing on these common patterns (Design Patterns) during a system's development can yield an architecture that is smaller, simpler, and far more understandable than if these patterns are ignored. Using these Design Patterns in your development can provide a significant maintenance advantage during an application's lifespan. Like a Japanese haiku (a three line poem consisting of exactly 17 syllables), Design Patterns have a simple construction, but also can be rather hard to fathom. In this session Bill will outline the most common Design Patterns and use familiar Visual FoxPro terminology to illustrate each Pattern. While Design Patterns aren't specific to any software development language, attendees should be familiar with Visual FoxPro terminology and the principles of object orientation. The Jump Start will feature a tour of xCase 7.5. See you there! Tag: ms winsock activex control Tag: 207172
  - 11
    - FPD report help My client runs a mature many-featured FPD application and I've been asked to modify a couple of the PRG-generated reports. These reports use ?, no FRX involved, and are powered by cursors for the data. The reports have numerous options driven by selector windows. Once the selections are made, the user picks between Screen and Printer. I'm being asked to include an option to create an Excel spreadsheet. I did something like this for them a couple years ago. It was a bunch of work, but I came up with a satisfactory solution. I thought I'd ask here before really getting into this. The printed version supports some stuff that I don't know how I'd support in a spreadsheet. I mean, I can do a COPY TO FILE (lcFilename) TYPE XLS, and if my fieldnames are sufficiently descriptive, it might be satisfactory. But it would be nice if I could include nice things like a page heading and a total line at the end. Is that stuff possible without some weird kludge? Tag: ms winsock activex control Tag: 207167
  - 12
    - simple outlook example with attachment Here is one using Outlook adapted from past examples posted that works ok for me. Save the code below as a program ie 'the_following_program' Say your file to be attached is in C:\Temp DO \~\the_following_program with 'the_filename_to_be_attached' PARAMETER f_file *ON ERROR DO \SOMEDIR\MY_ERROR WITH ERROR() SET DEFAULT TO C:\Temp f_file="C:\Temp\"+f_file oSession = CREATEOBJECT("MSMapi.MapiSession") oMessage = CREATEOBJECT("MSMapi.MapiMessages") oSession.LogonUI = .t. oSession.SignOn *-- The message control needs to reference the session control's ID. oMessage.SessionID = oSession.SessionID oMessage.MsgIndex = -1 *-- Set up our message and send it. oMessage.Compose oMessage.RecipDisplayName = "receiveremailname@ABC.com" oMessage.msgsubject = "file for :"+ALLTRIM(CDOW(date()))+" " +ALLTRIM(DTOC(date())) oMessage.msgnotetext = " Dear ABC "+CHR(13)+" - Attached is the latest file." *-- Attach the file. oMessage.AttachmentPathName = "&f_file" *-- Send the message on its way. oMessage.send(1) * oSession.Signoff() oSession.Signoff() * ON ERROR SET DEFAULT TO C:\Temp RETURN Tag: ms winsock activex control Tag: 207165
  - 13
    - Use of MoverBar Listboxes. Help please. Hi VFP Fans, Just having a bit of a problem with Movers (or listboxes with Moverbars = .t.) It is most likely the problem is with me in fact, not the listbox, but you get the idea! The Mover Listbox has 2 columns that I use. 1 A description 2 A number (as a string) I use to identify a record for processing The following properties are probably also relevant. Mylistbox.Rowsource type = 0 Mylistbox.Sorted = .f. Mylistbox.moverbars=.t. I add the items to the listbox in the order I find them in a folder (as they relate to filenames). I currently use the following code to process the items after the user has interacted with the listbox. FOR nCtr = 1 TO mylistbox.LISTCOUNT nScrapID = VAL(mylistbox.LISTITEM(nCtr,2)) IF SEEK(nScrapID) *Do stuff with nScrapID Endif Endfor Now this works fine for working through the items in the list box from the start in sequential order, however I wish to process them in the order they have been moved to by the user. eg A user may move the items up and down the list. I want to process them in the users requested order. (using vfp9) Hope that makes sense. Can you help? Thanks in advance. Darren. Tag: ms winsock activex control Tag: 207164
  - 14
    - Drag & Drop Hi all, Assuming I want to drag a picture from a folder on my HD to a photo location on my form, how can I get the path of the dragged photo? thank you Hutch -- --------------------------------------------------------------------- "Are you still wasting your time with spam?... There is a solution!" Protected by GIANT Company's Spam Inspector The most powerful anti-spam software available. http://mail.spaminspector.com Tag: ms winsock activex control Tag: 207163
  - 15
    - Auto Login VSS in VFP Hi, Anyway to set VFP to login to VSS using network name automatically while project opened? I have set "Use network name to automatically login user" to true in VSS admin| tools | options. Thank you Tag: ms winsock activex control Tag: 207162
  - 16
    - Resetting a grid after a relation I have an application where the users can set relations between any files they have open. My problem is that after they clear the relation, the child grid only shows the last "found()" set of records. What do I have to do to refresh the child grid so that it shows all records after the relation has been removed? Thanks, Scott Tag: ms winsock activex control Tag: 207157
  - 17
    - 'Use' Command question Hi Everyone; Some of my apps use a text file to store the path to data. When the path has blanks in it such as "c:\program file\..." foxpro does not like the DOS style path. (I am using "use evaluate('variablename')..." The only solution I found was to map the location as a drive such as "K:" and use this in the text file. Is there anyway to use the full path of a directory that has blank spaces or must I stick to using a network path?. TIA Mike Tag: ms winsock activex control Tag: 207148
  - 18
    - FoxPro 2.6 printer problem I use FoxPro 2.6 for windows on a windows xp machine. The printer is an HP Laserjet 2100TN, and the printout which appears is: PCL XL Error Subsystem: Kernel Error: UnsupportedProtocol Operator: 0x0 Position: 0 What do I have to do to get it to print properly? Reports now are just garbage. The printer prints the way it should stuff from Excel and Word. Regards, Jan Nordgreen Tag: ms winsock activex control Tag: 207138
  - 19
    - MAILTO: and attachments I am using MAILTO: and shellexecute to send emails from a vfp app. Is it possible to automatically include attachments, found by GETFILE(), and if so could somebody post a sample piece of code? Many thanks Stephen Tag: ms winsock activex control Tag: 207134
  - 20
    - How i can create a letter template in word ... os: win xp pro vfp: 6.0 sp5 hi, i have some customers that have a company letter template... with logo and adress... how i can create a letter template that my end user can't change logo and adress...only write the letter? TIA ATSP Tag: ms winsock activex control Tag: 207132
  - 21
    - Compiling to a win32 exe results in DECLARE DLL 'not found' errors I'm attempting to compile a VFP9 project into an EXE. It requires some ActiveX controls that need to be registered, so I've found a handy program by William GC Steinford to register ActiveX DLLs and included it in my project. The function RegSvr has the following lines: DECLARE INTEGER LoadLibrary IN kernel32 As "LoadLibraryA"; STRING lpLibFileName LOCAL lhLib lhLib = LoadLibraryA( pcOCX ) When compiling my project, I get an error: Unable to find Unknown LOADLIBRARY [Locate][Ignore][Ignore all][Cancel] I get the same error for all DECLARE'd DLL functions. If I just ignore them, the project will finish compiling with errors and still be able to use these functions. Does anyone know how to prevent these errors from occurring, though? Tag: ms winsock activex control Tag: 207131
  - 22
    - mailto and attachments Is it possible to include attachments when using mailto: and shellexecute? Many thanks Stephen Tag: ms winsock activex control Tag: 207129
  - 23
    - PDF printing Found this: PDFcreator - opensource PDF printer driver (works from any windows app) http://sector7g.wurzel6.de/pdfcreator/ (also on sourceforge) Has two interesting abilities, 1>. print to pdf and email straight away 2>. Automated print to pdf file, you specify directory and file name structure. Just thought I'd share! Have good weekend. Steve Tag: ms winsock activex control Tag: 207127
  - 24
    - read a file to return a byte array Hi all, How can i use VFP 5.0 to read a file and return a byte array? Thank you. Tag: ms winsock activex control Tag: 207106
  - 25
    - VFP9 problem with _screen Hello All, I am currently looking at VFP9, and I have a problem with the following code. _screen.addobject("oHook","MyHook1") Define class MyHook1 as Custom oScreen = _Screen procedure oScreen.resize _Screen.sScreen1.resize endproc enddefine sScreen is a container object that resizes when the main screen resizes. In VFP6 this works great, but in VFP9 I get the following error: Unknown member OSCREEN. Is there a quick solution? -- To reply remove 'NoSpam' from email address Tag: ms winsock activex control Tag: 207104

This is a multi-part message in MIME format.

------=_NextPart_000_000A_01C50F07.515EC440
Content-Type: text/plain;
charset="windows-874"
Content-Transfer-Encoding: quoted-printable

Hi,

what file name is this ms winsock activex control in vfp 7.0 or 9.0 ?

can this file royalty free for distribution with our vfp exe ?

can we buy it without purchase of the vfp license ?

regards
hoe
------=_NextPart_000_000A_01C50F07.515EC440
Content-Type: text/html;
charset="windows-874"
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=3Dwindows-874">
<META content=3D"MSHTML 6.00.2900.2135" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Hi,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>what file name is this ms winsock =
activex control=20
in vfp 7.0 or 9.0 ?</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>can this file royalty free for =
distribution=20
with our vfp exe ?</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>can we buy it without purchase of the =
vfp license=20
?</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>regards</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>hoe</FONT></DIV></BODY></HTML>

------=_NextPart_000_000A_01C50F07.515EC440--

Top

Re: ms winsock activex control by Dan

Dan
Wed Feb 09 10:53:13 CST 2005

Winsock isn't part of VFP. It's part of Windows.

Refer to REDIST.TXT in your VFP home() directory for more information.

Dan

tnhoe wrote:
> Hi,
>
> what file name is this ms winsock activex control in vfp 7.0 or 9.0 ?
>
> can this file royalty free for distribution with our vfp exe ?
>
> can we buy it without purchase of the vfp license ?
>
> regards
> hoe

Top

Re: ms winsock activex control by tnhoe

tnhoe
Wed Feb 09 11:21:00 CST 2005

"Dan Freeman"

Found it. Thanks.

Regards
Hoe

Top