Synapse/ru: what changed

Revision 2 to 3. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1	1		Synapse предоставляет простой в использовании последовательный порт и синхронную библиотеку TCP/IP.
2	2
3	3		## Обзор
4	4
5	5		Synapse предлагает [[Hardware Access\|последовательный]] порт и возможность подключения по TCP/IP. Он отличается от других библиотек тем, что вам нужно только добавить в свой код несколько файлов исходного кода Synapse Pascal; нет необходимости устанавливать пакеты и т. д. Единственное исключение - вам понадобится внешняя криптографическая библиотека, если вы хотите использовать шифрование, такое как SSL/TLS/SSH.
6	6
7	7		См. документацию на официальном сайте (ссылка ниже) для более подробной информации.
8	8
9	9		## Установка
10	10
11	11		Установка может быть такой же простой, как простое копирование всех файлов в каталог вашего приложения и добавление соответствующих модулей Synapse в ваш раздел uses.
12	12
13	13		Более элегантный и рекомендуемый способ - это компиляция пакета laz_synapse.lpk, чтобы вы могли использовать одни и те же модули во всех своих проектах.
14	14
15	15		Страница информации по загрузке/SVN: [Страница загрузки Synapse](http://www.ararat.cz/synapse/doku.php/download)
16	16
17	17		## Поддержка и сообщения об ошибках
18	18
19	19		У проекта Synapse есть список рассылки, в котором предоставляется поддержка и можно отправлять исправления.
20	20
21	21		Отчеты об ошибках также можно отправлять по списку рассылки.
22	22
23	23		См. [страницу поддержки Synapse](http://www.ararat.cz/synapse/doku.php/support)
24	24
25	25		## Поддержка SSL/TLS
26	26
27	27		Вы можете использовать поддержку OpenSSL, CryptLib, StreamSecII или OpenStreamSecII SSL с Synapse. По умолчанию поддержка SSL не используется.
28	28
29	29		Поддержка активируется путем помещения выбранного имени модуля в раздел uses вашего проекта. Вы также должны поместить файл двоичной библиотеки в путь к вашему проекту(Windows) или установить его в путях поиска библиотеки (Linux, macOS, FreeBSD).
30	30
31	31		Synapse загружает файлы библиотеки SSL во время выполнения как динамические библиотеки.
32	32
33	33		- Для получения подробной информации см. [SSL/TLS Plugin Architecture](http://www.ararat.cz/synapse/doku.php/public:howto:sslplugin)
34	34		- Некоторые криптографические библиотеки можно получить [здесь](http://synapse.ararat.cz/files/crypt/)
35	35
36	36		### Отсутствущая библиотека
37	37
38	38		В Linux вам необходимо убедиться, что требуемая динамическая библиотека присутствует/установлена в вашей системе. В случае cryptlib, если библиотека отсутствует в системе, при компоновке появляется сообщение об ошибке:
39	39
40		-	~~`/usr/bin/ld: cannot find -lcl`~~
	40	+	```text
	41	+	/usr/bin/ld: cannot find -lcl
	42	+	```
41	43
42	44		Аналогичное сообщение будет отображаться при использовании других динамических библиотек.
43	45
44	46		## Пример веб-сервера
45	47
46	48		См. [[Networking\|примеры Webserver]].
47	49
48	50		## Пример запроса сервера QOTD
49	51
50	52		См. [[QOTD\|пример запроса сервера Quote of the Day]].
51	53
52	54		## Отправка email
53	55
54	56		Статья Michaël Van Canneyt об отправке электронной почты, включая вложения, с помощью Synapse: <http://www.freepascal.org/~michael/articles/lazmail/lazmail-en.pdf>
55	57
56	58		Из сообщения [на форуме](http://forum.lazarus.freepascal.org/index.php/topic,21157.msg123501.html#msg123501); работает, например, с Gmail:
57	59
58	60		``` pascal
59	61		{Этот код поддерживает использование шифрования TLS/SSL; при отправке на порт 25 используется простой текстовый SMTP.}
60	62
61	63		uses
62	64		..., smtpsend,ssl_openssl; //вероятно, можно использовать и другие модули SSL.
63	65
64	66		// MailData - это текст письма.
65	67		function SendMail(
66	68		User, Password,
67	69		MailFrom, MailTo,
68	70		SMTPHost, SMTPPort: string;
69	71		MailData: string): Boolean;
70	72		var
71	73		SMTP: TSMTPSend;
72	74		sl:TStringList;
73	75		begin
74	76		Result:=False;
75	77		SMTP:=TSMTPSend.Create;
76	78		sl:=TStringList.Create;
77	79		try
78	80		sl.text:=Maildata;
79	81		SMTP.UserName:=User;
80	82		SMTP.Password:=Password;
81	83		SMTP.TargetHost:=SMTPHost;
82	84		SMTP.TargetPort:=SMTPPort;
83	85		SMTP.AutoTLS:=true;
84	86		if Trim(SMTPPort)<>'25' then
85	87		SMTP.FullSSL:=true; // при отправке на порт 25 шифрование не используется
86	88		if SMTP.Login then
87	89		begin
88	90		result:=SMTP.MailFrom(MailFrom, Length(MailData)) and
89	91		SMTP.MailTo(MailTo) and
90	92		SMTP.MailData(sl);
91	93		SMTP.Logout;
92	94		end;
93	95		finally
94	96		SMTP.Free;
95	97		sl.Free;
96	98		end;
97	99		end;
98	100		```
99	101
100	102		### Отправка вложений
101	103
102	104		См. [документацию Synapse](http://synapse.ararat.cz/doku.php/public:howto:tmimepart).
103	105
104	106		## Загрузка файлов
105	107
106	108		### С FTP-сервера
107	109
108	110		Учитывая URL-адрес и (путь и) имя файла, это загрузит его с FTP-сервера. В основном это обертка кода Synapse, предназначенная для облегчения загрузки при работе с произвольными файлами. Если вы точно знаете, что будете скачивать, простой вызов Synapse:
109	111
110	112		``` pascal
111	113		FtpGetFile
112	114		```
113	115
114	116		доставит вас очень далеко.
115	117
116	118		``` pascal
117	119		function DownloadFTP(URL, TargetFile: string): boolean;
118	120		const
119	121		FTPPort=21;
120	122		FTPScheme='ftp://'; //Имя схемы URI для URL-адресов FTP
121	123		var
122	124		Host: string;
123	125		Port: integer;
124	126		Source: string;
125	127		FoundPos: integer;
126	128		begin
127	129		// Вычеркиваем информацию о схеме:
128	130		if LeftStr(URL, length(FTPScheme))=FTPScheme then URL:=Copy(URL, length(FTPScheme)+1, length(URL));
129	131
130	132		// Грубый парсинг; мог использовать код синтаксического анализа URI в пакетах FPC ...
131	133		FoundPos:=pos('/', URL);
132	134		Host:=LeftStr(URL, FoundPos-1);
133	135		Source:=Copy(URL, FoundPos+1, Length(URL));
134	136
135	137		//Проверка номера портов:
136	138		FoundPos:=pos(':', Host);
137	139		Port:=FTPPort;
138	140		if FoundPos>0 then
139	141		begin
140	142		Host:=LeftStr(Host, FoundPos-1);
141	143		Port:=StrToIntDef(Copy(Host, FoundPos+1, Length(Host)),21);
142	144		end;
143	145		Result:=FtpGetFile(Host, IntToStr(Port), Source, TargetFile, 'anonymous', 'fpc@example.com');
144	146		if result=false then writeln('DownloadFTP: error downloading '+URL+'. Details: host: '+Host+'; port: '+Inttostr(Port)+'; remote path: '+Source+' to '+TargetFile);
145	147		end;
146	148		```
147	149
148	150		Пример получения списка файлов по заданному пути
149	151
150	152		``` pascal
151	153		//Используем модуль ftpsend
152	154
153	155		function FtpGetDir(const IP, Port, Path, User, Pass: string; DirList: TStringList): Boolean;
154	156		var
155	157		i: Integer;
156	158		s: string;
157	159		begin
158	160		Result := False;
159	161		with TFTPSend.Create do
160	162		try
161	163		Username := User;
162	164		Password := Pass;
163	165		TargetHost := IP;
164	166		TargetPort := Port;
165	167		if not Login then
166	168		Exit;
167	169		Result := List(Path, False);
168	170		for i := 0 to FtpList.Count -1 do
169	171		begin
170	172		s := FTPList[i].FileName;
171	173		DirList.Add(s);
172	174		end;
173	175		Logout;
174	176		finally
175	177		Free;
176	178		end;
177	179		end;
178	180		```
179	181
180	182		### С HTTP-сервера
181	183
182	184		Учитывая URL-адрес и (путь и) имя файла, это загрузит его с HTTP-сервера. Обратите внимание, что этот код проверяет код состояния HTTP (например, 200, 404), чтобы узнать, является ли документ, который мы получили обратно с сервера, желаемым файлом или же страницей с ошибкой.
183	185
184	186		#### Простая версия
185	187
186	188		``` pascal
187	189		...
188	190		uses httpsend,
189	191		...
190	192		function DownloadHTTP(URL, TargetFile: string): Boolean;
191	193		var
192	194		HTTPGetResult: Boolean;
193	195		HTTPSender: THTTPSend;
194	196		begin
195	197		Result := False;
196	198		HTTPSender := THTTPSend.Create;
197	199		try
198	200		HTTPGetResult := HTTPSender.HTTPMethod('GET', URL);
199	201		if (HTTPSender.ResultCode >= 100) and (HTTPSender.ResultCode<=299) then begin
200	202		HTTPSender.Document.SaveToFile(TargetFile);
201	203		Result := True;
202	204		end;
203	205		finally
204	206		HTTPSender.Free;
205	207		end;
206	208		end;
207	209		```
208	210
209	211		#### Расширенная версия
210	212
211	213		``` pascal
212	214		...
213	215		uses httpsend
214	216		...
215	217		function DownloadHTTP(URL, TargetFile: string): Boolean;
216	218		// Грузим файл; при необходимости повторяем попытку.
217	219		// Можно использовать Synapse HttpGetBinary, но это не работает
218	220		// с кодами результата (т.е. он успешно загружает документ с ошибкой 404)
219	221		const
220	222		MaxRetries = 3;
221	223		var
222	224		HTTPGetResult: Boolean;
223	225		HTTPSender: THTTPSend;
224	226		RetryAttempt: Integer;
225	227		begin
226	228		Result := False;
227	229		RetryAttempt := 1;
228	230		HTTPSender := THTTPSend.Create;
229	231		try
230	232		try
231	233		// Пробуем получить файл
232	234		HTTPGetResult := HTTPSender.HTTPMethod('GET', URL);
233	235		while (HTTPGetResult = False) and (RetryAttempt < MaxRetries) do
234	236		begin
235	237		Sleep(500 * RetryAttempt);
236	238		HTTPSender.Clear;
237	239		HTTPGetResult := HTTPSender.HTTPMethod('GET', URL);
238	240		RetryAttempt := RetryAttempt + 1;
239	241		end;
240	242		// Если у нас есть ответ от сервера, проверяем, не
241	243		// был ли файл уже отправлен нам.
242	244		case HTTPSender.Resultcode of
243	245		100..299:
244	246		begin
245	247		HTTPSender.Document.SaveToFile(TargetFile);
246	248		Result := True;
247	249		end; //информирование, успешно
248	250		300..399: Result := False; // перенаправление. Не реализовано, но могло бы быть.
249	251		400..499: Result := False; // ошибка клиента; 404 не найдено и т.д.
250	252		500..599: Result := False; // внутренняя ошибка сервера
251	253		else Result := False; // неизвестный код
252	254		end;
253	255		except
254	256		// Нас не интересует причина этой ошибки; загрузка не удалась.
255	257		Result := False;
256	258		end;
257	259		finally
258	260		HTTPSender.Free;
259	261		end;
260	262		end;
261	263		```
262	264
263	265		#### Простая версия с показом прогресса загрузки
264	266
265	267		В следующем примере показано, как получить информацию о ходе загрузки по HTTP, а также размер файла. Размер файла извлекается из информации заголовка.
266	268
267	269		``` pascal
268	270		unit uhttpdownloader;
269	271
270	272		// Необходимо изменить это. По умолчанию это - {$mode objfpc}{$H+}, и не работает.
271	273		{$mode Delphi}
272	274
273	275		interface
274	276
275	277		uses
276	278		Classes, SysUtils, httpsend, blcksock, typinfo;
277	279
278	280		type
279	281		IProgress = interface
280	282		procedure ProgressNotification(Text: String; CurrentProgress : integer; MaxProgress : integer);
281	283		end;
282	284
283	285		type
284	286		{ THttpDownloader }
285	287
286	288		THttpDownloader = class
287	289		public
288	290		function DownloadHTTP(URL, TargetFile: string; ProgressMonitor : IProgress): Boolean;
289	291		private
290	292		Bytes : Integer;
291	293		MaxBytes : Integer;
292	294		HTTPSender: THTTPSend;
293	295		ProgressMonitor : IProgress;
294	296		procedure Status(Sender: TObject; Reason: THookSocketReason; const Value: String);
295	297		function GetSizeFromHeader(Header: String):integer;
296	298		end;
297	299
298	300		implementation
299	301
300	302		function THttpDownloader.DownloadHTTP(URL, TargetFile: string; ProgressMonitor : IProgress): Boolean;
301	303		var
302	304		HTTPGetResult: Boolean;
303	305		begin
304	306		Result := False;
305	307		Bytes:= 0;
306	308		MaxBytes:= -1;
307	309		Self.ProgressMonitor:= ProgressMonitor;
308	310
309	311		HTTPSender := THTTPSend.Create;
310	312		try
311	313		HTTPSender.Sock.OnStatus:= Status;
312	314		HTTPGetResult := HTTPSender.HTTPMethod('GET', URL);
313	315		if (HTTPSender.ResultCode >= 100) and (HTTPSender.ResultCode<=299) then begin
314	316		HTTPSender.Document.SaveToFile(TargetFile);
315	317		Result := True;
316	318		end;
317	319		finally
318	320		HTTPSender.Free;
319	321		end;
320	322		end;
321	323
322	324		procedure THttpDownloader.Status(Sender: TObject; Reason: THookSocketReason; const Value: String);
323	325		var
324	326		V, currentHeader: String;
325	327		i: integer;
326	328		begin
327	329		//try to get filesize from headers
328	330		if (MaxBytes = -1) then
329	331		begin
330	332		for i:= 0 to HTTPSender.Headers.Count - 1 do
331	333		begin
332	334		currentHeader:= HTTPSender.Headers[i];
333	335		MaxBytes:= GetSizeFromHeader(currentHeader);
334	336		if MaxBytes <> -1 then break;
335	337		end;
336	338		end;
337	339
338	340		V := GetEnumName(TypeInfo(THookSocketReason), Integer(Reason)) + ' ' + Value;
339	341
340	342		if Reason = THookSocketReason.HR_ReadCount then
341	343		begin
342	344		Bytes:= Bytes + StrToInt(Value);
343	345		ProgressMonitor.ProgressNotification(V, Bytes, MaxBytes);
344	346		end;
345	347		end;
346	348
347	349		function THttpDownloader.GetSizeFromHeader(Header: String): integer;
348	350		var
349	351		item : TStringList;
350	352		begin
351	353		Result:= -1;
352	354
353	355		if Pos('Content-Length:', Header) <> 0 then
354	356		begin
355	357		item:= TStringList.Create();
356	358		item.Delimiter:= ':';
357	359		item.StrictDelimiter:=true;
358	360		item.DelimitedText:=Header;
359	361		if item.Count = 2 then
360	362		begin
361	363		Result:= StrToInt(Trim(item[1]));
362	364		end;
363	365		end;
364	366		end;
365	367
366	368		end.
367	369		```
368	370
369	371		Что мы здесь делаем?
370	372
371	373		Прежде всего, мы смотрим на заголовки, чтобы узнать размер файла. Надо подождать и проверить, есть ли заголовок. Первые события не содержат Content-Length: information.
372	374
373	375		Найдя, мы извлекаем эту информацию. Здесь появляется несколько событий, на которые вы можете реагировать. Но мы проверяем только THookSocketReason.HR_ReadCount в этом примере.
374	376
375	377		HR_ReadCount предоставляет нам информацию о том, сколько байтов было прочитано с момента последнего события.
376	378
377	379		Затем прогресс передается в пользовательский интерфейс:
378	380
379	381		``` pascal
380	382		procedure TMainForm.ProgressNotification(Text: String; CurrentProgress: integer; MaxProgress: integer);
381	383		begin
382	384		if (MaxProgress <> -1) then
383	385		begin
384	386		ProgressBar.Max:= MaxProgress;
385	387		end;
386	388
387	389		ProgressBar.Position:= CurrentProgress;
388	390		memoStatus.Lines.Add(Text);
389	391		Application.ProcessMessages;
390	392		end;
391	393		```
392	394
393	395		Итак, окончательно основной модуль будет таким:
394	396
395	397		``` pascal
396	398		unit uMain;
397	399
398	400		{$mode Delphi}
399	401
400	402		interface
401	403
402	404		uses
403	405		Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, ComCtrls, httpsend, blcksock, typinfo,
404	406		uhttpdownloader;
405	407
406	408		type
407	409
408	410		{ TMainForm }
409	411
410	412		TMainForm = class(TForm, IProgress)
411	413		btnStartDownload: TButton;
412	414		edtUrl: TEdit;
413	415		labelUrl: TLabel;
414	416		memoStatus: TMemo;
415	417		ProgressBar: TProgressBar;
416	418		SaveDialog: TSaveDialog;
417	419		procedure btnStartDownloadClick(Sender: TObject);
418	420		private
419	421		{ private declarations }
420	422		function GetFileNameFromURL(url: String):string;
421	423		public
422	424		{ public declarations }
423	425		procedure ProgressNotification(Text: String; CurrentProgress : integer; MaxProgress : integer);
424	426		end;
425	427
426	428		var
427	429		MainForm: TMainForm;
428	430
429	431		implementation
430	432
431	433		{$R *.lfm}
432	434
433	435		{ TMainForm }
434	436
435	437		procedure TMainForm.btnStartDownloadClick(Sender: TObject);
436	438		var
437	439		fileName: String;
438	440		downloader: THttpDownloader;
439	441		success: boolean;
440	442		begin
441	443		fileName:= GetFileNameFromURL(edtUrl.Text);
442	444		SaveDialog.FileName:=fileName;
443	445		if (SaveDialog.Execute) then
444	446		begin
445	447		memoStatus.Lines.Clear;
446	448		ProgressBar.Position:=0;
447	449		downloader:= THttpDownloader.Create();
448	450		success:= downloader.DownloadHTTP(edtUrl.Text, SaveDialog.FileName, Self);
449	451
450	452		ProgressBar.Position:=0;
451	453		if Success then
452	454		memoStatus.Lines.Add('Download successful')
453	455		else
454	456		memoStatus.Lines.Add('Error during download');
455	457
456	458		end;
457	459		end;
458	460
459	461		function TMainForm.GetFileNameFromURL(url: String): string;
460	462		var i, l : integer;
461	463		fileName, current : String;
462	464		begin
463	465		fileName:= '';
464	466		l:= Length(url);
465	467		for i:= l downto 0 do begin
466	468		current:= url[i];
467	469		if current <> '/' then
468	470		begin
469	471		fileName:= current + fileName;
470	472		end else begin
471	473		Result:= fileName;
472	474		break;
473	475		end;
474	476		end;
475	477		end;
476	478
477	479		procedure TMainForm.ProgressNotification(Text: String; CurrentProgress: integer; MaxProgress: integer);
478	480		begin
479	481		if (MaxProgress <> -1) then ProgressBar.Max:= MaxProgress;
480	482		ProgressBar.Position:= CurrentProgress;
481	483		memoStatus.Lines.Add(Text);
482	484		Application.ProcessMessages;
483	485		end;
484	486
485	487		end.
486	488		```
487	489
488	490		Ссылка: <https://andydunkel.net/2015/09/09/lazarus_synapse_progress/>
489	491
490	492		#### С HTTP-сервера путем анализа URL-адресов: Sourceforge
491	493
492	494		См. статью [[Download from SourceForge\|Загрузка с SourceForge]] для примера загрузки с sourceforge.net.
493	495
494	496		### С HTTPS-сервера
495	497
496	498		Это похоже на загрузку с HTTP-сервера. Кроме того, вам необходимо [[Synapse/ru\|активировать поддержку SSL/TLS]] и получить двоичный файл(ы) для необходимой библиотеки. Затем вы можете использовать ту же функцию DownloadHTTP для загрузки файла с URL-адреса, начинающегося с <https://>.
497	499
498	500		## Пример программы клиента SSH/Telnet
499	501
500	502		Ниже вы найдете модуль, который позволяет использовать клиентские функции telnet/SSH, использующий модуль synapse `tlntsend.pas`. Пример программы показывает, как это использовать. Другой, более простой способ проиллюстрирован Leonardo Ramé на [1](http://leonardorame.blogspot.com/2010/01/synapse-based-ssh-client.html). Его пример не может использовать telnet и отправляет только одну команду.
501	503
502	504		### Требования
503	505
504	506		Помимо исходников Synapse (которых вам понадобится всего пара), если вы хотите использовать функциональность SSH, вам понадобится библиотека шифрования, которую использует Synapse. Если вы используете только Telnet, вам это не нужно.
505	507
506	508		Есть 2 варианта:
507	509
508	510		- Библиотека Cryptlib. Преимущество: стабильность. По-видимому, можно использовать закрытые ключи, но они имеют некоторый формат, который широко не поддерживается.
509	511		- Библиотека LibSSH2. Привязки Pascal все еще находятся в разработке, но вы можете использовать файл с вашим закрытым ключом (в формате OpenSSH) для аутентификации.
510	512
511	513		#### Cryptlib
512	514
513	515		- В Windows загрузите двоичную версию библиотеки DLL cryptlib (CL32.DLL) и поместите ее в исходный каталог. Если вы компилируете в другой каталог или распространяете свою программу, вам также необходимо будет распространить DLL.
514	516		- В Linux и OSX установите cryptlib через диспетчер пакетов/другими способами. При распространении приложения отметьте cryptlib как требование в вашем пакете .deb/.rpm/любой.
515	517
516	518		Вам также потребуются привязки (cryptlib.pas), присутствующие в исходном дистрибутиве cryptlib.
517	519
518	520		Версии двоичного файла cryptlib и привязок должны совпадать.
519	521
520	522		> Note: Кажется, что cryptlib не подходит для подключения к машинам с Linux, хотя AIX работает. Вместо этого используйте SSH2.
521	523
522	524		#### LibSSH2
523	525
524	526		- В Windows загрузите двоичную версию библиотеки libssh2 (LIBSSH2.DLL) и поместите ее в исходный каталог. Если вы компилируете в другой каталог или распространяете свою программу, вам также необходимо будет распространить DLL.
525	527		- В Linux и macOS установите libssh2 через диспетчер пакетов/другими способами. При распространении вашего приложения:
526	528		- Linux: отметьте libssh2 как требование в вашем .deb/.rpm/любом пакете.
527	529		- macOS: включите libssh2 в каталог ресурсов [[Application Bundle]].
528	530
529	531		Вам также понадобится ssl_libssh2.pas (см. ниже) и привязки: (libssh2.pas, см. [это сообщение на форуме](http://www.lazarus.freepascal.org/index.php/topic,15935.msg86465.html#msg86465)). Двоичный файл libssh2 и привязки должны совпадать.
530	532
531	533		### Synapse libssh2 SSL plugin
532	534
533	535		> Note: плагин не доработан.
534	536
535	537		``` pascal
536	538		{
537	539		ssl_libssh2.pas version 0.2
538	540
539	541		Плагин поддержки SSH2 (черновик) для библиотеки Synapse (http://www.ararat.cz/synapse) от LibSSH2 (http://libssh2.org)
540	542		Требуется: интерфейс libssh2 pascal - http://www.lazarus.freepascal.org/index.php/topic,15935.msg86465.html#msg86465 и
541	543		libssh2.dll с OpenSSL.
542	544
543	545		(С) Alexey Suhinin http://x-alexey.narod.ru
544	546		}
545	547
546	548		{$IFDEF FPC}
547	549		{$MODE DELPHI}
548	550		{$ENDIF}
549	551		{$H+}
550	552
551	553		unit ssl_libssh2;
552	554
553	555		interface
554	556
555	557		uses
556	558		SysUtils,
557	559		blcksock, synsock,
558	560		libssh2;
559	561
560	562		type
561	563		{: @abstract(класс, реализующий плагин CryptLib SSL/SSH.)
562	564		Экземпляр этого класса будет создан для каждого @link(TTCPBlockSocket).
563	565		Вам не нужно создавать экземпляр этого класса, все делает сам Synapse!}
564	566		TSSLLibSSH2 = class(TCustomSSL)
565	567		protected
566	568		FSession: PLIBSSH2_SESSION;
567	569		FChannel: PLIBSSH2_CHANNEL;
568	570		function SSHCheck(Value: integer): Boolean;
569	571		function DeInit: Boolean;
570	572		public
571	573		{:См. @inherited}
572	574		constructor Create(const Value: TTCPBlockSocket); override;
573	575		destructor Destroy; override;
574	576		function Connect: boolean; override;
575	577		function LibName: String; override;
576	578		function Shutdown: boolean; override;
577	579		{:See @inherited}
578	580		function BiShutdown: boolean; override;
579	581		{:See @inherited}
580	582		function SendBuffer(Buffer: TMemory; Len: Integer): Integer; override;
581	583		{:See @inherited}
582	584		function RecvBuffer(Buffer: TMemory; Len: Integer): Integer; override;
583	585		{:See @inherited}
584	586		function WaitingData: Integer; override;
585	587		{:See @inherited}
586	588		function GetSSLVersion: string; override;
587	589		published
588	590		end;
589	591
590	592		implementation
591	593
592	594		{==============================================================================}
593	595		function TSSLLibSSH2.SSHCheck(Value: integer): Boolean;
594	596		var
595	597		PLastError: PAnsiChar;
596	598		ErrMsgLen: Integer;
597	599		begin
598	600		Result := true;
599	601		FLastError := 0;
600	602		FLastErrorDesc := '';
601	603		if Value<0 then
602	604		begin
603	605		FLastError := libssh2_session_last_error(FSession, PLastError, ErrMsglen, 0);
604	606		FLastErrorDesc := PLastError;
605	607		Result := false;
606	608		end;
607	609		end;
608	610
609	611		function TSSLLibSSH2.DeInit: Boolean;
610	612		begin
611	613		if Assigned(FChannel) then
612	614		begin
613	615		libssh2_channel_free(FChannel);
614	616		FChannel := nil;
615	617		end;
616	618		if Assigned(FSession) then
617	619		begin
618	620		libssh2_session_disconnect(FSession,'Goodbye');
619	621		libssh2_session_free(FSession);
620	622		FSession := nil;
621	623		end;
622	624		FSSLEnabled := False;
623	625		Result := true;
624	626		end;
625	627
626	628		constructor TSSLLibSSH2.Create(const Value: TTCPBlockSocket);
627	629		begin
628	630		inherited Create(Value);
629	631		FSession := nil;
630	632		FChannel := nil;
631	633		end;
632	634
633	635		destructor TSSLLibSSH2.Destroy;
634	636		begin
635	637		DeInit;
636	638		inherited Destroy;
637	639		end;
638	640
639	641		function TSSLLibSSH2.Connect: boolean;
640	642		begin
641	643		Result := False;
642	644		if SSLEnabled then DeInit;
643	645		if (FSocket.Socket <> INVALID_SOCKET) and (FSocket.SSL.SSLType = LT_SSHv2) then
644	646		begin
645	647		FSession := libssh2_session_init();
646	648		if not Assigned(FSession) then
647	649		begin
648	650		FLastError := -999;
649	651		FLastErrorDesc := 'Cannot initialize SSH session';
650	652		exit;
651	653		end;
652	654		if not SSHCheck(libssh2_session_startup(FSession, FSocket.Socket)) then
653	655		exit;
654	656		if (FSocket.SSL.PrivateKeyFile<>'') then
655	657		begin
656	658		if (not SSHCheck(libssh2_userauth_publickey_fromfile(FSession, PChar(FSocket.SSL.Username), nil, PChar(FSocket.SSL.PrivateKeyFile), PChar(FSocket.SSL.KeyPassword)))) then
657	659		exit;
658	660		end
659	661		else
660	662		if (FSocket.SSL.Username<>'') and (FSocket.SSL.Password<>'') then
661	663		begin
662	664		if (not SSHCheck(libssh2_userauth_password(FSession, PChar(FSocket.SSL.Username), PChar(FSocket.SSL.Password)))) then
663	665		exit;
664	666		end;
665	667		FChannel := libssh2_channel_open_session(FSession);
666	668		if not assigned(FChannel) then
667	669		begin
668	670		SSHCheck(-1); // получаем ошибку
669	671		if FLastError = 0 then
670	672		begin
671	673		FLastError := -999; // неизвестная ошибка
672	674		FLastErrorDesc := 'Cannot open session';
673	675		end;
674	676		exit;
675	677		end;
676	678		if not SSHCheck(libssh2_channel_request_pty(FChannel, 'vanilla')) then
677	679		exit;
678	680		if not SSHCheck(libssh2_channel_shell(FChannel)) then
679	681		exit;
680	682		FSSLEnabled := True;
681	683		Result := True;
682	684		end;
683	685		end;
684	686
685	687		function TSSLLibSSH2.LibName: String;
686	688		begin
687	689		Result := 'ssl_libssh2';
688	690		end;
689	691
690	692		function TSSLLibSSH2.Shutdown: boolean;
691	693		begin
692	694		Result := DeInit;
693	695		end;
694	696
695	697		function TSSLLibSSH2.BiShutdown: boolean;
696	698		begin
697	699		Result := DeInit;
698	700		end;
699	701
700	702		function TSSLLibSSH2.SendBuffer(Buffer: TMemory; Len: Integer): Integer;
701	703		begin
702	704		Result:=libssh2_channel_write(FChannel, PChar(Buffer), Len);
703	705		SSHCheck(Result);
704	706		end;
705	707
706	708		function TSSLLibSSH2.RecvBuffer(Buffer: TMemory; Len: Integer): Integer;
707	709		begin
708	710		result:=libssh2_channel_read(FChannel, PChar(Buffer), Len);
709	711		SSHCheck(Result);
710	712		end;
711	713
712	714		function TSSLLibSSH2.WaitingData: Integer;
713	715		begin
714	716		if libssh2_poll_channel_read(FChannel, Result) <> 1 then Result := 0;
715	717		end;
716	718
717	719		function TSSLLibSSH2.GetSSLVersion: string;
718	720		begin
719	721		Result:=libssh2_version(0);
720	722		end;
721	723
722	724		initialization
723	725		if libssh2_init(0)=0 then
724	726		SSLImplementation := TSSLLibSSH2;
725	727
726	728		finalization
727	729		libssh2_exit;
728	730
729	731		end.
730	732		```
731	733
732	734		### Класс клиента терминала
733	735
734	736		Модуль telnetsshclient.pas, представленный ниже, охватывает модуль Synapse tlntsend.pas и абстрагирует вход в систему, отправку команд, получение вывода и выход из системы.
735	737
736	738		Если вам нужен только telnet-клиент и вы можете жить без поддержки SSH, закомментируйте {\$DEFINE HAS_SSH_SUPPORT} ниже, чтобы вам не нужна была библиотека libssh2.
737	739
738	740		Этот модуль было слегка протестировано на сервере Linux ssh/telnet. Дополнительные тесты приветствуются.
739	741
740	742		``` pascal
741	743		unit telnetsshclient;
742	744
743	745		{ Обертка для библиотек Synapse и SSL (libssh2 + libssl
744	746		используется прямо сейчас)
745	747		Загрузите скомпилированную dll Windows, например,
746	748		http://alxdm.dyndns-at-work.com:808/files/windll_libssh2.zip
747	749		Загрузите файлы интерфейса FreePascal:
748	750		http://www.lazarus.freepascal.org/index.php/topic,15935.msg86465.html#msg86465
749	751
750	752		Это устройство позволяет пользователю отправлять команды Telnet или SSH и получать результат
751	753		Спасибо Leonardo Rame
752	754		http://leonardorame.blogspot.com/2010/01/synapse-based-ssh-client.html
753	755		и Ludo Brands.
754	756
755	757		Написано Reinier Olislagers 2011.
756	758		Изменено для libssh2 Алексеем Сухининым 2012.
757	759
758	760		Лицензия кода:
759	761		* MIT
760	762		* LGPLv2 или новее (с исключением статического связывания FreePascal)
761	763		* GPLv2 или новее
762	764		по вашему выбору.
763	765		Бесплатное использование разрешено, но, пожалуйста, не предъявляйте иск и не обвиняйте меня.
764	766
765	767		Использует другие библиотеки/компоненты; могут применяться разные лицензии, которые также могут влиять на комбинированную/скомпилированную работу.
766	768		}
767	769
768	770		{$mode objfpc}{$H+}
769	771		{$DEFINE HAS_SSH_SUPPORT} //закомментируйте, если требуется только поддержка telnet
770	772		{$DEFINE LIBSSH2}
771	773
772	774		interface
773	775
774	776		uses
775	777		Classes, SysUtils,
776	778		tlntsend
777	779		{$IFDEF HAS_SSH_SUPPORT}
778	780		{ssl - или на самом деле ssh - библиотеки, требуемые tlntsend}
779	781		{$IFDEF LIBSSH2}
780	782		ssl_libssh2
781	783		{$ELSE}
782	784		ssl_cryptlib
783	785		{$ENDIF}
784	786		{$ENDIF HAS_SSH_SUPPORT} ;
785	787
786	788		type
787	789		TProtocolType = (Telnet, SSH); //Различные способы подключения
788	790		TServerType = (Unix, Windows); //окончания строк, в основном
789	791		{ TelnetSSHClient }
790	792
791	793		{ TTelnetSSHClient }
792	794
793	795		TTelnetSSHClient = class(TTelnetSend)
794	796		protected
795	797		FConnected: boolean;
796	798		FOutputPosition: integer; //Отслеживает позицию в выходном потоке
797	799		FProtocolType: TProtocolType;
798	800		FServerLineEnding: string; //зависит от FServerType
799	801		FServerType: TServerType;
800	802		FWelcomeMessage, FTelnetLoginPrompt, FTelnetPasswordPrompt: string;
801	803		procedure SetPrivateKeyFile(Value: string);
802	804		function GetPrivateKeyFile: string;
803	805		{ В зависимости от протокола и типа сервера установите ожидаемое окончание строки на стороне сервера.}
804	806		procedure DetermineLineEnding;
805	807		{ Устанавливает порт, если он явно не задан. Использует тип протокола: SSH или telnet}
806	808		procedure DeterminePort;
807	809		function GetSessionLog: string;
808	810		procedure ProtocolTypeChange(Value: TProtocolType);
809	811		function ReceiveData: string; //Может использоваться для получения приветственного сообщения и т.д.
810	812		procedure SendData(Data: string);
811	813		procedure ServerTypeChange(Value: TServerType);
812	814		public
813	815		{Весь вывод, созданный в течение всего сеанса до настоящего момента}
814	816		property AllOutput: string read GetSessionLog;
815	817		{Истинно, если есть подключение к серверу}
816	818		property Connected: boolean read FConnected;
817	819		{Имя или IP-адрес хоста для подключения}
818	820		property HostName: string read FTargetHost write FTargetHost;
819	821		{Порт на хосте, используемый для подключения. Если оставить 0, он будет определяться типом протокола (22 для SSH, 23 для Telnet)}
820	822		property Port: String read FTargetPort write FTargetPort;
821	823		{Расположение файла закрытого ключа.}
822	824		property PrivateKeyFile: string read GetPrivateKeyFile write SetPrivateKeyFile;
823	825		{Telnet login prompt}
824	826		property TelnetLoginPrompt: string read FTelnetLoginPrompt write FTelnetLoginPrompt;
825	827		{Подсказка входа в Telnet}
826	828		property TelnetPasswordPrompt: string read FTelnetPasswordPrompt write FTelnetPasswordPrompt;
827	829		{Имя пользователя, используемое при подключении}
828	830		property UserName: string read FUserName write FUserName;
829	831		{Пароль, используемый при подключении. Используется как кодовая фраза, если используется PrivateKey}
830	832		property Password: string read FPassword write FPassword;
831	833		{Должны ли мы общаться с сервером через Telnet или SSH? По умолчанию SSH.}
832	834		property ProtocolType: TProtocolType read FProtocolType write ProtocolTypeChange;
833	835		{Сервер Windows или Unix/Linux? Влияет на окончания строк. По умолчанию Unix. ПРИМЕЧАНИЕ: непроверено}
834	836		property Servertype: TServerType read FServerType write ServerTypeChange;
835	837		{Первоначальное сообщение отображается при входе в систему}
836	838		property WelcomeMessage: string read FWelcomeMessage;
837	839		{Подключение/вход на сервер. Требуется, чтобы все параметры аутентификации, протокола и имени хоста/порта были правильными
838	840		Возвращает описательный результат. Затем вы можете использовать свойство Connected.}
839	841		function Connect: string;
840	842		{Если подключено, выйти с сервера}
841	843		procedure Disconnect;
842	844		{Отправляет команду на сервер и получает результат}
843	845		function CommandResult(Command: string): string; //Отправьте команду и получите результат
844	846		constructor Create;
845	847		destructor Destroy; override;
846	848		end;
847	849
848	850		implementation
849	851
850	852
851	853		{ TelnetSSHClient }
852	854		procedure TTelnetSSHClient.SetPrivateKeyFile(value: string);
853	855		begin
854	856		Sock.SSL.PrivateKeyFile := value;
855	857		end;
856	858
857	859		function TTelnetSSHClient.GetPrivateKeyFile: string;
858	860		begin
859	861		Result := Sock.SSL.PrivateKeyFile;
860	862		end;
861	863
862	864		procedure TTelnetSSHClient.DetermineLineEnding;
863	865		begin
864	866		case FProtocolType of
865	867		SSH:
866	868		begin
867	869		if FServerType = Unix then
868	870		FServerLineEnding := #10 //Unix
869	871		else
870	872		FServerLineEnding := #13 + #10; //windows
871	873		end;
872	874		Telnet:
873	875		begin
874	876		if FServerType = Unix then
875	877		FServerLineEnding := #10 //Unix
876	878		else
877	879		FServerLineEnding := #13 + #10; //windows
878	880		end;
879	881		else
880	882		raise Exception.Create('Unknown protocol type');
881	883		end;
882	884		end;
883	885
884	886		procedure Ttelnetsshclient.DeterminePort;
885	887		begin
886	888		if FTargetPort = '' then
887	889		//Задаем порт по умолчанию для протокола
888	890		begin
889	891		case FProtocolType of
890	892		Telnet: FTargetPort := '23';
891	893		SSH: FTargetPort := '22';
892	894		else
893	895		raise Exception.Create('Unknown protocol type.');
894	896		end;
895	897
896	898		end;
897	899		end;
898	900
899	901		procedure TTelnetSSHClient.ServerTypeChange(Value: Tservertype);
900	902		begin
901	903		FServerType := Value;
902	904		DetermineLineEnding;
903	905		end;
904	906
905	907		function TTelnetSSHClient.Connect: string;
906	908		var
907	909		Received: string;
908	910		begin
909	911		result:='Unknown error while connecting';
910	912		FOutputPosition := 1; //Первый символ в потоке вывода
911	913		FWelcomeMessage := '';
912	914		//Просто чтобы убедиться:
913	915		DetermineLineEnding;
914	916		DeterminePort;
915	917		if FTargetPort='0' then
916	918		begin
917	919		result:='Port may not be 0.';
918	920		exit; //выскакиваем из функции
919	921		end;
920	922		case FProtocolType of
921	923		Telnet:
922	924		begin
923	925		try
924	926		if Login then
925	927		begin
926	928		FConnected := True;
927	929		result:='Connected to telnet server.';
928	930		end
929	931		else
930	932		if Sock.LastError<>0 then raise Exception.Create(Sock.LastErrorDesc);
931	933		except
932	934		on E: Exception do
933	935		begin
934	936		FConnected:=false;
935	937		result:='Error connecting to telnet server '+FTargetHost+':'+
936	938		FTargetPort+' as user ' + FUserName +
937	939		'. Technical details: '+E.Message;
938	940		end;
939	941		end;
940	942		end;
941	943		SSH:
942	944		begin
943	945		{$IFNDEF HAS_SSH_SUPPORT}
944	946		raise Exception.Create(
945	947		'SSH support has not been compiled into the telnetsshclient library.');
946	948		{$ENDIF HAS_SSH_SUPPORT}
947	949		try
948	950		if (PrivateKeyFile <> '') and (FPassword <> '') then
949	951		Sock.SSL.KeyPassword:=FPassword;
950	952		if SSHLogin then
951	953		begin
952	954		FConnected := True;
953	955		result:='Connected to SSH server.';
954	956		end
955	957		else
956	958		begin
957	959		if Sock.LastError<>0 then raise Exception.Create(Sock.LastErrorDesc);
958	960		if Sock.SSL.LastError<0 then raise Exception.Create(Sock.SSL.LastErrorDesc);
959	961		end;
960	962		except
961	963		on E: Exception do
962	964		begin
963	965		FConnected:=false;
964	966		result:='Error connecting to SSH server '+FTargetHost+':'+
965	967		FTargetPort+' as user ' + FUserName +
966	968		'. Technical details: '+E.Message;
967	969		end;
968	970		end;
969	971		end;
970	972		else
971	973		raise Exception.Create('Unknown protocol type');
972	974		end;
973	975		if FConnected = True then
974	976		begin
975	977		FWelcomeMessage := ReceiveData;
976	978		if FProtocolType=Telnet then
977	979		begin
978	980		//К сожалению, нам придется извлекать логин самостоятельно
979	981		//Надеюсь, это применимо ко всем типам серверов.
980	982		if (AnsiPos(AnsiLowerCase(FTelnetLoginPrompt),AnsiLowerCase(FWelcomeMessage))>0) then
981	983		begin
982	984		SendData(UserName);
983	985		end;
984	986		Received:=ReceiveData;
985	987		if (AnsiPos(AnsiLowerCase(FTelnetPasswordPrompt),AnsiLowerCase(Received))>0) then
986	988		begin
987	989		SendData(Password);
988	990		end;
989	991		//Получаем дополнительное приветственное сообщение/подсказку дня
990	992		FWelcomeMessage:=FWelcomeMessage+LineEnding+ReceiveData;
991	993		end;
992	994		end;
993	995		end;
994	996
995	997		procedure TTelnetSSHClient.Disconnect;
996	998		begin
997	999		Logout;
998	1000		FConnected := False;
999	1001		end;
1000	1002
1001	1003		function TTelnetSSHClient.ReceiveData: string;
1002	1004		begin
1003	1005		Result := '';
1004	1006		while Sock.CanRead(1000) or (Sock.WaitingData > 0) do
1005	1007		begin
1006	1008		Sock.RecvPacket(1000);
1007	1009		Result := Result + Copy(SessionLog, FOutputPosition,
1008	1010		Length(SessionLog));
1009	1011		FOutputPosition := Length(SessionLog) + 1;
1010	1012		end;
1011	1013		end;
1012	1014
1013	1015		procedure Ttelnetsshclient.SendData(Data: String);
1014	1016		begin
1015	1017		Data := Data + FServerLineEnding; //Может быть Linux, может быть Windows
1016	1018		Send(Data);
1017	1019		end;
1018	1020
1019	1021		function TTelnetSSHClient.GetSessionLog: string;
1020	1022		begin
1021	1023		// Получает полный вывод на данный момент
1022	1024		Result := SessionLog;
1023	1025		end;
1024	1026
1025	1027		procedure TTelnetSSHClient.ProtocolTypeChange(Value: Tprotocoltype);
1026	1028		begin
1027	1029		FProtocolType := Value;
1028	1030		//Автоматическое определение порта и символов конца строки, если необходимо
1029	1031		DeterminePort;
1030	1032		DetermineLineEnding;
1031	1033		end;
1032	1034
1033	1035		function TTelnetSSHClient.CommandResult(Command: string): string;
1034	1036		begin
1035	1037		Result := '';
1036	1038		if FConnected then
1037	1039		begin
1038	1040		SendData(Command);
1039	1041		Result := ReceiveData; //получает слишком много
1040	1042		end
1041	1043		else
1042	1044		begin
1043	1045		//возбуждаем исключение
1044	1046		Result := '';
1045	1047		raise Exception.Create('Can only run command when connected');
1046	1048		end;
1047	1049		end;
1048	1050
1049	1051		constructor TTelnetSSHClient.Create;
1050	1052		begin
1051	1053		inherited;
1052	1054		FConnected := False;
1053	1055		FProtocolType := SSH; //также может быть telnet
1054	1056		FServerType := Unix; //Probably a safe default.
1055	1057		FTelnetLoginPrompt := 'login:';
1056	1058		FTelnetPasswordPrompt := 'password:';
1057	1059		DetermineLineEnding;
1058	1060		DeterminePort;
1059	1061		end;
1060	1062
1061	1063		destructor TTelnetSSHClient.Destroy;
1062	1064		begin
1063	1065		if FConnected then
1064	1066		Disconnect;
1065	1067		inherited Destroy;
1066	1068		end;
1067	1069
1068	1070		end.
1069	1071		```
1070	1072
1071	1073		### Пример клиентского кода
1072	1074
1073	1075		Чтобы использовать только что созданный класс TTelnetSSHClient, вы можете использовать этот пример приложения, sshtest.lpr. Обратите внимание, что он должен быть скомпилирован Lazarus, так как ему нужны компоненты LCL для работы с Synapse:
1074	1076
1075	1077		``` pascal
1076	1078		program sshtest;
1077	1079
1078	1080		{Программа тестирования для telnetsshclient
1079	1081
1080	1082		Написано Reinier Olislagers 2011.
1081	1083		Изменено для libssh2 Алексеем Сухининым 2012.
1082	1084
1083	1085		Лицензия кода:
1084	1086		* MIT
1085	1087		* LGPLv2 или новее (с исключением статического связывания FreePascal)
1086	1088		* GPLv2 или новее
1087	1089		по вашему выбору.
1088	1090		Бесплатное использование разрешено, но, пожалуйста, не предъявляйте претензии и не обвиняйте меня.
1089	1091
1090	1092		Использует другие библиотеки/компоненты; могут применяться разные лицензии, которые также могут влиять на комбинированную/скомпилированную работу.
1091	1093
1092	1094		Запустите: sshtest serverIPorhostname [PrivateKeyFile]
1093	1095		}
1094	1096		{$mode objfpc}{$H+}
1095	1097		{$APPTYPE CONSOLE}
1096	1098
1097	1099		uses
1098	1100		telnetsshclient;
1099	1101		var
1100	1102		comm: TTelnetSSHClient;
1101	1103		Command: string;
1102	1104		begin
1103	1105		writeln('Starting.');
1104	1106		comm:=TTelnetSSHClient.Create;
1105	1107		comm.HostName:= ParamStr(1); //Первый аргумент в командной строке
1106	1108		if comm.HostName='' then
1107	1109		begin
1108	1110		writeln('Please specify hostname on command line.');
1109	1111		halt(1);
1110	1112		end;
1111	1113
1112	1114		comm.PrivateKeyFile := ParamStr(2);
1113	1115
1114	1116		comm.TargetPort:='0'; //автоматическое определение на основе типа протокола
1115	1117		comm.UserName:='root'; //измените с соответствии с своей ситуацией
1116	1118		comm.Password:='password'; //измените с соответствии с своей ситуацией
1117	1119		comm.ProtocolType:=SSH; //Telnet или SSH
1118	1120		writeln(comm.Connect); //Показать результат подключения
1119	1121		if comm.Connected then
1120	1122		begin
1121	1123		writeln('Server: ' + comm.HostName + ':'+comm.TargetPort+', user: '+comm.UserName);
1122	1124		writeln('Welcome message:');
1123	1125		writeln(comm.WelcomeMessage);
1124	1126		Command:='ls -al';
1125	1127		writeln('*** Sending ' + Command);
1126	1128		writeln('* Begin result**');
1127	1129		writeln(comm.CommandResult(Command));
1128	1130		writeln('* End result**');
1129	1131		writeln('');
1130	1132		writeln('');
1131	1133		Command:='df -h';
1132	1134		writeln('*** Sending ' + Command);
1133	1135		writeln('* Begin result**');
1134	1136		writeln(comm.CommandResult(Command));
1135	1137		writeln('* End result**');
1136	1138		writeln('');
1137	1139		writeln('');
1138	1140		writeln('All output:');
1139	1141		writeln('* Begin result**');
1140	1142		writeln(comm.AllOutput);
1141	1143		writeln('* End result**');
1142	1144		comm.Disconnect;
1143	1145		end
1144	1146		else
1145	1147		begin
1146	1148		writeln('Connection to ' +
1147	1149		comm.HostName + ':' +
1148	1150		comm.TargetPort + ' failed.');
1149	1151		end;
1150	1152		comm.Free;
1151	1153		end.
1152	1154		```
1153	1155
1154	1156		## Интреграция OAuth с v1/Twitter/Plurk
1155	1157
1156	1158		Библиотека OAuth v1, написанная на FPC, которая использует Synapse (и готова для других сетевых библиотек, таких как lnet) доступна [здесь](https://bitbucket.org/mararosas/fpctwit/src/default/). FPCTwit также содержит примеры клиентских программ FPC twitter и plurk и Twitter-клиент Lazarus.
1157	1159
1158	1160		## Другие статьи о Интернете и сетях
1159	1161
1160	1162		- [[Portal:Web Development\|Web Development Portal]]
1161	1163		- [[Networking]]
1162	1164		- [[Networking libraries]] - сравнение различных сетевых библиотек
1163	1165		- [[Brook Framework]] - Идеальный фреймворк Free Pascal для ваших веб-приложений. Это чистый Паскаль. Вам не нужно оставлять предпочитаемый язык программирования.
1164	1166		- [[Sockets]] - Компоненты сокетов TCP/IP
1165	1167		- [[fcl-net]] - Сетевая библиотека, поставляемая с FPC
1166	1168		- [[lNet]] - Легковесные сетевые компоненты
1167	1169		- [[Synapse]] - Последовательный порт и синхронная библиотека TCP/IP
1168	1170		- [[XML Tutorial]] -XML, часто использующиеся в сетевых коммуникациях
1169	1171		- [[FPC and Apache Modules]]
1170	1172		- [[fcl-web]] - Также известная как fpWeb, это библиотека для разработки веб-приложений, которые можно развернуть как модули cgi, fastcgi или apache.
1171	1173		- [[Secure programming\|Безопасное программирование]]
1172	1174		- [[Internet Tools]] - Обертка для HTTP-компонентов Synapse/wininet/Android, упрощающая https и перенаправления, и механизм XPath/XQuery/CSS Selector/JSONiq для обработки загруженных страниц.
1173	1175
1174	1176		## См.также
1175	1177
1176	1178		- [[Download from SourceForge]] Пример, который использует Synapse для загрузки с HTTP-сервера, который перенаправляет.
1177	1179		- [Visual Synapse](https://sourceforge.net/projects/visualsynapse/) обертки компонентов для многих частей последовательной и сетевой библиотеки Synapse (TvsComPort, TvsWebClient, TvsSniffer, TvsHTTPServer, TvsFTPServer, TvsAuthentication, TvsVisualDNS, TvsVisualHTTP, TvsVisualDUP, TvsVisualHTTP, TvsVisualDUP, TvsViscksVisualTvs
1178	1180		- [Компонент TCP/IP на базе Synapse + небольшое демо приложение](https://forum.lazarus.freepascal.org/index.php/topic,48677.0.html)
1179	1181
1180	1182		## Внешние ссылки
1181	1183
1182	1184		- [Официальный сайт](http://www.ararat.cz/synapse/)
1183	1185		- [Официальная документация](http://synapse.ararat.cz/doc/help/)
1184	1186		- [Пользователь malcome создал форк, чтобы быстрее улучшить Synapse](http://lazarus.freepascal.org/index.php/topic,16032.msg87066.html#msg87066); этот форк расположен в [Google code site for Synapse4Lazarus](http://code.google.com/p/synapse4lazarus/)
1185	1187
1186	1188		---
1187	1189		From the Free Pascal wiki, page "Synapse/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