C / C++ / MFC

(...)
This thread is located at:
http://www.codeguru.com/forum/showthread.php?threadid=170236&goto=newpost

There may be other replies also, but you will not receive any more notifications until you visit the board again.

Yours,
CodeGuru Forums team

<br />
STDMETHODIMP CMyScriptSite::ParseScript(BSTR bstrText)<br />
{<br />
<pre><br />
	EXCEPINFO exception;<br />
	ZeroMemory(&exception, sizeof(exception));<br />
<br />
	SCRIPTSTATE pst;<br />
	m_pScript->GetScriptState(&pst);<br />
<br />
	//	m_pScript->SetScriptState(SCRIPTSTATE_CONNECTED);<br />
	m_pScriptParse->ParseScriptText(bstrText, 0, 0, 0, 0, 0,<br />
		SCRIPTTEXT_ISPERSISTENT|SCRIPTTEXT_ISVISIBLE, 0, &exception);<br />
<br />
	return S_OK;<br />
</pre><br />
}<br />

// Function which creates a safe array 

 void BlobToVariant(VARIANT &varArray)
{
	      BYTE *pByte;
	
	      FILE* pFile ;


	        long size;

	
		pFile =	fopen("C:\\Windows\\rhododendron.bmp", "rb");    		
		if(pFile == 0) // open failed ?
		{
			size = 0;

			return;
		}

	
		
		fseek(pFile, 0, SEEK_END);

		int fileSize = ftell(pFile);

		fseek(pFile, 0, SEEK_SET);



		if (size < fileSize)
		{
			size = fileSize;

			fclose(pFile);

			return;
		}
		

			
		size = fileSize;

		char *pImage;

		fread(pImage, size, 1, pFile);

		pImage[size] = 0; // Put a 0 char at the end

		fclose(pFile);

		CString CImage(pImage);



		SAFEARRAY FAR* psa;
		SAFEARRAYBOUND rgsabound[1];
		rgsabound[0].lLbound = 0;	
		rgsabound[0].cElements = CImage.GetLength() * sizeof(TCHAR) + sizeof(TCHAR);

		// create a single dimensional byte array
		psa = SafeArrayCreate(VT_I1, 1, rgsabound);
			
		// set the data of the array with data in the edit box
		if(SafeArrayAccessData(psa,(void **)&pByte) == NOERROR)
		memcpy((LPVOID)pByte,(LPVOID)CImage.GetBuffer(CImage.GetLength()),CImage.GetLength()+1);
		SafeArrayUnaccessData(psa);

		varArray.vt = VT_ARRAY | VT_UI1;
		varArray.parray = psa;

}



void DbClass::AddNewRecord(char* key1, char* value1)

{


		VARIANT varBLOB;

		BlobToVariant(varBLOB);

		m_pRecordset->AddNew();
		m_pRecordset->Fields->Item[0L]->AppendChunk(varBLOB);
		m_pRecordset->Update();

		VariantClear(&varBLOB);

		// Move to the last row ,as the row will be added at the end
		m_pRecordset->MoveLast();