lyrpy 2024.0.4__py3-none-any.whl → 2025.0.2__py3-none-any.whl

SRC/lyrpy/LUNetwork.py

@@ -0,0 +1,277 @@
+"""LUNetwork.py"""
+# -*- coding: UTF-8 -*-
+__annotations__ = """
+ =======================================================
+ Copyright (c) 2023-2024
+ Author:
+     Lisitsin Y.R.
+ Project:
+     LU_PY
+     Python (LU)
+ Module:
+     LUNetwork.py
+
+ =======================================================
+"""
+
+#------------------------------------------
+# БИБЛИОТЕКИ python
+#------------------------------------------
+import platform
+
+#------------------------------------------
+# БИБЛИОТЕКИ сторонние
+#------------------------------------------
+# if platform.system() == 'Windows':
+#     import win32api
+#     import win32con
+# #endif
+
+#------------------------------------------
+# БИБЛИОТЕКИ LU
+#------------------------------------------
+
+"""
+function GetLocalIP: string;
+var
+    WSAData: TWSAData;
+    Host: PHostEnt;
+    Buf: array [0 .. 127] of Char;
+begin
+    if WSAStartup ($101, WSAData) = 0 then
+    begin
+        if GetHostName (@Buf, 128) = 0 then
+        begin
+            Host := GetHostByName (@Buf);
+            if Host <> nil then
+            begin
+                Result := iNet_ntoa (PInAddr(Host^.h_addr_list^)^);
+            end;
+        end;
+        WSACleanUP;
+    end;
+end;
+"""
+
+"""
+(*
+ Пример получения имени пользователя и домена под которым работает
+ текущий поток или процесс
+
+ Использовать функцию можно так :
+   chDomain:=50;
+   chUser :=50;
+   GetCurrentUserAndDomain(User,chuser,Domain,chDomain)
+ Если вам необходимо получить только имя пользователя - используйте GetUserName
+ Данный пример можно использовать и для определения - запущен ли процесс
+ системой или пользователем.  Учетной записи Localsystem соответствует
+ имя пользователя - SYSTEM и домен NT AUTORITY (лучше проверить на практике)
+*)
+
+function GetCurrentUserAndDomain (szUser: PChar; var chUser: DWORD;
+    szDomain: PChar; var chDomain: DWORD): Boolean;
+var
+    hToken: THandle;
+    cbBuf: Cardinal;
+    ptiUser: PTOKEN_USER;
+    snu: SID_NAME_USE;
+begin
+    Result := False;
+   { Получаем маркер доступа текущего потока нашего процесса }
+    if not OpenThreadToken (GetCurrentThread(), TOKEN_QUERY, True, hToken) then
+    begin
+        if GetLastError () <> ERROR_NO_TOKEN then
+            Exit;
+      { В случее ошибки - получаем маркер доступа нашего процесса. }
+        if not OpenProcessToken (GetCurrentProcess(), TOKEN_QUERY, hToken) then
+            Exit;
+    end;
+
+   { Вывываем GetTokenInformation для получения размера буфера }
+    if not GetTokenInformation (hToken, TokenUser, nil, 0, cbBuf) then
+        if GetLastError () <> ERROR_INSUFFICIENT_BUFFER then
+        begin
+            CloseHandle (hToken);
+            Exit;
+        end;
+
+    if cbBuf = 0 then
+        Exit;
+
+   { Выделяем память под буфер }
+    GetMem (ptiUser, cbBuf);
+
+   { В случае удачного вызова получим указатель на TOKEN_USER }
+    if GetTokenInformation (hToken, TokenUser, ptiUser, cbBuf, cbBuf) then
+    begin
+      { Ищем имя пользователя и его домен по его SID }
+        if LookupAccountSid (nil, ptiUser.User.Sid, szUser, chUser, szDomain,
+            chDomain, snu) then
+            Result := True;
+    end;
+
+   { Освобождаем ресурсы }
+    CloseHandle (hToken);
+    FreeMem (ptiUser);
+end;
+"""
+
+"""
+function DivideUserName_02 (S: string; var Domain: string;
+    var Username: string): Boolean;
+var
+    i: Integer;
+begin
+    i := Pos ('\', S);
+    if i <> 0 then
+    begin
+        Domain := Copy (S, 1, i - 1);
+        Username := Copy (S, i + 1, Maxint);
+        Result := True;
+    end else begin
+        i := Pos ('@', S);
+        if i <> 0 then
+        begin
+            Username := Copy (S, 1, i - 1);
+            Domain := Copy (S, i + 1, Maxint);
+         // result := true;
+        end else begin
+            Domain := '';
+            Username := S;
+        end;
+        Result := False;
+    end;
+end;
+"""
+
+"""
+function GetCompName_02: string;
+var
+    sz: DWORD;
+begin
+    SetLength (Result, MAX_COMPUTERNAME_LENGTH);
+    sz := MAX_COMPUTERNAME_LENGTH + 1;
+    GetComputerName (PChar(Result), sz);
+    SetLength (Result, sz);
+end;
+"""
+
+"""
+function Error (Res: DWORD): string;
+var
+    // FErrorBufPtr: Pointer;
+    // FNameBufPtr: Pointer;
+    FErrorString: string;
+
+    function CheckNetError (Res: DWORD): string;
+    var
+        S: string;
+      // Error: EWin32Error;
+    begin
+        S := '';
+        if (Res <> NERR_Success){ and (Res <> ERROR_MORE_DATA) } then
+        begin
+            S := SysAndNetErrorMessage (Res);
+            S := Format ('Net Error code: %d.'#10'"%s"', [Res, S]);
+        end;
+        Result := S;
+    end;
+
+begin
+    FErrorString := CheckNetError (Res);
+end;
+"""
+
+"""
+function GetUserSID_02 (Domain, Username: string; var Sid: PSID;
+    var sidType: SID_NAME_USE): Boolean; overload;
+var
+    pdomain: PChar;
+    Size: DWORD;
+    refDomainLen: DWORD;
+    S: string;
+begin
+    if Domain <> '' then
+        pdomain := PChar (Domain)
+    else
+        pdomain := nil;
+    Size := 4096;
+    refDomainLen := 0;
+   // result := LookupAccountName(pdomain, pchar(userName), nil, size, nil,refDomainLen,sidType);
+    S := Error (GetLastError);
+    GetMem (Sid, Size);
+    SetLength (Domain, refDomainLen);
+    Result := LookupAccountName (pdomain, PChar(Username), Sid, Size,
+        @Domain[1], refDomainLen, sidType);
+end;
+"""
+
+"""
+function GetUserSID_02 (Domain, Username: string; var Sid: PSID)
+    : Boolean; overload;
+var
+    ignoreSidType: SID_NAME_USE;
+begin
+    Result := GetUserSID_02 (Domain, Username, Sid, ignoreSidType);
+end;
+"""
+
+"""
+function GetUserSID_02 (Username: string; var Sid: PSID;
+    var sidType: SID_NAME_USE): Boolean; overload;
+var
+    Domain: string;
+begin
+    DivideUserName_02 (Username, Domain, Username);
+    Result := GetUserSID_02 (Domain, Username, Sid, sidType);
+end;
+"""
+
+"""
+function GetUserSID_02 (Username: string; var Sid: PSID): Boolean; overload;
+var
+    ignoreSidType: SID_NAME_USE;
+begin
+    Result := GetUserSID_02 (Username, Sid, ignoreSidType);
+end;
+"""
+
+"""
+function GetUserName_02 (Sid: PSID; out Username: string): Boolean;
+var
+    Name: string;
+    nameLen: DWORD;
+    Domain: string;
+    domainLen: DWORD;
+    sidType: SID_NAME_USE;
+begin
+    nameLen := 1024;
+    SetLength (name, nameLen);
+    domainLen := 1024;
+    SetLength (Domain, domainLen);
+    Result := LookupAccountSid (nil, Sid, @name[1], nameLen, @Domain[1],
+        domainLen, sidType);
+    if Result then
+    begin
+        SetLength (name, nameLen);
+        SetLength (Domain, domainLen);
+        Username := Domain + '\' + name;
+    end;
+end;
+"""
+
+#------------------------------------------
+def main ():
+#beginfunction
+    print('main LUNetwork.py...')
+#endfunction
+
+#------------------------------------------
+#
+#------------------------------------------
+#beginmodule
+if __name__ == "__main__":
+    main()
+#endif
+
+#endmodule

SRC/lyrpy/LUNumUtils.py

@@ -0,0 +1,305 @@
+"""LUSupport.py"""
+# -*- coding: UTF-8 -*-
+__annotations__ = """
+ =======================================================
+ Copyright (c) 2023-2024
+ Author:
+     Lisitsin Y.R.
+ Project:
+     LU_PY
+     Python (LU)
+ Module:
+     LUNumUtils.py
+
+ =======================================================
+"""
+
+#------------------------------------------
+# БИБЛИОТЕКИ python
+#------------------------------------------
+
+#------------------------------------------
+# БИБЛИОТЕКИ сторонние
+#------------------------------------------
+#if platform.system() == 'Windows':
+#    import win32api
+#    import win32con
+##endif
+
+#------------------------------------------
+# БИБЛИОТЕКИ LU
+#------------------------------------------
+
+"""
+function Dec2Hex (N: Longint; A: Byte): string;
+begin
+    Result := IntToHex (N, A);
+end;
+
+function D2H (N: Longint; A: Byte): string;
+begin
+    Result := IntToHex (N, A);
+end;
+
+function Hex2Dec (const S: string): Longint;
+var
+    HexStr: string;
+begin
+    if Pos ('$', S) = 0 then
+        HexStr := '$' + S
+    else
+        HexStr := S;
+    Result := StrToIntDef (HexStr, 0);
+end;
+
+function H2D (const S: string): Longint;
+begin
+    Result := Hex2Dec (S);
+end;
+
+function Dec2Numb (N: Longint; A, B: Byte): string;
+var
+    C: Integer;
+{$IFDEF RX_D4}
+    Number: Cardinal;
+{$ELSE}
+    Number: Longint;
+{$ENDIF}
+begin
+    if N = 0 then
+        Result := '0'
+    else
+    begin
+{$IFDEF RX_D4}
+        Number := Cardinal (N);
+{$ELSE}
+        Number := N;
+{$ENDIF}
+        Result := '';
+        while Number > 0 do
+        begin
+            C := Number mod B;
+            if C > 9 then
+                C := C + 55
+            else
+                C := C + 48;
+            Result := Chr (C) + Result;
+            Number := Number div B;
+        end;
+    end;
+    if Result <> '' then
+        Result := AddChar ('0', Result, A);
+end;
+
+function Numb2Dec (S: string; B: Byte): Longint;
+var
+    I, P: Longint;
+begin
+    I := Length (S);
+    Result := 0;
+    S := UpperCase (S);
+    P := 1;
+    while (I >= 1) do
+    begin
+        if S[I] > '@' then
+            Result := Result + (Ord(S[I]) - 55) * P
+        else
+            Result := Result + (Ord(S[I]) - 48) * P;
+        Dec (I);
+        P := P * B;
+    end;
+end;
+
+function RomanToInt (const S: string): Longint;
+const
+    RomanChars = ['C', 'D', 'I', 'L', 'M', 'V', 'X'];
+    RomanValues: array ['C' .. 'X'] of Word = (100, 500, 0, 0, 0, 0, 1, 0, 0,
+        50, 1000, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 10);
+var
+    Index, Next: Char;
+    I: Integer;
+    Negative: Boolean;
+begin
+    Result := 0;
+    I := 0;
+    Negative := (Length(S) > 0) and (S[1] = '-');
+    if Negative then
+        Inc (I);
+    while (I < Length(S)) do
+    begin
+        Inc (I);
+        index := UpCase (S[I]);
+        if index in RomanChars then
+        begin
+            if Succ (I) <= Length (S) then
+                Next := UpCase (S[I + 1])
+            else
+                Next := #0;
+            if (Next in RomanChars) and (RomanValues[index] < RomanValues[Next])
+            then
+            begin
+                Inc (Result, RomanValues[Next]);
+                Dec (Result, RomanValues[index]);
+                Inc (I);
+            end
+            else
+                Inc (Result, RomanValues[index]);
+        end else begin
+            Result := 0;
+            Exit;
+        end;
+    end;
+    if Negative then
+        Result := - Result;
+end;
+
+function IntToRoman (Value: Longint): string;
+label A500,
+    A400,
+    A100,
+    A90,
+    A50,
+    A40,
+    A10,
+    A9,
+    A5,
+    A4,
+    A1;
+begin
+    Result := '';
+{$IFNDEF WIN32}
+    if (Value > MaxInt * 2) then
+        Exit;
+{$ENDIF}
+    while Value >= 1000 do
+    begin
+        Dec (Value, 1000);
+        Result := Result + 'M';
+    end;
+    if Value < 900 then
+        goto A500
+    else
+    begin
+        Dec (Value, 900);
+        Result := Result + 'CM';
+    end;
+    goto A90;
+A400:
+    if Value < 400 then
+        goto A100
+    else
+    begin
+        Dec (Value, 400);
+        Result := Result + 'CD';
+    end;
+    goto A90;
+A500:
+    if Value < 500 then
+        goto A400
+    else
+    begin
+        Dec (Value, 500);
+        Result := Result + 'D';
+    end;
+A100:
+    while Value >= 100 do
+    begin
+        Dec (Value, 100);
+        Result := Result + 'C';
+    end;
+A90:
+    if Value < 90 then
+        goto A50
+    else
+    begin
+        Dec (Value, 90);
+        Result := Result + 'XC';
+    end;
+    goto A9;
+A40:
+    if Value < 40 then
+        goto A10
+    else
+    begin
+        Dec (Value, 40);
+        Result := Result + 'XL';
+    end;
+    goto A9;
+A50:
+    if Value < 50 then
+        goto A40
+    else
+    begin
+        Dec (Value, 50);
+        Result := Result + 'L';
+    end;
+A10:
+    while Value >= 10 do
+    begin
+        Dec (Value, 10);
+        Result := Result + 'X';
+    end;
+A9:
+    if Value < 9 then
+        goto A5
+    else
+    begin
+        Result := Result + 'IX';
+    end;
+    Exit;
+A4:
+    if Value < 4 then
+        goto A1
+    else
+    begin
+        Result := Result + 'IV';
+    end;
+    Exit;
+A5:
+    if Value < 5 then
+        goto A4
+    else
+    begin
+        Dec (Value, 5);
+        Result := Result + 'V';
+    end;
+    goto A1;
+A1:
+    while Value >= 1 do
+    begin
+        Dec (Value);
+        Result := Result + 'I';
+    end;
+end;
+
+function IntToBin (Value: Longint; Digits, Spaces: Integer): string;
+begin
+    Result := '';
+    if Digits > 32 then
+        Digits := 32;
+    while Digits > 0 do
+    begin
+        if (Digits mod Spaces) = 0 then
+            Result := Result + ' ';
+        Dec (Digits);
+        Result := Result + IntToStr ((Value shr Digits) and 1);
+    end;
+end;
+
+"""
+
+#------------------------------------------
+def main ():
+#beginfunction
+    print('main LUNumUtils.py...')
+#endfunction
+
+#------------------------------------------
+#
+#------------------------------------------
+#beginmodule
+if __name__ == "__main__":
+    main()
+#endif
+
+#endmodule