Jump to content
Felyphe

Problema com DELPHI Por favor Ajudem

Recommended Posts

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

Share this post


Link to post
Share on other sites

Pelo que percebi pretende que ao digitar um código o mesmo corresponda a um arquivo que por sua vez será aberto.

 

Ok, mas que tipos de arquivos estamos a falar? Com extensão .btw?

Como o user vai saber os códigos todos? Tem necessidade de antes ver a lista de ficheiros disponíveis?

 

Mais informações s.f.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

  • Similar Content

    • By bernal.rodrigo
      Pessoal boa noite!!
      Criei um servidor datasnap e to precisando de uma ajuda agora neste pondo do lado cliente.
      No meu servidor tenho um Method que se chama GetVendas  para pegar as vendas.
      Porem agora ´preciso passar um período para retornar as vendas, ai que não estou conseguindo montar minha url.
      estou fazendo desta maneira do lado do cliente:
      Preciso saber como passar a data
         RESTClient1.ResetToDefaults;
         RESTRequest1.ResetToDefaults;
         RESTResponse1.ResetToDefaults;
         RESTClient1.BaseURL := 'http://localhost:8080/datasnap/rest/TVendaControl';
       
         RESTRequest1.Resource := '/Venda/{Status}/{CodVendedor}/{DtIni}/{DtFim}';
         RESTRequest1.Method := TRESTRequestMethod.rmGET;
         RestRequest1.Params.AddItem('Status',inttostr(cbbStatus.ItemIndex), TRESTRequestParameterKind.pkURLSEGMENT);
         RestRequest1.Params.AddItem('CodVendedor','', TRESTRequestParameterKind.pkURLSEGMENT);

      Project GestorApp.exe raised exception class EHTTPProtocolException with message 'HTTP/1.1 500 Internal Server Error'.
      ---------------------------
      Break   Continue   Help   
      ---------------------------
      Agradeço a todos e um forte abraço.
    • By Joelend
      Estou utilizando TPasLibVlcPlayer para reprodução de videos e preciso que estes sejam exibidos sem áudio. 
      Tentei utilizar a função "vlc.SetAudioMute(true); " porem não funcionou... 
      Olhando a documentação encontrei isso: 

      "Aviso 
      Esta função nem sempre funciona. Se não houver fluxo de reprodução de áudio ativo, o status de mudo poderá não estar disponível. Se a passagem digital (S / PDIF, HDMI ...) estiver em uso, o muting pode não ser aplicável. Além disso, alguns plug-ins de saída de áudio não suportam muting. 
      Nota 
      Para forçar a reprodução silenciosa, desative todas as faixas de áudio. Isso é mais eficiente e confiável do que o mudo." 

      No meu caso, estou utilizando o HDMI. Minha duvida é sobre como desativar as faixas de audio. 

      Alguém saberia ajudar?
    • By felk_fel@hotmail.com
      Boa tarde a todos!

      De vez em quando, acontece isso comigo, o Delphi compila a aplicação mas ela não roda ou fecha sozinha...Para resolver eu estou sempre tendo que fechar o delphi e criar uma nova aplicação. Alguém poderia me ajudar conforme o vídeo abaixo?

      https://www.youtube.com/watch?v=cFBJSS5yTN8

      Agradeço pela atenção.
    • By Felipe Garciax
      Ola,
       
      Estou com o seguinte problema, no formulario principal do meu projeto tenho um SplitView e um Image em AlClient com uma imagem em 193 kb, ao abrir e fechar o SplitView em execucao a imagem PISCA, ja usei no OBJECT INSPECTOR o DoubleBuffered em TRUE tanto para o form quanto para o SplitView e o problema persiste, ja fiz o teste no codigo tanto para o EVENTO OnShow e OnCreat:
      DoubleBuffered :=True;  e nenhum resultado... Help Me
    • By ericborrero
      Boa Noite a todos ....
       
      aguem pode me ajudar com esse código.... preciso que ele procure o menor valor e não o maior como esta aqui
       
       
       
      Procedure TfrmAvaliacao.PiorTempo;
      var
        ArrayString: Array [1 .. 5] of string;
        PiorTempo: string;
        i: Integer;
      begin
        ArrayString[1] := dbtext2.Caption;
        ArrayString[2] := dbtext4.Caption;
        ArrayString[3] := dbtext6.Caption;
        ArrayString[4] := dbtext8.Caption;
        ArrayString[5] := dbtext10.Caption;
        PiorTempo := EmptyStr;
          for i := low(ArrayString) to high(ArrayString) - 1 do
          if PiorTempo < ArrayString then
            PiorTempo := ArrayString;

        Label210.Caption := PiorTempo;
       
      end;
       
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.