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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 16.12.2021, 18:57   #1
Kronos913
Форумчанин
 
Регистрация: 10.02.2021
Сообщений: 627
По умолчанию Превратить фото в скан

Недавно для телефона нашел замечательную программу, которая превращает фото в скан. А вот для ПК такой не нашел. Да и было бы весьма удобно добавить это в свою "единую программу"

Вопрос в том, как такое написать самостоятельно?
Допустим есть массив крайних точек документа на фото array [1..4, false..true] of word
1..4 - точки, false..tue - координата x, координата y

Или, может можно это как-то лучше оформить
Kronos913 вне форума Ответить с цитированием
Старый 16.12.2021, 19:34   #2
Pavia
Лис
Старожил
 
Аватар для Pavia
 
Регистрация: 18.09.2015
Сообщений: 2,409
По умолчанию

Цитата:
Сообщение от Kronos913 Посмотреть сообщение
Недавно для телефона нашел замечательную программу, которая превращает фото в скан. А вот для ПК такой не нашел. Да и было бы весьма удобно добавить это в свою "единую программу"
Что конкретно делает эта программа? Обрезает фон выравнивает лис и текст?

Цитата:
Сообщение от Kronos913 Посмотреть сообщение
Вопрос в том, как такое написать самостоятельно?
Допустим есть массив крайних точек документа на фото array [1..4, false..true] of word
1..4 - точки, false..tue - координата x, координата y

Или, может можно это как-то лучше оформить
Точки кодируются структурой TPoint;
Но для расчетов понадобится действительные числа поэтому лучше так:

Код:
  TPoint2DReal= record x,y:Real; end;
  
  TQuadrilateralReal=packed record   // Четырёх угольник
    case integer of
    0: P0, P1, P2, P3:TPoint2DReal;
    1: P:array [0..3]:TPoint2DReal;
    end;
  end;
  TQuadrilateral=TQuadrilateralReal;
Тут у меня 10 листов про решение системы уравнений в задаче о переходе между 2 системами координат
https://disk.yandex.ru/i/Xir2HjHwJAds9A


Тут несколько работ по выпрямлению изображения листов текстовых документов
https://openaccess.thecvf.com/conten...2018_paper.pdf

https://www.researchgate.net/publica...ents_in_images
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
У дзен программиста программа делает то что он хотел, а не то что он написал .

Последний раз редактировалось Pavia; 16.12.2021 в 19:55.
Pavia вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Фото формата png, больше заданного размера и при этом название фото не соответствует названию папки (если включить чекбокс). должно вывести 2(3) ошибки, а выводит только одну Silver_Surfer Общие вопросы Delphi 2 22.01.2020 09:10
Если фото маленькое то лупа увеличивает, но если фото большое тогда уменьшает lybov12 JavaScript, Ajax 0 21.06.2019 11:48
Превратить js в winforms escapade Windows Forms 2 31.01.2012 16:43
Превратить текст в условие ZORRO2005 Microsoft Office Excel 4 24.06.2008 05:15