HI,
Aconteceu esse erro com um amigo aqui do trabalho. Um componente de conexão ADO dando esse problema: Invalid enum value.
Ao clicar percebi que a propriedade Mode ficava em branco quando aparecia a mensagem de erro na tela.
Pesquisando no google dizia que era para verificar a string de conexão com o banco de dados access.
A solução achei aqui:
TADOConnection object gets Invalid Enum Value
http://qc.embarcadero.com/wc/qcmain.aspx?d=97311
Fiquem na Paz!!!
Mostrando postagens com marcador delphi. Mostrar todas as postagens
Mostrando postagens com marcador delphi. Mostrar todas as postagens
terça-feira, maio 15, 2012
quinta-feira, maio 10, 2012
Calculando a idade a partir da data de nascimento - Delphi
HI,
Precisei implementar isso hoje em uma aplicação.
Como calcular idade da pessoa a partir da data de nascimento
http://www.planetadelphi.com.br/dica/6395/como-calcular-idade-da-pessoa-a-partir-da-data-de-nascimento
Fiquem na Paz!!!
Precisei implementar isso hoje em uma aplicação.
Como calcular idade da pessoa a partir da data de nascimento
http://www.planetadelphi.com.br/dica/6395/como-calcular-idade-da-pessoa-a-partir-da-data-de-nascimento
Fiquem na Paz!!!
segunda-feira, abril 09, 2012
Operador de conjunto IN no C#
HI,
Precisei testar se um número fazia parte de um conjunto de números.
No delphi teria feito assim:
Numero := '12';
If (Numero IN ('36,187,358,378,240,50,248,96')) then begin
//número existe no conjunto
end;
E no C# ? Bem, no C# não tem o IN, tive que buscar no Google uma solução. Encontrei usando For, Contains, etc. Mas acabei optando pelo IndexOf
Numero = "12";
If ("36,187,358,378,240,50,248,96".IndexOf(Numero) != -1 )
{
//número existe no conjunto
}
Sobre a funcionalidade do IndexOf
http://www.mundoasp.net/indexof-c-sharp/
Fiquem na Paz!!!
Precisei testar se um número fazia parte de um conjunto de números.
No delphi teria feito assim:
Numero := '12';
If (Numero IN ('36,187,358,378,240,50,248,96')) then begin
//número existe no conjunto
end;
E no C# ? Bem, no C# não tem o IN, tive que buscar no Google uma solução. Encontrei usando For, Contains, etc. Mas acabei optando pelo IndexOf
Numero = "12";
If ("36,187,358,378,240,50,248,96".IndexOf(Numero) != -1 )
{
//número existe no conjunto
}
Sobre a funcionalidade do IndexOf
http://www.mundoasp.net/indexof-c-sharp/
Fiquem na Paz!!!
domingo, agosto 28, 2011
Função Split no Delphi
HI,
Estou utilizando essa função numa rotina para importar um arquivo texto delimitado.
Splitting a string in a string list
http://www.delphi3000.com/articles/article_2618.asp?SK=
Fiquem na Paz!!!
Estou utilizando essa função numa rotina para importar um arquivo texto delimitado.
Splitting a string in a string list
http://www.delphi3000.com/articles/article_2618.asp?SK=
Fiquem na Paz!!!
terça-feira, maio 10, 2011
Exibir dados a partir de uma procedure
HI,
Hoje tive uns probleminhas para exibir o resultado de uma procedure. Um cliente criou uma procedure para retornar os dados dos clientes. Nunca tinha usado isso no Delphi. Criei rapidinho uma tela para exibir esse resultado em um componente grid.
O primeiro problema que tive, e que recorri ao google, foi quando tentei setar o componente TStoredProc para true. Deu o seguinte erro: error creating cursor handle. Pesquisando no google, descobrir que só posso dá um StoredProc1.ExecProc;. Pois bem, associei um datasource ao componente StoredProc1 e em runtime, executei o ExecProc e não mostrou nada no grid. Aí pensei, deve ser por que esse troço só serve para executar comandos que não retornam dados. Foi aí que tive a idéia de dar um select na procedure e usar o componente query.
Ficou assim: Select * from Nome_Procedure. Dei um open e mostrou os resultados no Grid. Mas aí surgiu o segundo problema. Em algumas colunas tava mostrando (BYTES) ao invés do valor do campo.
Coloquei um Label para receber o conteúdo de campo, mas não mostrou nada. Label.caption := Query.FieldByName('codigo').AsString;
Fui a procura de uma rotina para converter de bytes para integer e achei esse código.
Fiz uma adaptação e criei essa função:
function BytesToInteger(Campo: TField): integer;
var MyBuffer : ^integer;
begin
with Campo do
begin
GetMem(MyBuffer, DataSize);
try
if not GetData(MyBuffer) then
result := 0
else
result := MyBuffer^;{ Do something with the data };
finally
{ Free the space }
FreeMem(MyBuffer, DataSize);
end;
end;
end;
Testei na tela e exibiu em um label o código correto, fiquei animado. Depois eu modifiquei a consulta para converter para float, com o resultado, desanimei. Mostrou o resultado em notação científica. Se eu fosse tentar resolver isso ia ficar muito complicado o código, cheio de conversões.
Foi aí que eu tive a idéia de tratar isso na query, fazendo um type cast.
A query tava assim
select codigo, nome, limite from EXPCLIENTES
Modificando a query
select cast(codigo as integer) codigo, nome, cast(limite as double precision) limite from EXPCLIENTES
Passou a apresentar corretamente os campos no Grid.
Espero que possa ser útil.
Fiquem na Paz
sábado, março 21, 2009
Retornar a data do primeiro e do último dia da semana
HI,
Estou trabalhando em uma rotina para enviar a rota da semana para os vendedores. Minha idéia foi de enviar todos os registros da semana, e não apenas do dia atual até o último dia da semana.
Então como fazer para enviar os registros que estão entre Domingo e Sábado ?
Abrir o delphi e fiz um algotimo para pegar a data do primeiro dia (Domingo) da semana e do último (Sábado) dia.
Ficou assim:
procedure TForm1.BitBtn1Click(Sender: TObject);
Var DiaSemanaHoje : Byte;
begin
DiaSemanaHoje := DayOfWeek(Date());
Edit2.Text := DateToStr(Date() - (DiaSemanaHoje - 1));
Edit3.Text := DateToStr(Date() + (7 - DiaSemanaHoje));
end;
Preciso utiliza isso no Oracle. Então lá vou eu para a home page do banco de dados (utilizo o oracle express aqui no note).
Peguei o exemplo que se encontra aqui no blog para pegar o dia da semana e bolei essa Sql:
select SYSDATE AS HOJE,
SYSDATE - (to_char(SYSDATE, 'D') - 1) AS DOMINGO,
SYSDATE + (7 - to_char(SYSDATE, 'D')) AS SABADO
from dual
Pronto. Já posso trabalhar com essa lógica no Where.
Mas aí achei um jeito mais simples, hehehe.
Pegar pelo dia da semana no ano.
Então o Where vai ficar assim (Delphi):
Sql.Add('Where to_char(SYSDATE, ''WW'') = ' + IntToStr(WeekOfTheYear(Date)));
Espero que possa ajudar mais alguém com isso.
[editando]
Mostrei esse código a um amigo que é DBA e ele me mostrou outra maneira de pegar as datas do primeiro e último dia da semana utilizando a função do NEXT_DAY do Oracle.
select sysdate AS HOJE ,
TRUNC(next_day(sysdate,'MONDAY')-8) as DOMINGO,
TRUNC(next_day(sysdate,'SATURDAY')) as SABADO
from dual
Acabei utilizando essa lógina no meu Where. É que pegando a semana do Ano deu bug, hehehe. Não retornou a Segunda e a Terça.
Where TRUNC(Data) BetWeen TRUNC(next_day(sysdate,'MONDAY')-8) and TRUNC(next_day(sysdate,'SATURDAY'))
Esse TRUNC é para retornar a data sem a parte da hora.
[/editando]
Até +
Estou trabalhando em uma rotina para enviar a rota da semana para os vendedores. Minha idéia foi de enviar todos os registros da semana, e não apenas do dia atual até o último dia da semana.
Então como fazer para enviar os registros que estão entre Domingo e Sábado ?
Abrir o delphi e fiz um algotimo para pegar a data do primeiro dia (Domingo) da semana e do último (Sábado) dia.
Ficou assim:
procedure TForm1.BitBtn1Click(Sender: TObject);
Var DiaSemanaHoje : Byte;
begin
DiaSemanaHoje := DayOfWeek(Date());
Edit2.Text := DateToStr(Date() - (DiaSemanaHoje - 1));
Edit3.Text := DateToStr(Date() + (7 - DiaSemanaHoje));
end;
Preciso utiliza isso no Oracle. Então lá vou eu para a home page do banco de dados (utilizo o oracle express aqui no note).
Peguei o exemplo que se encontra aqui no blog para pegar o dia da semana e bolei essa Sql:
select SYSDATE AS HOJE,
SYSDATE - (to_char(SYSDATE, 'D') - 1) AS DOMINGO,
SYSDATE + (7 - to_char(SYSDATE, 'D')) AS SABADO
from dual
Pronto. Já posso trabalhar com essa lógica no Where.
Mas aí achei um jeito mais simples, hehehe.
Pegar pelo dia da semana no ano.
Então o Where vai ficar assim (Delphi):
Sql.Add('Where to_char(SYSDATE, ''WW'') = ' + IntToStr(WeekOfTheYear(Date)));
Espero que possa ajudar mais alguém com isso.
[editando]
Mostrei esse código a um amigo que é DBA e ele me mostrou outra maneira de pegar as datas do primeiro e último dia da semana utilizando a função do NEXT_DAY do Oracle.
select sysdate AS HOJE ,
TRUNC(next_day(sysdate,'MONDAY')-8) as DOMINGO,
TRUNC(next_day(sysdate,'SATURDAY')) as SABADO
from dual
Acabei utilizando essa lógina no meu Where. É que pegando a semana do Ano deu bug, hehehe. Não retornou a Segunda e a Terça.
Where TRUNC(Data) BetWeen TRUNC(next_day(sysdate,'MONDAY')-8) and TRUNC(next_day(sysdate,'SATURDAY'))
Esse TRUNC é para retornar a data sem a parte da hora.
[/editando]
Até +
sexta-feira, fevereiro 27, 2009
Delphi HTML Preview
HI,
Acabei de preparar um exemplo com uma rotina que achei para visualizar um código HTML no componente WebBrowser sem precisar criar um arquivo.
Antes quando precisa exibir algo em HTML no programa, eu criava um arquivo .html com o código e caregava no componente. Mas recentemente precisei exibir um código HTML armazenado no banco de dados. Poderia ter feito no esquema que já sabia, mas decidi fazer algo mais decente, hehehe. Pegar o código e carregar diretamente no componente TWebBrowser.
Download do exemplo AQUI.
Até Mais.
Acabei de preparar um exemplo com uma rotina que achei para visualizar um código HTML no componente WebBrowser sem precisar criar um arquivo.
Antes quando precisa exibir algo em HTML no programa, eu criava um arquivo .html com o código e caregava no componente. Mas recentemente precisei exibir um código HTML armazenado no banco de dados. Poderia ter feito no esquema que já sabia, mas decidi fazer algo mais decente, hehehe. Pegar o código e carregar diretamente no componente TWebBrowser.
Download do exemplo AQUI.
Até Mais.
domingo, novembro 09, 2008
Quebra Cabeça 16 peças em Delphi
HI,
Tem mais de uma ano que fiz esse joguinho. Estava esquecido aqui em meu HD. Resolvi disponibilizar os fontes por causa de um pedido de um jogo desse em meu antigo Blog.
O código num tá muito comentando, hehehe. Se alguém tiver alguma dúvida do funcionamento é só deixar um comentário.
Um outro joguinho que fiz foi o da Senha. Esse tá disponibilizado no Baixaki e no SuperDownload (nesse foi publicado por outra pessoa).
Tela do quebra cabeça de 16 peças. Esse é com números. Tem que colocar as peças na sequencia.
Fontes
http://www.4shared.com/file/70420729/f4cb56b9/Fonte_QCabeca16.html
Até a próxima
Tem mais de uma ano que fiz esse joguinho. Estava esquecido aqui em meu HD. Resolvi disponibilizar os fontes por causa de um pedido de um jogo desse em meu antigo Blog.
O código num tá muito comentando, hehehe. Se alguém tiver alguma dúvida do funcionamento é só deixar um comentário.
Um outro joguinho que fiz foi o da Senha. Esse tá disponibilizado no Baixaki e no SuperDownload (nesse foi publicado por outra pessoa).
Tela do quebra cabeça de 16 peças. Esse é com números. Tem que colocar as peças na sequencia.
Fontes
http://www.4shared.com/file/70420729/f4cb56b9/Fonte_QCabeca16.html
Até a próxima
sexta-feira, outubro 31, 2008
Erro executando Procedure - "unknown ISC error 0"
HI,
Ontem me deparei com o erro "unknown ISC error 0". Depois de muito procurar no google não encontrei uma solução, talvez não tenha me dedicado, hehehe.
Mas ficava lembrando que a única que vez que tive problema com uma procedure no Firebird utilizando Delphi 7, foi por causa do tamanho do nome. Se não me engano o erro indicava que o problema era o tamanho, não me recordo muito bem.
Desconfiei que poderia ser esse o motivo, mas continuei no google. Estava desconfiado por que no Windows Vista as mensagens de erro nem sempre indicam o verdadeiro motivo, hehehe. Sem falar que as outras procedures estavam ok.
Foi só apagar a procedure e criá-la de novo com um nome menor que deu certo. Deveria ter tentado isso logo, hehehe.
A procedure é bem simples, serve para pegar o próximo valor de um Generator. Por isso sabia que o erro num era nela, hehehe.
Até a próxima.
Ontem me deparei com o erro "unknown ISC error 0". Depois de muito procurar no google não encontrei uma solução, talvez não tenha me dedicado, hehehe.
Mas ficava lembrando que a única que vez que tive problema com uma procedure no Firebird utilizando Delphi 7, foi por causa do tamanho do nome. Se não me engano o erro indicava que o problema era o tamanho, não me recordo muito bem.
Desconfiei que poderia ser esse o motivo, mas continuei no google. Estava desconfiado por que no Windows Vista as mensagens de erro nem sempre indicam o verdadeiro motivo, hehehe. Sem falar que as outras procedures estavam ok.
Foi só apagar a procedure e criá-la de novo com um nome menor que deu certo. Deveria ter tentado isso logo, hehehe.
A procedure é bem simples, serve para pegar o próximo valor de um Generator. Por isso sabia que o erro num era nela, hehehe.
Até a próxima.
domingo, agosto 24, 2008
Deixe seu programa mais bonito e interessante
HI,
Estou para fazer um novo programa e gostaria que ele tivesse uma aparência mais sofisticada.
Fui a procura de um componente de skin para Delphi e achei o VclSkin. Instalei no meu delphi 7 e criei um pequeno exemplo que vou disponibilizar aqui.
Esse exemplo tem o recurso de trocar a skin em tempo de execução e de carregar o último skin selecionado.
Download dos Fontes
Download do executável
Qualquer dúvida é só dizer
Até a próxima
Estou para fazer um novo programa e gostaria que ele tivesse uma aparência mais sofisticada.
Fui a procura de um componente de skin para Delphi e achei o VclSkin. Instalei no meu delphi 7 e criei um pequeno exemplo que vou disponibilizar aqui.
Esse exemplo tem o recurso de trocar a skin em tempo de execução e de carregar o último skin selecionado.
Download dos Fontes
Download do executável
Qualquer dúvida é só dizer
Até a próxima
terça-feira, agosto 28, 2007
Chat em Delphi
Certa vez tentei fazer um chat aonde o usuário movimentasse um personagem pela tela. Essa idéia era baseado no Habbo Hotel. Conheci esse serviço nesse tópico na CdMJ.
Primeira coisa que fiz foi arrumar um chat pronto em Dephi com o código fonte disponível. Dentre os que achei, decidi utilizar o CHAT WOTT que se divide em Cliente e Servidor.
Tela do Cliente
Tela do Servidor
Depois procurei aprender a movimentar um personagem pela tela. Achei um MMORPG utilizando os componentes do DelphiX. Perguei o código responsável pelo movimento e incluir no cliente do chat.
Tela do Cliente Modificado
Cheguei a fazer alguns testes com o chat que eu modifiquei. Criei um redirecionado no no-ip.com, e rodei o servidor no meu computador. A parte do chat funcionou bem. Só não terminei a parte do personagem. A intenção era que aparecesse um balão no personagem com o que o seu usuário digitou.
Links sobre o assunto na CdMJ
Quem sabe um dia eu termine esse programa.
Vou procurar o endereço do MMORPG em delphi que eu achei.
Compare Preços: Informática, Assinaturas e Revistas, Livros, E-Books, HandHeld/Palm Top, Notebook, Revistas CD-ROM, WII, Xbox 360, Zire 22
Technorati Tags: chat, delphi, mmorpg, delphix, avatar
----
Data Original: 2007-05-01 8:58:39 pm
Primeira coisa que fiz foi arrumar um chat pronto em Dephi com o código fonte disponível. Dentre os que achei, decidi utilizar o CHAT WOTT que se divide em Cliente e Servidor.
Tela do Cliente
Tela do Servidor
Depois procurei aprender a movimentar um personagem pela tela. Achei um MMORPG utilizando os componentes do DelphiX. Perguei o código responsável pelo movimento e incluir no cliente do chat.
Tela do Cliente Modificado
Cheguei a fazer alguns testes com o chat que eu modifiquei. Criei um redirecionado no no-ip.com, e rodei o servidor no meu computador. A parte do chat funcionou bem. Só não terminei a parte do personagem. A intenção era que aparecesse um balão no personagem com o que o seu usuário digitou.
Links sobre o assunto na CdMJ
Quem sabe um dia eu termine esse programa.
Vou procurar o endereço do MMORPG em delphi que eu achei.
Compare Preços: Informática, Assinaturas e Revistas, Livros, E-Books, HandHeld/Palm Top, Notebook, Revistas CD-ROM, WII, Xbox 360, Zire 22
Technorati Tags: chat, delphi, mmorpg, delphix, avatar
Powered by ScribeFire.
----
Data Original: 2007-05-01 8:58:39 pm
Jogo da Senha em Delphi
Jogo da Senha
Lançado pela Grow aqui no Brasil, lá fora tem o nome de "Master Mind". Foi criado em 1971 por Mordechai Meirovitz.
O objetivo desse jogo é descobrir a combinação e a ordem das cores que elas estão; para isso, são dadas dez tentativas.
Tinha pensado em fazê-lo em Pascal, mas como tempo é uma coisa que não disponho muito, acabei fazendo em Delphi mesmo (e em Delphi posso liberá-lo como Freeware). Comecei Sexta-Feira, 02/03/2007, umas 18:30 e estou finalizando agora, Domingo, 04/03/2007, 04:50. Pretendo tomar umas latinhas de cerva e assistir filme nesse Domingo, então me empenhei para terminar logo. A parte principal terminei logo, levei uma 3 horas, o que demorou foi a perfumaria, hehehe. Coloquei recurso de tempo, cadastro dos recordes, jogar usando o mouse ou o teclado, configurações, etc.
Já tinha feito em Pascal quando estudava, mas eu perdi o código.
Tela do Jogo
Download: Clique Aqui.
Uma jogada que fiz agora
PS1: Não estou disponibilizando os fontes, só o executável.
PS2: Joguem e divulguem o tempo aqui no comentário. O desafio está lançado, hehehe.
Compare Preços: Jogos, NoteBook Infantil, Brinquedos Eletrônicos, Informática, Livros, E-Books, WII, Xbox 360, Zire 22
----
Data Original: 2007-03-04 5:12:14 am
Lançado pela Grow aqui no Brasil, lá fora tem o nome de "Master Mind". Foi criado em 1971 por Mordechai Meirovitz.
O objetivo desse jogo é descobrir a combinação e a ordem das cores que elas estão; para isso, são dadas dez tentativas.
Tinha pensado em fazê-lo em Pascal, mas como tempo é uma coisa que não disponho muito, acabei fazendo em Delphi mesmo (e em Delphi posso liberá-lo como Freeware). Comecei Sexta-Feira, 02/03/2007, umas 18:30 e estou finalizando agora, Domingo, 04/03/2007, 04:50. Pretendo tomar umas latinhas de cerva e assistir filme nesse Domingo, então me empenhei para terminar logo. A parte principal terminei logo, levei uma 3 horas, o que demorou foi a perfumaria, hehehe. Coloquei recurso de tempo, cadastro dos recordes, jogar usando o mouse ou o teclado, configurações, etc.
Já tinha feito em Pascal quando estudava, mas eu perdi o código.
Tela do Jogo
Download: Clique Aqui.
Uma jogada que fiz agora
PS1: Não estou disponibilizando os fontes, só o executável.
PS2: Joguem e divulguem o tempo aqui no comentário. O desafio está lançado, hehehe.
Compare Preços: Jogos, NoteBook Infantil, Brinquedos Eletrônicos, Informática, Livros, E-Books, WII, Xbox 360, Zire 22
powered by performancing firefox
----
Data Original: 2007-03-04 5:12:14 am
Folha Livre
Tem um tempão que participo desse grupo, mas nunca contribui com o projeto, fico só lendo as mensagens. É bom saber que existem iniciativas como essa no Brasil.
O FolhaLivre (c) é um projeto de desenvolvimento de um software livre para processamento de folhas de pagamento baseado nos termos da GNU Public License conforme publicada pela Free Software Foundation.
Atualmente o sistema está sendo desenvolvido em Delphi 6 acessando o firebird.
Principais Recursos
Site do Projeto: http://folha-livre.sourceforge.net/
Lista: http://br.groups.yahoo.com/group/folha_livre/
Technorati Tags: folha livre, pagamento, sistema, open source
----
Data Original: 2007-02-25 2:37:35 am
O FolhaLivre (c) é um projeto de desenvolvimento de um software livre para processamento de folhas de pagamento baseado nos termos da GNU Public License conforme publicada pela Free Software Foundation.
Atualmente o sistema está sendo desenvolvido em Delphi 6 acessando o firebird.
Principais Recursos
- MultiEmpresa - Para atender aos escritórios de contabilidade;
- MultiUsuario - Poderá ser utilizado por vários usuários ao mesmo tempo;
- Controle de acesso - Será possivel cadastrar os usuários e suas permissões;
- Possibilidade de gerar quantas folhas desejar no mês;
- Controle total sobre os eventos (verbas) do sistema;
- Possibilidade de programar os eventos por tipo de folhas, empresa, sindicato;
- Lançamento automáticos por funcionário conforme tipo de folha e competência;
- Personalizar as fórmulas dos eventos;
- Tabelas de cálculos, índices e valores fixos personalizados;
- Cadastro de Salário mínimo, salário-Família, IRRF, INSS, FGTS;
- Todos os relatórios poderão ser visualizados antes da impressão;
- Todos os relatórios poderão ser impressos em matricial no modo texto (rápido);
Site do Projeto: http://folha-livre.sourceforge.net/
Lista: http://br.groups.yahoo.com/group/folha_livre/
Technorati Tags: folha livre, pagamento, sistema, open source
powered by performancing firefox
----
Data Original: 2007-02-25 2:37:35 am
Teclas de atalho do Delphi
Confira algumas teclas de atalho do Delphi.
Quando eu não conhecia o Ctrl+Shift+I e o Ctrl+Shift+U, era um trabalhão danado para identar o código, hehehe.
Outras dicas de teclas de atalho
http://www.devmedia.com.br/visualizacomponente.aspx?comp=3067&site=3
http://scriptbrasil.com.br/forum/lofiversion/index.php/t89960.html
Technorati Tags: teclas, atalho, delphi, identar código
----
Data Original: 2007-02-17 6:51:25 pm
Quando eu não conhecia o Ctrl+Shift+I e o Ctrl+Shift+U, era um trabalhão danado para identar o código, hehehe.
Outras dicas de teclas de atalho
http://www.devmedia.com.br/visualizacomponente.aspx?comp=3067&site=3
http://scriptbrasil.com.br/forum/lofiversion/index.php/t89960.html
Technorati Tags: teclas, atalho, delphi, identar código
powered by performancing firefox
----
Data Original: 2007-02-17 6:51:25 pm
segunda-feira, agosto 27, 2007
Capturando imagens da WebCam no Delphi
Utilizo o DSPack para capturar imagens da WebCam em meus sistemas. Na verdade, até agora só precisei utilizar uma vez.
Coloquei em uma tela de cadastro de funcionários, para que seja capturada a foto no momento do cadastro, agilizando o processo de confecção de crachás. A pessoa que me indicou esse pacote de componentes utiliza em um sistema de controle de acesso. Quando chega um visitante, tiram a foto e imprimem uma etiqueta de identificação.
Salvei duas telas da janela que captura a imagem. Essa tela é de um demo que vem junto do pacote. Aproveitei no sistema. Não reparem na qualidade da WebCam e do modelo, hehehe. Como tirei agora de noite, não ficou bem, mesmo ligando a luminária.
Obtendo a imagem da WebCam
Capturando a Foto.
Depois a imagem capturada é salva (utilizando o botão Salvar) no disco, e quando a janela é fechada, o caminho é armazenado no cadastro do funcionário.
Download DSPack, clique aqui
DSPack is a set of Components and class to write Multimedia Applications using MS Direct Show and DirectX technologies. DSPack is designed to work with DirectX 9 on Win9X, ME, 2000, and Windows XP operating systems. Now VMR (Video Mixing Renderer) is available on all Windows Operating Systems. DSPack 2 is designed to work with Delphi 5,6,7 and CPP Builder 6.
DSPack on Sourceforge
Technorati Tags: Delphi, DSPack, WebCam, Capturar
Compare Preços: WebCam, Controle de Acesso, Impressão Digital, Código de Barras, Livros, E-Books, WII, Xbox 360, Zire 22
----
Data Original: 2007-01-27 8:30:27 pm
Coloquei em uma tela de cadastro de funcionários, para que seja capturada a foto no momento do cadastro, agilizando o processo de confecção de crachás. A pessoa que me indicou esse pacote de componentes utiliza em um sistema de controle de acesso. Quando chega um visitante, tiram a foto e imprimem uma etiqueta de identificação.
Salvei duas telas da janela que captura a imagem. Essa tela é de um demo que vem junto do pacote. Aproveitei no sistema. Não reparem na qualidade da WebCam e do modelo, hehehe. Como tirei agora de noite, não ficou bem, mesmo ligando a luminária.
Obtendo a imagem da WebCam
Capturando a Foto.
Depois a imagem capturada é salva (utilizando o botão Salvar) no disco, e quando a janela é fechada, o caminho é armazenado no cadastro do funcionário.
Download DSPack, clique aqui
DSPack is a set of Components and class to write Multimedia Applications using MS Direct Show and DirectX technologies. DSPack is designed to work with DirectX 9 on Win9X, ME, 2000, and Windows XP operating systems. Now VMR (Video Mixing Renderer) is available on all Windows Operating Systems. DSPack 2 is designed to work with Delphi 5,6,7 and CPP Builder 6.
DSPack on Sourceforge
Technorati Tags: Delphi, DSPack, WebCam, Capturar
Compare Preços: WebCam, Controle de Acesso, Impressão Digital, Código de Barras, Livros, E-Books, WII, Xbox 360, Zire 22
powered by performancing firefox
----
Data Original: 2007-01-27 8:30:27 pm
Utilizando MyBase
Este exemplo que bolei é para demonstrar a utilização da tecnologia MyBase. Com ela é possível trabalhar com banco de dados sem precisar utilizar o BDE ou um SGBD. Só não é possível trabalhar em rede.
Um programa que fiz usando MyBase foi o Timer Trab.
Faça o download do exemplo lá no meu forum.
Para saber mais sobre o assunto visitem um artigo que existe no Linha de Código.
Falows
----
Data Original: 2006-03-31 1:19:49 am
HTML Help
Finalmente conseguir criar meu primeiro HTML Help, e olha que faz tempo que isso existe, hehehe.
Nunca que me dei bem com o Html Help Workshop. Até comecei a fazer alguns help, mas sempre desistia.
A primeira vez que fiz um Help ainda foi no colegio, em 97, usando o HelpScribble. Mas nesse tempo era no formato WinHelp.
Ainda bem que tive a sorte de ver um link sobre programa para criar help no formato html. Foi uma dica numa lista sobre delphi que participo, sobre programas que estão lá no Superdownloads.
Peguei o único freeware que tinha na lista, o HelpNDoc.
E agora tou doido para fazer um monte de help para meus sistemas. É muito fácil de utilizar esse programa, até minha filha de 5 anos faz um help nesse programa, hehehe.
E ele ainda gerar uma versão do help para ser publicado na internet. Vejam o help online do Timer Trab.
Para compilar o help é preciso ter instalado o Html Help Workshop, faça o download aqui ou visite o site.
Download de exemplos para delphi.
Falows
----
Data Original: 2006-03-23 1:46:00 am
domingo, agosto 26, 2007
EasyAlmox 2.0
Coloquei hoje no meu forum essa nova versão de um Controle de Almoxarifado que eu tenho.
O propósito desse sistema é para o aprendizado do Delphi, Firebird e técnicas de programação, DBExpress, ClientDataSet, etc.
Para compilar o código fonte é preciso ter o RxLib e o JEDI instalados no Delphi.
Essa versão está em Delphi 7.
Acesse meu forum e baixe o código fonte
dprogrammer forum
Essa área do forum será utilizada para tratar exclusivamente desse sistema. Estarei sempre implementando melhorias nesse código. Caso precisem de ajuda, queiram contribuir, dar sugestões, utilizem essa área.
Espero vocês lá
Falows
----
Data Original: 2006-01-24 2:39:46 am
O propósito desse sistema é para o aprendizado do Delphi, Firebird e técnicas de programação, DBExpress, ClientDataSet, etc.
Para compilar o código fonte é preciso ter o RxLib e o JEDI instalados no Delphi.
Essa versão está em Delphi 7.
Acesse meu forum e baixe o código fonte
dprogrammer forum
Essa área do forum será utilizada para tratar exclusivamente desse sistema. Estarei sempre implementando melhorias nesse código. Caso precisem de ajuda, queiram contribuir, dar sugestões, utilizem essa área.
Espero vocês lá
Falows
----
Data Original: 2006-01-24 2:39:46 am
Assinar:
Postagens (Atom)