Forum: Multimedia
Delphi
by Koller,
7. Aug 2006
Kann man denn auch JPEGs in ein TBitmap laden, oder muss man die vorher umwandeln?
Forum: Multimedia
Delphi
by Koller,
6. Aug 2006
showmessage('vorher: '+inttostr(Picture1.Height));
Picture1.Bitmap.PixelFormat := pf32Bit;
Picture2.Bitmap.PixelFormat := pf32Bit;
showmessage('nachher: '+inttostr(Picture1.Height));
Die erste Ausgabe ist 557 und danach 0. Warum? Muss das so? Dann wird die for-Schleife danach ja nur einmal ausgeführt.
Forum: Multimedia
Delphi
by Koller,
6. Aug 2006
Ich stelle gerade fest, es liegt nicht unbedingt an diesem Code :coder2:
Eine boolean-Variable ist komischerweise false, sodass die if-Abfrage darüber nicht true ist und der Code gar nicht ausgeführt wird. Ich probiere mal den Fehler im gesamten Projekt zu finden.
Forum: Multimedia
Delphi
by Koller,
6. Aug 2006
//Farbtiefe der beiden Pictures auf 32 bit setzen
Picture1.Bitmap.PixelFormat := pf32Bit;
Picture2.Bitmap.PixelFormat := pf32Bit;
//in einer Zählschleife Zeile für Zeile durchgehen
for y := 0 to Picture1.Bitmap.Height - 1 do
begin
//per ScanLine die Zeile auslesen
Line1 := Picture1.Bitmap.ScanLine;
Line2 :=...