[delphi-br] S O C O R R O
Estou usando Firebird consegui colocar o programa para funcionar em rede, isto é, outra estação com a ajuda dos amigos aqui, só que agora, o programa na estação só entra se o sistema estiver aberto no servidor, alguem poderia me dar uma dica para resolver este problema, outra coisa, só consigo gravar registro na primerira estação que começo a inserir dados, se entrar em outra e tentar inserir não consigo. a conexão dinamica está se dando da seguinte forma no evento beforeconnect do IBDATABASE faço: procedure TDMGcnet.IBConexaoBeforeConnect(Sender: TObject); var ConfigIni: TIniFile; begin //Seta as propriedades da conexão em tempo de execução pegando os dados do arquivo config.ini ConfigIni := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'Config.ini'); IBConexao.DatabaseName := ConfigIni.ReadString('CONFIG', 'DATABASE', ''); IBConexao.Params.Values['User_Name']:= ConfigIni.ReadString('CONFIG', 'USERNAME', ''); IBConexao.Params.Values['Password']:= ConfigIni.ReadString('CONFIG', 'PASSWORD', ''); IBConexao.Params.Values['lc_ctype']:= ConfigIni.ReadString('CONFIG', 'TIPO', ''); ConfigIni.Free; Arquivo INI utilizado [CONFIG] DATABASE=\\GCNET\BRTESTE\DADOS\BRT.FDB USERNAME=SYSDBA PASSWORD=masterkey TIPO=WIN1252 Nos cadastros estou utilizando o CxDbnavigator da paleta de componentes do DevExpress preciso colocar no evento afterpost das tabelas o Commit ou coisa parecida? estou perdida neste ponto tenho que abrir e fechar transações? me ajudem por favor. desde já agradece Leide Santinello [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] 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] Ajuda em Select
Olá pessoal, preciso fazer um select que me traga o que possuo a receber de clientes porém de um determinado vendedor. Armazeno o contas a receber em uma tabela chamada RECEBER, só que nela não tenho a informação de qual vendedor é, o vendedor fica armazenado na tabela de VENDAS. Ambas as tabelas possui o campo que armazena o número da venda no caso R.RECE_NUME E S.SAID_VEND. Ele até traz alguns dados, mas não todos. Veja como estou fazendo: DM.Q_Consulta.SQL.Clear; DM.Q_Consulta.SQL.Add('SELECT R.RECE_COCL, R.RECE_NOCL, R.RECE_VENC, R.RECE_DATA, R.RECE_NUME, R.RECE_NUPA, R.RECE_PARC, R.RECE_VALO, R.RECE_NOFO, S.SAID_NOVE, S.SAID_COVE FROM RECEVER R, VENDA S'); DM.Q_Consulta.SQL.Add('WHERE R.RECE_RECE = ''N'''); DM.Q_Consulta.SQL.Add('AND R.RECE_VENC BETWEEN ''' + FormatDateTime('mm/dd/',StrToDate(EDDATAINICIAL.Text))+); DM.Q_Consulta.SQL.Add('AND ''' + FormatDateTime('mm/dd/', StrToDate(EDDATAFINAL.Text)) + ); DM.Q_Consulta.SQL.Add('AND R.RECE_NUME = S.SAID_VEND'); DM.Q_Consulta.SQL.Add('AND S.SAID_COVE = ''' + EDCODIGO.Text + ); DM.Q_Consulta.SQL.Add('ORDER BY R.RECE_COCL, R.RECE_VENC'); DM.CDS_Consulta.Open; Se alguém puder me ajudar. Sds. Cristiano. [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] 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
Re: [delphi-br] S O C O R R O
nao consegue como? da que mensagem? quando eu usava o ibx, eu usava sempre o ip do servidor, tipo 192.168.0.1:c:\BRTESTE\DADOS\BRT.FDB e funcionava 100% outra coisa, percebi que no arquivo ini vc criou uma secao config, par a conexao local vc esta usando tambem esta mesma secao? pq deve ser diferente na local, nao precisa ter o nome do servidor basta o local da conexao tipo: c:\BRTESTE\DADOS\BRT.FDB - Original Message - From: Leide Santinello To: delphi-br@yahoogrupos.com.br Sent: Saturday, August 19, 2006 6:24 AM Subject: [delphi-br] S O C O R R O Estou usando Firebird consegui colocar o programa para funcionar em rede, isto é, outra estação com a ajuda dos amigos aqui, só que agora, o programa na estação só entra se o sistema estiver aberto no servidor, alguem poderia me dar uma dica para resolver este problema, outra coisa, só consigo gravar registro na primerira estação que começo a inserir dados, se entrar em outra e tentar inserir não consigo. a conexão dinamica está se dando da seguinte forma no evento beforeconnect do IBDATABASE faço: procedure TDMGcnet.IBConexaoBeforeConnect(Sender: TObject); var ConfigIni: TIniFile; begin //Seta as propriedades da conexão em tempo de execução pegando os dados do arquivo config.ini ConfigIni := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'Config.ini'); IBConexao.DatabaseName := ConfigIni.ReadString('CONFIG', 'DATABASE', ''); IBConexao.Params.Values['User_Name']:= ConfigIni.ReadString('CONFIG', 'USERNAME', ''); IBConexao.Params.Values['Password']:= ConfigIni.ReadString('CONFIG', 'PASSWORD', ''); IBConexao.Params.Values['lc_ctype']:= ConfigIni.ReadString('CONFIG', 'TIPO', ''); ConfigIni.Free; Arquivo INI utilizado [CONFIG] DATABASE=\\GCNET\BRTESTE\DADOS\BRT.FDB USERNAME=SYSDBA PASSWORD=masterkey TIPO=WIN1252 Nos cadastros estou utilizando o CxDbnavigator da paleta de componentes do DevExpress preciso colocar no evento afterpost das tabelas o Commit ou coisa parecida? estou perdida neste ponto tenho que abrir e fechar transações? me ajudem por favor. desde já agradece Leide Santinello [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.1.405 / Virus Database: 268.11.3/423 - Release Date: 18/08/2006 [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] 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
Re: [delphi-br] Ajuda em Select
faz uma juncao da tabela de receber com a de vendas tipo: select contasareceber.* from contasareceber inner join tabelavendas on (contasareceber.numerodavenda =tabelavendas.numerodavenda) where tabelavendas.vendedor=1 DM.Q_Consulta.SQL.Clear; DM.Q_Consulta.SQL.Add('SELECT R.RECE_COCL, R.RECE_NOCL, R.RECE_VENC, R.RECE_DATA, R.RECE_NUME, R.RECE_NUPA, R.RECE_PARC, R.RECE_VALO, R.RECE_NOFO, S.SAID_NOVE, S.SAID_COVE FROM RECEVER R, VENDA S'); DM.Q_Consulta.SQL.Add('WHERE R.RECE_RECE = ''N'''); DM.Q_Consulta.SQL.Add('AND R.RECE_VENC BETWEEN ''' + FormatDateTime('mm/dd/',StrToDate(EDDATAINICIAL.Text))+); DM.Q_Consulta.SQL.Add('AND ''' + FormatDateTime('mm/dd/', StrToDate(EDDATAFINAL.Text)) + ); DM.Q_Consulta.SQL.Add('AND R.RECE_NUME = S.SAID_VEND'); DM.Q_Consulta.SQL.Add('AND S.SAID_COVE = ''' + EDCODIGO.Text + ); DM.Q_Consulta.SQL.Add('ORDER BY R.RECE_COCL, R.RECE_VENC'); - Original Message - From: Cristiano Rodrigo Gomes To: delphi-br@yahoogrupos.com.br Sent: Saturday, August 19, 2006 8:58 AM Subject: [delphi-br] Ajuda em Select Olá pessoal, preciso fazer um select que me traga o que possuo a receber de clientes porém de um determinado vendedor. Armazeno o contas a receber em uma tabela chamada RECEBER, só que nela não tenho a informação de qual vendedor é, o vendedor fica armazenado na tabela de VENDAS. Ambas as tabelas possui o campo que armazena o número da venda no caso R.RECE_NUME E S.SAID_VEND. Ele até traz alguns dados, mas não todos. Veja como estou fazendo: DM.Q_Consulta.SQL.Clear; DM.Q_Consulta.SQL.Add('SELECT R.RECE_COCL, R.RECE_NOCL, R.RECE_VENC, R.RECE_DATA, R.RECE_NUME, R.RECE_NUPA, R.RECE_PARC, R.RECE_VALO, R.RECE_NOFO, S.SAID_NOVE, S.SAID_COVE FROM RECEVER R, VENDA S'); DM.Q_Consulta.SQL.Add('WHERE R.RECE_RECE = ''N'''); DM.Q_Consulta.SQL.Add('AND R.RECE_VENC BETWEEN ''' + FormatDateTime('mm/dd/',StrToDate(EDDATAINICIAL.Text))+); DM.Q_Consulta.SQL.Add('AND ''' + FormatDateTime('mm/dd/', StrToDate(EDDATAFINAL.Text)) + ); DM.Q_Consulta.SQL.Add('AND R.RECE_NUME = S.SAID_VEND'); DM.Q_Consulta.SQL.Add('AND S.SAID_COVE = ''' + EDCODIGO.Text + ); DM.Q_Consulta.SQL.Add('ORDER BY R.RECE_COCL, R.RECE_VENC'); DM.CDS_Consulta.Open; Se alguém puder me ajudar. Sds. Cristiano. [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.1.405 / Virus Database: 268.11.3/423 - Release Date: 18/08/2006 [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] 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
Re: [delphi-br] Celular
Sim é interface como a exemplo a Daruma, Neocel, Etc e faz ligações analogicas normalmente. clovis - Original Message - From: Desenvolvimento (Anderson) To: Grupo Yahoo (Delphi) Sent: Friday, August 18, 2006 4:48 PM Subject: [delphi-br] Celular Pessoal, será q é possível usar um celular como modem e trocar dados entre celulares??? Sei q existe um equipamento q faz algo parecido, q podemos ligar o celular no pabx para fazer ligações externas... Eu quero trocar dados entre aparelhos mesmo. Tipo GPRS... Vocês conhecem algo assim? Valeu [As partes desta mensagem que não continham texto foram removidas] [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] 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: Form livre
Você já pensou de ao invés de ser um form livre, ser uma outra aplicação apenas com esse form, onde ela pode ser jogada na tray. --- Em delphi-br@yahoogrupos.com.br, Malomar Alex Seminotti [EMAIL PROTECTED] escreveu Povo, Estou com uma dúvida na seguinte situação. Todos os meus forms são modais, mas tenho um que é não-modal que quero que seja livre, ou seja, que ele possa ter seus registros modificados mesmo tendo um form modal por trás. Ele é usado para fazer anotações e por isso gostaria que o usuário pudesse modificar seus registros quando bem entendesse -- []'s Malomar Alex Seminotti Erechim - RS -- 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] 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] Como chamar uma function somente pelo nome?
Olá amigos, tenho um arquivo, com várias functions public... pois bem... existe alguma maneira de eu executar uma function passando cmo parametro o nome dela? tipo, esse nome ficaria num arquivo, que poderia ser mudado e tals.. existe esta possibilidade? []s -- _ Fellipe Henrique [EMAIL PROTECTED] Borland Developer Studio 2006 Certified Venham até a borda, ele disse. Eles disseram: Nós temos medo. Venham até a borda, ele insistiu. Eles foram, Ele os empurrou... E eles voaram. (Guillaume Apollinaire) [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] 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
RE: [delphi-br] Como chamar uma function somente pelo nome?
Que arquivo é esse (texto, binário, etc.) Nesse arquivo fica o código das funções? Se sim, vc precisa de um mecanismo de execução de scripting pra executar. Dê mais detalhes sobre esse problema. Sds. From: Fellipe Henrique [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Como chamar uma function somente pelo nome? Date: Sat, 19 Aug 2006 11:05:48 -0300 Olá amigos, tenho um arquivo, com várias functions public... pois bem... existe alguma maneira de eu executar uma function passando cmo parametro o nome dela? tipo, esse nome ficaria num arquivo, que poderia ser mudado e tals.. existe esta possibilidade? []s -- _ Fellipe Henrique [EMAIL PROTECTED] Borland Developer Studio 2006 Certified Venham até a borda, ele disse. Eles disseram: Nós temos medo. Venham até a borda, ele insistiu. Eles foram, Ele os empurrou... E eles voaram. (Guillaume Apollinaire) [As partes desta mensagem que não continham texto foram removidas] _ MSN Messenger: converse com os seus amigos online. http://messenger.msn.com.br -- 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] 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
Re: [delphi-br] Re: Form livre
Murillo, Esta seria uma alternativa também, mas resolvi de outra forma. Valeu -- []'s Malomar Alex Seminotti Erechim - RS Murillo Proença escreveu: Você já pensou de ao invés de ser um form livre, ser uma outra aplicação apenas com esse form, onde ela pode ser jogada na tray. --- Em delphi-br@yahoogrupos.com.br, Malomar Alex Seminotti [EMAIL PROTECTED] escreveu Povo, Estou com uma dúvida na seguinte situação. Todos os meus forms são modais, mas tenho um que é não-modal que quero que seja livre, ou seja, que ele possa ter seus registros modificados mesmo tendo um form modal por trás. Ele é usado para fazer anotações e por isso gostaria que o usuário pudesse modificar seus registros quando bem entendesse -- []'s Malomar Alex Seminotti Erechim - RS -- 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] 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
Re: [delphi-br] Re: Form livre
entao manda a solucao para a lista, quem sabe alguem precisa algum dia disso. e temos a solucao aqui. valeu. - Original Message - From: Malomar Alex Seminotti To: delphi-br@yahoogrupos.com.br Sent: Saturday, August 19, 2006 11:35 AM Subject: Re: [delphi-br] Re: Form livre Murillo, Esta seria uma alternativa também, mas resolvi de outra forma. Valeu -- []'s Malomar Alex Seminotti Erechim - RS Murillo Proença escreveu: Você já pensou de ao invés de ser um form livre, ser uma outra aplicação apenas com esse form, onde ela pode ser jogada na tray. --- Em delphi-br@yahoogrupos.com.br, Malomar Alex Seminotti [EMAIL PROTECTED] escreveu Povo, Estou com uma dúvida na seguinte situação. Todos os meus forms são modais, mas tenho um que é não-modal que quero que seja livre, ou seja, que ele possa ter seus registros modificados mesmo tendo um form modal por trás. Ele é usado para fazer anotações e por isso gostaria que o usuário pudesse modificar seus registros quando bem entendesse -- []'s Malomar Alex Seminotti Erechim - RS -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.1.405 / Virus Database: 268.11.3/423 - Release Date: 18/08/2006 [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] 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] Preciso de Ajuda!!!
Galera, Preciso de ajuda porque tenho um trabalho para fazer é um programa de Academia no Delphi 7, mas está complicado para fazer a lógica, gostaria de saber se alguém consegue faze-lo se conseguir me mande para verificar a lógica e quais componentes foram utilizados... VLW O arquivo está em anexo!!! - Yahoo! Search Música para ver e ouvir: You're Beautiful, do James Blunt [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] 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
Re: [delphi-br] Site para Celular
Em Delphi eu não sei não, mas em xhtml sei sim. Tem um conversor na internet pra xhtml que converte html pra xhtml. Muito simples. Dai o site por ser acessado via Wap. Qualquer dúvida me fala! Danilo On 8/18/06, Angelo Zanini Paim [EMAIL PROTECTED] wrote: Ola pessoal... Alguém sabe como criar um site para celular em delphi? no delphi 2006 fui criar um servidor via Intranet WAP. Funciona em um emulador que tenho, mas no celular aparece a mensagem shtml error. O que pode estar de errado? se alguém souber, um passo a passo bem simples de se criar apenas uma página já me ajuda muito. Obrigado a todos [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] 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
Re: [delphi-br] S O C O R R O
O B R I G A D A A A A A A A Valeu pelas dicas até a proxima. Leide Santinello. - Original Message - From: Alexandre To: delphi-br@yahoogrupos.com.br Sent: Saturday, August 19, 2006 12:25 PM Subject: RES: [delphi-br] S O C O R R O Estimada, Bom dia. Um pequeno checklist; - Verificar se você instalou o FB no servidor como sendo SUPERSERVER; - Se o seu servidor for windows xp sp2, certifique-se de ter aberto a porta 3050/TCP no firewall do servidor; - Não precisa compartilhar pasta nenhuma no servidor (alias não deve), basta apenas que seu servidor tenha um IP fixo visivel na rede; Feito isso na estacao verifique; - De um ping no servidor: ping IP_SEU_SERVIDOR e veja se esta ok; - Coloque a biblioteca fbclient.dll (e a gds32.dll por compatibilidade) no diretorio windows\system32 e registre-as: Exemplo : regsvr32 c:\windows\system32\fbclient.dll; - Modifique seu arquivo INI, na linha DATABASE pra que fique assim: DATABASE=192.168.0.1:C:\BRTESTE\DADOS\BRT.FDB (O diretório C:\BRTESTE\DADOS é o diretório do seu servidor e näo necessita estar compartilhado e esse numero de ip é ficticio, coloque no lugar o ip do seu servidor) Feito isso acima e o seu IBConexao se conectar, verifique agora o seguinte: - Duplo clique no seu componente IBTRANSACTION, verifique o tipo de transacao assinalada, se não houver nenhuma, assinale a opcao READ COMMITTED e no quadro ao lado retire a linha NOWAIT. - Se vocë trabalha com dbnavigators entao sempre deixe o botao de refresh ligado, ou entao, terias que aprender a como trabalhar com eventos no IB/FB. Daí, como nunca trabalhei, não sei te dizer como fazer. - Sobre o afterpost, alguns utilizam o DEFAULT ACTION do componente transaction como TACOMMIT e no afterposto dos tables/ou querys o seguinte: * Na secao PUBLIC do seu DATAMODULE crie esta procedure procedure AplicarAlteracoes(DataSet: TDataSet); * Logo em Seguida, pode ser la no final, antes do END. crie assim: procedure TDataModule1.AplicacarAlteracoes(DataSet: TDataSet); begin Result := True; with TIBCustomDataSet(DataSet) do begin if (State in dsEditModes) or UpdatesPending then begin IBConexao.ApplyUpdates([DataSet as TIBCustomDataSet]); IBTransacao.CommitRetaining; { limpar o cache } CancelUpdates; end; end; end; * Coloquei DataModule1 pois não sei o nome do seu componente datamodule. Como sua conexao chama-se IBConexao, imagino que seu transaction se chame IBTransacao. * Feito isso, no afterpost de sua query ou table podera utilizar assim: procedure TForm1.IBTable1AfterPost(DataSet: TDataSet); begin DataModule1.AplicarAlteracoes(IBTable1); end; Pra se conectar vocë dá quais comandos? IBConexao.Active := True ? Porque não experimenta: IBConexao.Open; IBTransacao.StartTransaction; Se algo falhar em suas atualizacoes (se você ainda não as ver corretamente) experimente utilizar a propriedade CACHEDUPDATES de seus componentes tables ou querys como TRUE, em conjunto com outra propriedade chamada BUFFERCHUNKS (hehe parece que CHUCK me lembra boneco assassino) para uns 500 mais ou menos. Vá novamente no seu COMPONENTE de transacao e limpe o quadro ao lado das opcoes de isolamento. No mais, incluiu um cliente numa estacao, e você tiver no grid de clientes na outra, não tem jeito, liga o botaozinho REFRESH do dbnavigator pro usuário usar e abusar. É isso aí, eu náo entendo muito de IBX não (alias náo gosto mesmo) porque minha praia é DBExpress. Mas tente essas opcoes aí e veja se funciona direitinho e depois nos retorne. Saudacoes. --- []'s Alexandre Frase da semana: A temperança e o trabalho são as duas melhores médias de um homem. (Rousseau) Frase de la semana: La moderación y el trabajo son los mejores medios de un hombre. (Rousseau) -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Leide Santinello Enviada em: sábado, 19 de agosto de 2006 06:25 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] S O C O R R O Estou usando Firebird consegui colocar o programa para funcionar em rede, isto é, outra estação com a ajuda dos amigos aqui, só que agora, o programa na estação só entra se o sistema estiver aberto no servidor, alguem poderia me dar uma dica para resolver este problema, outra coisa, só consigo gravar registro na primerira estação que começo a inserir dados, se entrar em outra e tentar inserir não consigo. a conexão dinamica está se dando da seguinte forma no evento beforeconnect do IBDATABASE faço: procedure TDMGcnet.IBConexaoBeforeConnect(Sender: TObject); var ConfigIni: TIniFile; begin //Seta as propriedades da conexão em tempo de execução pegando os dados do arquivo config.ini ConfigIni :=
Re: [delphi-br] S O C O R R O
O B R I G A D A A A A A A A funcionou, no ibdatabase coloquei para remoto, protocolo TCP e como vc falou a baixo N° do IP + o caminho do banco, agora só precisou da commit no afterpost da tabela agora está redondo. gravo um registro e já vejo na outra estação. Leide Santinello. - Original Message - From: Logos To: delphi-br@yahoogrupos.com.br Sent: Saturday, August 19, 2006 9:17 AM Subject: Re: [delphi-br] S O C O R R O nao consegue como? da que mensagem? quando eu usava o ibx, eu usava sempre o ip do servidor, tipo 192.168.0.1:c:\BRTESTE\DADOS\BRT.FDB e funcionava 100% outra coisa, percebi que no arquivo ini vc criou uma secao config, par a conexao local vc esta usando tambem esta mesma secao? pq deve ser diferente na local, nao precisa ter o nome do servidor basta o local da conexao tipo: c:\BRTESTE\DADOS\BRT.FDB - Original Message - From: Leide Santinello To: delphi-br@yahoogrupos.com.br Sent: Saturday, August 19, 2006 6:24 AM Subject: [delphi-br] S O C O R R O Estou usando Firebird consegui colocar o programa para funcionar em rede, isto é, outra estação com a ajuda dos amigos aqui, só que agora, o programa na estação só entra se o sistema estiver aberto no servidor, alguem poderia me dar uma dica para resolver este problema, outra coisa, só consigo gravar registro na primerira estação que começo a inserir dados, se entrar em outra e tentar inserir não consigo. a conexão dinamica está se dando da seguinte forma no evento beforeconnect do IBDATABASE faço: procedure TDMGcnet.IBConexaoBeforeConnect(Sender: TObject); var ConfigIni: TIniFile; begin //Seta as propriedades da conexão em tempo de execução pegando os dados do arquivo config.ini ConfigIni := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'Config.ini'); IBConexao.DatabaseName := ConfigIni.ReadString('CONFIG', 'DATABASE', ''); IBConexao.Params.Values['User_Name']:= ConfigIni.ReadString('CONFIG', 'USERNAME', ''); IBConexao.Params.Values['Password']:= ConfigIni.ReadString('CONFIG', 'PASSWORD', ''); IBConexao.Params.Values['lc_ctype']:= ConfigIni.ReadString('CONFIG', 'TIPO', ''); ConfigIni.Free; Arquivo INI utilizado [CONFIG] DATABASE=\\GCNET\BRTESTE\DADOS\BRT.FDB USERNAME=SYSDBA PASSWORD=masterkey TIPO=WIN1252 Nos cadastros estou utilizando o CxDbnavigator da paleta de componentes do DevExpress preciso colocar no evento afterpost das tabelas o Commit ou coisa parecida? estou perdida neste ponto tenho que abrir e fechar transações? me ajudem por favor. desde já agradece Leide Santinello [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.1.405 / Virus Database: 268.11.3/423 - Release Date: 18/08/2006 [As partes desta mensagem que não continham texto foram removidas] [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] 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] Manipular arquivo texto no delphi
Como faço para manipular partes de um arquivo texto ??? gostaria de pegar alguns caracteres do arquivo e ir salvando em outro arquivo. alguem pode me ajudar ?? valeu [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] 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
Re: [delphi-br] S O C O R R O
Alexandre boa tarde a porta 3050 já estava liberada, o que estava acontecendo, era o atalho da estação só iniciava o sistema quando o programa do servidor estava aberto, e também não conseguia gravar em duas estações mesmo em tabelas distintas, mas agora tudo bem está funcionando, novamente te agradeço pela força, Tchau e um abração - Original Message - From: Alexandre To: delphi-br@yahoogrupos.com.br Sent: Saturday, August 19, 2006 12:25 PM Subject: RES: [delphi-br] S O C O R R O Estimada, Bom dia. Um pequeno checklist; - Verificar se você instalou o FB no servidor como sendo SUPERSERVER; - Se o seu servidor for windows xp sp2, certifique-se de ter aberto a porta 3050/TCP no firewall do servidor; - Não precisa compartilhar pasta nenhuma no servidor (alias não deve), basta apenas que seu servidor tenha um IP fixo visivel na rede; Feito isso na estacao verifique; - De um ping no servidor: ping IP_SEU_SERVIDOR e veja se esta ok; - Coloque a biblioteca fbclient.dll (e a gds32.dll por compatibilidade) no diretorio windows\system32 e registre-as: Exemplo : regsvr32 c:\windows\system32\fbclient.dll; - Modifique seu arquivo INI, na linha DATABASE pra que fique assim: DATABASE=192.168.0.1:C:\BRTESTE\DADOS\BRT.FDB (O diretório C:\BRTESTE\DADOS é o diretório do seu servidor e näo necessita estar compartilhado e esse numero de ip é ficticio, coloque no lugar o ip do seu servidor) Feito isso acima e o seu IBConexao se conectar, verifique agora o seguinte: - Duplo clique no seu componente IBTRANSACTION, verifique o tipo de transacao assinalada, se não houver nenhuma, assinale a opcao READ COMMITTED e no quadro ao lado retire a linha NOWAIT. - Se vocë trabalha com dbnavigators entao sempre deixe o botao de refresh ligado, ou entao, terias que aprender a como trabalhar com eventos no IB/FB. Daí, como nunca trabalhei, não sei te dizer como fazer. - Sobre o afterpost, alguns utilizam o DEFAULT ACTION do componente transaction como TACOMMIT e no afterposto dos tables/ou querys o seguinte: * Na secao PUBLIC do seu DATAMODULE crie esta procedure procedure AplicarAlteracoes(DataSet: TDataSet); * Logo em Seguida, pode ser la no final, antes do END. crie assim: procedure TDataModule1.AplicacarAlteracoes(DataSet: TDataSet); begin Result := True; with TIBCustomDataSet(DataSet) do begin if (State in dsEditModes) or UpdatesPending then begin IBConexao.ApplyUpdates([DataSet as TIBCustomDataSet]); IBTransacao.CommitRetaining; { limpar o cache } CancelUpdates; end; end; end; * Coloquei DataModule1 pois não sei o nome do seu componente datamodule. Como sua conexao chama-se IBConexao, imagino que seu transaction se chame IBTransacao. * Feito isso, no afterpost de sua query ou table podera utilizar assim: procedure TForm1.IBTable1AfterPost(DataSet: TDataSet); begin DataModule1.AplicarAlteracoes(IBTable1); end; Pra se conectar vocë dá quais comandos? IBConexao.Active := True ? Porque não experimenta: IBConexao.Open; IBTransacao.StartTransaction; Se algo falhar em suas atualizacoes (se você ainda não as ver corretamente) experimente utilizar a propriedade CACHEDUPDATES de seus componentes tables ou querys como TRUE, em conjunto com outra propriedade chamada BUFFERCHUNKS (hehe parece que CHUCK me lembra boneco assassino) para uns 500 mais ou menos. Vá novamente no seu COMPONENTE de transacao e limpe o quadro ao lado das opcoes de isolamento. No mais, incluiu um cliente numa estacao, e você tiver no grid de clientes na outra, não tem jeito, liga o botaozinho REFRESH do dbnavigator pro usuário usar e abusar. É isso aí, eu náo entendo muito de IBX não (alias náo gosto mesmo) porque minha praia é DBExpress. Mas tente essas opcoes aí e veja se funciona direitinho e depois nos retorne. Saudacoes. --- []'s Alexandre Frase da semana: A temperança e o trabalho são as duas melhores médias de um homem. (Rousseau) Frase de la semana: La moderación y el trabajo son los mejores medios de un hombre. (Rousseau) -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Leide Santinello Enviada em: sábado, 19 de agosto de 2006 06:25 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] S O C O R R O Estou usando Firebird consegui colocar o programa para funcionar em rede, isto é, outra estação com a ajuda dos amigos aqui, só que agora, o programa na estação só entra se o sistema estiver aberto no servidor, alguem poderia me dar uma dica para resolver este problema, outra coisa, só consigo gravar registro na primerira estação que começo a inserir dados, se entrar em outra e tentar inserir não consigo. a conexão dinamica está se dando da seguinte forma no evento beforeconnect do IBDATABASE
Re: [delphi-br] Capturar Texto
Amigos, ja ouviram falar do MadSHI Except (http://www.madshi.net/madExceptDescription.htm) ??? Esse é um exemplo de Report dele por email: date/time : 2006-08-02, 08:50:32, 875ms computer name : SERVIDOR user name : Adminadmin operating system : Windows XP Service Pack 2 build 2600 system language : Portuguese system up time: 8 hours 34 minutes program up time : 15 seconds processors: 2x Intel(R) Pentium(R) 4 CPU 3.00GHz physical memory : 684/1023 MB (free/total) free disk space : (C:) 31,13 GB display mode : 1024x768, 16 bit process id: $fb4 allocated memory : 15,42 MB executable: SYSTEM_Servidor.exe exec. date/time : 2006-08-01 10:54 madExcept version : 3.0b callstack crc : $2164a695, $2c9d26d5, $09c0a046 exception number : 1 exception class : EAccessViolation exception message : Access violation at address 006D2878 in module 'SYSTEM_Servidor.exe'. Read of address . thread $f64 (TVrTimerThread): 006d2878 +06c SYSTEM_Servidor.exe Unit1 4875 +1 TForm1.tbEVEHAfterOpen 00542d2d +015 SYSTEM_Servidor.exe DB10757 +1 TDataSet.DoAfterOpen 0053fc39 +051 SYSTEM_Servidor.exe DB 8880 +8 TDataSet.OpenCursorComplete 0053fb5f +077 SYSTEM_Servidor.exe DB 8850 +15 TDataSet.SetActive 0053fba3 +0bb SYSTEM_Servidor.exe DB 8857 +22 TDataSet.SetActive 0053f988 +004 SYSTEM_Servidor.exe DB 8803 +0 TDataSet.Open 006cb1c1 +0cd SYSTEM_Servidor.exe Unit1 2656 +6 TForm1.ControlaHistorico 006dff53 +237 SYSTEM_Servidor.exe Unit1 7662 +79 TForm1.Timer1Timer 0051cf24 +034 SYSTEM_Servidor.exe VrThreads 294 +4 TVrTimer.Timer 0051cc60 +008 SYSTEM_Servidor.exe VrThreads 163 +1 TVrTimerThread.CallEvent 0051cc48 +04c SYSTEM_Servidor.exe VrThreads 156 +10 TVrTimerThread.Execute 0044d963 +02b SYSTEM_Servidor.exe madExcept HookedTThreadExecute 00472308 +034 SYSTEM_Servidor.exe Classes ThreadProc 004050b4 +028 SYSTEM_Servidor.exe System ThreadWrapper 0044d845 +00d SYSTEM_Servidor.exe madExcept CallThreadProcSafe 0044d8af +037 SYSTEM_Servidor.exe madExcept ThreadExceptFrame created by main thread ($bcc) at: 0051cb85 +039 SYSTEM_Servidor.exe VrThreads 129 +4 TVrTimerThread.Create Utilizamos em nossos sistemas e sinceramente, é do tipo.. Nossa, como eu vivi até agora sem isso UahuHAUuahUAhauHUAHuahUAHuah Ele tira uma PrintScreen, manda o Log, e de quebra, ainda dah pra saber qual a linha gerou o Erro Enfim, baixem, conhecam, adiquiram (US$ 99,00baratíssimo para o que faz), e nunca mais se arrependam Haaa antes q alguem fale: Não não sou marketeiro ou comercial dos kra, é q o bicho é booomesmo Abração e espero ter ajudado ;) Atenciosamente, Gerson Thomaz Santos Analista de Sistema Esta mensagem pode conter informação confidencial e/ou privilegiada. Se você não for o destinatário ou a pessoa autorizada a receber esta mensagem, não pode usar, copiar ou divulgar as informações nela contidas ou tomar qualquer ação baseada nessas informações. Se você recebeu esta mensagem por engano, por favor avise imediatamente o remetente, respondendo o e-mail e em seguida apague-a. Agradecemos sua cooperação. - Original Message - From: Desenvolvimento (Anderson) To: delphi-br@yahoogrupos.com.br Sent: Friday, August 18, 2006 3:23 PM Subject: Re: [delphi-br] Capturar Texto e como saber qual objeto/evento gerou a excessão? - Original Message - From: Marco Aurélio (DELPHI) To: delphi-br@yahoogrupos.com.br Sent: Friday, August 18, 2006 1:31 PM Subject: Re: [delphi-br] Capturar Texto utilize da paleta standard o componente application.events. Este componente captura todo o evento que ocorre na aplicação inclusive as exceções. Atenciosamente Marco Aurélio Gerônimo - Original Message - From: roberto ezequiel To: delphi-br@yahoogrupos.com.br Sent: Friday, August 11, 2006 7:22 PM Subject: [delphi-br] Capturar Texto Olá pessoal... Tenho um sistema e gostaria de capturar o texto do erro que aparece na tela do cliente... Exemplo... quando acontece algum erro, tanto de tela quando de banco, o sistema armazenaria em um bloco de notas (.txt), que seria uma espécie de log de erro, e quando fosse dada a manubtenção poderia se abrir este txt e ler o que houve de erro!!! Se alguém puder me dar uma luz, agradeceria... Obrigado - Yahoo! Search Música para ver e ouvir: You're Beautiful, do James Blunt [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 1.1714 (20060818) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes
Re: [delphi-br] Manipular arquivo texto no delphi
vc tera que ler o arquivo texto e com a função copy pegar o que quer para gravar em outro arquivo procedure TRecArquivo.BitBtn1Click(Sender: TObject); var Txt :TextFile; Entrada :String; Filtra :String[2]; Conv:String[2]; Numero :String; qtdmes :real; intconfirma : integer; begin Dados.Transferencia.Close ; Dados.Transferencia.Exclusive := true; Dados.Transferencia.Open ; Dados.Transferencia.EmptyTable ; Dados.Transferencia.Refresh ; //--- //--- if parc.Checked = true then begin Assignfile(txt,open.FileName); //Associando o nome do arquivo a variavel Textfile Reset(txt); //Abrindo o Arquivo que será utilizado While not Eoln(Txt) do begin label1.update ; label2.update ; label1.caption := 'Recebendo Arquivo' ; label2.caption := ' '; Readln(Txt,entrada); Dados.Transferencia.insert; Dados.TransferenciaCampo1.asstring := copy(entrada,01,33); Dados.TransferenciaConv.asstring := copy(entrada,63,2); Dados.TransferenciaMes.asstring := copy(entrada,65,2); Dados.TransferenciaCampo2.asstring := copy(entrada,63,10); Dados.TransferenciaGrupo.asstring := '0'+ copy(entrada,67,1); Dados.TransferenciaCodigo.asstring := copy(entrada,68,5); Dados.TransferenciaCampo3.asstring := copy(entrada,79,03); Dados.TransferenciaCampo4.asstring := copy(entrada,107,10); Dados.TransferenciaCampo5.asstring := copy(entrada,146,45); Dados.TransferenciaDTpagamento.asstring := copy(entrada,111,2)+'/'+copy(entrada,113,2)+'/'+copy(entrada,115,2); Dados.TransferenciaDtmovimento.asstring := copy(entrada,294,2)+'/'+copy(entrada,296,2)+'/'+copy(entrada,298,2); Dados.TransferenciaVL_AMAIOR.ASSTRING := COPY(entrada,237,4); Dados.TransferenciaVL_AMENOR.ASSTRING := COPY(entrada,276,4); if (copy(entrada,262,1) = '0') and (copy(entrada,262,2) = '0') then begin Dados.TransferenciaVl_recebido.asstring := copy(entrada,264,3); end; if copy(entrada,262,1) = '0' then begin Dados.TransferenciaVl_recebido.asstring := copy(entrada,263,4); end; if copy(entrada,262,1) '0' then begin Dados.TransferenciaVl_recebido.asstring := copy(entrada,262,5); end; Dados.Transferencia.post; end; // // Dados.Transferencia.Filter := 'Conv = ''82'''; Dados.Transferencia.Filtered := true ; label1.Update ; label1.Caption := 'Preparando para Verificação de Parcelas Únicas' ; p.MaxValue := Dados.Transferencia.RecordCount ; Dados.Transferencia.Indexname := '' ; Dados.Transferencia.First; While not Dados.Transferencia.Eof do begin if (Copy(Dados.TransferenciaCampo2.value,1,4) = '8277') OR (Copy(Dados.TransferenciaCampo2.value,1,4) = '8288') then begin Qualquer duvida entre em contato Leide Santinello - Original Message - From: Renan To: Delphi Br Sent: Saturday, August 19, 2006 3:17 PM Subject: [delphi-br] Manipular arquivo texto no delphi Como faço para manipular partes de um arquivo texto ??? gostaria de pegar alguns caracteres do arquivo e ir salvando em outro arquivo. alguem pode me ajudar ?? valeu [As partes desta mensagem que não continham texto foram removidas] [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] 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
Re: [delphi-br] Campos Lookup, ainda existe vantagens? Vamos discutir?
eu faço assim: edit q pode colocar codigo, nome, sobrenome, etc... no OnExit, coloco o codigo de procura,q tenta achar primeiro o codigo, se retornar zero aquivo, ele procura pelo primeiro nome se achou mais de um ele abre o grid com somente os arquivos achados, e assim vai, só q procuro pelos principais campos. valeu, [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] 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
Re: [delphi-br] Manipular arquivo texto no delphi
vai a dica do dtdelphi 850 dicas... muito bom... nao fico sem ele... rs... 473 - Lendo e gravando arquivos de texto Existem vários métodos em Delphi para gravar arquivos texto a partir de informações gravadas em bases de dados ou para ler arquivos texto e armazená-los em bases de dados. Esta dica apresenta um destes métodos: o uso de TextFiles. TextFile é um tipo de dado pré-definido no Delphi e corresponde ao tipo Text do Turbo Pascal e do Object Pascal. Inicialmente para acessar um arquivo de texto, você precisa definir uma variável tipo TextFile, no local que você achar mais apropriado, da seguinte forma: var arq: TextFile; Vamos precisar também de uma variável tipo string para armazenar cada linha lida do arquivo: var linha: String; Antes de se iniciar a leitura do arquivo, precisamos associar a variavel TextFile com um arquivo fisicamente armazenado no disco: AssignFile ( arq, 'C:\AUTOEXEC.BAT' ); Reset ( arq ); A rotina AssignFile faz a associação enquanto Reset abre efetivamente o arquivo para leitura. AssignFile corresponde à Assign do Turbo Pascal. Em seguida é necessário fazer uma leitura ao arquivo, para isto utilizaremos a procedure ReadLn: ReadLn ( arq, linha ); O comando acima lê apenas uma linha de cada vez, assim precisamos de um loop para efetuar várias leituras até que o arquivo acabe. Para verificar o fim do arquivo, utilizaremos a função Eof: while not Eof ( arq ) do Agora uma rotina quase completa para fazer a leitura de um arquivo texto. Esta rotina recebe como parâmetro o nome do arquivo que será lido: procedure percorreArquivoTexto ( nomeDoArquivo: String ); var arq: TextFile; linha: String; begin AssignFile ( arq, nomeDoArquivo ); Reset ( arq ); ReadLn ( arq, linha ); while not Eof ( arq ) do begin { Processe a linha lida aqui. } { Para particionar a linha lida em pedaços, use a função Copy. } ReadLn ( arq, linha ); end; CloseFile ( arq ); end; E também uma rotina quase completa para gravação de um arquivo texto. Esta rotina recebe como parâmetro o nome do arquivo que será gravado e uma tabela (TTable) de onde os dados serão lidos: procedure gravaArquivoTexto ( nomeDoArquivo: String; tabela: TTable ); var arq: TextFile; linha: String; begin AssignFile ( arq, nomeDoArquivo ); Rewrite ( arq ); tabela.First; while not tabela.Eof do begin Write ( arq, AjustaStr ( tabela.FieldByName ( 'Nome' ).AsString, 30 ) ); Write ( arq, FormatFloat ( '.00', tabela.FieldByName ( 'Salario' ).AsFloat ) ); WriteLn ( arq ); tabela.Next; end; CloseFile ( arq ); end; Note nesta segunda rotina, a substituição de Reset por Rewrite logo após o AssignFile. Rewrite abre o arquivo para escrita, destruindo tudo que houver lá anteriormente . Note também o uso de Write e WriteLn para gravar dados no arquivo texto. Finalmente note o uso de AjustaStr e FormatFloat para garantir que campos string e numericos sejam gravados com um número fixo de caracteres. FormatFloat é uma rotina do próprio Delphi enquanto AjustaStr está definida abaixo: function AjustaStr ( str: String; tam: Integer ): String; begin while Length ( str ) tam do str := str + ' '; if Length ( str ) tam then str := Copy ( str, 1, tam ); Result := str; end; O uso da função AjustaStr é fundamental quando você estiver gravando arquivos texto com registros de tamanho fixo a partir de bases de dados Paradox que usualmente não preenchem campos string com espaços no final. - Original Message - From: Renan To: Delphi Br Sent: Saturday, August 19, 2006 3:17 PM Subject: [delphi-br] Manipular arquivo texto no delphi Como faço para manipular partes de um arquivo texto ??? gostaria de pegar alguns caracteres do arquivo e ir salvando em outro arquivo. alguem pode me ajudar ?? valeu [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.1.405 / Virus Database: 268.11.3/423 - Release Date: 18/08/2006 [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] 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] para compilar
estou com um dificuldade mais não sei como resolver isso alguem poderia me ajudar fico muito agradecido, o problema é o seguinte ele faz o que eu quero foi feito hein delphi só que peguei o exe dele mais é um programa caseiro só que quero abrir este exe para mudar a configuração deste programa pq ele é meio fraco quero fazer umas mudanças só que não conheco a pessoa que fez e nein quem é então fica dificil obter o codigo dele então eu consigo abrir este exe no delphi ou tenho que usar algum programa expecifico para abrir a fazer as mudanças -- 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] 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] Encontrar Palavra em DBRichedit
Olá amigos, dá pra me dá uma ajuda! se entender Como faço para localizar uma palavra já definida (ex: word, excel, calculadora...) em um DBRichedit, eu quero fazer mais ou menos assim. If encontrar a palavra word then timer1...etc... end; Cara se deu para enterder mé dá uma luz para eu continuar? -- 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] 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
Re: [delphi-br] Encontrar Palavra em DBRichedit
veja ai mais uma dica do dtdelphi 850, veja se funciona. 723 - Pesquisa de um string mudando o texto Coloque no OnChange do Edit1 o Código Abaixo var i : integer; aux: integer; begin aux:=1; for i:=0 to Length(RichEdit1.Text) do begin if (Copy(RichEdit1.Text,i+1,length(Edit1.Text)) = Edit1.Text) then begin RichEdit1.SelStart := aux; RichEdit1.SelLength := i-aux+1; RichEdit1.SelAttributes.Color := ClBlack; RichEdit1.SelAttributes.Style := []; RichEdit1.SelStart := i; RichEdit1.SelLength := Length(Edit1.text); RichEdit1.SelAttributes.Color := ClRed; RichEdit1.SelAttributes.Style := [fsBold]; aux := i + length(Edit1.Text); end; end; RichEdit1.SelStart := aux; RichEdit1.SelLength := i-aux+1; RichEdit1.SelAttributes.Color := ClBlack; RichEdit1.SelAttributes.Style := []; end; A dica acima foi enviada por Wendel Bezerra Silva Para usar vc deve colocar um Edit e um Richedit num form e colocar algum texto no richedit! Quando se digita alguma palavra no edit se ocorrer alguma coincidencia no richedit esse texto ficará em vermelho! Bem legal essa dica! Obs: Se o conteúdo do Richedit for excessivo o processo fica um pouco demorado! - Original Message - From: conexaoi To: delphi-br@yahoogrupos.com.br Sent: Saturday, August 19, 2006 5:47 PM Subject: [delphi-br] Encontrar Palavra em DBRichedit Olá amigos, dá pra me dá uma ajuda! se entender Como faço para localizar uma palavra já definida (ex: word, excel, calculadora...) em um DBRichedit, eu quero fazer mais ou menos assim. If encontrar a palavra word then timer1...etc... end; Cara se deu para enterder mé dá uma luz para eu continuar? -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.1.405 / Virus Database: 268.11.3/423 - Release Date: 18/08/2006 [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] 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
Re: [delphi-br] - ordenar tabela por data e por hora
Mauricio... não sei exatamente se é isso que vc precisa... Mas é uma coisa muito simples se vc tiver gravando os dados de data e hora em formato DATE; No componente query de acesso ao seu banco coloca lá ORDER BY NOME DO CAMPO DATA; Agora se vc não gravou no banco com o tipo date ai o buraco é mais em baixo... - Original Message - From: Mauricio Lacerda To: delphi-br@yahoogrupos.com.br Sent: Friday, August 18, 2006 4:09 PM Subject: [delphi-br] - ordenar tabela por data e por hora como faço para ordenar um tabela por data e hora.. uso delphi 5 e firebird... muito obrigado! -- Maurício Lacerda Savaris [EMAIL PROTECTED] Poa - RS [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] 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