Networking/ja: what changed
Revision 0 to 1. Removed lines have a minus sign; added lines have a plus sign.
Title: Networking/ja
| Old | New | Line | |
|---|---|---|---|
| 1 | + | このページは、Lazarus と 平易な FPC を用いたネットワークプログラムについての情報とチュートリアル／コードのページです。 | |
| 2 | + | ||
| 3 | + | （訳注：最初にこの元記事を書いた人はネットワークプログラミングの専門でなく、独学で勉強したことを書いているそうです） | |
| 4 | + | ||
| 5 | + | ## TCP/IP プロトコル | |
| 6 | + | ||
| 7 | + | > **Note:** FPC/Lazarus には、ネットワーキングの機能を使うための様々なライブラリ(Synapse, lnet, fphttpclient, Indy,...)があるため、それらのライブラリに対して多くのサンプルコードが記述できるでしょう。 したがって、異なるライブラリに対しても同じサンプルコードを何度もみることになるかもしれません。 複数のネットワークライブラリの使用が可能なフレームワークの作り方の例について、 [1](http://brookframework.org) や [2](https://bitbucket.org/reiniero/fpctwit) フレームワークもご参照ください | |
| 8 | + | ||
| 9 | + | ### CGI/FastCGI - REST, CRUD, チャットやブログ、ウェブページなど | |
| 10 | + | ||
| 11 | + | これらの機能は [[fcl-web]] を使うことで可能となります。 また、 Brook フレームワーク( [this page](http://silvioprog.github.io/brookframework) )でも実装されています。 | |
| 12 | + | ||
| 13 | + | ### SSH/Telnet クライアント、メールの送信、ファイルのダウンロードや OAuth v1.0 の例 | |
| 14 | + | ||
| 15 | + | [[Synapse|Synapseのページをご]]覧ください。 | |
| 16 | + | ||
| 17 | + | ### Webサーバの例 | |
| 18 | + | ||
| 19 | + | 以下は Synapse ライブラリを用いて記述した http サーバの例です。Mac OS Xでテストしました。ただし、Mac OS Xの socket ユニットでは定数 MSG_NOSIGNAL が定義されていないため、Synapse のソースに定数定義 MSG_NOSIGNAL = \$20000 を追加してコンパイルしました（訳注 : 2010年9月現在SVNで流れている Synapse の新バージョンでは、上記の定数が追加されており、無修正でコンパイルできます）。 | |
| 20 | + | ||
| 21 | + | ``` pascal | |
| 22 | + | { | |
| 23 | + | マイクロ Pascal ウェブサーバ | |
| 24 | + | ||
| 25 | + | Synapseライブラリを用いた極単純なウェブサーバの実装例である。 | |
| 26 | + | ||
| 27 | + | ブロッキングモードのソケットを用いた単一スレッドアプリケーションであるため | |
| 28 | + | 複数のリクエストを並行して処理することはできない。 | |
| 29 | + | ||
| 30 | + | ブラウザから受け取ったヘッダは標準出力に出力される。 | |
| 31 | + | ||
| 32 | + | サービス可能なウェブページのURIは固定で、'/' のみである。 | |
| 33 | + | ほかのURIに対しては '504 not found' を返す。 | |
| 34 | + | } | |
| 35 | + | program upserver; | |
| 36 | + | ||
| 37 | + | {$ifdef fpc} | |
| 38 | + | {$mode delphi} | |
| 39 | + | {$endif} | |
| 40 | + | ||
| 41 | + | {$apptype console} | |
| 42 | + | ||
| 43 | + | uses | |
| 44 | + | Classes, blcksock, sockets, Synautil, SysUtils; | |
| 45 | + | ||
| 46 | + | {@@ | |
| 47 | + | コネクションに参加する。ヘッダを読み、しかるべき返信を行う | |
| 48 | + | } | |
| 49 | + | procedure AttendConnection(ASocket: TTCPBlockSocket); | |
| 50 | + | var | |
| 51 | + | timeout: integer; | |
| 52 | + | s: string; | |
| 53 | + | method, uri, protocol: string; | |
| 54 | + | OutputDataString: string; | |
| 55 | + | ResultCode: integer; | |
| 56 | + | begin | |
| 57 | + | timeout := 120000; | |
| 58 | + | ||
| 59 | + | WriteLn('Received headers+document from browser:'); | |
| 60 | + | ||
| 61 | + | //リクエストラインを読み込む | |
| 62 | + | s := ASocket.RecvString(timeout); | |
| 63 | + | WriteLn(s); | |
| 64 | + | method := fetch(s, ' '); | |
| 65 | + | uri := fetch(s, ' '); | |
| 66 | + | protocol := fetch(s, ' '); | |
| 67 | + | ||
| 68 | + | //リクエストヘッダを読み込む | |
| 69 | + | repeat | |
| 70 | + | s := ASocket.RecvString(Timeout); | |
| 71 | + | WriteLn(s); | |
| 72 | + | until s = ''; | |
| 73 | + | ||
| 74 | + | // ここで出力ストリームに文書を書き込む | |
| 75 | + | ||
| 76 | + | if uri = '/' then | |
| 77 | + | begin | |
| 78 | + | // 出力する文書をストリームに書く | |
| 79 | + | OutputDataString := | |
| 80 | + | '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"' | |
| 81 | + | + ' "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">' + CRLF | |
| 82 | + | + '<html><h1>Teste</h1></html>' + CRLF; | |
| 83 | + | ||
| 84 | + | // ヘッダをクライアントに返信する | |
| 85 | + | ASocket.SendString('HTTP/1.0 200' + CRLF); | |
| 86 | + | ASocket.SendString('Content-type: Text/Html' + CRLF); | |
| 87 | + | ASocket.SendString('Content-length: ' + IntTostr(Length(OutputDataString)) + CRLF); | |
| 88 | + | ASocket.SendString('Connection: close' + CRLF); | |
| 89 | + | ASocket.SendString('Date: ' + Rfc822DateTime(now) + CRLF); | |
| 90 | + | ASocket.SendString('Server: Servidor do Felipe usando Synapse' + CRLF); | |
| 91 | + | ASocket.SendString('' + CRLF); | |
| 92 | + | ||
| 93 | + | // if ASocket.lasterror <> 0 then HandleError; | |
| 94 | + | ||
| 95 | + | //文書をブラウザに送信する | |
| 96 | + | ASocket.SendString(OutputDataString); | |
| 97 | + | end | |
| 98 | + | else | |
| 99 | + | ASocket.SendString('HTTP/1.0 504' + CRLF); | |
| 100 | + | end; | |
| 101 | + | ||
| 102 | + | var | |
| 103 | + | ListenerSocket, ConnectionSocket: TTCPBlockSocket; | |
| 104 | + | begin | |
| 105 | + | ListenerSocket := TTCPBlockSocket.Create; | |
| 106 | + | ConnectionSocket := TTCPBlockSocket.Create; | |
| 107 | + | ||
| 108 | + | ListenerSocket.CreateSocket; | |
| 109 | + | ListenerSocket.setLinger(true,10); | |
| 110 | + | ListenerSocket.bind('0.0.0.0','1500'); | |
| 111 | + | ListenerSocket.listen; | |
| 112 | + | ||
| 113 | + | repeat | |
| 114 | + | if ListenerSocket.canread(1000) then | |
| 115 | + | begin | |
| 116 | + | ConnectionSocket.Socket := ListenerSocket.accept; | |
| 117 | + | WriteLn('Attending Connection. Error code (0=Success): ', ConnectionSocket.lasterror); | |
| 118 | + | AttendConnection(ConnectionSocket); | |
| 119 | + | end; | |
| 120 | + | until false; | |
| 121 | + | ||
| 122 | + | ListenerSocket.Free; | |
| 123 | + | ConnectionSocket.Free; | |
| 124 | + | end. | |
| 125 | + | ``` | |
| 126 | + | ||
| 127 | + | ### FPC に備え付けの fcl-net コンポーネントを用いた TCP/IP クライアント-サーバ の例 | |
| 128 | + | ||
| 129 | + | [ブログ記事における例](http://pascalgeek.blogspot.com/2012/06/encryption-decryption-and-asynchronous.html)をご覧ください。 | |
| 130 | + | ||
| 131 | + | ### HTTP ページのダウンロードや POST を用いたウェブサーバへのアップロード、external IP アドレスの取得 | |
| 132 | + | ||
| 133 | + | これらの例は、 [[fphttpclient|fphttpclient#Examples]] で見つかります(FPC/Lazarus に備え付けの fphttpclient コンポーネントを使用した例です)。 | |
| 134 | + | ||
| 135 | + | ## Webサービス | |
| 136 | + | ||
| 137 | + | [W3C](http://www.w3.org/) によると、 Web サービスとは ネットワーク越しに機械と機械を相互に利用できるように設計されたソフトウェアの名称です。 | |
| 138 | + | ||
| 139 | + | Web サービスは、 WSDL などのように 「機械が処理可能」 な形式で記述されているインタフェースを持ちます。 そのほかのシステムは、SOAP エンベロープに含まれるメッセージを使用したインタフェースによって定められた方法で、ウェブサービスと対話します。もしくは、RESTの原則に従うかもしれません。 これらのメッセージは、一般的に HTTP を使用して伝達され、普通は他のウェブに関する規格と共同した XML から構成されています。 | |
| 140 | + | ||
| 141 | + | 様々なプログラミング言語で書かれ、様々なプラットホームで動くソフトウェアアプリケーションであっても、 Web サービスを利用することで、一つのコンピュータにおける内部処理と同様な方法でインターネットのようなコンピュータネットワーク越しでも、データの交換が可能になります。 | |
| 142 | + | ||
| 143 | + | この相互運用性 (例えば、WindowsとLinuxアプリケーションの間など) はオープンな規格によってもたらされました。 OASIS と W3C は Web サービスのアーキテクチャと標準化に関して信頼できる主要な委員会です。 また、 Web サービス実装間の相互運用性を改良するため、 WS-I 組織は、さらなる関連する標準を定義するために、一連のプロファイルを開発しています。 | |
| 144 | + | ||
| 145 | + | ### FPC & Lazarus のための Web サービスツールキット | |
| 146 | + | ||
| 147 | + | [[Web Service Toolkit]] は FPC と Lazarus のための WEBサービス のパッケージです。 | |
| 148 | + | ||
| 149 | + | ## 以下もご参照ください | |
| 150 | + | ||
| 151 | + | - [[Portal:Web Development|Web Development Portal]] | |
| 152 | + | - [[Networking libraries|ネットワーキングライブラリ]] - 各種ネットワーキングライブラリの比較 | |
| 153 | + | - [Brook Framework](http://brookframework.org) - 完全な Free Pascal による Web アプリケーションのためのフレームワークです。 純粋な Pascal からできており、Pascal ではない言語に悩まされる必要はありません。 | |
| 154 | + | - [FastPlaz](http://www.fastplaz.com) - Pascal のための Fast Web フレームワークです。 特徴として、theme/templating や simple Model、 セッション、メーラー などなど。 | |
| 155 | + | - [[Sockets]] - TCP/IP ソケットコンポーネント | |
| 156 | + | - [[fcl-net]] - FPC に備え付けのネットワーキングライブラリ | |
| 157 | + | - [[Indy with Lazarus/ja]] - 多くの機能を持つネットワーキングライブラリのインストール方法 | |
| 158 | + | - [[lNet]] - 軽量ネットワークコンポーネント | |
| 159 | + | - [[Synapse]] - シリアルポートとSerial port and synchronous TCP/IP ライブラリ | |
| 160 | + | - [[XML Tutorial/ja]] - XML はしばしばネットワーク通信で用いられます | |
| 161 | + | - [[FPC and Apache Modules]] | |
| 162 | + | - [[fcl-web]] - fpWeb という名前でも知られており、 cgi や fastcgi、apache のモジュールからなる Web アプリケーションを作るためのライブラリです。 | |
| 163 | + | - [[Secure programming|セキュア・プログラミング]] | |
| 164 | + | - [[Internet Tools]] - Synapse/wininet/Android's httpcomponents simplifying https and redirections や ダウンロードされたページを処理するための XPath/XQuery/CSS セレクタ/JSON のエンジン などのラッパー | |
| 165 | + | ||
| 166 | + | --- | |
| 167 | + | *From the Free Pascal wiki, page "Networking/ja", as it stood on 2020-02-21 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).* |