home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Delphi Anthology
/
aDELPHI.iso
/
Runimage
/
Delphi50
/
Bin
/
dclnet50.bpl
/
0
/
RCDATA
/
CPPWEBMODULES
next >
Wrap
Text File
|
1999-08-11
|
4KB
|
125 lines
//---------------------------------------------------------------------------
#include <WebBroker.hpp>
#include <ISAPIApp.hpp>
#include <Isapi2.hpp>
#pragma hdrstop
#define Application Webbroker::Application
#pragma link "isapiapp.obj"
#pragma link "webbroker.obj"
//---------------------------------------------------------------------------
int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*)
{
try
{
Application->Initialize();
Application->Run();
}
catch (Exception &exception)
{
}
return 1;
}
//---------------------------------------------------------------------------
extern "C"
{
BOOL __export WINAPI GetExtensionVersion(Isapi2::THSE_VERSION_INFO &Ver)
{
return Isapiapp::GetExtensionVersion(Ver);
}
//---------------------------------------------------------------------------
int __export WINAPI HttpExtensionProc(Isapi2::TEXTENSION_CONTROL_BLOCK &ECB)
{
return Isapiapp::HttpExtensionProc(ECB);
}
//---------------------------------------------------------------------------
BOOL __export WINAPI TerminateExtension(int dwFlags)
{
return Isapiapp::TerminateExtension(dwFlags);
}
}
//---------------------------------------------------------------------------
|//---------------------------------------------------------------------------
#include <SysUtils.hpp>
#include <WebBroker.hpp>
#include <CGIApp.hpp>
#pragma hdrstop
#define Application Webbroker::Application
#pragma link "cgiapp.obj"
#pragma link "webbroker.obj"
//---------------------------------------------------------------------------
USERES("%s.res");
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->Run();
}
catch (Exception &exception)
{
Sysutils::ShowException(&exception, Sysutils::ExceptAddr());
}
return 0;
}
//---------------------------------------------------------------------------
|//---------------------------------------------------------------------------
#include <condefs.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <SysUtils.hpp>
#include <WebBroker.hpp>
#include <CGIApp.hpp>
#pragma hdrstop
#define Application Webbroker::Application
#pragma link "cgiapp.obj"
#pragma link "webbroker.obj"
//---------------------------------------------------------------------------
int main(int argc, char* argv[])
{
try
{
Application->Initialize();
Application->Run();
}
catch (Exception &exception)
{
Sysutils::ShowException(&exception, Sysutils::ExceptAddr());
}
return 0;
}
//---------------------------------------------------------------------------
|//---------------------------------------------------------------------------
#include "%s.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
T%s *%1:s;
//---------------------------------------------------------------------------
__fastcall T%1:s::T%1:s(TComponent* Owner)
: T%s(Owner)
{
}
//---------------------------------------------------------------------------
|//---------------------------------------------------------------------------
#ifndef %sH
#define %0:sH
//---------------------------------------------------------------------------
#include <SysUtils.hpp>
#include <Classes.hpp>
#include <HTTPApp.hpp>
//---------------------------------------------------------------------------
class T%s : public T%s
{
__published: // IDE-managed Components
private: // User declarations
public: // User declarations
__fastcall T%1:s(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE T%1:s *%1:s;
//---------------------------------------------------------------------------
#endif
|