Создание серверных приложений

Компонент IXPAGEPRODUCER

Для реализации доступа к данным можно использовать компоненты страницы InternetBeans палитры компонентов.

На вкладке Design окна редактора следует добавить в окно структуры компонент IxPageProducer со страницы InternetBeans палитры компонентов.

Объект ixPageProducer1 будет помещен в секцию Other окна структуры (рис. 14.2).

При этом в код модуля добавляется строка:

IxPageProducer ixPageProducer1 = new IxPageProducer();

Для определения связи с модулем данных установите значения следующих свойств объекта ixPageProducer1:

Обратите внимание, что свойство rootPath автоматически будет установлено равным полному пути к указанному имени HTML-файла.

Одновременно с этим в код модуля будет добавлен вызов метода ixPageProducer1.setHtmlFile("C:\\ File1.html");.

Компонент IXCONTROL

Компонент IxControl позволяет устанавливать связь между элементом управления HTML-страницы и полем набора данных.

На вкладке Design окна редактора следует добавить в окно структуры компонент IxControl со страницы InternetBeans палитры компонентов.

Объект ixControl1 будет помещен в секцию Other окна структуры.

Одновременно с этим в код модуля добавляется следующая строка:

IxControl ixControl1 = new IxControl();

Для связывания элемента управления с полем набора данных установите значения следующих свойств объекта ixControl1:

Для каждого поля набора данных следует добавить свой компонент типа IxControl.

Обработка событий

Компонент IxControl может выполнять обработку событий. Так, если данный компонент связан с командной кнопкой Submit, то для обработки события следует перейти на вкладку Events и создать обработчик события submitPerformed.

Например:

ixControl2.addSubmitListener(new 
com.borland.internetbeans.SubmitListener() {
      public void submitPerformed(SubmitEvent e) {
        ixControl2_submitPerformed(e);
      }
    });
:
void ixControl2_submitPerformed(SubmitEvent e) {

  }

Вставьте в тело метода обработчика события submitPerformed следующий код:

// Запрос текущего модуля данных:
    DataModule1 dm = (DataModule1) ixPageProducer1.getSessionDataModule(e.getSession());
// передача и сохранение данных, введенных пользователем, 
// в источнике данных, определенным модулем данных:
    dm.getCustomer().post();
    dm.getCustomer().saveChanges();
// Метод getCustomer - это автоматически сформированный метод модуля 
//данных DataModule1.java, возвращающий объект типа QueryDataSet

Методы post и saveChanges класса QueryDataSet используются для передачи и сохранения изменений в базе данных.

Компонент IXTABLE

Компонент IxTable определяет динамически генерируемый набор данных.

Для определения набора данных установите значения следующих свойств объекта IxTable:

Методы DOPOST и DOGET

Методы doPost и doGet кода сервлета используются для обработки HTTP-запроса и формирования возвращаемой HTML-страницы.

При использовании компонента IxPageProducer в тело метода doGet следует вставить только одну строку:

ixPageProducer1.servletGet(this, request, response);

Метод servletGet класса IxPageProducer выполняет следующие начальные действия по обработке GET HTTP-запроса:

При использовании компонента IxPageProducer в тело метода doPost могут быть вставлены следующие строки:

//  Получение объекта модуля данных:
DataModule1 dm = (DataModule1) 
       ixPageProducer1.getSessionDataModule(request.getSession());
    ixPageProducer1.servletPost(this, request, response);
// Отображение данных, переданных из формы
    doGet(request, response);

Метод doPost в данном примере используется для обработки параметров запроса. Для динамического формирования HTML-документа вызывается метод doGet.

Метод servletPost класса IxPageProducer выполняет начальные действия по обработке POST HTTP-запроса и, если была нажата кнопка submit, то вызывает обработчик события submitPerformed.

Публикация данных на JSP-страницах

Применение бинов JDBCBEAN и HTTPJDBCBEAN для реализации доступа к базе данных

В состав JBuilder Enterprise входит сервер IAS (версия сервера зависит от версии среды JBuilder), по умолчанию инсталлируемый в каталог \Inprise\AppServer.

Данный WEB-сервер содержит в каталоге Inprise\AppServer\examples\beans\inpriseexamples\beans файлы JDBCBean.java и HttpJDBCBean.java, которые можно использовать для упрощения процесса публикации данных на JSP-страницах. Файл JDBCBean.java представляет собой бин, содержащий свойства, определяющие подключение к базе данных, и выполняемый SQL-оператор. Файл HttpJDBCBean.java применяется для определения параметров, используемых бином JDBCBean.

Для того, чтобы выполнить публикацию данных на JSP-странице с использованием существующих файлов с классами бинов, следует:

В файле JDBCBean.java выполнение SQL-запроса осуществляется методом go на основе значений, установленных для свойств данного бина. Так, этот метод реализует следующие основные действия:

Class.forName(classname);

Connection 
con=DriverManager.getConnection(url,username,password);

Statement stmt = con.createStatement();

ResultSet rs = stmt.executeQuery(query);

ResultSetMetaData rsmd = rs.getMetaData();	
cols = rsmd.getColumnCount();		
rows = 0;

В файле HttpJDBCBean.java. метод processRequest выполняет присвоение значений всем свойствам бина JDBCBean, получая эти значения из параметров запроса.

Метод processRequest определяет значения параметров запроса через объект request типа HttpServletRequest:

if ((_p = request.getParameter("classname")) != null) {
	    classname = _p;
	}

Так, если параметр classname определен, то значение одноименного свойства устанавливается равным его значению.

Если все необходимые параметры заданы, то вызывается метод go бина JDBCBean: this.go();

JSP-директивы

JSP-директивы используются для указания процессору JSP, каким образом следует выполнять преобразование JSP-файла в сервлет, какие файлы следует включить в состав JSP-документа, где находится библиотека дескрипторов.

JSP-директива указывается между символами <%@ и %>.

JSP-директива page позволяет указать, какие файлы следует подключать, и определить некоторую информацию об JSP-файле.

Директива page имеет ряд атрибутов, включая следующие:

Так, автоматически формируемая при создании JSP-файла строка

<%@ page contentType="text/html; charset=windows-1251" %>

использует JSP-директиву page для определения типа возвращаемого документа и типа кодировки.

Вызов методов компонентов JAVABEANS из JSP-файла

Для того чтобы создать новый JSP-файл, использующий рассмотренный выше бин, выполните следующие действия:

<jsp:useBean id="jdbc_bean" scope="application" 
class="myjspjdbc1.HttpJDBCBean" />

<%@ page import = "myjspjdbc1.*" session="false" %>

<% jdbc_bean.processRequest(request, response); %>

<p><center><font size=2><b>JSP</b></font></center></p>
<p >Доступ к базе данных через JDBC</p><hr></p>

<FORM action=Jsp1.jsp method=post>	

</FORM>

<table>
<tr> <td> JDBC-драйвер:</td>
		<td><input type="text" name="classname" value="
        <%= jdbc_bean.getClassname() %>" size="40"></td>
		<td></td>  </tr>

<tr> 	<td></td>
		<td><i>sun.jdbc.odbc.JdbcOdbcDriver</i></td> </tr>

<tr>
		<td>JDBC URL-адрес источника данных:</td>
		<td><input type="text" name="url" value="
            <%= jdbc_bean.getUrl() %>" size="40"></td> </tr>   
<tr> 	<td></td>>
		<td><i>jdbc:odbc:MyDB</i></td> </tr>
<tr>
	<td>Имя пользователя:</td>
	<td><input type="text" name="username" value="
            <%= jdbc_bean.getUsername() %>" size="25"></td>
</tr>
<tr>
	<td>Пароль:</td>
	<td><input type="text" name="password" value="
        <%= jdbc_bean.getPassword() %>" size="25"></td>
</tr>
<tr>
	<td>Выполняемый SQL-оператор:</td>
	<td><textarea cols=35 rows=3 name="query" wrap="soft">
            <%= jdbc_bean.getQuery() %></textarea></td>

</tr></table>

<input type="submit" name="submit" value="Выполнить SQL-оператор">

В результате выполненных действий WEB-сервер получит POST-запрос, который будет обработан указанным в теге FORM JSP-файлом. При этом как результат выполнения SQL-оператора будет создан результирующий набор. Далее JSP-файл, используя методы бина, может получить доступ к сформированной информации.

Для того чтобы отобразить на формируемой HTML-странице данные результирующего набора, выполните следующие действия:

<% if (jdbc_bean.getColumnCount() != 0){ %><% -- JSP-скриплет --%>
<table cellspacing="0" cellpadding="5" border="0" BGCOLOR=#EDECE5>
<% for (int i=0; i<jdbc_bean.getColumnCount(); i++){
	 String str0 = jdbc_bean.getColumnLabels(i);
%>

<th><%= str0 %></th>
<% } %>
<% } %>

<% for (int row=1; row<jdbc_bean.getRowCount(); row++) {%>
<tr></tr>
	<% for (int col=0; col<jdbc_bean.getColumnCount(); col++) {
		String str1 = jdbc_bean.getCell(col, row);
	%>
        	<td ><%= str1  %></td>
	<% } %>
<% } %>
</table>

Приведенный выше JSP-скриплет использует метод getRowCount бина JDBCBean для выполнения цикла по количеству строк, а метод getColumnCount - для выполнения цикла по количеству столбцов. Метод getCell бина JDBCBean возвращает массив строк, содержащий значения всех полей одной записи результирующего набора.

Перед выполнением JSP-файла следует откомпилировать классы используемых бинов.

В JBuilder для компиляции данных классов в проект следует добавить библиотеку Servlet. Для этого предварительно скопируйте файл библиотеки Servlet.library в каталог проекта. Для подключения библиотеки выполните команду меню Project|Project Properties и на вкладке Paths выберите страницу Required Libraries. Далее для добавления новой библиотеки щелкните мышью на кнопке Add и в секции Project выберите библиотеку Servlet.

Добавленная библиотека будет отображена в списке библиотек на вкладке Required Libraries.

Для выполнения JSP-файла на Web-сервере Tomcat выделите в окне проекта имя JSP-файла и выполните для него команду контекстного меню Web Run.

После введения значений в отображаемый на вкладке Web View окна содержания результат выполнения JSP-файла, web-сервер формирует HTML-страницу (рис. 14.3), содержащую результат выполнения JSP-скриптов.

Далее приводится код используемых классов ( JDBCBean и HttpJDBCBean ):

// Код файла JDBCBean.java:
package myjspjdbc1;
import java.io.*;
import java.util.*;
import java.sql.*;
public class JDBCBean {
    String classname ; // JDBC-драйвер
    String url ;
    String username ;
    String password ;
    String query ;  // SQL-оператор.
    int rows, cols; // Число строк и столбцов результирующего набора
    Vector result;
    public void setClassname(String classname) {
				this.classname = classname;    }
    public String getClassname() {	return classname;    }
    public void setUrl(String url) {
	this.url = url;
    }
    public String getUrl(){	return url;    }
    public void setUsername(String username) {
				this.username = username;    }
    public String getUsername() {	return username;    }
    public void setPassword(String password) {
				this.password = password;    }
    public String getPassword() {	return password;    }
    public void setQuery(String query) { this.query = query;  }
    public String getQuery() { return query;  }

    protected void go()  // Подключение к БД и выполнение запроса
	throws ClassNotFoundException, SQLException
    {
	// Загрузка JDBC-драйвера
	Class.forName(classname);
	// Создание соединения с базой данных
	Connection con = DriverManager.getConnection(url, 
                               username,
	                             password);
	// Создание и выполнение запроса
	Statement stmt = con.createStatement();
	ResultSet rs = stmt.executeQuery(query);
	ResultSetMetaData rsmd = rs.getMetaData();
	cols = rsmd.getColumnCount();
	rows = 0;
	result = new Vector();
	String s[] = new String[cols];
	for (int i=1; i<=cols; i++) {
	    s[i-1] = rsmd.getColumnLabel(i) ;
	}
	result.addElement(s);
	rows ++;
	// Извлечение данных
	while (rs.next()) {
	    s = new String[cols];
	    for (int i=1; i<=cols; i++) {
	        s[i-1] = helper(rs, rsmd.getColumnType(i), i);
	    }
	    result.addElement(s);
	    rows ++;
	}
    }
    public static void main (String[] args)
    {
	JDBCBean jdbcBean = new JDBCBean();
	String classname = "com.imaginary.sql.msql.MsqlDriver";
	//String url = "jdbc:msql://gaby.eng:4333/demo";
	String url = "jdbc:msql://ridgetop.eng:1114/test";
	String username = "lfu";
	String password = "password";
	//String query = "select * from details";
	String query = "select * from table1";
	jdbcBean.setClassname(classname);
	jdbcBean.setUrl(url);
	jdbcBean.setUsername(username);
	jdbcBean.setPassword(password);
	jdbcBean.setQuery(query);
	try {
	    jdbcBean.go();
	    System.out.println("Seems okay");
	} catch (Exception ex) {
	    ex.printStackTrace();
	}
    }
    public int getColumnCount() {	return cols;    }
    public int getRowCount() {	return rows;    }
    public String getColumnLabels(int col) {
	String[] s = (String[])result.firstElement();
	return s[col];
    }
    public String getCell(int col, int row) {
	String[] s = (String[])result.elementAt(row);
	return s[col];
    }
    protected String helper (ResultSet rs, int dataType, int col)
	throws SQLException
    { 	String retVal = null;   Integer intObj;
	// Запрос данных в зависимости от их типа
	switch(dataType) {
	case Types.DATE:
	    java.sql.Date date = rs.getDate(col);
	    retVal = date.toString();
	    break;
	case Types.TIME:
	    java.sql.Time time = rs.getTime(col);
	    retVal = time.toString();
	    break;
	case Types.TIMESTAMP:
	    java.sql.Timestamp timestamp = rs.getTimestamp(col);
	    retVal = timestamp.toString();
	    break;
	case Types.CHAR:
	case Types.VARCHAR:
	case Types.LONGVARCHAR:
	    retVal = rs.getString(col);
	    break;
	case Types.NUMERIC:
	case Types.DECIMAL:
	    java.math.BigDecimal numeric = rs.getBigDecimal(col, 10);
	    retVal = numeric.toString();
	    break;
	case Types.BIT:
	    boolean bit = rs.getBoolean(col);
	    Boolean boolObj = new Boolean(bit);
	    retVal = boolObj.toString();
	    break;
	case Types.TINYINT:
	    byte tinyint = rs.getByte(col);
	    intObj = new Integer(tinyint);
	    retVal = intObj.toString();
	    break;
	case Types.SMALLINT:
	    short smallint = rs.getShort(col);
	    intObj = new Integer(smallint);
	    retVal = intObj.toString();
	    break;
	case Types.INTEGER:
	    int integer = rs.getInt(col);
	    intObj = new Integer(integer);
	    retVal = intObj.toString();
	    break;
	case Types.BIGINT:
	    long bigint = rs.getLong(col);
	    Long longObj = new Long(bigint);
	    retVal = longObj.toString();
	    break;
	case Types.REAL:
	    float real = rs.getFloat(col);
	    Float floatObj = new Float(real);
	    retVal = floatObj.toString();
	  break;
	case Types.FLOAT:
	case Types.DOUBLE:
	  double longreal = rs.getDouble(col);
	  Double doubleObj = new Double(longreal);
	  retVal = doubleObj.toString();
	  break;
	case Types.BINARY:
	case Types.VARBINARY:
	case Types.LONGVARBINARY:
	  byte[] binary = rs.getBytes(col);
	  retVal = new String(binary);
	  break;
	}
	return retVal;
    }
}
// Код файла HttpJDBCBean.java:
package myjspjdbc1;
import java.io.*;
import java.util.*;
import javax.servlet.http.*;
import java.sql.*;
public class HttpJDBCBean extends JDBCBean {
    public void processRequest(HttpServletRequest request,
	       HttpServletResponse response)
	throws IOException
    {
	// Получение значений параметров, если они заданы
	String _p ;
	if ((_p = request.getParameter("classname")) != null) {
	    classname = _p;
	}
	if ((_p = request.getParameter("url")) != null) {
	    url = _p;
	}
	if ((_p = request.getParameter("username")) != null) {
	    username = _p;
	}
	if ((_p = request.getParameter("password")) != null) {
	    password = _p;
	}
	if ((_p = request.getParameter("query")) != null) {
	    query = _p;
	}
	// Если параметры не заданы, то отображать только форму
	boolean form_only = false;
	if (classname == "" || classname == null) form_only = true;
	if (url == "" || url == null) form_only = true;
	if (username == null) form_only = true;
	if (password == null) form_only = true;
	if (query == null) form_only = true;
	if (form_only) {
	    return;
	}
	try {
	    this.go();  // Вызов метода, выполняющего запрос
	} catch (ClassNotFoundException ex) {
	    PrintWriter writer = response.getWriter();    // Поток вывода
	    writer.println("class " + classname + " not found.");
	} catch (SQLException ex) {
	    PrintWriter writer = response.getWriter();
	    writer.println("Message: " + ex.getMessage());
	    writer.println("Error code: " + ex.getErrorCode());
	    ex.printStackTrace(writer);
	} catch (Exception ex) {
	    PrintWriter writer = response.getWriter();
	    ex.printStackTrace(writer);
	}
    }  }

Реализация серверных приложений в среде DELPHI

Среда Delphi позволяет создавать приложения, выполняемые на web-сервере, с целью формирования HTML-страницы, публикующей данные их базы данных. Это могут быть приложения следующих типов:

web-браузер по указанному URL-адресу запрашивает данные от WEB-сервера. При выполнении запроса устанавливается TCP/IP соединение с сервером, и данные передаются в формате HTML. После завершения передачи данных TCP/IP соединение разрывается.

При этом передаваемая HTML-страница может быть как HTML-файлом, так и результатом выполнения на web-сервере некоторого приложения.

Создание серверного приложения

web-браузер посылает в качестве запроса URL-адрес серверного приложения, а Web-сервер запускает это приложение и передает ему параметры запроса. Сформированная в результате выполнения серверного приложения HTML-страница возвращается WEB-браузеру web-сервером.

Для того, чтобы создать серверное приложение (например CGI), следует:

В результате будет создан проект, содержащий главный файл приложения и модуль Unit1, имеющий следующий код:

{Модуль Unit1.pas}
unit Unit1;
interface
uses   SysUtils, Classes, HTTPApp;
type
  TWebModule1 = class(TWebModule)
  private    { Private declarations }
  public    { Public declarations }
  end;
var
  WebModule1: TWebModule1;
implementation
{$R *.DFM}
end.

Для того чтобы добавить код, формирующий HTML-страницу, следует:

procedure TWebModule1.WebModule1WebActionItem1Action(
           Sender: TObject;
           Request: TWebRequest;    // Объект запроса - 
             // позволяет получать данные о выполняемом запросе
            Response: TWebResponse;  // Объект ответа - 
             // используется для формирования ответа 
              // (HTML-страницы
              var Handled: Boolean);
begin

end;

Response.Content:='<I><База данных MyDB </I> '+
                    <P> <B> Таблица TBL1 </B></P>;

var
  aPage : TStringList;
  i: integer;
begin
  aPage:= TStringList.Create;
  aPage.Add(' База данных MyDB '+ '<BR>');
  aPage.Add(Таблица TBL1 ' + '<BR>');
  aPage.Add('f1 = ' + DataSource1.DataSet.FieldByName('F1').AsString+ '<BR>');
// Последовательно записываем в созданный массив строк
// все значения из открытого набора данных
  Response.Content := aPage.Text;
  aPage.Free;

После размещения созданного серверного приложения в каталог web-сервера, предназначенный для исполняемых файлов, web-браузер может формировать запрос, указывая URL-адрес данного CGI-приложения.

Например: http://localhost/webpub/ProjectDB.exe.

В том случае, если необходимо реализовать не только публикацию данных, но и предоставить средства их редактирования, отображение данных следует выполнять внутри формы в компонентах типа "поле ввода". Кнопка типа submit должна будет вызывать серверное приложение, которое будет использовать получаемые из запроса данные для обновления таблицы базы данных.

Публикация данных с использованием классов TQUERYTABLEPRODUCER и TDATASETTABLEPRODUCER

Для публикации данных из базы данных на HTML-страницы можно использовать следующие классы:

Компонент типа TDataSetTableProducer при формировании HTML-страницы, как правило, обрабатывает следующие события:

Для того чтобы создать серверное приложение, отображающее на HTML-странице поля таблицы базы данных, следует:

<HTML>
<HEAD>
<TITLE> Запрос данных из таблицы </TITLE>
</HEAD>
<BODY>

</BODY>
</HTML>

Сформированная HTML-страница будет отображать таблицу с набором данных, который определен компонентами Table и DataSetTableProducer.

Применение ASP-страниц

Серверные ASP-страницы реализуются как текстовые HTML-файлы с расширением asp, которые содержат сценарии на языке JScript или VBScript. ASP-сценарии записываются между тегами <% и %>.

Доступ к базам данных выполняется из серверных ASP-сценариев посредством вызова методов интерфейса ADO (ActiveX Data Object).

При создании ASP-сценариев можно использовать следующие объекты:

Для работы с базами данных в ASP-файлах удобно использовать объектный интерфейс ADO, который создан на базе OLE DB. Объектная модель ADO представляется набором последовательно используемых объектов, включая следующие:

При применении ADO для соединения с базой данных в ASP-сценарии следует использовать объект ADODB.Connection, а для работы с результирующим набором - объект ADODB.Recordset.

Следующий пример иллюстрирует ASP-сценарий, выполняющий отображение записей из таблицы базы данных:

<%
var con,rs;
con=Server.CreateObject("ADODB.Connection");
con.Open ("MyDB", "User1", "");
srtSQL="Select * from t1";
rs= Server.CreateObject("ADODB.Recordset");
rs.Open (strSQL, con);
%>
<TABLE>
while (! rs.EOF) 
{
%>
<TR> <TD> <%= rs.Fields("field1")%>    </TD>
        <TD><%= rs.Fields("field2")%>    </TD>
</TR>
<% rs.MoveNext();
 }
%>
</TABLE>
<%
rs.Close;
con.Close;
%>

Метод CreateObject ASP-объекта Server создает объект, указываемый параметром. Метод Open ADO-объекта Connection устанавливает соединение с базой данных. Метод MoveNext объекта Recordset выполняет переход к следующей записи.

Объект Recordset позволяет выполнять модификацию записей, используя методы:

Например:

<%
     rs.AddNew;
     rs("field1")="123";
     rs.Update;
%>

Для реализации поиска указываемого значения в столбце результирующего набора следует использовать методы объекта Recordset:

Для наложения на открытый результирующий набор некоторого фильтра вызывается метод Filter объекта Recordset.

Для создания результирующего набора можно использовать метод Execute объекта Command.

Например:

<%@LANGUAGE=VBSCRIPT%>
<! ASP-файл >
<html>
<body>
<%
   dim con, rs, sql1
   sql1="SELECT * FROM Tbl1;"
   set con = Server.CreateObject("ADODB.Connection")
   con.Open "DSN = MyDB"          ' Устанавливаем соединение
   set rs = con.execute(sql1)     ' Открываем результирующий набор 
   if rs.BOF and rs.EOF then      ' Результирующий набор пустой
          Response.Write("Нет строк")
   else   rs.MoveFirst
   Do While Not rs.EOF
                             ' Доступ по имени столбца
       Response.Write(rs("F1")  " "  rs("F2")  "<br>")
       rs.MoveNext
   Loop
   end if
   rs.close    
   set rs = nothing
%>
</body>
</html>

Доступ к значениям столбцов может быть реализован через объект типа Recordset как по имени столбца, так и по его номеру. Отображаемые значения в ASP-сценариях указываются после оператора =.

Например:

<TABLE border = 1>
<%  
	Do while (Not rs.eof) %>
	  <tr>
	     <% For Index=0 to (rs.fields.count-1) %>
	        <td ><% = rs(Index)%></td>   ' Доступ по номеру 
                                             ' столбца
 	     <% Next %>        ' Цикл по столбцам
	  </tr>
 	<% rs.MoveNext 
	Loop             ' Цикл по строкам результирующего набора
%>
</TABLE>