HI und willkommen in der
DP.
Deine Bilder lädst du am besten und einfachsten in ein TBitmap.
BSP:
Delphi-Quellcode:
procedure TForm1.Landen(DatName: TFileName);
var
Bild: TBtmap;
begin
Bild := TBitmap.Create;
Bild.LoadFromFile(DatName); // Muss als Endung unbedingt .bmp haben
Bild.Free; // keine Speicherprobleme erzeugen
end;
So und das Bild ist dann auch gleich wieder aus dem Speicher gefegt. (Was für'n Schwachsinn :-*)
Auf die einzelnen Pixel wolltest du mit TCanvas zugreifen, was auch nicht abzuraten ist.
Delphi-Quellcode:
procedure TForm1.GetFarbe(var r, g, b: Byte; Bild: TBitmap; X, Y: Integer);
var
Farbe: TColor;
begin
Farbe := Bild.Canvas.Pixels[X, Y];
r := GetRValue(Farbe);
b := GetBValue(Farbe);
g := GetGValue(Farbe);
end;
Bernhard
Guten Rutsch