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).

[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

[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.

[Michael80]

ja Peter alles gut, ich habs kapiert, Danke

Ja TiGü das Programm kenn ich. Grundsätzlich gings mir wirklich im Codebrocken, da ich bei Bilder wirklich nicht weiß/wusste wie ich hätte Anfangen sollen, ich denke dass ich so zumindest einen Ansatz habe auf dem ich aufbauen kann.

[bernhard_LA]

im swiss delphi center ist der source code um eine Bitmap -zu -resamplen hier
http://www.swissdelphicenter.ch/de/showcode.php?id=2403

[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.