Forum: Multimedia
Delphi
by illegal eagle,
20. Jan 2003
Wenn's dir zu langsam ist, dann nimm doch den Code vom efg Lab.
Besonders Unit7 sollte man mal ausprobieren.
Forum: Multimedia
Delphi
by illegal eagle,
16. Jan 2003
Bei 32 Bits würde ich Pixsize nicht auf 8, sondern auf 4 setzen.
Und warum nimmst du Array of Byte? Damit erhältst du doch einen Fehler, wenn du die Bereichsprüfung eingeschaltet lässt (mach ich immer so).
Move(Field,temp,Pixsize);
scheint mir etwas komisch,
Move(Field, temp, Pixsize);
Forum: Multimedia
Delphi
by illegal eagle,
16. Jan 2003
Sorry, der Code spiegelt das Bild nur, es muss noch von links nach rechts umgedreht werden.
Ich hoffe, du bekommst keine Abstürze wegen Scanline! Ist (wie gesagt) nicht getestet.
Forum: Multimedia
Delphi
by illegal eagle,
15. Jan 2003
Hi!
Für 180° (oben nach unten umdrehen) sollte folgender Code gehen: (nicht getestet)
Procedure Turn180(Bitmap : tBitmap);
Type tLine : Array of Byte;
Var LineWidth, y : Integer;
Line : ^tLine;
Begin
LineWidth := Bitmap.Width;