Beogradsko programiranje

Monday, February 26, 2018

Cisco vpn windows 10

https://eltrasterodeit.blogspot.rs/2016/01/como-instalar-cisco-vpn-en-windows-10.html

http://www.firewall.cx/cisco-technical-knowledgebase/cisco-services-tech/1127-cisco-vpn-client-windows-10-install-fix-442-failed-to-enable-virtual-adapter.html

https://www.techradar.com/how-to/how-to-install-the-cisco-vpn-client-in-windows-10

The solution for installation is easy, although laborious. Let's see the steps to follow:

First of all, uninstall any Cisco client you have. Remember to save any type of certificates that you may have installed.
Uninstall DNE Fix (Deterministic NEtworks, from Citrix), and any update to this program. That there is no trace. It is what we will install after again, the Winfix)
We restart the team.
We install Citrix Winfix
We restart the computer again.
We downloaded Sonic Wall VPN. HERE the 32 bit version, and HERE the 64 bit one. The reason for doing this is that the appropriate version of DNE software will be installed, which Cisco also needs.
We return to restart.
We downloaded Cisco VPN Client and installed. The 64 bit version, HERE .
Restart again (and go 3 times).
Go to HKEY_LOCAL_MACHINE / SYSTEM / CurrentControlSet / Services / CVirtA, open the value REG_5Z with the name "Display name" and put the following:

- For x86 computers.

"@ oem8.inf,% CVirtA_Desc%; Cisco Systems VPN Adapter" to "Cisco System VPN Adapter"
(without quotes)

- For x64

Computers "@ oem8.inf,% CVirtA_Desc%; Cisco Systems VPN Adapter for 64-bit Windows" to
"Cisco Systems VPN Adapter for 64-bit Windows" (without quotes)

We restart, and with this, we finish. You only have to configure the configuration as you had it, or import the certificates

https://www.youtube.com/watch?v=hEHceV2ADL8

Friday, February 23, 2018

Recursive procedure to build a list of files

Find files with FindFirst and FindNext

Search

The procedure FindFiles locates files in a given directory (folder) and its subdirectories, and adds their complete path to a stringlist. Note that recursion is used: FindFiles calls itself at the end of the procedure!

The meaning of the parameters of FindFiles(FilesList, StartDir, FileMask) is as follows:

FilesList is a stringlist, that you have to create before calling FindFiles. Afterwards, don't forget to free this stringlist.

In StartDir you specify the starting directory, including the disk drive. If you want to search an entire disk, specify the root directory (root folder) of that disk, such as C:\ or D:\

In FileMask you pass the name of the file to find, or a file mask with wildcards, such as ? and *
Examples of use:

Find all files on the entire C: disk with the name 'letter1.doc' :
FindFiles('c:\', 'letter01.doc');
Find all files on the entire C: disk, with a name starting with 'euroen', followed by zero, one or two other characters, and ending with the extension '.dpr' :
FindFiles('d:\', 'euroen??.dpr');
Find all Delphi project files in directory d:\projects and its subdirectories :
FindFiles('d:\projects', '*.dpr');
If you want to test this procedure, start a new project and add some components to the form: two Edits (one for the starting directory, one for the mask), a Button, a Label and a ListBox.

implementation
....

// Recursive procedure to build a list of files
procedure FindFiles(FilesList: TStringList; StartDir, FileMask: string);
var
SR: TSearchRec;
DirList: TStringList;
IsFound: Boolean;
i: integer;
begin
if StartDir[length(StartDir)] <> '\' then
StartDir := StartDir + '\';

{ Build a list of the files in directory StartDir
(not the directories!) }

IsFound :=
FindFirst(StartDir+FileMask, faAnyFile-faDirectory, SR) = 0;
while IsFound do begin
FilesList.Add(StartDir + SR.Name);
IsFound := FindNext(SR) = 0;
end;
FindClose(SR);

// Build a list of subdirectories
DirList := TStringList.Create;
IsFound := FindFirst(StartDir+'*.*', faAnyFile, SR) = 0;
while IsFound do begin
if ((SR.Attr and faDirectory) <> 0) and
(SR.Name[1] <> '.') then
DirList.Add(StartDir + SR.Name);
IsFound := FindNext(SR) = 0;
end;
FindClose(SR);

// Scan the list of subdirectories
for i := 0 to DirList.Count - 1 do
FindFiles(FilesList, DirList[i], FileMask);

DirList.Free;
end;

// Example: how to use
FindFiles
procedure TForm1.ButtonFindClick(Sender: TObject);
var
FilesList: TStringList;
begin
FilesList := TStringList.Create;
try
FindFiles(FilesList, EditStartDir.Text, EditFileMask.Text);
ListBox1.Items.Assign(FilesList);
LabelCount.Caption := 'Files found: ' + IntToStr(FilesList.Count);
finally
FilesList.Free;
end;
end;

http://docwiki.embarcadero.com/RADStudio/Tokyo/en/Standard_Routines_and_Input-Output

Vazdusna puska ?

http://www.overa.rs/zakona-o-oruzju-i-municiji.html

Tuesday, February 20, 2018

Ko smo mi ?

"Beogradsko programiranje" je specijalizovani blog za senior programere.

Mi nismo blog za juniore i početnike, već samo za visoko specijalizovane i iskusne programere, dizajnere i sistem administratore.

Na našim stranama ćete naći rešenje za neke od najčešćih problema iz prakse.

Svaki link koji postavimo predstavlja rešenje za neki od veoma čestih i korisnih situacija prilikom izrade velikih IT projekata.

Primetićete da dajemo uglavnom linkove, a veoma retko neki duži tekst. To je zato jer našim čitaocima nisu potrebne suvišna objašnjenja, nego čista konkretizacija.

Ukoliko procenimo da je tema od šireg značaja za naše čitaoce, onda dajemo i više teksta u našim postovima.

***