Beogradsko programiranje: posao

Showing posts with label posao. Show all posts

Thursday, September 30, 2021

Shared printers nightmare on Windows 10 new update

Solutions via command prompt:

Click the Search icon from the taskbar.
Type cmd.exe.
Press Ctrl + Shift + Enter.
Select the Yes option when a UAC dialog shows up.
This will open Command prompt as administrator.
Type the command – wusa /uninstall /kb:5005565.
Hit Enter and click Yes if you are asked for the removal.

https://www.windowslatest.com/2021/09/27/kb5005565-watch-out-for-these-issues-in-windows-10s-latest-update/

Thankfully, there’s a workaround for 0x0000011b printing errors. To address the 0x0000011b error, open Registry Editor and follow these steps:

In Registry Editor, open HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\Print key.
Create a new DWORD-32 bit value.
Name it “RpcAuthnLevelPrivacyEnabled”.
Set the value to 0.
Save the changes and close the editor.

It is worth noting that the issue is not restricted to particular hardware. If you’re unable to restore the printing feature, you can also uninstall Windows 10 update manually and pause updates for a few weeks or until a new patch is issued by Microsoft.

The cure for all problems:

Најпотребнији програми за Виндовс 10:

https://www.oo-software.com/en/shutup10

https://www.thewindowsclub.com/10appsmanager-windows-10

https://github.com/Sycnex/Windows10Debloater

Sunday, October 14, 2018

Šta je neophodno jednom modernom uredu ili kancelariji

1) ONLYOFFICE https://www.onlyoffice.com/ (from Riga, Latvia)
2) XAMPP
3) VLC
4) Audacity
5) GIMP
6) Inkscape
7) PSPad
8) Notepad ++
9) Visual Studio Code
10) Lazarus IDE
11) Android Studio
12) Java
13) SQLite
14) Postgre
15) GO https://golang.org/
16) Tragac https://beogradsko.blogspot.com/2018/05/aplikacija-tragac-6-je-native-windows.html

i naravno operativni sistem Windows ili Linux.

Ukoliko i Vi imate da reklamirate neki svoj proizvod ili slične sadržaje, blogove, knjige i sajtove slobodno me kontaktirajte.

MORE IMPORTANT TIPS:

IDS protekcija:

Intrusion detection system
https://en.wikipedia.org/wiki/Intrusion_detection_system

1. Fail2ban scans log files (e.g. /var/log/apache/error_log) and bans IPs that show the malicious signs -- too many password failures, seeking for exploits, etc.:

http://www.fail2ban.org/wiki/index.php/Main_Page

2. OSSEC scans Microsoft IIS log files and integrity:

https://www.ossec.net/downloads.html

Saturday, October 13, 2018

Laptop live linux

Imate Windows 10, koji Vam je dosadio, probali biste neka druga softverska usmerenja, osetili biste open-source ukus, a da to ne deluje na Windows 10, kao i da Vam nije neophodna instalacija operativnog sistema.
Jedino je potrebno da upotrebom UNetbootin https://unetbootin.github.io/ i nekog od ISO fajlova napravite butabilni USB kojim startujete svoj PC. U BIOS-u podesite da se kompjuter startuje sa USB-a.
Iskoristite neku od novijih verzija Puppy Linux-a http://puppylinux.com/index.html :

Compatibility *	Bits	Latest Version	Download link
Ubuntu Xenial	32-bit	XenialPup 7.5	Main - Mirror - Checksum
Ubuntu Xenial 64	64-bit	XenialPup64 7.5	Main - Mirror - Checksum
Slackware 14.1	32-bit	Slacko Puppy 6.3.2	Main - Mirror - Checksum
Slackware64 14.1	64-bit	Slacko64 Puppy 6.3.2	Main - Mirror - Checksum
Ubuntu Tahr	32-bit	Tahrpup 6.0.5	Main - Mirror - Checksum
Ubuntu Tahr 64	64-bit	Tahrpup64 6.0.5	Main - Mirror - Checksum

ili neku od starijih, ako imate slabiji hardver:

127.3M

Puppeee-1.0-atom.iso

127.3M

Puppeee-1.0-celeron.iso

87.8M

boxpuppeee.iso

147.4M

eee-2017.iso

194.8M

eee2017_jp-20170414.iso

150.2M

146.5M

148.4M

149.5M

150.1M

130.3M

133.9M

130.6M

puppeee4.4_beta1_atom.iso

130.6M

puppeee4.4_beta1_celeron.iso

115.5M

143.4M

143.7M

177.4M

180.0M

180.7M

156.0M

179.8M

152.0M

308.5M

stretch-7.0.0a2-k4.1.46-10Nov2017.iso

Naravno noviji ISO Puppy Linuxa nude noviji i kvalitetniji softver namenjen novijim kompjuterima.

Ako je problem da podesite BIOS da se butuje sa USB (ili ste jednostavno manje verzirani), onda koristite PLOP BOOT MANAGER:

PLOP BOOT MANAGER BOOT-UJE GDE DRUGI NE MOGU:

https://www.plop.at/en/bootmanager/download.html

DOWNLOAD:
https://download.plop.at/files/bootmngr/plpbt-5.0.15.zip

Sada nemate izgovora da ne probate Puppy Linux !

Tragate za svetim gralom stabilnosti i brzine koji Microsoft Windows ni u ludilu ne nudi, a Linux ga u nekim svojim distribucijama isijava kao prelepu svetlost open-source tehnologije.

Napomena: Tvoj stari Windows 10 ostaje potpuno netaknut. Nemate potrebu da brinete dok koristite Puppy Linux na Windows 10 kompjuteru. Windows 10 je aplsolutno bezbedan i siguran, a hard disk se na koristi pri upotrebi Puppy Linux-a. Ovaj linux se direktno puni u RAM memoriju kompjutera i "ne dira" ni jedan od drugih sistema i diskova na kompjuteru.

Ukoliko i Vi imate da reklamirate neki svoj proizvod ili slične sadržaje, blogove, knjige i sajtove slobodno me kontaktirajte.

TO NIJE SVE DRUGAR, IDEMO DALJE... -------->>>>>>>>>

Zaboravili ste WiFi lozinku, nema problema - za korisnike M$ Window$ 7,8,10

1 .startujte cmd.exe kao administrator i otkucajte ovo:
netsh wlan show profile

2. Kada ste saznali koja su sve imena za WiFi dostupna, kucaj ovo:
netsh wlan show profile WiFi-ime key=clear

Ovde je WiFi-ime ime tvog WiFi-ja za koji ti treba lozinka.

Dakle, prva naredba lista sva IMENA WIFI UREDJAJA, a druga naredba lista izmedju ostalog i LOZINKU koja te zanima.

Ako je nekome ovo pomoglo dajte mi neku pohvalu u komentar.

Tuesday, September 25, 2018

Da li Vam dobro racunaju platu ?

Monday, September 24, 2018

Typed Files in Delphi & Lazarus

Simply put a file is a binary sequence of some type. In Delphi, there are three classes of file: typed, text, and untyped. Typed files are files that contain data of a particular type, such as Double, Integer or previously defined custom Record type. Text files contain readable ASCII characters. Untyped files are used when we want to impose the least possible structure on a file.

Typed Files

While text files consist of lines terminated with a CR/LF (#13#10) combination, typed files consist of data taken from a particular type of data structure.

For example, the following declaration creates a record type called TMember and an array of TMember record variables.

 type
  TMember = record
    Name : string[50];
    eMail : string[30];
    Posts : LongInt;
  end;
 var Members : array[1..50] of TMember;

Before we can write the information to the disk we have to declare a variable of a file type. The following line of code declares an F file variable.

 var F : file of TMember;

Note: To create a typed file in Delphi, we use the following syntax:

var SomeTypedFile : file of SomeType

The base type (SomeType) for a file can be a scalar type (like Double), an array type or record type. It should not be long string, dynamic array, class, object or a pointer.

In order to start working with files from Delphi, we have to link a file on a disk to a file variable in our program. To create this link we must use AssignFile procedure in order to associate a file on a disk with a file variable.

 AssignFile(F, 'Members.dat')

Once the association with an external file is established, the file variable F must be 'opened' to prepare it for reading and/or writing. We call Reset procedure to open an existing file or Rewrite to create a new file. When a program completes processing a file, the file must be closed using the CloseFile procedure. After a file is closed, its associated external file is updated. The file variable can then be associated with another external file.

In general, we should always use exception handling; many errors may arise when working with files. For example: if we call CloseFile for a file that is already closed Delphi reports an I/O error. On the other hand, if we try to close a file but have not yet called AssignFile, the results are unpredictable.

Write to a File

Suppose we have filled an array of Delphi members with their names, e-mails, and number of posts and we want to store this information in a file on the disk. The following piece of code will do the work:

 var
  F : file of TMember;
  i : integer;
begin
 AssignFile(F,'members.dat') ;
 Rewrite(F) ;
 try
  for j:= 1 to 50 do
   Write (F, Members[j]) ;
 finally
  CloseFile(F) ;
 end;
end;

Read from a File

In order to retrieve all the information from the 'members.dat' file we would use the following code:

 var
  Member: TMember
  F : file of TMember;
begin
 AssignFile(F,'members.dat') ;
 Reset(F) ;
 try
  while not Eof(F) do begin
   Read (F, Member) ;
   {DoSomethingWithMember;}
  end;
 finally
  CloseFile(F) ;
 end;
end;

Note: Eof is the EndOfFile checking function. We use this function to make sure that we are not trying to read beyond the end of the file (beyond the last stored record).

Seeking and Positioning

Files are normally accessed sequentially. When a file is read using the standard procedure Read or written using the standard procedure Write, the current file position moves to the next numerically ordered file component (next record). Typed files can also be accessed randomly through the standard procedure Seek, which moves the current file position to a specified component. The FilePos and FileSizefunctions can be used to determine the current file position and the current file size.

 {go back to the beginning - the first record}
Seek(F, 0) ;
{go to the 5-th record}
Seek(F, 5) ;
{Jump to the end - "after" the last record}
Seek(F, FileSize(F)) ;

Change and Update

You've just learned how to write and read the entire array of members, but what if all you want to do is to seek to the 10th member and change the e-mail? The next procedure does exactly that:

 procedure ChangeEMail(const RecN : integer; const NewEMail : string) ;
var DummyMember : TMember;
begin
 {assign, open, exception handling block}
 Seek(F, RecN) ;
 Read(F, DummyMember) ;
 DummyMember.Email := NewEMail;
 {read moves to the next record, we have to
 go back to the original record, then write}
 Seek(F, RecN) ;
 Write(F, DummyMember) ;
 {close file}
end;

Completing the Task

That's it -- now you have all you need to accomplish your task. You can write members' information to the disk, you can read it back and you can even change some of the data (e-mail, for example) in the "middle" of the file.

ORIGINAL ARTICLE:

https://www.thoughtco.com/create-database-delphis-file-typed-files-1058003

NEMA ODMORA DOK TRAJE OBNOVA ---->>>>>

IDEMO DALJE ------------>>>>>