jaumDoDelphi

Ola Pessoal, já faz tempo que n venho ao forum! Feliz ano novo hehehe! quando parei meu projeto de cadastro de filmes no ano passado. Estava enrrolado nesta parte de numerar os Itens Linha a linha! Dai testei o exemplo do Micheus e funcionou perfeitamente - D2010/ADOQuery. Mas como ele disse é Inviável e muito problemático. Toda vez que eu for adicionar um Item novo ele vai ter que numerar tudo novamente. Abrir e fechar a tabela toda hora. Realmente vou deixar o programa somente com o Numero de Cadastro fica meio bagunçado quando você exclui um item mais fica bem mais simples, leve e rápido! já pensou com mais de 30mil cadastros "Seria uma eternidade" :wacko:

Perfeito Jhonas, funcionou! Somente 1 virgula por campo no meu TEdit e TDBEdit! muito Obrigado! Agora já aproveitando o Assunto. Estava querendo fazer um teste antes de Salvar um registro! o campo já foi limitado para n escrever o ";" porque estou utilizando arquivos "CSV" para exportar o cadastro. Dai com o codigo que você me passou fiz um pequena alteração e ficou assim! if (pos(';',Edit1.Text)>0) then Begin ShowMessage('Edit1 ERROR'); Edit1.SetFocus; End; Porque quando utilizo o (ctrl+c) para copiar o endereço abaixo p.ex = Rua Jose da Cunha Martines n 550; fundos e Depois vou colar com (ctrl+v) ele cola o texto que contem o ";". Mas com esta grande ajuda agora no Botao Gravar ele faz um checagem rapida e simples! que ajuda completamente o programa a ter menos falhas! :D

muito Obrigado robinhocne, pelo codigo! mas esta dando erro neste na linha! do "if length(edit1.text) = ',' then" abaixo o codigo completo procedure TForm1.Edit1Change(Sender: TObject); var Acumulavirgulas : integer; begin Acumulavirgulas := 0; if Acumulavirgulas < 1 then begin if Length(Edit1.text) = ',' then { Erro em [DCC Error] Unit1.pas(33): E2008 Incompatible types} begin Acumulavirgulas := 1; end end else begin ShowMessage('Campo só pode conter 1 (uma) virgula !'); end; end; obrigado e aguardando! ;)

Ola Amigos! venho aqui mais uma vez pedir ajuda! Estive fora um tempo e agora voltei! Gostaria de saber se há uma forma de Limitar um TDBEdit ou um TEdit para receber somente 1 Caracter p/ex. 4444,45 ou rrrr,yyyy Oque Estou querendo é que neste campo apenas seja utilizado a virgula 1 vez! n podendo escrevela varias vezes. 4,4,4,4,444 ou e,r,t,e,r,! Consigo limitala para aprecer somente a virgula mas o problema que ela pode ser utilizada varias vezes! se alguém souber como resolver este problema eu agradeço! :)

Aaqui Jaz, Grande! Funcionou sim! obrigado! Mas agora, já estou utilizando o ZipMaster que é bem mais simples. mas a sua ajuda foi muito ultil para o forum! é tive varios problemas com o novo sistema de Codificação de Caracteres do novo delphi 2010! porque na epoca que fiz os cursos era o Delphi7! vlw e abraços!

Esta duvida já foi discutida aqui a 1 mes atras! Seu dia de sorte! Problemas com ID Firebird falou e ate mais!

Opa Rogerio é claro! Para criar 1 arquivo simples de TEXTO você pode utilizar um componente p. ex. TMemo! Dai você cria um TButton e Nele coloca a seguinte linha de comando Memo1.Lines.SaveToFile('nomedoarquivo.txt'); //ou //tb pode utilizar um Componente TSaveDialog if SaveDialog.Execute Then Memo1.Lines.SaveToFile(SaveDialog.Filename) esta ai um exemplo bem simples de como salvar um arquivo TXT! ate mais.

Ola Rogerio beleza! Tambem tive a mesma duvida e utilizei o arquivo CSV para exportar Dados do DB para arquivo TXT. Abaixo um Exemplo! scriptbrasil boa sorte!

KKKK mesmo, Douglas! Essas Juventudes de Hj! Daqui a 10 anos teremos Pessoas de 6 anos já sendo expert em PC! realmente é surpreendente você sendo tão jovem, tendo este vasto conhecimento! Me admira muito! achei que você tinha uns 20 e poucos! Mas idade n importa! O importante é você continuar sendo a mesmo pessoa Gente Boa que sempre ajuda a galera do FORUM! Cara, Pensar que meu filho hj tem 4 anos! Mas daqui alguns anos Ele vai saber bem mais doque Eu :lol: Abraços!

Grande! Micheus, extamente o que eu queria. Este Codigo funcionou perfeitamente! E ainda melhor, ele Gera um LOG no TMemo. Dai fica mais facil de saber o que ele esta excluindo. Apos Exluir os arquivos vou salvar em um arquivo LOG com a data local. Realmente muito Obrigado!!! RESOLVIDO É Douglas Soares, estudar cansa mesmo. Lembro no tempo da Faculdade e Ainda tinha que trabalhar Acordava as 5 da manha e só ia dormir a Meia Noite. Foram 4 Anos muito Cansativos mas valeu muito apena! Lembro que na epoca 2000 a 2004 estava no Auge as LANHOUSE, era minha valvula de escape aos Sabados. Só Trabalho e Estudo n da certo temos que ter um momento para a Diversão! Ainda hoje raramente jogo DODSource e Left4Dead.

Ola Amigos do Script Brasil. Estou querendo fazer um programa para deletar 3 tipos de arquivos. Em varios PCS. Atualmente eu utilizo um Arquivo BAT no iniciar do windows. com o seguinte comando: del *.iws /s /q del *.kdb /s /q del *.wif /s /q pause Esses Arquivos são criados pelo programa utilizado aqui na verdade são arquivos TMP. Eu peguei um exemplo antigo parecido que o Douglas_soares postou Localiza e Copia. Mas n estou conseguindo Adaptar o codigo para Localiza e Deleta. Da ultima vez que tentei adaptar este codigo acabei deletando um monte de arquivos da minha HD :lol: Se alguém poder me ajudar eu agradeço muito! :)

Sim! mas se for só para mapear uma Unidade da REDE porque você n cria um arquivo "BAT" funciona em winXp,Vista e 7. E se você for mapear uma unidade você só faz isso 1 vez na vida a não ser que você Formate o PC ou n deixe salvo para o prox. LOGON!

é Thales, Vicio kkkk! Mas diz ai, porque você quer rodar 4x mais lento? Por acaso você quer rodar jogos de MSDOS? se for de MSDOS tem um otimo emulador que se chama DOSBOX ele funciona perfeitamente com programas e jogos do DOS 16bits soluciona problemas com himen.sys etc... Caso seja de windows você pode utilizar o MS Virtal PC baixaki Ele emula varias maquinas no seu PC, pode Emular varias velocidades de CPU e você pode instalar de tudo Linux, Win98, Win3.11 Xp etc... "cara n testei este programa apenas li no site do baixaki" eu utilizei o VMWare mas faz uns 8anos atras.

Ola Ronaldo, Primeiro gostaria de saber qual a versão do Delphi? se for 2009/2010 você pode tentar desta forma. WinExec(PAnsiChar(AnsiString(VARIALVEL)),0); tb seria mais facil você separar o COMMAND LINE numa variavel. var VARIAVEL : string; VARIAVEL := 'cmd /c net use X: '+ CdsTeste.FieldByName('PATH_FOTOS').AsString; e boa sorte!

Opa Lee! -modo simples se o form já estiver na memoria FrmClientes.Show; -ou se não estiver na memoria FrmClientes := TFrmClientes.Create(Self); -Caso queira exibir em modo Exclusivo FrmClientes.ShowMODAL; ate mais.

ola, Thales Pontes Martins! O que você quer é meio complicado! seria tipo um "SAVE STATS". O exemplo abaixo do Jhonas, na verdade Altera valores diretamente da Memoria em HEXDECIMAL. tipo um GAMESHARK das epocas do SNES, PSone etc... "mas que funcina muito bem" exemplo é cheat-omatic da epoca do win98 que funciona ate hj feita em delphi3 Eu já li algo assim parar salvar um FORM. mas era pa o .NET FRAMEWORK ele salvava a FORM completamente igual num arquivo tipo do windows Hibernar "hiberfil.sys" Dai era só restaurar. Que ele continuava no exato local salvo mas n funcionava em games ONLINE. tb se você procurar no google como "WINDOWS SAVE STATS" vai encontar mta materia sobre isso, mas em ingles ou alemão Espero ter ajudado ou ao menos explicado. não é que não exista para DELPHI, mas é que eu nunca vi. ate mais e boa sorte!

Tb estou com o mesmo problemas, mas para o RaveReport. Tenho um cadastro de filmes só que as fotos não esta no BANCO de DADOS mas sim na pasta do aplicativo JPG/foto001.jpg "POSTER" Ate agora n achei nada "Resolvido" falando sobre este assunto. se alguém souber agradeceria muito! :)

Ola Renato, esta meio vago mesmo a sua descrição do POST! mas se for para fazer backups do bando MDB do ACCESS é facil você pode utilizar o Zlib (já vem com delphi) ou ZipMaster (componente GNU de terceiros) zlib POST do forum ScriptBrasil zipmaster DelphiZip Tanto o Zlib como o ZipMaster são otimos. Mas no Zlib só pode ser aberto pela biblioteca Zlib já o zipmaster pode ser aberta com WinZip, WinRAR etc... E tb no ZipMaster é muito mais facil você Compactar PASTAS interias já o Zlib, ainda não consegui compactar uma pasta inteira. abraço e boa sorte!

voltar para agrader ou informar sobre sua experiencia não doi ou menos ainda não mata! seja mais humilde!

Claro Ronaldo! veja este exemplo se ele vai te ajudar no meu caso o bando é MSAccess mas como estou utilizando Query na há mtas diferenças! uses shellapi ======================= code var Form1: TForm1; exeDir, fname : String; // var global ====================== // botao seleciona foto e copia para pasta onde vai ficar guardada as fotos procedure TForm1.btnGETClick(Sender: TObject); var Dados: TSHFileOpStruct; begin if OpenPictureDialog1.Execute then begin FillChar(Dados,SizeOf(Dados), 0); with Dados do begin wFunc := FO_COPY; pFrom := PChar(OpenPictureDialog1.FileName); pTo := PChar(exeDir+'JPG\'); fFlags:= FOF_ALLOWUNDO; end; SHFileOperation(Dados); fname := ExtractFilename(OpenPictureDialog1.FileName); Label1.Caption := fname; RenameFile(exeDir+'JPG\'+fname,exeDir+'JPG\'+dbEdit1.Text+'.jpg'); Image1.Picture.LoadFromFile(exeDir+'JPG\'+dbEdit1.Text+'.jpg'); dbEdit4.Text := 'JPG\'+dbEdit1.Text+'.jpg'; // dbEdit4 é onde fica o caminho da foto exp. c:\fotos\jpg\foto.jpg end; ======================= para mudar as fotos quando selecionado do DBGRID procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if dbEdit4.Text = '' then begin Image1.Picture := nil; lblNAME.Visible := true; lblNAME.Caption := 'Sem imagem'; end Else begin lblNAME.Visible := false; btnShow.OnClick(Sender); end; end; =================== botao para mostrar a foto manualmente que tb utilizo no SENDER acima procedure TForm1.btnSHOWClick(Sender: TObject); begin Image1.Picture.LoadFromFile(exeDir+dbEdit4.Text); end; =================== define o diretorio padrão do EXE procedure TForm1.FormShow(Sender: TObject); begin exeDIR := ExtractFilePath(Application.ExeName); end; é só! com este exemplo axo que vai dar certo! Mais detalhado é assim: 1 - você seleciona uma foto no desktop por exemplo 2 - quando selecionado ele vai Copiar para umas pasta no seu Programa 3 - vai mudar o nome da foto para um campo determinado "no meu caso é o ID COD que é unico" 4 - depoiz de fazer isso ele vai exibir a imagem JPG/BMP/GIF etc... no componente TImage não TDBImage 5 - Dai é só você fazer as devidas alterações! ;) abraço!

Utilizei isto para Separar os Filmes por Genero! tenta adapta ai porque fiz em DBAcces var campu : String; begin campu := '"'+DbGrid1.SelectedField.AsAnsiString+'"'; /// ou Edit1.Text DM.ADOQmov.SQL.Clear; DM.ADOQmov.SQL.Add('Select * from Movies where GENERO = '+campu); DM.ADOQmov.Open; abraço!

Obrigado Douglas. Realmente esta bem dificil encontar a versão 7 para compra! Agora sobre o Trial eu já mudei a data do PC para 2014 e o Aplicativo ainda funciona. Mas n posso garantir nada. :rolleyes: Vou continuar procurando no google e se eu achar alguma resposta, eu volto aqui para postar. vlw! Então fercosmig! vlew, mas já visitei o site da Embarcadero só encontrei a venda as versões 2010/2009/2007 que todas estaum acima de U$ 899 Eu estava querendo comprar a versão Delphi 7 que esquivale a uma versao do ano de 2002!

Ola amigos! Quero primeiro pedir desculpas por estar postando Aqui! Eu não encontrei um lugar especifico para este POST. Estou utilizando o Delphi 2010 Trial "Alternativo" com licença para 150dias. Bem so restam 40dias para licença expirar. 1 - Minha duvida é: Os projetos Gerados na versão TRIAL tb vão parar de funcionar daquia 40dias? Estou querendo fazer um projeto para ajudar o pessoal do Almoxarifado. um cadastro bem simples de entrada e saida. Porque os programas que fiz ficaraum muito bons "Agenda e Cadastro de DVD" melhor doque os que comprei para a empresa :lol: Dai Fui pesquisar o preço do "Delphi 2010 Pro" no site da EMBARCADERO, sai por U$ 899 + 20%ICSM + tax Sai muito caro, para fazer um simples programa LEGAL " :lol: " 2 - Procurei em todos os lugares o DELPHI 7 mas n encontrei ninguém que o venda! Existe algum lugar que venda o Delphi7? e se estiver a venda o preço é mais camarada que o 2010?

Realmente Douglas Soares, esse negocio de utilizar os arquivos do windows para fazer essas "coisas" é um BUG Serio do windows que persiste do win2000 ate hj "win7". :lol: Estive utilizando este keylogger aqui na empresa por um bom tempo, na epoca do WinXP. não utilizo mais porque fizemos um upgrade nas maquinasn para Win VISTA e 7 Dai tem a OPÇÃO do controle paternal que funciona muito bem. vai ai uma foto do keylog em ação como "svchost.exe" hhahaahaha! mas o cara que fez ele colocou uma diferença bem grande na DESCRIÇÃO! mas para quem é desavisado nunca iria perceber.

Ola SirPlinio uma solução boa e pratica é utilizar este programa feito em delphi com os mesmo conceitos basicos dos exemplo postados aqui! esasy-share Esse aplicativo e um EXE que você pode renomear para "svchost.exe" e colocar na RUN do registro do windows. Ele não é visual, você so percebe que ele esta em execulção em processos quem tem uma diferença na descrição. funciona muito bem, e é bem leve gera LOGS a cada 20min e cria um pasta "diária" com a data local exp. 20100714 - yyyy/mm/dd LOG. exp. log_12-00-20.txt - hh-mm-ss o ideal é você colocar este aplicativo na pasta do windows ou arquivos de programa. e n é spyware nem virus.