Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: Lazarus Delphi Canny

   
    by Atlunch, 5. Mai 2017
  Ich hab nun zum testen erstmal alles ausgeklammert bis auf
  
  ConvertToGrayScale(ImgIn,ImgGray);
  ImgToPixArray(ImgGray, PA_Gray);
  PixArrayToImg(PA_Gray, ImgOut);
  
  um nur die Graustufung zu testen. Schon dort erhalte ich nur ein weißes Bild.
  Dabei ist mir aufgefallen das in der Procedure "ConvertToGrayScale(ImgIn,ImgGray)" bei der Berechnung des GrayShade für alle unterschiedlichen Farbwerte...
• Forum: Programmieren allgemein

  AW: Lazarus Delphi Canny

   
    by Atlunch, 5. Mai 2017
  Wenn ich die Definition ändere kommt keine Fehlermeldung mehr sondern es wird einfach ein weißes Bild ausgegeben
• Forum: Programmieren allgemein

  AW: Lazarus Delphi Canny

   
    by Atlunch, 5. Mai 2017
  Hier mein Code. Musst aber noch ein Bild im Pfad anhängen!
  
  Hab den Code 1 zu 1 aus dem Chat genommen und entsprechend natürlich einen button dafür eingefügt!
  
  Hab probiert die folgenden zwei elemente zuerst einfach mal nur zu löschen!
  
  {$mode objfpc}{$H+}
  
  LCLIntf
• Forum: Programmieren allgemein

  Lazarus Delphi Canny

   
    by Atlunch, 5. Mai 2017
  Hallo zusammen,
  
  aktuell bin ich auf der Suche nach einem fertigen Canny algorithmus für Delphi XE8 und bin hier im Forum auf folgende Diskussion gestoßen.
  
  http://www.delphipraxis.net/181223-canny-edge-algorithmus-und-sobel-matrix-2.html
  
  Dort postete "Gutelo" auf Seite zwei eine fertige Unit zum gesuchten algorithmus.
  Leider bekomme ich diesen aber nicht zum laufen.
  Dabei ist mir...