Re: RES: [delphi-br] Como posso colocar a data do PC no sistema -
Walter, Eu tambem tenho muita curiosidade em como proteger um sistema. No caso de uma contrasenha para validar o uso do sistema, um cracker poderia utilizar um disassembler, tipo o softice, para conseguir burlar a checagem de dados. Na maioria dos casos, bastaria mudar uma simples instrucao assembly, tipo um JE por um JNE, para conseguir a validacao do mesmo. Voce sabe se ha no mercado algum meio *mais* eficaz (sei que nao ha nada 100% protegido) para efetivar o uso do software? Tipo, somar todos os bytes do arquivo para ver se esta ok... --- Em delphi-br@yahoogrupos.com.br, Walter Alves Chagas Junior [EMAIL PROTECTED] escreveu Existem várias formas de você se proteger disto, vão desde o uso do Hardlock até a validação do serial físico do HD (Não é o numero do volume). Vai depender do que você sabe em termos de técnicas de proteção contra cópia em relação a sua criatividade. Saiba de antemão, que nas técnicas de proteção é que estão os algorítmos mais complexos que existem, dada a necessidade complexa mesmo de validar algo que não seja facil de ser desvalidado. Nos ultimos tempos, muitos aqui tem chegado a conclusão sensata de que o melhor meio de se proteger conta isto, é a metodologia da senha fornecida ao cliente mediante a contra senha passada por ele. Voce gera um numero com base em dados existentes na maquina (Data de criação do diretório + Volume do HD + CNPJ da empresa +...) com estes dados voce gera uma contra-senha. Com estra contra-senha, você irá gerar uma senha que será passada para o cliente e validará o programa. Assim voce tem controle de quantas vezes ele está instalando o programa e se o está fazendo em mais de uma máquina. []s Walter Alves Chagas Junior Projeto e desenvolvimento Telemont Engenharia de telecomunicações Belo Horizonte - MG - Brazil [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: campo numerico
Ocorre ao inserir e mudar o foco do componente ou ao percorrer a tabela? Nao é o campo da tabela que está vazio? -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Problemas com IF then Else
Desculpe, nao entendi direito a pergunta... Mas acho melhor voce considerar a criacao de funcoes especificas para determinadas tarefas. Aninhar ifs torna o codigo ilegivel e de dificil manutencao, use somente em casos *realmente* necessarios =))) -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Inserir - Gravar no dbgrid
Por exemplo, se for Paradox utilize no botao incluir = if not qrInserir.Active then qrInserir.Open; qrInserir.Insert; Coloque um TUpdateSQL e coloque a sql correspondente, nao esqueca de liga-o a query pela propriedade UpdateObject. No evento qrInserir.AfterPost coloque o codigo para salvar fisicamente os dados na tabela (quando o usuario mudar de linha, o dbgrid dispara o post ) --- Em delphi-br@yahoogrupos.com.br, Eduardo Silva ® [EMAIL PROTECTED] escreveu Galera, tenho um sistema onde existe um dbgrid e dois botões (incluir e excluir). Como eu faço para clicar no botão de incluir, grvas os dados no dbgrid e grava-los? Lembrando que eu não terei o botão de gravar, apenas os dois como mencionado. ~\\|//~ -(o o)- o--oOOOo--(_)--oOOOo-o || | Eduardo de Almeida Silva | | Câmara Municipal de Lençóis Paulista | | [EMAIL PROTECTED] - (14)3263-0326 | || |.oooO Oooo. | o( )---( )---o \ ( ) / \_) (_/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: ** DÚVIDA - URGENTE **
Talita, Use StringReplace para mudar uma string por outra. Fiz uma pequena funcao para ilustrar, os 2 arrays devem ter o mesmo tamanho, sendo que o indice de um deve conter a conversao do outro. function ConverteString (str: string):string; var sConvert : array of string; sConverted : array of char; i : integer; begin SetLength (sConvert,3); SetLength (sConverted,3); sConvert[0] := '1/4'; sConvert[1] := '1/2'; sConvert[2] := '3/4'; sConverted[0] := Char(188); sConverted[1] := Char(189); sConverted[2] := Char(190); for i := Low(sConvert) to High(sConvert) do str := StringReplace (str,sConvert[i],sConverted[i],[rfReplaceAll]); Result := str; end; --- Em delphi-br@yahoogrupos.com.br, Talita - \(Compras Encapa\) [EMAIL PROTECTED] escreveu Olá! Seguinte, estou precisando de um código em Delphi, que converta um número fracionário (1/2) para ½ . Tipo, entram 3 caracteres e converte em apenas 1. Mas que atenda todos os número fracionários digitados, digo, qualquer um que tiver a barra /, ele converta/desenhe para o número fracionário. Deu pra entender + ou - ?? Por exemplo: Entrada: 1/2 Saída: 1 -- 2 Aguardo, retorno o quanto antes possível. Muito obrigada! A[]'s Talita [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Pegar Dia do Aniversário e Exibir Nome
Eu acho que voce ja poderia obter o dia e mes do campo DT_NASCIMENTO:
Para exibir todos, caso a busca retorne mais de um:
var
str : TStringList;
begin
str := TStringList.Create;
str.Add ('Aniversariantes deste dia');
str.Add ('');
for i:=0 to DataSet.RecordCount -1 do
begin
Contato := DataSet.FieldByName('NM_CONTATO');
Aniversario := FormatDateTime
('dd/mmm',DataSet.FieldByName('DT_NASCIMENTO');
str.Add(Contato + ':' + Aniversario);
DataSet.Next;
end;
ShowMessage (str.Text);
str := nil;
end;
--- Em delphi-br@yahoogrupos.com.br, Eduardo Silva ® [EMAIL PROTECTED]
escreveu
Galera, tenho os seguintes campos na minha tabela (paradox)
NM_CONTATO, DT_NASCIMENTO
NM_CONJUGUE, DT_NASCIMENTOCONJ
Para pegar o dia e o mes do aniversario eu uso o código abaixo:
SELECT SIAE0101.NM_CONTATO, SIAE0101.DT_NASCIMENTO,
SIAE0101.NM_CONJUGUE, SIAE0101.DT_NASCIMENTOCONJ,
EXTRACT (DAY FROM SIAE0101.DT_NASCIMENTO) AS NR_DIA,
EXTRACT (MONTH FROM SIAE0101.DT_NASCIMENTO) AS NR_MES,
EXTRACT (DAY FROM SIAE0101.DT_NASCIMENTOCONJ) AS NR_DIA2,
EXTRACT (MONTH FROM SIAE0101.DT_NASCIMENTOCONJ) AS NR_MES2
FROM SIAE0101
WHERE EXTRACT(DAY FROM SIAE0101.DT_NASCIMENTO) = dia1
AND EXTRACT(MONTH FROM SIAE0101.DT_NASCIMENTO) = mes1
OR EXTRACT(DAY FROM SIAE0101.DT_NASCIMENTOCONJ) = dia1
AND EXTRACT(MONTH FROM SIAE0101.DT_NASCIMENTOCONJ) = mes1
Agora, eu gostaria de saber como fazer para exibir o nome e a data do
aniversario(dia e mes) em um messagebox ou showmessage.
Falo isso porque, eu quero exibir apenas o nome do Contato ou do
Conjugue,
pois no resultado da tabela vem os dois campos com as duas datas e eu
preciso hora de uma (contato), hora de outra (conjugue).
Alguém pode me dar uma luz?
Obrigado.
~\\|//~
-(o o)-
o--oOOOo--(_)--oOOOo-o
||
| Eduardo de Almeida Silva |
| Câmara Municipal de Lençóis Paulista |
| [EMAIL PROTECTED] - (14)3263-0326 |
||
|.oooO Oooo. |
o( )---( )---o
\ ( ) /
\_) (_/
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Re: Nao mostrar formulario apos CreateForm
É por isso que esse forum esta a tantos anos ativo, otima qualidade Era isso mesmo Vitor, obrigadao =) --- Em delphi-br@yahoogrupos.com.br, Vitor Luiz Redes [EMAIL PROTECTED] escreveu Veja se a propriedade Visible do seu Form está = True... constructor TVitor.Create( AOwner : TProgrammer ); begin Name := 'Vitor Redes'; Login := 'vredes'; Password := '**'; City := 'Curitiba'; Employee := 'Redsystem'; inherited Create( AOwner ) end; end. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: CFOP Detonado - Off
Eu tambem sou leigo em CONTABILIDADE e passo pelo mesmo problema... Aqui tem a descricao das CFOPS http://www.sef.rj.gov.br/legislacao/tributaria/decretos/2000/ricms/images/cfop.shtml#5.000 ve se te ajuda -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Debugger do D7 nao funciona
Obrigado, Paulo Sergio... Era isso mesmo =) -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Re: Debugger do D7 nao funciona
Walter Chagas, muito obrigado... Desmarquei Optimization e marquei Stack Frames... Era isso... --- Em delphi-br@yahoogrupos.com.br, Walter Alves Chagas Junior [EMAIL PROTECTED] escreveu Vai no menu Project | Options - Orelha Compiler Verifique se: - A checkbox Optimization está marcada. Se estiver desmarque ela. - A checkbox Debug information está marcada Se estiver desmarcada, marque ela. Depois vá em Tools | Debugger Options Verifique se: - A checkbox Integrated Debugging está marcada. Se NÃO estiver marque ela. []s Walter Alves Chagas Junior Projeto e desenvolvimento Telemont Engenharia de telecomunicações -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Debugger do D7 nao funciona
Sim, eu tentei. Em qualquer projeto que abra, qdo compilo, o breakpoint fica invalido (ao invez da bolinha vermelha, fica um x). Estranho, é a primeira vez q acontece... --- Em delphi-br@yahoogrupos.com.br, Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu Experimentou fazer um Build All no seu projeto? []s -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Debugger do D7 nao funciona
Uso o Delphi 7 e para colocar um breakpoint, utilizo a tecla F5. Mas quando comeco a compilar, aquela marca fica com um (x) e a linha marcada, ao invez de vermelho, fica em verde. Ou seja, o breakpoint fica invalido. Isso acontece em qualquer parte de meu codigo. Isso acontece em qualquer aplicativo que eu inicie. Devo incluir alguma directiva ou meu debugger pifou? -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Permissoes no Firebird
Colegas, estou com outra duvida. No programa que desenvolvo, preciso colocar um sistema de permissoes de usuarios. Criei uma tabela com o nome de usuario e suas permissoes (ver,alterar, apagar). Mas no inicio do programa, eu preciso conectar a base de dados, com a senha de master, para pegar as permissoes daquele terminal. Nao ha como algum cracker obter essa senha e acabar com minha base de dados? Ou ha como criar um usuario que possa somente acessar a tabela PERMISSOES? -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Palette de componentes sumiu
Ja tentou ir em Components/Install Packages? --- Em delphi-br@yahoogrupos.com.br, Alfeu Marcatto [EMAIL PROTECTED] escreveu Tenho num cliente o Delphi 5 instalado em Windows 2000 Professional numa rede com win 2000 server. O servidor foi reinstalado e, mesmo sem mudança no nome do domínio, o terminal win2000 não o reconheceu. Tive que fazer o processo de identificação do domínio novamente usando o assistente para identificação da rede. Estou usando o mesmo nome de usuário. A palette de componentes do Delphi 5 sumiu completamente. Há como recuperá-la sem instalar tudo de novo? Grato Alfeu -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Número Serial Físico do HD
Amigo, veja essa dica,que é muito boa, do Boletim Pascal http://latiumsoftware.com/br/pascal/0044.php#4 --- Em delphi-br@yahoogrupos.com.br, Alan Silveira [EMAIL PROTECTED] escreveu Alguém conheçe alguma maneira de retornar o número de série físico do HD, porque aquela rotina conhecida só retorna o número serial gerado na instalação no windows, este número pode inclusive ser alterado via regedit O que eu realmente queria era uma hardware id, alguns jogos online registram essa id como uma GUID de hardware quando você é banido por ela só consegue voltar a entrar online trocando o HD, não adianta nem reinstalar o windows, era este tipo de id que gostaria de gerar pelo delphi, se alguém souber de alguma alternativa, obrigado. ___ Yahoo! Messenger com voz: PROMOÇÃO VOCÊ PODE LEVAR UMA VIAGEM NA CONVERSA. Participe! www.yahoo.com.br/messenger/promocao -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
