WBinit

function TWBaseServer602.WBinit(Server, Name, Password, Appl : PChar) : boolean;

P°φstupovß prßva

public, virtual

Parametry

Server	Cesta k serveru (viz. parametr path funkce `link_kernel`)
Name	JmΘno u₧ivatele.Je-li parametrem hodnota NIL, zobrazφ se p°ihlaÜovacφ dialogbox.
Password	Heslo p°id∞lenΘ u₧ivateli
Appl	JmΘno databßzovΘ aplikace.

Popis

Public metoda. Implementuje napojenφ na server WinBase602. Funkce navß₧e spojenφ s databßzov²m serverem, p°ihlßsφ u₧ivatele a nastavφ databßzovou aplikaci.

Hodnota funkce

V p°φpad∞ ·sp∞chu vracφ TRUE. Dojde-li p°i navazovßnφ komunikace k chyb∞, nepoda°φ-li se p°ihlßÜenφ, nebo jestli₧e zadanß aplikace v databßzi nenφ, zavolß metodu WBInitErr a vrßtφ FALSE.

P°φklad

DodanΘ vzorovΘ projekty provßd∞jφ ruΦnφ logovßnφ (p°ipojovßnφ se k databßzi) z menu. Po₧adujete-li automatickΘ logovßnφ p°i startu Delphi aplikace, pak vhodn²m mφstem pro volßnφ WBInit je bu∩ obsluha udßlosti onActivate Φi udßlosti onShow dle toho, zda se chcete p°ipojit po Φφ p°ed zobrazenφm hlavnφho okna aplikace Delphi.

┌kol: P°ihlßsit hned po startu Delphi aplikace u₧ivatele na server WB5 a nastavit aplikaci PER_AGENDA

P°φklad 1: AutomatickΘ logovßnφ po zobrazenφ hlavnφho okna aplikace:

// TMainForm = class(TWBaseServer602)
procedure TMainForm.FormActivate(Sender: TObject);
const    Server = 'WB5';
        Name = nil;
        Password = nil;
        Appl = 'PER_AGENDA';
var Uspech: Boolean;
begin
// Klient se napojφ na WinBase602 a spustφ aplikaci PER_AGENDA :
 if not WBInit(Server, Name, Password, Appl) then close;
 Uspech := Open_project('MIN_PLAT');
 if (Uspech = False) then Info_box('Chyba','Nelze otev°φt projekt');
end;

P°φklad 2: AutomatickΘ logovßnφ p°ed zobrazenφm hlavnφho okna aplikace:

procedure TMainForm.FormShow(Sender: TObject);
const    Server = 'WB5';
        Name = nil;
        Password = nil;
        Appl = 'PER_AGENDA';
var Uspech: Boolean;
begin
// Klient se napojφ na WinBase602 a spustφ aplikaci PER_AGENDA :
 if not WBInit(Server, Name, Password, Appl) then close;
 Uspech := Open_project('MIN_PLAT');
 if (Uspech = False) then Info_box('Chyba','Nelze otev°φt projekt');
end;