Problema com isso Delphi para abrir Arquivos

Felyphe · 12 de abril de 2017

Alguém me ajuda pois tenho um executável em .bat que funciona da seguinte forma ...

se eu digitar o código

Ex: 0230 ele abre o arquivo Felipe.txt

se eu digitar 0231 ele abre o arquivo joao.txt

sendo assim cada item que quero abrir tem um código diferente.

Queria saber como fazer o mesmo em Delphi, pois não achei nada a respeito nas minhas pesquisas ..

tipo eu crio uma caixa de texto Edit1 é um botão , e digito o código na caixa de texto e ele vai buscar o arquivo especificado!!

ai esta uma parte do codigo

set /p opcao= Digite o Codigo Da Etiqueta:
echo ------------------------------
if %opcao% equ 020000 goto opcao0
if %opcao% equ 020712 goto opcao1
if %opcao% equ 020714 goto opcao2
if %opcao% equ 020717 goto opcao3
if %opcao% equ 020718 goto opcao4
if %opcao% equ 020720 goto opcao5
if %opcao% equ 020722 goto opcao6
if %opcao% equ 020723 goto opcao7
if %opcao% equ 020724 goto opcao8
if %opcao% equ 020728 goto opcao9
if %opcao% equ 020729 goto opcao10
if %opcao% equ 020735 goto opcao11
if %opcao% equ 020736 goto opcao12
if %opcao% equ 020738 goto opcao12
if %opcao% equ 020750 goto opcao15
if %opcao% equ 020923 goto opcao16
if %opcao% equ 020925 goto opcao17
if %opcao% equ 020942 goto opcao18
if %opcao% equ 020711 goto opcao19
if %opcao% equ 020713 goto opcao20
if %opcao% equ 020715 goto opcao21
if %opcao% equ 020716 goto opcao22
if %opcao% equ 020717 goto opcao23
if %opcao% equ 020719 goto opcao24
if %opcao% equ 020726 goto opcao25
if %opcao% equ 020727 goto opcao26
if %opcao% equ 020733 goto opcao27
if %opcao% equ 020734 goto opcao28
if %opcao% equ 020751 goto opcao29
if %opcao% equ 020922 goto opcao30
if %opcao% equ 020751 goto opcao31
if %opcao% equ 020922 goto opcao32
if %opcao% equ 020924 goto opcao33
if %opcao% equ 48 goto opcao34
if %opcao% equ 020764 goto opcao35
if %opcao% equ 20710 goto opcao36
if %opcao% equ 20714 goto opcao37
if %opcao% equ 20720 goto opcao38
if %opcao% equ 20723 goto opcao39
if %opcao% equ 20732 goto opcao40
if %opcao% equ 20735 goto opcao41
if %opcao% equ 20739 goto opcao42
if %opcao% equ 20750 goto opcao43
if %opcao% equ 20942 goto opcao44
if %opcao% equ 020725 goto opcao45
if %opcao% equ 020752 goto opcao100
if %opcao% equ 020753 goto opcao101
if %opcao% equ 020754 goto opcao102
if %opcao% equ 020755 goto opcao103
if %opcao% equ 020756 goto opcao104
if %opcao% equ 020757 goto opcao105
if %opcao% equ 020759 goto opcao106
if %opcao% equ 020760 goto opcao107
if %opcao% equ 020761 goto opcao108
if %opcao% equ 020931 goto opcao109
if %opcao% equ 020933 goto opcao110
if %opcao% equ Ajuda goto opcao999
if %opcao% equ 20711 goto opcao200
if %opcao% equ 20715 goto opcao201
if %opcao% equ 20727 goto opcao202
if %opcao% equ 20733 goto opcao203
if %opcao% equ 20751 goto opcao204
if %opcao% equ 20929 goto opcao205
if %opcao% equ 020737 goto opcao206
if %opcao% equ 10 goto opcao207
if %opcao% equ 00 goto opcao208
if %opcao% equ ajuda goto opcao999
if %opcao% equ contato goto opcao888
if %opcao% equ Contato goto opcao888
if %opcao% equ CONTATO goto opcao888
if %opcao% equ COMANDOS goto opcao555
if %opcao% equ Comandos goto opcao555
if %opcao% equ comandos goto opcao555
if %opcao% equ 020503 goto opcao1200
if %opcao% equ 020606 goto opcao1201
if %opcao% equ 020638 goto opcao1202
if %opcao% equ 020765 goto opcao1203
if %opcao% equ 020766 goto opcao1204
if %opcao% equ 020767 goto opcao1205
if %opcao% equ 020901 goto opcao1206
if %opcao% equ 020903 goto opcao1207
if %opcao% equ 020913 goto opcao1208
if %opcao% equ 020917 goto opcao1209
if %opcao% equ 020918 goto opcao1210
if %opcao% equ 020926 goto opcao1211
if %opcao% equ 020744 goto opcao1212
if %opcao% equ 020746 goto opcao1213
if %opcao% equ 020748 goto opcao5566
if %opcao% equ 020749 goto opcao5577
if %opcao% equ 20 goto opcao5588
if %opcao% equ  goto opcao1213
if %opcao% equ  goto opcao1213

:opcao0
Title ERROR 404 
cls
color  FC
echo  ==========================================================================
echo Produto Nao encontrado, Confira o Codigo."ERROR 404"
echo Revise o Codigo e Tente Novamente. Blessed By God !!!!
echo ===========================================================================

pause
goto menu

:opcao1
cls
@echo Carre Suino congelado 20712.
start C:\congelados\20712.btw
pause
goto menu

:opcao2
cls
echo Picanha Premium Congelada 20714 
start C:\congelados\20714.btw
pause
goto menu

:opcao3
cls
start C:\congelados\20717.btw
pause
goto menu

:opcao4
cls
start C:\congelados\20718.btw
pause
goto menu

:opcao5
cls
start C:\congelados\20720.btw
pause
goto menu

FBO_COUTINHO · 13 de abril de 2017

Talvez possa fazer deste modo:

//Na cláusula Uses adicione "ShellAPI" e "StrUtils"

//Colocar na tela um Edit (Edit1) e um Botão (Button1)

//Função Execute - abre o arquivo pelo notepad
// retorna True caso consiga abrir o arquivo
// retorna False caso não consiga abrir o arquivo
function Execute(FileName, Parameter: string): boolean;
begin
  if(FileExists(Parameter))then
  begin
    try
      ShellExecute(Application.Handle,
                   nil,
                   PChar(FileName),  // Filename with path
                   PChar(Parameter), // Parameters (not needed)
                   PChar(Parameter), // path of file
                   SW_SHOW);
      result:= True; //operação bem sucedida
    except
      result:= False; //erro na operação
    end;
  end
  else
    result:= False; //erro na operação (arquivo não encontrado)
end;

//Evento "OnClick" do botão TButton1
procedure TForm1.Button1Click(Sender: TObject);
var
  filename: string;
begin
  case AnsiIndexStr(Edit1.text,
                    [
                     '020000', //string referente ao indice 0 do case
                     '020712', //string referente ao indice 1 do case
                     '020712'  //string referente ao indice 2 do case
                     //adicione outras strings aqui e o indice relativo abaixo seguindo a ordem
                    ]) of
    0: ShowMessage('ERROR 404');
    1: begin
         filename:= '020712';

         ShowMessage('Carre Suino congelado ' + filename +#13#10 +
                     'Clique em OK para abrir o arquivo');

         if(Execute('notepad','c:\congelados\' + filename + '.btw') = False)then
           ShowMessage('Falha ao abrir o arquivo "c:\congelados\' + filename + '.btw"');
       end;
    2: begin
         filename:= '20714';
         ShowMessage('Picanha Premium Congelada ' + filename +#13#10 +
                     'Clique em OK para abrir o arquivo');

         if(not Execute('notepad','c:\congelados\' + filename + '.btw'))then
           ShowMessage('Falha ao abrir o arquivo "c:\congelados\' + filename + '.btw"');
       end;
  end;
end;

Outras opções:
- Colocar um Memo na tela e abrir o arquivo no Memo ao invés do notepad.

- Ao invés do usuário ter que digitar o nome do arquivo você poderia alistar todos os arquivos em um ComboBox e o usuário apenas teria que selecionar o arquivo na lista do combobox.

Se usar um ComboBox poderia colocar o titulo do arquivo (exemplo: Picanha Premium Congelada) para o usuario selecionar ao invés do nome numérico do arquivo e internamente no programa chamar o arquivo usando como base o indice do item selecionado no ComboBox (combobox.itemindex)

Felyphe · 13 de abril de 2017

tem como você me enviar um Projeto pronto Pra mim pegar uma noção não acompanhando o raciocínio

Meu Skype Felyphex1

Meu Email felipe99611130@gmail.com

Desde Já Obrigado

FBO_COUTINHO · 13 de abril de 2017

Para que possa abrir um arquivo que tem extensão associada a um aplicativo específico use o comando "ShellExecute".

Abaixo um trecho de código para seu uso:

Em "Uses" declare ShellAPI

No evento do clique do botão, coloque o código:

Shellexecute(handle,'open',pchar(file_name),nil,nil,SW_shownormal);
//file_name é local+nome do arquivo. Exemplo:   file_name:= 'c:\congelados\020712.btw'

Exemplo em que o usuário digitou "020712" no Edit e depois clicou no botão:

procedure TForm1.Button1Click(Sender: TObject);
 var
   file_name: string;
 begin
   file_name:= 'C:\congelados\' + Edit1.Text + '.btw';

   if(FileExists(file_name))then //verifica se o arquivo existe
     Shellexecute(handle,'open',pchar(file_name),nil,nil,SW_shownormal)
   except
     ShowMessage('ERRO 404'); //erro de arquivo não encontrado
 end;