Логин: Пароль:    Регистрация Всеми возможностями сайта можно пользоваться
только после авторизации.
   Забыли пароль?

Поиск
L



Статистика
u
Пользователи онлайн: нет
Гостей онлайн: 8
Всего онлайн: 8
Зарегистрировано юзеров: 7805
Комментариев на сайте: 681
Новый юзер: Аdult onlinе dating



Последние комментарии
c
Arthurneime прокомментировал "Урок 53 - Потоки в Delphi, (часть 1/3)":
[img]https://sun9-66.userapi.com/c857220/v857220344/115e0/ySGY2CstZbw.jpg[/img] [b]Секс и здоровье[/b] =!!= Секс и здоровье : причинно-следственная связь =!!= Понижение потенции: есть ли повод для паники? =!!= Половой акт: квинтэссенция чувств и жизненных сил =!!= Продление полового акта: забег на длинную дистанцию =!!= Продление эрекции: выше, больше, сильнее [b]Секс и здоровье мужчины: причинно-следственная связь [/b] В ходе многочисленных экспериментов ученые установили, что главной причиной ранней смертности мужчин (а средняя продолжительность жизни мужской части населения в России составляет всего 59 ле&#1090 является безответственное отношение к своему сексуальному здоровью. При первых сбоях в работе половой системы мужчины подвергаются стрессу, выходят из состояния психического равновесия. В 80% случаев сексуальная нереализованность выливается в тяжелые депрессивные состояния, неврозы, проявления неконтролируемой агрессии. Этому есть вполне логичное объяснение с точки зрения физиологии. Дело в том, что мужской гормон тестостерон, который является важнейшим фактором в работе сердца, почек, печени, нервной системы, способен вырабатываться лишь в процессе половой близости. Мужчина с пошатнувшимся сексуальным здоровьем часто начинает ощущать общее недомогание, становится раздражительным, несобранным, агрессивным и чрезмерно эмоциональным. А это уже прямо ведет к тому, что человеку не хватает сил для самореализации, которая для мужчин имеет приоритетное значение в жизни. [b]Получается очень мрачная картина, напоминающая замкнутый круг.[/b] Как выйти из него, как решить проблемы? На многие возникающие интимные вопросы вы сможете найти ответы посетив рекомендуемые ниже ресурсы. Источник: http://porntube24.online/2020/04/08/aletta-ocean-backstage-fucking-big-cock/ ================== [url=https://bit.ly/2KhYaIy]Знакомства 18+[/url] [url=https://bit.ly/2y2MVRE]Казино для Ценителей.[/url] [url=https://bit.ly/2KgSJcE]18+ Секс -чат[/url] https://www.youtube.com/watch?v=32ClBPbPuGE [youtube]wcgT7YcqPg0[/youtube]
EleoPhync прокомментировал "Урок 18 - Знакомство с компонентами (часть 9/13)":
Viagra Pas De La Case [url=https://buyciallisonline.com/#]Buy Cialis[/url] Kamagra Jelly Usa <a href=https://buyciallisonline.com/#>Buy Cialis</a> Acquistare Cialis Tadalafil

Урок 70 - Динамические библиотеки DLL

  Приветствую! Сейчас расскажу о библиотеках DLL и о том, как их создавать в Delphi.

  В таких языках как C++ библиотеку DLL создать и подключить довольно сложно. Для создания приходится прибегать к WinAPI, а для подключения - к классам.

В Delphi все куда легче. Создается библиотека DLL буквально двумя кликами мыши. Для этого в меню File -> New -> Other выберите DLL Wizard:



File -> New ->


  Теперь посмотрите на картинку:



Результат


  И пропишите такой код (кстати говоря, мы напишем программу, которая проверяет вымышленный пароль):

function checkPassword(password: string): string;
begin
  if password = 'admin' then
  begin
    result:= 'correct'
  end
  else
  begin
    result:= 'incorrect'
  end;
end;
exports checkPassword;

  Теперь сохраните и скомпилируйте. Вы увидите такую ошибку:



Ошибка


  Это вполне нормально. Создайте новый формовый проект и киньте на форму 1 Edit, 1 Label и 1 Button. Сохраните проект в той же папке, куда сохраняли DLL.

  Потом скопируйте нижеследующий листинг вместо всего вашего кода формовой программы:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function checkPassword(password: string): string;
external 'dll.dll';

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption:= checkPassword(Edit1.Text);
end;

end.

  Теперь объясняю:

  Здесь мы командой EXTERNAL читаем функцию checkPassword из библиотеки 'dll.dll'. Потом смотрим в Label возвращаемое этой функцией значение (correct или incorrect). Надеюсь, что здесь все понятно.



Удачи!
Встретимся в следующем уроке!


Источник: www.thedelphi.ru
Автор: Савельев Александр
Опубликовано: 29 Июля 2013
Просмотров:

Урок 69 - Реестр Windows, (часть 2/2) Урок 71 - Работа с сжатыми файлами

Зарегистрируйтесь или авторизуйтесь, чтобы добавлять комментарии.