🚀 go-pugleaf

Thanks a lot  for your time.

Dimitris


"Marc Rohloff [TeamB]" <marcrohloff@nospam.invalid> wrote in message 
news:416d5a97$1@newsgroups.borland.com...
>
> "Marc Rohloff [TeamB]" <"on request"> wrote:
>>On Tue, 12 Oct 2004 11:29:29 +0300, Stefanidis Dimitris wrote:
>
> OK, I figured out the code to do what you are trying to do, but first the 
> disclaimners :)
> 1) This is stuff that is internal to the compiler. You can't assume that 
> it won't change between versions of Delphi.
>
> 2) If you do this you won't be able to use code written in c#. (Although 
> you could write code to check this and use the other alternative)
>
> The code is as follows:
>
> procedure TWinForm1.Button1_Click(sender: System.Object; e: 
> System.EventArgs);
> var
>   ass   : Assembly;
>   typ   : System.Type;
>   cltyp : System.Type;
>   meth  : MethodInfo;
>   cl    :TObject;
>   s     : string;
> begin
>  ass   := Assembly.LoadFrom('Package2.dll');
>  typ   := ass.GetType('WinForm.TWinForm2');
>  meth  := typ.GetMethod('Foo_Ex');
>  cltyp := typ.GetNestedType('@Meta' + typ.Name);
>  cl    := cltyp.GetField('@Instance').GetValue(nil);
>
>  s := meth.Invoke(nil, [cl, 'Something']) as string;
>  TextBox1.Text := s;
> end;
>
> -- 
> Marc Rohloff [TeamB]
> marc rohloff at myrealbox dot com
>
>