Objeto OLE no forms 6i

Dicas do Oracle Forms Builder - Blocos, Itens, LOV, Canvas, Triggers, comandos, PLL, d2kwutil, FMB, Alert, menus, etc
Responder
luciomferro
Rank: Estagiário Pleno
Rank: Estagiário Pleno
Mensagens: 3
Registrado em: Ter, 25 Abr 2006 8:43 pm
Localização: Araraquara-SP

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
Rank: DBA Sênior
Rank: DBA Sênior
Mensagens: 365
Registrado em: Ter, 24 Mai 2005 2:24 pm
Localização: Araraquara - SP
Cristiano (Tineks)
Araraquara - SP

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
Moderador
Moderador
Mensagens: 2016
Registrado em: Qua, 12 Jan 2005 3:25 pm
Localização: Araraquara - SP
Abraço,

Trevisolli
OCA Oracle PL/SQL Developer Certified Associate
OCP Oracle Forms Developer Certified Professional
Araraquara-SP

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
Rank: DBA Sênior
Rank: DBA Sênior
Mensagens: 365
Registrado em: Ter, 24 Mai 2005 2:24 pm
Localização: Araraquara - SP
Cristiano (Tineks)
Araraquara - SP

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
Responder
  • Informação
  • Quem está online

    Usuários navegando neste fórum: Nenhum usuário registrado e 7 visitantes