Лекция 14.«Пинг-понг». 39 страница

Seconda epistola di Mormon a

suo figlio Moroni.

Comprende il capitolo 9.

Moroni Capitolo 9

Sia i Nefiti che i Lamaniti sono depravati e degenerati -- Essi si torturano e si uccidono a vicenda -- Mormon prega affinché la grazia e la bontà possano rimanere su Moroni per sempre. Circa 401 - 421 d.C.

Moroni 9:1 FIGLIO mio diletto, ti scrivo di nuovo affinché tu sappia che io sono ancora vivo; ma ti scrivo un poco di ciò che è doloroso.

Moroni 9:2 Poiché ecco, ho avuto una violenta battaglia con i Lamaniti, nella quale non abbiamo vinto; ed Archeanto è caduto di spada, ed anche Luram e Emron; sì, ed abbiamo perduto un gran numero dei nostri uomini migliori.

Moroni 9:3 Ed ora ecco, figlio mio, temo che i Lamaniti distruggano questo popolo, poiché non si pentono; e Satana li aizza continuamente all'ira gli uni contro gli altri.

Moroni 9:4 Ecco, io m'adopero continuamente con loro; e quando proclamo la parola di Dio con severità essi tremano e si adirano contro di me; e quando non uso severità, essi induriscono il cuore contro di essa; pertanto, temo che lo Spirito del Signore abbia cessato di lottare con loro.

Moroni 9:5 Poiché essi si adirano tanto che mi pare non abbiano timore della morte; ed hanno perduto il loro amore gli uni verso gli altri; e sono continuamente assettati di sangue e di vendetta.

Moroni 9:6 Ed ora, figlio mio diletto, nonostante la loro durezza, lavoriamo diligentemente; poiché se cessassimo di lavorare, saremmo messi sotto condanna; poiché abbiamo un'opera da compiere mentre siamo in questo tabernacolo di creta, affinché possiamo vincere il nemico di ogni rettitudine e di dar riposo alle nostre anime nel regno di Dio.

Moroni 9:7 Ed ora scrivo un poco riguardo alle sofferenze di questo popolo. Poiché, secondo le informazioni che ho ricevuto da Amoron, ecco, i Lamaniti hanno molti prigionieri che hanno preso dalla torre di Sherriza; e c'erano uomini, donne e bambini.

Moroni 9:8 E i mariti e i padri di quelle donne e di quei bambini li hanno uccisi; e danno da mangiare alle mogli la carne dei loro mariti, e ai bambini la carne dei loro padri; e non danno loro acqua, salvo poca.

Moroni 9:9 E nonostante questa grande abominazione da parte dei Lamaniti, essa non supera quella del nostro popolo a Moriantum. Poiché ecco, essi hanno preso prigioniere molte delle figlie dei Lamaniti; e dopo averle private di quello che era più caro e più prezioso sopra ogni cosa, cioè la castità e la virtù --

Moroni 9:10 E dopo aver fatto ciò, le hanno ammazzate nella maniera più crudele, torturando i loro corpi fino alla morte; e dopo aver fatto questo essi divorano la loro carne come bestie selvagge, a causa della durezza dei loro cuori; e lo fanno come segno di valore.

Moroni 9:11 O figlio mio diletto, come può un popolo come questo, che è senza civiltà --

Moroni 9:12 (E sono trascorsi soltanto pochi anni, ed erano un popolo civile e bello)

Moroni 9:13 Ma, o figlio mio, come può un popolo come questo, che si diletta in tanta abominazione --

Moroni 9:14 Come possiamo aspettarci che Dio fermerà la sua mano in giudizio contro di noi?

Moroni 9:15 Ecco, il mio cuore grida: Guai a questo popolo. Esci in giudizio, o Dio, e nascondi i loro peccati, la malvagità e le abominazioni da dinanzi alla tua faccia!

Moroni 9:16 E ancora, figlio mio, vi sono molte vedove e le loro figlie che rimangono a Sherriza; e quella parte di provviste che i Lamaniti non hanno portato via, ecco l'ha portata via l'esercito di Zenefi, e le ha lasciate a vagare ovunque possono in cerca di cibo; e molte donne anziane vengono meno lungo la via e muoiono.

Moroni 9:17 E l'esercito che è con me è debole; e gli eserciti dei Lamaniti stanno fra me e Sherriza; e tutti quelli che sono fuggiti per raggiungere l'esercito di Aaronne sono caduti vittime della loro terribile brutalità.

Moroni 9:18 Oh, depravazione del mio popolo! Essi sono senza ordine e senza misericordia. Ecco, io sono soltanto un uomo, non ho che la forza di un uomo, e non posso più far rispettare i miei ordini.

Moroni 9:19 Essi si sono rafforzati nella loro perversione; e sono ugualmente brutali, non risparmiano nessuno, né vecchi, né giovani; e si dilettano di tutto salvo che di ciò che è buono; e la sofferenza delle nostre donne e dei nostri bambini su tutta la faccia di questo paese sorpassa ogni cosa; sì, la lingua non può narrarle, né possono essere scritte.

Moroni 9:20 Ed ora, figlio mio, non mi soffermo oltre su questa orribile scena. Ecco, tu conosci la malvagità di questo popolo; sai che essi sono senza principi e insensibili; e la loro malvagità sorpassa quella dei Lamaniti.

Moroni 9:21 Ecco, figlio mio, non posso raccomandarli a Dio, per timore che egli mi colpisca.

Moroni 9:22 Ma ecco, figlio mio, raccomando te a Dio, e confido in Cristo che tu sarai salvato; e prego Dio che risparmi la tua vita per testimoniare il ritorno del suo popolo a Lui o la sua totale distruzione; poiché so che essi debbono perire, a meno che non si pentano e ritornino a Lui.

Moroni 9:23 E se periranno, sarà come per i Giarediti, a causa dell'ostinazione dei loro cuori, nel cercare il sangue e la vendetta.

Moroni 9:24 E se accadrà che periranno, sappiamo che molti dei nostri fratelli hanno disertato e sono passati ai Lamaniti e anche molti altri diserteranno e passeranno a loro; pertanto scrivi alcune poche cose, se sarai risparmiato e io morirò senza vederti; ma confido di poterti vedere presto, poiché ho dei sacri annali che vorrei affidarti.

Moroni 9:25 Figlio mio, sii fedele in Cristo; e che le cose che ti ho scritto non ti affliggano, opprimendoti fino alla morte; ma possa Cristo elevarti, e possano le sue sofferenze e la sua morte, e l'aver mostrato il suo corpo ai nostri padri, e la sua misericordia e longanimità, e la speranza della sua gloria e della vita eterna rimanere per sempre nella tua mente.

Moroni 9:26 E che la grazia di Dio Padre, il cui trono è nell'alto dei cieli, e di nostro Signore Gesù Cristo, che siede alla destra del suo potere fino a che tutte le cose gli saranno soggette, sia e dimori con te per sempre. Amen.

Mormon Capitolo 10

La testimonianza del Libro di Mormon viene mediante il potere dello Spirito Santo -- I doni dello Spirito sono dispensati ai fedeli -- I doni spirituali accompagnano sempre la fede -- Le parole di Moroni parlano dalla polvere -- Venite a Cristo, siate resi perfetti in Lui e santificate la vostra anima. Circa 421 d.C.

Moroni 10:1 ORA io, Moroni, scrivo un poco, come mi sembra bene; e scrivo ai miei fratelli, i Lamaniti; e vorrei che essi sapessero che sono trascorsi più di quattrocentoventi anni da quando fu dato il segno della venuta di Cristo.

Moroni 10:2 E sigillo questi annali, dopo avervi detto qualche parola a mo' di esortazione.

Moroni 10:3 Ecco, vorrei esortarvi, quando leggerete queste cose, se sarà nella saggezza di Dio che le leggiate, che vi ricordiate quanto misericordioso sia stato il Signore verso i figlioli degli uomini, dalla creazione di Adamo fino al tempo in cui riceverete queste cose, e che le meditiate nel vostro cuore.

Moroni 10:4 E quando riceverete queste cose, vorrei esortarvi a domandare a Dio, Padre Eterno, nel nome di Cristo, se queste cose non sono vere; e se lo chiederete con cuore sincero, con intento reale, avendo fede in Cristo, egli ve ne manifesterà la verità mediante il potere dello Spirito Santo.

Moroni 10:5 E mediante il potere dello Spirito Santo voi potrete conoscere la verità di ogni cosa.

Moroni 10:6 E ogni cosa che è buona, è giusta e vera; pertanto nulla che sia buono nega il Cristo, ma riconosce che egli è.

Moroni 10:7 E mediante il potere dello Spirito Santo potete sapere che egli è; pertanto vorrei esortarvi a non negare il potere di Dio; poiché egli opera con potere, secondo la fede dei figlioli degli uomini, nello stesso modo oggi, domani e per sempre.

Moroni 10:8 E ancora vi esorto, fratelli miei, a non negare i doni di Dio, poiché son numerosi e provengono dallo stesso Dio. E vi sono differenti modi in cui questi doni vengono impartiti; ma è lo stesso Dio che opera tutto in tutti; ed essi sono dati mediante le manifestazioni dello Spirito di Dio agli uomini, per essere loro di profitto.

Moroni 10:9 Poiché ecco, a uno è dato mediante lo Spirito di Dio di poter insegnare parole di saggezza;

Moroni 10:10 E ad un altro, mediante lo stesso Spirito, di poter insegnare parole di conoscenza;

Moroni 10:11 E ad un altro una grandissima fede; e ad un altro, mediante lo stesso Spirito, doni di guarigione;

Moroni 10:12 E ancora, a un altro, di poter operare possenti miracoli;

Moroni 10:13 E ancora, a un altro, di poter profetizzare riguardo a tutte le cose;

Moroni 10:14 E ancora, a un altro, di vedere gli angeli e gli spiriti ministranti;

Moroni 10:15 E ancora, a un altro, ogni sorta di lingue;

Moroni 10:16 E ancora, a un altro, l’interpretazione dei linguaggi e delle diverse specie di lingue.

Moroni 10:17 E tutti questi doni vengono mediante lo Spirito di Cristo; e giungono a ogni uomo individualmente, secondo come egli vuole.

Moroni 10:18 E vorrei esortarvi, miei diletti fratelli, a ricordare che ogni buon dono viene da Cristo.

Moroni 10:19 E vorrei esortarvi, miei diletti fratelli, a ricordare che egli è lo stesso, ieri, oggi e per sempre e che tutti questi doni di cui ho parlato, che sono spirituali, non saranno mai aboliti fintantoché esisterà il mondo, dipendendo solo dall’incredulità dei figlioli degli uomini.

Moroni 10:20 Pertanto deve esserci fede; e se deve esserci fede deve pure esserci speranza; e se deve esserci speranza deve esserci anche carità.

Moroni 10:21 E a meno che non abbiate carità, non potete in alcun modo essere salvati nel regno di Dio; né potete essere salvati nel regno di Dio se non avete fede; né lo potete se non avete speranza.

Moroni 10:22 E se non avete speranza dovete necessariamente essere nella disperazione; e la disperazione viene a causa dell'iniquità.

Moroni 10:23 E Cristo disse in verità ai nostri padri: Se avete fede, potete fare ogni cosa che mi sia opportuna.

Moroni 10:24 Ed ora parlo a tutte le estremità della terra -- se verrà il giorno in cui il potere e i doni di Dio saranno aboliti fra voi, ciò sarà a causa dell’incredulità.

Moroni 10:25 E guai ai figlioli degli uomini se sarà così! Poiché non vi sarà nessuno che faccia il bene fra voi, no, neppure uno. Poiché, se vi fosse fra voi uno solo che fa il bene, opererebbe mediante il potere e i doni di Dio.

Moroni 10:26 E guai a coloro che aboliranno queste cose e moriranno, poiché moriranno nei loro peccati, e non potranno essere salvati nel regno di Dio; e lo dico secondo le parole di Cristo; e non mento.

Moroni 10:27 E vi esorto a ricordare queste cose; poiché viene presto il tempo in cui saprete che non mento, poiché mi vedrete alla sbarra di Dio; e il Signore Iddio vi dirà: Non vi ho forse proclamato le mie parole, che furono scritte da quest'uomo, come uno che grida dai morti; sì, come uno che parla dalla polvere?

Moroni 10:28 Io proclamo queste cose in adempimento delle profezie. Ed ecco, esse procederanno dalla bocca dell'eterno Iddio; e la sua parola risuonerà di generazione in generazione.

Moroni 10:29 Ed Iddio vi mostrerà che ciò che ho scritto è vero.

Moroni 10:30 E vorrei ancora esortarvi a venire a Cristo, a tenervi stretti a ogni buon dono, e a non toccare i doni malvagi, né le cose impure.

Moroni 10:31 E risvegliati, e alzati dalla polvere, o Gerusalemme; sì, indossa le tue belle vesti; o figlia di Sion; e rafforza i tuoi pali, allarga i tuoi confini per sempre, affinché tu non sia più confusa; affinché le alleanze del Padre Eterno che egli ha fatto con te, o casato d'Israele, possano adempiersi.

Moroni 10:32 Sì, venite a Cristo, e siate perfetti in Lui, e rifuggite da ogni empietà; e se rifuggite da ogni empietà e amate Dio con tutta la vostra forza, mente e facoltà, allora la sua grazia vi sarà sufficiente, cosicché mediante la sua grazia possiate essere perfetti in Cristo; e se mediante la grazia di Dio siete perfetti in Cristo, non potrete in alcun modo negare il potere di Dio.

Moroni 10:33 E ancora, se mediante la grazia di Dio siete perfetti in Cristo e non negate il suo potere, allora sarete santificati in Cristo mediante la grazia di Dio, tramite lo spargimento del sangue di Cristo, che è nell'alleanza del Padre per la remissione dei vostri peccati, affinché diventiate santi, senza macchia.

Moroni 10:34 Ed ora dico a tutti addio. Andrò presto a riposare nel paradiso di Dio, fino a che il mio spirito e il mio corpo si riuniranno di nuovo, e io sarò portato trionfante attraverso l’aria, per incontrarvi dinanzi alla piacevole sbarra del grande Geova, il Giudice Eterno sia dei vivi che dei morti. Amen.

Лекция 14.«Пинг-понг».

Для следующего примера нам придется расширить возможности Delphi. Те компоненты, которые доступны на палитре — это только основа. Вы можете расширять их количество и качество по своему усмотрению. Для этого в сети Интернет много библиотек компонентов, которые можно подключать к Delphi. Среди них есть платные, а есть и бес­платные, которые по качеству не отличаются даже от родных, написанных и Borland.

Сейчас мы напишем собственную утилиту Ping. Для ее написания нам понадобится очень сильная и бесплатная библиотека Internet Component Suite (ICS). Ее вы можете найти по адресу http://www.rtfm.be/fpiette/indexuk.htm или на компакт-диске к книге в директории Компоненты\Internet\ICS. Скопируйте файлы себе на диск, например в C:\components, разархивируйте их — скоро они вам пригодятся.

Теперь запустите Delphi. Как всегда, при запуске будет создан новый проект. Он нам пока не нужен, поэтому закройте его (File\Close All), Теперь нужно открыть с помощью Delphi библиотеку, которую вы скачали из сети или взяли на компакт-диске. Файл, который надо открыть, называется IcsdelXX.dpk, где XX— номер версии установленного у вас Delphi. Если у вас стоит Delphi 6 или Delphi 7, то можно открыть Icsclel50.dpk. В библиотеке нет файлов для этих версий, но 5-й установится без проблем.

Рис. 4.13. Окно библиотеки компонентов

Когда вы откроете библиотеку, перед вами появится окно, как на рис. 4.13. В этом окне нажмите кнопку Install, чтобы Delphi откомпилировал пакет и пpoинсталлировал его.

Если вы все сделали правильно, то должно появиться окно с перечислением новых установленных компонентов (рис. 4.14).

Рис. 4.14. Установка завершена

Теперь нужно указать Delphi, где находятся файлы пакета, чтобы он мог при компиляции проектов найти все необходимое. Для этого выберите в меню Tools пункт Environment Options. Перед вами появится окно настроек Delphi, Перейдите на вкладку Library (рис. 4.15).

Рис. 4.15. Настройка Delphi

Щелкните на кнопке с тремя точками напротив строки Library path, и вы увидите окно, как на рис. 4.16. Внизу окна есть строка ввода. Введите туда путь к директории, куда вы разархивировали пакет (у меня это C:\componcnts\ Delphi\Vc32). Нажмите кнопку Add. Теперь можно закрывать все открытые окна, нажимая многочисленные ОК.

Рис. 4.16. Добавление директории пакетов

На компонентной палитре появилась новая закладка FPiette. Все компоненты этой библиотеки очень быстрые и достаточно хорошие. Единственный обнаруженный мной недостаток - глючит компонент FTPClient.

Рис. 4.17. Закладка FPiette

Все необходимые компоненты установлены, так что теперь переходим к программированию. Опять закройте все окна, и на вопросы о сохранении изменений в пакете отвечайте Да. Создайте новый проект. Перемесите на форму два компонента TLabel и два TEdit. Разместите их так, как показано на рис. 4.18.

У Label1 измените свойство Caption на «Имя компьютера», а у Iabel2 - на «Размер пакета». Напротив Label1 должен стоять Edit1. Сюда вы будете вводить IP -адрес или имя компьютера, который надо пропинговать. В Edit2 будем вводить размер пакета.

Еще не помешает перенести на форму компонент RichEdit с закладки Win32, и него мы будем записывать результат выполнения опеции. И наконец, разместите на форме компонент ping с закладки FPiette, который и будет производить пинг (рис. 4.19).

Рис. 4.18. Форма будущей программы

Рис. 4.19. Свойства компонента Ping

Все, форма готова. Осталось только написать код, которого не так уж и много.

Создайте обработчик события onclick кнопки. Там нужно написать следующее:

procedure TPingForm.Button1Click (Sender: TObject)

begin

RichEdit1.Lines.Add('Поиск''' + Edit1.Text + '''');

Ping1.Size:=StrToInt(Edit2.Text);

Ping1.DnsLookup (Edit1.Text);

end;

Здесь первой строкой через компонент RichEdit выводится сообщение о начале пинга. Вторая строка устанавливает размер пакета пинга (ping1.size), как указано в Edit2, Последняя строка запускает поиск ком­пьютера через DNS (ping1.DnsLookup). Даже если вы введете IP -адрес, поиск в базе DNS ничего плохого не сделает.

Теперь выделите компонент Ping1 и создайте для него обработчик события OnDnsLookupDone (когда закончен поиск в базе DNS). Здесь напишите следующее:

procedure TPingForm.Ping1DnsLookupDone (Sender: TObject; Error: Word)

begin

//Если произошла ошибка, то...

if Error <> 0 then

begin

//Вывести сообщение об ошибке

RichEdit1.Lines.Add('Хост не найден ''' + Edit1.Text + '''');

//Выход

Exit;

end;

//Если ошибок не было, то выводим в RichEdit1 результат поиска

RichEdit1.Lines.Add('Хост ''' + Edit1.Text +''' - '+Ping1.DnsResult); //Устанавливаем //свойство Address компонента Ping равным адресу, найденному в базе DNS

Ping1.Address:= Ping1.DnsResult;

//Запускаем Ping

Ping1.Ping;

end;

Чтобы легче было разобраться с его содержимым, листинг снабжен комментариями. В этой процедуре ничего сложного нет, и комментариев будет достаточно для понимания происходящего.

Нам еще нужно выловить результат пинга. Для этого создайте обработчик события OnEchoReply для компонента Ping1:

procedure TPingForm.Ping1EchoReply(Sender, Icmp: TObject; Error: Integer)

begin

if Error <> 0 then

RichEdit1.Lines.Add ('Не могу выполнить операцию ping: ' + Ping1.ErrorString)

else

RichEdit1.Lines.Add('Получено '+intToStr(Pingl.Reply.DataSize)

+' байт от '+Ping1.HostIP + ' за ' + IntToStr(Ping1.Reply.RTT) + ' миллисекунд');

end;

Здесь выводится результат пинга. Если Error не равно 0, то показывается сообщение об ошибке. Если равно, то показывается время, за которое прошел ping.

И напоследок проведем косметическую операцию. Создайте обработчик события OnEchoRequest для компонента ping1. В нем напишите следующее:

procedure TPingForm.Ping1EchoRequest(Sender, Icmp: TObject)

begin

RichEdit1.Lines.Add('Посылка' + IntToStr(Ping1.Size) + ' байтов на ' + Ping1.Hostname);

end;

Это чисто косметическая поправка, которая вводит состояние пинга. Событие onEchoRequest происходит тогда, когда пакет отправляется на удаленную машину. Это событие вылавливается и выводится сообщение о том, что сейчас отправляются данные в определенном размере на машину с указанным адресом. Так информация будет лучше восприниматься, и с ней легче будет работать.

Рис. 4.20. Результат работы утилиты Ping

Теперь в вашем арсенале появилась еще одна утилита собственного изготовления, которая обязательно должна присутствовать у любого компьютерщика, хоть как-то связанного с сетью.

Для чего нужен пинг? Часто возникает вопрос: "Как узнать IP -адрес сервера?" Самый простой способ сделать это - ping. Просто пингуешь символьное имя сервера, а ваша утилита сразу показывает нам его IP -адрес.