Comment accéder à une DLL COM depuis un exécutable ?
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:
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
