Zitat von
Khabarakh:
Ich sehe gerade, dass du deinen Code geändert hast:
//Pic.DrawTo(TempPic, 320, 240); Geht bei dem auch nicht.
Was meinst du damit? Ohne diese Zeile wird jedenfalls gar nichts in TempPic kopiert, Pic.Draw eins weiter oben kopiert ja in sich selbst
.
Hi,
sorry. Ich hab vergessen das vorher schon auszuklammern. Wollte damit andeuten, dass ich es sowohl mit Draw als auch mit DrawTo probiert habe, welches aber auch nicht ging.
Das mit Pic.Draw hab ich auch schon gesehen und verbessert (allerdings nicht hier in der
DP), aber an dem lags auch nicht.
Aber ich hab zumindest ein Teilfehler gefunden.
Das ganze musste so heißen:
Delphi-Quellcode:
Pic := TBitmap32.Create;
TempPic := TBitmap32.Create;
try
TempPic.SetSize(320, 240);
Pic.DrawTo(TempPic, 320, 240); Geht bei dem auch nicht.
TempPic.SaveToFile(edSaveAs.Text + aName);
finally
Progress.StepBy(1);
FreeAndNil(Pic);
FreeAndNil(TempPic);
end;
Jetzt klappt zwar das abspeichern, aber das Bild ist immernoch schwarz.