Zitat von
igel457:
Wenn du wissen möchtest, ob ein TAdImage komplett Schwarz ist, dann speichere es doch in ein TAdBitmap und greife einfach über Scanline darauf zu:
Delphi-Quellcode:
var
adbmp: TAdBitmap;
pc: PCardinal;
begin
adbmp := TAdBitmap.Create;
AdImage.Texture.SaveToGraphic(adbmp);
pc := adbmp.Scanline;
for i := 0 to (adbmp.Size div 4) - 1 do
begin
if (pc^ and $FFFFFF00) <> 0 then Nicht Schwarz //and $FFFFFF00 ist um den Alphakanal zu ignorieren
inc(pc);
end;
adbmp.Free;
end;
Hmmm also damit funktioniert es, aber mit diesem Code nicht:
Delphi-Quellcode:
bmp := TBitmap.Create;
try
AImgBuf.Texture.SaveToGraphic(bmp);
bmp.SaveToFile(ExtractFilePath(ParamStr(0)) + 'Neuer Ordner\' + AName + '-a.bmp');
finally
bmp.Free;
end;
MfG
xZise