Elegant coding

Let’s see the history of java web development, there are four major steps,
1, Java Servlet - use java code to generate the all of html content, developers need to take a lot of time to do the coding for both of html content and server side business logic, and very hard to maintain the html content and java code.

2. Jsp – embed the java code into html content by using java bean that is used to generated the dynamic html content, it solve the problem of maintenance the static html content, and it bring some other problem, the java code is separated to everywhere, the presentation view and business logic are mixed together, it is easier to cause the system mass up when the system is getting bigger.

3.Struts framework – Java code do not generate the html content directly, and html content do not include the java code directly, it use html tag-lib to combine the code and content together, the html tag-lib permits java developers to boil down complex server-side behaviors into simple and easy-to-use elements that content developers can easily incorporate into their html pages
，html tags are capable to implement some simple programming logic such as branch (if else ) and loop(for), and the html tag-lib can be re-used and extended.
The struts separates the presentation view and business logic very well, so it meet the need of most of web system and become more and more popular, so far the problem for html tag-lib is the management and customizing, the content developers need to take some time adjust the properties of html tag to achieve the visual effect they want, and java developers are not easy to customize new html tag..

4. JSF (similar to asp.net) - it is the newest method to do the web development. It uses visual component technology to help java developers to customize the html tag, and the content developers could quickly and visually reference the html tag. It greatly increases the productivity of web development.

a chinese article about the web tech(fastm

Friday, July 09, 2004

Free Pascal supplied units : Reference guide.

23 The TYPINFO unit

Sunday, July 04, 2004

Regular Expression

A IT FTP site

MCSD.net

Saturday, July 03, 2004

Mastering Delphi 6 Source Code- XML

Wednesday, June 30, 2004

.NET Designers - part 1

Stress Testing Web Application using Microsoft's Web Application Stress Tool

Tuesday, June 29, 2004

Paging in J2EE: Manage Large Result Sets Efficiently

Monday, June 28, 2004

Building Services Today

Performance Quiz #3

What's new in System.Reflection (and friends)

Sunday, June 27, 2004

Another attempt at Functions as objects.

Hijack Session Variables in ASP.NET Robbe Morris

Friday, June 25, 2004

A chinese article about the hibernate

Thursday, June 24, 2004

Processing XML with Java

a chinese article about Java and XML

Java Stored Procedures

Using Oracle SOAP

Wednesday, June 23, 2004

use jdeveloper to do the web service

Tuesday, June 22, 2004

Database Web Services Samples and How-To

Monday, June 21, 2004

Java Stored Procedures

Creating the Java Axis Client

Implementing a Java Stored procedure

Sunday, June 20, 2004

Developing Microsoft ASP.NET Server Controls and Components

Friday, June 18, 2004

Windows Service Administration with .NET Part 3 - Controlling Your Service

Visual Studio 2005: Bridge the Gap Between Development and Operations with Whitehorse -- MSDN Magazine, July 2004

Thursday, June 17, 2004

Office Developer Center: Creating Charts in Microsoft Office Excel 2003 Using Visual Basic for Applications Code

Netcoole Migration Services

Wednesday, June 16, 2004

I wrote a small copy file routine that support overlaped reading and writing, it suppose to has better performance.

procedure RSICopyFile(ASourceFileName, ADestFileName: string; ABuffSize: integer; AOverLaped: boolean);
const
MaxBufSize = 1024 * 1024 * 50; // 50mb
var
FReadhandle: THandle;
FWritehandle: THandle;
FBuffer: Pointer;
BufSize, FBytesInBuff, FFilePos, FBytesRead, FBytesWrite: Integer;
FFileSize: Integer;
FRead_os, FWrite_os: TOverlapped;
ErrorFlag: Dword;

begin
//open the source file
if not AOverLaped then
FReadhandle := CreateFile(PChar(ASourceFileName), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING
, FILE_ATTRIBUTE_NORMAL or FILE_FLAG_SEQUENTIAL_SCAN, 0)
else
begin
FReadhandle := CreateFile(PChar(ASourceFileName), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING
, FILE_ATTRIBUTE_NORMAL or FILE_FLAG_OVERLAPPED, 0);

FillChar(FRead_os, SizeOf(FRead_os), 0);
FRead_os.hEvent := CreateEvent(nil, True, False, nil);
FRead_os.Offset := 0;
FRead_os.OffsetHigh := 0;
end;

if FReadhandle = 0 then
begin
raise exception.create('Cannot open the readding file');
end;

// get the size of source file
FFileSize := GetFileSize(FReadhandle, 0);

//open the dest file, create anew one if not exist
if not AOverLaped then
FWritehandle := CreateFile(PChar(ADestFileName), GENERIC_READ or GENERIC_WRITE,
0, nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0)
else
begin
FWritehandle := CreateFile(PChar(ADestFileName), GENERIC_READ or GENERIC_WRITE,
0, nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL or FILE_FLAG_OVERLAPPED, 0);

FillChar(FWrite_os, SizeOf(FWrite_os), 0);
FWrite_os.hEvent := CreateEvent(nil, True, False, nil);
FWrite_os.Offset := 0;
FWrite_os.OffsetHigh := 0;
end;

if FWritehandle = 0 then
begin
raise exception.create('Cannot open the writting file ');
end;

//Set the buffer size
if ABuffSize > MaxBufSize then
BufSize := MaxBufSize
else
BufSize := Integer(ABuffSize);

FBuffer := VirtualAlloc(0, BufSize, Mem_ReServe or Mem_Commit, PAGE_READWRITE);
try
if FFileSize > 0 then
begin
if FFileSize > MaxInt then
FFilePos := MaxInt
else
FFilePos := FFileSize;
while FFilePos > 0 do
begin
if FFilePos > BufSize then FBytesInBuff := BufSize else FBytesInBuff := FFilePos;
//clean up before read
FillChar(FRead_os, SizeOf(FRead_os), 0);
//Read file to buff
if not AOverLaped then
begin
if not ReadFile(FReadhandle, FBuffer^, FBytesInBuff, LongWord(FBytesRead), nil) then
begin
raise exception.create('file cannot be read');
end;
end
else
begin
if not ReadFile(FReadhandle, FBuffer^, FBytesInBuff, LongWord(FBytesRead), @FRead_os) then
begin
ErrorFlag := GetLastError;

if ErrorFlag <> 0 then
begin
if ErrorFlag = ERROR_IO_PENDING then
begin
if WaitForSingleObject(FRead_os.hEvent, INFINITE) = WAIT_OBJECT_0 then
if not GetOverlappedResult(FReadhandle, FRead_os,
LongWord(FBytesRead), False) then
begin
ErrorFlag := GetLastError;
if ErrorFlag = ERROR_HANDLE_EOF then
begin
exit; // The end of the stream was hit.
end;
end;

end
else if ErrorFlag = ERROR_HANDLE_EOF then
begin
exit; // The end of the stream was hit.
end
else
begin
raise exception.create('file cannot be read');
end;
end;
end;
inc(FRead_os.Offset, FBytesRead);
end;

//Write buff to file
if not AOverLaped then
begin
if FBytesRead = 0 then
begin
exit; // The end of the stream was hit.
end;
if not WriteFile(FWritehandle, FBuffer^, FBytesInBuff, LongWord(FBytesWrite), nil) then
begin
raise exception.create('file cannot be written');
end;
end
else
begin

if not WriteFile(FWritehandle, FBuffer^, FBytesInBuff, LongWord(FBytesWrite), @FWrite_os) then
begin
ErrorFlag := GetLastError;
if ErrorFlag <> 0 then
begin
if ErrorFlag = ERROR_IO_PENDING then
begin
if WaitForSingleObject(FWrite_os.hEvent, INFINITE) = WAIT_OBJECT_0 then
if not GetOverlappedResult(FWritehandle, FWrite_os,
LongWord(FBytesWrite), False) then
begin
ErrorFlag := GetLastError;
if ErrorFlag = ERROR_HANDLE_EOF then
begin
exit; // The end of the stream was hit.
end;
end;
end
else if ErrorFlag = ERROR_HANDLE_EOF then
begin
exit; // The end of the stream was hit.
end
else
begin
raise exception.create('file cannot be writeen');
end;
end;
end;
Inc(FWrite_os.Offset, FBytesWrite);
end;

//Change the position
Dec(FFilePos, FBytesRead);
end;
end;
finally
VirtualFree(FBuffer, BufSize, Mem_DeCommit or Mem_Release);
CloseHandle(FReadhandle);
CloseHandle(FWritehandle);
end;

end;