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:
[Modération]
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;
Merci de penser à la balise Code, NoisetteProd
Partager