Tipy a triky v Delphi, díl 124. - informace o BDE

Dlouho jsme zanedbávali databáze, takže to dnes trochu napravíme. Začneme od základu a zkusíme si pár základních věcí s BDE.

Potřebuje-li vaše aplikace ke svému běhu BDE (což není zdaleka nutná podmínka), určitě by bylo dobré programově ověřit, zda má uživatel BDE nainstalován. Celá problematika distribuce aplikace v součinnosti s BDE je téma téměř na samostatný článek a mnoho informací k této problematice se dočtete v jiném seriálu zde na Živě. Nám bude pro tentokrát stačit prosté ověření, že máme BDE k dispozici a pokud ne, může na to naše aplikace příslušným způsobem reagovat.

Možností jak ověřit přítomnost BDE je pochopitelně jako obvykle více. Můžeme například nahlédnout do systémového registru a hledat větev HKEY_LOCAL_MACHINE\SOFTWARE\BORLAND\DATABASE ENGINE, kde bychom měli najít neprázdný řetězec u hodnoty CONFIGFILE01. S registry už jsme pracovali tolikrát, že je již zbytečné znovu opakovat způsob načítání údajů a proto nechám tento postup na vaší chuti.

Dalším ze způsobů, který si dnes ukážeme, je využít přímo knihovny BDE a její funkce. To ukazuje náš jednoduchý příklad. Podobným způsobem se dá zjistit i verze BDE, což ukazuje druhý příklad.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, BDE;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

function BDE: Boolean;
begin
  Result := (dbiInit(nil) = DBIERR_NONE)
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if BDE then ShowMessage(`BDE nainstalovan`)
      else ShowMessage(`BDE neni k dispozici`);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  BDEver: SYSVersion;
begin
  DbiGetSysVersion(BDEver);
  ShowMessage(`verze BDE = ` + IntToStr(BDEver.iVersion));
end;

end.

Tolik tedy jemný úvod. Celá problematika databází v Delphi je velmi pěkně popsána v sérii článků, které začínají na výše uvedeném odkazu. Od nynějška se tedy tu a tam budeme setkávat i s jednoduchými tipy pro databáze.

Diskuze (6) Další článek: Pentium 4 2,8 GHz bude stát stejně jako 2,6 GHz

Témata článku: Software, Programování, Druhý příklad, TRI, Díl, Trik, DEL, Nutná podmínka, Private, Software na Heureka.cz



Sex manželských párů? Jen výjimečně. Ložnice ovládnou roboti s umělou inteligencí

Sex manželských párů? Jen výjimečně. Ložnice ovládnou roboti s umělou inteligencí

** Sex manželských párů jen při zvláštních příležitostech. ** Ložnice ovládnou sexuální roboti s umělou inteligencí. ** I to je jeden ze závěrů Mezinárodní robotické konference.

Filip KůželJiří Liebreich
RobotiSexUmělá inteligence
Herní filosofie: hry jsou stále větší a delší, ale chceme to?

Herní filosofie: hry jsou stále větší a delší, ale chceme to?

Jak jinak nalákat pozornost než tím, že slíbíte, že toho bude hodně a vydrží to dlouho? Problém je, že to nemusí být vždy bonus. Opravdu si přejeme, aby hry trvaly stovky hodin?

Vojtěch Matušinský
Téma
Druhotné softwarové licence. Kdo by nechtěl legální Windows za stovku…

Druhotné softwarové licence. Kdo by nechtěl legální Windows za stovku…

Koupě originálního programového vybavení přímo od výrobce není jedinou možností, jak sehnat pro váš počítač legální software. Další možností je koupit licenci od toho, kdo ji už nepotřebuje nebo nevyužije. Můžete ušetřit nemalou částku, zároveň si však dávejte pozor na podvodníky.

Jan Spěšný
Nejlepší aplikace pro tento týden: Lenivé kosti, topografické mapy a preventivka

Nejlepší aplikace pro tento týden: Lenivé kosti, topografické mapy a preventivka

**V marketech najdete množství titulů, ale jak objevit ty kvalitní? **Každý týden je vybírá Apple, ale řada z nich má i verzi pro Android. **Výsledkem jsou kolekce těch nejlepších aplikací svého druhu.

Adam Kos
Nejlepší aplikace
Resistance: Retribution najdete v knihovně nového PS Plus. Exkluzivita pro PSP dostala rating v Jižní Koreji

Resistance: Retribution najdete v knihovně nového PS Plus. Exkluzivita pro PSP dostala rating v Jižní Koreji

Na některých trzích už bylo nové PS Plus spuštěno, ale knihovna her stále není kompletní. Neměl by v ní ale chybět díl série Resistance, který vyšel jen na kapesní PSP.

Martin Nahodil
ResistancePSP
Huawei MatePad Paper. Proč pořizovat elektronickou čtečku knih, když můžete mít rovnou e-ink tablet se stylusem?

Huawei MatePad Paper. Proč pořizovat elektronickou čtečku knih, když můžete mít rovnou e-ink tablet se stylusem?

** Huawei, zdá se, našlo neprobádaný segment mobilního trhu ** Výrobce ukázal svou první čtečku knih alias černobílý tablet ** Displej lze ovládat i stylusem, uvnitř běží HarmonyOS 2

Martin ChroustJan Láska
E-inkTablety
Jak promítnout displej telefonu na počítač s Windows 10

Jak promítnout displej telefonu na počítač s Windows 10

Chcete jednoduše ukázat známým fotky z dovolené a displej vašeho telefonu vám přijde malý? Promítněte si jej na obrazovku počítače, bez nutnosti kopírování nebo připojení přes kabel.

Jan Spěšný
SmartphoneWindows 10Android
25 nejlepších filmových parodií, které můžete vidět. Víme, kde je najdete online

25 nejlepších filmových parodií, které můžete vidět. Víme, kde je najdete online

Filmové parodie jsou divácky velmi vděčné a mezi filmaři oblíbené. Tvůrci v nich mohou totiž zcela beztrestně vykrádat cizí díla a v jejich nápodobě popustit uzdu své fantazii. Vybrali jsme nejlepší zahraniční i české parodie.

Marek Čech
Filmy, které musíte vidět
Jak zrcadlit obrazovku mobilu a počítače do televize

Jak zrcadlit obrazovku mobilu a počítače do televize

Ať už se chcete pochlubit fotkami z dovolené na velké obrazovce, nebo si přehrát video uložené na disku počítače, neobejdete se bez zrcadlení obrazovky. Ve výchozím stavu jej podporuje Windows i Android.

Stanislav Janů
NávodyTelevizeWindows
Nový hit. Tahle appka vám udělá profilovku jako od pouličního ilustrátora

Nový hit. Tahle appka vám udělá profilovku jako od pouličního ilustrátora

** Aplikace NewProfilePic se na Androidu stala hitem ** Můžete si v ní vytvořit profesionálně vypadající profilovky ** Pozor ale na agresivní cenovou politiku za Pro verzi

Martin Chroust
FotografieUmělá inteligenceMobilní aplikace
Ruský notebook je přesně tak hrozný, jak si představujete

Ruský notebook je přesně tak hrozný, jak si představujete

** Letos se začne prodávat první ruský notebook Bitblaze Titan ** Neohromí výkonem ani výbavou, nýbrž svou neotesaností ** A stejně nakonec není tak ruský, jak se tváří

Lukáš Václavík
RuskoNotebooky