ZeosLib - ako na to

Manny · Napísal **Manny**: 20.09.2010 9:57

Zdravím,

vo svojom projekte používam komponenty ZeosLib, ktoré sú určené pre prácu s MySQL. V tomto balíku pracujem s komponentou Connection a Query. V praxi to vyzerá asi nasledovne:

Kód pre pripojenie k MySQL cez komponentu Connection:

Kód:

    Connection.HostName := IniConfig.ReadString('mysql', 'host', '127.0.0.1');
Connection.Database := 'db';
Connection.Catalog := 'tabulka';

Connection.User := 'user';
Connection.Password := 'heslo';
Connection.Connect;  

Ak chcem vykonať nejaký príkaz s MySQL, tak použijem komponentu Query:

Kód:

Query.SQL.Text := 'SELECT * FROM users;';
Query.Open;
while not Query.EOF do begin
  ShowMessage(Query.FieldByName('UsrName').AsString);
end;

Toto samozrejme funguje výborne. Problém však nastáva, keď potrebujem vykonať viac príkazov v jeden moment cez jednu komponentu Query. Ako najlepší príklad bude, keď chcem použiť Query v Timeri a potom kdekoľvek inde v aplikácii. Ak by došlo k "stretnutiu", vyskočí výnimka.

Riešenie vidím vo vytváraní inštancií Query, teda raz sa vytvorí (programovo) Connection a na ten sa budú už len linkovať vždy nové Query používané v projekte a po ich využití sa z pamäte uvoľnia. No a toto neviem ako spraviť. Možno cez triedy?

coldak · Napísal **coldak**: 20.09.2010 10:33

tento balik som este nepouzival ale to by nemal byt problem

Kód:

Query2 := TZQuery.Create(Self);
Query2.Connection := Connection; // Connection je to ktore uz raz mas vytvorene
Query2.SQL.text ='...';
...

Manny · Napísal autor témy **Manny**: 20.09.2010 14:32

No toto by mohlo fungovať!

Keď to už nebudem potrebovať, tak to uvoľním z pamäte cez Query2.Free? A ešte jedna otázka, treba nejak deklarovať Query2 alebo sa to vykoná už v riadku:

Kód:

Query2 := TZQuery.Create(Self);

coldak · Napísal **coldak**: 20.09.2010 14:54

ano treba declarovat

Kód:

procedurec xy()
var Query2 : TZQuery;
begin
  Query2 := TZQuery.create(self);
  ....
  Query2.Free();
end;

Manny · Napísal autor témy **Manny**: 20.09.2010 15:00

Díky moc, coldak, funguje to výborne

Manny · Napísal autor témy **Manny**: 21.09.2010 9:00

Ešte mám takú otázku. Môj aktuálny kód pre select je napr.:

Kód:

var
  Q: TZQuery;
begin 
  Q := TZQuery.Create(Self);
  Q.Connection := Connection;
  Q.SQL.text ='SELECT ...';
  Q.Open;
  while not Q.EOF do begin
    ShowMessage(Q.FieldByName('stlpec').AsString);
  end;
  Q.Close;
  Q.Free;
end;

Dá sa to ešte nejak zjednodušiť?

coldak · Napísal **coldak**: 21.09.2010 15:35

no zjednodusit ani nie, skor by som povedal ze by sa ti tam hodilo par testov na osetrenie, napr najprv otestovat ci je connection aj pripojena? pracu s Q by som obalil do bloku try..finaly vo finaly by som dal close a free objektu Q aby doslo k uvolneniu objektu aj v pripade nejakej exception.

Manny · Napísal autor témy **Manny**: 24.09.2010 8:52

Ešte sa tu vyskytuje jeden problém - tá komponenta TZQuery (teda jej instancie) sú vytvorené cez "Self", takže sa viažu častokrát na formulár. No a tu zase môže vzniknúť problém prekrytia, lebo ak budem mať spustený Timer1 na Form1 a bude tam tlačidlo, ktoré bude pracovať s názvom rovnakej premennej, tak môže dôjsť k stretu. Nedá sa tá instancia nejak vytvárať nezávisle na názve?

coldak · Napísal **coldak**: 24.09.2010 9:30

jednak by sa mala dat vytvarat instancia miesto self pouzi nil.
tiez mozes vytvorit anonymnu instanciu

Kód:

begin 
  with TZQuery.Create(nil) do begin 
    Connection := ConnectionXX;//pozor zmen meno instancie TZConnection alebo sa skus na nu odkazovat cez self.Connection  
    SQL.text ='SELECT ...'; 
    Open; 
    while not EOF do begin 
      ShowMessage(FieldByName('stlpec').AsString); 
    end; 
    Close; 
    Free; 
  end;
end; 

ZeosLib - ako na to

Podobné témy