Antal Farver

Vha IrfanView.
www.irfanview.com (freeware)
Åbn billedet. Vælg image->information

:-)

selvfølgelig via Delphi

Mvh. Simon

start med at tilføje denne constant og type:

const
    MaxPixelCount = 65536;

type
    pRGBTripleArray = ^TRGBTripleArray;
    TRGBTripleArray = array[0..MaxPixelCount-1] of TRGBTriple;


Så indsætter du denne funktion:

function CountColors(const Bitmap: TBitmap): integer;
var
  Flags:  array[byte, byte] of TBits;
  i, j, k: integer;
  rowIn:  pRGBTripleArray;
begin
  Assert (Bitmap.PixelFormat = pf24Bit);
  for j := 0 to 255 do
    for i := 0 to 255 do
      Flags[i,j] := nil;

  for j := 0 to Bitmap.Height-1 do
    begin
      rowIn  := Bitmap.Scanline[j];
      for i := 0 to Bitmap.Width-1 do
        begin
          with rowIn[i] do
            begin
              if not Assigned(Flags[rgbtRed, rgbtGreen]) then
                begin
                  Flags[rgbtRed, rgbtGreen] := TBits.Create;
                  Flags[rgbtRed, rgbtGreen].Size := 256;
                end;
              Flags[rgbtRed,rgbtGreen].Bits[rgbtBlue] := true;
            end;
          end;
        end;

      result := 0;
      for j := 0 to 255 do
        begin
          for i := 0 to 255 do
            begin
              if Assigned(Flags[i,j]) then
                begin
                  for k := 0 to 255 do
                    if Flags[i,j].Bits[k] then
                      inc(Result);
                  Flags[i,j].Free;
                end;
            end;
        end;
end;



Du kan bruge den på denne måde:

var
  bit: TBitmap;
begin
  bit := Tbitmap.Create;
  bit.LoadFromFile(\'c:\\test.bmp\');
  ShowMessage(IntToStr(CountColors(bit)));
end;


/SpEeDy

Giver Fejl
Assertation faliure (fil og linje for fejl)

Mvh. Simon

duer den kun til 24 bit billeder.
for det jeg skal bruge den til dekker ikke kun 24 bit billeder

Mvh. Simon

Så skift den første linie med assert(  ud med denne:

  Bitmap.PixelFormat := pf24Bit;

/SpEeDy

Og nej den virker ikke kun på 24 bit. den virker på alle

Tak nu virker den.

Mvh. Simon