File View em Forms 4.5 ou Abrir Arquivo

Dicas do Oracle Forms Builder - Blocos, Itens, LOV, Canvas, Triggers, comandos, PLL, d2kwutil, FMB, Alert, menus, etc
Responder
Avatar do usuário
Toad
Rank: DBA Pleno
Rank: DBA Pleno
Mensagens: 253
Registrado em: Sex, 18 Nov 2005 2:14 pm
Localização: Seattle, WA
Contato:
Matheus Gonçalves
matheus.dev
twitter.com/developer__c

Sim, eu sei que é jurássico, mas tenho que me virar

Alguém sabe como fazer uma tela para que o usuário possa escolher um arquivo? Algo como uma tela de 'open'...
Obrigado.
Avatar do usuário
dr_gori
Moderador
Moderador
Mensagens: 5024
Registrado em: Seg, 03 Mai 2004 3:08 pm
Localização: Portland, OR USA
Contato:
Thomas F. G

Você já respondeu a dúvida de alguém hoje?
https://glufke.net/oracle/search.php?search_id=unanswered

Que eu saiba, dá pra instalar a d2kwutil no 4.5.
Só que tem que ser da versão pro 4.5 (não sei onde baixar). Se eu encontrar, eu posto aqui :?
Avatar do usuário
Toad
Rank: DBA Pleno
Rank: DBA Pleno
Mensagens: 253
Registrado em: Sex, 18 Nov 2005 2:14 pm
Localização: Seattle, WA
Contato:
Matheus Gonçalves
matheus.dev
twitter.com/developer__c

Consegui encontrar! Tem algum email para onde eu possa mandar isso pra você??

D2KWUTIL.DLL
Seguindo os exemplos de dentr do arquivo D2KWUTIL.PLD, ficou simples:

Selecionar tudo

Declare
    v_file_name Varchar2(2000);
begin

    v_file_name := WIN_API_DIALOG.Open_File ('Escolha o Arquivo','C:\', '(*.txt)|e*.txt|',true,WIN_API.OFN_FLAG_DEFAULT,False);
        if length(v_file_name) = 0 then
            raise form_trigger_failure;
        end if
Tem um monte de exemplos específicos para o 4.5.[/b]
Avatar do usuário
dr_gori
Moderador
Moderador
Mensagens: 5024
Registrado em: Seg, 03 Mai 2004 3:08 pm
Localização: Portland, OR USA
Contato:
Thomas F. G

Você já respondeu a dúvida de alguém hoje?
https://glufke.net/oracle/search.php?search_id=unanswered

Aqui vai a d2kwutil para FORMS 4.5
DOWNLOAD
Abaixo, o exemplo enviado pelo TOAD!

O Diretório original dos arquivos é:

D2KWUT32.DLL
C:\orant\BIN

D2KWUTIL.PLD
D2KWUTIL.PLL
D2KWUTIL.PLX
C:\orant\FORMS45\PLSQLLIB

Selecionar tudo

if v_alert_carrega = ALERT_BUTTON1 THEN
        v_file_name := WIN_API_DIALOG.Open_File ('Escolha o Arquivo','C:\', '(*.txt)|*.txt|',true,WIN_API.OFN_FLAG_DEFAULT,False);
        if length(rtrim(v_file_name)) = 0 then 
            raise form_trigger_failure;
        else
            read(v_file_name);
        end if;
end if;
Valeu TOAD!!!
Avatar do usuário
Toad
Rank: DBA Pleno
Rank: DBA Pleno
Mensagens: 253
Registrado em: Sex, 18 Nov 2005 2:14 pm
Localização: Seattle, WA
Contato:
Matheus Gonçalves
matheus.dev
twitter.com/developer__c

Magina. Bati muita cabeça atrás disso. Tem um tópico de ALGUNS MESES onde eu já estava procurando.
Enquanto eu puder, vou ajudar!!!
:wink:
Abraços!
Responder
  • Informação
  • Quem está online

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