English
Forum

Bildspeicherverbrauch in the While-Loop....

 
- Page 1 -



funkheld
this bild& in the While-Schleife;
bild&=create("Hpiccopy",screen&,200,200,50,50)
becomes Yes over ands over again new created.
becomes there over ands over again new memory uses, or becomes the image always in the same Speicherbereich laid, so the the vorgehende not rausgenommen go need?

Thank you.

greeting
 {$cleq}
 {$compiler d:\XProfan11\}
 {$runtime d:\XProfan11\}
declare screen&,bild&,ende&
ende&=1
Window 20,20-500,500
Cls RGB(220,220,220)
screen& = create("hNewPic", 400,400,rgb(255,255,0))
startpaint screen&
usebrush 1,rgb(0,128,255)
ellipsis 200,200-250,250
endpaint

Whileloop 10000

    drawpic screen&,20,20;0
    bild&=create("Hpiccopy",screen&,200,200,50,50)
    startpaint screen&
    drawpic bild&,100,10;0
    endpaint

EndWhile

End
 
04/13/12  
 



 
- Page 1 -



funkheld
Jup, thanks.
I have under one area arranged with : mcls 50,50
therein have I one part the Screen copies : copybmptomem 200,200-50,50>0,0

How do I get the BIld now on a defined place of Screen&?
How do I get on The address the mcls-Speichers around the data To manipulating ?

Thank you.

greeting
 {$cleq}
 {$compiler d:\XProfan11\}
 {$runtime d:\XProfan11\}
declare screen&,bild&,ende&
ende&=1
Window 20,20-500,500
Cls RGB(220,220,220)
screen& = create("hNewPic", 400,400,rgb(255,255,0))
bild&=create("hnewpic",60,60,rgb(0,0,0))
mcls 50,50
startpaint screen&
usebrush 1,rgb(0,128,255)
ellipsis 200,200-250,250
endpaint

While ende&

    drawpic screen&,20,20;0
    copybmptomem 200,200-50,50>0,0
    .........

EndWhile

waitkey
End
 
04/13/12  
 




Jörg
Sellmeyer
You can also with StartPaint -1 directly on The Memorybitmep draw or You beget with @Create("HPIC",n,s) and the Parameter "&MEMBMP" a copy
Profanhilfe To Create (hPic,...)
... the actually with MCLS or MLOADBMP begot Memory bitmap....
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
04/13/12  
 



gives indeed MCopyBmp X1,Y1 - X2,Y2 > X3,Y3; n1[, n2] what to StartPaint on Screen utilize can.
 
04/13/12  
 




therein have I one part the Screen copies


And if the Screen (teils, z.B. of Windows) covers becomes?
 
04/13/12  
 




funkheld
MCopyBmp goes only MLoadBmp Images:


The Bildschirmausschnitt the beginnend with X1,Y1 a wide of X2 Pixel and a Höhe of Y2 Pixel has, becomes from the with MLoadBmp geladenem Image on The position X3,Y3 copies.


meets by me but not To, i want a copy without always this "Create"...

Thank you.

greeting
 
04/13/12  
 



@Funkheld:
What exactly have Thou to?

I can namely present the it a einfachere/ faster Herangehensweise gives.

If you something like How "Sprites" release want then recommend I the image in the
memory zusammenzusetzen and once per Frame the Zielausgabefenster
To copy.

Virtually of term since:
 
04/13/12  
 




funkheld

what have You against DeleteObject?


If I something ongoing Save would like to that evaluate, Why must one there always a new Speicherbereich create and unlock.

gives it nothing the one only with the one reserved Speicherbereich for a designed object operates with the graphic?

Thank you.

If: kanndst You such a thing time again as Nativen code for XPSE develop ?

Thank you.

greeting
 
04/13/12  
 



 
- Page 2 -


funkheld (13.04.12)
If: kanndst You such a thing time again as Nativen code for XPSE develop ?


I faith that I the already made and imho already posted have.

If you something perform can what very You to have, then could I time
drüber grübeln How the of my opinion to on the effizientesten To manage
would.

what so did i already "gezeigt" have is the one something like in own/ new Threads
run out let can what but only in manchen situations useful is.
 
04/13/12  
 




funkheld
bpic1& = create("hNewPic", 128,128,rgb(0,0,0))
One Image of Screen with bitblt ready into bpix1& to that weiterverarbeiten with drawpic etc.

so similar differently around :

Thank you.

greeting
 
04/13/12  
 



BitBlt copies the image, the works still too differently around. must useful only fountain and target turn round.
 
04/13/12  
 



funkheld (13.04.12)
bpic1& = create("hNewPic", 128,128,rgb(0,0,0))
One Image of Screen ...


and what exactly with you "Screen"? One Window or one hPic?
 
04/13/12  
 




funkheld
I have The routine time nProc drawhcopy called.
now functions it.

dx and dy are The values from this Versatz the bpic&: 30,10
startpaint bpic1&
drawpic bpic&,30,10;0
........
......

 {$cleq}
 {$compiler d:\XProfan11\}
 {$runtime d:\XProfan11\}
declare bpic&,bpic1&,bpic2&,ende&
ende&=1
bpic& = create("HPIC",-1,"data\\car.bmp")
Window 20,20-600,400
Cls RGB(220,220,220)
bpic1& = create("hNewPic", 400,200,rgb(255,255,0))
bpic2& = create("hNewPic", 128,128,rgb(0,0,0))

While Ende&

    startpaint bpic1&
    drawpic bpic&,30,10;0
    drawhcopy(bpic2&,hdc,0,0,128,128,30,10,~SRCCOPY)
    endpaint
    drawpic bpic1&,10,10;0
    waitkey
    startpaint bpic1&
    drawpic bpic2&,190,50;0
    endpaint
    drawpic bpic1&,10,10;0

EndWhile

End

nProc drawhPic(long hPic,dc,x,y,xx,yy,dwROP)

    long hDCBits=createCompatibleDC(hDC)
    selectObject(hDCBits, hPic)
    bitBlt(dc,x,y,xx,yy,hDCBits,0,0,dwROP)
    deleteDC(hDCBits)

endproc

nProc drawhCopy(long hPic,dc,x,y,xx,yy,dx,dy,dwROP)

    long hDCBits=createCompatibleDC(hDC)
    selectObject(hDCBits, hPic)
    bitBlt(hDCBits,x,y,xx,yy,dc,dx,dy,dwROP)
    deleteDC(hDCBits)

endproc


Thank you.

greeting
 
04/13/12  
 




Answer


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

10.486 Views

Untitledvor 0 min.
Jörg Sellmeyer05/15/18
Uwe Lang01/17/17
mein06/02/13
Heiko Dix11/10/12
More...

Themeninformationen



Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.


all rightDatenschutzerklärung
i want none Cookie