Bild einlesen überprüfen, und neu zusammensetzen

[Redeemer]

Man braucht keine Komponenten dafür. Hier reicht das simple Standard-Canvas von Delphi, insbesondere solange du kein Floyd-Steinberg oder Stukki machen möchtest sondern Nearest-Neighbor mit linearer oder quadratischer Abweichungsberechnung.

Ich verstehe nicht mal genau, warum man dafür Delphi braucht. Viel einfacher:
Einmalig durchzuführen:
- Nimm dir ein Grafikprogramm deiner Wahl, zeichne alle verfügbaren Farben ein und speichere die Datei als PNG.
- Lass PNGOUT einmal nur mit Force-Parameter (weil kleine Palettenbilder größer sind als Echtfarben) durchlaufen, um eine Palette zu erstellen.
- Exportiere die Palette mit einem Grafikprogramm deiner Wahl, z.B. IrfanView.
Für jedes Bild durchzuführen:
- Lade dein gewünschtes Bild.
- Stelle die Größe ein.
- Importiere die Palette.
Das mit der Zuordnung der Farben zu den Nummern dürfte doch jeder auch so hinkriegen.

[Jasocul]

Zitat von Michael80:

Probiers mal mit Komponenten XY, mach Z, aber anscheinend ist das hier mittlerweile zuviel verlangt.

Ich habe mal für dich Google benutzt.
https://www.imageen.com/

[TiGü]

Ein erster Ansatz. Der Anfang ist halt immer das Schwierigste:

Delphi-Quellcode:

unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.Imaging.jpeg;

type
  TForm2 = class(TForm)
    Image1: TImage;
    procedure Image1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

const
  // Bügelperlen-Steckplatten Höhe
  cHeight = 30;
  // Bügelperlen-Steckplatten Breite
  cWidth = 30;

procedure TForm2.Image1Click(Sender: TObject);
var
  ImageFileName: string;
  TransformedBitmap: TBitmap;
  DestinationRect: TRect;
  OrignialPicture: TPicture;
begin
  OrignialPicture := TPicture.Create;
  try
    // hier muss der Pfad zur Bildatei rein!
    ImageFileName := 'C:\Users\...blablabla';
    OrignialPicture.LoadFromFile(ImageFileName);

    TransformedBitmap := TBitmap.Create;
    try
      TransformedBitmap.SetSize(OrignialPicture.Width, OrignialPicture.Height);

      DestinationRect := Rect(0, 0, cWidth, cHeight);
      TransformedBitmap.Canvas.StretchDraw(DestinationRect, OrignialPicture.Graphic);

      // der Zaubertrick:
      TransformedBitmap.SetSize(cWidth, cHeight);

      // Bild in TImage auf Formular anzeigen:
      Image1.Picture.Assign(TransformedBitmap);

      // auf Farbpaletten, Seitenverhältnis, abspeichern und ausdrucken kommen wir dann zu sprechen, wenn du soweit bist!
    finally
      TransformedBitmap.Free;
    end;
  finally
    OrignialPicture.Free;
  end;
end;

end.

[TiGü]

Ansonsten vielleicht den ersten Google-Treffer für "Bügelbild Konverter" verwenden:
http://camerakind.blogspot.de/2015/0...fotos-diy.html

Die darin beschriebene Demo-Version der Software kann zwar nicht abspeichern oder ausdrucken, aber das ist ja nun kein wirkliches Hindernis (Druck-Taste -> Paint -> Drucker).

[Redeemer]

Zitat von Michael80:

Ich möchte keine 10 Euro für ein bereits existierendes Programm ausgeben.

Zitat von Jasocul:

Kauf dir doch für 400 Dollar plus MwSt eine Komponente!

Delphi-PRAXiS at its best.

[himitsu]

Spezialkomponenten sind ja nicht unbedingt nötig.

Das Bild runterrechnen (zoom) auf das gewünschte Format/Größe ... am Besten gleich 1 Pixel = eine Perle
delphi resize image smooth

Wenn Bild auf Größe der Perlen (x*x Pixel = eine Perle) oder garnicht runtergerechnet, dann im Bereich einer Perle den Farb-Mittelwert der Pixel berechnen.

Dann für diese Farbe (des einen Pixel oder Mittelwert der Pixel) die Farbe der Perle bestimmen, welche dem am nächsten kommt.

bei 1 Pixel oder ungezoomt > Perlen in neues Bild zeichnen
bei x*x Pixel > die x*x Pixel mit der einen Perle übermalen und vorher den Hintergrund dort löschen



ganz billig:
* Bild mit Interpolation auf 1 Pixel pro Perle zoomen
* Bild ohne Interpolation auf x*x Pixel pro Perle vergrößern
* sich gedanklich (nach dem Drucken) selbstständig zum großen Pixel die ähnlichste Pixelfarbe ausdenken

[Michael80]

Danke TiGü und Himitsu,

das is so ungefähr das was ich unter konstruktiv verstehe :p

ich werd mich dann mal dran versuchen, zumindest habe ich jetzt mal irgendwo ein Sprungbrett.

- warum ich net kaufen will? Weils mich interessiert wie ich das umsetzen kann.
ausserdem machen die kaufbaren Programme nicht das was ich will, das eine ist für Stickerei ausgelegt
das andere rechnet die Bilder nicht so um wies sein soll.

@TiGü ich komme auf ein Angebot zurück wenn ich soweit bin

[himitsu]

Die Perlen sind ja recht groß, aber wenn das Bild am Ende hochauflösend genug ist, dann könnte man noch sowas machen, wie es die Drucker schon ewig praktizieren.

Die rechnen nicht die Farben 1:1 in ihre Farben der Druckerpatronen um, sondern berechnen ein Muster.

Also statt eine "blau" Fläche nur mit "blauen" Punkten/Perlen zu füllen, wird ein Muster berechnet, also mehrere Punkte/Perlen verschiedenster Farbe ergeben dann den gewünschten Blauton.
> z.B. für Hellblau 20 blaue und 10 weiße Perlen ... bissl "zufällig" verteilt, damit keine regemäßige Struktur entsteht.



Das ganze Problem kann man sogar noch verdoppeln und schon nennt es sich Fotomosaik.
Also wie hier das Bild umgerechnet und durch farbige Einzelteile ersetzt, nur dass hier keine "reinen" Farbpunkte verwendet werden, sondern dass man sich vorher viele Bilde nahm und von denen jeweils den Farbmittelwert verwendet.
Hier könnte nun jemand auch einfach Fotos seiner Perlen benutzen.

[Michael80]

ja, theoretisch ginge das, dann sind wir aber paar Jahre weiter, dass meine die 2mm perlen verwenden können
da gibt es schon schöne Kunstwerke mit 1m x 1m

mit den großen Perlen ist das schier unmöglich, da das ganze einfach zu grob wirkt.

[Jasocul]

Zitat von Jasocul:

Zitat von Michael80:

Wie würdet ihr vorgehen?

Ansonsten würde ich erstmal die Fotos einlesen, auf das vorgegebene Format Rastern und ausdrucken.

Komisch, mir kommt es vor, als würden die anderen genau das, was ich vorgeschlagen habe, in ihrem Code/Erklärungen vorkauen.
Sorry, dass ich dir keinen Code geliefert habe.
btw:

Zitat von Jasocul:

Kauf dir doch für 400 Dollar plus MwSt eine Komponente!

Das habe ich nie geschrieben. Du hattest geschrieben, dass du erwartest, dass man dir eine Komponente xy nennt, mit der du z machen sollst. Ich habe die den Link zu einer entsprechende Komponente geliefert. Nicht mehr und nicht weniger.