[Lazarus-es] LazActivex.. ejemplo no anda!

Paola Bruccoleri pbruccoleri en adinet.com.uy
Mar Jun 17 19:36:52 CEST 2014


El 17/06/2014 1:01, Maxi escribió:
> Si es eso lo tengo en la paleta activex, y los lanzo al formulario y
> puedo cambiar propiedades. No hice mas nada pero si lo importa como
> Type Lybrary
>
>
defnitivamente, en lazarus no se comporta igual!...

ahora estoy usando el efacturacom_1_0_tlb.pas que me envió mi amigo 
generado con delphi (le cambié el nombre al formato que pide lazarus x 
las dudas)

Aparenta tener otra pinta.. los Set los importa diferente. Les pego una 
captura de una comparación de los 2 archivos (el de la izquiera es el 
generado con delphi, el de la derecha con lazarus).




Al compilar, solo en algunos métodos me da error (en otros no!!) y no 
logro darme cuenta cuál es el problema..

*unit1.pas(86,40) Error: Variable identifier expected**
**efacturacom_1_0_tlb.pas(413,15) Hint: Found declaration: 
_ItemFactura.Set_Nro(var WideString); SafeCall;*
unit1.pas(88,49) Error: Variable identifier expected
efacturacom_1_0_tlb.pas(417,15) Hint: Found declaration: 
_ItemFactura.Set_DescArticulo(var WideString); SafeCall;
unit1.pas(89,40) Error: Variable identifier expected
efacturacom_1_0_tlb.pas(419,15) Hint: Found declaration: 
_ItemFactura.Set_Cant(var WideString); SafeCall;
unit1.pas(91,39) Error: Variable identifier expected
efacturacom_1_0_tlb.pas(422,15) Hint: Found declaration: 
_ItemFactura.Set_PrecioUnitario(var Currency); SafeCall;
unit1.pas(120,54) Error: Variable identifier expected
efacturacom_1_0_tlb.pas(575,14) Hint: Found declaration: 
_Sobre.SaveXMLToFile(var WideString):OleVariant; SafeCall;
unit1.pas(121,56) Error: Variable identifier expected
efacturacom_1_0_tlb.pas(233,14) Hint: Found declaration: 
_CFE.SaveXMLToFile(var WideString):OleVariant; SafeCall;
unit1.pas(124,51) Error: Variable identifier expected
efacturacom_1_0_tlb.pas(650,14) Hint: Found declaration: 
_Respuesta.savePDF(var WideString):WordBool; SafeCall;
unit1.pas(136) Fatal: There were 7 errors compiling module, stopping

por ejemplo, si tomo el primero (marcado en negrita), me da acá:
   itemFact1.Nro                  := '1';

     procedure Set_Nro(var Param1: WideString); safecall;

pero no veo que le falte nada...

agradezco luz!!!

cuando termine este martirio, deberé reportar que esta parte no está 
funcionando nada bien... díganme dónde..
byeeeeeeeeeee


------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20140617/9a4121f4/attachment-0001.html>
------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: gbjefiba.png
Type: image/png
Size: 85040 bytes
Desc: no disponible
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20140617/9a4121f4/attachment-0001.png>


More information about the Lazarus-es mailing list