Если вы хотите оторваться от уровня энтузиастов ASP, то вам следует научиться писать компоненты для ASP. Я поискал в Google и обнаружил, что существует всего несколько статей о написании компонентов asp в Delphi, поэтому сегодня я написал эту базовую статью о написании компонентов asp в Delphi, надеюсь, она будет полезна новичкам.
Для начала давайте напишем пример «Привет, мир!». Здесь я использую Delphi 7.
1.Файл->Создать->Другое->ActiveX->Библиотека ActiveX, затем сохраните его как showdll.dpr.
2. Снова перейдите в меню «Файл->Создать->Другие->ActiveX->Объект сервера ActiveX», заполните CoClassName: showhello, оставьте все остальное без изменений и нажмите «ОК».
3. Теперь начните писать программу и сначала добавьте метод. Выберите Ishowhello->щелкните правой кнопкой мыши->Создать->Метод и введите имя метода:sayworld.
4. Теперь начните писать программу, сохраните Unit1 как show.pas, а затем добавьте код методаsayworld. 
Полный код show.pas выглядит следующим образом:
unit show;
{$WARN SYMBOL_PLATFORM ВЫКЛ}
интерфейс
использует
ComObj, ActiveX, AspTlb, showdll_TLB, StdVcl;
тип
Tshowhello = класс (TASPObject, Ishowhello)
защищенная
процедура OnEndPage
;
процедураOnStartPage
(const AScriptingContext: IUnknown);
выполнение
использует ComServ;
процедура Tshowhello.OnEndPage
начать
унаследованныйконец
OnEndPage
;
процедура Tshowhello.OnStartPage(const AScriptingContext: IUnknown);
start
inherited
OnStartPage(
AScriptingContext
)
;
внутри написано точно так же, просто инкапсулировано здесь.
конец;
инициализация
TAutoObjectFactory.Create(ComServer, Tshowhello, Class_showhello,
ciMultiInstance, tmApartment
end
4
).Нажмите «Выполнить», чтобы скомпилировать его в dll и автоматически зарегистрировать. В это время будет предложено:
Давайте запустим его на веб-сервере. Хорошо, теперь напишем asp-файл и вызовем его. Обратите внимание, что Delphi уже сгенерировал asp-файл. Мы можем просто изменить метод вызова.
Измененный код showhello.asp выглядит следующим образом:
<HTML>
<BODY>
<TITLE> Тестирование Delphi ASP </TITLE>
<CENTER>
<H3> Вы должны увидеть результаты вашего метода Active Server Delphi ниже </H3>
</ CENTER >
<HR>
<% Set DelphiASPObj = Server.CreateObject("showdll.showhello")
DelphiASPObj.sayworld
%>
<HR>
</BODY>
</HTML>
Запустите его на сайте iis, чтобы увидеть эффект: 
5. Другое:
Для компонентов, написанных на Delphi, после регистрации в службе компонентов win2000 вы можете просмотреть метод интерфейса компонента.
6． Между страницами и компонентами asp также передаются параметры. Обратите внимание, что при определении в Delphi они должны соответствовать типу данных vbs. Лучше всем практиковать это больше. Основная цель здесь — позволить каждому научиться инкапсулировать основной код asp и служить отправной точкой.
Не так много слов, чтобы написать это, но делать скриншоты немного хлопотно. Мой уровень ограничен. Если я допущу ошибку, пожалуйста, хлопните ее аккуратно! ! ! !
Один ветер и одно
облако2004-10-18