Discussion :

[julien19]

Bonjour,
Je travaille actuellement sur le pilotage d'une alimentation en courant, grâce à CodeGear Delphi 2009 et à une carte GPIB Ni488.2. Grâce à un logiciel, j'ai pu vérifier le bon fonctionnement de la communication entre les appareils. Néanmoins, lorsque j'envoie une commande à l'alimentation par Delphi 2009, des points viennent s'intercaler entre chaque caractère de la chaîne (déclarée en "string" dans le programme). Je pense que c'est un problème d'Unicode, mais je ne sais pas comment le résoudre. Quelqu'un aurait-il une solution, ou une idée à me proposer ?? Je vous remercie d'avance

[Paul TOTH]

Bonjour,
Je travaille actuellement sur le pilotage d'une alimentation en courant, grâce à CodeGear Delphi 2009 et à une carte GPIB Ni488.2. Grâce à un logiciel, j'ai pu vérifier le bon fonctionnement de la communication entre les appareils. Néanmoins, lorsque j'envoie une commande à l'alimentation par Delphi 2009, des points viennent s'intercaler entre chaque caractère de la chaîne (déclarée en "string" dans le programme). Je pense que c'est un problème d'Unicode, mais je ne sais pas comment le résoudre. Quelqu'un aurait-il une solution, ou une idée à me proposer ?? Je vous remercie d'avance

le type string de Delphi 2009 étant Unicode il faut utilise AnsiString voir RawByteString

[julien19]

le type string de Delphi 2009 étant Unicode il faut utilise AnsiString voir RawByteString

J'avais déjà essayé ansistring, sans succés. Je viens de rechanger la définition de ma variable en RawByteString, mais cela ne fonctionne pas.

[Paul TOTH]

J'avais déjà essayé ansistring, sans succés. Je viens de rechanger la définition de ma variable en RawByteString, mais cela ne fonctionne pas.

tu fais bien une affectation d'un string vers un ansistring ? afin que Delphi convertisse les données ?

[julien19]

tu fais bien une affectation d'un string vers un ansistring ? afin que Delphi convertisse les données ?

Non, je définis simplement la variable en tant qu'Ansistring. Aurai-je oublié quelque chose ???

[Paul TOTH]

Non, je définis simplement la variable en tant qu'Ansistring. Aurai-je oublié quelque chose ???

euh...j'imagine que non...enfin sûrement que si, sinon tu n'aurais pas de problème

[ShaiLeTroll]

Pourquoi ne pas utiliser un TBytes (ou TByteDynArray), cela sera plus propre et ne serait pas soumis à la confusion, et il n'y aurait pas non plus de risque lié au CharSet ... aurais-tu un peu de code, genre les Header de la DLL qui interface ta carte GPIB et le code d'appel ...

[julien19]

Pourquoi ne pas utiliser un TBytes (ou TByteDynArray), cela sera plus propre et ne serait pas soumis à la confusion, et il n'y aurait pas non plus de risque lié au CharSet ... aurais-tu un peu de code, genre les Header de la DLL qui interface ta carte GPIB et le code d'appel ...

Bonjour, en ce qui concerne le code d'appel et la DLL, j'ai tout pris sur le site du fabricant de la carte
(à la page http://zone.ni.com/devzone/cda/tut/p/id/4873).

Ensuite, j'utilise deux fonctions "Send" et "Receive", visible sur http://digital.ni.com/manuals.nsf/we...256DB300509A79 à la page 2.19 et 2.22.

(Je n'ai pas fait de copier coller ici, pour ne pas surcharger la page...)

Pour la fonction Receive, j'arrive à obtenir le bon résultat (une chaîne "ND00000...", je le vois sur un programme analysant les entrées et les sorties sur le GPIB) si je déclare ma chaîne de caractères en "Char" ou "WideChar"... mais je ne sais pas comment interpréter cela, car c'est une chaîne de caractères qui est passée par le GPIB, et non un simple caractère... en ce qui concerne les TBytes, cela ne fonctionne pas... Someone can help me ??

[Paul TOTH]

Bonjour, en ce qui concerne le code d'appel et la DLL, j'ai tout pris sur le site du fabricant de la carte
(à la page http://zone.ni.com/devzone/cda/tut/p/id/4873).

Ensuite, j'utilise deux fonctions "Send" et "Receive", visible sur http://digital.ni.com/manuals.nsf/we...256DB300509A79 à la page 2.19 et 2.22.

(Je n'ai pas fait de copier coller ici, pour ne pas surcharger la page...)

Pour la fonction Receive, j'arrive à obtenir le bon résultat (une chaîne "ND00000...", je le vois sur un programme analysant les entrées et les sorties sur le GPIB) si je déclare ma chaîne de caractères en "Char" ou "WideChar"... mais je ne sais pas comment interpréter cela, car c'est une chaîne de caractères qui est passée par le GPIB, et non un simple caractère... en ce qui concerne les TBytes, cela ne fonctionne pas... Someone can help me ??

la procédure est déclarée comme cela en fait

Code :

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

1
2
3
 
procedure Receive boardID: Inetger; address Addr4882_t; Buffer: Pointer;
count,termination: Integer);

mais d'après tes explications le buffer contient une chaine de caractères, dans ce cas tu as besoin d'un PAnsiChar

Code :

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

1
2
3
4
5
6
7
8
9
10
 
function ReceiveString: string;
var
  cStr: AnsiString;// ou RawByteString
begin
  SetLength(cStr, 1024);
  Receive(boardid, address, @cStr[1], Length(cStr), termination);
  SetLength(cStr, ibcntl); // je ne sais pas si "ibcntl" est accessible depuis Delphi
  Result := cStr; // conversion de AnsiString à Unicode
end;

[julien19]

la procédure est déclarée comme cela en fait

Code :

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

1
2
3
 
procedure Receive boardID: Inetger; address Addr4882_t; Buffer: Pointer;
count,termination: Integer);

mais d'après tes explications le buffer contient une chaine de caractères, dans ce cas tu as besoin d'un PAnsiChar

Code :

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

1
2
3
4
5
6
7
8
9
10
 
function ReceiveString: string;
var
  cStr: AnsiString;// ou RawByteString
begin
  SetLength(cStr, 1024);
  Receive(boardid, address, @cStr[1], Length(cStr), termination);
  SetLength(cStr, ibcntl); // je ne sais pas si "ibcntl" est accessible depuis Delphi
  Result := cStr; // conversion de AnsiString à Unicode
end;

monsieur, je vous remercie infiniment... (votre code fonctionne à merveille... j'ai juste changé ibcntl pour le test)

[Paul TOTH]

monsieur, je vous remercie infiniment... (votre code fonctionne à merveille... j'ai juste changé ibcntl pour le test)

ah si l'infini était à porté de main aussi aisément...