SRL Archive - Delphi/FPC Help and Tutorials

Hey,

I've read in another thread that someone was working on this, but failed. So, I thought I'd give it a shot :)

Nopeus is tool which takes screenshots and uploads them if desired. I tried to create an easy-to-use interface to simplify it even more.


Features:

• Different modes of capturing (Desktop/Monitor, (active) Window, custom region)
• Easy-to-use (no menus, just big icons)
• 4 different imagehosts at the moment (including TinyPic and Imageshack)
• Currently 3 file formats (BMP, JPG, PNG) - I might expand that with Gif and maybe tiff.
• Each screenshot gets its own form
• Works with PrintScreen hotkey

I think there's not much more to say. I'll release the source when I'm fully done (won't take too long I hope).

Please test/suggest away =D

~Nielsie95

Stop pwning people :S

Nice job, the gui is sexy :D

Thank-you very much. I needed this for my tutorial :) Rep+

Heya.
My PC is quite dead when i run this, i cant even open "win+r" and the start menu O_O..
And I also get an acces violation after startup.

~caused

I really don't like the fact that you just made this in 1 minute… + the fact you p0wn me bigtime… :(.
How did you manage to upload it to these hosts?
Delphi 2009?
Seems p0wnage.

This is a brilliant idea and I am kind of working on it for a year, but I have like no progress somehow…

Thanks guys :)

From: caused
Heya.
My PC is quite dead when i run this, i cant even open "win+r" and the start menu O_O..
And I also get an acces violation after startup.

~caused

That's very strange :( What OS are you running?

From: Hermen
I really don't like the fact that you just made this in 1 minute… + the fact you p0wn me bigtime… :(.
How did you manage to upload it to these hosts?
Delphi 2009?
Seems p0wnage.

This is a brilliant idea and I am kind of working on it for a year, but I have like no progress somehow…

Yes, Delphi 2009. The uploading is just submitting a form (I used the Indy components which come with Delphi).

Windows XP. I'd like to make a screenshot of that errormessage, but the programme blocks my print key ;).

The ErrorMessage says:
Acces violation at address 00408073 in module 'Nopeus.exe'. Read of address 8d004235.

Hope this helps :x.. Though i found those error messages never really helpful :'D..

It pops directly after startup, and when the programme is running than, but it doesnt seem to take screenshots(when i press print the errormessages appears again).

~caused

I seem to be getting the same messaged as caused.
Though, very nice app, really looking forward to seeing the source.

As a side question, Niels; is D2009 significantly better than D7?

Yes, I prefer Delphi 2009 over 7. The IDE is nicer, it supports Vista + unicode better and has some cool language improvements :) But if you don't need any of those, D7 should do just fine.

Also, the bug should be fixed. It had something to do with the multiple monitor support. I am running 2 monitors, so I didn't notice :p

Now I want to make one of these, but I don't have the time :(

From: nielsie95
Yes, I prefer Delphi 2009 over 7. The IDE is nicer, it supports Vista + unicode better and has some cool language improvements :) But if you don't need any of those, D7 should do just fine.

I like D7's multi-window IDE better. I can't seem to be productive when in a single-window IDE. I wish I could use the 2009 compiler with the 7 IDE.

EDIT: Why do you freeze the screen when selecting a window?

Wow, I never thought that an admin would give someone a virus :mad:
Jk, nice program. When I made the program open the image, my comp froze for like 5 mins.
Good Job though. :)

A couple of suggestions:

> The main component should fill the entire form. (Align := alClient)
> Plus, the form should resize whenever a new tab is opened/closed.
> Make the compression options visible only for the selected file format, or atleast collapse/disable the other ones.
> Add a tray icon! It would be so awesome with this running unnoticed in the background, and whenever you'd need a screenshot, you could just press prinscreen and you'd get it instantly.
> If you do add the tray icon, make sure to add a shortcut for selecting a custom area. Saves precious seconds and annoyance.
> Make the program create a new folder in /AppPath/ as a default. Would eliminate the need for any setup whatsoever.
> Add an option for the user to enable it to start up along with Windows, by adding a key to the registry. Would something like this be correct?

procedure AddAppToReg(Sender: TObject);
var
  Reg: TRegistry;

begin
  Reg := TRegistry.Create;
  with Reg do
  begin
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
    WriteString('Nopeus.exe', Application.ExeName);
    CloseKey;
    Free;
  end;
end;

Because I think SCAR syntax is more readable IMO..

All I can think of for now.
Still awaiting the source .. :o

Delphi 2009 uses the .net framework right?

From: bullzeye95
Now I want to make one of these, but I don't have the time :(

I like D7's multi-window IDE better. I can't seem to be productive when in a single-window IDE. I wish I could use the 2009 compiler with the 7 IDE.

EDIT: Why do you freeze the screen when selecting a window?

You can have different layouts on 2009, just use the "Classic Undocked", that's what I do. I freeze the screen, because this way, I could use the same form for selecting a custom region (IMO the easiest way).

From: TRiLeZ
Wow, I never thought that an admin would give someone a virus :mad:
Jk, nice program. When I made the program open the image, my comp froze for like 5 mins.
Good Job though. :)

Maybe it takes such a long time to save? Maybe you should set the compression a bit lower (if it was PNG).

From: EvilChicken!
A couple of suggestions:

> The main component should fill the entire form. (Align := alClient)
> Plus, the form should resize whenever a new tab is opened/closed.
> Make the compression options visible only for the selected file format, or atleast collapse/disable the other ones.
> Add a tray icon! It would be so awesome with this running unnoticed in the background, and whenever you'd need a screenshot, you could just press prinscreen and you'd get it instantly.
> If you do add the tray icon, make sure to add a shortcut for selecting a custom area. Saves precious seconds and annoyance.
> Make the program create a new folder in /AppPath/ as a default. Would eliminate the need for any setup whatsoever.
> Add an option for the user to enable it to start up along with Windows, by adding a key to the registry. Would something like this be correct?

procedure AddAppToReg(Sender: TObject);
var
  Reg: TRegistry;

begin
  Reg := TRegistry.Create;
  with Reg do
  begin
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
    WriteString('Nopeus.exe', Application.ExeName);
    CloseKey;
    Free;
  end;
end;

Because I think SCAR syntax is more readable IMO..

All I can think of for now.
Still awaiting the source .. :o

Yes, I was planning to add the tray icon and startup with Windows, but I'm not sure what you mean by the main component and the tabs? The compression is visible for all file formats, because you can pick a different file format when you're saving.

From: Hermen
Delphi 2009 uses the .net framework right?

It can. For this project, it didn't.

Nielsie!
It was me who failed >.<
Nice though.
Better than I could ever make!

~Destiny~

You sure this works? It only crashes my PC to hell when I press Print-Screen :(

Updated it.

Added the Tray Icon and start with Windows option. Also added the source to the first post.

I'd like to know if it works now for everyone. So if every could post a screenshot of something (shouldn't be too hard, right?), it would make me very happy :)

Works for me:
http://img12.imageshack.us/img12/5950/capture1kls.jpg

http://i32.tinypic.com/33kdjqq.jpg
Working quite well.
But the icon is, ugh. A flower? I don't like it XD

Awesome, guys! <3

Yeah, well.. the flower.. :p Got any better ones?

Also, I forgot to say that for compiling you'll need Next Inspector (Berg Components, not free) and spTBXLib (that one is free :)).

Woaw, thanks for that sauce :'D.

*saves it for later* :)

Wonders where you get all those fancy icons from? Sick stuff btw

http://img150.imageshack.us/img150/3153/capture2f.png

this is smexy! good work and tyvm :)

Wow. Amazing.
Btw, Nopeus means "speed" in Finnish, aware?

From: mastaraymond
Wonders where you get all those fancy icons from? Sick stuff btw

I found them in my collection (they're all from free icon packs though). Every once in a while I just go icon-hunting ;)

From: marpis
Wow. Amazing.
Btw, Nopeus means "speed" in Finnish, aware?

I knew it meant speed in some weird language, didn't know it was Finnish though :)

Uploaded a new version which hopefully fixes a closing bug. :)

From: nielsie95
Uploaded a new version which hopefully fixes a closing bug. :)

Did you changed the icon?(most important thing about a program, am I right or am I right?, it will crash, and virus, and whatsoever with a flower icon, I am sure)
If yes I download now. XD But if no …


Ahh, sorry for that but I must have done it.

Lol :p No icon change =D

From: Hermen
Delphi 2009 uses the .net framework right?

Delphi .NET and Delphi are 2 different products

(I spy next inspector)