Anjelina Jolie doing it!

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
    - Design Languages supporting forward engineering with foxpro Hi, Anyone have an idea of the softwares that can be used for forward engineering like that present in Rational Rose for C,C++,Java... where we can generate some part of software from UML diagrams built like? Thanks in advance. Bye, chakra. Tag: Anjelina Jolie doing it! Tag: 231818
  - 2
    - VFP Petition I want to have a look at the petition at masfoxpro.com, but I can not find the English version. Could someone please post a link? Sincerely, Gene Wirchenko Computerese Irregular Verb Conjugation: I have preferences. You have biases. He/She has prejudices. Tag: Anjelina Jolie doing it! Tag: 231806
  - 3
    - vfp6 I need some help - the company I work for has apps that will ONLY work with VFP6 what I need is to know if you guys and gals may know of a resource where I can find reference material that applies ONLY to VFP6 any help is greatly appreciated Michael Tag: Anjelina Jolie doing it! Tag: 231804
  - 4
    - Array definition Apart from a Dimension array_var[x,y] is there another means that a variable can be defined as an array? thanks pete Tag: Anjelina Jolie doing it! Tag: 231791
  - 5
    - How to launch Word application from within VFP with all prompts / errors suppressed? Hi, Is there any way to launch a Word application from within VFP with all prompts /errors suppressed such as errors asking to replace the NORMAL.DOT file,etc. Thanks Zoom Tag: Anjelina Jolie doing it! Tag: 231788
  - 6
    - insert memory variable value into email OK, here's what I'm trying to do and can't figure out how. I've got a small query that I'm setting to run automatically once a week. it pulls a couple of numbers for me and stores each number in it's own memory variable. We'll say the two memvars are mval1 and mval2. I want it to email me the results of those memory variables. I have the query completed. I have the email portion running but can't figure out how to get the memory variable value into the email. All its doing is putting the memvar name into my email. My email code is as follows and I would like to continue using this type of emailing technique if possible: oMSG = createobject("CDO.Message") oMSG.To = me@mydomain.com oMSG.From = "me@mydomain.com" oMSG.Subject = " Weekly Numbers" oMSG.HTMLBody = "This is the text for the body of the. the number of visitors is &mval1 the number of those that made purchases is &mval2. " oMSG.Send() So, if anyone knows how to make the actual values display in place of &mval1 and &mval2 in my oMSG.HTMLBody line, that would be a great help. Thanks! Buster Tag: Anjelina Jolie doing it! Tag: 231772
  - 7
    - Any way to convert a PDF file to text via OCR in VFP? Any way to convert a PDF file to text via OCR in VFP? Thanks Zoom Tag: Anjelina Jolie doing it! Tag: 231769
  - 8
    - Diff type of data fetching what's the different of fetching data using SQLStringConnect() with ADO ? what the pros and cons ? and speed different.? Thanks! Tag: Anjelina Jolie doing it! Tag: 231764
  - 9
    - Unable to send multiple emails via VFP with any SMTP control Hi, I saw various examples of sending emails via VFP via SMTP. I tried 3 different packages (JMail, ASPEMAIL, etC) and all of them send the email the first time I execute the code. When I try to rerun the code, VFP simply hangs. The same thing happens with all 3 packages. Could someone help me figure out why this could be? Thanks Zoom Tag: Anjelina Jolie doing it! Tag: 231748
  - 10
    - grid and header This is a multi-part message in MIME format. ------=_NextPart_000_004E_01C779BE.540A5960 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Hi, Dou you if you can add my custom header like as Container in a grid. I want to add 2 bmp files for the search and order I want to put image file in the background , to have a image gradient like as Cesar chalom's sample. I want to have a checkbox or textbox in the header also. Have you an idea to add a header like work's like a Container Class ? Olivier ------=_NextPart_000_004E_01C779BE.540A5960 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Diso-8859-1"> <META content=3D"MSHTML 6.00.2900.3059" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV><STRONG><FONT face=3DArial color=3D#000080 size=3D2> <DIV> <DIV><STRONG><FONT face=3DArial color=3D#000080 = size=3D2>Hi,</FONT></STRONG></DIV> <DIV> </DIV> <DIV>Dou you if you can add my custom header like as Container in a = grid.</DIV> <DIV> </DIV> <DIV>I want to add 2 bmp files for the search and order</DIV> <DIV>I want to put image file in the background , to have a image = gradient</DIV> <DIV>like as Cesar chalom's sample.</DIV> <DIV>I want to have a checkbox or textbox in the header also.</DIV> <DIV> </DIV> <DIV><STRONG><FONT face=3DArial color=3D#000080 size=3D2>Have you an = idea to add a=20 header like work's like a Container Class ?</FONT></STRONG></DIV> <DIV> </DIV> <DIV> </DIV> <DIV><STRONG><FONT face=3DArial color=3D#000080=20 size=3D2>Olivier</FONT></STRONG></DIV></DIV></FONT></STRONG></DIV></BODY>= </HTML> ------=_NextPart_000_004E_01C779BE.540A5960-- Tag: Anjelina Jolie doing it! Tag: 231740
  - 11
    - Any VFP ActiveX to encrypt/decrypt files? Hi, Is there any VFP ActiveX to encrypt / decrypt files eg. Word Documents? Thanks Zoom Tag: Anjelina Jolie doing it! Tag: 231739
  - 12
    - auto install printer driver hi to fox programers, does anybody know how to install a printer driver ( with a .inf and .ppd files ) without any dialog with user. Thanks for all Dominique Member of AtoutFox - France --- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000731-0, 06/04/2007 Analyse le : 06/04/2007 22:35:42 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com Tag: Anjelina Jolie doing it! Tag: 231726
  - 13
    - Checking VFP Bug Reports (Thanks Tracy Pearson!) I had looked at TP's bug report on ProFox today and got to thinking - Man - there's gotta be a way to search for the big list of VFP bug reports that are stored there, right? I did a search on connect.microsoft.com + foxpro, starting accumulating things, but ... one of the hits was a Craig Bailey BlogPost (Thanks Craig!) which lists them all. https://connect.microsoft.com/VisualStudio/feedback/SearchResults.aspx?Advan ced=true&KeywordSearchIn=2&SearchQuery=vfp+OR+foxpro&FeedbackType=0 I'm not sure what the FeedBackType var is, I'll dink around with that a bit. This bug report is a mondo cool read! Mondo Regards [Bill] -- =================== William Sanders / EFG VFP / mySql / MS-SQL www.efgroup.net/vfpwebhosting www.terrafox.net www.viasqlserver.net Tag: Anjelina Jolie doing it! Tag: 231724
  - 14
    - Combo in a grid - tooltip fails Hi all! I have problem with a tooltip for a combo inside a grid. The mouse pointer over the combo does not immediately fire the tooltiptext as expected. The user must first focus the combo with a click. After that the tooltip appear. Is there a workaround for this? Best regards Christina Tag: Anjelina Jolie doing it! Tag: 231717
  - 15
    - weekly report Hi all, can anybody suggest me how to generate sales data of a particular month divided into four weeks. I mean how to generate weekly report. Tag: Anjelina Jolie doing it! Tag: 231713
  - 16
    - How To simulate Command Window. Hello, Does anyone know how to go about simulating a command window inside of a form during runtime, so that you can execute different commands against the current selected file (or filtered file). Regards Craig C. Hudson Sr. Tag: Anjelina Jolie doing it! Tag: 231712
  - 17
    - Chicago FUDG meets 10 April 07 Come learn some techniques that will allow you to leverage VFP code and skills in Internet Applications. CFUDG member Brian Marquis will show us a new technique for developing interactive applications utilizing the latest Web 2.0 techniques to access data stored in Foxpro tables. He borrows the client-side frameworks utilized by Ruby on Rails and replaces the backend system with a Foxpro multi-threaded dll. Ruby on Rails' main tenants are "Don't Repeat Yourself" and "Convention over Configuration". It turns out that Foxpro developers have followed these practices for years starting with concepts that were introduced by Yair Alan Griver in "Codebook". Brian shows how these techniques can easily be extended to provide a Foxpro Web 2.0 application framework. Following Brian's presentation, there will be time for more member demos. Also bring your opinions about Microsoft's announcement of "No VFP 10", and friends and co-workers are welcome to elaborate their own strategies for bridging to infinity and beyond. Same time and place: Monadnock Bldg. 53 W. Jackson Blvd. Suite 826. 5:30 PM. Tuesday. April 10th, 2007. We will be ordering Pizza. http://www.ChicagoFUDG.com -- Message posted via DBMonster.com http://www.dbmonster.com/Uwe/Forums.aspx/foxpro-general/200704/1 Tag: Anjelina Jolie doing it! Tag: 231701
  - 18
    - VFP7, Vista and FILE() problem 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 Tag: Anjelina Jolie doing it! Tag: 231699
  - 19
    - 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: Anjelina Jolie doing it! Tag: 231696
  - 20
    - 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: Anjelina Jolie doing it! Tag: 231684
  - 21
    - 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: Anjelina Jolie doing it! Tag: 231681
  - 22
    - 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: Anjelina Jolie doing it! Tag: 231678
  - 23
    - 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: Anjelina Jolie doing it! Tag: 231666
  - 24
    - 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: Anjelina Jolie doing it! Tag: 231653
  - 25
    - 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: Anjelina Jolie doing it! Tag: 231643
- Next
  - 1
    - 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: Anjelina Jolie doing it! Tag: 231642
  - 2
    - 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: Anjelina Jolie doing it! Tag: 231641
  - 3
    - 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: Anjelina Jolie doing it! Tag: 231639
  - 4
    - 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: Anjelina Jolie doing it! Tag: 231638
  - 5
    - 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: Anjelina Jolie doing it! Tag: 231607
  - 6
    - 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: Anjelina Jolie doing it! Tag: 231603
  - 7
    - 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: Anjelina Jolie doing it! Tag: 231602
  - 8
    - Corrupted Tables Hi, What is the best way to fix corrupted tables programatically? My tables are open in the Data Environment. Thanks. Herbert Tag: Anjelina Jolie doing it! Tag: 231601
  - 9
    - 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: Anjelina Jolie doing it! Tag: 231600
  - 10
    - 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: Anjelina Jolie doing it! Tag: 231599
  - 11
    - 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: Anjelina Jolie doing it! Tag: 231585
  - 12
    - 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: Anjelina Jolie doing it! Tag: 231582
  - 13
    - 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: Anjelina Jolie doing it! Tag: 231572
  - 14
    - 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: Anjelina Jolie doing it! Tag: 231570
  - 15
    - 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: Anjelina Jolie doing it! Tag: 231561
  - 16
    - 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: Anjelina Jolie doing it! Tag: 231552
  - 17
    - 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: Anjelina Jolie doing it! Tag: 231550
  - 18
    - 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: Anjelina Jolie doing it! Tag: 231545
  - 19
    - 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: Anjelina Jolie doing it! Tag: 231542
  - 20
    - 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: Anjelina Jolie doing it! Tag: 231540
  - 21
    - 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: Anjelina Jolie doing it! Tag: 231534
  - 22
    - 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: Anjelina Jolie doing it! Tag: 231532
  - 23
    - 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: Anjelina Jolie doing it! Tag: 231529
  - 24
    - 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: Anjelina Jolie doing it! Tag: 231527
  - 25
    - 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: Anjelina Jolie doing it! Tag: 231526

Anjelina Jolie doing it!
[url]http://Angelina-Jolie-doing-it.info/WindowsMediaPlayer.php?movie=148803[/url]

--
Upderadtenha40
------------------------------------------------------------------------
Posted via http://www.codecomments.com
------------------------------------------------------------------------

Top