1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
|
procedure TForm1.AdditionClick(Sender: TObject);
var
monObjet, result : System.Object;
arguments : array [1..2] of System.Object;
SampleAssembly : Assembly;
tType: System.Type;
begin
SampleAssembly := Assembly.LoadFrom('c:\dllAddition.dll');
tType := SampleAssembly.GetType('dllAddition.dllAddition1');
monObjet := SampleAssembly.CreateInstance('dllAddition.dllAddition1');
arguments[1] := a1.Text;
arguments[2] := a2.Text;
result := Ttype.InvokeMember('Add', BindingFlags.InvokeMethod, nil, monObjet, arguments);
resultAdd.Text := string(result);
end; |
Partager