valSistemasDelphi

var contador: integer; begin Contador :=IBTable1.RecordCount; Edit1.Text := floattostr(Ibtable1.RecordCount + 1); Desta forma deu certo. \o/.. Com sua lógica que você me passou consegui montar o código, vivendo e aprendendo .!

var contador: integer; begin contador:=Ibtable1.fieldbyname('Registro').asinteger + 1; Estou no caminho certo jhonas?

Como eu gero Registros De Cadastro automaticamente, sem o Auto Incremento. Tipo um contador que vai contar os registros. Não achei nada na internet que me ajude. Eu estou usando o IBTABLE, eu tinha esse código mais meu pc deu problema no hd e perdi tudo! Me Parece que cria uma variavel COD, E no caso o Edit1 Recebe, não sei muito bem se e isso.

Consegui achar o tópico que resolve valeu

Procurei no Fórum mais não encontrei, por isso da dúvida! Quero saber como salvar uma Imagem jpg, png, todo tipo, no Banco de Dados. Ao clicar em um Button. Não consigo encontrar tópicos antigos meus que estão resolvidos no Fórum, tem como encontrar ?

Estou com um problema no Delphi, e desde ontem não consegui resolver. Ex: Estava com um erro no Código de uma Aplicação, Ai resolvi excluir esse projeto e começar um novo, mais o mesmo projeto mais com o código funcionando! só que eu acho que o Delphi guardou na memória sei lá, porque não para de da erro! Ao apertar F8, ele cai nessa tela! Depois que começou esses erros tudo que tento guardar no Arquivo TXT, ele estã guardando de maneira errada. O certo era linha por linha. o que mata quem programa em Delphi e isso daí , o sistema uma hora ta de boa, na outra aparece erros.

beleza, vou pesquisar mais aqui a respeito

Como fazer que um programa detecte alterações por exemplo em um arquivo TXT qualquer? Exemplo: Fiz um trabalho, e salvai na data de hoje 27/11/2018. Vamos supor que fiz alteração no Dia 28/11/2018. Quero que o programa tipo Bloqueie o acesso, a algo importante no sistema, porque ele salvou dia 27, mais o arquivo foi alterado de algum modo, e não pode ser alterado esse arquivo impotetico .

Aqui estou postando minha contribuição. Resolvi esse problema da seguinte forma. TForm2 = class(TForm) private { Private declarations } protected procedure CreateParams(var Params: TCreateParams); override; public { Public declarations } end; implementation {$R *.dfm} procedure TForm2.CreateParams(var Params: TCreateParams); begin inherited; Params.ExStyle := Params.ExStyle OR WS_EX_APPWINDOW; end; O Problema está no comando "HIDE" Com o form Desativado consequentemente também Desativa o ícone De aparecer na Barra de tarefas, e com esses comandos, força o segundo form a aparecer

Tenho um dúvida mais não estou conseguindo resolver. Tenho um form Progresso Bar, que ao chegar em 100%, ele chama o Form Principal.Ex: ProgressBar1.Position := ProgressBar1.Position + 10;if (ProgressBar1.Position = 100) thenbeginForm1.Show;form2.Hide;Timer1.Enabled:= false;Só que quando a aplicação principal abre, o ícone da aplicação não fica mais "ativo" na aba de tarefas.Problema nisso? nenhum.Mais no visual fica pobre o sistema. por exemplo, o cara entra na internet para pesquisar, o sistema fica escondido, ai a pessoa tem que sair de tudo para poder assim aparecer a tela do sistema. Agora quando o sistema fica ativo na Barra de tarefas e só clicar e o sistema aparece. Espero ter sido claro na minha dúvida.

Dicas Válidas!!

Galera uma pergunta! Desenvolvi um programa em Delphi por exemplo, Como faço para ganhar dinheiro com esse software, mesmo Depois que eu vendi ele para um cliente por exemplo? Quero Sugestões. Porque aqui onde eu moro, não existe esse negócio de programação nem nada, então to meio por fora.

Show De Bola! Valeu Jhonas

Gostaria de saber como faço para que uma aplicação minha por exemplo, receba atualizações. Tipo o cara tem um programa meu Trial, ai vence o prazo, ai para atualizar a versão estendida, como faço isso? Tipo Quero fazer alterações no programa, vamos supor que 10 pessoas tem instalados nas suas maquinas o programa. Assim que eu alterar a aplicação quero, que eles já tenho a aplicação nova.

Quero saber como posso desenvolver um sistema, que seja tipo compativel para windows xp. Sabemos que a Microsoft encerrou as atualizações para esse sistema, mais existe muita gente que tem no computador ainda.

Jhonas obrigado pela força, consegui montar de uma maneira eficiente agora. Está ai o Código, fiz todos os testes necessarios para tentar bular o sistema, mais não tive exito Rs. Qualquer erro ai jhonas só me passar que altero na hora. Você e mais expert em Delphi!! var a,b : TDate; NomeDoArq: string; Arquivo:TextFile; linha : string; begin a := date(); b := strtodate('22/12/2018'); // Data para expirar o programa NomeDoArq := 'C:\Windows\System\help.txt'; // Arquivo Na Pasta escolhida AssignFile(Arquivo,NomeDoArq); reset(Arquivo); Readln(Arquivo,linha); if Strtodate(linha) > now then // Aqui confere a data de instalação com a data do pc begin Showmessage('Data do computador errada'); Application.Terminate; end else if a > b then begin MessageDlg('Esta é uma Vesão de Teste - Prazo Expirado, Compre uma licença para poder continuar usando o programa!!!!! .' , mtInformation, [mbOk], 0); Application.Terminate; end; end;

Realmente esse código e muito melhor, por enquanto irei usar este, mais seguindo a lógica toda vez que expirar o programa pro cara, terei que entrar no Delphi Definir mais um tempo de uso e gerar um executavel. Percebi também que se for um usuário mais esperto apenas ele mudando a data, para vamos supor que coloquei no sistema para o dia 23/12/2018, Para expirar. E Ele mudando a data para 23/11/2018, novamente, fica na mesma, usando. Não sei se fiz os testes errado, mais testei aqui várias possibilidades mudando a data do micro e funciona somente e claro pelo código a data passando do estipulado no Código. Tive uma idéia, como posso fazer sem ter arquivo txt nem nada armazenado no pc do cara, para verificar a data atual, tipo instalei a programa no dia 23/11/2018. Ai o mala vai e muda a data dele para o dia por exemplo, 23/10/2018. Quero que quando ele fizer isso aparecesse uma msg no Programa dizendo que a Data tá errada sem lá,algo do tipo, ai em seguida fechasse o programa. Ai enquanto ele não colocar a Data serta do Dia, o Programa não abre. Tem como fazer assim. Fiz uma gambiarra var NomeDoArq: string; Arquivo: TextFile; linha : string; begin NomeDoArq := 'D:\Programas Em Delphi\TV Online\help.txt'; AssignFile(Arquivo, NomeDoArq); if FileExists(NomeDoArq) then //Append(arquivo) { se existir, apenas adiciona linhas } //else ReWrite(arquivo); { cria um novo se não existir } try WriteLn(arquivo, datetostr(now)); // data atual do micro finally CloseFile(arquivo) ; if (Vdt < now()) and (strtodate(linha) > Vdt) then Application.Terminate; Closefile(Arquivo) ; Mais ta dando erro, de "Is Note a valid Date"

Essa parte do primeiro código e o segundo entendi, mais essa dos buttons você me confundiu, no caso esses outros exemplos são uma preposição que confirma os primeiros códigos ? Tipo são outros exemplos mais diferentes? procedure TForm1.FormActivate(Sender: TObject); begin Vdt := strtodate('25/11/2018'); end; end. Esse código, vai junto no mesmo Form ? que já tem o primeiro código? Porque e muito código não entendi nada. Qual eu uso especificamente, por sequencia.

Outra pergunta não corre o risco do usuário burlar aquele imenso código que você passou, tipo trocando a data do computador sei la ? Como sou muito cru ainda no Delphi, não tenho muita noção de como se inicia esse tipo de logica. Seria mais fácil se você pudesse fazer um pequeno exemplo e me passar! Teria como jhonas? porque com aquele código nem sei onde começo . Rs Aproposito, baixei o componete TimeStop, mais não consegui baixar o componente no Delphi, Lembrando que uso o XE8, Nos videos que vi, instalavam com o arquivo .PAS, mais o que eu baixei não tem com essa extensão, ou não estou sabendo instalar o componente, se poder me ajudar, fica mais fácil

Quero saber como fazer um sistema teste para um usuário por por exemplo 15 Dias, e Depois o sistema não ficar mais acessível tendo que ele pagar para ficar com o sistema. Tem como fazer isso em Delphi? Procurei na internet, mais nada que eu pude aproveitar. Sistema Trial.

Muito obrigado jhonas resolvi meu problema, valeu

Valeu por responder jhonas! Tipo utilizo muito o Google Chrome, teria algum componente especifico para esse navegador?

então, estou criando um programinha, que ao ser clicado, ele abre numa pagina especifica para o usuário, o código e esse WebBrowser1.Navigate('https://tvonline.plus/band/'); Erro no Script desta página. Me parece que e algo do tipo de incompatibilidade com o código da pagina. Vi vídeos que fazem isso com o Windows media play, mais o comando que e usado não existe no meu da minha versão XE8!

estou com um probleminha de início em meu sistema, quando o usuário clica nas caixas de texto (Edits), invés de ficar selecionado para á escrita, ele fica estático parado não tem como escrever nada, será bug ou algo parecido, alguém já passou por isso?

Fala, Galera Estou a desenvolver um atualizador de aplicações em Delphi,! Queria dicas práticas, já que aqui e um forum de grandes programadores. Atualização Não local.