Code archives/Graphics/Smart ScreenShot Taker

This code has been declared by its author to be Public Domain code.

Download source code

Smart ScreenShot Taker by jackzip8
(Posted 23 years ago)
The function will take a screenshot and remember the last
screenshot taken through that of a data file which the
function creates to obtain the last screenshot taken!
You can also specify a directory where you want the screenshots to be put at as well. This function is very useful for any application where you might need to take screenshots on a regular basis and don't wont to lose existing screenshots! I hope you find this code useful like i have. 
Global Int1%	;For writing to our '.egl' datafile

;hit spacebar to save a screenshot
If KeyHit(57) = True Then Screenshot()


Function Screenshot()

	ChangeDir "E:\Blitz3D\Blitz3D Demos\fpstest\egyptian level\ScreenShots"
	
			screenin = ReadFile("screenshot.egl") ; you can change the extension to whatever you want!
			If screenin = 0 Then currentshot = 0:Goto phase2
			currentshot = ReadInt( screenin )
				  CloseFile( screenin )
	
.phase2		iFileNumber% = currentshot
	    Repeat
	        iFileNumber = iFileNumber + 1
	        sFileName$ = "Egyptian_Level" + String$("0", 3 - Len(Str$(iFileNumber))) + iFileNumber + ".bmp"
	    Until Not(FileType(sFileName))

	Int1 = iFileNumber	
		
			screenout = WriteFile("screenshot.egl") ; Same as above!
			WriteInt( screenout, Int1 )
			  	  CloseFile( screenout )
    
    SaveBuffer FrontBuffer(), sFileName

	ChangeDir "E:\Blitz3D\Blitz3D Demos\fpstest\egyptian level" ; Change back to previous directory

End Function

Comments

Rob Farley
(Posted 23 years ago)
Would it not be easier...
SaveBuffer FrontBuffer(), "Screenshot " + currentdate() + " " + currenttime() + ".bmp"
This will also date/time stamp your screenies.

This is only a problem if you're going to take a screenshot faster than every second or for over a 100 year period, even then you could stick a millisecs() on the end to fix that problem.

jackzip8
(Posted 23 years ago)
Well... Your example code is fine for what it does in all..
But what if you don't want your screenshots cluttering up along with your other media files? This is where this is nice, Because this function will allow you to store the
screenshots into another directory plus also remember the last screenshot taken so that it wont over write an existing
screenshot(s) that you may want to keep for some reason or another?! I realize your code could also be changed to store into a different directory as well... But this code I posted does serve it's purpose too! People can use this as they wish to... Or they can use your's... It doesn't matter though, Because I created this yesterday for a test-demo I was working with, And I thought I would post it to share with others on here... They are free to use this if they want! :)

Rob Farley
(Posted 23 years ago)
Glenn,

The code modification to put screenies into another dir would be
SaveBuffer FrontBuffer(), "[YOUR DIR]/Screenshot " + currentdate() + " " + currenttime() + ".bmp"
Which is a fairly basic change.

Furthermore this would create unique filenames as long as you don't take screenshots for over 100 years or quicker than every second as I mentioned above. You can easily tell what the last file is as it is the one with the most recent time, or indeed click on the last modified heading in windows explorer to sort them.

I'm not attacking your work just presenting what I believe to be a more elegant solution.

jackzip8
(Posted 23 years ago)
Ok Rob,

Your code is more simple & straight forward and all...
But what if I don't want a time/data stamp? But I merly just want to include a name plus a number instead then?
Im' sure you could write another example showing a more simplier way to do this as well... But the fact here is,
even known my code has a little bit more to it as far as
programming steps are concerned and all... It still serve's its purpose!!! Plus this code isn't that bad either! It may not be a simple one-liner like yours!! But it does have a nice setup as well! Plus if someone wanted to learn how to create a data file to read & write information too... At least this shows a starting point! Like I said above as well. This code work's fine for me, and I merly wanted to share it with other Blitz users on here! If they feel it isn't worth the bother and all... They don't have to download it, Or copy & paste it! they are free to use this code here... or your's if they perfer!

The point here is... they both do the same thing! And that's all that matters here!

tesuji
(Posted 23 years ago)
Hi

Currenttime() outputs colons which are not valid windows filesystem characters.

[Code]SaveBuffer FrontBuffer(), "dir/filename-"+MilliSecs() + ".bmp"[/Code]

Works for me ;-p

Both techniques have their merits I'm sure.

Cheers,
S.

Rob Farley
(Posted 23 years ago)
filename$ = "dir/screenshot "+CurrentDate() + " " + Left(CurrentTime(),2)+Mid(CurrentTime(),4,2)+Right(CurrentTime(),2)+".bmp"


Code Archives Forum