ATL COM AppWizardƒvƒƒWƒFƒNƒg‚Ìì¬
ATLƒIƒuƒWƒFƒNƒg‚ÌV‹Kì¬
ƒNƒ‰ƒCƒAƒ“ƒg‚©‚çƒf[ƒ^‚ðŽóŽæ‚é‚Ì‚ÉIRequestƒCƒ“ƒ^ƒtƒF[ƒX‚ðŽg‚¤‚Ì‚ÅA
[ActiveXƒT[ƒoƒRƒ“ƒ|[ƒlƒ“ƒg]‚ðƒNƒŠƒbƒN‚µ‚Ä‘I‘ð‚µ‚ÄA[ŽŸ‚Ö]‚ð‰Ÿ‚µ‚Ü‚·B
[ATL Object Wizard‚̃vƒƒpƒeƒB]ƒ_ƒCƒAƒƒO‚ªŠJ‚«‚Ü‚·B
[–¼‘O]ƒy[ƒW‚Ì[C++ ƒVƒ‡[ƒg]‚É–¼‘O‚ð“ü‚ê‚é‚ÆŽ©“®“I‚É
‚·‚ׂẴeƒLƒXƒgƒ{ƒbƒNƒX‚ɃfƒtƒHƒ‹ƒg‚Ì–¼‘O‚ª“ü‚è‚Ü‚·B
.H ƒtƒ@ƒCƒ‹‚Æ.CPPƒtƒ@ƒCƒ‹‚Ì–¼‘O‚ÆProg ID‚Ì–¼‘O‚ð•ÏX‚µ‚Ü‚·B
[Prog ID]‚ªŠO•”‚©‚炱‚̃Rƒ“ƒ|[ƒlƒ“ƒg‚ðƒAƒNƒZƒX‚·‚é‚Æ‚«‚ÉŽw’è‚·‚é–¼‘O‚Æ‚È‚è‚Ü‚·B
ASP‚ÌVBScript‚ÌServer.CreateObjectƒƒ\ƒbƒh‚ŃIƒuƒWƒFƒNƒg‚ð쬂·‚é‚Æ‚«‚ÉŽg‚¢‚Ü‚·B
‚±‚Ì—á‚Å‚ÍASet obj = Server.CreateObject("FileUp")‚É‚È‚è‚Ü‚·B
[‘®«]ƒy[ƒW‚Å‚ÍŽŸ‚ðƒ`ƒFƒbƒN‚µ‚Ü‚·B
[ASP]ƒy[ƒW‚Å‚ÍŽŸ‚ðƒ`ƒFƒbƒN‚µ‚Ü‚·B—v‹‚Æ‚ÍASP‚ÌIRequestƒIƒuƒWƒFƒNƒg‚Ì‚±‚Æ‚Å‚·B
ƒCƒ“ƒ^ƒtƒF[ƒX‚Ƀƒ\ƒbƒh‚ð’ljÁ
SaveAsƒƒ\ƒbƒh‚ðŽŸ‚Ì‚æ‚¤‚ÉŽw’肵‚Ü‚·B [in] BSTR name,[in] BSTR fpath,[out,retval] long *pVal
“¯‚¶‚悤‚ÉŽŸ‚̃ƒ\ƒbƒh‚à’ljÁ‚µ‚Ü‚·B
FormData [in] BSTR name,[out,retval] BSTR *pVal
FileName [in] BSTR fname,[out,retval] BSTR *pVal
ƒƒ\ƒbƒh‚̃Cƒ“ƒvƒŠƒƒ“ƒg
‰ð“€‚µ‚½ŽŸ‚̃tƒ@ƒCƒ‹‚ðƒvƒƒWƒFƒNƒg‚̃fƒBƒŒƒNƒgƒŠ‚ɃRƒs[‚µ‚Ü‚·B
fileupx.cpp (’uŠ·‚µ‚Ü‚·) fileupx.h (’uŠ·‚µ‚Ü‚·) brfc1867.h brfc1867.cpp ‚»‚Ì‘¼‚·‚ׂẴvƒƒWƒFƒNƒgƒtƒ@ƒCƒ‹‚ªŠÜ‚Ü‚ê‚Ä‚Ü‚·‚ªƒRƒs[‚·‚é‚Ì‚ÍA ã‚Ì‚S‚‚̃tƒ@ƒCƒ‹‚¾‚¯‚É‚µ‚Ü‚·B ========================================================================= ‚·‚®ŽŽ‚µ‚½‚¢l‚âŽè‡‚Ç‚¨‚è‚â‚Á‚Ä‚à‚¤‚Ü‚‚¢‚©‚È‚¢ê‡‚ÍA ‰ð“€‚µ‚½‘S‚Ẵtƒ@ƒCƒ‹‚ðfileupƒfƒBƒŒƒNƒgƒŠ‚ɃRƒs[‚µ‚Ä fileup.dsw‚ðƒNƒŠƒbƒN‚·‚ê‚΃vƒƒWƒFƒNƒg‚ªŠJ‚«‚Ü‚·‚Ì‚Å‚·‚®ƒrƒ‹ƒh‚Å‚«‚Ü‚·B ’A‚µA‚±‚Ìfileup.dswƒtƒ@ƒCƒ‹‚ÍVisual C++ 6.0‘Ήž‚Å‚·B Visual C++ 5.0‚ł̓rƒ‹ƒh‚Å‚«‚Ü‚¹‚ñB ========================================================================= 2. ƒvƒƒWƒFƒNƒg‚Ƀtƒ@ƒCƒ‹‚ð’ljÁ
[ƒvƒƒWƒFƒNƒg]-[ƒvƒƒWƒFƒNƒg‚ɒljÁ]-[ƒtƒ@ƒCƒ‹]‚ŒljÁ‚µ‚Ü‚·B brfc1867.h brfc1867.cpp 3. Fileupx.cppƒtƒ@ƒCƒ‹
FileUpx.cpp‚ÍAŽŸ‚̂悤‚É‚È‚è‚Ü‚·B // FileUpx.cpp : CFileUp ‚̃Cƒ“ƒvƒŠƒƒ“ƒe[ƒVƒ‡ƒ“ #include "stdafx.h" #include "FileUp.h" #include "FileUpx.h" ///////////////////////////////////////////////////////////////////////////// // CFileUp STDMETHODIMP CFileUp::OnStartPage (IUnknown* pUnk) { if(!pUnk) return E_POINTER; CComPtr<IScriptingContext> spContext; HRESULT hr; // IScriptingContext ƒCƒ“ƒ^[ƒtƒFƒCƒX‚̎擾 hr = pUnk->QueryInterface(IID_IScriptingContext, (void **)&spContext); if(FAILED(hr)) return hr; // Request ƒIƒuƒWƒFƒNƒg‚̃|ƒCƒ“ƒ^‚ðŽæ“¾ hr = spContext->get_Request(&m_piRequest); if(FAILED(hr)) { spContext.Release(); return hr; } // ƒAƒbƒvƒ[ƒhƒf[ƒ^‚ðRequest.BinaryRead‚Å•Û‘¶ m_rfc1867.Open(m_piRequest); m_bOnStartPageCalled = TRUE; return S_OK; } STDMETHODIMP CFileUp::OnEndPage () { m_rfc1867.Close(); // ƒoƒbƒtƒ@‚ðŠJ•ú m_bOnStartPageCalled = FALSE; // ‚·‚ׂẴCƒ“ƒ^[ƒtƒFƒCƒX‚ð‰ð•ú‚µ‚Ü‚· m_piRequest.Release(); return S_OK; } STDMETHODIMP CFileUp::SaveAs(BSTR name, BSTR fpath, long *pVal) { USES_CONVERSION; LPCSTR szName = OLE2T(name); LPCSTR szFileName = OLE2T(fpath); int flen; char *tf = m_rfc1867.FileData(szName,&flen); if(tf == NULL || flen < 1) { *pVal = -2; return S_OK; } HANDLE hFile = CreateFile((const char*)szFileName, GENERIC_WRITE, FILE_SHARE_READ, NULL, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL); if(hFile == INVALID_HANDLE_VALUE) { *pVal = -3; return S_OK; } DWORD dwAmt; if(!WriteFile(hFile, tf, flen, &dwAmt, NULL)) { CloseHandle(hFile); *pVal = -4; return S_OK; } CloseHandle(hFile); *pVal = dwAmt; return S_OK; } STDMETHODIMP CFileUp::FormData(BSTR fname, BSTR *pVal) { USES_CONVERSION; LPCSTR szName = OLE2T(fname); int dlen; char *name = m_rfc1867.FormData(szName,&dlen); if(name == NULL) { *pVal = A2BSTR(""); return S_OK; } int mlen = dlen + 4096; char *tp = new char[mlen]; if (tp == NULL) { delete [] name; return ResultFromScode(E_OUTOFMEMORY); } memcpy(tp,name,dlen); tp[dlen] = 0; int clen = dlen; delete [] name; name = m_rfc1867.FormData(szName,&dlen); while (name) { tp[clen++] = '\t'; if (mlen < (clen + dlen + 1)) { char *tp2 = new char[mlen+dlen + 4096]; if (tp2 == NULL) { delete [] tp; delete [] name; return ResultFromScode(E_OUTOFMEMORY); } memcpy(tp2,tp,clen); delete [] tp; tp = tp2; mlen += dlen + 4096; } memcpy(tp+clen,name,dlen); clen += dlen; tp[clen] = 0; delete [] name; name = m_rfc1867.FormData(szName,&dlen); } *pVal = A2BSTR(tp); delete [] tp; return S_OK; } STDMETHODIMP CFileUp::FileName(BSTR fname, BSTR *pVal) { USES_CONVERSION; LPCSTR szName = OLE2T(fname); char *name = m_rfc1867.FileName(szName); if(name == NULL) { *pVal = A2BSTR(""); return S_OK; } *pVal = A2BSTR(name); delete [] name; return S_OK; }
ƒfƒoƒbƒO‚Ì•û–@
Release Mindependency‚ł̃rƒ‹ƒh
LIBCMT.lib(crt0.obj) : error LNK2001: ŠO•”¼ÝÎÞÙ "_main" ‚Í–¢‰ðŒˆ‚Å‚· ReleaseMinDependency/FileUp.dll : fatal error LNK1120: ŠO•”ŽQÆ 1 ‚ª–¢‰ðŒˆ‚Å‚·B link.exe ‚ÌŽÀs´×° FileUp.dll - ´×° 2AŒx 0 ‚±‚̃Gƒ‰[‚ÍACƒ‰ƒ“ƒ^ƒCƒ€ŠÖ”‚ªƒŠƒ“ƒN‚³‚ê‚Ä‚¢‚È‚¢‚Æ‚«‚É”¶‚µ‚Ü‚·B C‚̃‰ƒ“ƒ^ƒCƒ€ŠÖ”‚ðƒvƒƒWƒFƒNƒg“à‚ÅŽg‚Á‚Ä‚¢‚é‚Æ”¶‚µ‚Ü‚·B Releaseƒrƒ‹ƒh‚̃fƒtƒHƒ‹ƒg‚Å‚ÍATL COM AppWizard‚ÍACƒ‰ƒ“ƒ^ƒCƒ€‚ðƒŠƒ“ƒN‚µ‚Ü‚¹‚ñB ‚±‚ê‚ÍA_ATL_MIN_CRTƒvƒŠƒvƒƒZƒbƒT•¶Žš‚ªŽw’肳‚ê‚Ä‚¢‚邽‚ß‚Å‚·B ‘Îô‚Æ‚µ‚Ä‚ÍF œ[ƒvƒƒWƒFƒNƒg‚ÌÝ’è] -[C/C++]-[ƒvƒŠƒvƒƒZƒbƒT‚Ì’è‹`]‚Å_ATL_MIN_CRT‚ðíœ ‚±‚¤‚·‚é‚ÆC‚̃‰ƒ“ƒ^ƒCƒ€‚ªƒŠƒ“ƒN‚³‚ê‚ăGƒ‰[‚ªÁ‚¦‚Ü‚·B ‚±‚ꂾ‚¯‚Å‚n‚j‚Å‚·B ‚à‚¤ˆê‚‚̕û–@‚ÍF œC‚̃‰ƒ“ƒ^ƒCƒ€ŠÖ”‚ðŽg‚¤‚Ì‚ð‚â‚ß‚é strlen ‚È‚Ç‚ÌŠÖ”‚ð lstrlen ‚È‚Ç‚É•ÏX‚µ‚Ü‚·B ¡‰ñ‚ÍA_ATL_MIN_CRT‚Í‚»‚Ì‚Ü‚Ü‚É‚µ‚ÄAC‚̃‰ƒ“ƒ^ƒCƒ€ŠÖ”‚ðŽg‚¤‚Ì‚ð‚â‚ß‚Ä ‚±‚Ì–â‘è‚ɑΈ‚µ‚Ü‚·B brfc1867.cpp ƒtƒ@ƒCƒ‹‚ÌstrnicmpŠÖ”‚ª‚»‚Ì”Æl‚Å‚·B if (strnicmp(disp,(char*)tp+offset,dlen) != 0) break; // if (CompareString(LOCALE_SYSTEM_DEFAULT,NORM_IGNORECASE, // disp,dlen,(char*)tp+offset,dlen) != CSTR_EQUAL) // break; ‚±‚ê‚ðŽŸ‚Ì‚æ‚¤‚ÉstrnicmpŠÖ”‚Ì‘ã‚í‚è‚ÉCompareStringŠÖ”‚ð Žg‚¤‚悤‚ÉC³‚µ‚Ü‚·BƒRƒƒ“ƒg‚ð•t‚¯‘Ö‚¦‚邾‚¯‚Å‚·B // if (strnicmp(disp,(char*)tp+offset,dlen) != 0) // break; if (CompareString(LOCALE_SYSTEM_DEFAULT,NORM_IGNORECASE, disp,dlen,(char*)tp+offset,dlen) != CSTR_EQUAL) break; ƒrƒ‹ƒh‚µ‚ăGƒ‰[‚ªÁ‚¦‚ê‚ÎOK‚Å‚·B
ATLƒrƒ‹ƒhŠÂ‹«‚Ì•s‹ï‡‚É‚æ‚érgsƒtƒ@ƒCƒ‹‚ÌC³(VC++5.0‚Ì‚Ý) VC++6.0‚Å‚Í•s—v
Set obj = Server.CreateObject("FileUp.1")‚¾‚Æ‚¤‚Ü‚‚¢‚«‚Ü‚·‚ªA Set obj = Server.CreateObject("FileUp")‚¾‚ÆŽ¸”s‚µ‚Ü‚·B ATL ‚̃ŒƒWƒXƒgƒŠ‚Ì“o˜^‚Åversion-independent ProgID‚ÌCLSID‚ª “o˜^‚³‚ê‚È‚¢‚±‚Æ‚ªŒ´ˆö‚Å‚·B DevStudio\SharedIDE\Template\atl‚Ì’†‚Ì*.rgs ƒtƒ@ƒCƒ‹‚Ì’†‚ð ŽŸ‚̂悤‚É•ÒW‚µ‚Ä‚‚¾‚³‚¢B
[!ProgID] = s '[!TypeName]'
{
CLSID = s '{[!ObjectGUID]}'
[!if=(InsertableEnabled, "TRUE")]
'Insertable'
[!endif]
}
[!VersionIndependentProgID] = s '[!TypeName]'
{
CLSID = s '{[!ObjectGUID]}' <=== ‚±‚Ìs‚ð’ljÁ
CurVer = s '[!ProgID]'
}
‚±‚ê‚ÅŽŸ‰ñ‚©‚çƒrƒ‹ƒh‚·‚é‚Æ‚«‚ɳ‚µ‚“o˜^‚³‚ê‚é‚悤‚É‚È‚è‚Ü‚·B
ƒvƒƒWƒFƒNƒg‚ÌFileUp.rgsƒtƒ@ƒCƒ‹‚ðŽè‚Å•ÒW‚µ‚Ä‚à‚©‚Ü‚¢‚Ü‚¹‚ñB
CurVer‚Ìs‚Ì‘O‚ÉCLSID‚Ìs‚ðŽŸ‚Ì‚æ‚¤‚ɃRƒs[‚µ‚Ä‚‚¾‚³‚¢B
FileUp.1 = s 'FileUp Class'
{
CLSID = s '{xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx}'
}
FileUp = s 'FileUp Class'
{
CLSID = s '{xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx}'
CurVer = s 'FileUp.1'
}
Copyright 1999 Tatsuo Baba,All rights reserved.