Ir para conteúdo
Fórum Script Brasil

Jhonas

Monitores
  • Total de itens

    9.657
  • Registro em

Tudo que Jhonas postou

  1. pesquise nos posts sobre CHARACTER SET E COLLATE http://scriptbrasil.com.br/forum/index.php...ighlite=COLLATE ou veja http://scriptbrasil.com.br/forum/index.php...l=character+set abraço
  2. esta meio confuso a sua explicação.... voce tem uma planilha ??? em delphi ? em excel ? seja mais claro voce quer um rotina para ficar simulando o pressionamento de uma tecla indefinidamente ? porque ? quanto mais claro e objetivo voce for, mais chances de voce ter uma resposta abraço
  3. coloque o seu codigo, senão fica dificil ajudar abraço
  4. FloatToDateTime = Converte um valor ponto-fluante em um valor TDateTime . supondo que sua variavel dataini.text seja '12/07/2012' faz-se necessario somente a conversão da string em data Query5.ParamByName('dataini').AsDate := StrToDate(dataini.text); Query5.ParamByName('datafim').AsDate := StrToDate(datafim.Text); abraço
  5. veja nesse link, varias rotinas para manipulação em delphi usando excel http://www.advdelphisys.com/Code_Lib/ads_Excel.html abraço
  6. sempre informe a versão do delphi que esta usando ... o fato que vários comandos que funcionavam deixaram de funcionar pelos componentes (os da paleta excel), significa que voce ou trocou de versão, ou reinstalou o delphi e não indicou o caminho das bpls sempre faça uma pesquisa no forum antes de postar a sua dúvida posts relacionados http://scriptbrasil.com.br/forum/index.php...;highlite=excel abraço
  7. voce tera que usar o componente webbrowser faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...lite=webbrowser abraço
  8. exemplo # Recebendo os numeros. numero1 = int(raw_input('Informe o primeiro numero: ')) numero2 = int(raw_input('Informe o segundo numero: ')) # Soma os numeros. soma = (numero1 + numero2) # Exibe o resultado. print 'SOMA %d' % soma abraço
  9. voce precisa declarar a uses System abraço
  10. Parece que voce não entendeu ... eu disse que era para voce testar o retorno do comando que é jogado no arquivo ping.txt procedure TForm1.Button1Click(Sender: TObject); var Arquivo: TextFile; Line: string; begin WinExec(Pchar('cmd /c tasklist /S 10.162.6.95 /U MES\mes_test /P mes_test | FIND "Takt.exe" >c:\ping.txt'), 0); sleep(300); AssignFile(Arquivo, 'C:\ping.txt'); Reset(Arquivo); while not EOF(Arquivo) do begin ReadLn(Arquivo, Line); if line <> '' then begin Statusbar1.Panels [2].Text := ('Program Running'); panel1.Color := clGreen; panel2.Color := clBtnFace; ProgressBar1.Position := Progressbar1.min; end else begin Statusbar1.Panels [2].Text := ('Program not Running'); panel1.Color := clBtnFace; panel2.Color := clRed; ProgressBar1.Position := Progressbar1.min; end; end; CloseFile(Arquivo); end; abraço
  11. exemplos http://iris.sel.eesc.usp.br/sel886/Pratica_1.pdf http://www.del.ufms.br/tutoriais/matlab/capitulo4.htm http://paginas.ucpel.tche.br/~vbastos/matlab.htm http://mit.universia.com.br/18/1806/pdf/matlab.pdf abraço
  12. veja o manual de referencia http://www.mathworks.com/help/toolbox/data...g/database.html abraço
  13. veja http://ecuaciondecontrabando.blogspot.com....-medio-del.html abraço
  14. leia sobre OPC ( outra maneira para envio de dados via web ) http://en.wikipedia.org/wiki/Opc_server um exemplo em c# http://advosol.us/manuals/opcdanet/topic6.html um exemplo em delphi http://opcdelphi.googlecode.com/files/delp..._2011-04-04.zip abraço
  15. use o comando QuickRep.ForceNewPage; abraço
  16. Jhonas

    Monitor estendido

    pelos sintomas que voce mecionou, parece ser mesmo a placa mãe ... tive um problema parecido mas foi com uma placa de rede, então optei por usar um nobreak a partir disso. abraço
  17. Jhonas

    OPC Server

    OK ... veja esse exemplo http://opcdelphi.googlecode.com/files/delp..._2011-04-04.zip abraço
  18. então basta testar o retorno do comando ... se for vazio o panel ficara vermelho para pegar o retorno use WinExec('cmd /c tasklist /S (IP) /U (Dominio/User) /P (Password) | FIND (Processo)' >c:\Ping.txt', 0); é só verificar se o conteudo do arquivo ( Ping.txt ) está vazio abraço
  19. veja esse exemplo http://www.facunte.com.br/livros/dw7/livro..._capitulo_7.pdf abraço
  20. utilize a versão mysql-essential-5.1.55-win32.msi abraço
  21. quando voce utiliza esse comando, qual é o retorno quando o programa não esta sendo executado ?
  22. depende de quais recursos voce precisa a partir do delphi 5 voce pode utilizar o MYSQL abraço
  23. Jhonas

    OPC Server

    leia esse artigo http://www.cpdee.ufmg.br/~seixas/PaginaSDA...rcosFonseca.PDF abraço
  24. procedure TForm1.Button1Click(Sender: TObject); begin WinExec('cmd /c tasklist /S (IP) /U (Dominio/User) /P (Password) | FIND (Processo)', 0); end; abraç
×
×
  • Criar Novo...