Ir para conteúdo
Fórum Script Brasil

Jhonas

Monitores
  • Total de itens

    9.657
  • Registro em

Tudo que Jhonas postou

  1. O que é OLE ? Basicamente, OLE é uma tecnologia que define um modelo padrão para um módulo de cliente e um módulo de servidor que podem se comunicar, com uma interface específica. Aqui, "módulo" indica uma aplicação ou uma biblioteca (uma DLL) que pode ser executada em computadores diferentes ou no mesmo computador. Há muitas interfaces possíveis, dependendo do papel do cliente e do servidor, e é possível adicionar interfaces novas até mesmo para propósitos específicos. Estas interfaces são implementadas através de objetos no servidor. Um objeto no servidor normalmente implementa mais de uma interface e todos os objetos no servidor têm algumas capacidades comuns, desde que eles devem todos o utilizar a interface IUnknown. Esta é uma descrição muito curta do modelo de objeto usado pelo OLE, o Component Object Model (COM). se voce estiver usando o componente OleContainer ou um controle activex, realmente pode estar faltando alguma dll procure na maquina virtual e copie para a maquina fisica abraço
  2. voce pode ter uma ou mais condições dentro de uma função e a função estar dentro de uma dll exemplo basico http://www.delphibasics.co.uk/RTL.asp?Name=Function abraço
  3. Jhonas

    Monitor estendido

    Na verdade não ocorreu uma queda de energia e sim um pico de ernergia, tipo uma voltagem superior ( que pode variar entre 250 a 350 volts ) mas em uma fração de segundo. não é suficiente para causar danos a fonte de alimentação, mas pode danificar circuitos integrados mais sensiveis a variações de voltagem na placa mãe o fato de voce ter trocado a placa e não ter conseguido resultado, indica que algum integrado esta com problema 1 - faça um teste com a placa antiga em outro micro para ter certeza do seu funcionamento 2 - problemas com drives podem causar esse tipo de problema ( drives corrompidos ) 3 - verifique se na bios o hardware esta habilitado 4 - retire a placa mãe e faça um exame visual com uma lupa perto do circuito de video ( pontos pretos indicam sobrecarga no circuito ) abraço
  4. FILTER:= 'COD_CLIENTE LIKE '+QuotedStr('%45%'); Não foi possível converter variant do tipo (OLESTR) no tipo (Boolean). declaração função QuotedStr (const S: string): string; descrição Retorna a versão citada de uma string. Um caracter de aspas simples (') é inserido no início e no final da string S, e cada caractere de aspas simples na string é repetido. exemplo var s: string; s:='Delphi''s Pascal'; //ShowMessage returns Delphi's Pascal s := QuotedStr(s); //ShowMessage returns 'Delphi''s Pascal' abraço
  5. com relação a primeira duvida ... veja esses posts relacionados http://scriptbrasil.com.br/forum/index.php...te=enviar+email me passe os comandos que voce utiliza no prompt de comando
  6. if cds_campodatabela.value = '' then cds_campodatabela.value := null; if cds_campodatabela.value = '' then cds_campodatabela.value := clear; abraço
  7. veja o ultimo post http://www.devmedia.com.br/forum/enviando-...phi-2007/386460 abraço
  8. ainda esta faltando alguma bpl que esta no seu micro e não foi encontrado no micro cliente procure por todas as bpls do quickreport e coloque tambem no micro cliente abraço
  9. mais detalhes veja http://delphi.wikispaces.com/datasnap5 abraço
  10. copie a rtl70.bpl do seu micro para o micro cliente abraço
  11. sim... facilita o uso para o usuario abraço
  12. coloque sempre o seu codigo, fica mais facil te ajudar abraço
  13. faça assim if Ping(Host) then begin Statusbar1.Panels [2].Text := (host + ' Online'); Panel1.Color := clGreen; end else begin Statusbar1.Panels [2].Text := (host + ' Offline'); Panel1.Color := clRed; end; abraço
  14. voce não pode efetuar um calculo de multiplicação por uma string ... tem que fazer a conversão Parameters[25].Value:= dm.produtostabela1.value - (dm.produtostabela1.Value * strtoint(edit1.Text) ) / 100; abraço
  15. Foi mal... desatenção minha case inc of o certo é case cc of abraço
  16. procure pelo erro no seu codigo [Error] Unit1.pas(348): '(' expected but 'OF' found. esperado um '(' e encontrado 'OF' .... deve estar na linha de comando da StatusBar Statusbar1.Panels [2].Text := (host + ' Offline'); esta na linha 348 do seu código abraço
  17. o problema esta no proprio intervalo do Timer o Timer ao ser acionado, fica valendo o intervalo de tempo que esta definido na propriedade interval exemplo Interval = 1000 // 1 segundo então usando o seu codigo procedure TForm1.Timer1Timer(Sender: TObject); begin Timer1.Enabled := false; button7.Click; Timer1.Enabled := true; sleep(5000); quando voce faz o click do botão, voce deve prever o tempo ideal para que o código que esta no botão seja executado antes que o proximo intervalo do timer seja executado experimente colocar um interval = 10000 // 10 segundos e elimine o sleep .... aumente o interval do timer até que o código do botão seja totalmente executado. Entretanto vale lembrar que a cada vez que o timer é habilitado o codigo inicial será sempre executado então faça essa mudança no timer var Form1: TForm1; cc : integer = 0; implementation {$R *.dfm} procedure TForm1.Timer1Timer(Sender: TObject); begin inc(cc); case inc of 1 : button1.Click; 2 : button2.Click; 3 : button3.Click; 4 : button4.Click; 5 : button5.Click; 6 : button6.Click; 7 : button7.Click; 8 : button8.Click; 9 : button9.Click; 10: button10.Click; 11: cc := 0; end; end; OBS: A cada intervalo do Timer, o contador será incrementado e um botão especifico será clicado abraço
  18. já experimentou colocar o nome da janela no canvas ?
  19. para o FIREBIRD 2.1 use: CHARACTER SET UTF8 COLLATE UNICODE_CI abraço
  20. Testei seu código com 3 faixas de ip e todos funcionaram ... estranho entretanto, que o código que esta no (Button1Click) tem um erro interno ( invisivel ) delete todo o código do Button1Click e reescreva abraço
  21. veja http://www.google.com.br/search?hl=pt-BR&a...0.0.wuzjE6GR-6k abraço
  22. faça um teste usando o ping do DOS e retorne o resultado
  23. exemplos http://delphi.about.com/od/database/l/aa060199.htm http://www.componentace.com/sql-query-delphi.htm http://123codegenerator.blogspot.com.br/20...tutorial-6.html abraço
  24. depois de efetuar o select, voce deve jogar os dados num combobox exemplos http://www.google.com.br/search?q=populand...combobox+delphi abraço
  25. minha dúvida fica em filtrar dados no fast report,isso é possivel? é possivel sim... veja http://www.google.com.br/search?hl=pt-BR&a...0.0.vzpWJPkXXUE abraço
×
×
  • Criar Novo...