Progbis Software

Nativescript close application

2022-11-22T10:07:00.003+01:00

Example of use in function onClose()

import { isIOS } from '@nativescript/core/platform';

//declaration of native functions
declare const android:any;
declare const exit: (code: number)=>void;

//Use for example in component

onClose() {

    if (isIOS) {
        exit(0);
    } else {
        android.os.Process.killProcess(android.os.Process.myPid());
    }
}

Nativescript block Back Button on Android

2022-11-22T09:58:00.000+01:00

Example of blocking Soft Back Button on android in angular component

import { Component, OnInit } from '@angular/core';
import { isAndroid } from '@nativescript/core/platform';
import { AndroidApplication, AndroidActivityBackPressedEventData } from "@nativescript/core/application";
import * as app from "@nativescript/core/application";

declare const android:any;

//Put this code in implementation OnInit of component

ngOnInit() {
     if (isAndroid) {
      app.android.on(AndroidApplication.activityBackPressedEvent, (data: AndroidActivityBackPressedEventData) => {
          data.cancel = true; // prevents default back button behavior
      });
    }
}

Nativescript: Assets Folder Not Including html,js, css files

2022-11-09T16:10:00.000+01:00

In default options WebpackPlugin copy Images and fonts folder.

If You need to copy for example assets folder with js, html etc. for webView You mast update

CopyWebpackPlugin in your webpack.config.js to include the asset folder

for 6.x version of nativescript |

new CopyWebpackPlugin([
 { from: "fonts/**" },
 { from: "**/*.jpg" },
 { from: "**/*.png" },
 { from: "assets/**" }, // Add your asset folder path like this
], { ignore: [`${relative(appPath, appResourcesFullPath)}/**`] }),

for 7,8 version 

webpack.Utils.addCopyRule('assets/**')

JS:Clickjack-A [Trj], JS/Agent.NKW trojan na stronie - Rozwiązanie

2014-02-18T09:44:00.002+01:00

Ten Trojan dołącza się zazwyczaj do pliku php, jako skrypt js
U mnie wystąpił w templetce modułu joomla inowslider.
Usunięcie:

1. Otwórz \modules\mod_inowslider\tmpl\default.php

2. Poszuka i usuń skrypt wyglądający mniej więcej tak :

<script language="JavaScript">
function dnnViewState()
{
var a=0,m,v,t,z,x=new Array('xxxxxx'),l=x.length;while(++a<=l){m=x[l-a];
t=z='';
for(v=0;v<m.length;){t+=m.charAt(v++);
if(t.length==2){z+=String.fromCharCode(parseInt(t)+25-l+a);
t='';}}x[l-a]=z;}document.write('<'+x[0]+' '+x[4]+'>.'+x[2]+'{'+x[1]+'}</'+x[0]+'>');}dnnViewState();
</script>

3.Na końcu pliku zlokalizuj i usuń ten kod.
<p class="dnn">By A <a href="http://www.autson.com/" title="web design company">Web Design</a></p>

4.Po zapisaniu usunąłeś trojana z modułu, możesz jeszcze przeskanować plik dla pewności antywirusem np: Avastem, Nodem

Set Application Run As Admin

2013-03-22T14:32:00.000+01:00

Dzisiaj potrzebowałem funkcji do ustawienia instalowanej aplikacji w tryb uruchomienia jako administrator - oto ona:


export prototype BOOL SetRunAsAdmin(STRING, BOOL);

Parametry funkcji:

szFile - nazwa pliku
bLog - czy zapisywać do logu


function BOOL SetRunAsAdmin(szFile, bLog)
#define UKEYLAYERS "SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\AppCompatFlags\\Layers"
#define DATA "RUNASADMIN"
string szName, sKey;
LIST listSubKeys;
number nReturn;
int i;
begin
 if (bLog) then WriteLog(0,"- Dodanie praw administratora do uruchomienia pliku: "+szFile); endif;
  
 //Przestaw rejestr na 64 bity
 if (SYSINFO.bIsWow64!=0) then REGDB_OPTIONS = REGDB_OPTIONS | REGDB_OPTION_WOW64_64KEY;  endif;
  
 szName = szFile;
 RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE); 
 if (!RegDBKeyExist(UKEYLAYERS)) then
   if (bLog) then WriteLog(1," - brak klucza rejestru "+UKEY); endif; 
   if (SYSINFO.bIsWow64!=0) then REGDB_OPTIONS = REGDB_OPTIONS &amp; ~REGDB_OPTION_WOW64_64KEY;  endif;   
   return FALSE;
 endif;
  
 //Na istniejącym kluczu;
 listSubKeys  = ListCreate(STRINGLIST);
 nReturn = RegDBQueryKey(UKEYLAYERS, REGDB_NAMES, listSubKeys );
 if (nReturn=0) then
  if (ListCount(listSubKeys)&gt;0) then         
   ListSetIndex(listSubKeys,LISTFIRST);
    for i=0 to ListCount(listSubKeys)-1                   
     ListCurrentString ( listSubKeys, sKey );                        
     if (sKey==szName) then
      if (bLog) then WriteLog(1," - klucz ustawien już istnieje"); endif; 
      RegDBSetKeyValueEx(UKEYLAYERS, szName, REGDB_STRING, DATA, -1);
      if (SYSINFO.bIsWow64!=0) then REGDB_OPTIONS = REGDB_OPTIONS &amp; ~REGDB_OPTION_WOW64_64KEY; endif;   
      return TRUE;         
      endif;
      
     ListSetIndex ( listSubKeys, LISTNEXT );
    endfor;   
  endif;       
 endif;
   
  //Stworz nowy
  nReturn =  RegDBSetKeyValueEx(UKEYLAYERS, szName, REGDB_STRING, DATA, -1);
  if (nReturn==0) then
   if (bLog) then WriteLog(1," - prawa administratora dodane"); endif; 
   if (SYSINFO.bIsWow64!=0) then REGDB_OPTIONS = REGDB_OPTIONS &amp; ~REGDB_OPTION_WOW64_64KEY; endif;    
   return TRUE;
  else
   if (bLog) then WriteLog(1," - nie dodano praw administratora"); endif;
   if (SYSINFO.bIsWow64!=0) then REGDB_OPTIONS = REGDB_OPTIONS &amp; ~REGDB_OPTION_WOW64_64KEY; endif;    
   return FALSE;    
  endif; 
end;

Pobranie ścieżki DocumentRoot z konfiguracji Apache w InstallShield - Get DocumentRoot from Apache Config File

2012-07-09T14:48:00.001+02:00

Niedawno potrzebna była mi kolejna funkcja zwracająca ścieżkę do DocumentRoot z konfiguracji serwera Apache, oto ona:
Nagłówek funkcji

export prototype BOOL GetApacheDocRoot(STRING /*plik konfiguracyjny Apache*/, BYREF STRING /*DocRootPath*/, BOOL /*bLog*/);

Parametry funkcji:

ścieżka wraz z plikiem konfiguracyjnym np; httpd.conf
referencja do zmiennej przechowująca ścieżkę
bLog - czy zapisywać do logu

Zwracane wartość: true/false

A oto ciało funkcji:

function BOOL GetApacheDocRoot(szApacheConfigFile, svApacheDocRoot, bLog)
BOOL bResult;
LIST lsApache;
string szLine,szNewLine, szDocRoot;
int i;
begin 
 if (bLog) then WriteLog(0,"* Pobieranie scieżki do DocumentRoot z konfiguracji Apache..."); endif;
 bResult = FALSE;
 if (Is(FILE_EXISTS,szApacheConfigFile)) then
  lsApache = ListCreate(STRINGLIST); 
  ListReadFromFile ( lsApache, szApacheConfigFile ); //Odczyt Apache Conf
  if (ListCount(lsApache)>0) then        
   ListSetIndex(lsApache,LISTFIRST);         
   for i=0 to ListCount(lsApache)-1       
    ListCurrentString ( lsApache, szLine ); 
    szLine = StrTrim(szLine);
    if (StrFind(szLine,"DocumentRoot")>=0) then
     szNewLine = szLine;
     szNewLine = StrTrim(szNewLine);
     if (StrFind(szNewLine,"DocumentRoot")=0) then
      StrSub(szDocRoot,szNewLine, StrLength("DocumentRoot")+1,     StrLength(szNewLine));
      szDocRoot = StrTrim(szDocRoot);             
      bResult = TRUE;     
      if (bLog) then WriteLog(2,"DocumentRoot : "+szDocRoot); endif;
      StrReplace(szDocRoot,"\"","",0);
      StrReplace(szDocRoot,"/","\\",0);
      StrRemoveLastSlash(szDocRoot);
      svApacheDocRoot = szDocRoot;
     endif;   
    endif;
    ListSetIndex(lsApache,LISTNEXT);
   endfor; 
  endif;   
 endif;

 ListDestroy(lsApache);

 return bResult;
end;

Pobranie ścieżki instalacyjnej zainstalowanego produktu po przez GUID - Get Install location by Product GUID in InstallShield

2012-07-05T15:21:00.000+02:00

Przy tworzeniu aktualizacji czasami zachodzi potrzeba odczytania ścieżki instalacyjnej zainstalowanego wcześniej produktu. Jeżeli mamy GUID poprzedniego produktu możemy do tego wykorzystać poniższą funkcję. Funkcja odczytuje wartości rejestru zainstalowanych produktów.
Parametry:

GUID - GUID zainstalowanego produktu\
Path - odczytana ścieżka
Name - odczytana nazwa produktu
Version - odczytana wersja zainstalowanego produktu
bLog - zapis do loga

Funkcja zwraca true/false, wartość true w przypadku pozytywnego odczytania ścieżki instalacyjnej.

Nagłówek funkcji

 export prototype BOOL GetInstallLocationGUID(STRING, /*GUID*/ BYREF STRING /*Path*/, BYREF STRING /*Name*/, BYREF STRING /*Version*/, BOOL /*bLog*/);

Ciało funkcji


function BOOL GetInstallLocationGUID(szGUID, svPath, svName, svVersion, bLog)
#define UKEY  "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall"
string RegPath, sKey, sValue, sData, sFolder;    
number nReturn, nResult, nType, nSize, i, nData; 
BOOL bResult;
LIST   listSubKeys;
begin
  bResult = FALSE;
   
  if (bLog) then  WriteLog(1,"Odczyt ścieżki do zainstalowanego produktu"); endif;    
    
  listSubKeys  =  ListCreate(STRINGLIST);    
  RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE); 
  nReturn = RegDBQueryKey(UKEY, REGDB_KEYS, listSubKeys );
  if (nReturn=0) then
   ListGetFirstString ( listSubKeys, sKey );
   if (ListCount(listSubKeys)>0) then         
        
     ListSetIndex(listSubKeys, LISTFIRST);
     for i=0 to ListCount(listSubKeys)-1
       ListCurrentString ( listSubKeys, sKey );  
       if (sKey==szGUID) then                                  
         if (bLog) then  WriteLog(2,"- znaleziono zainstalowany produkt "+szGUID); endif;    
                 
         RegPath=UKEY+"\\"+sKey;
         sFolder=sKey;
         if (RegDBKeyExist(RegPath)==1) then                       
                          
            sKey = RegPath;                             
            sValue="DisplayName";
            nType = REGDB_STRING;
            if (RegDBGetKeyValueEx( sKey, sValue, nType, sData, nSize )==0) then
              svName = sData;
              if (bLog) then  WriteLog(3,"- nazwa produktu "+sData); endif;    
            else
              svName = "";
              if (bLog) then WriteLog(3,"- brak klucza nazwy produktu "); endif;    
            endif;                          
                                                    
            sValue="DisplayVersion";                          
            if (RegDBGetKeyValueEx( sKey, sValue, nType, sData, nSize )==0) then
             svVersion = sData;
             if (bLog) then  WriteLog(3,"- wersja produktu "+sData); endif;    
            else
             svVersion = "";
             if (bLog) then  WriteLog(3,"- brak klucza wersji produktu "); endif;    
            endif;
                          
            sValue="InstallLocation";                                    
            if (RegDBGetKeyValueEx( sKey, sValue, nType, sData, nSize )==0) then
              if (bLog) then  WriteLog(3,"- ścieżka instalacji "+sData); endif;

              svPath = sData;
              bResult = TRUE;
            else
              if (bLog) then  WriteLog(3,"- brak klucza ścieżki instalacyjne "); endif;    
            endif;
                         
            sValue="InstallDate";                                    
            if (RegDBGetKeyValueEx( sKey, sValue, nType, sData, nSize )==0) then
              if (bLog) then  WriteLog(3,"- data instalacji "+sData); endif;                                 
              bResult = TRUE;
            else
              if (bLog) then  WriteLog(3,"- brak klucza daty instalacji "); endif;    
            endif;
          endif;
        endif;    
                  
        ListSetIndex(listSubKeys, LISTNEXT);
      endfor;
          
    else
      if (bLog) then  WriteLog(2,"- brak listy zainstalowanych produktow GUID"); endif;    
    endif;
      
   else
     if (bLog) then  WriteLog(2,"- błąd odczytu rejestru"); endif;    
   endif;            

  return bResult;          
end;

Oprócz ścieżki instalacyjnej (Path) , funkcja zwraca nazwę produktu (Name) i wersję (Version)

Walidacja numeru Dowodu Osobistego w c#

2012-07-02T18:52:00.003+02:00

Funkcja walidująca numer dowodu osobistego w c# wraz z formatowaniem.
Funkcja oparta o sumę kontrolną


/// <summary>
/// Weryfikacja Nr Dowowdu Osobistego
/// </summary>
/// <param name="szNR">Nr Dowodu</param>
/// <param name="retFormated">Czy zwracać numer w postaci sformatowanej</param>
/// <returns>true/false</returns>
public static bool ValidateDO(ref string szNR, bool retFormated = true)
{
    byte[] tab = new byte[9] { 7, 3, 1, 9, 7, 3, 1, 7, 3 };
    byte[] tablicz = new byte[] { 48, 49, 50, 51, 52, 53, 54, 55, 56, 57 }; 
           
    bool bResult = false;
    int sumcontrol = 0;
    int sum = 0;

    szNR = szNR.Trim().Replace(" ", "");
            
    if (szNR.Length == 9)
    {                
        byte b;
                
        for (int i = 0; i < 3; i++)
        {
            b = Convert.ToByte(szNR[i]);
            if (b < 65 || b > 90) return false;
        }
        for (int i = 3; i < 9; i++)
        {
            b = Convert.ToByte(szNR[i]);
            if (b < 48 || b > 57) return false;
        }
                
        sumcontrol = Convert.ToInt32(szNR[3].ToString());

        for (int i = 0; i < 9; i++)
        {
            if (i < 3)
            {
                sum += (Convert.ToByte(szNR[i]) - 55) * tab[i];
            }
            else
            {
                sum += Convert.ToInt32(szNR[i].ToString()) * tab[i];
            }
        }

        bResult = ((sum % 10) == 0);

    }
    else return false;

    if (bResult && retFormated)
    {
        szNR = szNR.Insert(3, " ");                                
    }

    return bResult;
}

Walidacja numeru konta bankowego w c#

2012-07-02T18:49:00.000+02:00

Poniżej przedstawiam funkcję walidującą numer konta bankowego zarówno przyjętego w Polsce 26 i 28 znakowy.
Funkcja może zwrócić podany numer w postaci sformatowanej tj ze spacjami.


/// <summary>
/// Walidacja numeru bankowego
/// </summary>
/// <param name="szNR">weryfikowany numer</param>
/// <param name="retFormated">Czy zwracać numer w postaci sformatowanej</param>
/// <returns>true/false</returns>
public static bool ValidateIBAN_NRB(ref string szNR, bool retFormated = true)
{
    bool bResult = false;

    szNR = szNR.Trim()
                .Replace(" ", "")
                .Replace("-", "");
           
    if (szNR.Length == 26 || szNR.Length == 28)
    {
        string nr = szNR;
        if (nr.Length == 26)
        {
            nr = (nr +"PL"+ nr.Substring(0, 2)).Remove(0, 2);
        }
        else
        {
            nr = (nr + nr.Substring(0, 4)).Remove(0, 4);
        }

        nr = nr.Replace("P", "25").Replace("L", "21");

        String nr6 = nr.Substring(0, 6);
        String nr12 = nr.Substring(6, 6);
        String nr18 = nr.Substring(12, 6);
        String nr24 = nr.Substring(18, 6);
        String nr30 = nr.Substring(24);

        int r = Convert.ToInt32(nr6) % 97;
        nr12 = (r > 0 ? r.ToString() : "") + nr12;
        r = Convert.ToInt32(nr12) % 97;
        nr18 = (r > 0 ? r.ToString() : "") + nr18;
        r = Convert.ToInt32(nr18) % 97;
        nr24 = (r > 0 ? r.ToString() : "") + nr24;
        r = Convert.ToInt32(nr24) % 97;
        nr30 = (r > 0 ? r.ToString() : "") + nr30;                

        bResult = (Convert.ToInt32(nr30) % 97 == 1);
    }
    else return false;

    if (bResult && retFormated)
    {
        if (szNR.Length==26)
        {
            szNR = szNR.Insert(22, " ").Insert(18, " ").Insert(14, " ").Insert(10, " ").Insert(6, " ").Insert(2, " ");
        }
        else
        {
            szNR = szNR.Insert(24, " ").Insert(20, " ").Insert(16, " ").Insert(12, " ").Insert(8, " ").Insert(4, " ");
        }
    }

    return bResult;
}

Walidacja numeru Regon w c#

2012-07-02T18:42:00.003+02:00

Funkcja walidująca numer Regon w c# zarówno 9-cio jak i 14 cyfrowy.
Walidacja na podstawie sumy kontrolnej jak oraz długości ciągu cyfr.
Funkcja zwrac true w przypadku poprawnego numeru

public static bool ValidateRegon(ref string szRegon)
{
    byte[] tab8 = new byte[8] { 8, 9, 2, 3, 4, 5, 6, 7 };
    byte[] tab13 = new byte[13] { 2, 4, 8, 5, 0, 9, 7, 3, 6, 1, 2, 4, 8 };
    byte[] tablicz = new byte[] { 48, 49, 50, 51, 52, 53, 54, 55, 56, 57 };
    bool bResult = false;
    int suma = 0;
    int sumcontrol = 0;

    szRegon = szRegon.Trim();

    if ((szRegon.Length == 9)||(szRegon.Length==14))
    {
        foreach (char l in szRegon)
        {
            byte b = Convert.ToByte(l);
            if (Array.IndexOf(tablicz, Convert.ToByte(l)) == -1) return false;
        }

        sumcontrol = Convert.ToInt32(szRegon[(szRegon.Length==9)?8:13].ToString());

        for (int i = 0; i < ((szRegon.Length==9)?8:13); i++)
        {
            suma += ((szRegon.Length==9)?tab8[i]:tab13[i]) * Convert.ToInt32(szRegon[i].ToString());
        }

        bResult = ( (((suma % 11)!=10)?(suma % 11):0) == sumcontrol);
    }
    else return false;
           
    return bResult;
}

Walidacja numeru NIP w c#

2012-07-02T18:38:00.001+02:00

Funkcja walidująca numer NIP w c# wraz z formatowaniem.


/// <summary>
/// Walidacja NIP
/// </summary>
/// <param name="szNIP"></param>
/// <param name="retFormated"> Zwracany NIP jest w postaci sformatowanej</param>
/// <returns>zwraca true/false</returns>


public static bool ValidateNIP(ref string szNIP, bool retFormated = true)
{
    byte[] tab = new byte[9] { 6, 5, 7, 2, 3, 4, 5, 6, 7 };
    byte[] tablicz = new byte[] { 48, 49, 50, 51, 52, 53, 54, 55, 56, 57 };
    bool bResult = false;
    int suma = 0;
    int sumcontrol = 0;

    szNIP = szNIP.Replace("-", "");
    szNIP = szNIP.Trim();

    if (szNIP.Length == 10)
    {
        foreach (char l in szNIP)
        {
            byte b = Convert.ToByte(l);
            if (Array.IndexOf(tablicz, Convert.ToByte(l)) == -1) return false;
        }

        sumcontrol = Convert.ToInt32(szNIP[9].ToString());

        for (int i = 0; i < 9; i++)
        {
            suma += tab[i] * Convert.ToInt32(szNIP[i].ToString());
        }

        bResult = ((suma % 11) == sumcontrol); 
    }
    else return false;

    if (bResult && retFormated)
    {
        szNIP = szNIP.Insert(8, "-")
                        .Insert(6, "-")
                        .Insert(3, "-");               
    }

    return bResult;
}

Walidacja numeru Pesel w C#

2012-07-02T18:32:00.001+02:00

Przedstawiam funkcje walidującą numer PESEL.
Funkcja sprawdza sumę kontrolną numeru, długość oraz logiczność.
Zakres sprawdzanych numerów dat w Peselu od 1800 do 2200 (w przybliżeniu)
Zwraca true - w przypadku poprawnego numeru.


public static bool ValidatePesel(ref string szPesel)
{            
byte[] tab = new byte[10] { 9, 7, 3, 1, 9, 7, 3, 1, 9, 7 };
byte[] tablicz = new byte[] {48,49,50,51,52,53,54,55,56,57}; 
bool bResult = false;
int suma = 0;
int sumcontrol = 0;
                
szPesel = szPesel.Trim();

if (szPesel.Length == 11)
{
    foreach (char l in szPesel)
    {
        byte b = Convert.ToByte(l);
        if (Array.IndexOf(tablicz,Convert.ToByte(l)) == -1) return false;
    }
               
    sumcontrol = Convert.ToInt32(szPesel[10].ToString());

    for (int i = 0; i < 10; i++)
    {
        suma += tab[i] * Convert.ToInt32(szPesel[i].ToString());
    }

    bResult = ((suma % 10) == sumcontrol);  
                
    if (bResult)
    {
        int rok = 0;
        int mies = 0;
        int dzien = Convert.ToInt32(szPesel[4].ToString()) * 10 + Convert.ToInt32(szPesel[5].ToString());

        if (szPesel[2] == '0' || szPesel[2] == '1')
        {
            rok = 1900;
            mies = Convert.ToInt32(szPesel[2].ToString()) * 10 + Convert.ToInt32(szPesel[3].ToString());
        }
        else if (szPesel[2] == '2' || szPesel[2] == '3')
        {
            rok = 2000;
            mies = (Convert.ToInt32(szPesel[2].ToString()) * 10 + Convert.ToInt32(szPesel[3].ToString()) - 20);
        }
        else if (szPesel[2] == '4' || szPesel[2] == '5')
        {
            rok = 2100;
            mies = (Convert.ToInt32(szPesel[2].ToString()) * 10 + Convert.ToInt32(szPesel[3].ToString()) - 40);
        }
        else if (szPesel[2] == '6' || szPesel[2] == '7')
        {
            rok = 2200;
            mies = (Convert.ToInt32(szPesel[2].ToString()) * 10 + Convert.ToInt32(szPesel[3].ToString())-60);
        }
        else if (szPesel[2] == '8' || szPesel[2] == '9')
        {
            rok = 1800;
            mies = (Convert.ToInt32(szPesel[2].ToString()) * 10 + Convert.ToInt32(szPesel[3].ToString())-80);
        }
        rok += Convert.ToInt32(szPesel[0].ToString()) * 10 + Convert.ToInt32(szPesel[1].ToString());
        String szDate = rok.ToString() + "-" + (mies < 10 ? "0" + mies.ToString() : mies.ToString()) + "-" + (dzien < 10 ? "0" + dzien.ToString() : dzien.ToString());
        DateTime dt;
        bResult = DateTime.TryParse(szDate, out dt);
    }
}
else return false;
            
return bResult;
}

Weryfikacja numeru pesel w MFC C++

2012-07-02T15:24:00.002+02:00

Dzisiaj prezentuję funkcję weryfikującą numer Pesel.
Funkcja sprawdza zgodność numerów pesel z zakresu 1800 - 2200 roku (w przybliżeniu).
Weryfikowana jest suma kontrolna oraz logika zapisu samego numeru pesel.
Funkcja zwraca true - jeśli numer pesel jest poprawny, false jeśli błędny.


BOOL CheckPesel(CString a_Pesel)
{
    BOOL res=false;
    BOOL sumResult = false;
    int suma = 0;
    int tabSum[] = {1, 3, 7, 9, 1, 3, 7, 9, 1, 3};
    CString mDate = "";

    if(a_Pesel.GetLength() > 0)
    {
        for(int i = 0; i < 10; i++)
        {
            suma += tabSum[i] * stoi(a_Pesel[i]);
        }

        if ((suma % 10) == 0)
            sumResult = ((suma % 10) == stoi(a_Pesel[10]));
        else 
            sumResult = ( (10 - (suma % 10)) == stoi(a_Pesel[10]));
    }

    if(sumResult){
        int year = 0;
        int month = 0;
        int day = stoi(a_Pesel.Mid(4,2));    

        if(a_Pesel[2] == '0' || a_Pesel[2] == '1')
        {
            year = 1900;
            month = stoi(a_Pesel[2]) * 10 + stoi(a_Pesel[3]);
        }else if (a_Pesel[2] == '2' || a_Pesel[2] == '3')
        {
            year = 2000;
            month = stoi(a_Pesel[2] - 20) * 10 + stoi(a_Pesel[3]);
        }else if (a_Pesel[2] == '4' || a_Pesel[2] == '5')
        {
            year = 2100;
            month = stoi(a_Pesel[2] - 40) * 10 + stoi(a_Pesel[3]);
        }else if (a_Pesel[2] == '6' || a_Pesel[2] == '7')
        {
            year = 2200;
            month = stoi(a_Pesel[2] - 60) * 10 + stoi(a_Pesel[3]);
        }else if (a_Pesel[2] == '8' || a_Pesel[2] == '9')
        {
            year = 1800;
            month = stoi(a_Pesel[2] - 80) * 10 + stoi(a_Pesel[3]);
        }

        year += stoi(a_Pesel[0]) * 10 + stoi(a_Pesel[1]);
        mDate = itos(year) + "-" + itos(month) + "-" + itos(day);
        COleDateTime tm;
        res=tm.ParseDateTime(mDate);

    }else{ 
        AfxMessageBox("Nieprawidłowy numer Pesel");
        return false;
    }

    return res;
}

Hex to Int

2012-07-02T15:16:00.000+02:00

Prosta funkcja konwertująca Hex CString na Int

int hstoi(CString hexString)
{
   int value = 0;
   CString hex = "0123456789ABCDEF";

   hexString.MakeUpper();

   for(int i = 0; i<hexString.GetLength(); i++)
   {
        value=(value*16) + hex.Find(hexString.GetAt(i));
   }
   return value;
}

CString to Int

2012-07-02T15:12:00.002+02:00

Prosta funkcja konwertująca CString na Int


int stoi(CString a_Str)
{

int res = INT_MIN;

try
{
 res = atoi( a_Str );
}

catch(CException * e)

{
 e = e;
}

return res;
}

Int to CString

2012-07-02T15:00:00.001+02:00

Prosta funkcja zwracająca CString przy konwersji int


CString itos(const int aInt)
{
 char buf[20];
 return _itoa( aInt, buf, 10 );
}

Tworzenie Upgrade do projektu Basic MSI w Install Shield 2008

2012-06-29T13:44:00.000+02:00

Tworzenie upgrade do projektu MSI należy zaplanować już przy tworzeniu instalatra MSI.
Jeżeli zakładamy,że nasz projekt będzie upgradowany a zazwyczaj tak jest, to musimy wykonać pewne kroki na początku. Najważniejszą rzeczą do wykonania jest ustawienie wersji produktu "Version" w "Product properties" na drzewie "General Information". Ustawiamy tutaj wersję, która będzie rozpoznawana przez instalator podczas instalowania Upgrade-u np: 1.0.0000

Tworzenie Upgrade do istniejącej instalacji MSI.
Przy tworzeniu upgrada do istniejącej paczki MSI możemy wykonać tylko Major Upgrade, do wersji Minor Upgrade potrzebny jest plik setup.exe. Dla paczek MSI (Single MSI Image) wykonujemy tylko Major Upgrade.

Krok 1. Wersja produktu
Pierwszą rzeczą, którą powinniśmy zrobić to ustawić nową (nowszą) wersję produktu np: 1.1.0000 (Installation Information->General Information->Product Properties->Version). Zwróć uwagę na właściwość Product Code, Upgrade Code.
Właściwość Upgrade Code musi być taka sama dla całego projektu instalatora.

Krok 2. Kody produktów
Aby nasz Upgrade można było odinstalować i wrócić do poprzedniej wersji należy wygenerować nowy Product Code a także nowy Package Code w "Summary Information Stream".
Nie zmieniamy Upgrade Code!

Krok 3. Przygotowanie Instalatora do Upgrade
Na drzewie Media->Upgrades rozwijamy gałąź "Upgrade Windows Installer Setup" i dodajemy nowy "Major Upgrade Item".
W zakładce "Common" nowego Upgrade wybieramy dla której wersji produktu Upgrade będzie miał zastosowanie:
- dla każdej wcześniejszej (Any earlier version), czy może dla zakresu wersji produktu albo dla wybranej wersji.

Krok 4. Wymiana plików
W tym kroku należy wymień wszystkie pliki które mają być zaktualizowane na wersję użytą w Upgrade.
Ważne. Każdy plik musi posiadać zaszytą nowszą wersje, aby został upgradowany.

Krok 5. Ustawienia Upgrade.
Klikając na drzewo "Upgrade Windows Installer Setup" wyświetlamy właściwości instalacji Upgrade. Mamy 2 opcje do wyboru: Całkowie usunięte starej instalacji i zainstalowanie nowej lub też zainstalowanie Upgrade-u i usunięcie niepotrzebnych plików.
W większości przypadkach zalecana jest opcja pierwsza.

Krok 6. Budowanie paczki
W ostatnim kroku budujemy projekt tworząc nową paczkę MSI typu "MSI Single Image".

Konwersja IList do DataSet - IList to DataSet

2012-02-16T12:16:00.001+01:00

Poniżej funkcja konwertująca Ilist-ę do DataSet-a
Param: IList
Return: DataSet


public static DataSet ConvertToDataSet<T>(IList<T> list)
{
  if (list == null || list.Count <= 0)
  {
   return null;
  }
  DataSet ds = new DataSet();
  DataTable dt = new DataTable(typeof(T).Name);
  DataColumn column;
  DataRow row;

  System.Reflection.PropertyInfo[] myPropertyInfo = typeof(T).GetProperties(System.Reflection.BindingFlags.Public | System.Reflection.BindingFlags.Instance);

  foreach (T t in list)
  {
   if (t == null)
   {
     continue;
   }

   row = dt.NewRow();
   for (int i = 0, j = myPropertyInfo.Length; i < j; i++)
   {
    System.Reflection.PropertyInfo pInfo = myPropertyInfo[i];
    string name = pInfo.Name;
    if (dt.Columns[name] == null)
    {
     try
    {
     column = new DataColumn(name, pInfo.PropertyType);
    }
    catch (NotSupportedException)
    {
     column = new DataColumn(name, Nullable.GetUnderlyingType(pInfo.PropertyType));
    }
    catch (Exception)
    {
     column = new DataColumn(name, typeof(object));
    }

    dt.Columns.Add(column);
    }
    row[name] = pInfo.GetValue(t, null);
   }
   dt.Rows.Add(row);
  }
 ds.Tables.Add(dt);
 return ds;
}

Domyślny parametr funkcji

2012-01-04T09:42:00.000+01:00

Czasami zachodzi potrzeba ustawienie domyślnego parametru przekazywanego funkcji

Aby to wykonać należy sprawdzić czy parametr został zdefiniowany przy przekazaniu np:


function ShowSelected(bCategory)

{
  
  bCategory = typeof(bCategory) != 'undefined' ? bCategory : true; 

  ...

}

w tym przypadku domyślny parametr jest typu bool i jeżeli nie został przekazany to domyślną wartością jest true;

Jak wyświetlić ilość dodanych dzisiaj postów na blogu

2011-06-08T13:42:00.001+02:00

W sekcji Head szablonu Blogger-a dodajemy funkcję



<script type="text/javascript" >

//<![CDATA[

 function GetCountPostToday(json){

    var currDate = new Date();

    var CountToday = 0; 

    var date = currDate.getFullYear()+'-'+((currDate.getMonth()+1)<10 ? '0'+(currDate.getMonth()+1) : (currDate.getMonth()+1))+'-'+(currDate.getDate()<10 ? '0'+currDate.getDate():currDate.getDate());  

    for (var i=1; i<=json.feed.entry.length ; i++)

    {

         if (json.feed.entry[i].published.$t.substring(0,10)==date ) CountToday ++; else break;     

    }         

     document.write(CountToday); 

   }

//]]></script>

W szablonie wywołujemy skrypt w miejscu w którym ma być wyświetlona ilość postów publikowanych tego dnia



<script src="http://progbis.blogspot.com/feeds/posts/default?alt=json-in-script&start-index=1&max-results=100&callback=GetCountPostToday"></script>

Pamiętają o zmianie adresu bloga :)

Rozwiązanie to ma ograniczenie do 100 postów dziennie. Zmieniając parametr max-results określimy ilość sprawdzanych postów (max 500)

Jak używać JavaScript w szablonie Bloggera

2011-06-08T13:16:00.004+02:00

Aby skorzystać ze skryptu JavasScript w szablonie bloggera, należy skrypt odpowiednio poprzedzić sekcją. Pamiętając o umieszczeniu definicji skryptu w sekcji HEAD

<script type="text/javascript">

//<![CDATA[</code>

    ...skrypt...

i zakończyć sekwencją znaków 

//]]></script>

Jak ustawić przezroczystość elementów w css

2011-05-26T09:22:00.000+02:00

Przezroczystość elementów na stronie w css najlepiej pokazać na przykładzie.
Oczywiście jest to zależne od przeglądarki.

Test bez użycia przezroczystość

Test z użyciem przezroczystość

<style type="text/css">

  .test1 { opacity: .5; }  //firefox, mozilla,etc.

  .test2 { filter: alpha(opacity=50); } //IE 6-7

  .test3 { -ms-filter:"progid:DXImageTransform.Microsoft.Alpha(Opacity=50)"; } //IE8-9

</style>

Do ustawienie działania w różnych wersjach IE zachowujemy kolejność



-ms-filter:"progid:DXImageTransform.Microsoft.Alpha(Opacity=50)";

filter: alpha(opacity=50);

Dynamiczna, alfabetyczna lista postów blogu jako oddzielna strona

2011-05-20T14:00:00.002+02:00

Aby utworzyć dynamiczną, alfabetyczną listę postów na blogu należy (krok po kroku):

dodać widget stron do bloggera
utworzyć na blogerze oddzielną stronę np: Spis alfabetyczny
wprowadzić odpowiedni kod funkcji javascript, korzystający z formatu JSON
wstawić skrypt pobierający posty z bloga.
wykonać skrypt wyświetlający listę

A więc do dzieła. Krok 1,2 pominę gdyż chyba zrozumiałe i pokaże krok 3 i 4

Krok 3
Tworzymy skrypt js jako treść postu, w tym wypadku strony



<script style="text/javascript">

Definiujemy tablicę, do której będziemy dodawać posty
var tabentry = new Array();

Teraz funkcję zwrotną odczytującą posty w formacie JSON i zapisującą posty do tablicy

   function ListaPostow(json) {      

     i=0; 

     while (entry = json.feed.entry[i++])

     {

        tabentry.length++;

        tabentry[tabentry.length-1] = entry;

     }     

   }

Dodajemy funkcję sortującą tablicę postów po tytułach postów

function SortByTitle(a,b) 

   {

     if (b.title.$t==a.title.$t) return 0;

     if (a.title.$t>b.title.$t) { return 1; } 

     else return -1;

   }

Na koniec funkcję, która wyświetli nam posortowaną listę postów na stronie.

   function ShowListEntry() {

     tabentry.sort(SortByTitle); //sortuj tablicę

     document.write('<table>');

     document.write('<tr><td colspan="2"><ul><h1>Lista alfabetyczna</h1></td></tr>'); 

     

     for (var i = 0 ; i<tabentry.length ; i++) 

     {

       document.write('<tr><td style="padding-right:10px;"><li>');

       var posturl;    

       for (var k = 0; k < tabentry[i].link.length; k++) {

          if (tabentry[i].link[k].rel == 'alternate') {

            posturl = tabentry[i].link[k].href;

             break;

         }

       } 

       document.write('<a href="'+posturl+'">');

       document.write(tabentry[i].title.$t);

       document.write('</a></li></td>');

       document.write('<td>(<i>'+ tabentry[i].category[0].term+')</i></td></tr>');

     }

     document.write('</ul></table>');

}

W tej funkcji wyświetlam listę w postaci tabeli wraz z nazwami przypisanych etykiet do postów.

Zamykamy znacznik skryptu
</script>

Krok 4
Wykonujemy skrypt pobierający listę postów oraz wyświetlamy ją na stronie:



<script src="http://progbis.blogspot.com/feeds/posts/default?alt=json-in-script&start-index=1&max-results=500&callback=ListaPostow"></script>

Pamiętając o podmianie adresu swojego bloga.

Skrypt ten działa do 500 postów, gdyż tyle jednorazowo można pobrać. Jeśli macie więcej to należy odpowiednio dopisać.



<script src="http://progbis.blogspot.com/feeds/posts/default?alt=json-in-script&start-index=501&max-results=500&callback=ListaPostow"></script>

i więcej...

<script src="http://progbis.blogspot.com/feeds/posts/default?alt=json-in-script&start-index=1001&max-results=500&callback=ListaPostow"></script><script>ShowListEntry();</script>

Krok 5
Wykonujemy funkcję, która wyświetli nam posortowaną listę postów
<script>ShowListEntry();</script>

Jak to działa? Sprawdźcie listę wg kategorii na moim blogu
Więcej informacji o formacie JSON i postów bloga znajdziesz pod adresem http://beautifulbeta.wikidot.com/json-feeds

Jak wyświetlić ilość postów i komentarzy na blogu

2011-05-19T11:38:00.000+02:00

Jeśli chcesz aby na twoim blogu pojawiła się informacja o tym ile zmieściłeś postów oraz ile dodano komentarzy, należy posłużyć się javascipt-em i formatem JSON.
Skrypt najlepiej umieścić w widgecie, w którym informacji o ilości postów czy komentarzy będzie wyświetlana.



<script style="text/javascript">

function numposts(json) {

document.write('Ten blog opublikował ' + json.feed.openSearch$totalResults.$t + ' postów');

}

function numcomments(json) {

document.write(' oraz ' + json.feed.openSearch$totalResults.$t + ' komentarzy');

}</script>

Po czym umieścić w miejscu w którym wyświetlić informację wywołanie skryptu

<script src="http://progbis.blogspot.com/feeds/posts/default?alt=json-in-script&callback=numposts"></script><script src="

http://progbis.blogspot.com/feeds/comments/default?alt=json-in-script&callback=numcomments"></script>

pamiętając o podmianie adresu twojego bloga.

Richtextbox problem różnych czcionek w c# Net

2011-04-28T15:21:00.000+02:00

Problem występuje w sytuacji, gdy zaczytujesz z pliku lub wklejasz ze schowka zaznaczony fragment tekstu.
W richtextbox-ie wyświetlane są różne czcionki o różnych wielkościach znaków, szczególnie przy polskich znaków.
Aby temu zapobiec należy bezpośrednio w designerze dopisać linijkę przed ustawieniem fontów.

this.richTextBox1.LanguageOption = System.Windows.Forms.RichTextBoxLanguageOptions.AutoKeyboard;

i problem znika