Objeto OLE no forms 6i

[luciomferro]

Preciso capturar o número do cartão fidelidade e senha do usuário digitados pelo telefone e buscar as infomações do cliente no banco de dados através destas informações e mostrar na tela do forms. Me disseram que eu poderia utilizar um objeto OLE, mas nem tenho idéia de como utilizá-lo. Alguém poderia me auxiliar com este problema?

[Tineks]

E ai Lucio, tudo beleza?

cara, eu nunca utilizei Ole, mas achei alguns exemplos, vê ai se ajuda.!

Exemplo 1

Selecionar tudo

Procedure open_doc
Is
myapplication ole2.obj_type;
mydocuments ole2.obj_type;
mydocument ole2.obj_type;
args ole2.list_type;
Begin
myapplication := ole2.create_obj ('Word.Application');
ole2.set_property (myapplication, 'Visible', 1);
mydocuments := ole2.get_obj_property (myapplication, 'Documents');
args := ole2.create_arglist;
ole2.add_arg (args, 'c:\test.doc');
mydocument := ole2.invoke_obj (mydocuments, 'Open', args);
ole2.destroy_arglist (args);
args := ole2.create_arglist;

If :control.printFlag = 'Y' Then
ole2.add_arg (args, 'self_print');
ole2.invoke (myapplication, 'Run', args);
ole2.destroy_arglist (args);
End If; 

ole2.Release_obj (mydocument);
ole2.Release_obj (mydocuments);
ole2.Release_obj (myapplication);
End; 

Exemplo 2

Selecionar tudo

/*  
**Set properties for the OLE2 object `Excel.Application'. 
*/ 
application:=OLE2.CREATE_OBJ('Excel.Application'); 
OLE2.Set_Property(application,'Visible', 'True'); 

workbooks:=OLE2.INVOKE_OBJ(application, 'Workbooks'); 
workbook:=OLE2.INVOKE_OBJ(workbooks,'Add'); 
worksheets:=OLE2.INVOKE_OBJ(workbook, 'Worksheets'); 
worksheet:=OLE2.INVOKE_OBJ(worksheets,'Add'); 
args:=OLE2.CREATE_ARGLIST; 
OLE2.ADD_ARG(args, 4);	 
OLE2.ADD_ARG(args, 2); 
cell:=OLE2.Invoke_Obj(worksheet, 'Cells', args); 
OLE2.DESTROY_ARGLIST(args); 
OLE2.Set_Property(cell, 'Value', 'Hello Excel!');

[]'s!!

[Trevisolli]

Brother, beleza?

Cara, quando você diz:

Preciso capturar o número do cartão fidelidade ...

Isso é feito através de algum Hardware, onde você passa este cartão e recebe um número?

[Tineks]

Então brow,

eu acho q pra isso tem alguma biblioteca que efetua a leitura na placa de fax/modem, a um bom tempo atrás eu vi exemplos em Deplhi/VB q faziam isso... nesse caso ele deve precisar ou talvez já tenha uma biblioteca pra isso...

[]'s