jaumDoDelphi

Opa, brigadaum Jhonas Isso resolveu o meu problema. E Ainda você postou varios comando para o AssignFile Realmente muito obrigado! :D

Oppa Ronaldo tb tive esse mesmo erro! no meu caso o erro era no delphi com o CAMPO! ID No component CLIENDDATASET adicione todos os campos depois va na propriedade "ProviderFlags" e desmarque pfInUpdate e na propriedade "Required" deixe em false; dai quando você for salvar seus dados o campo ID não sera mais obrigatorio! Isso no meu caso que o problema foi no Delphi e não no BANCO abraço!

Ola a todos venho aqui mais uma vez pediar ajuda! :) Estou utilizando o seguinte comando para exportar as informações da DB para um arquivo CSV! E como meu DB é MASTERxDETAILS no momento estou gerando 2 arquivos. Eu gostaria de gerar apenas um arquivo exp. Linha 1 = Info do MASTER Linha 2 = detalhes Linha 3 = detalhes etc... Este é o codigo que estou utilizando no momento. /// MESTRE AssignFile(F,exeDIR+'CSV\'+dbEDNome.TEXT+'.CSV'); Rewrite(F); begin Writeln(F,DM.QLIST.FieldByName('COD_INT').AsString + PathSep + DM.QPROJ.FieldByname('NOME').AsString + PathSep + DM.QPROJ.FieldByname('ENDERE').AsString + PathSep + DM.QPROJ.FieldByname('BAIRRO').AsString + PathSep + DM.QPROJ.FieldByname('CIDUF').AsString + PathSep + DM.QPROJ.FieldByname('CEPZIP').AsString + PathSep + DM.QPROJ.FieldByname('PAIS').AsString); end; CloseFile(F); end; /// DETALHES AssignFile(F,exeDIR+'CSV\'+dbEDNome.TEXT+'.CSV'); ReWrite(F); DM.QLIST.First; While not DM.QLIST.Eof do begin Writeln(F,(DM.QLIST.FieldByName('COD_INT').AsString) + PathSep + DM.QLIST.FieldByname('TEL').AsString + PathSep + DM.QLIST.FieldByname('FAX').AsString + PathSep + DM.QLIST.FieldByname('IPPHONE').AsString + PathSep + DM.QLIST.FieldByname('EMAIL').AsString + PathSep + DM.QLIST.FieldByname('OBS').AsString); DM.QLIST.Next; end; CloseFile(F); quando mando salvar, ele salva corretamente o arquivo JAUM.CSV (MESTRE) mas, quando for salvar o arquivo JAUM.CSV (DETALHES) as informações do arquivo MESTRE são perdidas. Teria algum comando especifico para ao invez de Sobreescrever tudo ele apenas Adicionar novas linha? já tentei mudar ReWrite(F); por Write(F); mas ele da um erro I/O 103! nem sei se este comando existe hehehee. se alguém souber como resolver este problema, eu agradeço muito!

Saiu a versao para D2009 e D2010 do ZIPMASTER v1.90 Eu instalei o componente e testei! Está funcionando muito bem! sem Bugs! Mas estou com problemas para colocar PassWord estou fazendo desta forma (*ZM = Zipmaster) SDlg.FileName := NAME; ZM.PasswordReqCount := 1; // tb já coloquei ZM.PasswordReqCount := 0; ZM.Password := 'larinha'; if Sdlg.Execute then begin ZM.ZipFileName := SDlg.FileName; ZM.FSpecArgs.Add('CSV\'+NAME+'\*.*'); ZM.Add; // ShowMessage('Arquivos Compactado com Sucesso, Total: ' + IntToStr(ZM.SuccessCnt)); MessageBOX(handle,'Arquivo Compactado com Sucesso!', 'INFORMAÇÃO!', MB_OK + MB_ICONINFORMATION); btnDELETE.OnClick(Sender); end Else Close; alguém sabe como colocar senha no arquivo ZIP via codigo? sem utilizar o comando - GetPassword()??? agradeço desde já! ***** consegui! e a propriedade "Properties - AddOption [AddEncrypt]" vlwz

Se for um programa com banco "LOCAL" use o ADOQuery do que o ADOTable! o query permite instruções SQL, que facilita muito o manuseio do banco de dados! Agora se for uma banco "REMOTO", já n sei te explicar porque tb comecei a mexer semana passada com IBX e FireBirds. abrço

Obrigado mais uma vez Jhonas mas tb dá o mesmo ERRO [DCC Error] Unit1.pas(38): E2010 Incompatible types: 'Char' and 'AnsiChar' MAS! estive lendo agora mesmo num forum gringo stackoverflow e Axei a solução! dai o comando que era assim no Delphi7 - WinExec(PCHAR('i_view32.exe'+Edit1.Text),1); ficou assim no D2009 e D2010 - WinExec(PAnsiChar(AnsiString('i_view32.exe '+Edit1.Text)),0); Que comando de louco! mais funcionou muito bem! :P

obrigado Jhonas, mas ainda não consegui :( tentei: WinExec(WideCHAR('i_view32.exe'+Edit1.Text),1); -ERRO [DCC Error] form2.pas(595): E2089 Invalid typecast WinExec(PWideCHAR('i_view32.exe'+Edit1.Text),1); -ERRO [DCC Error] form2.pas(595): E2010 Incompatible types: 'Char' and 'AnsiChar' você teria algum exemplo?

Boa noite galera! Perdi mais de 3hs com este comando hahaah! e Descobri que por causa do D2010 ter suporte já embutido do UNICODE o PCHAR não funciona. "ou melhor, eu que não sei usar no D2010" Oque eu estou tentando fazer é o Seguinte: fiz um programa para cadastro de filmes e tenho um campos POSTER que é blob do access dai tem um monte de problemas com imagens JPEG dai fiz o seguinte só coloquei IMAGENS BMP que é muito grande em "kb" dai eu utilizo o programa IrfanView para converter imagens JPEG para BMP e fazer um RESIZE com o seguinte comando: WinExec('C:\Program Files\IrfanView\i_view32.exe C:\Users\JC\Desktop\DROP\*.jpg /resize= (150,220) /convert=C:\Users\JC\Desktop\END\*.bmp',0); Ate ai tudo bem, mas eu criei 4 variaveis "STRING" 1 - Variavel do Diretorio do irfanview 2 - dir de onde estao as fotos JPEG 3 - dir do destino 4 - variavel "CONVERSAO" que junta tudo Tentei de varias formas, mas sempre não compilava e dava o mesmo ERRO WinExec(PCHAR(CONVERSAO),1); WinExec(PCHAR('i_view32.exe'+Edit1.Text),1); Tentai mais de 10 variaçoes e n funcionou. dai peguei um exemplo que fiz no Delphi7 em 2002 que era exatamente igual o comando que eu estive tentado. WinExec(PCHAR('D2Loader.exe'+Edit1.Text),1); Então fui procurar no Forum, Google, e ate em sites gringos e só axei algo a respeito neste link mail archive Que o Problema do PCHAR esta relacionado ao UNICODE! :( alguém ai teria alguma Solução para este problema? agradeço desde já! :)

Opa douglas essa lista vai me ajudar muito futuramente! muito obrigado :)

Utilizei o Delphi 7 no windows vista/7 32bit e 64bit "Home Premium" e "Ultimate" só tive problemas com o "UAC" que dava mtos problemas com o Delphi7 já o 2010 rodou muito bem, sem problemas! boa sorte ;)

hahahaha! vlw mesmo Douglas. Eu pensei q #8 era algo do proprio comando kkkkk, essa você deve ter morrido de rir não é?! :lol: Mas agora sim, esta tudo certo. N preciso mais me preocupar com o FATAL ; para o arquivo CSV Eu estava ate fazendo um comando de louco para corrigir o ; da só uma olhada: inherited; if not (key in ['A'..'Z','a'..'z','0'..'9','!','@','#','$','%','^','~','&','*','(',')','_','-', '+','=,'[',]','{','}',':','ç','Ç','Ã','Õ','é','É','ã','õ','á','Á','ó','Ó','ê','Ê','ô','Ô', '"','<','>','?','.','/','\','não','não',#8]) then key:=#0; end; Que Trabalho, não? muito obrigado ;)

Ola galera! Estou com problemas no envento "OnKeyPress" fiz um projeto da AGENDA, mas hj eu descobri um erro grave! Estou utilizando o comando para transformar uma linha do BANCO de dados para "CSV" que pode ser lido no MS EXCELL. Dai vem o problema - como os dados em CSV são gravados desta forma COD;NOME;ENDER;TEL;INFO se você por o PONTO VIRGUAL ";" por engano vai danificar todo o arquivo CSV! Dai eu queria Bloquear a tecla ;, fiz o seguinte comando begin inherited; if (key in [';',#8]) then key:=#0; end; Ate ai tudo bem funcionou mas quando eu apreto o BACKSPACE ele não funciona mais!!! o PONTO VIRGUAL não pode ser digitado mas este comando matou meu BACKSPACE! alguém tem alguma solução?

Opa vlw mesmo pelas explicações! Vou fazer as alteraçoes neste final de semana! muito obrigado mesmo! tb só p ajudar a galera que esta começando com o FIREBIRD! tive problemas para rodar o APLICATIVO no CLIENTE! resolvi o problema com 3 DLL's - midas.dll - dbxfb.dll - fbclient.dll isso utilizando o DBX, FireBird 1.5, WinXP x86 ou Vista x86. ate mais galera!

Opa obrigado novamente Douglas_Soares, Estariamos perdidos se não fosse pela sua GRANDE ajuda! Esse IBExpert é realmente muito bom me ajudou bastante! Mas estou tendo grandes problemas para fazer funcionar mas axo que sei o MOTIVO! meu OS é Windows Vista Home Premium "notebook de casa". n funciona o MySQL, INTERBASE, BDE, nem o Firebird resumindo não funciona nada que seja de serivdor SQL! tenho quase certeza que é por causa do "HOME PREMIUM" Dai eu instalei o FireBird e IBExpert no windows XP PRO "escitorio da empresa", funcionou muito bem ate fiz o banco REMOTO DATABASE NAME: 192.168.0.97:c:\FBDATA\ntdata.fdb USER: SYSDBA PASS: masterkey dai ficou muito bom! Agora outra duvida e sobre a conexao com o delphi! estou fazendo da seguinte forma (nesta ordem) 1 - FBCONNECTION "DBX SQLConnection" 2 - SQLDataSet1 3 - DataSetProvider1 4 - ClientDataSet1 5 - DataSource1 Dai ele exibe muito bem, mas não Salvava as alteraçoes. Eu me informei no Sites que você me passou e li que quando o banco é remoto ele primeiro cria uma SUB-TABELA na sua propria maquina antes de mandar para o server. Para isso há o comando "ClientDataSet1.ApplyUpdates(0);" Dai minha duvida seria 2 1 - Esta ordem dos componentes esta correta? 2 - Qual os comando para colocar no btnGRAVA? ---- no ADO era simples, só ADOQuery1.Post; e tb agradeço pelas dicas dos livros. vou procurar, neste final de semana axo que vai me ajudar bastante é este aqui "Firebird Essencial - do clube do delphi" e não esta caro 50reais. muito obrigado! :)

muito obrigado Douglas_Soares, vou baixar e tetar! ouvi dizer que é muito bom este COMPONENTE. :P

BOM DIA A TODOS! Sou iniciante em delphi, na verdade já mexi com o delphi a uns anos atrás na época do delphi 5,6,7 e fiz alguns cursos na IMPACTA. Na época eu aprendi a trabalhar com bancos PARADOX, INTERBASE e ACCESS. Este ano voltei a mexer um pouco com essa grande PLATAFORMA VISUAL PASCAL. Eu fiz 2 programinhas com a ajuda de vocês do fórum (realmente muito obrigado) terminei minha AGENDA TELEFONICA e o CADASTROS de DVD. Ficou muito bom do jeito que eu queria, com DB ACCESS. Alguns meses atrás ouvi, dizer que o banco FIREBIRD era uns dos melhores por vários motivos como: sem limitações, grátis, SQL entre outros motivos. Daí resolvi testar este DB baixei a versão Firebird-2.1.3.18185_0_Win32 Instalei e já vi de cara que é bem complicado trabalhar com ele. Daí vai as duvidas! 1 – Existe algum editor VISUAL para o Firebird? 2 – se não, como eu crio o DB, Tabelas, users etc... 3 – tentei comando do MySQL mas axo que não funcionou exp. CREATE DATABASE JAUM CREATE TABLE LISTA (ID INT AUTO_INCREMENT NOT NULL PRIMARY KEY, NOME VARCHAR(50) NOT NULL); ETC…. 4 – existe algum Livro em português que explica bem como ligar o delphi com firebird eu comprei 1 livro bem RAPIDO e DINAMICO para rave reports que me ajudou muito “Rave Report com Delphi” comprei na saraiva por 25reais. Gostaria de um livro assim bem simples nada muito complicado tipo “bíblia” 5 - Existe algum site de FireBird para iniciantes? Tb já procurei no fórum e li sobre firebird mas os POST são para usuários avançados que já trabalham com o Firebird. (que não e o meu caso) Desculpe o meu Post muito grande mas estou com mtas duvidas sobre este banco. e um grande OBRIGADO desde já.!

Ola a todos! Estou tendo problemas com este exemplo, o problema é na hora de descompactar os arquivos. coloquei um exemplo no EASY-SHARE DOWNLOAD Pelo que vi no ERRO do windows, quando ele tenta descompactar ele fica criando pastas com o nome dos arquivos! tipo cao.jpg, gato.jpg C:\zip\cao\gato\... e na verdade quero descompactar na pasta c:\zip sem sub pastas. aki em baixo tem a foto do ERRO Quem poder me ajudar eu agradeço muito!

muito obrigado chris~ e Douglas! este exemplo vai ser muito ultil.

ola Erika D. Lima tudo bem! se for só isso você pode fazer no EXCEL mesmo é bem simples. você Pega o valor de cada pararelho e faz o seguinte (w) x numero de horas e soma tudo no final você faz o TOTAL DE (watts) x R$ 0,20 exemplo isso tb depende de onde você mora! o valor varia um pouco.

muito obrigado Douglas_Soares! esta função que você me passou funcionou muito bem! :D

Ola Jhonas, muito obrigado pela dica! mas no meu caso seria uma agenda simples, nada muito complexa para fazer backup diarios! mas sim uma vez por semana ou ate menos. porque quem vai utilizar o programa é só EU minha esposa e meu irmão. se alguém tiver algum código ou exemplo de como eu posso faz a checagem da "AGENDA.EXE" estiver aberto ele da um CLOSE; no BackUP.EXE agradeço muito!

Ola a todos bom dia!!! Fiz um programa de BACKUP para o meu bando MDB utilizando o Zlib! Ele funciona muito bem. mas eu gostaria de limitar a execução dela somente quando "AGENDA.EXE" estiver fechada. EXEMPLO. se AGENDA.EXE estiver na tela ela exibe um showmessage(o backup não pode ser feito com o aplicativo AGENDA aberto). obrigado desde já!

Micheus, realmente muito obrigado! agora sim, está tudo perfeito. ficou melhor do que eu imaginava! muito Obrigado mesmo! :)

Ola Micheus, testei o seu exemplo ele funciona bem! mas dai vai os ERROS. 1 - Como eu Disse é "ADO" e Query ate ai tudo bem. 2 - Erro no CAMPO "COD_INT" que é AUTOINCREMENT * Could not Convert variant of type (OleStr) into type (Double) 3 - quando o campo esta vazil ele tb para e exibe a seginte mensagem de ERROR * Could not Convert variant of type (Null) into type (String) Como eu poderei arrumar estes erros! Segue abaixo o Codigo: ========================================== Var F: TextFile; begin AssignFile(F,'Clientes.txt'); Rewrite(F); DM.QLIST.First; While not DM.QLIST.Eof do begin Writeln(F,DM.QLIST.FieldByName('COD_INT').Value + PathSep + // AutoIncrement DM.QLIST.FieldByname('Nome').Value + PathSep + // STR DM.QLIST.FieldByname('Cidade').Value + PathSep + DM.QLIST.FieldByname('DATA').Value); DM.QLIST.Next; end; CloseFile(F); ========================================== aguardo resposta :blush: Opa gelera o "COD_INT" consegui arrumar com Writeln(F,IntToSTR(DM.QLIST.FieldByName('COD_INT').Value) Agora só falta o Error do CAMPO em BRANCO (Null) vlw!

Ola a todos! e um grande OBRIGADO para o Douglas que tem sempre me ajudado no forum! e me lembrou deste post "tinha me esquecido hehehe" SORRY! 1 - baixe este exemplo do site Planeta Delphi, que tem excelentes materias e exemplos sobre Delphi. Download 2 - Como funciona? é bem simples ele faz um CHAR POS na STRING. exemplo se a letra "A" estiver na posição 0 ela continua como "A" mas se você mudar para POSIÇÃO 2 a letra "A" se tornara "C". E assim vai com muitas combinações possiveis. se não me engano havera 256 combinações possiveis isso no nosso CODIGO ASCI mas se for um codigo CHINES/JAPONES poderão haver mais de 5mil combinações. 3 - A base da encriptação é esta. Mas a unica difereça que tem no meu Arquivo Encriptado é a forma como eu escrevi o TEXTO. Dai vai da imaginação de cada 1, para deixar a Encriptação mais Dificil de ser quebrada. vlw a todos é qualquer duvida é só POSTAR aki que eu responderei com o maior PRAZER! :D