Avatar billede KurtG Seniormester
29. maj 2021 - 19:06

Delphi. Assign til at kopiere billeder

Delphi5.
Jeg skal samle to billeder (imgBitmap1 og imgBitmap2, hver ca. 500 x 450 px) til et billede (imgBitmap3), og gør det således:
  imgBitmap3.Height := imgBitmap1.Height;
  imgBitmap3.Width := imgBitmap1.Width + imgBitmap2.Width+ 5;

  //  1. billede kopieres
  for I := 0 to imgBitmap1.Width do
    for J := 0 to imgBitmap1.Height do
      imgBitmap3.Canvas.Pixels[I , J] := imgBitmap1.Canvas.Pixels[I, J];
  //  2. billede kopieres
  for I := 0 to imgBitmap2.Width do
    for J := 0 to imgBitmap2.Height do
      imgBitmap3.Canvas.Pixels[imgBitmap1.Width + 5 + I , J] :=
        imgBitmap2.Canvas.Pixels[I, J];

Det tager jo ret lang tid (ca. 9 sek) og derfor prøvede jeg at bruge:
  //  1. billede kopieres
  imgBitmap3.Picture.Assign(imgBitmap1.Picture);
  imgBitmap3.Width := imgBitmap1.Width + imgBitmap2.Width+ 5;
  //  2. billede kopieres
  for I := 0 to imgBitmap2.Width do
    for J := 0 to imgBitmap2.Height do
      imgBitmap3.Canvas.Pixels[imgBitmap1.Width + 5 + I , J] :=
        imgBitmap2.Canvas.Pixels[I, J];

Men det virker ikke, kun imgBitmap1 ses.

Gør jeg noget forkert?
Er der andre muligheder, som er hurtigere end pixelkopieringen?
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester





Premium
Dansk hotelplatform efter fem dage langt ransomware-angreb: “Vi har lige fået at vide, at vi har 100 procent recovery på alle data”
Den danske hotelplatform AK Techotel kan efter et fem dage langt ransomware angreb snart få adgang til sin data igen, oplyser selskabet direktør til Computerworld.
CIO
Der findes ikke noget vigtigere for din virksomhedskultur end psychological safety
Klumme: Forskningen er entydig: Vidensarbejde er mere effektiv, når du tør stille spørgsmål, rejse kritik og indrømme fejl helt uden frygt for at blive straffet eller gjort til grin. Hvis du ikke har fokus på denne del af din virksomhedskultur, så lever din virksomhed og dine medarbejdere ikke op til deres fulde potentiale.
White paper
Så ofte rammer din sikkerhedsleverandør plet – eller helt ved siden af
Denne uafhængige evaluering fra MITRE ATT&CK giver et billede af styrker og svagheder hos førende udbydere af cybersikkerhedsydelser. Rapporten vurderer bl.a. reaktion og træfsikkerhed på simulerede angreb og af, hvor hurtigt der slås alarm.