ユニットUnit1は、 インタフェース の使用 Winapi.Windows、Winapi.Messages、System.SysUtils、System.Variants、System.Classes、Vcl.Graphics、 Vcl.Controls、Vcl.Forms、Vcl.Dialogs、IdBaseComponent、IdComponent、 IdTCPConnection、IdTCPClient、IdHTTP、Vclの。 StdCtrls; 入力 TForm1 = クラス（TFormは） BTN1：のTButtonと、 BTN2：TButtonの。 IdHTTP1：TIdHTTP。 mmo1：TMemoオブジェクト。 手順btn1Click（送信者：TObjectを）; 手順btn2Click（送信者：TObjectを）; プライベート { プライベート宣言} 公共 { 公開宣言} エンド; VAR をForm1：TForm1; 実装 { $ R＆LT * DFM。} 手順TForm1.btn1Click（送信者：TObjectを）; VAR URL：文字列 ; // 要求アドレス ParamList：TStringListの; // パラメータ要求リスト ResponseStream：TStringStream; // 戻り値情報 ResponseStr：文字列; 始める ParamList：。= TStringListの作成; ParamList.Add（' ユーザーlinlf = ' ）; ParamList.Add（' PWD = XXXX ' ）; ResponseStream： = TStringStream。作成します（'' ）; 試し // 要求アドレス URL：= ' 8080 / delphiJava / ServletDelphiます。http：// localhost ' ; 試してみる ; IdHTTP1.Post（URL、ParamList、ResponseStream） // IdHTTP1.Get （URL、ResponseStream）; 除く ON E：例外行い 始める ShowMessage（e.Message）; エンド; エンド; // 返されたページの情報を取得 ResponseStrを：= ResponseStream.DataString; // UTF8のプレゼンス中国のページ、必要デコード ResponseStr：=UTF8Decode（ResponseStr）; mmo1.Text： = ResponseStr; 最後に // IdHTTP1.Free; // ResponseStream.Free; エンド; エンド; 手順TForm1.btn2Click（送信者：TObjectを）; VAR URL：文字列 ; // アドレス要求 ResponseStream：TStringStream; // 戻り値情報 ResponseStr：文字列; 始める ResponseStreamを：。= TStringStream 作成します（'' ）; 試し // 要求アドレス URL：= " HTTP：// localhostを：8080 / delphiJava / ServletDelphi " ; 試し IdHTTP1.Get（URL、ResponseStream）; 除く ON E：例外行い 始める ShowMessage（e.Message）; エンド; エンド; // 返されたページの情報を取得 ResponseStrを： = ResponseStream.DataString; // 存在中国人ページ、UTF8デコードする必要 ResponseStrを：= UTF8Decode（ResponseStr）; mmo1.Text： = ResponseStr; 最後に // IdHTTP1.Free; // ResponseStream.Free; エンド; エンド; 終わり。
<？XMLバージョン= "1.0"エンコード= "UTF-8" ？> < ウェブアプリID = "WebApp_ID" バージョン= "2.4" のxmlns = "http://java.sun.com/xml/ns/j2ee" のxmlns： XSI = "http://www.w3.org/2001/XMLSchema-instance" のxsi：schemaLocationの= "http://java.sun.com/xml/ns/j2ee http://java.sun.com/xml /ns/j2ee/web-app_2_4.xsd」> < 表示名> delphiJava </ 表示名> < サーブレット> < 記述> </ 記述> <</ 表示名> < サーブレット名> ServletDelphi </ サーブレット名> < サーブレットクラス> ServletDelphi </ サーブレットクラス> </ サーブレット> < サーブレットマッピング> < サーブレット名> ServletDelphi </ サーブレット名> < のurl-pattern > / ServletDelphi </ のurl-pattern > </ のservlet-mapping > < 歓迎-ファイル・リスト> <歓迎ファイル> index.htmlを</ 歓迎ファイル> < 歓迎-ファイル>のindex.htm </ 歓迎ファイル> < 歓迎-ファイル> index.jspを</ 歓迎ファイル> < 歓迎-ファイル>にdefault.html </ ようこそ-ファイル> < 歓迎-ファイル>のdefault.htm </ 歓迎ファイル> < 歓迎-ファイル> default.jsp </ 歓迎ファイル> </ 歓迎ファイル・リスト> </ ウェブアプリ>
インポートにjava.io.IOException; 輸入てjava.io.PrintWriter; 輸入javax.servlet.ServletException; 輸入javax.servlet.http.HttpServlet。 インポートのjavax.servlet.http.HttpServletRequest; インポートのjavax.servlet.http.HttpServletResponse; パブリック クラス ServletDelphiは拡張HttpServletを{ / ** オブジェクトのコンストラクタ*。 * / パブリックServletDelphi（）{ スーパー（）。 } / ** *サーブレットの破壊。<BR> * / 公共 ボイド（）{破壊する スーパー .destroyを（）;// ただ、プットは、ログ内の文字列「破壊」 //は、ここにコードを入れ } / ** *サーブレットのdoGetメソッド。<BR> * *フォームは、そのタグ値メソッドが取得するために等しいがあるときに、このメソッドが呼び出されます。 * * @paramの要求は、サーバーへのクライアントからの要求の送信 * @paramの応答サーバからクライアントにレスポンス送信 *は@throws エラーが発生した場合ServletExceptionがする * @throws エラーが発生した場合IOExceptionを * / 公共 空のdoGet（HttpServletRequestをリクエスト、HttpServletResponseの応答）が スローされますServletExceptionがは、IOException { 。response.getWriter（）のprintln（ "こんにちはサーブレットデルファイ！" ）; } / ** *サーブレットのdoPostメソッド。<BR> * *フォームは、そのタグ値法が投稿する等しく持っている場合は、このメソッドが呼び出されます。 * * @paramの要求、クライアントからサーバにリクエスト送信 * @paramの応答サーバからクライアントに応答送信 * @throws ServletExceptionがエラーが発生した場合 * @throws エラーが発生した場合IOExceptionを * / 公共 のボイドdoPostメソッドを（HttpServletRequestをリクエスト、HttpServletResponseの応答） スローServletExceptionがは、IOException { response.getWriter（）のprintln（ "Hellox Servletx、" + request.getParameter（ "ユーザ" ） + ";" + request.getParameter（ "PWD"）+ "！" ）。 } / ** *サーブレットの初期化。<BR>は * * @throws エラーが発生した場合ServletExceptionがする * / 公共 空のinit（）スローServletExceptionがが{ // ここにコードを入れてください } }