C / C++ / MFC

SimonCommon wrote:

do you know where we can get it or get a replacement lib?

The CreateProcess function creates a new process, which runs independently of the creating process.

PostThreadMessage(piProcessInfo.dwThreadId, WM_CLOSE, ...);

CString CTestWinInetDoc::SendRequest()
{
	HINTERNET hSession = InternetOpen(_T("TestWinInet"),
		INTERNET_OPEN_TYPE_DIRECT,NULL,NULL,0L);
	if(hSession == NULL)return _T("Internet session handle invalid");
	HINTERNET hConnect = InternetConnect(hSession,
		_T("http://www.somesite.com"),
		INTERNET_DEFAULT_HTTP_PORT,NULL,NULL,
		INTERNET_SERVICE_HTTP,0,0);
	if(hConnect == NULL)
	{
		InternetCloseHandle(hSession);
		return _T("Internet connect handle invalid");
	}
	HINTERNET hRequest = HttpOpenRequest(hConnect, NULL,
		_T("index.php?page=projects&sub=der_download_port"), NULL, NULL, 0, INTERNET_FLAG_RELOAD, 0);
	if(hRequest == NULL)
	{
		InternetCloseHandle(hSession);
		InternetCloseHandle(hConnect);
		return _T("Internet request handle invalid");
	}

	BOOL bSent = HttpSendRequest(hRequest, NULL, 0, 
		NULL, 0);
	if(! bSent)
	{
		InternetCloseHandle(hSession);
		InternetCloseHandle(hConnect);
		InternetCloseHandle(hRequest);
		return _T("Can not sent requested data");
	}

	InternetCloseHandle(hSession);
	InternetCloseHandle(hConnect);
	InternetCloseHandle(hRequest);

	return _T("Success !");
}

Faez Shingeri wrote:

rewind(fp1);
rewind(fp2);

while ((find_ptr = strstr(buff_ptr,text2find)) && find_ptr+find_len+1 == NULL)

Faez Shingeri wrote:

I thought rewind will help me during the reuse of the file..

Faez Shingeri wrote:

while ((find_ptr = strstr(buff_ptr,text2find)) && find_ptr+find_len+1 == NULL)

*************************************************************************
	  * 							API TEMPLATE PROGRAM                      *
	  * THIS PROGRAM SERVES AS A TEMPLATE TO GENERATE THE ACTUAL API PROGRAM  *
	  *                                                                       *
	  * MAPPING RULES: 														  *
	  * --------------------------------------------------------------------  *
	  *		Variable Name						Replace with				  *
	  * --------------------------------------------------------------------  *
	  *     &apiname				API Name from Mapping Repository          *
	  *     &dclgen					DCLGEN name from Mapping Repository       *
	  *     &keyinfo				Key field column name from file layout    * 
	  *     &hostvarprimary			Key field host var name from DCLGEN       *
	  *     &tablecols				Table column name from DCLGEN             *
	  *     &tablehostvars			Host variable names from DCLGEN           *
	  *     &tblprimary				Key field column name from DCLGEN         *
	  *     &tablehostvars01		01 level of host var from DCLGEN          *
	  *************************************************************************  
/* strings to be replaced if present in the above block should be ignored */	  
       IDENTIFICATION DIVISION.
	   PROGRAM-ID. &apiname. /* &apiname string shud be replaced with another string */
	   
	   		EXEC SQL
			INCLUDE &dclgen
		END-EXEC.
	   
		EXEC SQL
			INCLUDE SQLCA
		END-EXEC.
	   
	 	   2100-SELECT-PARA.
			MOVE &keyinfo TO &hostvarprimary
			EXEC SQL
				SELECT &tablecols /* &tablecols to be replaced with another string */
					INTO
					&tablehostvars /*&tablehostvars to be replaced with another string */


					FROM &tblname
					WHERE
					&tblprimary = &hostvarprimary
			END-EXEC
			IF SQL-CODE EQUAL ZERO
				SET FUNC-SUCCESS	TO TRUE
				MOVE &tablehostvars01 TO VSAM-REC-BLOCK
			ELSE
				PERFORM 9999-ABEND-PARA
			END-IF.
	   2100-SELECT-PARA-EXIT. EXIT.

	   2200-INSERT-PARA.
			MOVE VSAM-REC-BLOCK TO &tablehostvars01 /* This &tablehostvars01 string SHOULD NOT be replaced.. */
			EXEC SQL
				INSERT INTO &tblname
				(
				&tablecols
				)
				VALUES
				(
				&tablehostvars
				)
			END-EXEC
			IF SQL-CODE EQUAL ZERO
				SET FUNC-SUCCESS	TO TRUE
			ELSE
				PERFORM 9999-ABEND-PARA
			END-IF.
	   2200-INSERT-PARA-EXIT. EXIT.	   
			
	   2300-UPDATE-PARA.
			MOVE VSAM-REC-BLOCK TO &tablehostvars01 /* shud not be replaced */
			EXEC SQL
				UPDATE &tblname
				SET &tablecols = :&tablehostvars
					WHERE
					&tblprimary = &tablehostvarsprimary /* shud not be replaced */
			END-EXEC
			IF SQL-CODE EQUAL ZERO
				SET FUNC-SUCCESS	TO TRUE
			ELSE
				PERFORM 9999-ABEND-PARA
			END-IF.
	   			EXIT PROGRAM.

replace(char text2find[80],char text2repl[80],char fileOrig[32], char fileRepl[32] )
{

	    char buffer[MAX_LEN_SINGLE_LINE+2];
	    char *buff_ptr, *find_ptr, *tok;
	    FILE *fp1, *fp2;
	    size_t find_len = strlen(text2find);

	    fp1 = fopen(fileOrig,"r+");
	    fp2 = fopen(fileRepl,"w+");
	    rewind(fp1);
	    rewind(fp2);

	    while(fgets(buffer,MAX_LEN_SINGLE_LINE+2,fp1))
	    {
	        buff_ptr = buffer;
	        tok = strtok(buff_ptr,"*");
	        if(tok != NULL)
	        {
	        	while ((find_ptr = strstr(buff_ptr,text2find)))
	        	{

	        		while(buff_ptr < find_ptr)
	                fputc((int)*buff_ptr++,fp2);

	        	fputs(text2repl,fp2);

	            buff_ptr += find_len;

	        	}
	        	fputs(buff_ptr,fp2);
	        }
	    }

	   fclose(fp2);
	   fclose(fp1);
}