引子
Web程式開發對開發工具提出了極大挑戰，面對用戶的眾多需求，許多公司推出一大堆開發平台：開發桌面應用程式和C/S程式的，開發中間件的，開發Web伺服器的。這造成程式設計師面對一大堆工具無從下手。
DELPHI和其他開發工具不同，因為它是一個開放系統，只要靈活使用一些控件，即可開發出各種類型的系統，不論N－Tie程式、多執行緒程式、分散式計算程式（包括DCOM和CORBAR）、 TCP程式、Web程式、ActiveX、中間件、推程式（Push），甚至你可以用它來寫彙編程式。
DELPHI將ISAPI/NSAPI/CGI/WCGI等巧妙地封裝成一個類，使用者只要在編譯時選擇編譯結果，就可以得到不同的系統。
在DELPHI4中InPRise公司進一步加強了對Web程式開發的支持，可以開發出更好更強的系統。以下是開發Web應用程式中的幾個常見問題，可以供大家參考。如果沒有特別申明，則表示程式運行於DELPHI 4下。
如何從Web Server application傳回一幅圖像?
Web Server Application不僅可以產生複雜的頁面文檔，也可以根據使用者要求返回不同的映像。當然有比較簡單的方法，根據輸入參數不同，〈img src...〉標記也指向不同的URL位址。這裡我們不用這個辦法，而是利用DLL回影像。
當然要先建立一個頁面容器（page producer），內容如下：
〈html〉
〈body〉This is a test〈BR〉〈img src=″/scripts/mydll.dll/picture″〉〈/body〉
〈/html〉
接下來我們設定對應PathInfo的動作事件，返回影像結果，原始碼如下：
（注意：單元聲明中要包含JPEG單元）
procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
Jpg: TJpegImage;
S: TMemoryStream;
begin
Jpg := TJpegImage.Create;
try
Jpg.LoadFromFile(′test′);
S := TMemoryStream.Create;
try
Jpg.SaveToStream(S);
S.Position := 0;
Response.ContentType := ′image/jpeg′;
Response.ContentStream := S;
// 必須在串流釋放前完成
Response. SendResponse;
finally
S.Free;
end;
finally
Jpg.Free;
end;
end;
實際上用這種方法和前面提到的簡單做法相比，具有更安全和更靈活的特點。在某些地方靈活使用，以此為基礎稍加修改可以產生一般開發工具難以實現的效果。
如何在ISAPI/NSAPI動態連線庫（DLL）中使用本機資料庫驅動程式（native access driver）？
這是因為DAO 3.0 或DAO 3.5是所謂thread－safe（線程安全程序），而一個Web伺服器（例如IIS）會隨用戶請求產生多個線程，同時把ISAPI對應的DLL也列為線程。這時ISAPI就會透過BDE通知DAO，告訴它不符合線程安全規定。
解決的方法有很多，如果你一定要存取Access 95/97庫，那麼可以透過ODBC存取。 ODBC不會經過DAO，而且也是一個執行緒安全程式。另外還有一些第三方的控制集，透過他們可以直接由BDE存取Access 95/97，效率更高。
使用者存取我Web伺服器上的ISAPI DLL，可是報告：「Invalid filename"（無效的檔案名稱），然而文件的確存在的。對了，我的資料庫在一台Novell 伺服器上。這是為什麼呢？
你沒有設定對應於你IUSR_XXX帳戶的驅動器路徑映射（MAPING）。因為Novell不是採用FAT，所以要手動加入路徑映射。當然，可以做成開機登入腳本。請牢記，如果你運行IIS作為Web伺服器，而又涉及Novell，無論作為檔案伺服器或資料庫伺服器，都要定義好路徑映射。
「Invalid configuration parameter for alias {alias_name}"（無效的別名配置），當我設定一個ODBC DSN，並透過它存取ISAPI/NSAPI伺服器時就出現這樣一個錯誤。
你如果要為訪問的用戶（IIS用戶）建立一個ODBC別名，那麼要注意創建一個SYSTEM DSN（系統DNS），而不要創建“用戶DNS”，雖然“用戶DNS”是缺省設定。
如何取得客戶機（訪問機器）的名稱和IP位址？
實作這個功能用TCP控制來做非常容易。從Internet頁面上選取一個TCP控件，然後直接就可以得到你所需要的：
Memo1.Lines.Add(TCP1.LocalHostName);
Memo1.Lines.Add(TCP1.LocalIp);
當然，如果你不希望這樣做，還有比較複雜的方法：
uses Winsock;
procedure TForm1.FormCreate(Sender: TObject);
var
wVersionRequested : Word;
wsaData : TWSAData;
begin
{創建WinSock}
wVersionRequested := MAKEWORD(1, 1);
WSAStartup(wVersionRequested, wsaData);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
p : PHostEnt;
s : array[0..128] of char;
p2 : pchar;
begin
{得到電腦名稱}
GetHostName(@s,128);
p:=GetHostByName(@s);
Memo1.Lines.Add(p^.h_Name);
{得到機器IP位址}
p2 := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
Memo1.Lines.Add(p2);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
{釋放WinSock}
WSACleanup;
end;
這是一個調用了WINSOCK的獨立單元，你可以把它直接嵌入你的程式中去。
在DELPHI 3中為何不能建立真正的多執行緒DLL？
雖然DELPHI3中的ISAPI DLL精靈已經為創建多執行緒DLL產生了大量程式碼，但還是有一個嚴重的缺陷：沒有申明本應用程式是一個多執行緒的程式。所以需要你加一句話：
IsMultiThread := TRUE;
把這句話放在DPR程式begin－end塊的開始處，使之成為第一句。
如何得知現在是否和Internet連線？
最簡單的方法是用一個TCP元件得到自己目前的IP，透過判斷IP得知是否連入Internet。例如：
if TCP1.LocalIp = '0.0.0.0' then
ShowMessage('目前沒有連入Internet!');
要注意的是：因為Internet和Intranet沒本質區別，所以一般不能判定是和Internet連線還是僅僅連入Intranet。當然。你也可以再加一個PING元件，去PING一個比較穩定、速度比較快的站點，如果連通則表示已經接入Internet。不過這種辦法通用性不好。
如何列印一個Web頁面？
可以選取HTML控制項的AutoPrint方法。例如：
uses Printers;
procedure TForm1.Button1Click(Sender: TObject);
var
OldCur: TCursor;
begin
OldCur := Screen.Cursor;
with Printer do
begin
BeginDoc;
HTML1.AutoPrint(handle);
Title := HTML1.URL;
EndDoc;
end;
Screen.Cursor := OldCur;
end;
另外還可以利用其PrintPage方法。不過我推薦你採用AutoPrint，因為這樣控制比較靈活，可以過濾一些你不希望列印的內容。
作者Blog： http://blog.csdn.net/zou5655/