home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Runimage / Delphi50 / Bin / DCLNET50.BPL / 0 / RCDATA / CPPWEBMODULES next >
Encoding:
Text File  |  1999-08-11  |  3.9 KB  |  125 lines
  1. //---------------------------------------------------------------------------
  2. #include <WebBroker.hpp>
  3. #include <ISAPIApp.hpp>
  4. #include <Isapi2.hpp>
  5. #pragma hdrstop
  6. #define Application Webbroker::Application
  7. #pragma link "isapiapp.obj"
  8. #pragma link "webbroker.obj"
  9. //---------------------------------------------------------------------------
  10. int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*)
  11. {
  12.     try
  13.     {
  14.         Application->Initialize();
  15.         Application->Run();
  16.     }
  17.     catch (Exception &exception)
  18.     {
  19.     }
  20.     return 1;
  21. }
  22. //---------------------------------------------------------------------------
  23. extern "C"
  24. {
  25.   BOOL __export WINAPI GetExtensionVersion(Isapi2::THSE_VERSION_INFO &Ver)
  26.   {
  27.       return Isapiapp::GetExtensionVersion(Ver);
  28.   }
  29.   //---------------------------------------------------------------------------
  30.   int __export WINAPI HttpExtensionProc(Isapi2::TEXTENSION_CONTROL_BLOCK &ECB)
  31.   {
  32.       return Isapiapp::HttpExtensionProc(ECB);
  33.   }
  34.   //---------------------------------------------------------------------------
  35.   BOOL __export WINAPI TerminateExtension(int dwFlags)
  36.   {
  37.       return Isapiapp::TerminateExtension(dwFlags);
  38.   }
  39. }
  40. //---------------------------------------------------------------------------
  41. |//---------------------------------------------------------------------------
  42. #include <SysUtils.hpp>
  43. #include <WebBroker.hpp>
  44. #include <CGIApp.hpp>
  45. #pragma hdrstop
  46. #define Application Webbroker::Application
  47. #pragma link "cgiapp.obj"
  48. #pragma link "webbroker.obj"
  49. //---------------------------------------------------------------------------
  50. USERES("%s.res");
  51. //---------------------------------------------------------------------------
  52. WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
  53. {
  54.     try
  55.     {
  56.         Application->Initialize();
  57.         Application->Run();
  58.     }
  59.     catch (Exception &exception)
  60.     {
  61.         Sysutils::ShowException(&exception, Sysutils::ExceptAddr());
  62.     }
  63.     return 0;
  64. }
  65. //---------------------------------------------------------------------------
  66. |//---------------------------------------------------------------------------
  67. #include <condefs.h>
  68. #include <stdio.h>
  69. #include <stdlib.h>
  70. #include <string.h>
  71. #include <SysUtils.hpp>
  72. #include <WebBroker.hpp>
  73. #include <CGIApp.hpp>
  74. #pragma hdrstop
  75. #define Application Webbroker::Application
  76. #pragma link "cgiapp.obj"
  77. #pragma link "webbroker.obj"
  78. //---------------------------------------------------------------------------
  79. int main(int argc, char* argv[])
  80. {
  81.     try
  82.     {
  83.         Application->Initialize();
  84.         Application->Run();
  85.     }
  86.     catch (Exception &exception)
  87.     {
  88.         Sysutils::ShowException(&exception, Sysutils::ExceptAddr());
  89.     }
  90.     return 0;
  91. }
  92. //---------------------------------------------------------------------------
  93. |//---------------------------------------------------------------------------
  94. #include "%s.h"
  95. //---------------------------------------------------------------------------
  96. #pragma package(smart_init)
  97. #pragma resource "*.dfm"
  98. T%s *%1:s;
  99. //---------------------------------------------------------------------------
  100. __fastcall T%1:s::T%1:s(TComponent* Owner)
  101.     : T%s(Owner)
  102. {
  103. }
  104. //---------------------------------------------------------------------------
  105. |//---------------------------------------------------------------------------
  106. #ifndef %sH
  107. #define %0:sH
  108. //---------------------------------------------------------------------------
  109. #include <SysUtils.hpp>
  110. #include <Classes.hpp>
  111. #include <HTTPApp.hpp>
  112. //---------------------------------------------------------------------------
  113. class T%s : public T%s
  114. {
  115. __published:    // IDE-managed Components
  116. private:    // User declarations
  117. public:        // User declarations
  118.     __fastcall T%1:s(TComponent* Owner);
  119. };
  120. //---------------------------------------------------------------------------
  121. extern PACKAGE T%1:s *%1:s;
  122. //---------------------------------------------------------------------------
  123. #endif
  124. |
  125.