Fast Artificial Neural Network Library (FANN) и Delphi 2010

[stiv73]

Как установить компонент FANN в Delphi 2010?
Вот иснтрукция к установке

TFannNetwork is a Delphi component that encapsulates the Fann Library.
You do not have to install TFannNetwork to use Fann on Delphi, 
but it will make the library more Delphi friendly.

To install TFannNetwork you should follow all the previous steps and
- Copy the FannNetwork.pas and Fann.dcr to your Delphi Library PATH.
- Choose Component/Install Component.
- In the Unit file name field, click on Browse and point to the fannnetwork.pas file.
By default Delphi will install in the Borland User Components package, 
it might be changed using Package file name field or Into new package page.
- Click on Ok 
- A confirmation dialog will be shown asking if you want to build the package. Click on Yes.
- You have just installed TFannNetwork, now close the package window 
(Don't forget to put Yes when it ask if you want to save the package). 
- See the FannNetwork.pas file or the XorTFannNetwork Sample.

Но в delphi 2010 нет Component/Install Component, а есть только Install Packages.
Пробовал превратить это в пакет. Компонент появился в палитре компонентов, но при добавлении на форму TFannNetwork сразу появляется ошибка The nework has not been built . Пробовал ставить на Delphi 7, все нормально установилось и при добавлении этого компонета ошибка не появляется. Подскажите, как правильно ставить FANN на delphi 2010.

[stiv73]

Никто не сталкивался с такой проблемой?

[veniside]

> You do not have to install TFannNetwork to use Fann on Delphi

может, забить?

Создайте компонент в рантайме, без добавления на форму. Если будут глюки, то, скорей всего, он не совсем совместим с десяткой, и прийдётся допиливать его руками/искать свежую версию/пинать автора/whatever.

Если глюков не будет, то забить на уставку в палитру и работать в рантайме.

[Stilet]

Если не секрет для чего он?

[stiv73]

Сообщение от Stilet

Если не секрет для чего он?

Эта библиотека позволяет реализовать искуственную нейронную сеть, которую потом можно обучить, например образы распознавать.
Вот оф сайт http://leenissen.dk/fann/wp/.
отсюда можно скачать сборку для Delphi http://leenissen.dk/fann/wp/language-bindings/
У них на форуме поднималась эта проблема http://leenissen.dk/fann/forum/viewtopic.php?f=3&t=537, только для Delphi 2009. Вроде в Delphi XE снова добавили Component/Install Component, но пока нет возможности сменить, и хотелось бы разобраться для этой версии.
Veniside, если не получится установить в палитру то придется так и делать, скорей всего глюков не будет, тут просто проблема, что нет Component/Install Component , наверно криво и устанавливается из за этого.

[eduard93]

Упоминание Delphi 2009 наталкивает на мысль, что этот компонент не адаптирован к юникоду. Но поскольку это лишь обертка к внешней либе, то исправить ситуацию должно быть достаточно легко.

[JTG]

Создавай в ран-тайме, я вот типа такого делал для простой капчи

unit CaptchaTrainer;

interface

uses
  SysUtils, Graphics, FannNetwork;

type
  TCaptchaTrainer = class
  private
    fInputs, fOutputs: array of single;
  public
    FANN: TFannNetwork;
    constructor Create;
    procedure CreateNN(numInputs, numOutputs: integer); overload;
    procedure CreateNN(bitmapWidth, bitmapHeight, numOutputs: integer); overload;
    procedure LoadNN(fileName: string);
    procedure SaveNN(fileName: string);
    function Learn(bitmap: TBitmap; value: integer): single;
    function Guess(bitmap: TBitmap): integer;
    destructor Destroy; override;
  end;

implementation

{ TCaptchaTrainer }

function MaxValueIndex(const Data: array of Single): integer;
var I: Integer;
    maxvalue: single;
begin
  maxvalue := Data[Low(Data)];
  result := Low(Data);
  for I := Low(Data) + 1 to High(Data) do
    if maxvalue < Data[I] then
    begin
      maxvalue := Data[I];
      result := I;
    end;
end;

constructor TCaptchaTrainer.Create;
begin
  FANN := TFannNetwork.Create(nil);
  with FANN do
  begin
    ActivationFunctionHidden := afFANN_SIGMOID;
    ActivationFunctionOutput := afFANN_SIGMOID;
    TrainingAlgorithm := taFANN_TRAIN_RPROP;
    ConnectionRate := 1;
    LearningRate := 0.1;
  end;
end;

procedure TCaptchaTrainer.CreateNN(numInputs, numOutputs: integer);
begin
  SetLength(fInputs, numInputs);
  SetLength(fOutputs, numOutputs);
  with FANN.Layers do
  begin
    Add(IntToStr(numInputs));
    Add(IntToStr(50));
    Add(IntToStr(numOutputs));
  end;
  FANN.Build;
end;

procedure TCaptchaTrainer.CreateNN(bitmapWidth, bitmapHeight,
  numOutputs: integer);
begin
  SetLength(fInputs, bitmapWidth * bitmapHeight);
  SetLength(fOutputs, numOutputs);
  with FANN.Layers do
  begin
    Add(IntToStr(bitmapWidth * bitmapHeight));
    Add(IntToStr(50));
    Add(IntToStr(numOutputs));
  end;
  FANN.Build;
end;

destructor TCaptchaTrainer.Destroy;
begin
  FANN.UnBuild;
  FANN.Free;
  inherited;
end;

function TCaptchaTrainer.Guess(bitmap: TBitmap): integer;
var x,y,i: integer;
begin
  i:=0;
  for x:=0 to bitmap.Width-1 do
    for y:=0 to bitmap.Height-1 do
    begin
      if bitmap.Canvas.Pixels[x,y]=$00000000 then fInputs[i]:=1 else fInputs[i]:=0;
      inc(i);
    end;
  FANN.Run(fInputs, fOutputs);
  result := MaxValueIndex(fOutputs);
end;

function TCaptchaTrainer.Learn(bitmap: TBitmap; value: integer): single;
var x,y,i: integer;
begin
  i:=0;
  for x:=0 to bitmap.Width-1 do
    for y:=0 to bitmap.Height-1 do
    begin
      if bitmap.Canvas.Pixels[x,y]=$00000000 then fInputs[i]:=1 else fInputs[i]:=0;
      inc(i);
    end;
  for i:=0 to high(fOutputs) do if i=value then fOutputs[i]:=1 else fOutputs[i]:=0;
  result := FANN.Train(fInputs, fOutputs);
end;

procedure TCaptchaTrainer.LoadNN(fileName: string);
begin
  FANN.LoadFromFile(fileName);
end;

procedure TCaptchaTrainer.SaveNN(fileName: string);
begin
  FANN.SaveToFile(fileName);
end;

end.

[stiv73]

JTG, спасибо за пример кода.
Судя по этому

PHP код:

uses
  SysUtils, Graphics, FannNetwork; 


она у вас установлена как компонент?
И , если не секрет, какой процент успешных распознований получился?

[Пепел Феникса]

то что модуль есть в юзес не значит что он установлен как компонент, просто pas/dcu скинут в папку поиска модулей.

[JTG]

она у вас установлена как компонент?
И , если не секрет, какой процент успешных распознований получился?

Нет, просто путь к папке есть в search path. Вот такое распознает почти в 100% случаев, хотя конечно использование нейросети тут — оверкилл