Вниз  Кто можете переписать эту функцию?
- 1.07.2019 / 19:59copy  #512023
muhago97
  Пользователь

muhago97 
Сейчас: Offline
Этот код работает в VCL а на Firemonkey не работает, ругает на canvas.pixels :gg:
  1. function CompareImage(TrueImg, ComprblImg:TImage;//TrueImg-это картинка-шаблон,ComprblImg-сравниваемая        
  2.  
  3. Width,Height,x1,y1:integer):extended;
  4.  //x1,y1 - координаты начала ComprblImg. результат в "%"
  5. var   x,y,k,n:integer;   one,two:extended;  //числитель и знаменатель.
  6. begin  
  7. Result:=0;                                                                              {} {}  n:=0;                                                                                   {} {}  k:=0;                                                                                   {} {}  for x := 0 to Width do                                                                  {} {}  for y := 0 to Height do                                                                 {} {}    if TrueImg.Canvas.Pixels[x,y]=clBlack then                                            {} {}      begin                                                                               {} {}        inc(n);  //это наш знаменатель - сколько всего черных пикселей                    {} {}    
  8.   if ComprblImg.Canvas.Pixels[x+x1,y+y1]=clBlack then                               {} {}          
  9. inc(k);//это числитель - кол-во совпадений                                      {} {}      end;                                                                                {} {}  one:=k; two:=n;  //присваиваем числитель и знаменатель                                  {} {}  Result:=one/two*100;  //и результат умножаем на 100%.                                 {} {}  //form.Memo1.Lines.Add(FloatToStr(result)); end;


Изменено muhago97 (1.07 / 20:01) (всего 2 раза)
- 8.07.2019 / 12:22copy  #512055
SlenderManx
  Пользователь

SlenderManx 
Сейчас: Offline
И ты ради этого тему создал? :gg: :zloj:
Бан от Витаминыч:
Причина: И ради этого ты оставил это сообщение?
- 8.07.2019 / 13:43copy  #512057
Magatino
  Администратор

Magatino 
Сейчас: Offline
Эм, я конечно всё понимаю, но почему бы не помочь парню, чем издеваться над ним?
- 8.07.2019 / 16:00copy  #512061
RblSb
  Пользователь

RblSb 
Сейчас: Offline
Автор, показывай свой код на js, ошибку, и что он должен делать
Наверх  Всего сообщений: 4
Фильтровать сообщения
Поиск по теме
Поиск по форуму