bildschirmfoto

Übersicht

BlitzBasic

Allgemein

Gehe zu Seite 1, 2 Weiter

	mirk Gast Betreff: bildschirmfoto	So, Dez 28, 2003 12:30 Antworten mit Zitat
hi, gibts mit bb ne möglichkeit bildschirmfotos, also screenshots, zu machen und die dann in eine datei abzuspeichern (bmp, besser noch wäre ein komprimiertes format z.b. jpg) danke schonmal

mirk

Gast

Betreff: bildschirmfoto

So, Dez 28, 2003 12:30
Antworten mit Zitat

hi,

gibts mit bb ne möglichkeit bildschirmfotos, also screenshots, zu machen und die dann in eine datei abzuspeichern (bmp, besser noch wäre ein komprimiertes format z.b. jpg)

danke schonmal Rolling Eyes

	René Meyer	So, Dez 28, 2003 12:34 Antworten mit Zitat
Du kannst mit SaveBuffer den angezeigten Bildschirm als BMP-Datei abspeichern.
www.blitzbasic.de \| Das Buch zu Blitz Basic: www.schreibfabrik.de/txt/bbb

René Meyer

So, Dez 28, 2003 12:34
Antworten mit Zitat

Du kannst mit SaveBuffer den angezeigten Bildschirm als BMP-Datei abspeichern.

www.blitzbasic.de | Das Buch zu Blitz Basic: www.schreibfabrik.de/txt/bbb

	bruZard	So, Dez 28, 2003 12:50 Antworten mit Zitat
Code: [AUSKLAPPEN] [EINKLAPPEN] shot_count=0 Repeat Cls ; ; Zeichne Deinen Kram ; If KeyHit(88) ; F12 screen$="shot"+Str(shot_count)+".bmp" shot_count=shot_count+1 SaveBuffer(FrontBuffer(),screen$) EndIf Flip Until KeyHit(1) : End
PIV 2,4GHz - 1GB DDR 333 - ATI Radeon9600 - WinXP - DX9.0c - BMax 1.14 - B3D 1.91 - 1280x1024x32 User posted image

bruZard

So, Dez 28, 2003 12:50
Antworten mit Zitat

Code: [AUSKLAPPEN]

shot_count=0

Repeat
Cls

;
; Zeichne Deinen Kram
;

If KeyHit(88) ; F12
screen$="shot"+Str(shot_count)+".bmp"
shot_count=shot_count+1
SaveBuffer(FrontBuffer(),screen$)
EndIf

Flip
Until KeyHit(1) : End

PIV 2,4GHz - 1GB DDR 333 - ATI Radeon9600 - WinXP - DX9.0c - BMax 1.14 - B3D 1.91 - 1280x1024x32

User posted image

	mirk Gast	So, Dez 28, 2003 12:54 Antworten mit Zitat
mhm das schließt aber nur den von bb gezeichneten kram ein, oder? ich wollte eigentlich von "allem" ein screenshot machen, sprich windows-desktop, fenster, etc...

mirk

Gast

So, Dez 28, 2003 12:54
Antworten mit Zitat

mhm das schließt aber nur den von bb gezeichneten kram ein, oder? ich wollte eigentlich von "allem" ein screenshot machen, sprich windows-desktop, fenster, etc...

	sidolin	So, Dez 28, 2003 13:00 Antworten mit Zitat
auf deiner tastatur gibts ne taste "Druck S-Abf" , da mal draufhauen und der ganze bildschirm ist im zwischenspeicher. paint öffnen und einfügen. fertig.

sidolin

So, Dez 28, 2003 13:00
Antworten mit Zitat

auf deiner tastatur gibts ne taste "Druck S-Abf" , da mal draufhauen und der ganze bildschirm ist im zwischenspeicher. paint öffnen und einfügen. fertig.

	René Meyer	So, Dez 28, 2003 13:04 Antworten mit Zitat
Oder damit: www.fraps.com
www.blitzbasic.de \| Das Buch zu Blitz Basic: www.schreibfabrik.de/txt/bbb

René Meyer

So, Dez 28, 2003 13:04
Antworten mit Zitat

Oder damit: www.fraps.com

www.blitzbasic.de | Das Buch zu Blitz Basic: www.schreibfabrik.de/txt/bbb

	4pac	So, Dez 28, 2003 13:19 Antworten mit Zitat
Sidolin spielt darauf an, daß das eine eingebaute Windows-Funktion ist. Das muss man sich nicht hinsetzen und was coden - ist doch klasse! Taste "Druck /S-Abf", wobei "S-Abf" vermutlich für "Screen abfotografieren" o.ä. steht, und schon hat man das Bild in der Zwischenablage und kann es in jedem beliebige Bildbearbeitungsprogramm einfügen, oder auch (sogar) in Microschorf Word.

4pac

So, Dez 28, 2003 13:19
Antworten mit Zitat

Sidolin spielt darauf an, daß das eine eingebaute Windows-Funktion ist. Das muss man sich nicht hinsetzen und was coden - ist doch klasse! Taste "Druck /S-Abf", wobei "S-Abf" vermutlich für "Screen abfotografieren" o.ä. steht, und schon hat man das Bild in der Zwischenablage und kann es in jedem beliebige Bildbearbeitungsprogramm einfügen, oder auch (sogar) in Microschorf Word.

	René Meyer	So, Dez 28, 2003 13:41 Antworten mit Zitat
Nein, das ist eine Übersetzung für "System Request". Die Bezeichnungen stammen ja aus den frühen 80ern, da wurden noch gar keine Graphikkarten eingesetzt. :)
www.blitzbasic.de \| Das Buch zu Blitz Basic: www.schreibfabrik.de/txt/bbb

René Meyer

So, Dez 28, 2003 13:41
Antworten mit Zitat

Nein, das ist eine Übersetzung für "System Request". Die Bezeichnungen stammen ja aus den frühen 80ern, da wurden noch gar keine Graphikkarten eingesetzt. :)

www.blitzbasic.de | Das Buch zu Blitz Basic: www.schreibfabrik.de/txt/bbb

	D2006 Administrator	So, Dez 28, 2003 13:48 Antworten mit Zitat
aha, demzufolge System Abfrage. Wo wir schonmal dabei sind, was zum Teufel ist "Rollen"???

D2006

Administrator

So, Dez 28, 2003 13:48
Antworten mit Zitat

aha, demzufolge System Abfrage.

Wo wir schonmal dabei sind, was zum Teufel ist "Rollen"???

	mirk Gast	So, Dez 28, 2003 13:54 Antworten mit Zitat
die windows funktion kenne ich nur hatte ich die absicht das evtl in ein tool zu integrieren...

mirk

Gast

So, Dez 28, 2003 13:54
Antworten mit Zitat

die windows funktion kenne ich Rolling Eyes

nur hatte ich die absicht das evtl in ein tool zu integrieren...

	TheShadow Moderator	So, Dez 28, 2003 13:58 Antworten mit Zitat
bb+ kann snabshot von desktop machen und man kann es als bmp's speichern Oder als AVI - ich habe ein prog das avi's speichern kann - man muss nur das Dateiformat kennen - das ist nur bisschen langsam - aber z.B. mit einer DLL in C++/ASM kann man es beschleunigen
AMD64 3500+ \| GeForce6600GT 128MB \| 1GB DDR \| WinXPsp2

TheShadow

Moderator

So, Dez 28, 2003 13:58
Antworten mit Zitat

bb+ kann snabshot von desktop machen und man kann es als bmp's speichern

Oder als AVI - ich habe ein prog das avi's speichern kann - man muss nur das Dateiformat kennen - das ist nur bisschen langsam - aber z.B. mit einer DLL in C++/ASM kann man es beschleunigen

AMD64 3500+ | GeForce6600GT 128MB | 1GB DDR | WinXPsp2

	mirk Gast	So, Dez 28, 2003 14:06 Antworten mit Zitat
@the shadow - wie isn der befehl dazu?

mirk

Gast

So, Dez 28, 2003 14:06
Antworten mit Zitat

@the shadow - wie isn der befehl dazu? Wink

	Vertex	So, Dez 28, 2003 14:19 Antworten mit Zitat
So dürfte es glaube ich gehen (kann es z.Z. nicht testen) Code: [AUSKLAPPEN] [EINKLAPPEN] hWnd = GetActiveWindow() ShowWindow(hWnd,0) hDC = GetDC(0) Width = GetDeviceCaps(hDC,8) Height = GetDeviceCaps(hDC,10) Bank = CreateBank(Width * Height * 3) For X = 0 To Width -1 For Y = 0 To Height - 1 RGB = GetPixel(hDC,X,Y) PokeByte Bank,(X + Y * Width) * 3 + 0,(RGB Shr 16) And $FF PokeByte Bank,(X + Y * Width) * 3 + 1,(RGB Shr 8) And $FF PokeByte Bank,(X + Y * Width) * 3 + 2,(RGB And $FF) Next Next ReleaseDC(hWnd,DC) Graphics 640,480,32,2 AppTitle "Screenshot" ShowWindow(hWnd,5) Image = CreateImage(Width,Height) SetBuffer ImageBuffer(Image) LockBuffer For X = 0 To Width -1 For Y = 0 To Height - 1 R = PeekByte(Bank,(X + Y * Width) * 3 + 0) G = PeekByte(Bank,(X + Y * Width) * 3 + 1) B = PeekByte(Bank,(X + Y * Width) * 3 + 2) RGB = R * $10000 + G * $100 + B WritePixelFast X,Y,RGB Next Next UnLockBuffer FreeBank Bank SetBuffer BackBuffer() DrawBlock Image,0,0 Waitkey : End Zitat: .lib "User32.dll" GetActiveWindow%() : "GetActiveWindow" ShowWindow(hWnd,nCmdShow) : "ShowWindow" GetDC%(hWnd) : "GetDC" ReleaseDC(hWnd,hDC) : "ReleaseDC" .lib "gdi32.dll" GetPixel%(hDC,x,y) : "GetPixel" GetDeviceCaps%(hDC,nIndex) : "GetDeviceCaps" mfg olli

Vertex

So, Dez 28, 2003 14:19
Antworten mit Zitat

So dürfte es glaube ich gehen (kann es z.Z. nicht testen)
Code: [AUSKLAPPEN]

hWnd = GetActiveWindow()
ShowWindow(hWnd,0)

hDC = GetDC(0)
Width = GetDeviceCaps(hDC,8)
Height = GetDeviceCaps(hDC,10)
Bank = CreateBank(Width * Height * 3)

For X = 0 To Width -1
For Y = 0 To Height - 1
RGB = GetPixel(hDC,X,Y)
PokeByte Bank,(X + Y * Width) * 3 + 0,(RGB Shr 16) And $FF
PokeByte Bank,(X + Y * Width) * 3 + 1,(RGB Shr 8) And $FF
PokeByte Bank,(X + Y * Width) * 3 + 2,(RGB And $FF)
Next
Next
ReleaseDC(hWnd,DC)

Graphics 640,480,32,2
AppTitle "Screenshot"
ShowWindow(hWnd,5)

Image = CreateImage(Width,Height)
SetBuffer ImageBuffer(Image)
LockBuffer
For X = 0 To Width -1
For Y = 0 To Height - 1
R = PeekByte(Bank,(X + Y * Width) * 3 + 0)
G = PeekByte(Bank,(X + Y * Width) * 3 + 1)
B = PeekByte(Bank,(X + Y * Width) * 3 + 2)
RGB = R * $10000 + G * $100 + B
WritePixelFast X,Y,RGB
Next
Next
UnLockBuffer
FreeBank Bank

SetBuffer BackBuffer()
DrawBlock Image,0,0

Waitkey : End

Zitat:

.lib "User32.dll"
GetActiveWindow%() : "GetActiveWindow"
ShowWindow(hWnd,nCmdShow) : "ShowWindow"
GetDC%(hWnd) : "GetDC"
ReleaseDC(hWnd,hDC) : "ReleaseDC"

.lib "gdi32.dll"
GetPixel%(hDC,x,y) : "GetPixel"
GetDeviceCaps%(hDC,nIndex) : "GetDeviceCaps"

mfg olli

	TheShadow Moderator	So, Dez 28, 2003 14:43 Antworten mit Zitat
DesktopBuffer()
AMD64 3500+ \| GeForce6600GT 128MB \| 1GB DDR \| WinXPsp2

TheShadow

Moderator

So, Dez 28, 2003 14:43
Antworten mit Zitat

DesktopBuffer()

AMD64 3500+ | GeForce6600GT 128MB | 1GB DDR | WinXPsp2

	mirk Gast	So, Dez 28, 2003 16:11 Antworten mit Zitat
thx probiers sofort aus wenn ich zeit hab

mirk

Gast

So, Dez 28, 2003 16:11
Antworten mit Zitat

thx probiers sofort aus wenn ich zeit hab Very Happy

	Vertex	So, Dez 28, 2003 16:32 Antworten mit Zitat
So geht es nun (hatte nicht gewusst, das GetPixel BGR statts RGB zurückliefert) Code: [AUSKLAPPEN] [EINKLAPPEN] hWnd = GetActiveWindow() ShowWindow(hWnd,0) hDC = GetDC(0) Width = GetDeviceCaps(hDC,8) Height = GetDeviceCaps(hDC,10) Bank = CreateBank(Width * Height * 3) For X = 0 To Width -1 For Y = 0 To Height - 1 RGB = GetPixel(hDC,X,Y) PokeByte Bank,(X + Y * Width) * 3 + 0,(RGB Shr 16) And $FF PokeByte Bank,(X + Y * Width) * 3 + 1,(RGB Shr 8) And $FF PokeByte Bank,(X + Y * Width) * 3 + 2,(RGB And $FF) Next Next ReleaseDC(hWnd,DC) Graphics 640,480,32,2 AppTitle "Screenshot" ShowWindow(hWnd,5) Image = CreateImage(Width,Height) SetBuffer ImageBuffer(Image) LockBuffer For X = 0 To Width -1 For Y = 0 To Height - 1 R = PeekByte(Bank,(X + Y * Width) * 3 + 2) G = PeekByte(Bank,(X + Y * Width) * 3 + 1) B = PeekByte(Bank,(X + Y * Width) * 3 + 0) RGB = R * $10000 + G * $100 + B WritePixelFast X,Y,RGB Next Next UnlockBuffer FreeBank Bank SetBuffer BackBuffer() DrawBlock Image,0,0 : Flip WaitKey : End die userlib bleibt so

Vertex

So, Dez 28, 2003 16:32
Antworten mit Zitat

So geht es nun (hatte nicht gewusst, das GetPixel BGR statts RGB zurückliefert)
Code: [AUSKLAPPEN]

hWnd = GetActiveWindow()
ShowWindow(hWnd,0)

hDC = GetDC(0)
Width = GetDeviceCaps(hDC,8)
Height = GetDeviceCaps(hDC,10)
Bank = CreateBank(Width * Height * 3)

For X = 0 To Width -1
For Y = 0 To Height - 1
RGB = GetPixel(hDC,X,Y)
PokeByte Bank,(X + Y * Width) * 3 + 0,(RGB Shr 16) And $FF
PokeByte Bank,(X + Y * Width) * 3 + 1,(RGB Shr 8) And $FF
PokeByte Bank,(X + Y * Width) * 3 + 2,(RGB And $FF)
Next
Next
ReleaseDC(hWnd,DC)

Graphics 640,480,32,2
AppTitle "Screenshot"
ShowWindow(hWnd,5)

Image = CreateImage(Width,Height)
SetBuffer ImageBuffer(Image)
LockBuffer
For X = 0 To Width -1
For Y = 0 To Height - 1
R = PeekByte(Bank,(X + Y * Width) * 3 + 2)
G = PeekByte(Bank,(X + Y * Width) * 3 + 1)
B = PeekByte(Bank,(X + Y * Width) * 3 + 0)
RGB = R * $10000 + G * $100 + B
WritePixelFast X,Y,RGB
Next
Next
UnlockBuffer
FreeBank Bank

SetBuffer BackBuffer()
DrawBlock Image,0,0 : Flip

WaitKey : End

die userlib bleibt so

	prolapper Betreff: ???	Sa, Dez 22, 2007 20:32 Antworten mit Zitat
Wo muss ich etz da was verändern, wenn des funtzen soll, also genauer gesagt: In BB werden ja manche Befehle in diesem Code nicht erkannt, deshalb muss man etwas in einer Userlib verändern. Aber was ??? Danke schonmal für eine Antwort
P.S: ICH SUCHE NOCH EINEN GRAFIKER UND EINEN PROGRAMMIERER FÜR EIN RPG E-Mail: prolapper@gmx.net

prolapper

Betreff: ???

Sa, Dez 22, 2007 20:32
Antworten mit Zitat

Wo muss ich etz da was verändern, wenn des funtzen soll, also genauer gesagt: In BB werden ja manche Befehle in diesem Code nicht erkannt, deshalb muss man etwas in einer Userlib verändern. Aber was ???
Danke schonmal für eine Antwort

P.S: ICH SUCHE NOCH EINEN GRAFIKER UND EINEN PROGRAMMIERER FÜR EIN RPG
E-Mail: prolapper@gmx.net

	ChristianK	Sa, Dez 22, 2007 20:44 Antworten mit Zitat
hust Das ist genau 4 Jahre her ... Außerdem steht die Antwort auf deine Frage vier Posts weiter oben.
AdvanceLcd Intel Core 2 Duo 3.2 GHz, 4 GB RAM, GeForce 8800 GTX \| MacBook Pro 15,4″ Intel Core 2 Duo 2.4 GHz, 2 GB RAM, GeForce 8600M GT

ChristianK

Sa, Dez 22, 2007 20:44
Antworten mit Zitat

*hust* Das ist genau 4 Jahre her ...
Außerdem steht die Antwort auf deine Frage vier Posts weiter oben.

AdvanceLcd
Intel Core 2 Duo 3.2 GHz, 4 GB RAM, GeForce 8800 GTX | MacBook Pro 15,4″ Intel Core 2 Duo 2.4 GHz, 2 GB RAM, GeForce 8600M GT

	prolapper	Sa, Dez 22, 2007 21:14 Antworten mit Zitat
^^ Ich bin durch einen Link draufgekommen. Also, ok , da steht was verändert werden, oder hinzugefügt werden soll, aber nicht wo und wie ! Ich weiß nicht was ich mit dem da anfangen soll mfg
P.S: ICH SUCHE NOCH EINEN GRAFIKER UND EINEN PROGRAMMIERER FÜR EIN RPG E-Mail: prolapper@gmx.net

prolapper

Sa, Dez 22, 2007 21:14
Antworten mit Zitat

^^ Ich bin durch einen Link draufgekommen.

Also, ok , da steht was verändert werden, oder hinzugefügt werden soll, aber nicht wo und wie !
Ich weiß nicht was ich mit dem da anfangen soll
mfg

P.S: ICH SUCHE NOCH EINEN GRAFIKER UND EINEN PROGRAMMIERER FÜR EIN RPG
E-Mail: prolapper@gmx.net

	ChristianK	Sa, Dez 22, 2007 21:18 Antworten mit Zitat
Da steht, was du machen musst -> https://www.blitzforum.de/foru...496#207496
AdvanceLcd Intel Core 2 Duo 3.2 GHz, 4 GB RAM, GeForce 8800 GTX \| MacBook Pro 15,4″ Intel Core 2 Duo 2.4 GHz, 2 GB RAM, GeForce 8600M GT

ChristianK

Sa, Dez 22, 2007 21:18
Antworten mit Zitat

Da steht, was du machen musst -> https://www.blitzforum.de/foru...496#207496

AdvanceLcd
Intel Core 2 Duo 3.2 GHz, 4 GB RAM, GeForce 8800 GTX | MacBook Pro 15,4″ Intel Core 2 Duo 2.4 GHz, 2 GB RAM, GeForce 8600M GT

Gehe zu Seite 1, 2 Weiter

Übersicht

BlitzBasic

Allgemein

Nach Oben

BlitzBasic Portal

bildschirmfoto

mirk

Betreff: bildschirmfoto

mirk

mirk

mirk

mirk

Betreff: ???