Hi,
ich habe ein kleines Testprogramm geschrieben, dass z.B. die Methode:
Delphi-Quellcode:
function TTest1.Add(zahl1, zahl2: Integer): Integer;
begin
Result := zahl1 + zahl2;
end;
hat.
Nun möchte ich per VBScript diesen
COM Server mit der Funktion Add benutzen. Jedoch klappt das überhaupt nicht!
VBScript
:
Code:
Option Explicit
Dim ComObj
Dim Ergebnis
Err.Clear: Set ComObj= GetObject(, "Project1.Test1")
If Err.Number = 424 Or Err.Number = 429 Then
Set ComObj = CreateObject("Project1.Test1")
End If
Ergebnis = ComObj.Add(4,4)
Weis nicht mehr weiter warum das nicht funktioniert!
Kann da jemand helfen!?