VFP7, Vista and FILE() problem

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
    - Help converting a C program to VB.NET or VFP This is a multi-part message in MIME format. ------=_NextPart_000_0029_01C7778A.632E0120 Content-Type: multipart/alternative; boundary="----=_NextPart_001_002A_01C7778A.632E0120" ------=_NextPart_001_002A_01C7778A.632E0120 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Hi all, I need a C programmer to help me out convert the single file attached to = either VB.NET or VFP. =20 Does anybody know any C programmer that can do this kind of conversion? Thanks! --=20 Edhy Rijo www.progytech.com Bronx NY ------=_NextPart_001_002A_01C7778A.632E0120 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.6000.16397" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV><FONT size=3D2> <P class=3DMsoNormal style=3D"MARGIN: 0in 0in 0pt"><FONT size=3D3><FONT=20 face=3DCalibri>Hi all,</FONT></FONT></P> <P class=3DMsoNormal style=3D"MARGIN: 0in 0in 0pt"><FONT face=3DCalibri=20 size=3D3></FONT> </P> <P class=3DMsoNormal style=3D"MARGIN: 0in 0in 0pt"><FONT size=3D3><FONT = face=3DCalibri>I=20 need a C programmer to help me out convert the single file attached to = either=20 VB.NET or VFP.<SPAN style=3D"mso-spacerun: yes">  = </SPAN></FONT></FONT></P> <P class=3DMsoNormal style=3D"MARGIN: 0in 0in 0pt"><FONT size=3D3><FONT=20 face=3DCalibri><SPAN style=3D"mso-spacerun: = yes"></SPAN></FONT></FONT> </P> <P class=3DMsoNormal style=3D"MARGIN: 0in 0in 0pt"><FONT size=3D3><FONT=20 face=3DCalibri><SPAN style=3D"mso-spacerun: yes"></SPAN>Does = anybody know any C=20 programmer that can do this kind of conversion?</FONT></FONT></P> <P class=3DMsoNormal style=3D"MARGIN: 0in 0in 0pt"><FONT size=3D3><FONT=20 face=3DCalibri></FONT></FONT> </P> <P class=3DMsoNormal style=3D"MARGIN: 0in 0in 0pt"><FONT size=3D3><FONT=20 face=3DCalibri>Thanks!<?xml:namespace prefix =3D o ns =3D=20 "urn:schemas-microsoft-com:office:office"=20 /><o:p></o:p></FONT></FONT></P></FONT></DIV><FONT 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_001_002A_01C7778A.632E0120-- ------=_NextPart_000_0029_01C7778A.632E0120 Content-Type: text/plain; name="Source.txt" Content-Transfer-Encoding: quoted-printable Content-Disposition: attachment; filename="Source.txt" * * $Id$=20 * $Source$ */ /* * CDRSrv.c * * CDR Server code for Multithreading Applications in Win32 * This server can only be run on Windows NT, * version 3.51 or later. The client will be a Gateway * which will be configured with cdrserverport as 9002 and=20 * cdrserverip as the CDR Server PC's IP Address.=20 * For each Gateway, it will create a yymmdd_xxx_xxx_xxx_xxx.cdr file. * where yymmdd is the year, month, and day, xxx_xxx_xxx_xxx generated * from the CDR Server PC ip address by replacing '.' with '_'. * Before running this program, a Gateway administrator has to=20 * config the Gateway by the following steps: *=20 * 1. Telnet <gateway ip address> * 2. <company>> Password: <Gateway login password> * <company> Thank you. Type ? for help * 3 <company> con sys cdrpassword <your cdr password>=20 * 4. <company> con sys cdrserverip 1 <your pc ip address> * 5. <company> con sys cdrserverport 1 9002 * 6. <company> con sub * 7. <company> exit * 8. You should create a cdrserver.cfg text file using notepad or = textpad * to contain the following threelines: * cdr_password <your cdr password> * max_chassis_no <number of gateways that you want to connect> * max_cdr_per_file <number of cdr record per cdr file> * 9. Enter cdrsrv <-f cfgfile_path\cdrserver.cfg> <-o cdrfile_path> = <-p cdrserverport> <-v ?> *=20 * 10. Output: all the cdr files will be in <cdrfile_path>\ directory *=20 */ #define WIN32_LEAN_AND_MEAN #include <stdio.h> #include <stdlib.h> #include <windows.h> #include <tchar.h> #include <string.h> #include <winsock.h> #include <io.h> #include <direct.h> #include <time.h> //#include "MtVerify.h" // Pick a port number that seems to be away from all others #define MAX_CONNECTION_NUM 100 #define MAX_REC_LEN 512 #define DATE_LEN 7 #define IPADDR_LEN 16 #define PORT_LEN 7 #define VERSION_LEN 11 #define MAX_NAME_LEN 32 #define MAX_CHASSIS_NUM 100 #define MAX_FILE_NAME_LEN 128 #define MAX_PATH_LEN 256 #define MAX_ESQN_LEN 10 #define MAX_PASSWORD_LEN 16 #define MAX_CDR_NUM 10000 #define MAX_RESETNUM_LEN 11 #define MAX_FILE_INDEX_LEN 4 // States of the CDR Server=20 #define AVAIL -1 #define START 0 #define WELCOMED 1 #define CONNECTED 2 #define PASSWORDSENT 3 #define PASSWORDOK 4 #define GOTGWIP 5 #define GOTUNITNAME 6 #define GOTLASTSEQNO 7 #define READY 8 // // Structure definition // // The context key keeps track of how the I/O // is progressing for each individual file handle. struct ContextKey { SOCKET sock; // Input char InBuffer[MAX_REC_LEN]; OVERLAPPED ovIn; // Output int nCDRBuffIndex; int nOutBuffIndex; char CDRBuffer[MAX_REC_LEN]; char OutBuffer[MAX_REC_LEN]; OVERLAPPED ovOut; DWORD dwWritten; int sid; }; // // Global variables // struct ContextKey *pCntx[MAX_CONNECTION_NUM]; HANDLE ghFile; HANDLE ghCompletionPort[MAX_CONNECTION_NUM]; HANDLE hFile[MAX_CONNECTION_NUM]; OVERLAPPED overlap[MAX_CONNECTION_NUM]; char cdrfile_path[MAX_PATH_LEN]; char cdrpassword[MAX_PASSWORD_LEN]; char cdrport[PORT_LEN]; char cfgfile_path[MAX_PATH_LEN]; char version[VERSION_LEN]; int cid; //Current Connection Identifier int state[MAX_CONNECTION_NUM]; int maxchano =3D MAX_CHASSIS_NUM;=20 int maxcdrno =3D MAX_CDR_NUM; short cdrserverport; typedef struct chassis { short avail; char IpAddr[IPADDR_LEN]; char unitname[MAX_NAME_LEN]; char resetnum[MAX_RESETNUM_LEN]; long resetno; long curr_resetno;=20 } CHASSIS; CHASSIS cha[MAX_CHASSIS_NUM];=09 // // Functions // void CreateWorkerThreads(int sid); DWORD WINAPI ThreadFunc(LPVOID sid); int IssueRead(struct ContextKey *pCntx); int convert_cdr(struct ContextKey *pCntx); void CheckOsVersion(); void FatalError(char *s); void GetConfigInfo(char *pswd, int *maxchano, int *maxcdrno); /////////////////////////////////////////////////////// int main(int argc, char *argv[]) { =20 SOCKET listener; SOCKET AcceptSocket; WSADATA WsaData; struct sockaddr_in serverAddress; struct sockaddr_in clientAddress; int clientAddressLength; int err; int i =3D 0; struct ContextKey *pKey[MAX_CONNECTION_NUM]; char *curr_path; char ver[VERSION_LEN]; =09 // Initialize cdrip to 9002 as the default value // the cfg file path and cdr file path to the working directory path strcpy(version, "07.22.2002_V1.0.3"); strcpy(cdrport, "9002"); curr_path =3D _getcwd(NULL, MAX_PATH_LEN); strcpy(cfgfile_path, curr_path); strcat(cfgfile_path, "\\cdrserver.cfg");=09 strcpy(cdrfile_path, curr_path); strcat(cdrfile_path, "\\"); strcpy(cdrpassword, "quintum"); printf("cfgfile_path =3D %s, cdrfile_path =3D %s\n", cfgfile_path, = cdrfile_path); free(curr_path); // // parse the command options // if (argc%2 !=3D 1)=20 {=20 fprintf(stdout, "Usage: %s -f <cfgfile_path>\\cdrserver.cfg -o = <cdrfile_path> -p <port#> <-v ?>\n", argv[0]); return -1; } else { for (i =3D 1; i < argc;i=3Di+2) { // // Get cdrserver.cfg path // if (strcmpi(argv[i], "-f") =3D=3D 0) {=09 strcpy (cfgfile_path, argv[i+1]); // fprintf(stdout, "CFG FILE PATH =3D %s\n", cfgfile_path); } else if (strcmpi(argv[i], "-o") =3D=3D 0) { strcpy (cdrfile_path, argv[i+1]); strcat (cdrfile_path, "\\"); // fprintf(stdout, "CDR FILE PATH =3D %s\n", cdrfile_path); } else if (strcmpi(argv[i], "-p") =3D=3D 0) { strcpy (cdrport, argv[i+1]); // fprintf(stdout, "CDR PORT =3D %s\n", cdrport); } else if (strcmpi(argv[i], "-v") =3D=3D 0) { strncpy (ver, argv[i+1], VERSION_LEN-1); strcat(ver, "\0"); if (strcmpi(ver, "?") =3D=3D 0) { fprintf(stdout, "cdr server version =3D %s\n", version); } else { fprintf(stdout, "cdr server version =3D %s\n", version); } } else=20 fprintf(stdout, "Usage: %s -f <cfgfile_path>\\cdrserver.cfg\n -o = <cdrfile_path> -p <port#> <-v ?>\n", argv[0]); } } cdrserverport =3D atoi(cdrport); // convert cdr tcp ip port number = into integer=20 // fprintf(stdout, "TCP IP PORT =3D %d\n", cdrserverport); // // Now we are ready to open the cdrserver.cfg file to get the cdr = password, // the maximum number of gateways that it will collect CDRs from,=20 // the maximum records that each cdr file can contain. // ghFile =3D CreateFile( cfgfile_path, GENERIC_READ, FILE_SHARE_READ, NULL, OPEN_EXISTING, FILE_FLAG_OVERLAPPED, NULL ); if (ghFile =3D=3D INVALID_HANDLE_VALUE) { FatalError("Open Cdrserver Configuration File Failed\n"); } else=20 { GetConfigInfo(&(cdrpassword[0]), &maxchano, &maxcdrno); } fprintf(stdout, "Maximal Number of CDRs per file =3D %d\n", maxcdrno); /* Initialize the Chassis Units */ for (i=3D0; i < MAX_CHASSIS_NUM; i++) { =09 strcpy(cha[i].IpAddr, "0.0.0.0\0"); strcpy(cha[i].unitname, "unit1\0"); strcpy(cha[i].resetnum, "-1\0"); cha[i].curr_resetno =3D -1; cha[i].resetno =3D -1; cha[i].avail =3D 1; } CheckOsVersion(); err =3D WSAStartup (0x0101, &WsaData); if (err =3D=3D SOCKET_ERROR) { FatalError("WSAStartup Failed"); return EXIT_FAILURE; } /* * Open a TCP socket connection to the server * By default, a socket is always opened * for overlapped I/O. Do NOT attach this * socket (listener) to the I/O completion * port! */ listener =3D socket(AF_INET, SOCK_STREAM, 0); if (listener < 0) { FatalError("socket() failed"); return EXIT_FAILURE; } // set socket option to so_keepalive=20 /* * Bind our local address */ memset(&serverAddress, 0, sizeof(serverAddress)); serverAddress.sin_family =3D AF_INET; serverAddress.sin_addr.s_addr =3D htonl(INADDR_ANY); serverAddress.sin_port =3D htons(cdrserverport); err =3D bind(listener, (struct sockaddr *)&serverAddress, sizeof(serverAddress) ); if (err < 0) { FatalError("bind() failed"); } else { int keepalivestat =3D 1;=20 setsockopt(listener,=20 IPPROTO_TCP,=20 SO_KEEPALIVE,=20 (char *)&keepalivestat,=20 sizeof(int)); // sendto(listener,=20 // (char *)&SAPData,=20 // sizeof(SAPData),=20 // MSG_DONTROUTE, // (struct sockaddr *)&serverAddress, // sizeof(serverAddress)); // Set timer to remind us to send SAP packet every 60 seconds. // SetTimer(hwnd, SAPTIMER, 60000, NULL); } // // Create a IO completion port for each incoming gateway connection //=20 for (i =3D 0; i < MAX_CONNECTION_NUM; i++) { ghCompletionPort[i] =3D CreateIoCompletionPort( INVALID_HANDLE_VALUE, NULL, // No prior port 0, // No key 0 // Use default # of threads ); if (ghCompletionPort[i] =3D=3D NULL) FatalError("CreateIoCompletionPort() failed"); CreateWorkerThreads(i); state[i] =3D AVAIL; } listen(listener, 10); fprintf(stderr, "CDR Server with I/O Completion Ports\n"); fprintf(stderr, "Running on TCP port %d\n", cdrserverport); fprintf(stderr, "\nPress Ctrl+C to stop the server\n"); // // Loop forever accepting requests new connections // and starting reading from them. // cid =3D -1; for (;;) { =09 clientAddressLength =3D sizeof(clientAddress); AcceptSocket =3D accept(listener, (struct sockaddr *)&clientAddress, &clientAddressLength); if (AcceptSocket < 0) { FatalError("accept() Failed"); return EXIT_FAILURE; } for (i=3D0; i < MAX_CONNECTION_NUM; i++) { if (state [i] =3D=3D AVAIL) {=20 cid =3D i; printf("AVAIL CONN ID =3D %d\n", cid); break; } } if (cid =3D=3D -1) FatalError("NO AVAILABLE TCP/IP Connections"); pKey[cid] =3D calloc(1, sizeof(struct ContextKey)); pKey[cid]->sock =3D AcceptSocket; pKey[cid]->ovOut.hEvent =3D CreateEvent(NULL, TRUE, FALSE, = NULL); // Set the event for writing so that packets // will not be sent to the completion port when // a write finishes. pKey[cid]->ovOut.hEvent =3D = (HANDLE)((DWORD)pKey[cid]->ovOut.hEvent | 0x1); pKey[cid]->sid =3D cid; // Associate the socket with the completion port CreateIoCompletionPort( (HANDLE)AcceptSocket, ghCompletionPort[cid], (DWORD)pKey[cid], // No key 0 // Use default # of threads ); // Kick off the first read state[cid] =3D START; if (IssueRead(pKey[cid]) < 0)=20 { free(pKey[cid]); state[cid] =3D AVAIL; fprintf(stderr, "CONNID =3D %d, IssueRead Failed\n", cid); } =09 =09 } return 0; } void CreateWorkerThreads(int sid) { SYSTEM_INFO sysinfo; DWORD dwThreadId; DWORD dwThreads; DWORD i; GetSystemInfo(&sysinfo); dwThreads =3D sysinfo.dwNumberOfProcessors * 2 + 2; for (i=3D0; i<dwThreads; i++) { HANDLE hThread; hThread =3D CreateThread( NULL, 0, ThreadFunc, (LPVOID)sid, 0, &dwThreadId ); CloseHandle(hThread); } } // // Each worker thread starts here. DWORD WINAPI ThreadFunc(LPVOID id) { BOOL bResult; DWORD dwNumRead; char path[MAX_PATH_LEN]; =09 LPOVERLAPPED lpOverlapped; int i, j, k; int uendidx; int cha_idx; int recno =3D 0; int dailyfilecount =3D 0; int fret; int retry =3D 3; long lsqno =3D 0; // the largest sequnce number long csqno =3D 0; // the current record's sequence number long esqno =3D0 ; // the expected next sequence number =09 BOOL rc; char c; char seqno[MAX_ESQN_LEN]; char lastseqno[MAX_ESQN_LEN]; char cdrecord[MAX_REC_LEN], record[MAX_REC_LEN]; char cdrfilename[MAX_FILE_NAME_LEN]; char currdate[DATE_LEN]; char ipaddr[IPADDR_LEN]; char cdrdir[IPADDR_LEN]; char dailyfileindex[MAX_FILE_INDEX_LEN]; time_t timer; struct tm *today;=20 DWORD numread; =09 k =3D (int) id; // // Loop forever on getting packets from // the I/O completion port. // for (;;) { bResult =3D GetQueuedCompletionStatus( ghCompletionPort[k], &dwNumRead, &(DWORD)(pCntx[k]), &lpOverlapped, INFINITE ); if (bResult =3D=3D FALSE && lpOverlapped =3D=3D NULL) { FatalError( "ThreadFunc - Illegal call to = GetQueuedCompletionStatus"); } else if (bResult =3D=3D FALSE && lpOverlapped !=3D NULL) { // This happens occasionally instead of // end-of-file. Not sure why. closesocket(pCntx[k]->sock); free(pCntx[k]); state[k] =3D AVAIL; // set the connection to be available again fprintf(stderr,"ThreadFunc - I/O operation failed, CONN ID = =3D %d\n", k); } else if (dwNumRead =3D=3D 0) { closesocket(pCntx[k]->sock); free(pCntx[k]); CloseHandle(hFile[k]); // close the cdr record file too state[k] =3D AVAIL; // set the connection to be available again fprintf(stderr, "ThreadFunc - End of file. CONN ID =3D = %d\n", k); } //=20 // Save each incoming record in the CDRbuffer // Process the incoming CDR according to it current=20 // state // Each thread is running a finite state machine // There are totally 9 different states // Index k represent the current connection session id. // =20 else { // Figure out where in the buffer to save the character char *pch =3D = &(pCntx[k]->CDRBuffer[pCntx[k]->nCDRBuffIndex++]); *pch++ =3D pCntx[k]->InBuffer[0]; *pch =3D '\0'; // For debugging, WriteFile doesn't care //fprintf(stdout, "InBuffer =3D %s, state[%d] =3D %d\n", = pCntx[k]->InBuffer, k, state[k]); switch (state[k]) { case START: if (pCntx[k]->InBuffer[0] =3D=3D '\n') { // Get Welcome string from the Gateway=20 // Break and goback to reac the incoming data block c =3D pCntx[k]->CDRBuffer[0]; if ((c =3D=3D 'T') || (c =3D=3D 'H') || (c =3D=3D 'W')) { fprintf(stdout, "GET WELCOME STRING: CDRBuffer =3D %s\n", = pCntx[k]->CDRBuffer); state[k] =3D WELCOMED; // clear the CDRBuffer and reset index for (i=3D0; i < MAX_REC_LEN; i++) pCntx[k]->CDRBuffer[i] =3D '\0'; pCntx[k]->nCDRBuffIndex =3D 0; break; } } break; case WELCOMED: if (pCntx[k]->InBuffer[0] =3D=3D '\n')=20 { if (pCntx[k]->CDRBuffer[0] =3D=3D 'C') { // Get Connect from IpAddr/Port# CDRSVRIpAddr/CDRPort to a gateway = port message // Break and go back to read next incoming data block state[k] =3D CONNECTED; fprintf(stdout, "CONNECTED: CDRBuffer =3D %s\n", = pCntx[k]->CDRBuffer); // clear the CDRBuffer and reset index for (i=3D0; i < MAX_REC_LEN; i++) pCntx[k]->CDRBuffer[i] =3D '\0'; pCntx[k]->nCDRBuffIndex =3D 0; break; } } break; case CONNECTED: // If the last character read is a ':', then the data block is a=20 // "Password:" prompter if (pCntx[k]->InBuffer[0] =3D=3D ':')=20 {=20 //copy the CDR password to the CDRBuffer and sent it back to the = Gateway // fprintf(stdout, "Get Password Prompt: CDRBuffer =3D %s\n", = pCntx[k]->CDRBuffer); //strncpy(&pCntx[k]->CDRBuffer[0], "ming\r\n",6); for (i=3D0; i < MAX_PASSWORD_LEN; i++) { if ( cdrpassword[i] !=3D '\0')=20 pCntx[k]->CDRBuffer[i] =3D cdrpassword[i]; else=20 break; } pCntx[k]->CDRBuffer[i++] =3D '\r'; pCntx[k]->CDRBuffer[i++] =3D '\n'; pCntx[k]->nCDRBuffIndex =3D i; fprintf(stdout, "CONNECTED: Send Password %s back to Gateway, = nOutBuffIndex =3D %d\n",=20 pCntx[k]->CDRBuffer, pCntx[k]->nCDRBuffIndex); WriteFile ( (HANDLE)(pCntx[k]->sock), pCntx[k]->CDRBuffer, pCntx[k]->nCDRBuffIndex, &pCntx[k]->dwWritten, &pCntx[k]->ovOut ); state[k] =3D PASSWORDSENT; // clear the CDRBuffer and reset index for (i=3D0; i < MAX_REC_LEN; i++) pCntx[k]->CDRBuffer[i] =3D '\0'; pCntx[k]->nCDRBuffIndex =3D 0; break; } break;=09 case PASSWORDSENT: // // If the last character read is a '\n', then=20 // it means that Gateway accepts the password that we just sent // if ((pCntx[k]->InBuffer[0] =3D=3D '\n') ||=20 (pCntx[k]->InBuffer[0] =3D=3D '\r') || (pCntx[k]->InBuffer[0] =3D=3D '\0'))=20 { fprintf(stdout, "PASSWORDSENT: state =3D PASSWORD OK \n"); state[k] =3D PASSWORDOK;=09 } if ( (pCntx[k]->InBuffer[0] =3D=3D 'P') || (pCntx[k]->InBuffer[0] = =3D=3D 'S')) { fprintf(stdout, "PASSWORDSENT: CDRSRV Password Failure, Check CDR = PASSWORD set in the Gateway\n"); // we will retry it again state[k] =3D CONNECTED; } =20 for (i=3D0; i < MAX_REC_LEN; i++) pCntx[k]->CDRBuffer[i] =3D '\0'; pCntx[k]->nCDRBuffIndex =3D 0; break; case PASSWORDOK: // // If Password is OK, The Gateway will send its own IP address and = end with a ','=20 //=20 =09 // fprintf(stdout, "PASSWORDOK: CDRBuffer =3D %s, = pCntx[%d]->nCDRBuffIndex =3D %d\n",=20 // pCntx[k]->CDRBuffer, k, pCntx[k]->nCDRBuffIndex); if ( (pCntx[k]->InBuffer[0] =3D=3D 'P') || (pCntx[k]->InBuffer[0] = =3D=3D 'S')) { fprintf(stdout, "PASSWORDOK? CDRSRV Password Failure, Check CDR = PASSWORD set in the Gateway\n"); // we will retry it again state[k] =3D CONNECTED; for (i=3D0; i < MAX_REC_LEN; i++) pCntx[k]->CDRBuffer[i] =3D '\0'; pCntx[k]->nCDRBuffIndex =3D 0; break; } =09 //fprintf(stdout, "PASSWORDOK: pCntx[k]->InBuffer[0] =3D %c\n", = pCntx[k]->InBuffer[0]); =09 if(pCntx[k]->InBuffer[0] =3D=3D ',')=20 { // fprintf(stdout, "PASSWORDOK: CDRBuffer =3D %s, = pCntx[%d]->nCDRBuffIndex =3D %d\n",=20 // pCntx[k]->CDRBuffer, k, pCntx[k]->nCDRBuffIndex); j =3D 0; for (i=3D0; i < pCntx[k]->nCDRBuffIndex; i++) { c =3D pCntx[k]->CDRBuffer[i]; switch (c) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case '.': ipaddr[j++] =3D c; break; default: break; } } ipaddr[j] =3D '\0'; fprintf(stdout, "PASSWORDOK: Connecting to the Chassis with ipaddr = =3D %s\n", ipaddr);=09 cha_idx =3D -1; for (i=3D 0; i < MAX_CHASSIS_NUM; i++) { if (strcmp(ipaddr, cha[i].IpAddr) =3D=3D 0) { cha_idx =3D i; fprintf(stdout, "PASSWORDOK: ipaddr =3D %s, cha[%d].IpAddr =3D = %s\n", ipaddr, i, cha[i].IpAddr); break; } } // if it cannot find a chassis with the ip address, then // find the first available chassis slot to store the chassis = information // fprintf(stdout, "PASSWORDOK: cha_idx =3D %d\n", cha_idx); if (cha_idx =3D=3D -1) { for (i=3D 0; i < MAX_CHASSIS_NUM; i++) { if ( cha[i].avail =3D=3D 1) { cha_idx =3D i; strcpy(cha[cha_idx].IpAddr, ipaddr); cha[cha_idx].avail =3D 0;=20 // fprintf(stdout, "PASSWORDOK: ipaddr =3D %s, Got %dth Chassis = IP %s\n", ipaddr, cha_idx, cha[cha_idx].IpAddr);=09 break; } } } if (cha_idx =3D=3D -1) { fprintf(stdout, "ERROR: Too Many Chassises, Capacity Overflow\n"); return -1; } fprintf(stdout, "PASSWORDOK: GET %dth Chassis IP %s\n",cha_idx, = cha[cha_idx].IpAddr);=09 state[k] =3D GOTGWIP; // clear the CDRBuffer and reset index for (i=3D0; i < MAX_REC_LEN; i++) pCntx[k]->CDRBuffer[i] =3D '\0'; pCntx[k]->nCDRBuffIndex =3D 0; break;=20 } break; case GOTGWIP: uendidx =3D 0; // // After getting the Gateway IP Address, it sends its own unit name = and followed by a newline char // // fprintf(stdout, "GOTGWIP: INBuffer =3D %c, state[k] =3D %d\n", = pCntx[k]->InBuffer[0], state[k]); if ((pCntx[k]->InBuffer[0] =3D=3D '\n') || (pCntx[k]->InBuffer[0] = =3D=3D '\r')) { =09 // fprintf(stdout, "GOTGWIP: CDRBuffer =3D %s, state[%d] =3D %d\n", = pCntx[k]->CDRBuffer, k, state[k]); j =3D 0; for (i=3D0; i < pCntx[k]->nCDRBuffIndex; i++) { c =3D pCntx[k]->CDRBuffer[i]; if ((c !=3D ',') && (c !=3D '\r') && (c !=3D '\n')) { if (uendidx =3D=3D 0)=20 cha[cha_idx].unitname[j++] =3D c; else=20 cha[cha_idx].resetnum[j++] =3D c; } else if ( c =3D=3D ',') { cha[cha_idx].unitname[j] =3D '\0'; uendidx =3D j; j =3D 0; } else if (( c =3D=3D '\r') || (c =3D=3D '\n')) { if (uendidx =3D=3D 0) cha[cha_idx].unitname[j] =3D '\0'; cha[cha_idx].resetnum[j] =3D '\0'; cha[cha_idx].curr_resetno =3D atol(cha[cha_idx].resetnum); break; } } =09 fprintf(stdout, "GOTGWIP: GOT %dth Chassis Unit Name =3D %s, = resetno =3D %d, curr_resetno =3D %d\n",=20 cha_idx, cha[cha_idx].unitname, cha[cha_idx].resetno, = cha[cha_idx].curr_resetno); state[k] =3D GOTUNITNAME; // clear the CDRBuffer and reset index for (i=3D0; i < MAX_REC_LEN; i++) pCntx[k]->CDRBuffer[i] =3D '\0'; pCntx[k]->nCDRBuffIndex =3D 0; break; } break; case GOTUNITNAME: // // After getting the Unit Name of the Gateway,=20 // we are ready to get or create a GW CDR file name based on the // year, month, day, and Gateway IpAddress.=20 // The CDR file name format is: // // yymmdd.cdr.nnn // =20 // where yy - last two digits of the year, mm- monith 01-12, dd - = 01-31, nnn- 1 to 999 // The cdr file shall be placed in ./xxx_xxx_xxx_xxx sub-directory = under // the current directory. //=20 // If the file exists, then the system will open it. // Otherwise, it will create the file. Everyday, it will create one // cdr file per Gateway.=20 // =20 // First the server will get the today's date and create the date = string // // fprintf(stdout, "GOTUNITNAME: InBuffer =3D %c, state[k] =3D %d\n", = pCntx[k]->InBuffer[0], state[k]); // fprintf(stdout, "GOTUNITNAME: CDRBuffer[%d] =3D %s\n", k, = pCntx[k]->CDRBuffer); time(&timer); today =3D localtime(&timer); sprintf(currdate, "%.2d%.2d%.2d",=20 ((today->tm_year)+1900)%100,=20 ((today->tm_mon)+1), today->tm_mday );=20 currdate[DATE_LEN] =3D '\0'; strcpy(cdrfilename, currdate); cdrfilename[6] =3D '.'; =09 cdrfilename[7] =3D 'c'; cdrfilename[8] =3D 'd'; cdrfilename[9] =3D 'r'; cdrfilename[10] =3D '\0'; i =3D 0; // // Start to translate xxx.xxx.xxx.xxx address into xxx_xxx_xxx_xxx // for (i=3D0;i < IPADDR_LEN; i++) { c =3D cha[cha_idx].IpAddr[i]; // fprintf(stdout, "GOUNITNAME: IP Address Charactor = %c\n",IpAddr[i]); switch(c) { case '\0': case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': cdrdir[i] =3D cha[cha_idx].IpAddr[i]; break; case '.': cdrdir[i] =3D '_'; default:=09 break;=09 } if (c =3D=3D '\0') break; } =09 =09 fprintf(stdout, "GOTUNITNAME:CONN ID =3D %d, CDR directory =3D %s, = CDR File Name =3D %s\n",=20 k, cdrdir, cdrfilename); =09 =09 //=20 // Create the total file path //=20 strcpy(path, cdrfile_path); strcat(path, cdrdir); strcat(path, "\\"); if (_chdir(path))=20 { if ((fret =3D _mkdir (path)) =3D=3D 0)=20 { strcat(path, cdrfilename); } else { fprintf(stderr, "Cannot Make directory =3D %s, error code =3D = %d\n", path, fret); return -1; } } else { // change back to the original cdr file path=20 _chdir (cdrfile_path); strcat(path, cdrfilename); if (dailyfilecount > 0) { itoa (dailyfilecount, dailyfileindex, 10); strcat(path, "."); strcat(path, dailyfileindex); } } fprintf(stdout, "GOTUNITNAME:CONN ID =3D %d CDR File Name =3D %s\n", = k, path); // // Open or create the cdr file // for (i=3D0; i < retry; i++ ) { hFile[k] =3D CreateFile( path, GENERIC_READ | GENERIC_WRITE, FILE_SHARE_READ | FILE_SHARE_WRITE, NULL, OPEN_ALWAYS, FILE_FLAG_OVERLAPPED, NULL ); // //Initialize overlap structure // The system will read the cdr from the begginng // i.e., Offset is set to 0 // memset(&overlap[k], 0, sizeof (overlap[k])); overlap[k].Offset =3D 0; =09 if (hFile[k] =3D=3D INVALID_HANDLE_VALUE) { fprintf(stdout, "GOTUNITNAME: create file failed, CDR File Name = =3D %s\n", path); Sleep(50); } else=20 break; } //=20 // Initialize a cdr record=20 //=20 for (i=3D0; i < MAX_REC_LEN; i++) cdrecord[i] =3D '\0'; // fprintf(stdout, "GOTUNITNAME: CONN ID=3D %d, hFile[%d] =3D %d, %s = open for appended\n", k, k, hFile[k], cdrfilename); i=3D0; lsqno =3D 0; recno =3D 0; csqno =3D 0; //=20 // Start to get the expected sequence number that the CDR Server=20 // will send to the Gateway to ask for the next CDR record with the // expected sequence number. // To do this, one has to read one character at a time from the CDR = file // It uses the separated, a newline char, to get a cdr record from = the file // For each cdr record in the file, it extracts its sequence = number. // It loops through each record and keep the highest sequence = number. // After getting the highest sequence number of all the cdr records = in the file // The expected sequence number is the highest sequence number plus = one. //=20 while (ReadFile( hFile[k], record, 1, &numread, &overlap[k] ))=20 { //fprintf(stdout, "GOTUNITNAME:CONN ID =3D %d, recno# =3D %d, %dth = char =3D %c\n", k, recno, i, record[0]); switch(record[0]) { case '\n': case '\r': case '\0': // get the highest sequence number of all the records in the cdr = file // the last cdr record may not have the highest sequence no for (j =3D 0; cdrecord[j]!=3D ',' ; j++)=20 {=20 seqno[j] =3D cdrecord[j]; } seqno[j] =3D '\0'; csqno =3D atoi(seqno); //lsqno =3D ((lsqno > csqno) ? lsqno: csqno); // CH always send back sequence in ascending order until it = starts to recycle lsqno =3D csqno; =09 cdrecord[i] =3D '\0'; break; default: cdrecord [i] =3D record[0];=20 break; } if (cdrecord[i] =3D=3D '\0') { recno++; // fprintf(stdout, "GOTUNITNAME:CONN ID =3D %d, %dth cdrecord =3D = %s, lenght =3D %d\n", k, recno, cdrecord, i); i =3D 0; }=20 else=20 i++; overlap[k].Offset++; } if ((recno =3D=3D 0) || (cha[cha_idx].curr_resetno !=3D = cha[cha_idx].resetno)) { esqno =3D 1; lastseqno[0] =3D '0'; lastseqno[1] =3D '\0'; fprintf(stdout, "GOTUNITNAME:CONN ID =3D %d, # of records =3D %d = LastSeqNo =3D %s, ExpectedSeqNo =3D %d\n", k, recno, lastseqno, esqno); } else=20 { esqno =3D lsqno + 1; //fprintf(stdout, "GOTUNITNAME:CONN ID =3D %d, LastRec# =3D %d = lsqno =3D %d, esqno =3D %d\n",=20 // k, recno, lsqno, esqno); ltoa (lsqno, lastseqno, MAX_ESQN_LEN); fprintf(stdout, "GOTUNITNAME:CONN ID =3D %d, # of records =3D %d, = LastSeqNo =3D %s ExpectedSeqNo =3D %d\n", k, recno, lastseqno, esqno); =09 } =09 cha[cha_idx].resetno =3D cha[cha_idx].curr_resetno; state[k] =3D GOTLASTSEQNO; case GOTLASTSEQNO: // // Now we are ready to send back the expected sequence number to = the Gateway. //=20 pCntx[k]->nCDRBuffIndex =3D sizeof(lastseqno); strncpy(pCntx[k]->CDRBuffer, lastseqno, pCntx[k]->nCDRBuffIndex); pCntx[k]->CDRBuffer[pCntx[k]->nCDRBuffIndex++] =3D '\r'; pCntx[k]->CDRBuffer[pCntx[k]->nCDRBuffIndex++] =3D '\n'; =09 fprintf(stdout, "GOTLASTSEQNO:Send LastSeqNo %s back to Gateway\n", = pCntx[k]->CDRBuffer); WriteFile ( (HANDLE)(pCntx[k]->sock), pCntx[k]->CDRBuffer, pCntx[k]->nCDRBuffIndex, &pCntx[k]->dwWritten, &pCntx[k]->ovOut ); =09 =09 // clear the CDRBuffer and reset index for (i=3D0; i < MAX_REC_LEN; i++) pCntx[k]->CDRBuffer[i] =3D '\0'; //memset (pCntx[k]->CDRBuffer, 0, MAX_REC_LEN); pCntx[k]->nCDRBuffIndex =3D 0; state[k] =3D READY; break; case READY: // // Now the CDR Server is ready to receive CDR records from the = Gateway. // The Gateway may send some junk or special characters to the = Gateway at this time // The server will drop those junks and continue to read the next = records. // Notice that all CDRs are starting with digital charactors. // =09 if (pCntx[k]->InBuffer[0] =3D=3D '\n') { fprintf(stdout, "READY: CONNID =3D %d, Incoming String =3D %s\n", = k, pCntx[k]->CDRBuffer); switch (pCntx[k]->CDRBuffer[0] )=20 { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': =09 //It must be a CDR record now //write it into the cdrfile // Check the current date to see if it is time=20 // to create another file due to the new date // time(&timer); today =3D localtime(&timer); sprintf(currdate, "%.2d%.2d%.2d",=20 ((today->tm_year)+1900)%100,=20 ((today->tm_mon)+1), today->tm_mday );=20 currdate[DATE_LEN] =3D '\0'; // fprintf(stdout, "READY: Current CDR File Name =3D %s and the = current date =3D %s\n", cdrfilename, currdate); if ((strncmp(currdate, cdrfilename, DATE_LEN-1) !=3D 0) || (recno >=3D maxcdrno)) { CloseHandle(hFile[k]); for(i=3D0; i<MAX_FILE_NAME_LEN; i++) path[i] =3D '\0'; for(i=3D0; i < DATE_LEN-1; i++) cdrfilename[i] =3D currdate[i]; strcpy(path, cdrfile_path); strcat(path, cdrdir); strcat(path, "\\"); strcat(path, cdrfilename); if (dailyfilecount > 0)=20 { itoa (dailyfilecount, dailyfileindex, 10); strcat(path, "."); strcat(path, dailyfileindex); } for (i=3D0; i < retry; i++) { hFile[k] =3D CreateFile( path, GENERIC_READ | GENERIC_WRITE, FILE_SHARE_READ|FILE_SHARE_READ, NULL, OPEN_ALWAYS, FILE_FLAG_OVERLAPPED, NULL ); if (hFile[k] =3D=3D INVALID_HANDLE_VALUE) { fprintf(stdout, "READY: open file failed, CDR File Name =3D = %s\n", path); Sleep(50); =09 } else { recno =3D 0; if (strncmp(currdate, cdrfilename, DATE_LEN-1) !=3D 0)=20 { dailyfilecount =3D 0; } else { dailyfilecount++; if (dailyfilecount >=3D 999) dailyfilecount =3D 0; } break; } } overlap[k].Offset =3D 0; // fprintf(stdout, "READY: Created CDR File Name =3D %s and the = current date =3D %s\n", cdrfilename, currdate); } pCntx[k]->CDRBuffer[pCntx[k]->nCDRBuffIndex] =3D '\0'; // get the expected sequence from the CDR record i =3D 0; while (pCntx[k]->CDRBuffer[i] !=3D ',') seqno[i] =3D = pCntx[k]->CDRBuffer[i++]; seqno[i] =3D '\0'; csqno =3D atoi(seqno); =09 //fprintf(stdout, "READY: incoming record seq no =3D %d and = expected seq no =3D %d\n", csqno, esqno); for (i=3D0; i < MAX_REC_LEN; i++) pCntx[k]->OutBuffer[i] =3D '\0'; pCntx[k]->nOutBuffIndex =3D 0; fret =3D convert_cdr(pCntx[k]); if ((fret !=3D 24) && (fret !=3D 20) && (fret !=3D 28)) { fprintf(stderr, "CONN ID =3D %d, WARNING: the incoming CDR record = may have missing fields, Number of fields =3D %d\n",k, fret); } for (i =3D 1; i < retry; i++) { rc =3D WriteFile( hFile[k], pCntx[k]->OutBuffer, pCntx[k]->nOutBuffIndex, &pCntx[k]->dwWritten, &overlap[k]); if (rc) { overlap[k].Offset +=3D pCntx[k]->dwWritten; fprintf(stdout, "READY: CONN ID =3D %d:Write CDR =3D %s\n", k, = pCntx[k]->OutBuffer); for (i=3D0; i < MAX_ESQN_LEN; i++) lastseqno[i] =3D '\0'; ltoa (csqno, lastseqno, MAX_ESQN_LEN); recno++; break; } else { fprintf(stdout, "READY: CONN ID =3D %d:FileWrite Failed %dth = time, file Handle =3D %d, rc =3D %d\n", k, i, hFile[k], rc); Sleep (50);=09 } } // WARNING: if the incoming CDR sequence number is greater than = the expected sequence=20 if (csqno > esqno) { fprintf(stdout, "WARNING: CONN ID =3D %d: Some CDR records may be = lost!\n"); fprintf(stdout, "WARNING: CONN ID =3D %d: Receiving CDR Sequence = Number > Expected Sequence Number\n"); } // set next expected sequence no for incoming record esqno =3D csqno + 1; //state[k] =3D GOTEXPECTEDSEQNO; state[k] =3D READY; // clear the CDRBuffer and reset index =09 for (i=3D0; i < MAX_REC_LEN; i++) pCntx[k]->CDRBuffer[i] =3D '\0'; pCntx[k]->nCDRBuffIndex =3D 0; pCntx[k]->dwWritten=3D0; break; default: // fprintf(stderr, "Get some charater %2x\n", = pCntx[k]->CDRBuffer[0]); for (i=3D0; i < MAX_REC_LEN; i++) pCntx[k]->CDRBuffer[i] =3D '\0'; pCntx[k]->nCDRBuffIndex =3D 0; // get some junk break; } } default: break; } =09 // Start a new read if (IssueRead(pCntx[k]) < 0) { free(pCntx[k]); CloseHandle(hFile[k]); state[k] =3D AVAIL; fprintf(stderr, "CONNID =3D %d, IssueRead Failed\n", k); return 0; } } } free(pCntx[k]); CloseHandle(hFile[k]); state[k] =3D AVAIL; return 0; } /* * Call ReadFile to start an overlapped request * on a socket. Make sure we handle errors * that are recoverable. */ int IssueRead(struct ContextKey *pCntx) { int i =3D 0; BOOL bResult; int err; int numRead; while (++i) { // Request a single character bResult =3D ReadFile( (HANDLE)pCntx->sock, pCntx->InBuffer, 1, &numRead, &pCntx->ovIn ); // It succeeded immediately, but do not process it // here, wait for the completion packet. if (bResult) return 1; err =3D GetLastError(); // This is what we want to happen, it's not an error if (err =3D=3D ERROR_IO_PENDING) return 1; =09 // Handle recoverable error if ( err =3D=3D ERROR_INVALID_USER_BUFFER || err =3D=3D ERROR_NOT_ENOUGH_QUOTA || err =3D=3D ERROR_NOT_ENOUGH_MEMORY ||=20 err =3D=3D ERROR_WORKING_SET_QUOTA) { if ((i >=3D1) && (i <=3D 5))// I just picked a number { fprintf(stdout, "ISSUE_READ: CONN ID=3D %d, Error =3D %d, Sleep 200 = mseconds to retry\n", pCntx->sid, err); Sleep(25); // Wait around and try later continue; } fprintf(stderr, "IssueRead - System ran out of non-paged = space"); return -err; } break; } fprintf(stderr, "IssueRead - ReadFile failed.Error Code =3D %d\n", = err); return -err; } // // Make sure we are running under the right versions // of Windows NT (3.51, 4.0, or later) // void CheckOsVersion() { OSVERSIONINFO ver; BOOL bResult; ver.dwOSVersionInfoSize =3D sizeof(OSVERSIONINFO); bResult =3D GetVersionEx((LPOSVERSIONINFO) &ver); if ( (!bResult) || (ver.dwPlatformId !=3D VER_PLATFORM_WIN32_NT) ) { FatalError("CDRSRV requires Windows NT 3.51 or later."); } } // // Error handler // void FatalError(char *s) { fprintf(stdout, "%s\n", s); exit(EXIT_FAILURE); } void GetConfigInfo(char *pswd, int *maxchano, int *maxcdrno) { int i, j; int numread; char inbuf[4]; char buffer[MAX_REC_LEN]; char c; OVERLAPPED overlap; // initialize overlap structure memset(&overlap, 0, sizeof (overlap)); overlap.Offset =3D 0; // parsing the cdr server configuration file //fprintf(stdout, "GetConfigInfo Read CDRSERVER Configuration File = Handle =3D %d\n", ghFile); i =3D 0; =09 while (ReadFile( ghFile, inbuf, 1, &numread, &overlap ))=20 { switch(inbuf[0]) { =09 case '\n': case '\r': case '\0': buffer[i] =3D '\0'; // get a line=20 if (strncmp (buffer, "//", 2) =3D=3D 0) { //skip the comment line //fprintf(stdout, "GetConfigInfo Get a comment line =3D %s\n", = buffer); // clear the buffer to get the next line }=20 else if (strncmp(buffer, "cdr_password", 12) =3D=3D 0)=20 { // fprintf(stdout, "GetConfigInfo Get Password =3D %s\n", buffer); = // get the cdrpassword=20 j =3D 12; c=3Dbuffer[j]; while (isspace(c)) c=3Dbuffer[j++]; // skip the blanks while (isprint(c))=20 { *(pswd) =3D c; // fprintf(stdout, "GetConfigInfo pswd =3D %c\n", *pswd); c =3D buffer[j++]; pswd++; } *pswd =3D '\0'; } else if (strncmp(buffer, "MAX_CHASSIS_NUM", 13) =3D=3D 0){ //fprintf(stdout, "GetConfigInfo Get MAX GW NUM LINE =3D %s\n", = buffer); =09 j =3D 13; c =3D buffer[j]; while (isspace(c)) c=3Dbuffer[j++]; // skip the blanks *maxchano =3D atoi(&(buffer[j-1])); } else if (strncmp(buffer, "max_cdr_per_file", 16) =3D=3D 0) { //fprintf(stdout, "GetConfigInfo Get MAX CDR PER FILE LINE =3D = %s\n", buffer); j =3D 16; while (isspace(buffer[j++])); //skip the blanks *maxcdrno =3D atoi(&(buffer[j-1])); } // clear the buffer to get another line for(i=3D0; i < MAX_REC_LEN; i++) buffer[i] =3D '\0'; i =3D 0; =09 break; default: buffer[i++] =3D inbuf[0]; break; } overlap.Offset++; } } int convert_cdr(struct ContextKey *pCntx) { int i, field_cnt; char c; field_cnt =3D 0; pCntx->nOutBuffIndex =3D 0; for (i=3D0; i < pCntx->nCDRBuffIndex; i++)=20 {=20 c =3D pCntx->CDRBuffer[i]; if (c =3D=3D ',') { field_cnt++; if ((field_cnt > 1) && (pCntx->CDRBuffer[i-1] =3D=3D ','))=20 pCntx->OutBuffer[pCntx->nOutBuffIndex++] =3D '-'; pCntx->OutBuffer[pCntx->nOutBuffIndex++] =3D c; } else if (c =3D=3D '\r') { if (pCntx->CDRBuffer[i-1] =3D=3D ',')=20 pCntx->OutBuffer[pCntx->nOutBuffIndex++] =3D '-'; pCntx->OutBuffer[pCntx->nOutBuffIndex++] =3D ','; pCntx->OutBuffer[pCntx->nOutBuffIndex++] =3D c; field_cnt++; } else pCntx->OutBuffer[pCntx->nOutBuffIndex++] =3D c; } return field_cnt; } ------=_NextPart_000_0029_01C7778A.632E0120-- Tag: VFP7, Vista and FILE() problem Tag: 231696
  - 2
    - Question about ComboBox in VFP9 Hi, I am trying to create a Combobox control in VFP linked to a specific field in a table. The Rowsource for the Combobox is ARRAY with 10 predefined values. However, I want the user to be able to type in other values into the combobox if they need to enter values other than the 10 predefined values. If the table field contains a value other than the 10 predefined values, the combobox just shows blank. Maybe I am misunderstanding but isn't the purpose of the combobox to be able to use predefined as well as user defined values? Thanks Zoom Tag: VFP7, Vista and FILE() problem Tag: 231684
  - 3
    - Wrong file? I have a code segment that is occasionally logging an error. The segment is below: IF USED(gcsnapshot) USE IN (gcsnapshot) ENDIF ERASE (gctempdir + 'snap' + gcuserid + '.dbf') ERASE (gctempdir + 'snap' + gcuserid + '.cdx') ERASE (gctempdir + 'snap' + gcuserid + '.fpt') gcsnapshot is the alias for the table gctempdir\snapgcuserid.dbf. I believe that this table is closed in the first segment of code and then the intent is to delete the table prior to exitting. The error being logged is "file is in use" and it nominates a file that is actually open as the returned value from DBF() which is called in my error handler. The error handler gets called 3 times and nominates the line numbers for each of the erase commands as the line numbers for the errors. In my error handler I do a LIST STATUS and nowhere in the status output is there a reference to the "snap" files so I am assuming that the file is in fact closed and so it should be erasible. I am wondering if the erase is being attempted before the table is actually closed and so logging the error (and the reference to the other file is just an artifact of the state of the application at the time). If that is the case what can I do to delay the execution of the erase commands until after the table is closed properly? This is in VFP 7 thanks pete Tag: VFP7, Vista and FILE() problem Tag: 231681
  - 4
    - URGENT: VFP app .exe: What is in one? I have a problem with my app. I sent it down to operations. It has knocked out printing. I suspect what the error is, and it is most likely connected with a bad build. (I just changed the procedure a bit, and it might not have been generated the new way.) How do I tell what is in a VFP app .exe file? I suspect a couple of files may be missing. I want to know if they are in the build. Sincerely, Gene Wirchenko Computerese Irregular Verb Conjugation: I have preferences. You have biases. He/She has prejudices. Tag: VFP7, Vista and FILE() problem Tag: 231678
  - 5
    - We have been spoiled by VFP We have been spoiled by VFP. VFP is too good to live. We have to face reality. We have to move forward to the open source world. Goodbye and good luck, Microsoft. Tag: VFP7, Vista and FILE() problem Tag: 231666
  - 6
    - Webcam software for VFP? Anyone ever play with webcams with VFP? I've never really liked any of the commercial or freeware webcam tools, and would like to write my own. Any words of wisdom from the more experienced? Tag: VFP7, Vista and FILE() problem Tag: 231653
  - 7
    - Reconstructing a DBF from its index My client lost a DBF. However, I am not too worried because it is indexed on two fields which are the only essential ones. Here's the situation: USE XY INDEX ON X+Y TO XY.IDX (X and Y are character fields). I've looked at XY.IDX with MODIFY FILE XY.IDX, and it doesn't look too arcane. It does have stretches of nulls and control characters (maybe that's the famous Rushmore!), but the fields X and Y are clearly visible. My question is: does anybody have a utility or method to recreate XY.DBF from XY.IDX? has anybody actually done it? (that would be encouraging). Tag: VFP7, Vista and FILE() problem Tag: 231643
  - 8
    - Index asc and Desc Hi Everybody. What technic you are using to combine in one index ascending and descending orders? I have two 12 Characters fields which I want to combine into one Index, But I want first field to be in ascending order and second in descending order. Thanks in advance. Tag: VFP7, Vista and FILE() problem Tag: 231642
  - 9
    - barcodes I am having trouble finding a way to send a bar code image to the printer. In VB you would write: Printer.PaintPicture barcode.barPicture, leftpos, toppos Can somebody provide me with a code snippet that will do similar in VFP9? Is there some way that ??? will do the job? Gleason Tag: VFP7, Vista and FILE() problem Tag: 231641
  - 10
    - Hide forms maximise button Is there any way to hide (as apposed to simply disable) the maximise button on a forms title bar? I need to allow the user to minimise & close the form but not maximise it and would prefer it to be hidden from view rather than greyed out. Tag: VFP7, Vista and FILE() problem Tag: 231639
  - 11
    - Telnet control from VFP This is a multi-part message in MIME format. ------=_NextPart_000_003C_01C7760F.0DA8C5E0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Hi All, I have the need to create a CDR Server (Call Detail Record) in VFP. I = need to connect via Telnet to a VOIP gateway to read the CDR data. Does anybody knows a good Telnet control (ActiveX, DLL, etc) which can = be use with VFP? Thanks! --=20 Edhy Rijo ------=_NextPart_000_003C_01C7760F.0DA8C5E0 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.6000.16397" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV><FONT size=3D2>Hi All,</FONT></DIV> <DIV><FONT size=3D2></FONT> </DIV> <DIV><FONT size=3D2>I have the need to create a CDR Server (Call Detail = Record) in=20 VFP.  I need to connect via Telnet to a VOIP gateway to read the = CDR=20 data.</FONT></DIV> <DIV><FONT size=3D2></FONT> </DIV> <DIV><FONT size=3D2>Does anybody knows a good Telnet control (ActiveX, = DLL, etc)=20 which can be use with VFP?</FONT></DIV><FONT size=3D2> <DIV> </DIV> <DIV>Thanks!<BR>-- <BR>Edhy Rijo</DIV> <DIV> </DIV> <DIV></FONT> </DIV></BODY></HTML> ------=_NextPart_000_003C_01C7760F.0DA8C5E0-- Tag: VFP7, Vista and FILE() problem Tag: 231638
  - 12
    - Select Sum(nField) Hi, I have a SQL command in VFP8 Sele Sum(nField) from History where cEmpCode=lcEmpCode Into Cursor tHistory If there is no Employee that matches lcEmpCode, the command returns a cursor with 0 records. I used the same command in VFP9 and it returned a cursor with one record with a NULL value. Is this correct? Thanks, Herbert Tag: VFP7, Vista and FILE() problem Tag: 231607
  - 13
    - Why does this VFP code not send a fax properly via Winfax Pro? Hi, I have Winfaxpro and am using this code to send a sample fax. However, as soon as I run it, it brings up the Winfax pro dialog box with blank fields and wants me to enter the fax #, etc. Can someone tell me what I am doing wrong? Thanks ---- Code ---- oWinFax = CreateObject("WinFax.SDKSend") &&Create instance of Winfax oWinFax.SetSubject("Test Fax") oWinFax.SetNumber("5551212") &&Fax Number of recipient oWinFax.SetAreaCode("") &&Area Code of recipient oWinFax.SetCompany("Some Company") oWinFax.AddRecipient() && Required oWinFax.SetPrintFromApp(1) oWinFax.AddAttachmentFile("") oWinFax.Send(1) SET PRINTER TO NAME Winfax set print on ?"this is a test" set print off SET PRINTER TO LPT1: RELEASE oWinFax Tag: VFP7, Vista and FILE() problem Tag: 231603
  - 14
    - How to send a fax from VFP via WinfaxPro Hi, Would someone be able to guide me to sample code in VFP to send a fax via Winfaxpro SDK. I tried some of the examples on the web and the fax gets sent to the Winfax Printer driver but Winfax never dials out. Thanks much, Zoom Tag: VFP7, Vista and FILE() problem Tag: 231602
  - 15
    - Corrupted Tables Hi, What is the best way to fix corrupted tables programatically? My tables are open in the Data Environment. Thanks. Herbert Tag: VFP7, Vista and FILE() problem Tag: 231601
  - 16
    - remote view - MySQL add records? Hello, I've been using remote views for a variety of DB formats for years....but never had to write back to the DB....until now that is. Have a local MySQL installed, hooked up to ODBC (3.51 driver) and VFP 9.0, have remote connection and remote view established. But when I add records to the view (cursor) it doesn't actually write it back to the MySqlDB. Can I create a remote view, add records then write them back to the MySqlDB or is there a different process required? TYIA =B Tag: VFP7, Vista and FILE() problem Tag: 231600
  - 17
    - 2.6 FILE COPY Server 2003 SP2 Date Time Bug FILE COPY in VFP9 SP1 and Foxpro 2.6 are both supposed to make an exact copy including date and time. On Windows 2003 SP2 with a recent update... FILE COPY under 2.6 now stamps the copied file with the current date and time (rather than the file date and time). It still works fine under VFP9 SP1, and also both still work under Windows XP SP2. I report this wierdity only because some code that has been working forever recently failed... and because I have just spent too much time carefully trying to understand what was going on ;). Thanks for listening, Alan Tag: VFP7, Vista and FILE() problem Tag: 231599
  - 18
    - Play WAV files Hi, What is the best way to play WAV files in VFP? Been using Set Bell to and CHR(7) but been having problems. For some unknown reason, there are times that the sound will not play or will play at a later times and overlaps with another playing sound. Thanks. Tag: VFP7, Vista and FILE() problem Tag: 231585
  - 19
    - Browse window from V6 to V9 I just updated and very happy. However, I rebuilt my project in V9 and ran the .exe in another directory. The first time I go to open a browse window I get "Invalid Browse Setup -- Default Setup Used" and everything runs fine after that. But I think I'm missing something new about the browse window. I found SET REPORTBEHAVIOR 90 and the reports work great. Is there a setting I can't find for the browse windows. I can't have my customers seeing the popup "Invalid Browse Setup" LOL Tag: VFP7, Vista and FILE() problem Tag: 231582
  - 20
    - VFP sending 8 character date in runtime with SET('CENT')='ON' I have an application I run from both development FoxPro and from a compiled EXE. I have CENTURY set to ON, and when running from the EXE and writing the date to a memo file in a table (e.g. DTOC(chargedate) ) it gets written as 03/31/07. When running from the development environment it's written as 03/31/2007. Also vexing is the fact that when running the EXE, date fields in the table are seen as 03/31/07 until mouse-clicked, when they expand to 03/31/2007 (i.e. if cursor is in the field). When running from the development version of FoxPro (VFP 7.0) all the date entries are seen as 10 character (e.g. 03/31/2007). Why am I getting this behavior and is there a fix or workaround? TIA. Dan Email: dmusicant at pacbell dot net Tag: VFP7, Vista and FILE() problem Tag: 231572
  - 21
    - Any way to send a fax from VFP via Activex? Hello, Does anyone know of any ActiveX to send a fax from within VFP? Preferably something that also send Microsoft Word files as faxes. Thanks Zoom Tag: VFP7, Vista and FILE() problem Tag: 231570
  - 22
    - Shellexecute - modal? I need to run an external exe from a foxpro application. For that I use shellexecute in shell32.dll. Now I would need make this call "modal", i.e. so my foxpro app waits until the external exe returns a value and then grabs this value and continues. How can that be done? Tag: VFP7, Vista and FILE() problem Tag: 231561
  - 23
    - vfp9 code page Group, Our app was ported from the mac 8 yrs. ago so the tables have code page 10000. Windows has code page 1252 (english). Should that make a difference in speed when opening screens with hundreds of objects linked to database table fields? Should we change all the many tables to code page 1252? Any thoughts will be appreciated. Wade Tag: VFP7, Vista and FILE() problem Tag: 231552
  - 24
    - Scrolling in a Grid Hi, Is there a way to check if the Record Pointer in a Grid is not anymore visible when a user scrolls the Grid? What I want to do is when the user scrolls and the record pointer is not visible, I will set the record pointer to the record on the top row that is visible. Thanks. Tag: VFP7, Vista and FILE() problem Tag: 231550
  - 25
    - Minimize window outside application For maintenance purposes, I find it very convenient to start a vfp9 application from a batch file. Is there a way for vfp to know how it was started and to then find and minimize the command window? Thanks Tag: VFP7, Vista and FILE() problem Tag: 231545
- Next
  - 1
    - SET variable for VFP 6 and 9 How can I point my VFP 6 and 9 to different CONFIG files? Right now, we use SET foxprocfg for the DOS version and SET foxprowcfg for VFP 6/9. TIA. -S- Tag: VFP7, Vista and FILE() problem Tag: 231542
  - 2
    - External array not working - VFP 9 sp2 I have a program system with a main program that calls lots of forms. In the main program I define an array gaAccess as public In some of the forms I reference the array in the refresh method of some of the buttons. external array gaAccess this.enabled = gaAccess[2] != 'R' I have also put the external array command in the load event. when I build the project I am still getting the undefined error and would like to clean them up. What am I doing wrong???? czeb Tag: VFP7, Vista and FILE() problem Tag: 231540
  - 3
    - Sys(1037) and GetPrinter() Hi, Since changing to Vista we have a problem saving the printerenvironment. The sys(1037,1) button doesn't have the "printer" button anymore, so you need to call the Getprinter() first. I changed my code like this : use myreport.frx sys(1037,2) && Restore old printer info lcPrinterOld = SET("PRINTER",2) lcPrinter = Getprinter() if NOT lcPrinter = lcPrinterOld SET PRINTER TO NAME (lcPrinter) SYS(1037) && Call the page setup SYS(1037,3) && Save current printer settings endif When I try this, it just restores my report settings to the default settings. Also the helppage on this subject is very confusing. Thanks for any help Greetings Xavier Tag: VFP7, Vista and FILE() problem Tag: 231534
  - 4
    - Can This Grid Behavior Be Altered? Hello and thanks in advance for the help. Suppose you have a grid that is based on a cursor. Lets say that 10 rows are visible on the screen. Lets also say that there are 30 records in the cursor that is being "browsed" by this grid. If you use the down arrow on the scroll bar to scroll through the cursor, it will keep scrolling until the last record of the cursor is in row 1 of the grid. The behavior that I would prefer is that it stop scrolling when the last record is fully visible in the grid (row 10 in this example). Is there any way to make this behavior happen? Thanks, Jeff Tag: VFP7, Vista and FILE() problem Tag: 231532
  - 5
    - PETITION asking to Microsoft to continue with the Visual FoxPro development This page is opened by an idea from the Visual FoxPro Spanish community, this page is opened for doing a campaign asking to Microsoft to continue with the Visual FoxPro development, release the full source code as Open Source or make an agreement with a 3rd party for continued development of future versions of VFP. MasFoxPro campaign: http://www.masfoxpro.com Martin Brtna Tag: VFP7, Vista and FILE() problem Tag: 231529
  - 6
    - Distorted Image Hi, Im trying to display Employee Pics in a Form from a general field in a table. form.stretch = Isometric. Picture is distorted. What is the best way to display a Picture from a General field? Thanks, Herbert Tag: VFP7, Vista and FILE() problem Tag: 231527
  - 7
    - Space bet Detail Band & Page Footer Hi, Recently upgraded to VFP9 and my reports from VFP8 suddenly have a space between the Detail Band & the Page Footer. Is there something I need to change in my report. I have tried set Report Behavior to 80 & 90 but it has the same result. Thanks, Herbert Tag: VFP7, Vista and FILE() problem Tag: 231526
  - 8
    - VFP 9 project question I have a vfp system where the source is in two folders. Dev folder for forms, prgs, frx, etc. Plus a sub folder containing all graphics, bmp, jpg, gif, ico, etc. The graphics are mainly used on forms and buttons on forms. I have added a createobject routine that creates a form from a prg. this form contains a graphic that is not used anywhere else. I manually added the graphic file to the project in the other files section. It is not marked as excluded When I build the project no errors are encountered but when I run the exe from the production location the graphic cannot be found. I tried placing a reference to the graphic into the main program within an if statement that is never true but this didn't help either. If I copy the graphic to the production folder to the same relative folder location as development it is found. Why isn't this found. Anyone with experience in getting this to work correctly??? Czeb Tag: VFP7, Vista and FILE() problem Tag: 231518
  - 9
    - how to get the no of month of a given date range Dear friends How to get a no of months & years of a given date range e.g. dldate=date(2000,05,25) now if i substract the dldate from current date ie. x=date()-dldate it will give result no of days but i want no of months in a single statement. if any function is available in VFP6 or any other way to get it. Thanks -- sanjib Tag: VFP7, Vista and FILE() problem Tag: 231507
  - 10
    - [fw] Display the tree shown by Class Browser http://fox.wikis.com/wc.dll?Wiki~ClassBrowserTree~VFP Next step is to scan the forms .... -- iTech Consulting Services Limited Expert of ePOS solutions Website: http://www.itech.com.hk (IE only) Tel: (852)2325 3883 Fax: (852)2325 8288 Tag: VFP7, Vista and FILE() problem Tag: 231504
  - 11
    - Oracle ODBC driver from Microsoft vs Oracle Hi, I have some applications written in VFP9 accessing Oracle databases thru ODBC, for some unknown reason, I always install the ODBC driver provided by Oracle, but it seems to be more heavy and time consumming to install it, so I wonder how would it be to use the ODBC driver provided by microsoft that is already installed on any PC, has somebody onthe forum used the microsoft driver? I would appreciate any advice or info about comparision and reliability of both ODBC drivers thanks Oscar Taboada Tag: VFP7, Vista and FILE() problem Tag: 231502
  - 12
    - VFP 9: Compiling in a VFP .exe The build procedure for my app has gotten a bit more complicated, so I want to automate it. How do I get build project and build exe to execute in a VFP .exe called from the command line? I got a feature not available message when I tried. There is a full VFP system on the computer I used. I am trying to get both the build and zip done in a batch file. Sincerely, Gene Wirchenko Computerese Irregular Verb Conjugation: I have preferences. You have biases. He/She has prejudices. Computerese Irregular Verb Conjugation: I have preferences. You have biases. He/She has prejudices. Tag: VFP7, Vista and FILE() problem Tag: 231500
  - 13
    - Any last requests? I could work with VFP for a while more if only I could read and write = UTF-8 in Sql Server without double byte translations leading to ??? = (unless somebody knows how to do this with the current VFP) What are other requests that people would still have? Robert Tag: VFP7, Vista and FILE() problem Tag: 231490
  - 14
    - Making a calling form invisible I have developed an Output class to handle reporting, exporting etc. This is called from scores of forms with a few parameters. After it has all been designed I have decided that I would like to make invisible whatever form calls the Output form. I can do this by: thisform.visible = .F. DO FORM <outputform> thisform.visible = .T. but I would like to avoid having to edit so many forms. Is there a way I can achieve this from the Output class without having to edit all these calling forms. I am NOT passing the calling form as an object parameter to the class. I wish now that I was! Thanks Stephen Tag: VFP7, Vista and FILE() problem Tag: 231475
  - 15
    - What's in the 71st byte of FXP files? We're using an utility who checks differences between FXP from different releases of a VFP software, and it uses a simple file compare logic. We cannot base that on "data and time modified" because these are unreliable, expecially after another utility recompiles all of the files. This morning we started noticing that the comparison found differences in all of the FXP even if we modified only a few, and the reason is that the 71st byte is always different from the past releases. It looks like something has changed in the output of the "compile xxx nodebug" command, starting from yesterday or today. Has anyone else had an issue as this? What could have triggered this situation? And, BTW, who knows where I can find info on the FXP file structure, of about the 71st byte of FXP's? -- Microsoft News Tag: VFP7, Vista and FILE() problem Tag: 231474
  - 16
    - Combine aggregate records from a UNION? Say I have 2 tables of invoices, one containing 2006 invoices and the other 2007. In a single SQL statement, I want to sum up the invoice amounts, grouped by customer number: SELECT CustNo, SUM(Amount) AS InvTotal FROM Inv2006 GROUP BY CustNo UNION ALL SELECT CustNo, SUM(Amount) AS InvTotal FROM Inv2007 GROUP BY CustNo INTO CURSOR Tmp ORDER BY CustNo If a given CustNo exists in both Inv2006 and Inv2007, the UNION will produce 2 records for this CustNo: one with the total amount for 2006 - the other the total for 2007. How can I modify my SQL statement to consolidate the results of the UNION so that I only end up with ONE record for the CustNo - with InvTotal equal to the total customer spent in 2006 plus 2007? Many thanks! -Mike Tag: VFP7, Vista and FILE() problem Tag: 231461
  - 17
    - missing subreport? ireponame = 'REPT_360.rpt' isubreponame = 'subtotal' SetCrRpt(thisform.olecontrol1) with Thisform.olecontrol1 .reportfilename = ireponame .datafiles(0) = fnd .connect = 'DSN=TEMP' .subreporttochange = isubreponame .datafiles(0) = fnd .connect = 'DSN=TEMP' .subreporttochange = '' .destination = outputtype .printreport() endwith I found that there is no "subreport.rpt", only a "rept_360.rpt". Is this sub-report a fake? -- iTech Consulting Services Limited Expert of ePOS solutions Website: http://www.itech.com.hk (IE only) Tel: (852)2325 3883 Fax: (852)2325 8288 Tag: VFP7, Vista and FILE() problem Tag: 231459
  - 18
    - Tableupdate failure-index does not match..... I have a parameterized view. I put a few records in it. I update the records. I issue tableupdate. If I don't update the first record in the view, the tableupdate fails, and aerror() shows me Index does not match the table..., error 114. I know for a fact that there is nothing wrong with the index, and this only happens if I don't enter a value in the first record. I've seen this before, but don't remember where or when. Anyone recognize this issue? Tag: VFP7, Vista and FILE() problem Tag: 231456
  - 19
    - Customzied papersize setting Hi all, I have defined a new label size for printing labels using barcode printer. It works fine in my pc when running my foxpro program. However, when it is printed from the others pc, the label size gets the other size although new label size is already set. I have tested many times by setting the default printer which refered to the new label size. It still failed. Finally, I discovered that it's the problem of papersize. My PC papersize for the new label is 134 and it works in my pc but not on the others. However, I have set the papersize to 154 and it doesn't work on my pc, but it works on one of my colleagues pc. Is there any default papersize setting that refer to customized size on window XP ? Thanks a lot! -- sze Tag: VFP7, Vista and FILE() problem Tag: 231455
  - 20
    - Disable Menu Items Hi, How do I disable Menu Items (Using Define Menu) when I preview a report? Thanks, Herbert Tag: VFP7, Vista and FILE() problem Tag: 231453
  - 21
    - How to get the form object ? Dear All, How to get the "Form Name or Form Object" in object "ytxt" ? e.g. ytxt = thisform.pgf1.page1.pgf2.page3.txtbox Thanks ! Tag: VFP7, Vista and FILE() problem Tag: 231441
  - 22
    - test -- Thanks ! Tag: VFP7, Vista and FILE() problem Tag: 231440
  - 23
    - Import UTF-8 text from Excel Is it possible to import or read texts from an Excel file that include = UTF-8 texts? Robert Tag: VFP7, Vista and FILE() problem Tag: 231435
  - 24
    - Intermittent Error 12 - Variable Not Found I have a situation where I am intermittently getting Error 12's trapped to my application (VFP7 based). The code path is something like the following: In my form: snparptr = 0 =gnssadd(,,,,) In gnssadd the following code is executed: =gnaddrec() REPLACE fddate WITH DATE(), ; fcsnaptime WITH TIME(), ; fnparent WITH snparptr, ; fccancel WITH vccancel, ; fctable WITH lctable, ; fcaction WITH vcaction, ; fnrecno WITH lnrecno, ; fcprompt WITH vcprompt SAVE TO MEMO fmdata ALL LIKE f* The gnaddrec either adds a new record to a table or reuses a deleted record. The error 12 error nominates the snparptr as the variable that is not found I cannot see a code path were the snparptr variable is disposed of. The problem is very intermittent and in most cases once the error has been received you can re-enter the program and execute the same function and have it work fine. Is there some resource that is being depleted that is causing this error? or any suggestions of another cause? thanks pete Tag: VFP7, Vista and FILE() problem Tag: 231428
  - 25
    - eReports on vfp6 untracable error Using DBX tech eReports, we have a report to pdf conversion that works fine in the IDE and locally compiled but returns a code 124 on a clients system running under terminal services. the oReports.ErrorLog seems not to be returning a string any help to resolve this would be appreciated John Tag: VFP7, Vista and FILE() problem Tag: 231426

Hi,

Very interesting problem.

I have a shared folder on a server mapped to a drive letter, say "Z".

FILE("Z:\folder\filename.ext") always returns false on Vista with VFP 7 SP1
exe build.
It works on Windows 2000 and XP machines.
Running as administrator does not solve this problem.

FILE(\\Servername\....\filename.ext) works, but I can't use this.

Anyone else experiencing this problem or knows a solution?

Thanks,

Eran

Top

Re: VFP7, Vista and FILE() problem by Eran

Eran
Thu Apr 05 15:25:57 CDT 2007

Running "net use Z: \\Servername\SharedFolder" from a command prompt solved
the problem.

I guess its a bug in Vista when using the "Map Network Drive" wizard.

Hope this helps others.

Eran

"Eran" <nospam@thankyou.com> wrote in message
news:ehVR%23E7dHHA.4032@TK2MSFTNGP02.phx.gbl...
Hi,

Very interesting problem.

I have a shared folder on a server mapped to a drive letter, say "Z".

FILE("Z:\folder\filename.ext") always returns false on Vista with VFP 7 SP1
exe build.
It works on Windows 2000 and XP machines.
Running as administrator does not solve this problem.

FILE(\\Servername\....\filename.ext) works, but I can't use this.

Anyone else experiencing this problem or knows a solution?

Thanks,

Eran

Top

Re: VFP7, Vista and FILE() problem by W

W
Fri Apr 06 09:34:35 CDT 2007

vfp6 works fine on vista..

"Eran" <nospam@thankyou.com> wrote in message
news:ehVR%23E7dHHA.4032@TK2MSFTNGP02.phx.gbl...
> Hi,
>
> Very interesting problem.
>
> I have a shared folder on a server mapped to a drive letter, say "Z".
>
> FILE("Z:\folder\filename.ext") always returns false on Vista with VFP 7
> SP1
> exe build.
> It works on Windows 2000 and XP machines.
> Running as administrator does not solve this problem.
>
> FILE(\\Servername\....\filename.ext) works, but I can't use this.
>
> Anyone else experiencing this problem or knows a solution?
>
> Thanks,
>
> Eran
>
>

Top