Bonjour,
j'ai écrit un serveur com installé sur un serveur IIS. J'appelle ses fonctions via asp et tout baigne javascript:emoticon('')
Je soushaite accéder à ces fonctions depuis un exe écrit avec Delphi depuis un poste distant, la dll se charge bien, mais je ne peux accéder à la fonction javascript:emoticon('')

Merci de votre aide. Voici mon code:
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
procedure Tfm_main.testDycasrv;
type TGetCodeU = function(compteur: OleVariant): OleVariant;
var  libHandle: THandle;
     err: word;
     getCodeU: TGetCodeU;
     s: string;
     n: integer;
begin
          s := '\\MONSERVEUR\TOTO\scripts\pdycasrv.dll';
          libHandle := SafeLoadLibrary(s);
          if libHandle <> 0 then
          begin
              try
                 @getCodeU := getProcAddress(libHandle, 'getcodeu');
                 err := getLastError;
                 if @getCodeU <> nil then
                 begin
                     n := getCodeU('compteur');
                     mm_connexion.Text := intToStr(n);
                  end else mm_connexion.Text := s + chr(13) + 'Erreur: ' + intToStr(err);
              finally
                  freeLibrary(libHandle);
              end;
          end;
end;
[Modération]
Merci de penser à la balise Code, NoisetteProd