Daniel Sanches

não entendi direito o que precisa ... você quer saber qual o driver que o CD está ???

já tentou o try...except ?? try TABELA.Post; except on E: Exception do begin MessageDlg('Erro ao salvar o registro.'+#13+#13+E.Message,mtError,[mbOk],0); TABELA.CancelUpdates; end; end; abraços !!!

mais uma vez obrigado jhonas !!! agora acho que tenho o suficiente pra começar a "fuçar"... abraços !!

obrigado jhonas !!! ajudou muito ... agora só preciso de algo mais instrutivo para fazer a interface com o Delphi... o que recomendaria ?? apostilas, livros ?? já estou pensando na aquisição do leitor, porém, gostaria de ler e entender bastante sobre o assunto antes da compra ... obrigado !! abraços !!!

ok !!! os tópicos falam muito sobre a comunicação serial ... pelo que vi, a maioria se comunica via USB... minha maior dúvida (ou não vi nos tópicos ou não entendi): como seria a integração da Biometria com o Delphi ?? tipo: o leitor de código de barras funciona como uma entrada de teclado, enviando uma string... e o leitor Biométrico ?? ele envia uma imagem para o PC ou ele converte em código ?? esse código é binário ?? dúvidas básicas, porém não consegui encontrar nada a respeito ... abraços !!!

isso você vai ter que fazer em tempo de execução: SpeedButton.Caption:= 'F4'+#13+'Funcionário'; abraços !!!

Alguém tem algum artigo ou algum link que fala tudo sobre Biometria (Impressões Digitais) ???? gostaria de algo completo, que fala como funciona o leitor, como ele lê e identifica as digitais ... a interação com o Delphi eu me preocupo depois... desde já obrigado ... abraços !!!

pelo que entendi, você quer exibir algo em cada X dias, mas, o seu sistema fica ativo o tempo todo, todo dia ??? ninguém nunca sai do sistema ??? não há possibilidade de o sistema "cair" devido falta de energia, "pau" no windows, nada ?? post melhor o que você tem idéia de fazer para ajudar melhor ... abraços !!

no exemplo do nosso amigo jonas, já fála tudo: coloque a função no evento OnDrawPanel ... abraços !!

vamos supor que o arquivo.jpg tenha a resolução 1024x768... vamos supor que seu objeto TImage tenha a resolução 640x480... se você carregar o arquivo.jpg no seu TImage, ele vai carregar apenas parte do arquivo.jpg (640x480), a contar do topo=0 e esquerda=0 ... tem uma propriedade "Center" no TImage, que se estiver = True, o TImage irá carregar apenas parte do arquivo.jpg (640x480), a contar do centro .... tem uma propriedade "Stretch" no TImage, que se estiver = True, o Timage irá reduzir o arquivo.jpg para 640x480, exibindo toda a imagem .... (porém, deve-se tomar cuidado para que, se mantenha a proporção da imagem, para que ela não fique destorcida) ... se não for isso que deseja, post novamente ... abraços !!!

esse campo que você precisa (que é tipo texto) . como estão os dados nele ?? se o campo é tipo texto, mas os dados são numéricos (1,2,3) ... você consegue fazer essa conversão do campo no banco sem problemas, mas se tem algum caracter não numérico, você terá que criar um novo campo tipo numérico no banco e fazer a transferência de um campo no outro, fazendo a conversão necessária...

você tem que ver no seu banco de dados ... como está a estrutura da sua tabela ???

qua os tipos dos campos ??? se não me engano, no DbChart você só vai conseguir acessar os campos tipo numéricos (integer, double, etc...) ... faça uns teste aí ... abraços !!

qual o tamanho do TImage ??? qual o tamanho da Imagem que está carregando ??? se você quiser reduzir ou ampliar a imagem, conforme o tamanho do TImage, use a propriedade Stretch = True (no TImage) ... se não for isso, post novamente ... abraços !!

o problema está no parâmetro passado ... DM.ADOQuery_bt4.Parameters.ParamByName('tempo_de_execucao').Value := FormatDteTime('hh:mm:ss',(finalt - iniciot)); como você está utilizando este parâmetro ??? você pode passar direto ao campo: DM.ADOQuery_bt4.FieldByName('tempo_de_execucao').Value:= FormatDteTime('hh:mm:ss',(finalt - iniciot)); abraços !!!

post o código aki pra dar uma olhada ... está exatamente igual ao que te passei ???

sim ... o nome que está no banco, tem que ser exatamente igual ao do sistema ... se o banco de dados aceita nome de campos com espaços em branco, evite usá-los para evitar erros ... sempre use underline (_) para separação... abraços !!!

realmente eu errei em uma coisa ... o nome do campo está errado, não pode ter espaço em branco ... no caso ficaria assim: var iniciot, finalt: TTime; begin iniciot:= now; sleep(10000); finalt:= now; DM.ADOQuery_bt4.Parameters.ParamByName('tempo_de_execucao').Value := FormatDteTime('hh:mm:ss',(finalt - iniciot)); end;

qual o tipo do campo 'tempo de execução' ??? a função FormatDateTime retorna string... pelo que entendi, você quer salvar a diferença entre os 2 tempos no campo 'tempo de execução', correto ?? tente algo assim: var iniciot, finalt: TTime; begin iniciot:= now; sleep(10000); finalt:= now; DM.ADOQuery_bt4.Parameters.ParamByName('tempo de execucao').Value := FormatDteTime('hh:mm:ss',(finalt - iniciot)); sendo: sendo: o campo 'tempo de execucao' do tipo String... iniciot e finalt do tipo Time... abraços !!!

sim, isso resolveu !!! mas acabei de receber outra idéia em outro fórum: overload. assim, o delphi chama a função que mais se adequar à quantidade de parâmetros ... foi uma idéia legal !! fica a dica no tópico ... abraços !!!

fiz uma função que passa 4 parametros: (CorComFoco, CorFontComFoco, CorSemFoco, CorFontSemFoco) porém, gostaria de que, se não passar algum parâmetro, ele simplesmente deixa como está e não altera a Cor/Fonte ... mas eu posso passar apenas o primeiro e o terceiro parametro e os demais não passaria valor algum, ou passaria o primeiro e o quarto e os demais sem valor, resumindo, passaria apenas alguns parâmetros ... resolvi o meu problema passando um parâmetro que será checado dentro da função, tipo, se passar o valor 0, deixa como está ... espero ter conseguido explicar ... mesmo assim, obrigado !!! abraços !!!

alguém sabe se no Delphi existe uma forma fazer uma função com alguns parâmetros opcionais ??? pensei em fazer um array como parâmetro, porém, não ficaria muito bom .... abraços !!!

obrigado pela atenção !!! abraços !!

eu utilizo assim: FormatFloat('0000',Valor); abraços !!

resolvi o problema colocando assim (vi em outro forum): procedure TdsDBEdit.setFocoExit(var Message: TCMExit); begin inherited; Color:= fCorNaoFocado; Font.Assign(fFontNaoFocado); end; agora, sinceramente, nunca estudei a respeito do inherited... você teria uma explicação básida da sua função e o porque ele resolveu o meu problema assima ??? abrigado !!!