Sign in Join
Wiki copytemporary

Networking/ru: what changed

Revision 0 to 1. Removed lines have a minus sign; added lines have a plus sign.

Title: Networking/ru

OldNewLine
1+Эта страница будет началом руководства по сетевому(network) програмированию в Lazarus. Я не эксперт в сетевом программировании и я буду добавлять статьи по мере моего изучения. Я приглашаю других помочь в создании статей по сетям. Просто добавьте ссылку на следующую секцию, добавьте страницу и создайте свою собственную WiKi-статью. На этой странице будет даваться общая информация.
2+
3+## Другие руководства по сетям
4+
5+- [[Secure programming|Безопасное программирование]]
6+- [[Sockets]] - Компоненты TCP/IP Sockets
7+- [[lNet]] - Легкие сетевые компоненты (Lightweight Networking Components)
8+- [[XML Tutorial]] - XML часто используется для передачи по сетям
9+- [[FPC and Apache Modules/ru|FPC и модули Apache]]
10+
11+## Протокол TCP/IP
12+
13+> **Note:** Так как существуют несколько библиотек, которые обеспечивают функционирование сети в FPC/Lazarus(Synapse, lnet, fphttpclient, Indy,...), многие примеры могут быть использованы с различными библиотеками. Посетите [1](http://brookframework.org) или [2](https://bitbucket.org/reiniero/fpctwit), что бы узнать, как использовать различные сетевые библиотеки.
14+
15+### CGI/FastCGI - REST, CRUD, чат, блог, веб-страницы и т. д.
16+
17+Эти функции могут быть использованы с [[fcl-web]]. Они также построены в рамках [[Brook Framework]].
18+
19+### SSH/Telnet клиент, отправка почты, загрузка файлов, OAuthv1 примеры
20+
21+Смотрите на странице [[Synapse/ru|Synapse]].
22+
23+### Пример веб-сервера
24+
25+Ниже находится пример http-сервера, написанный в Synapse и оттестированный в Mac OS X, после изменения исходников synapse для использования константы \$20000 как MSG_NOSIGNAL, потому что эта константа не существует в sockets unit в Mac OS X. В примере используются компоненты Ararat Synapse, которые можно получить [здесь](http://synapse.ararat.cz/doku.php/download).
26+
27+``` pascal
28+{
29+ The Micro Pascal WebServer
30+
31+ This is a very simple example webserver implemented with the Synapse library.
32+
33+ It works with blocking sockets and a single thread, so it
34+ can only handle one request at a given time.
35+
36+ It will write the headers that it receives from the browser
37+ to the standard output.
38+
39+ It serves a fixed webpage for the / URI
40+ For any other URI it will return 504 not found
41+}
42+program upserver;
43+
44+{$ifdef fpc}
45+ {$mode delphi}
46+{$endif}
47+
48+{$apptype console}
49+
50+uses
51+ Classes, blcksock, sockets, Synautil, SysUtils;
52+
53+{@@
54+ Attends a connection. Reads the headers and gives an
55+ appropriate response
56+}
57+procedure AttendConnection(ASocket: TTCPBlockSocket);
58+var
59+ timeout: integer;
60+ s: string;
61+ method, uri, protocol: string;
62+ OutputDataString: string;
63+ ResultCode: integer;
64+begin
65+ timeout := 120000;
66+
67+ WriteLn('Received headers+document from browser:');
68+
69+ //read request line
70+ s := ASocket.RecvString(timeout);
71+ WriteLn(s);
72+ method := fetch(s, ' ');
73+ uri := fetch(s, ' ');
74+ protocol := fetch(s, ' ');
75+
76+ //read request headers
77+ repeat
78+ s := ASocket.RecvString(Timeout);
79+ WriteLn(s);
80+ until s = '';
81+
82+ // Now write the document to the output stream
83+
84+ if uri = '/' then
85+ begin
86+ // Write the output document to the stream
87+ OutputDataString :=
88+ '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"'
89+ + ' "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">' + CRLF
90+ + '<html><h1>Teste</h1></html>' + CRLF;
91+
92+ // Write the headers back to the client
93+ ASocket.SendString('HTTP/1.0 200' + CRLF);
94+ ASocket.SendString('Content-type: Text/Html' + CRLF);
95+ ASocket.SendString('Content-length: ' + IntTostr(Length(OutputDataString)) + CRLF);
96+ ASocket.SendString('Connection: close' + CRLF);
97+ ASocket.SendString('Date: ' + Rfc822DateTime(now) + CRLF);
98+ ASocket.SendString('Server: Servidor do Felipe usando Synapse' + CRLF);
99+ ASocket.SendString('' + CRLF);
100+
101+ // if ASocket.lasterror <> 0 then HandleError;
102+
103+ // Write the document back to the browser
104+ ASocket.SendString(OutputDataString);
105+ end
106+ else
107+ ASocket.SendString('HTTP/1.0 504' + CRLF);
108+end;
109+
110+var
111+ ListenerSocket, ConnectionSocket: TTCPBlockSocket;
112+begin
113+ ListenerSocket := TTCPBlockSocket.Create;
114+ ConnectionSocket := TTCPBlockSocket.Create;
115+
116+ ListenerSocket.CreateSocket;
117+ ListenerSocket.setLinger(true,10);
118+ ListenerSocket.bind('0.0.0.0','1500');
119+ ListenerSocket.listen;
120+
121+ repeat
122+ if ListenerSocket.canread(1000) then
123+ begin
124+ ConnectionSocket.Socket := ListenerSocket.accept;
125+ WriteLn('Attending Connection. Error code (0=Success): ', ConnectionSocket.lasterror);
126+ AttendConnection(ConnectionSocket);
127+ end;
128+ until false;
129+
130+ ListenerSocket.Free;
131+ ConnectionSocket.Free;
132+end.
133+```
134+
135+## Веб-сервисы (WebServices)
136+
137+Согласно [W3C](http://www.w3.org/) "веб-сервис" - это программная система, разработанная для поддержки взаимодействия комппьютер-компьютер по сети. Он имеет интерфейс, описанный в машинном формате как, например, [WSDL](http://ru.wikipedia.org/wiki/WSDL). Другие системы взаимодействуют веб-сервисом, способом, описанным их интерфейсом, используя сообщения, которые могут быть заключены в [SOAP](http://ru.wikipedia.org/wiki/SOAP) упаковку или претворять собой [REST](http://ru.wikipedia.org/wiki/REST) подход. Эти сообщения обычно передаются используя HTTP и являются содержимым XML в соединении с другим веб-стандартом. Программные приложения, написанные на разных языках программирования и запускаемые на разных платформах могут использовать веб-сервисы для обмена данными по компьютерным сетям, таким как интернет, методом, напоминающим меж-процессное(inter-process) взаимодействие внутри одного компьютера. Эта возможность компьютерного взаимодействия (например Windows и Linux приложений) обязана своим существованием использованию открытых стандартов. [OASIS](http://ru.wikipedia.org/wiki/OASIS) и [W3C(wiki-ссылка)](http://ru.wikipedia.org/wiki/W3C) - это главные комитеты, отвечающие за архитектуру и стандартизацию веб-сервисов. Для того, чтобы улучшать возможности взаимодействия между реализациями веб-сервисов, организация WS-I создает серии описаний для дальнейшего определения участвующих стандартов.
138+
139+### Web Service Toolkit для FPC & Lazarus
140+
141+[[Web Service Toolkit]] - это web services package для FPC и Lazarus.
142+
143+------------------------------------------------------------------------
144+
145+[[XML Tutorial]]
146+
147+---
148+*From the Free Pascal wiki, page "Networking/ru", as it stood on 2020-12-31 after a change by Zoltanleo, 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).*

Back to history