Если вы хотите выйти из уровня энтузиастов ASP, вам следует научиться писать компоненты для ASP. Я искал в Google и обнаружил, что есть только несколько статей о компонентах Delphi Phising ASP, поэтому сегодня я написал эту основную статью о компонентах Delphi Phising ASP, надеясь, что это будет полезно для новичков. Если вы хотите изучить VB, чтобы написать компоненты ASP, рекомендуется проверить статью Tornado Big Brother (http://blog.csdn.net/online/category/9939.aspx), что я не могу сравнить с. хе -хе :)
Давайте начнем, давайте напишем пример "Hello World!" Я использую Delphi 7 здесь.
1. File-> new-> ore-> activex-> библиотека ActiveX, а затем сохраните ее как showdll.dpr
2. Опять же, File -> new -> Другие -> Activex -> Activex Server объект, заполните CoclassName: ShowHello, другие остаются неизменными, нажмите OK.
3. Теперь начните писать программу и сначала добавьте метод. Выберите IshayHello-> Щелкните правой кнопкой мыши-> New-> Метод и заполните имя метода: SAYWORLD.
4 Теперь начните написать программу, сохранить Unit1 как show.pas, а затем добавьте код метода метода Sayworld
Полный код show.pas заключается в следующем:
Единое шоу;
{$ Warn symbol_platform off}
интерфейс
Использование
Comobj, activex, asptlb, showdll_tlb, stdvcl;
тип
Tshowhello = class (taspobject, ishowhello)
защищен
процедура на странице;
Процедура OnTartPage (const uscriptingContext: iunknown);
Процедура Saysworld;
конец;
Выполнение
использует ComServ;
Процедура tshowhello.onendpage;
Начинать
унаследован на странице;
конец;
Процедура tshowhello.onstartpage (const uscriptingContext: iunknown);
Начинать
унаследован OnStartPage (AscriptingContext);
конец;
Процедура tshowhello.sayworld ();
Начинать
response.write ('Hello World');
конец;
Инициализация
Tautoobjectfactory.create (comserver, tshowhello, class_showhello,
cimultiinstance, tmapartment);
конец.
4 Нажмите «Запустить», составьте его в DLL и автоматически зарегистрируйте его. В настоящее время вы будете подсказывать:
Позвольте вам разместить его на веб -сервер.
Модифицированный код showhello.asp выглядит следующим образом:
<html>
<Тело>
<Title> Тестирование Delphi ASP </title>
<Центр>
<h3> Вы должны увидеть результаты вашего метода Delphi Active Server ниже </H3>
</Center>
<hr>
<% Set delphiaspobj = server.createObject ("showdll.showhello")
Delphiaspobj.sayworld
%>
<hr>
</Body>
</Html>
Запустите его под сайтом IIS, чтобы увидеть эффект:
5 другой:
Компонент, записанный Delphi, после регистрации в службу компонентов Win2000 вы можете увидеть метод интерфейса компонента
6 Существуют также параметры, которые проходят между страницей ASP и компонентом, которые фактически должны передавать параметры в метод CALL (функция). Пожалуйста, практикуйте их больше. В основном это научиться инкапсулировать основной код ASP и играть роль в привлечении нефрита.