How to use CXP pages with eXpress++ library functions
Posted: Wed Nov 05, 2014 11:35 am
Here are instructions for setting up CXP to use your own libraries or eXpress++ libraries.
Under the WWW root directory of your CXP application, you will need to create a new folder named Helpers.
For example, below is the CXP source code for an application that lists customers from a database. The application is in a file named CUSTOMER.CXP under C:\wamp\www\ds\customers (I am using Apache). If I were using IIS then it would be in C:\inetpub\wwwroot\ds\customers.
I created a folder named C:\wamp\www\ds\customers\Helpers and I copied DCLIPX.LIB and DCLIPX.DLL into the Helper folder.
I then created a file named C:\wamp\www\ds\customers\application.config. It has the following content:
The CXP application program (CUSTOMERS.CXP) source code is listed below. The sample program lists the contents of the CUSTOMERS.DBF file in both "simple text format" and "html table format". Look at how flexible the CXP language is at handling both formats. Also, you will see that the CXP language handles user defined commands such as those in "dchtml.ch". Now that CXP is a reality, I intend to greatly improve on the DCREAD HTML features in eXpress++.
Your #include files must reside in the INCLUDE folder of the CXP runtime, i.e. C:\cxp20\include or
C:\Program Files (x86)\Alaska Software\cxp20\include.
To run this CXP page and view it's output in your browser click here:
http://bb.donnay-software.com/ds/custom ... tomers.cxp
Under the WWW root directory of your CXP application, you will need to create a new folder named Helpers.
For example, below is the CXP source code for an application that lists customers from a database. The application is in a file named CUSTOMER.CXP under C:\wamp\www\ds\customers (I am using Apache). If I were using IIS then it would be in C:\inetpub\wwwroot\ds\customers.
I created a folder named C:\wamp\www\ds\customers\Helpers and I copied DCLIPX.LIB and DCLIPX.DLL into the Helper folder.
I then created a file named C:\wamp\www\ds\customers\application.config. It has the following content:
Code: Select all
<?xml version="1.0" encoding="iso-8859-1" standalone="yes"?>
<info author = "Roger Donnay"
version = "1.0"
copyright= "Copyright (C) $YEAR$ Donnay Software Designs. All rights reserved"
title = "Customers"
header = "Sample program for listing Sample Customer Database" />
<!-- List the libraries to be linked with the CXP page -->
<helpers
lib="dclipx.lib"
/>Your #include files must reside in the INCLUDE folder of the CXP runtime, i.e. C:\cxp20\include or
C:\Program Files (x86)\Alaska Software\cxp20\include.
To run this CXP page and view it's output in your browser click here:
http://bb.donnay-software.com/ds/custom ... tomers.cxp
Code: Select all
<%#Code locality="page-global"%>
<%
/// This code is injected at the beginning of the intermediate
/// code generated by the CXC Builder. This is the perfect place
/// for the statics, classes, functions and procedures being
/// used in your CXP page.
///
#include "dcdialog.ch"
#include "dchtml.ch"
%>
<%#Code locality="page-render"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"/>
</head>
<body>
<!--- Page content goes here --->
<h1>My Customer List</h1>
<h3>Rendering as simple text</h3>
<pre>
<%
USE (::PhysicalPath+"customer.dbf") ;
INDEX (::PhysicalPath+"\customer.cdx");
VIA "FOXCDX"
oRecord := CUSTOMER->(DC_DbRecord():new())
DO WHILE !CUSTOMER->(Eof())
CUSTOMER->(DC_DbScatter(oRecord))
? oRecord:bill_name, oRecord:bill_strt, oRecord:bill_city, oRecord:bill_state
CUSTOMER->(dbSkip())
ENDDO
%>
</pre>
<h3>Rendering in an HTML Table</h3>
<table border=1>
@CUSTOMER->(dbGoTop())
@DO WHILE !CUSTOMER->(Eof())
@CUSTOMER->(DC_DbScatter(oRecord))
<tr>
<td>@(oRecord:bill_name)</td>
<td>@(oRecord:bill_strt)</td>
<td>@(oRecord:bill_city)</td>
<td>@(oRecord:bill_state)</td>
</tr>
</tr>
@CUSTOMER->(dbSkip())
@ENDDO
</table>
<h3>Rendering with DCREAD HTML</h3>
<%
DCTABLE OBJECT oTable ROWS CUSTOMER->(RecCount()) COLUMNS 4 ;
BGCOLOR '#33CCFF' ;
BORDER 5 ;
BORDERCOLORLIGHT '#FFFFFF' ;
BORDERCOLORDARK '#FFFFFF' ;
CELLPADDING 5 ;
CELLSPACING 0
CUSTOMER->(dbGoTop())
nRow := 1
DO WHILE !CUSTOMER->(Eof())
@ nRow,1 DCHTML TEXT CUSTOMER->bill_name PARENT oTable
@ nRow,2 DCHTML TEXT CUSTOMER->bill_strt PARENT oTable
@ nRow,3 DCHTML TEXT CUSTOMER->bill_city PARENT oTable
@ nRow,4 DCHTML TEXT CUSTOMER->bill_state PARENT oTable
CUSTOMER->(dbSkip())
nRow++
ENDDO
DCREAD HTML TO cHtml
? cHtml
CUSTOMER->(dbCloseArea())
%>
</body>
</html>