AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Bild einlesen überprüfen, und neu zusammensetzen
Thema durchsuchen
Ansicht
Themen-Optionen

Bild einlesen überprüfen, und neu zusammensetzen

Ein Thema von Michael80 · begonnen am 12. Feb 2018 · letzter Beitrag vom 14. Feb 2018
Antwort Antwort
Seite 1 von 2  1 2      
Michael80

Registriert seit: 20. Nov 2003
Ort: Treuchtlingen
72 Beiträge
 
Delphi 10.3 Rio
 
#1

AW: Bild einlesen überprüfen, und neu zusammensetzen

  Alt 13. Feb 2018, 13:18
Wie würdet ihr vorgehen?
Wenn du mit Bild-Verarbeitung in Delphi keine Erfahrung hast, musst du dich erstmal damit beschäftigen. das wird schon einiges an Zeit verbrauchen. Dazu kommt, dass dein Ablauf die Kreativität einschränkt (vorgegebene Farben). Willst du die Stunden/Tage, die du für die Entwicklung brauchst nicht lieber mit deinen Kindern verbringen?
Ich würde ja hier nicht Fragen wenn ich das nicht wollen würde, oder?

- es gibt auch irgenwas für 10€ aber das macht nicht was ich will.
- vorgegebene Farben müssen sein, da das von den verfügbaren Perlenfarben abhängig ist.
- mit wem oder was ich meine Zeit verbringe is ja wohl mein Problem, oder?

Eigentlich dachte ich es kommt eine Antwort wie:

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

Früher wurde mal was gepostet und man konnte sichs draus erarbeiten, gut vielleicht erwarte ich mir von einem Forum zuviel.

Schade drum
Wer kämpft kann verlieren, wer nicht kämpft hat schon verloren
  Mit Zitat antworten Zitat
Benutzerbild von Neutral General
Neutral General

Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#2

AW: Bild einlesen überprüfen, und neu zusammensetzen

  Alt 13. Feb 2018, 13:31
Wie würdet ihr vorgehen?
Wenn du mit Bild-Verarbeitung in Delphi keine Erfahrung hast, musst du dich erstmal damit beschäftigen. das wird schon einiges an Zeit verbrauchen. Dazu kommt, dass dein Ablauf die Kreativität einschränkt (vorgegebene Farben). Willst du die Stunden/Tage, die du für die Entwicklung brauchst nicht lieber mit deinen Kindern verbringen?
Eigentlich dachte ich es kommt eine Antwort wie:

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

Früher wurde mal was gepostet und man konnte sichs draus erarbeiten, gut vielleicht erwarte ich mir von einem Forum zuviel.
Ich weiß echt nicht was du hier von uns erwartest.
In deinem Ursprungspost war keine einzige Frage. Nur ein grober Plan den du dir schon ausgedacht hast zu einem Problem was du angehn willst.
Dir wurde gesagt dass der Plan soweit gut ist. Was willst du mehr? Es existiert ja bisher noch kein Fehler und noch kein Problem.
Du hast nicht mal angefangen zu programmieren.

Ein Forum ist da um bei einem konkretes Problem oder einem konkreten Fehler zu helfen, nicht um dich Schritt für Schritt durch die Programmierung zu führen und jede deiner Entscheidungen einzeln abzunicken.

Ich verstehe nicht warum du nicht (zumindest nachdem dein vorgelegter Plan von uns abgenickt wurde) einfach mal versucht hast das geplante umzusetzen.
Bei Problemen hätten wir dann weiterhelfen können.
Du kannst nicht erwarten dass wir für dich schon ein Grundgerüst deines Programmes programmieren was du dann nur noch anpassen musst.

Keine Ahnung. Deine Erwartungen an ein Forum sind vollkommen unrealistisch und deine Reaktion darauf dass dir niemand bei deinem nicht vorhandenen Problem (???) hilft ist auch unnötig aggressiv...
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."
  Mit Zitat antworten Zitat
Redeemer

Registriert seit: 19. Jan 2009
Ort: Kirchlinteln (LK Verden)
1.140 Beiträge
 
Delphi 2009 Professional
 
#3

AW: Bild einlesen überprüfen, und neu zusammensetzen

  Alt 13. Feb 2018, 13:40
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.
Janni
2005 PE, 2009 PA, XE2 PA
  Mit Zitat antworten Zitat
Benutzerbild von Jasocul
Jasocul

Registriert seit: 22. Sep 2004
Ort: Delmenhorst
1.375 Beiträge
 
Delphi 11 Alexandria
 
#4

AW: Bild einlesen überprüfen, und neu zusammensetzen

  Alt 13. Feb 2018, 14:39
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/
Peter
  Mit Zitat antworten Zitat
TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
3.079 Beiträge
 
Delphi 10.4 Sydney
 
#5

AW: Bild einlesen überprüfen, und neu zusammensetzen

  Alt 13. Feb 2018, 15:32
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.
  Mit Zitat antworten Zitat
TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
3.079 Beiträge
 
Delphi 10.4 Sydney
 
#6

AW: Bild einlesen überprüfen, und neu zusammensetzen

  Alt 13. Feb 2018, 15:40
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).
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.590 Beiträge
 
Delphi 12 Athens
 
#7

AW: Bild einlesen überprüfen, und neu zusammensetzen

  Alt 13. Feb 2018, 15:48
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
Bei Google suchendelphi 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
Ein Therapeut entspricht 1024 Gigapeut.

Geändert von himitsu (13. Feb 2018 um 15:53 Uhr)
  Mit Zitat antworten Zitat
Michael80

Registriert seit: 20. Nov 2003
Ort: Treuchtlingen
72 Beiträge
 
Delphi 10.3 Rio
 
#8

AW: Bild einlesen überprüfen, und neu zusammensetzen

  Alt 13. Feb 2018, 17:48
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
Wer kämpft kann verlieren, wer nicht kämpft hat schon verloren
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.590 Beiträge
 
Delphi 12 Athens
 
#9

AW: Bild einlesen überprüfen, und neu zusammensetzen

  Alt 13. Feb 2018, 18:21
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 Bei Google suchenFotomosaik.
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.
Ein Therapeut entspricht 1024 Gigapeut.

Geändert von himitsu (13. Feb 2018 um 18:25 Uhr)
  Mit Zitat antworten Zitat
Michael80

Registriert seit: 20. Nov 2003
Ort: Treuchtlingen
72 Beiträge
 
Delphi 10.3 Rio
 
#10

AW: Bild einlesen überprüfen, und neu zusammensetzen

  Alt 13. Feb 2018, 22:27
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.
Wer kämpft kann verlieren, wer nicht kämpft hat schon verloren
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:58 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz