AI classifications von BIldern

[wschrabi]

Liebe Leute,
ich habe mal diesen wizard installiert: chatGPT und nach API KEY Erstellung und Definition diese Frage abgesetzt: Create a class to classify pictures in delphi


Darauf bekam ich dieses REsultat:
Doch meine Frage ist jetzt wie kann man mit LLMs Algorithmen Bilder nach Ähnlichkeiten Klassifizieren. Es geht um BlutgruppenBilder ( HOW-To_Blutgruppen ) , die anfangs manuell den 4 Blutgruppen zugewiesen werden und nach Training einem bei neuen Bildern einen Vorschlag unterbreiten soll.

> Here is an example of how you can create a class in Delphi to classify pictures:

Delphi-Quellcode:

unit PictureClassifier;

interface

uses
  Vcl.Graphics, System.Classes;

type
  TPictureClassifier = class
  private
    FPicture: TPicture;
    FClassification: string;
  public
    constructor Create;
    destructor Destroy; override;
    procedure LoadPicture(const FileName: string);
    procedure ClassifyPicture;
    function GetClassification: string;
  end;

implementation

constructor TPictureClassifier.Create;
begin
  FPicture := TPicture.Create;
end;

destructor TPictureClassifier.Destroy;
begin
  FPicture.Free;
  inherited Destroy;
end;

procedure TPictureClassifier.LoadPicture(const FileName: string);
begin
  FPicture.LoadFromFile(FileName);
end;

procedure TPictureClassifier.ClassifyPicture;
var
  // Add your classification logic here
  // You can use machine learning algorithms, image recognition libraries, etc.
  // For the sake of simplicity, let's assume we are just checking the picture size
  Width, Height: Integer;
begin
  Width := FPicture.Width;
  Height := FPicture.Height;

  if (Width < 100) and (Height < 100) then
    FClassification := 'Small'
  else if (Width < 500) and (Height < 500) then
    FClassification := 'Medium'
  else
    FClassification := 'Large';
end;

function TPictureClassifier.GetClassification: string;
begin
  Result := FClassification;
end;

end.

```

In this example, the `TPictureClassifier` class has a `TPicture` field to hold the picture data and a `FClassification` field to store the classification result. The class provides methods to load a picture, classify it, and retrieve the classification result.

You can customize the `ClassifyPicture` method to implement your specific classification logic, for example, using machine learning algorithms or image recognition libraries.

To use this class, you can create an instance of `TPictureClassifier`, load a picture using the `LoadPicture` method, and then classify it using the `ClassifyPicture` method. Finally, retrieve the classification result using the `GetClassification` method.

Nach einer Erneuten FRAGE mit:
create Classify Picture method to implement your specific classification logic by using machine learning algorithms in delphi

bekam ich das als Antwort.

To create a ClassifyPicture method in Delphi using machine learning algorithms, you can follow the steps below:

Step 1: Set up the Machine Learning model
- First, choose a suitable machine learning algorithm for image classification, such as a Convolutional Neural Network (CNN).
- Next, train the model using labeled image data to learn the patterns and features of different image classes. You can use popular machine learning libraries like TensorFlow, Keras, or Caffe to create and train the model.
- Save the trained model in a format that Delphi can work with, such as a binary or XML file.

Step 2: Load the trained model
- In your Delphi application, load the trained model. This may involve using a specific library or component that supports loading and working with machine learning models, such as the DeepLearnToolbox or PyTorch libraries.

Step 3: Preprocess the input image
- Convert the input image into a format that the trained model can process. This may involve resizing the image, converting it to grayscale, or applying any necessary transformations based on the requirements of the machine learning algorithm used.

Step 4: Classify the image
- Use the loaded model to classify the preprocessed image.
- Provide the image as input to the model and obtain the predicted class or classes. The model should return a probability or confidence score for each class, indicating the certainty of the classification.

Step 5: Return the classification result
- Return the predicted class or classes as the result of the ClassifyPicture method.

Here's a sample code outline demonstrating the above steps:

Delphi-Quellcode:

procedure ClassifyPicture(const imagePath: string): string;
var
  model: TYourMachineLearningModel;
  image: TPreprocessedImage;
  predictedClass: string;
begin
  // Step 2: Load the trained model
  model := LoadModel('path/to/your/model');

  // Step 3: Preprocess the input image
  image := PreprocessImage(imagePath);

  // Step 4: Classify the image
  predictedClass := model.Classify(image);

  // Step 5: Return the classification result
  Result := predictedClass;
end;

Note that the specific implementation details will depend on the machine learning libraries and tools you choose to work with. Make sure to adapt the code accordingly.

Doch wie kann ich das letztendlich Realisieren?
DANKE

[Klapauzius]

Embarcadero hat mal in einem Blog darüber geschrieben ist vielleicht interessant:
fastai

ansonsten, frag doch chatgpt spezifisch nach den Schritten. ChatGPT schlägt ja vor Step 1: "...choose a suitable machine learning algorithm"
also nachfragen: which machine learning algorithm do you suggest for delphi?

[wschrabi]

danke ALbert