AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Delphi Scanline kriechend langsam
Thema durchsuchen
Ansicht
Themen-Optionen

Scanline kriechend langsam

Ein Thema von Alibi · begonnen am 29. Nov 2004 · letzter Beitrag vom 30. Nov 2004
Antwort Antwort
Alibi

Registriert seit: 15. Aug 2003
Ort: Bispingen
94 Beiträge
 
Delphi 7 Personal
 
#1

Scanline kriechend langsam

  Alt 29. Nov 2004, 20:35
Hi,
ansich recht simpel, ich will ein Bild horizontal spiegeln... Ich verwende dafür Scanline, das ist aber kriechend langsam, selbst der Zugriff über Pixels[x, y] geht schneller.
Hier mein Versuch, also der entscheidende Teil:
Delphi-Quellcode:
var
  y, x, i, bmpWidth, bmpHeight: Integer;
  rowA, rowB: PByteArray;
begin
[...]
    bmpWidth := tmpBmp.Width;
    bmpHeight := tmpBmp.Height;
    for y := 0 to bmpHeight do
    begin
      rowA := tmpBmp.ScanLine[y];
      rowB := Form2.TextImage.ScanLine[y];
      for x := 0 to bmpWidth do
        rowB[bmpWidth - x] := rowA[x];
    end;
Die Variablen bmpWidth und bmpHeight hab ich eingeführt, weil ich hoffte, dass die Performanceprobleme von dem Zugriff auf die TBitMap-Propertys kommen.
Form2.TextImage und tmpBmp sind beide vom Type TBitMap.
Programming today is a race between software engineers striving to build bigger and better idiot-proof programs, and the Universe trying to produce bigger and better idiots.
So far, the Universe is winning.
  Mit Zitat antworten Zitat
Muetze1
(Gast)

n/a Beiträge
 
#2

Re: Scanline kriechend langsam

  Alt 29. Nov 2004, 20:41
Moin!

Beide Schleifen laufen um eins zu weit, beide nur bis bmpHeight-1 bzw. bmpWidth-1.

Sind beide Bitmaps gleich gross, haben beide Bitmaps 256 Farben, also 8 Bit ??

MfG
Muetze1
  Mit Zitat antworten Zitat
Alibi

Registriert seit: 15. Aug 2003
Ort: Bispingen
94 Beiträge
 
Delphi 7 Personal
 
#3

Re: Scanline kriechend langsam

  Alt 29. Nov 2004, 20:50
Hi,
die sind beide gleich groß und 256 Farben verwende ich nicht. Glaube ich. An dem Farbmodus/Palette habe ich nach dem TBitMap.Create nichts geändert. Ich will auch hier keine Limitierung auf 256 Farben haben, was müsste ich dann statt PByteArray verwenden?
Programming today is a race between software engineers striving to build bigger and better idiot-proof programs, and the Universe trying to produce bigger and better idiots.
So far, the Universe is winning.
  Mit Zitat antworten Zitat
Muetze1
(Gast)

n/a Beiträge
 
#4

Re: Scanline kriechend langsam

  Alt 30. Nov 2004, 07:38
Moin!

PixelFormat muss bei beiden Bitmaps schon gleich sein und es darf kein DDB Bitmap sein, weil sonst gibt es keine ScanLine.

Und was du anstatt von PByteArray nutzen kannst hängt direkt von der Farbtiefe zusammen - daher nicht so einfach zu sagen.

Delphi-Quellcode:
var
  y, x : Integer;
  rowA,
  rowB : PRGBQuad;
begin
  If ( tmpBmp.Height <> Form2.TextImage.Height ) Or
     ( tmpBmp.Width <> Form2.TextImage.Width ) Then
    Exit;

  tmpBmp.HandleType := bmDIB;
  Form2.TextImage.HandleType := bmDIB;

  tmpBmp.PixelFormat := pf32bit;
  Form2.TextImage.PixelFormat := pf32bit;

  for y := 0 to tmpBmp.Height-1 do
  begin
    rowA := tmpBmp.ScanLine[y];
    rowB := Form2.TextImage.ScanLine[y];
    Inc(rowB, tmpBmp.Width-1);

    for x := 0 to tmpBmp.Width-1 do
    Begin
      rowB^ := rowA^;
      Inc(rowA);
      Dec(rowB);
    End;
  end;
End;
Ist das schneller?

MfG
Muetze1
  Mit Zitat antworten Zitat
teebee

Registriert seit: 17. Jan 2003
Ort: Köln
460 Beiträge
 
Delphi 6 Professional
 
#5

Re: Scanline kriechend langsam

  Alt 30. Nov 2004, 08:57
Alternativ kannst Du auch, wenn es nur ums Spiegeln geht, MSDN-Library durchsuchenStretchBlt benutzen.

Gruß, teebee
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:00 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz