Discussion :

[celuina]

J'ai un souci : je souhaite utiliser dans delphi 4 une API qui recoit des données
via inter-net.
Je ne sais pas utiliser ce fichier (exe) extérieur à mon application, pour lui transmettre les parametres souhaités
Si vous pouviez-m'accorder un instant !

A vous lire

D'avance merci.

[Clorish]

Ce module est une Dll ? un Exe ?

Pour les exe, regarde du cote de shellExecute et autres pais windows de gestion des Process

[celuina]

j'ai réussi à ouvrir un fichier _tbl dans lequel je retrouve les déclarations de class
et différentes fonction.
Le probleme est je ne déclare pas correctement la class ce qui me permettrai d'accéder aux fonctions de cette API.


ci-apres entet du fichier généré

// ************************************************************************ //
// AVERTISSEMENT //
// ------- //
// Les types déclarés dans ce fichier ont été générés à partir d'une bibliothèque //
// de types. Si cette dernière est ré-importée explicitement ou indirectement //
// (par une autre bibliothèque de types qui s'y réfère), ou si la commande //
// 'Refresh' de l'Editeur de bibliothèque de types est activée pendant l'édition //
// de la bibliothèque de types, le contenu de ce fichier sera regénéré et toutes //
// les modifications manuelles seront perdues. //
// ************************************************************************ //

// PASTLWTR : $Revision: 1.11.1.75 $
// Fichier généré le 10/07/2007 01:07:50 depuis la bibliothèque de types ci-dessous.

// ************************************************************************ //
// Bibl. de types : C:\Program Files\ABCbourse\ABC Quotes Feed\ABCQuotesFeed.exe
// IID\LCID: {8EF3899A-4A8C-4B0B-A163-FF5326CE2733}\0
// Fichier aide :
// Chaîne d'aide : ABCBourse Quotes Feed Server
// Version : 1.0
// ************************************************************************ //

[Clorish]

ha ... dis moi tout
Si ton exe est livré avec une tlb tu devrtais pouvoir l'importer directement depuis l'exe sous Delphi : Projet/importer bibliotheque de type

Delphi te genere une TLB directement compatible Delphi

[celuina]

Je viens de comprendre qu'à partir d'une déclaration d'objet oleVariant
je pouvais avoir accès aux fonctions de l'API.
C'est beaucoup plus simple que je croyais.
néanmoins je rencontre un autre probleme " la lecture du tableau des variants retourné par l'API "

Si tu as une explication radicale je souhaite remplir une StringGrid avec le variant.

[Clorish]

Je ne manipule pas les Variants ....
Mais d'apres ce que tu me dit, tu devrais pouvoir importer la bibliotheque de type de l'executable qui te fourniras les classes, interfaces et fonctions exportées par ton executable.

[celuina]

En effet apres l'importation des methodes j'ai ecrit le code dont j'avais besoin.

J'ai découvert aussi
Les variants sont des tableaux à plusieurs dimension et la lecture se fait
par des cles d'indices

Merci encore
A bientôt

[Clorish]

J'ai découvert aussi
Les variants sont des tableaux à plusieurs dimension et la lecture se fait
par des cles d'indices

Pas du tout
Un variant est un type record avec partie variable pouvant contenir tous les types de bases du langage.
Je ne retrouve plus la definition du type Variant mais l'aide du sdk windows renvoie une definition C++ similaire a celle que j'ai vu sous delphi :

typedef struct tagVARIANT {
VARTYPE vt;
unsigned short wReserved1;
unsigned short wReserved2;
unsigned short wReserved3;
union {
unsigned char bVal; /* VT_UI1 */
short iVal; /* VT_I2 */
long lVal; /* VT_I4 */
float fltVal; /* VT_R4 */
double dblVal; /* VT_R8 */

VARIANT_BOOL bool; /* VT_BOOL */
SCODE scode; /* VT_ERROR */
CY cyVal; /* VT_CY */
DATE date; /* VT_DATE */
BSTR bstrVal; /* VT_BSTR */
Iunknown FAR* punkVal; /* VT_UNKNOWN */
Idispatch FAR* pdispVal; /* VT_DISPATCH */
SAFEARRAY FAR* parray; /* VT_ARRAY|* */
unsigned char FAR *pbVal; /* VT_BYREF|VT_UI1 */

short FAR* piVal; /* VT_BYREF|VT_I2 */
long FAR* plVal; /* VT_BYREF|VT_I4 */
float FAR* pfltVal; /* VT_BYREF|VT_R4 */
double FAR* pdblVal; /* VT_BYREF|VT_R8 */
VARIANT_BOOL FAR* pbool; /* VT_BYREF|VT_BOOL */
SCODE FAR* pscode; /* VT_BYREF|VT_ERROR */
CY FAR* pcyVal; /* VT_BYREF|VT_CY */
DATE FAR* pdate; /* VT_BYREF|VT_DATE */
BSTR FAR* pbstrVal; /* VT_BYREF|VT_BSTR */

IUnknown FAR* FAR* ppunkVal; /* VT_BYREF|VT_UNKNOWN */
IDispatch FAR* FAR* ppdispVal; /* VT_BYREF|VT_DISPATCH */
SAFEARRAY FAR* FAR* parray; /* VT_ARRAY|* */
VARIANT FAR* pvarVal; /* VT_BYREF|VT_VARIANT */
void FAR* byref; /* Generic ByRef */
};
};

[celuina]

je n'écrit que sous delphi 4
et je trouve le 2007 un peu trop compliqué

merci de tes infos

[Clorish]

je n'écrit que sous delphi 4
et je trouve le 2007 un peu trop compliqué

Pareil
Moi j'en suis resté a D7.
Mais je te conseille d'essayer D7, il y a quand meme quelques ameliorations depuis D4.
D7 est le meilleur editeur qui a suivi D4, avant la ligné D200X de moins bonne cuvée