Delphi: Farbbild->Schwarzweißbild
lima-city → Forum → Programmiersprachen → Delphi & Pascal
anzahl
bild
bildbetrachter
bit
farbe
format
funktion
graustufenbild
info
kat
kleine schulsprache
konvertierung
listen
monochrom anzahl
paar erfahrungen
pascal
pixel
sage
schulzeit
schwarz
-
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage
-
Wie kann ich mit Delphi aus einem Bild das Farbig ist ein Schwarzwei?bild machen. Also es soll dann nur noch 4 Farben haben (Schwarz, wei? und zwei graut?ne) also sozusagen 2 bit.
Also ich denke du meinst ein Bild in Graustufe?
-> Hier gibts alles rund um Grafik
http://www.dsdt.info/tipps/?kat=37
-> Hier ist die Konvertierung eines Bildes in ein Bild mit Graustufe:
http://www.dsdt.info/tipps/?id=648
(Google l?sst gr??en...) -
Tja so schlau war ich ja auch schon. Nur ich m?chte kein Graustufenbild (16 Farben), ich m?chte ein Bild, das nur aus 4 Farben besteht.
-
Tja so schlau war ich ja auch schon. Nur ich m?chte kein Graustufenbild (16 Farben), ich m?chte ein Bild, das nur aus 4 Farben besteht.
Ich glaube nicht, dass es ein Format aus 4 Farben gibt.
Hier eine Liste (vielleicht verwechselt du was?)
Art: Monochrom
Anzahl der Farben: 2 (schwarz und wei?)
Bits pro Pixel: 1
Art: 16-Farben-Bitmap
Anzahl der Farben: 16
Bits pro Pixel: 4
Art: 256-Farben-Bitmap
Anzahl der Farben: 256
Bits pro Pixel: 8
Art: 24-Bit-Bitmap
Anzahl der Farben: 16777216
Bits pro Pixel: 24 (je 8 f?r rot, gr?n, blau)
-
Es muss ja auch kein Format mit 4 Farben geben. Das Bild soll halt so umgewandelt werden, dass es nur noch aus 4 Farben besteht. Der Bildbetrachter "CompuPic" bietet z.B. diese Funktion. Nur m?chte ich halt gern in meinem Programm so eine Funktion einbinden, da ich damit Bilder f?r meinen TI-89(Grafikf?higer Taschenrechner) erstellen m?chte und dieser nur 4 Farben anzeigen kann.
-
Also ich hab jetzt einfach mal den Code von oben so bearbeitet:
procedure GrauStufen(C:TCanvas); var x, y: integer; Color: LongInt; R, G, B, Gr, Gr2: Byte; begin with C do begin for x:= ClipRect.Left to ClipRect.Right do for y:= ClipRect.Top to ClipRect.bottom do begin Color:=ColorToRGB(Pixels[x,Y]); R := GetRValue(Color); G := GetGValue(Color); B := GetBValue(Color); Gr:= Trunc(B*0.11+G*0.59+R*0.3); case Gr of //von mir hinzugef?gt 0..63: Gr2:=0; //von mir hinzugef?gt 64..127: Gr2:=85; //von mir hinzugef?gt 128..191: Gr2:=170; //von mir hinzugef?gt 192..255: Gr2:=255; //von mir hinzugef?gt end; //von mir hinzugef?gt Pixels[x,Y] := RGB(Gr2, Gr2, Gr2); end; end; end;
Sieht zwar dann nicht ganz so toll aus, wie wenns CompuPic macht, aber so funzt es schon mal. -
naja, ich sage nur, wer echt programmieren will sieht schnell ein, dass delphi eine kleine schulsprache ist. Muss das sein? lern c/c++
-
naja, ich sage nur, wer echt programmieren will sieht schnell ein, dass delphi eine kleine schulsprache ist. Muss das sein? lern c/c++
Schon wieder einer der von Materie keine Ahnung hat. Delphi ist neben C++ und Java eine programmiersprache der dritten Generation, von dem her genauso stark. Sag mir eine Sache, die man mit C/C++ machen kann aber nicht mit Delphi!
@topic: Code wurde ja schon gepostet, somit muss man da ja nicht mehr helfen. -
naja, ich sage nur, wer echt programmieren will sieht schnell ein, dass delphi eine kleine schulsprache ist. Muss das sein? lern c/c++
Ich hab zwar schon ein paar Erfahrungen mit c/c++ aber mit Delphi kann ich bis jetzt wesenlich mehr. Au?erdem will ich ja auf der Uni auch noch was lernen. Und w?hrend der Schulzeit habe ich nun mal nicht immer Zeit noch viele andere Sachen zu machen.
Aber das ?ndert nichts an der Tatsache. Denn wenn es f?r c/c++ einen Code f?r mein Problem gibt, muss es auch einen f?r Pascal/Delphi geben. -
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage
