Discussion :

[Invité]

Bonjour,

Dans un composant, j'ai un code de ce type

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
function TmySQLtoSGtoSQL.SQLBlobToStr(aQuery : TZQuery; aField : TField) : String;
{public}
var
 aStream : TMemoryStream;
begin
 Result := '';
 with aQuery do
  if not(aField.isNull) then
   try
    aStream := TMemoryStream.Create;
    TBlobField(aField).SaveToStream(aStream);
    Result := MemStreamToString(aStream);
   finally
    aStream.Free;
   end;
end;

Il fonctionne correctement à condition que la Form qui l'emploie, utilise un TzQuery. Mais si -et c'est le cas- j'ai également un TzReadOnlyQuery voire un TsqlQuery, y a-t-il un moyen d'utiliser un DataSet générique ?

Pour l'instant j'ai dû me résoudre à employer :

• SQLBlobToStr(aQuery : TZQuery; aField : TField) : String;
• SQLBlobToStr2(aQuery : TZReadOnlyQuery; aField : TField) : String;

J'avais pensé un moment déclarer aQuery : TDataset mais j'obtiens une Error: Identifier not found "ZReadOnlyQueryX". Peut-on faire mieux, par exemple, déclarer un aDataSet lié à une série de DataSets "possibles" : zQuery, ZReadOnlyQuery, sqlQuery ?

Cordialement. Gilles

[Ph. B.]

Bonjour,
Sur quelle ligne se situe exactement cette erreur ?

Pour l'instant j'ai dû me résoudre à employer :

• SQLBlobToStr(aQuery : TZQuery; aField : TField) : String;
• SQLBlobToStr2(aQuery : TZReadOnlyQuery; aField : TField) : String;

A défaut de dataset générique, pourquoi ne pas utiliser la surcharge de redéfinition ?

Code :

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

1
2
function SQLBlobToStr(aQuery : TZQuery; aField : TField) : String; overload;
function SQLBlobToStr(aQuery : TZReadOnlyQuery; aField : TField) : String; overload;

As tu essayé ceci ?

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
function SQLBlobToStr(aDataset: TDataSet; aFieldName: String): String;
var
  aStream: TMemoryStream;
  aField: TField;
begin
  Result := '';
  with aDataset do
    aField := FieldByName(aFieldName);
  if not aField.isNull then
  begin
    aStream := TMemoryStream.Create;
    try
      TBlobField(aField).SaveToStream(aStream);
      Result := MemStreamToString(aStream);
    finally
      aStream.Free;
    end;
  end;
end;

Sinon, quelle est l'arbre hiérarchique de ces classes ?
--
Philippe.

[Invité]

Bonjour,

Depuis que Lazarus fonctionne "nativement" sur mes Macs (notamment au niveau du Debug), je l'ai ressorti de mes cartons.

je rencontre à nouveau un problème que j'avais évoqué, il y a quelques temps (comme "Invité").
Cela concerne une dbGrid corrigée.
En réalité 2 problèmes :
Premier problème : j'utilise Unidac. J'incorpore le paquet nécessaire dans le composant. Mais si le paquet n'est pas installé, au lieu d'un UniSQLquery, j'utilise un SQLquery natif. Pour l'instant les ressources du composant sont celles-ci :

1. Y a-t-il un moyen de rendre le paquet dclunidac10 "facultatif" donc de vérifier lors de l'installation du paquet si Unidac est installé ?
2. Y a-t-il un moyen dans le code du composant de savoir si le DataSource.Dataset de la dbGrid posée sur la Form est un UniQuery ou un SQLQuery natif ?

Le point 2 du premier problème pourrait être facilement contourné s'il y avait une méthode élégante (i.e. simple et pratique) de résoudre la question, que j'avais anciennement posée, peut-on créer un code générique. Dans ce cas précis je crois que non. Exemple de ligne posant problème :

Code :

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

FSortedColumnName := TUNIQuery(DataSource.DataSet).IndexFieldNames;

vs

Code :

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

FSortedColumnName := TSQLQuery(DataSource.DataSet).IndexFieldNames;

A savoir que la réponse de Philippe est efficace mais nécessiterait dans mon cas une multitude de "function ....; overload;.

Merci. Cordialement. Gilles

[anapurna]

Salut

Une autre solution serait de tester le dataset en prenant comme paramètre le père de tous les composant de base... s'ils ont été construits sur une base commune.

Code :

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

1
2
3
4
5
6
7
8
 
if DataSource.DataSet is   TUNIQuery  Then
  FSortedColumnName := (DataSource.DataSet as TUNIQuery).IndexFieldNames
else 
  if DataSource.DataSet is   TSQLQuery  Then
  FSortedColumnName := (DataSource.DataSet as TSQLQuery).IndexFieldNames
else 
  ... ;

[Invité]

Bonjour,

oui mais si la personne qui veut installer le composant ne possède pas Unidac, la ligne

Code :

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

if DataSource.DataSet is TUNIQuery  Then

va générer une erreur puisque la classe TUNIQuery est inconnue dans ce cas.

Je pensais plus à une directive de compilation comme je l'ai utilisée pour gérer le mode test avec Delphi. La générer est simple mais poser la question qui lancera la génération me semble plus difficile : Comment vérifier que TUniQuery est dispo (et installé) dans l'IDE donc que le paquet Unidac est installé (ou ZeosLib) ?

Cordialement. Gilles

[anapurna]

Salut

Je ne comprends pas bien le problème

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
{$DEFINE UNIDAC}
{$.DEFINE ZEOLIB}
 
Use  ...
  {$IFDEF UNIDAC}
    UnitUniDac
  {$ENDIF}
{$IFDEF ZEOLIB}
    UnitZeoLib 
  {$ENDIF}
;
....
 
 {$IFDEF UNIDAC}
    if DataSource.DataSet is   TUNIQuery  Then
       FSortedColumnName := (DataSource.DataSet as TUNIQuery).IndexFieldNames
  {$ENDIF}
{$IFDEF ZEOLIB}
   if DataSource.DataSet is   TSQLQuery  Then
     FSortedColumnName := (DataSource.DataSet as TSQLQuery).IndexFieldNames
  {$ENDIF}
  ... ;

[tintinux]

Bonjour

Est-ce que la solution de serait pas d'utiliser des TDataSource, ou éventuellement de regarder comment ils font pour se connecter à n'importe quel DataSet ?

[Invité]

salut

Code :

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

1
2
{$DEFINE UNIDAC}
{$.DEFINE ZEOLIB}

Bonjour,

c'est votre réponse que je ne comprends pas bien. La présence du {$DEFINE UNIDAC} est conditionnelle : si Unidac est installé alors.... Et c'est justement là qu'est le problème. Comment vérifie-t-on que UNIDAC est installé dans le .lpk du paquet du nouveau composant.

j'ai bien la référence dans le packagefile.xml. (<Name Value = "dclunidac10"/>. Je pense être capable dans le lpk d'utiliser <Conditionals Value="if ... -dUnidac;"/>. Je crois avoir trouvé la variable permettant de situer le répertoire de compilation (enfin il y en a 2 : la principale et la secondaire). Mais pour l'instant cela résiste encore un peu. Ensuite oui, le {$DEFINE UNIDAC} étant présent ou pas, je peux utiliser votre solution.

Est-ce que la solution de serait pas d'utiliser des TDataSource, ou éventuellement de regarder comment ils font pour se connecter à n'importe quel DataSet ?

Je n'avais pas penser à cela. J'approfondis votre proposition.

Merci pour vos aides. Cordialement. Gilles.