Discussion :

[isachat666]

bonjour à tous,

J'ai un programme de démo (qui fonctionne très bien) dont j'ai les
sources en VB6 et j'aimerais en adapter une partie en delphi, mais je
ne sais pas du tout comment faire...

Ce programme fait appel à des fonctions d'une dll, j'ai la description
des fonctions en syntaxe de langage C, j'ai réussi à écrire la
déclaration en delphi mais quand j'appelle ces fonctions depuis mon
programme je n'obtiens pas le résultat attendu alors que visiblement
l'appel de ces fonctions depuis le programme de test en VB6 est ok.

Quelqu'un pourrait-il m'aider ou me dire comment faire pour adapter le
prog vb6 en delphi ??

merci

Isa

[tourlourou]

la convention de passage des paramètres à la dll est par défaut register en delphi, mais sûrement autre en VB (stdcall ?)

autre possibilité : variables de taille spécifique selon le langage : bien vérifier la longueur des entiers...

[slimjoe]

Est-ce que tu pourrais donner quelques exemples VB6 de déclaration des tes méthodes contenues dans la DLL ? Nous pourrions alors tenter de traduire vers Delphi

[isachat666]

Bonjour,

Merci de votre aide, alors accrochez vous ça va être long.

D'après la doc du fournisseur, voilà comment doit se dérouler le programme:
1. Appel de la fonction SetCIHandle()
2. Appel de la fonction SetImmDataHandle
3. Appel de la fonction InitCISharedMem()
Si la valeur de retour est 0 on peut continuer (sinon refaire à partir de l'étape 2)
4. Ecrire :OK: dans la mémoire partagée en appelant la fonction WriteCISharedMem, si la valeur de retour est 0 on peut continuer.
5. en boucle, utiliser la fonction ReadCISharedMem pour lire le contenu de la mémoire partagée.

Dans mon programme, c'est ok jusqu'à l'étape 4. La fonction WriteCISharedMem me renvoie toujours -1 (c'est à dire une erreur s'est produite lors de l'écriture dans la mémoire partagée) du coup je ne peux aller plus loin.
Si j'essaie tout de même d'appeler la fonction ReadCISharedMem, elle me renvoie toujours 0 (c'est à dire aucune donnée lue même quand je sais qu'il y a des données)
le prog visual basic utilisé en simultané me récupère bien les données.

Voici la description des fonctions (d'après la doc du fournisseur) en langage C:

Code :

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

1
2
3
4
5
void SetCIHandle(HANDLE CIHandle, int MsgId, int StreamNo);
void SetImmDataHandle(HANDLE ImmDataHandle, int MsgId, int StreamNo);
int InitCISharedMem(int StreamNo);
int WriteCISharedMem(char *data, int StreamNo);
int ReadCISharedMem(char *data, intStreamNo);

Voilà l'appel que je fais dans Delphi (mais peut-être je n'ai pas utilisé le bon type pour les variables ???):

Code :

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

1
2
3
4
5
6
procedure SetCIHandle(CIHandle: HWND; MsgID: longint; StreamNo: longint); stdcall; external 'Bcwin.dll';
procedure SetImmDataHandle(ImmDataHandle: THandle; MsgID: integer; StreamNo: integer); stdcall; external 'Bcwin.dll';
 
function ReadCISharedMem(var data: PChar; StreamNo: integer): integer; stdcall; external 'Bcwin.dll';
function InitCISharedMem(StreamNo: integer): integer; stdcall; external 'Bcwin.dll';
function WriteCISharedMem(data: PChar; StreamNo: longint):integer; stdcall; external 'Bcwin.dll';

Un exemple de l'utilisation qui est faite (et qui marche) dans mon programme en VB6:

Code :

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

1
2
3
    FCall.FunctionName = "WriteCISharedMem"
    s = StrConv(txt1 & vbNullChar, vbFromUnicode)
    rc = FCall.CallFunction(VarPtr(s(0)), StreamNo1)

Voilà, en espérant avoir été assez claire ;-)

à bientôt,

Isa

[isachat666]

J'ai revu mon programme de A à Z en suivant la petite doc que je vous ai faite, j'ai modifié mes noms de variable pour avoir quelquechose de plus cohérent et miracle, j'ai réussi à faire fonctionner mon programme !!!

Isa