Logowanie
Nadaj nowe hasło
Jeśli jesteś już klientem to wprowadź swój adres e-mail i potwierdź hasłem. Logowanie umożliwia zakup nowych programów po cenach promocyjnych, rozszerzenie posiadanego oprogramowania, zamówienie abonamentu na aktualizacje oraz konsultacje serwisowe.
Nie masz konta?Zarejestruj się
|
function ConnectBin(IniPath:PChar):Boolean;stdcall;
function ConnectBinW(IniPathW:PWideChar):Boolean;stdcall;
Podłącza się do podstawowej bazy danych programu (BIN). Wykorzystuje w tym celu plik RPlatnik.ini, w którym są zawarte informacje o połączeniu z serwerem SQL oraz RPlatnik.prt i RPlatnik.lic, zawierające informacje o posiadanej licencji.
Parametry
IniPath - katalog (w formacie ANSI), wskazujący na wymagane pliki ini, prt i lic (np. C:\RESET2\Platnik.10x\BIN\)
IniPathW - katalog podany w formacie UNICODE
Zwracane wartości
Jeśli połączenie się powiodło zwraca True, w przeciwnym wypadku można odczytać komunikat o błędzie funkcją GetLastError().
Przykład
if not ConnectBin('C:\RESET2\Platnik.10x\BIN\') then begin
GetLastError(pca);
ShowMessage(pca);
end;
function GetLastError(Value:PChar):Boolean;stdcall;
function GetLastErrorW(ValueW:PWideChar):Boolean;stdcall;
Podaje szczegółowy komunikat błędu, jeśli taki wystąpił podczas wykonywania funkcji API.
Parametry
Value - wskaźnik na tablicę znakową (ANSI), w której umieszczony zostanie komunikat o błędzie, tablicę znaków o wystarczającym rozmiarze należy wcześniej zadeklarować
ValueW - wskaźnik na zadeklarowaną tablicę znakową, w której zostanie umieszczony komunikat w formacie UNICODE
Zwracane wartości
Zwraca True jeśli jest dostępny komunikat o błędzie.
Uwagi
Funkcję tą należy wywołać bezpośrednio po funkcji API, która zwróciła błąd, gdyż kolejna funkcja API usunie komunikat o błędzie w poprzedniej funkcji.
Przykład
const MaxLenStr=16384;
var pca:array [0..MaxLenStr-1] of Char;
if GetLastError(pca) then ShowMessage(pca);
function LoginUser(UserName,UserPassword:PChar):LResult;stdcall;
function LoginUserW(UserNameW,UserPasswordW:PWideChar):LResult;stdcall;
Loguje użytkownika programu.
Parametry
UserName, UserPassword - nazwa użytkownika i jego hasło do programu
UserNameW, UserPasswordW - parametry w formacie UNICODE
Zwracane wartości
Zwraca identyfikator użytkownika (pole X_I z tabeli UŻYTKOWNICY), jeśli logowanie się powiodło. W przeciwnym wypadku zwraca 0, wtedy szczegółowy komunikat o błędzie można odczytać funkcją GetLastError().
Uwagi
Po połączeniu z bazą BIN za pomocą funkcji ConnectBin() należy zalogować użytkownika. Gwarantuje nam to później poprawny dostęp do tabel programu, zgodnie z prawami dostępu ustawionymi dla konkretnego użytkownika.
Przykład
if not LoginUser('ADMIN','123456') then begin
GetLastError(pca);
ShowMessage(pca);
end;
function LogoffUser(UserName:PChar):Boolean;stdcall;
function LogoffUserW(UserNameW:PWideChar):Boolean;stdcall;
Wylogowuje użytkownika.
Parametry
UserName - nazwa użytkownika programu w formacie ANSI, nazwę możemy pozostawić pustą - wtedy zostawie wylogowany ostatnio zalogowany użytkownik
UserNameW - nazwa użytkownika programu w formacie UNICODE
Zwracane wartości
Zwraca True jeśli wylogowanie się powiodło. W przeciwnym wypadku komunikat o błędzie można odczytać funkcją GetLastError().
Uwagi
Jeśli użytkownik został zalogowany funkcją LoginUser() to jego wylogowanie nastąpi automatycznie przed zakończeniem aplikacji. Funkcji tej należy więc użyć tylko wtedy, jeśli chcemy przelogować się na innego użytkownika.
Przykład
LoginUser('ADMIN','123456');
LogoffUser('');
CloseAllTables;
LoginUser('ALA','654321');
function LoginUserAsProgram:LResult;stdcall;
Loguje użytkownika do pracującego programu R2Płatnik.
Parametry
Brak
Zwracane wartości
Zwraca identyfikator użytkownika (pole X_I z tabeli UŻYTKOWNICY) jeśli logowanie się powiodło. W przeciwnym wypadku zwraca 0 i wtedy szczegółowy komunikat o błędzie można odczytać funkcją GetLastError().
Uwagi
Działa podobnie do funkcji LoginUser, z tym że nie potrzebuje parametrów logowania, bo pobiera je z działającego programu R2Płatnik. Funkcja ta może być używana wyłącznie w aplikacjach API, które będą wywoływane bezpośrednio z programu R2Płatnik z Menu-Narzędzia. W takim wypadku nie należy wylogowywać użytkownika funkcją LogoffUser().
function ConnectDaneX(FirmIde:integer):Boolean;stdcall;
Łączy się z bazą danych przyporządkowaną do konkretnej firmy. Jeśli mamy program z licencją jednofirmową będzie to z reguły 1
Parametry
FirmIde - identyfikator firmy
Zwracane wartości
Jeśli połączenie się powiodło, zwraca True, w przeciwnym wypadku można odczytać komunikat o błędzie funkcją GetLastError().
Uwagi
Po połączeniu z bazą BIN (ConnectBin()) i zalogowaniu użytkownika (LoginUser()), należy się połączyć z bazą konkretnej firmy, podając jej identyfikator. Identyfikator konkretnej firmy, obsługiwanej przez program, można odczytać z tabeli z firmami (kolumna X_I w tabeli FIRMY). Tabela ta znajduje się w bazie BIN. (pole X_I).
Przykład
if not ConnectDaneX(1) then begin
GetLastError(pca);
ShowMessage(pca);
end;