Bitmap in schwarz/weiss anjeigen (grayscale)

[delphiNoob]

hallo alle zusammen!!!

Ich hab ein Problem:
ich will eine Bitmap in schwarz/weis machen, das mach ich so:

Delphi-Quellcode:

procedure TMainF.greyscClick(Sender: TObject);
var
bmp : Tbitmap;
jpg : TJpegImage;
begin
if (FileType = '.bmp') or (FileType = '.BMP') then
 begin
    bmp := TBitmap.Create;
    jpg := TJPEGImage.Create;
      try
        bmp.Assign(Image.Picture);
        jpg.Assign(bmp);
        jpg.Grayscale := true;
        Image.Picture.Bitmap.Assign(jpg);
      finally
        StatusBar1.Panels[4].Text := 'Grayscaled';
        greysc.Enabled := false;
        FileType := '.bmp';
      end;
    end;
...

Dann kommt aber immer Hier:

Delphi-Quellcode:

        Image.Picture.Bitmap.Assign(jpg);

eine "Zugriffsverletzung bei Adresse 004162F7" :evil: :evil:

was ist an meinem code falsch???

Bitte helft mir!!

delphinoob

[Nicodius]

gabs hier schon SUCHFUNKTION BITTE nutzen ;)

[delphiNoob]

hallo

Ich find auch was, aber damit kann ich nicht wirklich was anfangen :(

delphinoob

[delphiNoob]

ok, sorry hab doch was gefunden

//thread zu\\

[fkerber]

Hi!

So schnell kommst du uns nicht davon :lol:

Sag uns doch bitte, wo der Fehler war, damit andere auch von diesem Thread profitieren können.


Ciao Frederic

[delphiNoob]

hallo

OK, hab mir eine Funktion bei swissdelphicenter.ch geholt, zwar nich selber gemacht, aber meinen Zweck erfüllt es allemal. :-D :)

Hier noch der Link zur Funktion.

thegreatmaster

[Neuni]

Siehe Delphi-Source :roll:

Jaja...was die Suche auf diversen Seiten manchmal bringt :mrgreen: