Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.05.2020, 16:31   #11
Фёст
Пользователь
 
Регистрация: 21.05.2020
Сообщений: 14
По умолчанию

digitalis,Я понимаю, но можете новичку объяснить попроще, чем по ссылке!!! Мне же просто надо сделать сравнение (if), неужели оно настолько разрастается?! Может, я недопонимаю, но всё же...
Просто я проект делаю, там надо угадывать по силуэту картинку, так вот силуэт - 1.png, процедура от кнопки "проверить" как раз содержит эту тему.(Эта информация, надеюсь, пригодится). Может, я вообще фигнёй страдаю?
Фёст вне форума Ответить с цитированием
Старый 21.05.2020, 16:34   #12
Фёст
Пользователь
 
Регистрация: 21.05.2020
Сообщений: 14
По умолчанию

Может, то, что я уже накалякал пригодится?
Код:
unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, Math,
  Vcl.Imaging.pngimage, Vcl.Menus;

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

var
  Form1: TForm1;
  ball,t,co:integer;


implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Center:=true;
Button1.Caption:='Следующий рисунок';
t:=random(24);
if (Image1.Picture) and ((Edit1.Text='собака') or (Edit1.Text='Собака') or (Edit1.Text='Пёс')or (Edit1.Text='пёс')or (Edit1.Text='Пес')or (Edit1.Text='пес')) then //вот здесь непонятно
begin
ball:=ball+1;
co:=co+1;
Label1.Font.Color:=clBlack;
Label1.Caption:='+1' ;
end
else
begin
co:=co+1;
Label1.Font.Color:=clRed;
Label1.Caption:='0' ;
end;
Image1.Picture.LoadFromFile(inttostr(t+1)+'.png');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Showmessage('Ваш результат: '+ball+'баллов из '+co);
end;

end.

Последний раз редактировалось Фёст; 21.05.2020 в 16:36. Причина: Ой
Фёст вне форума Ответить с цитированием
Старый 21.05.2020, 17:48   #13
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,285
По умолчанию

Получается, вы делаете тест, где показываете картинки-силуэты тестируемому и спрашиваете его текст-ответ. Зачем вам сравнивать картинки, если вы знаете какую именно показываете сейчас картинку по ее номеру и знаете верный для нее ответ?
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA вне форума Ответить с цитированием
Старый 21.05.2020, 17:53   #14
zvygin1964
Старожил
 
Аватар для zvygin1964
 
Регистрация: 19.06.2013
Сообщений: 2,463
По умолчанию

Капчи сравнивают с эталонами и получается.
Репутация: полный "0"
zvygin1964 вне форума Ответить с цитированием
Старый 21.05.2020, 23:07   #15
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,534
По умолчанию

Но ведь с эталонами, а не строками имён файлов
Код:
Edit1.Text=
Это - вообще шедевр.
Код:
if (Image1.Picture) and
Image1.Picture неожиданно для себя стал Boolean .

Последний раз редактировалось digitalis; 22.05.2020 в 11:07.
digitalis вне форума Ответить с цитированием
Старый 23.05.2020, 11:04   #16
Viktor61
Пользователь
 
Регистрация: 05.05.2018
Сообщений: 92
По умолчанию

Цитата:
Сообщение от zvygin1964 Посмотреть сообщение
Капчи сравнивают с эталонами и получается.
Если ув. Фёст'у будет интересно - по ссылке - пример "Delphi. Распознаем капчу"
https://koder.kz/articles/delphi-raspoznaem-kapchu.html
Viktor61 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Требуется сравнить 3 огромных числа до 10^100 RIKISHI007 Общие вопросы C/C++ 32 12.07.2013 01:36
Как сравнить q181 Microsoft Office Excel 3 19.12.2011 14:02
Сравнить delfin07 Помощь студентам 0 03.06.2011 01:56
При щелчке на ячейке DBGrid загружать изображение в Image1 из БД ulala Помощь студентам 9 09.10.2010 16:05
VBA= сравнить 2 диапазона. Jainy_90 Microsoft Office Excel 2 16.05.2009 22:07