Discussion :

[Gouyon]

Salut à tous

J'avais déjà eu un souci avec TDBLookupComboBox que je pensais avoir réglé mais il est revenu en force

Voilà le problème :
J'ai une base (MySQL) avec 2 tables.
La première table contient un champ qui est une référence vers la seconde et j'utilise le TDBLookupComboBox pour afficher la signification de cette référence qui est dans la seconde table.

Table1

• Nom --> varchar
• Nationalite --> int (ma référence)

Table2

• RefNation --> int
• NomNation -->varchar

Si je mets la propriété LookupCache à la valeur vrai, la signification de ma référence s'affiche mais si je change la valeur, j'ai l'erreur suivante :
Project TestBase.exe raised exception class 'EVariantInvalidArgError' with message Invalidargument:Int64
Si je mets la propriété LookupCache à la valeur faux, la signification de ma référence ne s'affiche plus. Mais le changement de valeur se fait moyennant un Post.

Si quelqu'un a une idée ???

[e-ric]

Bonjour

J'ai le même problème, qui est par ailleurs franchement agaçant quand on vient du monde Delphi. Sous Delphi, le composant standard DBLookupCombobox fonctionne mal lui aussi mais le composant Jedi équivalent fonctionne très bien.

En ce qui concerne Lazarus, j'ai constaté que l'affectation du champ sous-jacent est effective mais l'affichage de la signification est défaillant.

J'ai pensé dans un premier temps à un problème lié au support des variant mais cela n'explique pas le bon fonctionnement de l'affectation du champ sous-jacent. J'ai exploré cette piste car le problème lié au support des variant existe dans la fonction Locate où il faut convertir les valeurs Int64 en string sinon la fonction échoue. Je pense qu'il y a là-dessous des bugs assez vicieux. L'emploi de clé de type String semble fonctionner correctement mais cela n'est pas satisfaisant.

Pour l'instant je n'ai pas eu le temps de creuser plus le problème, il va falloir analyser le contenu des bibliothèques, c'est pas cool.

Avez-vous eu des pistes de solutions depuis ??
Mon environnement technique : Lazarus 0.9.30 + Zeos Lib + Firebird 2.1.3. En outre toute mes clés primaires sont en Int64.

[Gouyon]

La solution provisoire que j'ai trouvée est de mettre mes clefs étrangère en smallint au lieu de int et là ça marche.
Je pense qu'il y a un problème d'identification de type.

[e-ric]

Bonsoir

C'est pas cool et on peut vite atteindre les limites...
J'ai peut-être trouvé une solution avec les composants Rx pour Lazarus mais il faut faire quelques adaptations, il y a des incohérences entre le code des composants et ceux la LCL.

Si cela s'avère concluant, on pourra en reparler.

@+

e-ric

[chris37]

Attention avec le rxdblookup qui traine sur internet pour Lazarus car il est plus que bancal et le code très exotique.....

Prudence donc

Cordialement,
Chris

[e-ric]

Hi men,

J'ai essayé plusieurs versions de la Rx Lib pour Lazarus, pas moyen, c'est trop bordélique il faudrait passer son temps à corriger les problèmes de compilation (version LCL Base ...)

J'ai donc passer outre et je suis revenu à une solution plus simple : l'analyse du code des librairies standards de celles de la Zeos Lib et j'ai peut-être trouvé une solution. J'ai identifié et corrigé (enfin je l'espère) un bug dans l'unité ZVariants de ZEOS. Il s'agit d'un problème de directives qui entraîne un mauvais traitement de variants Int64.

A priori, sous réserve de tests plus poussés, la correction n'impacte que la routine suivante (mon correctif est mis en évidence) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
function DecodeVariant(const Value: Variant): TZVariant;
begin
  case VarType(Value) of
    varSmallint, varInteger, varByte:
      DefVarManager.SetAsInteger(Result, Integer(Value));
    varBoolean: DefVarManager.SetAsBoolean(Result, Value);
    varString:
      DefVarManager.SetAsString(Result, Value);
    varSingle, varDouble, varCurrency:
      DefVarManager.SetAsFloat(Result, Value);
    varUnknown: DefVarManager.SetAsInterface(Result, Value);
    varOleStr:
      DefVarManager.SetAsUnicodeString(Result, Value);
    varDate: DefVarManager.SetAsDateTime(Result, Value);
{$IFNDEF VER130BELOW}
    varShortInt, varWord, varLongWord:
      DefVarManager.SetAsInteger(Result, Value);
    varInt64: DefVarManager.SetAsInteger(Result, Value);
{$ELSE}
    //E#B 06/2011
    varInt64: DefVarManager.SetAsInteger(Result, Value);
{$IFNDEF FPC}
    VT_DECIMAL {varInt64 in Delphi/C++Builder 5}:
    DefVarManager.SetAsInteger(Result, Decimal(Value).lo64);
  {$ENDIF}
{$ENDIF}
    else DefVarManager.SetNull(Result);
  end;
end;

Les premiers tests menés sont concluants, la signification apparaît bien
Il me faut vérifier si cela corrige le bug de la fonction Locate.

Je rappelle que cela ne prévaut que pour les applications qui exploitent la ZeosLib (6.6.6 en ce qui me concerne).

Si vous portez cette correction dans vos oeuvres, merci de faire part de vos résultats.

[Gouyon]

Je teste dès que possible

[e-ric]

Ok,

Le bug du locate est corrigé par la meme occasion, j'ai testé. J'en ai profité pour simplifier mon code en supprimant le code de contournement.
Que du bonheur !

@+

[Gouyon]

Bien j'ai fait le test ça fonctionne.