// BinaryHtmlStream.h: interface for the CBinaryHtmlStream class.
//
//////////////////////////////////////////////////////////////////////

#if !defined(AFX_BINARYHTMLSTREAM_H__E8E5B559_A8D3_4DEE_B38D_2ABF4D319672__INCLUDED_)
#define AFX_BINARYHTMLSTREAM_H__E8E5B559_A8D3_4DEE_B38D_2ABF4D319672__INCLUDED_

#if _MSC_VER > 1000
#pragma once
#endif // _MSC_VER > 1000

class CBinaryHtmlStream : public CHtmlStream
{
public:
// we have a special overload of << to allow for a single byte
CBinaryHtmlStream& operator<<(BYTE b) { Write(&b, 1); return *this; }
};

#endif // !defined BINHTMSTREAM_H

//*******************************************************************
// Renvoi une resource du workspace
//*******************************************************************
void ClsMyServerExtension::SendResource(CHttpServerContext *pCtxt, int ID_RS)
{
CBinaryHtmlStream* pStream = new CBinaryHtmlStream();
CString ContentSize;
CString RSNumb;
unsigned int Size = 0;
HINSTANCE hIn= NULL;
HRSRC tSrc= NULL;
HGLOBAL hImage= NULL;
BYTE* pImage= NULL;

     //Attention ajouter le type mime du flux de retour en fonction du type de Resource A modifier
AddHeader(pCtxt ,_T("Content-Type: image/jpeg\r\n"));}
     //AddHeader(pCtxt ,_T("Content-Type: application/x-shockwave-flash\r\n"));}

RSNumb.Format("#%d",ID_RS);

hIn= AfxGetResourceHandle();
     //Où BINARY est un groupe de resource comme Dialog, Menu...
tSrc= ::FindResource (hIn,RSNumb.GetBuffer(0),"BINARY");
hImage= ::LoadResource(hIn,tSrc);
Size= ::SizeofResource(hIn,tSrc);
pImage= (BYTE*) ::LockResource(hImage);

ContentSize.Format( "Content-length: %d\r\n", Size);
AddHeader( pCtxt ,_T(ContentSize));

for (int Ind = 0; Ind <Size; Ind++){*pStream << pImage[Ind];}

*pCtxt << *pStream;
delete pStream;
//delete pImage; Supprimé à la destruction du Thread(Voire MSDN) 
}

ON_PARSE_COMMAND(Reload, ClsMyServerExtension, ITS_PSTR ITS_R4 )
ON_PARSE_COMMAND_PARAMS("String=Str Double=-1.54")

ON_PARSE_COMMAND(Reload, ClsMyServerExtension, ITS_PSTR ITS_PSTR )
ON_PARSE_COMMAND_PARAMS("String=Str Double=-1.54")

ON_PARSE_COMMAND(GetRaster, ClsMyServerExtension, ITS_PSTR )
ON_PARSE_COMMAND_PARAMS("D=DataBase")

ON_PARSE_COMMAND(Reload, ClsMyServerExtension, ITS_PSTR)
ON_PARSE_COMMAND_PARAMS("R=r")

//*******************************************************************
// Recharge la config
//*******************************************************************
void ClsMyServerExtension::Reload(CHttpServerContext *pCtxt, LPTSTR R)
{
HRESULT hres = ::CoInitializeEx(NULL,COINIT_MULTITHREADED );
    ...//traitement plus renvoi de texte ou dat dans le flux...
::CoUninitialize();
}

#define _WIN32_DCOM
#include "objbase.h"

void GetData(CHttpServerContext *pCtxt, int Integer, LPTSTR String)

void CMyServerExtension::GetData(CHttpServerContext *pCtxt, int Integer, LPTSTR String)
  {
  ...
  }

BEGIN_PARSE_MAP(ClsMyServerExtension, CHttpServer)

ON_PARSE_COMMAND(GetData, ClsMyServerExtension, ITS_I4 ITS_PSTR)
ON_PARSE_COMMAND_PARAMS("Integer=12 String=MaString")

//pour les fonctions sans paramètres:
#define ITS_EMPTY           "\x06"      // no parameters
//les autres types
#define ITS_I2              "\x01"      // a 'short'
#define ITS_I4              "\x02"      // a 'long'
#define ITS_R4              "\x03"      // a 'float'
#define ITS_R8              "\x04"      // a 'double'
#define ITS_PSTR            "\x05"      // a 'LPCTSTR'
#define ITS_RAW                         "\x07"          // exactly as received

unsigned longSize = 250;
LPTSTR ClientIP  = (LPTSTR) malloc(Size);

pCtxt->GetServerVariable("REMOTE_ADDR", ClientIP, &Size);

CStringIpClient = CString(ClientIP, Size);
free(ClientIP);

ON_PARSE_COMMAND(MaFonctionParDefaut, ClsMyServerExtension, ITS_EMPTY)
DEFAULT_PARSE_COMMAND(MaFonctionParDefaut, ClsMyServerExtension)