Mi primera DLL

Mi primera DLL

Postby Rafael Clemente » Sat Oct 06, 2007 10:27 am

Me gustaría saber cómo puedo crear una simple DLL. Por ejemplo, una que contenga solamente una clase a la que pasar un array y que lo presente en pantalla. Algo más o menos así:
Code: Select all  Expand view  RUN
CLASS Test FROM TDialog
      export:
         METHOD New(aTxt) CONSTRUCTOR
      hidden:
         METHOD Controles()
ENDCLASS

//────────────────────────────────────────────────────METHOD New(aTxt) CLASS Test
Default aTxt := {"Hello World!", "Hello again"}

Super():New(0,0,60,80)
ACTIVATE DIALOG Self CENTER ON INIT  ::Controles(aTxt)
RETURN Self

//────────────────────────────────────────────────────
METHOD Controles(aTxt) CLASS Test
@ 20, 0 SAY "Tu mensaje dice: "+aTxt[1] SIZE ::nWidth, 20 PIXEL
@ 50, 0 SAY "Segunda linea: "+aTxt[2] SIZE ::nWidth, 20 PIXEL
RETURN NIL


¿Alguien podría darme una idea de cómo hacerlo? He buscado en diversos posts, pero no me aclaro al respecto. Una vez compuesta la DLL, para usarla ¿tengo que registrarla en mi programa o algo así?

Perdón por una pregunta tan compleja pero la solución quizás le sea útil a otros.
Saludos,
Rafael
User avatar
Rafael Clemente
 
Posts: 365
Joined: Sat Oct 08, 2005 7:59 pm
Location: Barcelona, Spain

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 57 guests