-
Total de itens
9.657 -
Registro em
Tudo que Jhonas postou
-
Exception EOleException in module Aplicativo.exe at 000E40A.
pergunta respondeu ao RAFFAEL 1983 de Jhonas em Delphi, Kylix
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 -
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
-
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
-
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
-
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
-
(Resolvido) Setando NULL quando valor for vazio
pergunta respondeu ao SCIENTIST de Jhonas em Delphi, Kylix
if cds_campodatabela.value = '' then cds_campodatabela.value := null; if cds_campodatabela.value = '' then cds_campodatabela.value := clear; abraço -
Envio de e-mails no Delphi 2007
pergunta respondeu ao Paulo Henrique de Assis de Jhonas em Delphi, Kylix
veja o ultimo post http://www.devmedia.com.br/forum/enviando-...phi-2007/386460 abraço -
(Resolvido) Erro Exception EReadError in module rtl70.bpl na maquina d
pergunta respondeu ao valtino de Jhonas em Delphi, Kylix
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 -
mais detalhes veja http://delphi.wikispaces.com/datasnap5 abraço
-
(Resolvido) Erro Exception EReadError in module rtl70.bpl na maquina d
pergunta respondeu ao valtino de Jhonas em Delphi, Kylix
copie a rtl70.bpl do seu micro para o micro cliente abraço -
sim... facilita o uso para o usuario abraço
-
coloque sempre o seu codigo, fica mais facil te ajudar abraço
-
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
-
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
-
Foi mal... desatenção minha case inc of o certo é case cc of abraço
-
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
-
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
-
já experimentou colocar o nome da janela no canvas ?
-
para o FIREBIRD 2.1 use: CHARACTER SET UTF8 COLLATE UNICODE_CI abraço
-
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
-
veja http://www.google.com.br/search?hl=pt-BR&a...0.0.wuzjE6GR-6k abraço
-
faça um teste usando o ping do DOS e retorne o resultado
-
(Resolvido) Trocando Tables por Queries - Algum material?
pergunta respondeu ao Arthur de Andrade de Jhonas em Delphi, Kylix
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 -
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
-
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