Re: [delphi-br] erros internos Delphi: URW e Stack Overflow no Compilador
Esse projeto tem mais de 10 anos, sendo constantemente atualizado. Já compilei em outras versões. Já apaguei, mas qq coisa que eu faça sempre dá no mesmo erro. Até agora... 2008/10/28 Onjahyr - GMAIL [EMAIL PROTECTED] Alguma vez você conseguiu compilar usando o Delphi 7 (nestas máquinas 2 Duo)? Por acaso já tentou apagando as .DCU e o .RES? Depois disso fechar o delphi e abri-lo novamente... oswaldosaraujo escreveu: Olá amigos Boa Noite! Faz uns 10 dias que eu tento contornar um problema no Delphi e não consigo. De uma hora para outra não consigo mais compilar meu principal projeto. Ele abriu uma janela chamada Danger com uma mensagem Stack Overflow. Save your work and restart Delphi. e em algumas vezes algumas mensagens Internal Error URW com um número que varia 3237, depois 3235. Eu já coloquei isto em 5 máquinas diferentes (um Core 2 Duo e 4 Dual Core) , desinstalei e reinstalei o Delphi, reinstalei o Jedi na última versão 3.34. Tentei criar pacotes e isolar partes do sistema. Além de começar a refazer o projeto do 0 umas duas vezes. Tem uns 500 formulários no projeto. A maioria deles faz referencia à constantes tipadas do formulário principal, algo como o nome do escritório, um código de cliente atual, o usuário logado. Ele ainda usa BDE e paradox. Já tentei compilar direto da linha de comando para ver o que acontecia e dá um erro no compilador. Usei Delphi 6 Pro e 7 Enterprise, ambos atualizados. Retirei o que havia do antigo RXLIB e tirei algumas referencias múltiplas em formulários de busca com diversos forms chamadores, todos com constantes tipadas usadas como parâmetros. Nada funcionou!!! Tentei rodar num D2007 trial, mas não foi possível porque não deu para instalar o Jedi. Jcl e JVCL. (o trial não roda a versão linha de comando para que eu saiba se o projeto ao menos compila em outra versão. Já conversei com algumas pessoas, mas ainda ninguém foi capaz de dizer o que significam esses erros. Aceito sugestões! Qualquer uma! Muito obrigado! Oswaldo dos Santos Araujo [EMAIL PROTECTED] oswaldosaraujo%40gmail.com mailto: oswaldosaraujo%40gmail.com oswaldosaraujo%2540gmail.com (11) 9259-4094 -- Atenciosamente Oswaldo dos Santos Araujo mailto:[EMAIL PROTECTED] Telefones escritório: (11) 6996-1101/6994-3586 MSN [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Campanha Ajude o Yahoo! - era Re: Criacao de Componente (Por favor)
2008/10/27 Elazar Dornelles Ceza [EMAIL PROTECTED]: Desculpe responder só hoje... mas seria interessante tb o yahoo se preocupar com isto...olha só quanta tralha que vem junto...e como vem junto em todas as mensagens chega um ponto que passa despercebido. O rodapé não é só do yahoo, mas também da configuração do grupo. E é irrelevante perante o que boa parte do pessoal faz: top post de uma única linha para uma mensagem de centenas de linhas. Compara esta minha mensagem com as demais de threads recentes. Joao Morais
Re: [delphi-br] Problemas com debug step-by-step
2008/10/27 Fabricio Veiga [EMAIL PROTECTED]: Boa noite senhores! Venho desesperadamente em busca de uma solução para Delphi 7, o qual a função de debug passo-a-passo (F8), não está funcionando como deveria. Quando teclo F8, o cursor de seleção não muda para linha seguinte, ou seja, permanence na mesma linha. As demais teclas como F9 e Ctrl + F7 funcionam normalmente. A opção Integrated Debugging está ativada. Alguém tem alguma idea do que seja ou já tenha vivência dessa situação? Eu nunca vi nada parecido com isto, exceto quando a linha é um laço. Você pode comentar um pouco mais e colocar trechos de código para nos ajudar a entender o que está acontecendo? Joao Morais
Re: [delphi-br] erros internos Delphi: URW e Stack Overflow no Compilador
Ha muito tempo atrás vi acontecer algo parecido num projeto gigante cujos formulários estavam todos como AutoCreate, ou seja, sobrecarregava a memória e não abria mais. Se este for seu caso, deixe apenas o formulário principal como autocreate, e criando os demais apenas em tempo de execução. []s Alexandre Nicolas - Original Message - From: oswaldosaraujo To: delphi-br@yahoogrupos.com.br Sent: Monday, October 27, 2008 9:34 PM Subject: [delphi-br] erros internos Delphi: URW e Stack Overflow no Compilador Olá amigos Boa Noite! Faz uns 10 dias que eu tento contornar um problema no Delphi e não consigo. De uma hora para outra não consigo mais compilar meu principal projeto. Ele abriu uma janela chamada Danger com uma mensagem Stack Overflow. Save your work and restart Delphi. e em algumas vezes algumas mensagens Internal Error URW com um número que varia 3237, depois 3235. Eu já coloquei isto em 5 máquinas diferentes (um Core 2 Duo e 4 Dual Core) , desinstalei e reinstalei o Delphi, reinstalei o Jedi na última versão 3.34. Tentei criar pacotes e isolar partes do sistema. Além de começar a refazer o projeto do 0 umas duas vezes. Tem uns 500 formulários no projeto. A maioria deles faz referencia à constantes tipadas do formulário principal, algo como o nome do escritório, um código de cliente atual, o usuário logado. Ele ainda usa BDE e paradox. Já tentei compilar direto da linha de comando para ver o que acontecia e dá um erro no compilador. Usei Delphi 6 Pro e 7 Enterprise, ambos atualizados. Retirei o que havia do antigo RXLIB e tirei algumas referencias múltiplas em formulários de busca com diversos forms chamadores, todos com constantes tipadas usadas como parâmetros. Nada funcionou!!! Tentei rodar num D2007 trial, mas não foi possível porque não deu para instalar o Jedi. Jcl e JVCL. (o trial não roda a versão linha de comando para que eu saiba se o projeto ao menos compila em outra versão. Já conversei com algumas pessoas, mas ainda ninguém foi capaz de dizer o que significam esses erros. Aceito sugestões! Qualquer uma! Muito obrigado! Oswaldo dos Santos Araujo [EMAIL PROTECTED] (11) 9259-4094 -- No virus found in this incoming message. Checked by AVG - http://www.avg.com Version: 8.0.175 / Virus Database: 270.8.4/1750 - Release Date: 27/10/2008 18:14 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ajuda com relação a impressão de textos - help
mais eu precisaria fazer isto atraves do delphi 2008/10/27 Luciano Calenzani Simões [EMAIL PROTECTED]: Você vai usar esse comando no Prompt do MS-DOS. Cria um .BAT e coloca no Iniciar da máquina; Não precisa fazer isso via Delphi. Luciano Calenzani Simões De: Leonardo Baldino [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 27 de Outubro de 2008 16:04:10 Assunto: Re: Res: [delphi-br] ajuda com relação a impressão de textos - help como eu faço para usar este comando e eu tenho que utilizar alguma biblioteca especifica? Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas] -- Leonardo Carlos Baldino - The Highlander
Re: [delphi-br] erros internos Delphi: URW e Stack Overflow no Compilador
pra mim dava stack overflow nos eventos de calc fields, Uberdam Cavaletti Formado em Tecnologia da Informação - Unoesc - Xxe Pós-graduado em desenvolvimento Java - Unoesc - Xxe http://www.curricular.com.br/berdam Visite http://passandoveneno.blogspot.com --- Em ter, 28/10/08, Nicolas [EMAIL PROTECTED] escreveu: De: Nicolas [EMAIL PROTECTED] Assunto: Re: [delphi-br] erros internos Delphi: URW e Stack Overflow no Compilador Para: delphi-br@yahoogrupos.com.br Data: Terça-feira, 28 de Outubro de 2008, 9:27 Ha muito tempo atrás vi acontecer algo parecido num projeto gigante cujos formulários estavam todos como AutoCreate, ou seja, sobrecarregava a memória e não abria mais. Se este for seu caso, deixe apenas o formulário principal como autocreate, e criando os demais apenas em tempo de execução. []s Alexandre Nicolas - Original Message - From: oswaldosaraujo To: [EMAIL PROTECTED] os.com.br Sent: Monday, October 27, 2008 9:34 PM Subject: [delphi-br] erros internos Delphi: URW e Stack Overflow no Compilador Olá amigos Boa Noite! Faz uns 10 dias que eu tento contornar um problema no Delphi e não consigo. De uma hora para outra não consigo mais compilar meu principal projeto. Ele abriu uma janela chamada Danger com uma mensagem Stack Overflow. Save your work and restart Delphi. e em algumas vezes algumas mensagens Internal Error URW com um número que varia 3237, depois 3235. Eu já coloquei isto em 5 máquinas diferentes (um Core 2 Duo e 4 Dual Core) , desinstalei e reinstalei o Delphi, reinstalei o Jedi na última versão 3.34. Tentei criar pacotes e isolar partes do sistema. Além de começar a refazer o projeto do 0 umas duas vezes. Tem uns 500 formulários no projeto. A maioria deles faz referencia à constantes tipadas do formulário principal, algo como o nome do escritório, um código de cliente atual, o usuário logado. Ele ainda usa BDE e paradox. Já tentei compilar direto da linha de comando para ver o que acontecia e dá um erro no compilador. Usei Delphi 6 Pro e 7 Enterprise, ambos atualizados. Retirei o que havia do antigo RXLIB e tirei algumas referencias múltiplas em formulários de busca com diversos forms chamadores, todos com constantes tipadas usadas como parâmetros. Nada funcionou!!! Tentei rodar num D2007 trial, mas não foi possível porque não deu para instalar o Jedi. Jcl e JVCL. (o trial não roda a versão linha de comando para que eu saiba se o projeto ao menos compila em outra versão. Já conversei com algumas pessoas, mas ainda ninguém foi capaz de dizer o que significam esses erros. Aceito sugestões! Qualquer uma! Muito obrigado! Oswaldo dos Santos Araujo oswaldosaraujo@ gmail.com (11) 9259-4094 - - - - - - No virus found in this incoming message. Checked by AVG - http://www.avg. com Version: 8.0.175 / Virus Database: 270.8.4/1750 - Release Date: 27/10/2008 18:14 [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Problemas com debug step-by-step
Joao Morais escreveu: 2008/10/27 Fabricio Veiga [EMAIL PROTECTED] mailto:fabricio%40prismafive.com.br: Boa noite senhores! Venho desesperadamente em busca de uma solução para Delphi 7, o qual a função de debug passo-a-passo (F8), não está funcionando como deveria. Quando teclo F8, o cursor de seleção não muda para linha seguinte, ou seja, permanence na mesma linha. As demais teclas como F9 e Ctrl + F7 funcionam normalmente. A opção Integrated Debugging está ativada. Alguém tem alguma idea do que seja ou já tenha vivência dessa situação? Eu nunca vi nada parecido com isto, exceto quando a linha é um laço. Você pode comentar um pouco mais e colocar trechos de código para nos ajudar a entender o que está acontecendo? Joao Morais No virus found in this incoming message. Checked by AVG. Version: 7.5.549 / Virus Database: 270.8.4/1749 - Release Date: 27/10/2008 07:57 Vou obter fontes do programa a partir do meio-dia, logo encaminharei a lista. Obrigado!
Re: [delphi-br] erros internos Delphi: URW e Stack Overflow no Compilador
Até aonde eu sei, Stack Overflow (Estouro da pilha) ocorre muito em chamadas redundantes a procedimentos (Uma função que chama a sí própria) ou então alguma função ou procedimento muito grande e, que está fazendo chamadas a outras funções internamente, que por sua vez, fazem chamadas a outras funções. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil [EMAIL PROTECTED] http://www.geocities.com/SiliconValley/Bay/1058 http://delphitocorporerm.blogspot.com/ MSN: [EMAIL PROTECTED] SKYPE: WalterChagasJr - Original Message - From: Oswaldo dos Santos Araujo To: delphi-br@yahoogrupos.com.br Sent: Tuesday, October 28, 2008 6:41 AM Subject: Re: [delphi-br] erros internos Delphi: URW e Stack Overflow no Compilador Esse projeto tem mais de 10 anos, sendo constantemente atualizado. Já compilei em outras versões. Já apaguei, mas qq coisa que eu faça sempre dá no mesmo erro. Até agora... 2008/10/28 Onjahyr - GMAIL [EMAIL PROTECTED] Alguma vez você conseguiu compilar usando o Delphi 7 (nestas máquinas 2 Duo)? Por acaso já tentou apagando as .DCU e o .RES? Depois disso fechar o delphi e abri-lo novamente... oswaldosaraujo escreveu: Olá amigos Boa Noite! Faz uns 10 dias que eu tento contornar um problema no Delphi e não consigo. De uma hora para outra não consigo mais compilar meu principal projeto. Ele abriu uma janela chamada Danger com uma mensagem Stack Overflow. Save your work and restart Delphi. e em algumas vezes algumas mensagens Internal Error URW com um número que varia 3237, depois 3235. Eu já coloquei isto em 5 máquinas diferentes (um Core 2 Duo e 4 Dual Core) , desinstalei e reinstalei o Delphi, reinstalei o Jedi na última versão 3.34. Tentei criar pacotes e isolar partes do sistema. Além de começar a refazer o projeto do 0 umas duas vezes. Tem uns 500 formulários no projeto. A maioria deles faz referencia à constantes tipadas do formulário principal, algo como o nome do escritório, um código de cliente atual, o usuário logado. Ele ainda usa BDE e paradox. Já tentei compilar direto da linha de comando para ver o que acontecia e dá um erro no compilador. Usei Delphi 6 Pro e 7 Enterprise, ambos atualizados. Retirei o que havia do antigo RXLIB e tirei algumas referencias múltiplas em formulários de busca com diversos forms chamadores, todos com constantes tipadas usadas como parâmetros. Nada funcionou!!! Tentei rodar num D2007 trial, mas não foi possível porque não deu para instalar o Jedi. Jcl e JVCL. (o trial não roda a versão linha de comando para que eu saiba se o projeto ao menos compila em outra versão. Já conversei com algumas pessoas, mas ainda ninguém foi capaz de dizer o que significam esses erros. Aceito sugestões! Qualquer uma! Muito obrigado! Oswaldo dos Santos Araujo [EMAIL PROTECTED] oswaldosaraujo%40gmail.com mailto: oswaldosaraujo%40gmail.com oswaldosaraujo%2540gmail.com (11) 9259-4094 -- Atenciosamente Oswaldo dos Santos Araujo mailto:[EMAIL PROTECTED] Telefones escritório: (11) 6996-1101/6994-3586 MSN [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] __ Informação do ESET NOD32 Antivirus, versão da vacina 3561 (20081027) __ A mensagem foi verificada pelo ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Problemas com debug step-by-step
isso pode ser alguma pala num .dcu Apague todos os .dcu do seu projeto e mais o executável. Em seguida no Delphi, dê um build All []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil [EMAIL PROTECTED] http://www.geocities.com/SiliconValley/Bay/1058 http://delphitocorporerm.blogspot.com/ MSN: [EMAIL PROTECTED] SKYPE: WalterChagasJr - Original Message - From: Fabricio Veiga To: delphi-br@yahoogrupos.com.br Sent: Monday, October 27, 2008 8:12 PM Subject: [delphi-br] Problemas com debug step-by-step Boa noite senhores! Venho desesperadamente em busca de uma solução para Delphi 7, o qual a função de debug passo-a-passo (F8), não está funcionando como deveria. Quando teclo F8, o cursor de seleção não muda para linha seguinte, ou seja, permanence na mesma linha. As demais teclas como F9 e Ctrl + F7 funcionam normalmente. A opção Integrated Debugging está ativada. Alguém tem alguma idea do que seja ou já tenha vivência dessa situação? Obrigado a todos. Fabrício Veiga __ Informação do ESET NOD32 Antivirus, versão da vacina 3561 (20081027) __ A mensagem foi verificada pelo ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Ponteiro - Ajuda
Bom dia a todos.
Estou fazendo um menu treeview para meu sistema. Fiz o código mostrado abaixo.
Ele executou perfeitamente algumas vezes depois começou dar access violation,
passei para outra máquina, funcionou umas duas vezes e depois o mesmo erro.
Acredito que seja algum problema de memória, mas não consigo corrigir. Alguém
poderia me ajudar?
Desde já agradeço.
Código:
TMenu = Record
iId_Nivel: Integer;
sDs_Opcao: String;
iId_Nivel_Ch: Integer;
// sNm_Form: String;
end;
pMenu = ^TMenu;
procedure TfrmMenuModulos.FormCreate(Sender: TObject);
var
Menu: pMenu;
sTexto: String;
tnInd: TTreeNode;
aNode: Array of TTreeNode;
i: Integer;
begin
inherited;
VerificaQuery;
if LoginUsuario then
Inicializa_Menu;
All_QryAux.Close;
All_QryAux.SQL.Clear;
All_QryAux.SQL.Add(' SELECT ID_NIVEL,');
All_QryAux.SQL.Add(' DS_OPCAO,');
All_QryAux..SQL.Add(' ID_NIVEL_CHAMAR,');
All_QryAux.SQL.Add(' NM_FORM');
All_QryAux.SQL.Add(' FROM CTRL_MENU');
All_QryAux.SQL.Add(' WHERE ID_PROJETO = ' + IntToStr(dmDataBase.id_Projeto));
All_QryAux.SQL.Add(' AND ID_MODULO = ' + IntToStr(dmDataBase.id_Modulo));
All_QryAux.SQL.Add(' ORDER BY ID_NIVEL, ID_ITEM');
All_QryAux.Open;
i := 0;
tvMenu.Items.Clear;
SetLength(aNode, All_QryAux.RecordCount);
All_QryAux.First;
While not All_QryAux.Eof do
begin
New(Menu);
Menu^.iId_Nivel := All_QryAux.FieldByName('ID_NIVEL').AsInteger;
Menu^.sDs_Opcao := All_QryAux.FieldByName('DS_OPCAO').AsString;
Menu^.iId_Nivel_Ch := All_QryAux.FieldByName('ID_NIVEL_CHAMAR').AsInteger;
// Menu^.sNm_Form := All_QryAux.FieldByName('NM_FORM').AsString;
sTexto := Trim(All_QryAux.FieldByName('DS_OPCAO').AsString);
If All_QryAux.FieldByName('ID_NIVEL').AsInteger = 1 then
aNode[i]:= tvMenu.Items.AddObject(Nil, sTexto, Menu)
else
begin
tnInd := IndiceHie(Menu);
aNode[i] := tvMenu.Items.AddChildObject(tnInd, sTexto, Menu);
end;
Inc(i);
All_QryAux.Next;
Dispose(Menu);
end;
For i := Low(aNode) to High(aNode) do
If aNode[i] Nil then
aNode[i].Expanded:= True;
tvMenu.FullCollapse;
end;
function TfrmMenuModulos.IndiceHie(p_Hie: pMenu): TTreeNode;
Var
i: Integer;
begin
Result:= Nil;
For i := 0 to tvMenu.Items.Count do
begin
If (pMenu(tvMenu.Items[i].Data)^.iId_Nivel_Ch = p_Hie^.iId_Nivel) then
begin
Result:= tvMenu..Items[i];
Break;
end;
end;
end;
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] erros internos Delphi: URW e Stack Overflow no Compilador
isso mesmo, no calc fields ele ficava se chamando a ele próprio Uberdam Cavaletti Formado em Tecnologia da Informação - Unoesc - Xxe Pós-graduado em desenvolvimento Java - Unoesc - Xxe http://www.curricular.com.br/berdam Visite http://passandoveneno.blogspot.com --- Em ter, 28/10/08, Walter Chagas Jr (BOL) [EMAIL PROTECTED] escreveu: De: Walter Chagas Jr (BOL) [EMAIL PROTECTED] Assunto: Re: [delphi-br] erros internos Delphi: URW e Stack Overflow no Compilador Para: delphi-br@yahoogrupos.com.br Data: Terça-feira, 28 de Outubro de 2008, 8:54 Até aonde eu sei, Stack Overflow (Estouro da pilha) ocorre muito em chamadas redundantes a procedimentos (Uma função que chama a sí própria) ou então alguma função ou procedimento muito grande e, que está fazendo chamadas a outras funções internamente, que por sua vez, fazem chamadas a outras funções. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil [EMAIL PROTECTED] com.br http://www.geocitie s.com/SiliconVal ley/Bay/1058 http://delphitocorp orerm.blogspot. com/ MSN: whitesockets@ hotmail.com SKYPE: WalterChagasJr - Original Message - From: Oswaldo dos Santos Araujo To: [EMAIL PROTECTED] os.com.br Sent: Tuesday, October 28, 2008 6:41 AM Subject: Re: [delphi-br] erros internos Delphi: URW e Stack Overflow no Compilador Esse projeto tem mais de 10 anos, sendo constantemente atualizado. Já compilei em outras versões. Já apaguei, mas qq coisa que eu faça sempre dá no mesmo erro. Até agora... 2008/10/28 Onjahyr - GMAIL [EMAIL PROTECTED] com Alguma vez você conseguiu compilar usando o Delphi 7 (nestas máquinas 2 Duo)? Por acaso já tentou apagando as .DCU e o .RES? Depois disso fechar o delphi e abri-lo novamente... oswaldosaraujo escreveu: Olá amigos Boa Noite! Faz uns 10 dias que eu tento contornar um problema no Delphi e não consigo. De uma hora para outra não consigo mais compilar meu principal projeto. Ele abriu uma janela chamada Danger com uma mensagem Stack Overflow. Save your work and restart Delphi. e em algumas vezes algumas mensagens Internal Error URW com um número que varia 3237, depois 3235. Eu já coloquei isto em 5 máquinas diferentes (um Core 2 Duo e 4 Dual Core) , desinstalei e reinstalei o Delphi, reinstalei o Jedi na última versão 3.34. Tentei criar pacotes e isolar partes do sistema. Além de começar a refazer o projeto do 0 umas duas vezes. Tem uns 500 formulários no projeto. A maioria deles faz referencia à constantes tipadas do formulário principal, algo como o nome do escritório, um código de cliente atual, o usuário logado. Ele ainda usa BDE e paradox. Já tentei compilar direto da linha de comando para ver o que acontecia e dá um erro no compilador. Usei Delphi 6 Pro e 7 Enterprise, ambos atualizados. Retirei o que havia do antigo RXLIB e tirei algumas referencias múltiplas em formulários de busca com diversos forms chamadores, todos com constantes tipadas usadas como parâmetros. Nada funcionou!!! Tentei rodar num D2007 trial, mas não foi possível porque não deu para instalar o Jedi. Jcl e JVCL. (o trial não roda a versão linha de comando para que eu saiba se o projeto ao menos compila em outra versão. Já conversei com algumas pessoas, mas ainda ninguém foi capaz de dizer o que significam esses erros. Aceito sugestões! Qualquer uma! Muito obrigado! Oswaldo dos Santos Araujo oswaldosaraujo@ gmail.com oswaldosaraujo% 40gmail.com mailto: oswaldosaraujo% 40gmail.com oswaldosaraujo% 2540gmail. com (11) 9259-4094 -- Atenciosamente Oswaldo dos Santos Araujo mailto:oswaldoaraujo@ gmail.com Telefones escritório: (11) 6996-1101/6994- 3586 MSN [EMAIL PROTECTED] com.br [As partes desta mensagem que não continham texto foram removidas] __ Informação do ESET NOD32 Antivirus, versão da vacina 3561 (20081027) __ A mensagem foi verificada pelo ESET NOD32 Antivirus. http://www.eset. com [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Delphi e Access
Lista primeiramente obrigado pela ajuda de como colocar o access em
rede.. agora outra coisa... nao sei mais o que fazer.. tenho as 2 classes
abaixo... a Classe setor Funciona certinho.. mas a classe Local da erro ao
executar qualquer coisa no banco... o erro é exception class EoleException
'Erro não especificado'. não sei mais o que fazer... as 2 classes não
igualzinhas só muda o nome e as duas estão usando a mesma conexão
Alguma idéia.. ??
Wesley
unit UClasses;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Menus, StdCtrls;
{ Classe Setor }
type
TSetor = class
function GeraCodigoNovo : Integer ;
procedure AcoesBanco ( ACAO : Integer ; CDSTR , DESCR : String ) ;
procedure Consulta ( VALUE : Variant );
public
Banco : TADOQuery ;
end;
{ Classe Local }
type
TLocal = class
function GeraCodigoNovo : Integer ;
procedure AcoesBanco ( ACAO : Integer ; CDLCL , DESCR : string ) ;
procedure Consulta ( VALUE : Variant );
public
Banco : TADOQuery ;
end;
implementation
{ Acoes Banco }
procedure TSetor.AcoesBanco(ACAO: Integer; CDSTR, DESCR: String);
begin
with Banco do
begin
case Acao of
{ Incluir }
1 : begin
Close;
Sql.Clear;
Sql.Text := 'INSERT INTO SETOR VALUES ( :CDSTR ,
:DESCR )';
Parameters.ParamByName('CDSTR').Value := StrToInt(
CDSTR ) ;
Parameters.ParamByName('DESCR').Value := Trim(
DESCR );
ExecSQL;
Close;
end;
{ Alterar }
2 : begin
Close;
Sql.Clear;
Sql.Text := 'UPDATE SETOR SET DESCR=:DESCR WHERE
CDSTR=:CDSTR';
Parameters.ParamByName('CDSTR').Value := StrToInt(
CDSTR ) ;
Parameters.ParamByName('DESCR').Value := Trim(
DESCR );
ExecSQL;
Close;
end;
{ Deletar }
3 : begin
Close;
Sql.Clear;
Sql.Text := 'DELETE FROM SETOR WHERE CDSTR=:CDSTR';
Parameters.ParamByName('CDSTR').Value := StrToInt(
CDSTR ) ;
ExecSQL;
Close;
end;
end
end
end;
{ Gera codigo Novo }
function TSetor.GeraCodigoNovo: Integer;
begin
with Banco do
begin
Close;
Sql.Clear;
Sql.Text := 'SELECT MAX ( CDSTR ) FROM SETOR';
Open;
if IsEmpty then
Result := 1
else
Result := Fields[0].AsInteger + 1 ;
Close;
end
end;
{ Consulta }
procedure TSetor.Consulta(VALUE: Variant);
begin
with banco do
begin
Close;
Sql.Clear;
Sql.Text := 'SELECT * FROM SETOR WHERE DESCR LIKE ''' + value +
'%'' ORDER BY DESCR' ;
Open;
end
end;
{ Acoes Banco }
procedure TLocal.AcoesBanco(ACAO: Integer; CDLCL, DESCR: string);
begin
with Banco do
begin
case Acao of
//Incluir
1 : begin
Close;
Sql.Clear;
Sql.Text := 'INSERT INTO LOCAL VALUES ( :CDLCL ,
:DESCR )';
Parameters.ParamByName('CDLCL').Value := StrToInt(
CDLCL );
Parameters.ParamByName('DESCR').Value := Trim(
DESCR );
ExecSQL;
Close;
end;
//Alterar
2 : begin
Close;
Sql.Clear;
Sql.Text := 'UPDATE LOCAL SET DECSR=:DESCR WHERE
CDLCL=:CDLCL';
Parameters.ParamByName('CDLCL').Value := StrToInt(
CDLCL );
Parameters.ParamByName('DESCR').Value := Trim(
DESCR );
ExecSQL;
Close;
end;
//EXcluir
3 : begin
Close;
Sql.Clear;
Sql.Text := 'DELETE FROM LOCAL WHERE CDLCL=:CDLCL';
Parameters.ParamByName('CDLCL').Value := StrToInt(
CDLCL );
ExecSQL;
Close;
Re: [delphi-br] Delphi 7 X Vista X BPL
Quais paths ? Não entendi ! Abraços, Ricardo Cabral --- Em seg, 27/10/08, JB [EMAIL PROTECTED] escreveu: De: JB [EMAIL PROTECTED] Assunto: Re: [delphi-br] Delphi 7 X Vista X BPL Para: delphi-br@yahoogrupos.com.br Data: Segunda-feira, 27 de Outubro de 2008, 13:16 Verifique os paths do sistema, e se estao apontando para os arquivos... 2008/10/27 Ricardo Cabral cabral.ricardo@ yahoo.com. br: Amigos, Tive um problema no Windows vista e precisei reinstalar. O estranho é que agora não consigo mais executar programa feito no delphi 7 que usa rave report. Dá uma mensagem de erro de acesso violato no arquivo RTL70.BPL. Criei um projeto novo para testar e aí tentei colocar o objeto RVSYSTEM e deu esse erro. Já desinstalei o delphi, intalei novamente, já olhei permissão e nada. Se na primeira vez que eu usei o delphi desse esse erro, tudo bem, mas já vinha usando sem maiores problemas. Já tentei vários coisas e não obtive sucesso. Tenho um sistema que usa o rave e para modificar seria chato. Aguardo por alguma ajuda e já acgradeço. Abraços, Ricardo Cabral Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail. com. http://br.new. mail.yahoo. com/addresses -- Att. -- _ ___ José Benedito Software Developer josebenedito@ gmail.com +55 19 8116-7826 Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi e Access
Lista
Consegui descobrir não sei o que era... eu troquei o nome da tabela de
LOCAL para LOCAIS e ai funcionou.. creio que LOCAL é um metodo ou sei lá o que
reservado do access...
Wesley
From: BandaLemuel
Sent: Tuesday, October 28, 2008 10:31 AM
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Delphi e Access
Lista primeiramente obrigado pela ajuda de como colocar o access em rede..
agora outra coisa... nao sei mais o que fazer.. tenho as 2 classes abaixo... a
Classe setor Funciona certinho.. mas a classe Local da erro ao executar
qualquer coisa no banco... o erro é exception class EoleException 'Erro não
especificado'. não sei mais o que fazer... as 2 classes não igualzinhas
só muda o nome e as duas estão usando a mesma conexão Alguma idéia.. ??
Wesley
unit UClasses;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Menus, StdCtrls;
{ Classe Setor }
type
TSetor = class
function GeraCodigoNovo : Integer ;
procedure AcoesBanco ( ACAO : Integer ; CDSTR , DESCR : String ) ;
procedure Consulta ( VALUE : Variant );
public
Banco : TADOQuery ;
end;
{ Classe Local }
type
TLocal = class
function GeraCodigoNovo : Integer ;
procedure AcoesBanco ( ACAO : Integer ; CDLCL , DESCR : string ) ;
procedure Consulta ( VALUE : Variant );
public
Banco : TADOQuery ;
end;
implementation
{ Acoes Banco }
procedure TSetor.AcoesBanco(ACAO: Integer; CDSTR, DESCR: String);
begin
with Banco do
begin
case Acao of
{ Incluir }
1 : begin
Close;
Sql.Clear;
Sql.Text := 'INSERT INTO SETOR VALUES ( :CDSTR , :DESCR )';
Parameters.ParamByName('CDSTR').Value := StrToInt( CDSTR ) ;
Parameters.ParamByName('DESCR').Value := Trim( DESCR );
ExecSQL;
Close;
end;
{ Alterar }
2 : begin
Close;
Sql.Clear;
Sql.Text := 'UPDATE SETOR SET DESCR=:DESCR WHERE CDSTR=:CDSTR';
Parameters.ParamByName('CDSTR').Value := StrToInt( CDSTR ) ;
Parameters.ParamByName('DESCR').Value := Trim( DESCR );
ExecSQL;
Close;
end;
{ Deletar }
3 : begin
Close;
Sql.Clear;
Sql.Text := 'DELETE FROM SETOR WHERE CDSTR=:CDSTR';
Parameters.ParamByName('CDSTR').Value := StrToInt( CDSTR ) ;
ExecSQL;
Close;
end;
end
end
end;
{ Gera codigo Novo }
function TSetor.GeraCodigoNovo: Integer;
begin
with Banco do
begin
Close;
Sql.Clear;
Sql.Text := 'SELECT MAX ( CDSTR ) FROM SETOR';
Open;
if IsEmpty then
Result := 1
else
Result := Fields[0].AsInteger + 1 ;
Close;
end
end;
{ Consulta }
procedure TSetor.Consulta(VALUE: Variant);
begin
with banco do
begin
Close;
Sql.Clear;
Sql.Text := 'SELECT * FROM SETOR WHERE DESCR LIKE ''' + value + '%'' ORDER BY
DESCR' ;
Open;
end
end;
{ Acoes Banco }
procedure TLocal.AcoesBanco(ACAO: Integer; CDLCL, DESCR: string);
begin
with Banco do
begin
case Acao of
//Incluir
1 : begin
Close;
Sql.Clear;
Sql.Text := 'INSERT INTO LOCAL VALUES ( :CDLCL , :DESCR )';
Parameters.ParamByName('CDLCL').Value := StrToInt( CDLCL );
Parameters.ParamByName('DESCR').Value := Trim( DESCR );
ExecSQL;
Close;
end;
//Alterar
2 : begin
Close;
Sql.Clear;
Sql.Text := 'UPDATE LOCAL SET DECSR=:DESCR WHERE CDLCL=:CDLCL';
Parameters.ParamByName('CDLCL').Value := StrToInt( CDLCL );
Parameters.ParamByName('DESCR').Value := Trim( DESCR );
ExecSQL;
Close;
end;
//EXcluir
3 : begin
Close;
Sql.Clear;
Sql.Text := 'DELETE FROM LOCAL WHERE CDLCL=:CDLCL';
Parameters.ParamByName('CDLCL').Value := StrToInt( CDLCL );
ExecSQL;
Close;
end
end;
end
end;
{ Consulta }
procedure TLocal.Consulta(VALUE: Variant);
begin
with Banco do
begin
Close;
Sql.Clear;
Sql.Text := 'SELECT * FROM LOCAL WHERE DESCR LIKE ''' + Value + '%'' ORDER BY
DESCR';
Open;
end
end;
{ gera Codigo }
function TLocal.GeraCodigoNovo: Integer;
begin
with Banco do
begin
Close;
Sql.Clear;
Sql.Text := 'SELECT MAX ( CDLCL ) FROM LOCAL';
Open;
ShowMessage( 'Abriu' );
if IsEmpty then
Result := 1
else
Result := Fields[0].AsInteger + 1 ;
Close;
end
end;
end.
[As partes desta mensagem que não continham texto foram removidas]
__ Information from ESET NOD32 Antivirus, version of virus signature
database 3561 (20081027) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Atualizar Sistema ao Iniciar
Utilize o componente mdLaucher da biblioteca mdLib. Eu utilizo este componente e recomendo. http://micrologics.co.uk/library/mdlib/ Adailson Rocha Programador To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Mon, 27 Oct 2008 13:45:54 -0200 Subject: [delphi-br] Atualizar Sistema ao Iniciar Galera, alguém aqui já teve a necessidade de atualizar o sistema, ou até mesmo, verificar se o sistema que está em execução na maquina, é o mais novo ? Isso se tratando em rede local, sem precisar verificar em FTP ou algo do tipo. No serviço aqui, vou precisar disso, e queria que fosse feito dessa forma, quando iniciar o aplicativo, ele verifique no servidor, se a versão do sistema é igual ao que está no servidor, se não for, ele atualizar sozinho. Por enquanto estou usado um bat no inicialização do Windows em cada maquina, mas para que o sistema seja atualizado, o usuário tem que reiniciar a maquina, e isso não esta muito agradável. Vi na net meio correndo aqui, esse artigo (http://www.techtips.com.br/programacao/delphi/componentes/auto-atualizacao- de-aplicativos-em-delphi/ ), mas parece que está muito além do que eu preciso. Queria saber se alguém desenvolveu algo mais simples. Abraços. [As partes desta mensagem que não continham texto foram removidas] _ Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver offline. Conheça o MSN Mobile! http://mobile.live.com/signup/signup2.aspx?lc=pt-br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ponteiro - Ajuda
2008/10/28 Andresa Ferreira [EMAIL PROTECTED]:
Bom dia a todos.
Boa tarde,
... depois começou dar access violation,
Código:
TMenu = Record
iId_Nivel: Integer;
sDs_Opcao: String;
iId_Nivel_Ch: Integer;
//sNm_Form: String;
end;
pMenu = ^TMenu;
Saudade de ponteiros.
...
While not All_QryAux.Eof do
begin
New(Menu);
Menu^.iId_Nivel:= All_QryAux.FieldByName('ID_NIVEL').AsInteger;
Menu^.sDs_Opcao:= All_QryAux.FieldByName('DS_OPCAO').AsString;
Menu^.iId_Nivel_Ch := All_QryAux.FieldByName('ID_NIVEL_CHAMAR').AsInteger;
//Menu^.sNm_Form := All_QryAux.FieldByName('NM_FORM').AsString;
sTexto :=
Trim(All_QryAux.FieldByName('DS_OPCAO').AsString);
If All_QryAux.FieldByName('ID_NIVEL').AsInteger = 1 then
aNode[i]:= tvMenu.Items.AddObject(Nil, sTexto, Menu)
else
begin
tnInd := IndiceHie(Menu);
aNode[i] := tvMenu.Items.AddChildObject(tnInd, sTexto, Menu);
end;
Inc(i);
All_QryAux.Next;
Dispose(Menu);
Não olhei detalhes do código, mas esse dispose tá estranho. Você está
liberando memória e mantém uma referência para ela atravês do
treeview. O treeview não vai tirar uma cópia dos dados, mas manter um
ponteiro à área que você alocou. Você tem que dar dispose só depois de
não precisar mais dessa área.
A propósito, quando trabalhar com alocação dinâmica, procure manter um
gerenciador de memória ativo e em modo debug. Ele apresenta a você
tanto corrupção quanto vazamentos.
Joao Morais
Re: [delphi-br] Delphi e Access
Colega, é bom dar uma olhadinha nas palavras reservadas do Pascal, e dos
Bancos de Dados, senão a coisa vai pegar pro seu lado!!!
Sds
Emanuel Coutinho
BandaLemuel escreveu:
Lista
Consegui descobrir não sei o que era... eu troquei o nome da
tabela de LOCAL para LOCAIS e ai funcionou.. creio que LOCAL é um
metodo ou sei lá o que reservado do access...
Wesley
From: BandaLemuel
Sent: Tuesday, October 28, 2008 10:31 AM
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Subject: [delphi-br] Delphi e Access
Lista primeiramente obrigado pela ajuda de como colocar o access em
rede.. agora outra coisa... nao sei mais o que fazer.. tenho as 2
classes abaixo... a Classe setor Funciona certinho.. mas a classe
Local da erro ao executar qualquer coisa no banco... o erro é
exception class EoleException 'Erro não especificado'. não sei
mais o que fazer... as 2 classes não igualzinhas só muda o
nome e as duas estão usando a mesma conexão Alguma idéia.. ??
Wesley
unit UClasses;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Menus, StdCtrls;
{ Classe Setor }
type
TSetor = class
function GeraCodigoNovo : Integer ;
procedure AcoesBanco ( ACAO : Integer ; CDSTR , DESCR : String ) ;
procedure Consulta ( VALUE : Variant );
public
Banco : TADOQuery ;
end;
{ Classe Local }
type
TLocal = class
function GeraCodigoNovo : Integer ;
procedure AcoesBanco ( ACAO : Integer ; CDLCL , DESCR : string ) ;
procedure Consulta ( VALUE : Variant );
public
Banco : TADOQuery ;
end;
implementation
{ Acoes Banco }
procedure TSetor.AcoesBanco(ACAO: Integer; CDSTR, DESCR: String);
begin
with Banco do
begin
case Acao of
{ Incluir }
1 : begin
Close;
Sql.Clear;
Sql.Text := 'INSERT INTO SETOR VALUES ( :CDSTR , :DESCR )';
Parameters.ParamByName('CDSTR').Value := StrToInt( CDSTR ) ;
Parameters.ParamByName('DESCR').Value := Trim( DESCR );
ExecSQL;
Close;
end;
{ Alterar }
2 : begin
Close;
Sql.Clear;
Sql.Text := 'UPDATE SETOR SET DESCR=:DESCR WHERE CDSTR=:CDSTR';
Parameters.ParamByName('CDSTR').Value := StrToInt( CDSTR ) ;
Parameters.ParamByName('DESCR').Value := Trim( DESCR );
ExecSQL;
Close;
end;
{ Deletar }
3 : begin
Close;
Sql.Clear;
Sql.Text := 'DELETE FROM SETOR WHERE CDSTR=:CDSTR';
Parameters.ParamByName('CDSTR').Value := StrToInt( CDSTR ) ;
ExecSQL;
Close;
end;
end
end
end;
{ Gera codigo Novo }
function TSetor.GeraCodigoNovo: Integer;
begin
with Banco do
begin
Close;
Sql.Clear;
Sql.Text := 'SELECT MAX ( CDSTR ) FROM SETOR';
Open;
if IsEmpty then
Result := 1
else
Result := Fields[0].AsInteger + 1 ;
Close;
end
end;
{ Consulta }
procedure TSetor.Consulta(VALUE: Variant);
begin
with banco do
begin
Close;
Sql.Clear;
Sql.Text := 'SELECT * FROM SETOR WHERE DESCR LIKE ''' + value + '%''
ORDER BY DESCR' ;
Open;
end
end;
{ Acoes Banco }
procedure TLocal.AcoesBanco(ACAO: Integer; CDLCL, DESCR: string);
begin
with Banco do
begin
case Acao of
//Incluir
1 : begin
Close;
Sql.Clear;
Sql.Text := 'INSERT INTO LOCAL VALUES ( :CDLCL , :DESCR )';
Parameters.ParamByName('CDLCL').Value := StrToInt( CDLCL );
Parameters.ParamByName('DESCR').Value := Trim( DESCR );
ExecSQL;
Close;
end;
//Alterar
2 : begin
Close;
Sql.Clear;
Sql.Text := 'UPDATE LOCAL SET DECSR=:DESCR WHERE CDLCL=:CDLCL';
Parameters.ParamByName('CDLCL').Value := StrToInt( CDLCL );
Parameters.ParamByName('DESCR').Value := Trim( DESCR );
ExecSQL;
Close;
end;
//EXcluir
3 : begin
Close;
Sql.Clear;
Sql.Text := 'DELETE FROM LOCAL WHERE CDLCL=:CDLCL';
Parameters.ParamByName('CDLCL').Value := StrToInt( CDLCL );
ExecSQL;
Close;
end
end;
end
end;
{ Consulta }
procedure TLocal.Consulta(VALUE: Variant);
begin
with Banco do
begin
Close;
Sql.Clear;
Sql.Text := 'SELECT * FROM LOCAL WHERE DESCR LIKE ''' + Value + '%''
ORDER BY DESCR';
Open;
end
end;
{ gera Codigo }
function TLocal.GeraCodigoNovo: Integer;
begin
with Banco do
begin
Close;
Sql.Clear;
Sql.Text := 'SELECT MAX ( CDLCL ) FROM LOCAL';
Open;
ShowMessage( 'Abriu' );
if IsEmpty then
Result := 1
else
Result := Fields[0].AsInteger + 1 ;
Close;
end
end;
end.
[As partes desta mensagem que não continham texto foram removidas]
__ Information from ESET NOD32 Antivirus, version of virus
signature database 3561 (20081027) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] erros internos Delphi: URW e Stack Overflow no Compilador
É uma boa prática deixar os forms sem serem criados automaticamente.. por que? 1. Sua aplicação inicializa + rápido 2. menor consumo dos recursos de RAM 3. Se o sistema tiver muitos relatórios e forms com PageControl, vai ser pau em cima de pau... memória... 4. Para quer entuoir a memória com todos os forms do sistema, se muitos deles podem ser usados meras 2 ou 3 vezes por mês? Pensa nisso!!! Emanuel Coutinho Nicolas escreveu: Ha muito tempo atrás vi acontecer algo parecido num projeto gigante cujos formulários estavam todos como AutoCreate, ou seja, sobrecarregava a memória e não abria mais. Se este for seu caso, deixe apenas o formulário principal como autocreate, e criando os demais apenas em tempo de execução. []s Alexandre Nicolas - Original Message - From: oswaldosaraujo To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Monday, October 27, 2008 9:34 PM Subject: [delphi-br] erros internos Delphi: URW e Stack Overflow no Compilador Olá amigos Boa Noite! Faz uns 10 dias que eu tento contornar um problema no Delphi e não consigo. De uma hora para outra não consigo mais compilar meu principal projeto. Ele abriu uma janela chamada Danger com uma mensagem Stack Overflow. Save your work and restart Delphi. e em algumas vezes algumas mensagens Internal Error URW com um número que varia 3237, depois 3235. Eu já coloquei isto em 5 máquinas diferentes (um Core 2 Duo e 4 Dual Core) , desinstalei e reinstalei o Delphi, reinstalei o Jedi na última versão 3.34. Tentei criar pacotes e isolar partes do sistema. Além de começar a refazer o projeto do 0 umas duas vezes. Tem uns 500 formulários no projeto. A maioria deles faz referencia à constantes tipadas do formulário principal, algo como o nome do escritório, um código de cliente atual, o usuário logado. Ele ainda usa BDE e paradox. Já tentei compilar direto da linha de comando para ver o que acontecia e dá um erro no compilador. Usei Delphi 6 Pro e 7 Enterprise, ambos atualizados. Retirei o que havia do antigo RXLIB e tirei algumas referencias múltiplas em formulários de busca com diversos forms chamadores, todos com constantes tipadas usadas como parâmetros. Nada funcionou!!! Tentei rodar num D2007 trial, mas não foi possível porque não deu para instalar o Jedi. Jcl e JVCL. (o trial não roda a versão linha de comando para que eu saiba se o projeto ao menos compila em outra versão. Já conversei com algumas pessoas, mas ainda ninguém foi capaz de dizer o que significam esses erros. Aceito sugestões! Qualquer uma! Muito obrigado! Oswaldo dos Santos Araujo [EMAIL PROTECTED] mailto:oswaldosaraujo%40gmail.com (11) 9259-4094 -- No virus found in this incoming message. Checked by AVG - http://www.avg.com http://www.avg.com Version: 8.0.175 / Virus Database: 270.8.4/1750 - Release Date: 27/10/2008 18:14 [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Atualizar Sistema ao Iniciar
Tenho um cliente que tem várias máquinas na rede. Eu faço o seguinte: Quando o usuário entra no sistema, este verifica no servidor a data e a hora e se for mais novo, faço uma cópia do servidor para a máquina do usuário. Abraços, Ricardo Cabral --- Em ter, 28/10/08, Adailson Reis Rocha [EMAIL PROTECTED] escreveu: De: Adailson Reis Rocha [EMAIL PROTECTED] Assunto: RE: [delphi-br] Atualizar Sistema ao Iniciar Para: delphi-br@yahoogrupos.com.br Data: Terça-feira, 28 de Outubro de 2008, 14:43 Utilize o componente mdLaucher da biblioteca mdLib. Eu utilizo este componente e recomendo. http://micrologics. co.uk/library/ mdlib/ Adailson Rocha Programador To: [EMAIL PROTECTED] os.com.br From: tiagopimenta@ ymail.com Date: Mon, 27 Oct 2008 13:45:54 -0200 Subject: [delphi-br] Atualizar Sistema ao Iniciar Galera, alguém aqui já teve a necessidade de atualizar o sistema, ou até mesmo, verificar se o sistema que está em execução na maquina, é o mais novo ? Isso se tratando em rede local, sem precisar verificar em FTP ou algo do tipo. No serviço aqui, vou precisar disso, e queria que fosse feito dessa forma, quando iniciar o aplicativo, ele verifique no servidor, se a versão do sistema é igual ao que está no servidor, se não for, ele atualizar sozinho. Por enquanto estou usado um bat no inicialização do Windows em cada maquina, mas para que o sistema seja atualizado, o usuário tem que reiniciar a maquina, e isso não esta muito agradável. Vi na net meio correndo aqui, esse artigo (http://www.techtips .com.br/programa cao/delphi/ componentes/ auto-atualizacao - de-aplicativos- em-delphi/ ), mas parece que está muito além do que eu preciso. Queria saber se alguém desenvolveu algo mais simples. Abraços. [As partes desta mensagem que não continham texto foram removidas] _ _ _ _ _ _ Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver offline. Conheça o MSN Mobile! http://mobile. live.com/ signup/signup2. aspx?lc=pt- br [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] encontrar mes e ano a partir de uma data
Olá gosta dia que apartir de uma data tivesse uma função que me retornasse o mes e o ano. Exemplo... data - 28/10/2008 e retornasse o mes= 10 e ano = 2008 mas separados como faço isso?
Re: [delphi-br] encontrar mes e ano a partir de uma data
Você pode utilizar a função FormatDateTime. Veja:
Retornar Mês: FormatDateTime('mm', Data)
Retornar Ano (4 dígitos): FormatDateTime('', Data)
Retornar Ano (2 dígitos): FormatDateTime('yy', Data)
2008/10/28 rzzanatta [EMAIL PROTECTED]
Olá gosta dia que apartir de uma data tivesse uma função que me
retornasse o mes e o ano.
Exemplo...
data - 28/10/2008
e retornasse o mes= 10 e ano = 2008 mas separados
como faço isso?
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] encontrar mes e ano a partir de uma data
Você pode usar DecodeDate, MonthOf, etc... dê uma olhada na unit DateUtils. rzzanatta escreveu: Olá gosta dia que apartir de uma data tivesse uma função que me retornasse o mes e o ano. Exemplo... data - 28/10/2008 e retornasse o mes= 10 e ano = 2008 mas separados como faço isso? -- Vinicius dos Santos http://www.msisolucoes.com.br
[delphi-br] Desabilitar CTRL+ALT+DEL no Windows Vista
Pessoal, Estou desenvolvendo um programa que chama outro programa e enquanto este estiver executando o acesso ao CTRL+ALT+DEL deve ser desabilitado. Encontrei na net como fazer isso com o Win9x e WinXP mas para Windows Vista não encontrei nada, alguém pode dar uma ajuda? Grato.
[delphi-br] Re: encontrar mes e ano a partir de uma data
Ou utilizar as funções ExtractMonth e ExtractYear dentro de DateUtil.
ou ainda MonthOf e YearOf de DateUtils no delphi 7
--- Em delphi-br@yahoogrupos.com.br, Rafael [EMAIL PROTECTED]
escreveu
Você pode utilizar a função FormatDateTime. Veja:
Retornar Mês: FormatDateTime('mm', Data)
Retornar Ano (4 dígitos): FormatDateTime('', Data)
Retornar Ano (2 dígitos): FormatDateTime('yy', Data)
2008/10/28 rzzanatta [EMAIL PROTECTED]
Olá gosta dia que apartir de uma data tivesse uma função que me
retornasse o mes e o ano.
Exemplo...
data - 28/10/2008
e retornasse o mes= 10 e ano = 2008 mas separados
como faço isso?
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Desabilitar CTRL+ALT+DEL no Windows Vista
2008/10/28 lucaoliveira7 [EMAIL PROTECTED]: Pessoal, Estou desenvolvendo um programa que chama outro programa e enquanto este estiver executando o acesso ao CTRL+ALT+DEL deve ser desabilitado. Encontrei na net como fazer isso com o Win9x e WinXP mas para Windows Vista não encontrei nada, alguém pode dar uma ajuda? No XP funciona? Nem o VMware consegue este feito. Com base nisto, somado ao fato do ctrl+alt+del ser uma combinação de segurança, eu diria que é impossível. Joao Morais
Re: [delphi-br] Desabilitar CTRL+ALT+DEL no Windows Vista
Para bloquear o XP a solução é essa: There is a registry hack to enable or disable Windows NT TaskManager. The same registry hack applies to Windows 2000 and Windows XP. Hive: HKEY_CURRENT_USER Key: Software\Microsoft\Windows\CurrentVersion\Policies\System Name: DisableTaskMgr Type: REG_DWORD Value: 1=Enablethis key, that is DISABLE TaskManager Value: 0=Disablethis key, that is Don't Disable, Enable TaskManager As part of the enhanced management available in Windows 2000 and Windows XP, rather than risking a registry change, as an administrator you can enable or disable Windows 2000 Pro or Windows XP Pro's TaskManager using Group Policy Editor. This can be applied to the local policy. Note: if you are trying to override your organizations group policy, you can't. As soon as you re-authenticate to the domain, the domain or OU Group Policy will rewrite the registry setting. But if the TaskManager was accidently disabled or you need to control this item for a set of standalone boxes this is for you: * Click Start * Click Run * Enter gpedit.msc in the Open box and click OK * In the Group Policy settings window o Select User Configuration o Select Administrative Templates o Select System o Select Ctrl+Alt+Delete options o Select Remove Task Manager o Double-click the Remove Task Manager option And as I mentioned above, since the policy is Remove Task Manager, by disabling the policy, you are enabling the Task Manager. Já usei ela no 2000 e XP e funciona perfeitamente bem. Não testei ela no Vista, porque não tenho ele. Que tiver o Vista poderia testar e informar se a solução funciona também para ele? Atenciosamente Alexandre - Original Message - From: Joao Morais [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Date: Tue, 28 Oct 2008 17:33:58 -0200 Subject: Re: [delphi-br] Desabilitar CTRL+ALT+DEL no Windows Vista 2008/10/28 lucaoliveira7 [EMAIL PROTECTED]: Pessoal, Estou desenvolvendo um programa que chama outro programa e enquanto este estiver executando o acesso ao CTRL+ALT+DEL deve ser desabilitado. Encontrei na net como fazer isso com o Win9x e WinXP mas para Windows Vista não encontrei nada, alguém pode dar uma ajuda? No XP funciona? Nem o VMware consegue este feito. Com base nisto, somado ao fato do ctrl+alt+del ser uma combinação de segurança, eu diria que é impossível. Joao Morais E-mail verificado pelo Terra Anti-Spam. Para classificar esta mensagem como spam ou não spam, visite http://mail.terra.com.br/cgi-bin/reportspam.cgi?+_d=SCYxMDEwNDI2MyNwZXJtIXRlcnJhJjEsMTIyNTIyMjQ1MC4yNTk0OTYuMjIyNzkuY2FtZW5hbmEuaHN0LnRlcnJhLmNvbS5iciwxNzcyNA== Verifique periodicamente a pasta Spam para garantir que apenas mensagens indesejadas sejam classificadas como Spam. -- 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] Desabilitar CTRL+ALT+DEL no Windows Vista
Nada é impossivel João...
Provavelmente o que ele quer na realidade é desabilitar o TaskManager...
Se for, ai esta:
procedure HabilitaAltCtrlDel(YEsNo: Boolean);
const
sRegPolices = 'Software\Microsoft\Windows\CurrentVersion\Policies';
begin
with TRegistry.Create do
try
RootKey := HKEY_CURRENT_USER;
if OpenKey(sRegPolices + '\System\', True) then
begin
case YesNo of
False:
begin
WriteInteger('DisableTaskMgr', 1);
end;
True:
begin
WriteInteger('DisableTaskMgr', 0);
end;
end;
end;
CloseKey;
finally
Free;
end;
end;
Luiz Escobar - Analista/Desenvolvedor:
WEB - HTML/JavaScript/PHP/MySQL
WINDOWS - Delphi/ASSEMBLY/MySQL/xBase
SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse11), Windows 2K/XP
HARBOUR
--
Borland C++ 5.5.1 (32 bit)
Harbour 1.0.1 Intl. (Rev. 9429)
xHarbour Compile build 1.1.0 (Simplex)
Harbour MiniGUI 1.5 Extended Edition (Build 57d) - 2008.10.10
---
From: Joao Morais
Sent: Tuesday, October 28, 2008 5:33 PM
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] Desabilitar CTRL+ALT+DEL no Windows Vista
2008/10/28 lucaoliveira7 [EMAIL PROTECTED]:
Pessoal,
Estou desenvolvendo um programa que chama outro programa e enquanto
este estiver executando o acesso ao CTRL+ALT+DEL deve ser desabilitado.
Encontrei na net como fazer isso com o Win9x e WinXP mas para Windows
Vista não encontrei nada, alguém pode dar uma ajuda?
No XP funciona? Nem o VMware consegue este feito. Com base nisto,
somado ao fato do ctrl+alt+del ser uma combinação de segurança, eu
diria que é impossível.
Joao Morais
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: encontrar mes e ano a partir de uma data
boa essa dica sera que facil assim eu consigo retornar o mês por extenso?? --- Em ter, 28/10/08, deco0_07 [EMAIL PROTECTED] escreveu: De: deco0_07 [EMAIL PROTECTED] Assunto: [delphi-br] Re: encontrar mes e ano a partir de uma data Para: delphi-br@yahoogrupos.com.br Data: Terça-feira, 28 de Outubro de 2008, 17:27 Ou utilizar as funções ExtractMonth e ExtractYear dentro de DateUtil. ou ainda MonthOf e YearOf de DateUtils no delphi 7 --- Em [EMAIL PROTECTED] os.com.br, Rafael rafael.adorno@ ... escreveu Você pode utilizar a função FormatDateTime. Veja: Retornar Mês: FormatDateTime( 'mm', Data) Retornar Ano (4 dígitos): FormatDateTime( '', Data) Retornar Ano (2 dígitos): FormatDateTime( 'yy', Data) 2008/10/28 rzzanatta [EMAIL PROTECTED] .. Olá gosta dia que apartir de uma data tivesse uma função que me retornasse o mes e o ano. Exemplo... data - 28/10/2008 e retornasse o mes= 10 e ano = 2008 mas separados como faço isso? [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: encontrar mes e ano a partir de uma data
talvez exista alguma função do delphi que retorne por extenso..mas não conheço... mas enquanto isso... eu uso uma funcao com um vetor... --- Em delphi-br@yahoogrupos.com.br, alessandra porto [EMAIL PROTECTED] escreveu boa essa dica sera que facil assim eu consigo retornar o mês por extenso?? --- Em ter, 28/10/08, deco0_07 [EMAIL PROTECTED] escreveu: De: deco0_07 [EMAIL PROTECTED] Assunto: [delphi-br] Re: encontrar mes e ano a partir de uma data Para: delphi-br@yahoogrupos.com.br Data: Terça-feira, 28 de Outubro de 2008, 17:27 Ou utilizar as funções ExtractMonth e ExtractYear dentro de DateUtil. ou ainda MonthOf e YearOf de DateUtils no delphi 7 --- Em [EMAIL PROTECTED] os.com.br, Rafael rafael.adorno@ ... escreveu Você pode utilizar a função FormatDateTime. Veja: Retornar Mês: FormatDateTime( 'mm', Data) Retornar Ano (4 dígitos): FormatDateTime( '', Data) Retornar Ano (2 dígitos): FormatDateTime( 'yy', Data) 2008/10/28 rzzanatta rzzanatta@ .. Olá gosta dia que apartir de uma data tivesse uma função que me retornasse o mes e o ano. Exemplo... data - 28/10/2008 e retornasse o mes= 10 e ano = 2008 mas separados como faço isso? [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] erros internos Delphi: URW e Stack Overflow no Compilador
Olá amigos Para esclarecer. Só o principal era criado automaticamente. E o problema acontecia ao compilar o programa, ele não chegava nem a gerar o executável. *Dava erro ao usar o compilador em linha de comando. No próprio dcc32!* Abas tem bastante tb. Mas o problema estava no compilador do Delphi, por causa de alguma referência cruzada na chamada de units, ou seja a unit A chama a unit B que chama a Unit A novamente. *Não cheguei a achar exatamente onde estava o erro, mas fui tirando tudo o que podia neste sentido e isolando grande parte dos formulários. Parte deles inclusive foram colocados em packages. Por exemplo módulos de exportação de dados, gráficos e coisas que são bem estanques e isoladas.* ** *Agora o que ficou para mim é que o principal é manter o máximo de isolamento. Quero inclusive eliminar variáveis e constantes tipadas públicas, só que justamente isto está me deixando com algumas dúvidas. Como fazer isto na prática. Algumas variáveis que eu lia de configurações uma vez ao iniciar o programa, essas foram eliminadas , criando a variável localmente onde seria usada e usando uma unit que lia a configuração no arquivo .ini,* ** *Mas queria saber de vocês qual a melhor opção para fazer isto, ou seja manter um dado como o nome do usuário corrente no sistema sem usar uma vairável pública, tem alguma maneira, além de gravar em ini, xml, arquivo local??? Ou seria essa mesma a solução?* ** *Outra coisa que acontece é que ás vezes é necessário um módulo chamar outro, no meu caso o Cliente chama a Cobrança ou o Caso (processo), como fazer isto de uma maneira que não seja chamado um pelo outro, mas por uma janela como o principal, ou outra?. * ** ** 28/10 - Dia de São Judas Tadeu - Santos das Causas Desesperadas, era o meu caso! Abraços Oswaldo dos Santos Araujo 2008/10/28 Coutinho - Yahoo [EMAIL PROTECTED] É uma boa prática deixar os forms sem serem criados automaticamente.. por que? 1. Sua aplicação inicializa + rápido 2. menor consumo dos recursos de RAM 3. Se o sistema tiver muitos relatórios e forms com PageControl, vai ser pau em cima de pau... memória... 4. Para quer entuoir a memória com todos os forms do sistema, se muitos deles podem ser usados meras 2 ou 3 vezes por mês? Pensa nisso!!! Emanuel Coutinho Nicolas escreveu: Ha muito tempo atrás vi acontecer algo parecido num projeto gigante cujos formulários estavam todos como AutoCreate, ou seja, sobrecarregava a memória e não abria mais. Se este for seu caso, deixe apenas o formulário principal como autocreate, e criando os demais apenas em tempo de execução. []s Alexandre Nicolas - Original Message - From: oswaldosaraujo To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br Sent: Monday, October 27, 2008 9:34 PM Subject: [delphi-br] erros internos Delphi: URW e Stack Overflow no Compilador Olá amigos Boa Noite! Faz uns 10 dias que eu tento contornar um problema no Delphi e não consigo. De uma hora para outra não consigo mais compilar meu principal projeto. Ele abriu uma janela chamada Danger com uma mensagem Stack Overflow. Save your work and restart Delphi. e em algumas vezes algumas mensagens Internal Error URW com um número que varia 3237, depois 3235. Eu já coloquei isto em 5 máquinas diferentes (um Core 2 Duo e 4 Dual Core) , desinstalei e reinstalei o Delphi, reinstalei o Jedi na última versão 3.34. Tentei criar pacotes e isolar partes do sistema. Além de começar a refazer o projeto do 0 umas duas vezes. Tem uns 500 formulários no projeto. A maioria deles faz referencia à constantes tipadas do formulário principal, algo como o nome do escritório, um código de cliente atual, o usuário logado. Ele ainda usa BDE e paradox. Já tentei compilar direto da linha de comando para ver o que acontecia e dá um erro no compilador. Usei Delphi 6 Pro e 7 Enterprise, ambos atualizados. Retirei o que havia do antigo RXLIB e tirei algumas referencias múltiplas em formulários de busca com diversos forms chamadores, todos com constantes tipadas usadas como parâmetros. Nada funcionou!!! Tentei rodar num D2007 trial, mas não foi possível porque não deu para instalar o Jedi. Jcl e JVCL. (o trial não roda a versão linha de comando para que eu saiba se o projeto ao menos compila em outra versão. Já conversei com algumas pessoas, mas ainda ninguém foi capaz de dizer o que significam esses erros. Aceito sugestões! Qualquer uma! Muito obrigado! Oswaldo dos Santos Araujo [EMAIL PROTECTED] oswaldosaraujo%40gmail.com mailto: oswaldosaraujo%40gmail.com oswaldosaraujo%2540gmail.com (11) 9259-4094 -- No virus found in this incoming message. Checked by AVG - http://www.avg.com http://www.avg.com Version: 8.0.175 / Virus Database: 270.8.4/1750 - Release Date:
[delphi-br] [Off] Blog: Campo de pesquisa
Pessoal, Bem off-topic: coloquei no meu blog um campo de pesquisa. Agora é possível pesquisar os posts atigos, dicas que postei no passado. Agora fica mais fácil pra galera. Vlw, abs -- Adriano Santos www.delphitodelphi.blogspot.com www.dug-sp.com
Res: [delphi-br] Ponteiro - Ajuda
Oi João.
Mas o que eu devo fazer
Coloquei o Dispose no final do processo, mas ocorre o mesmo problema.
Não sei mais o que fazer...
Me ajuda ;)
Andresa
De: Joao Morais [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 28 de Outubro de 2008 14:08:35
Assunto: Re: [delphi-br] Ponteiro - Ajuda
2008/10/28 Andresa Ferreira andresa_delphi@ yahoo.com. br:
Bom dia a todos.
Boa tarde,
... depois começou dar access violation,
Código:
TMenu = Record
iId_Nivel: Integer;
sDs_Opcao: String;
iId_Nivel_Ch: Integer;
// sNm_Form: String;
end;
pMenu = ^TMenu;
Saudade de ponteiros.
...
While not All_QryAux.Eof do
begin
New(Menu);
Menu^.iId_Nivel := All_QryAux.FieldByN ame('ID_NIVEL' ).AsInteger;
Menu^.sDs_Opcao := All_QryAux.FieldByN ame('DS_OPCAO' ).AsString;
Menu^.iId_Nivel_ Ch := All_QryAux.FieldByN ame('ID_NIVEL_ CHAMAR'). AsInteger;
// Menu^.sNm_Form := All_QryAux.FieldByN ame('NM_FORM' ).AsString;
sTexto := Trim(All_QryAux. FieldByName( 'DS_OPCAO' ).AsString) ;
If All_QryAux.FieldByN ame('ID_NIVEL' ).AsInteger = 1 then
aNode[i]:= tvMenu.Items. AddObject( Nil, sTexto, Menu)
else
begin
tnInd := IndiceHie(Menu) ;
aNode[i] := tvMenu.Items.. AddChildObject( tnInd, sTexto, Menu);
end;
Inc(i);
All_QryAux..Next;
Dispose(Menu) ;
Não olhei detalhes do código, mas esse dispose tá estranho. Você está
liberando memória e mantém uma referência para ela atravês do
treeview. O treeview não vai tirar uma cópia dos dados, mas manter um
ponteiro à área que você alocou. Você tem que dar dispose só depois de
não precisar mais dessa área.
A propósito, quando trabalhar com alocação dinâmica, procure manter um
gerenciador de memória ativo e em modo debug. Ele apresenta a você
tanto corrupção quanto vazamentos.
Joao Morais
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Fechar uma Janela, ou Finalizar um Processo
Galera, agora preciso finalizar um processo, ou fechar uma determinada janela para fazer o atualizador do meu sistema. Peguei um código de um amigo meu, mas esse não rola, pois ele está tentando finalizar o Windows, e aparece a tela de Hibernar, Desligar ou Reiniciar o Windows. procedure Tfrmprincipal.FechaSistema; var h : THandle; begin h := findwindow(nil, pchar(paramstr(1))); if h 0 then sendmessage(h, WM_CLOSE, 0, 0); end; O processo chama LTACorpore.exe. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Ordernar ClientDataSet...
Pessoal sei que o campo indexname do CDS serve para ordenação dos dados, porem eu estou usando um CDS em tempo de execução sem DSP, com o .CreateDataSet, porem se eu tanto antes do .createdataset como depois informar o campo codigo pro indexname ele me retorna um erro: Project NomeDoProjeto.exe raised exception class EDatabaseError with message 'dsCodigoSelecao': Index 'codigo' not found. Eu preciso que ele ordene pois conforme eu insiro ou retiro dados desse CDS, ele fica fora de ordem e quando eu for finalizar ele precisa estar em ordem para a conclusão do que preciso o campo código é do fkData... Pessoal obrigdado desde já _ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] encontrar mes e ano a partir de uma data
Olá
Day(StrToDate('01/01/2008')); - Dia
Month(StrToDate('01/01/2008')); - Mês
Year(StrToDate('01/01/2008')); - Ano
Espero que ajude.
Andresa
De: rzzanatta [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 28 de Outubro de 2008 16:17:03
Assunto: [delphi-br] encontrar mes e ano a partir de uma data
Olá gosta dia que apartir de uma data tivesse uma função que me
retornasse o mes e o ano.
Exemplo...
data - 28/10/2008
e retornasse o mes= 10 e ano = 2008 mas separados
como faço isso?
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Atualizar Sistema ao Iniciar
Ricardo, Obrigado pela resposta, mas já resolvi, fiz assim oh: O sistema inicia e verifica a versão do sistema local, e a do servidor, se for inferior a do local, ele chama outro exe chamado Atualizador.exe e fecha o Sistema.exe. Daí o Atualizador deleta o sistema.exe da maquina local, e copia o novo sistema.exe para a maquina local. Daí depois de feita a cópia, o Atualizador chama o sistema já atualizado e se fecha. Abraços. Tiago Pimenta De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Ricardo Cabral Enviada em: terça-feira, 28 de outubro de 2008 16:31 Para: delphi-br@yahoogrupos.com.br Assunto: RE: [delphi-br] Atualizar Sistema ao Iniciar Tenho um cliente que tem várias máquinas na rede. Eu faço o seguinte: Quando o usuário entra no sistema, este verifica no servidor a data e a hora e se for mais novo, faço uma cópia do servidor para a máquina do usuário. Abraços, Ricardo Cabral --- Em ter, 28/10/08, Adailson Reis Rocha [EMAIL PROTECTED] mailto:adailsonrocha%40hotmail.com escreveu: De: Adailson Reis Rocha [EMAIL PROTECTED] mailto:adailsonrocha%40hotmail.com Assunto: RE: [delphi-br] Atualizar Sistema ao Iniciar Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Data: Terça-feira, 28 de Outubro de 2008, 14:43 Utilize o componente mdLaucher da biblioteca mdLib. Eu utilizo este componente e recomendo. http://micrologics. co.uk/library/ mdlib/ Adailson Rocha Programador To: [EMAIL PROTECTED] os.com.br From: tiagopimenta@ ymail.com Date: Mon, 27 Oct 2008 13:45:54 -0200 Subject: [delphi-br] Atualizar Sistema ao Iniciar Galera, alguém aqui já teve a necessidade de atualizar o sistema, ou até mesmo, verificar se o sistema que está em execução na maquina, é o mais novo ? Isso se tratando em rede local, sem precisar verificar em FTP ou algo do tipo. No serviço aqui, vou precisar disso, e queria que fosse feito dessa forma, quando iniciar o aplicativo, ele verifique no servidor, se a versão do sistema é igual ao que está no servidor, se não for, ele atualizar sozinho. Por enquanto estou usado um bat no inicialização do Windows em cada maquina, mas para que o sistema seja atualizado, o usuário tem que reiniciar a maquina, e isso não esta muito agradável. Vi na net meio correndo aqui, esse artigo (http://www.techtips .com.br/programa cao/delphi/ componentes/ auto-atualizacao - de-aplicativos- em-delphi/ ), mas parece que está muito além do que eu preciso. Queria saber se alguém desenvolveu algo mais simples. Abraços. [As partes desta mensagem que não continham texto foram removidas] _ _ _ _ _ _ Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver offline. Conheça o MSN Mobile! http://mobile. live.com/ signup/signup2. aspx?lc=pt- br [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ponteiro - Ajuda
2008/10/28 Andresa Ferreira [EMAIL PROTECTED]: Oi João. Mas o que eu devo fazer Coloquei o Dispose no final do processo, mas ocorre o mesmo problema. Não sei mais o que fazer... Me ajuda ;) Ligue as informações de debug do seu projeto. Vá também em Project | Options | Compiler | ligue Use Debug Units. Dê um build all. Logo que o erro ocorrer, vá até a IDE e pressione Ctrl+F3. Se você tiver sorte, irá parar no ponto exato em que ocorreu a exceção. Isso pode te dar uma pista. Usar FastMM com FullDebugMode habilitado aumentam suas chances. Com esta informação você terá uma pista do que é, e por consequência do que você terá que fazer. Joao Morais
Re: [delphi-br] Re: encontrar mes e ano a partir de uma data
2008/10/28 deco0_07 [EMAIL PROTECTED]:
talvez exista alguma função do delphi que retorne por extenso..mas
não conheço...
VMesExtenso := FormatDateTime('', StrToDate('01/01/2008'));
--
Joao Morais
mas enquanto isso...
eu uso uma funcao com um vetor...
--- Em delphi-br@yahoogrupos.com.br, alessandra porto
[EMAIL PROTECTED] escreveu
boa essa dica
sera que facil assim eu consigo
retornar o mês por extenso??
--- Em ter, 28/10/08, deco0_07 [EMAIL PROTECTED] escreveu:
De: deco0_07 [EMAIL PROTECTED]
Assunto: [delphi-br] Re: encontrar mes e ano a partir de uma data
Para: delphi-br@yahoogrupos.com.br
Data: Terça-feira, 28 de Outubro de 2008, 17:27
Ou utilizar as funções ExtractMonth e ExtractYear
dentro de DateUtil.
ou ainda MonthOf e YearOf de DateUtils no delphi 7
--- Em [EMAIL PROTECTED] os.com.br, Rafael rafael.adorno@ ...
escreveu
Você pode utilizar a função FormatDateTime. Veja:
Retornar Mês: FormatDateTime( 'mm', Data)
Retornar Ano (4 dígitos): FormatDateTime( '', Data)
Retornar Ano (2 dígitos): FormatDateTime( 'yy', Data)
2008/10/28 rzzanatta rzzanatta@ ..
Olá gosta dia que apartir de uma data tivesse uma função que
me
retornasse o mes e o ano.
Exemplo...
data - 28/10/2008
e retornasse o mes= 10 e ano = 2008 mas separados
como faço isso?
[As partes desta mensagem que não continham texto foram removidas]
Novos endereços, o Yahoo! que você conhece. Crie um email
novo com a sua cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Re: [delphi-br] Desabilitar CTRL+ALT+DEL no Windows Vista
2008/10/28 Luiz ESCobar [EMAIL PROTECTED]:
Nada é impossivel João...
Provavelmente o que ele quer na realidade é desabilitar o TaskManager...
Se for, ai esta:
Este código não funciona se o usuário não tiver privilégio. Não testei
como admin pra ver o que dá.
--
Joao Morais
procedure HabilitaAltCtrlDel(YEsNo: Boolean);
const
sRegPolices = 'Software\Microsoft\Windows\CurrentVersion\Policies';
begin
with TRegistry.Create do
try
RootKey := HKEY_CURRENT_USER;
if OpenKey(sRegPolices + '\System\', True) then
begin
case YesNo of
False:
begin
WriteInteger('DisableTaskMgr', 1);
end;
True:
begin
WriteInteger('DisableTaskMgr', 0);
end;
end;
end;
CloseKey;
finally
Free;
end;
end;
[delphi-br] Delphi Travando
Alguem sabe pq o delphi trava por alguns segundos e depois volta ao normal? Já desabilitei as opções de Salvar automático, mesmo assim ele continua travando. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi Travando
Isso pode ser seu processador ou mesmo o processamento no arquivo de troca do Windows []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil [EMAIL PROTECTED] http://www.geocities.com/SiliconValley/Bay/1058 http://delphitocorporerm.blogspot.com/ MSN: [EMAIL PROTECTED] SKYPE: WalterChagasJr - Original Message - From: Eduardo Suruagy To: delphi-br@yahoogrupos.com.br Sent: Tuesday, October 28, 2008 8:25 PM Subject: [delphi-br] Delphi Travando Alguem sabe pq o delphi trava por alguns segundos e depois volta ao normal? Já desabilitei as opções de Salvar automático, mesmo assim ele continua travando. [As partes desta mensagem que não continham texto foram removidas] __ Informação do ESET NOD32 Antivirus, versão da vacina 3564 (20081028) __ A mensagem foi verificada pelo ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] encontrar mes e ano a partir de uma data
Galera, é com muito mas muito prazer que vou pela primeira vez nessa lista que tem gente muito fera vou ajudar alguem... (ou pelomenos espero ajudar heheh) Vamos lá pra vc pegar os dados de uma data diferente, tanto dia, mes e ano vc pode usar (pq nao sei se tem outras formas) o seguinte: Declara 3 variaveis (dia, mes, ano) do tipo Word... Depois vc pega e usa essa função: DecodeDate(DataQuePrecisaDividir, VariavelAno, VariavelMes, VariavelDia); Depois é ó utilizar as variaves que vc vai ter cada campo separadamente Deu pra entender??? Desculpa se expressei algo errado, pq estou nervoso afinal é a primeira vez que posto ajudando alguem as outras vezes geralmente eu sou ajudado hehehehe Abraços e até mais Pablo Vianini To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Tue, 28 Oct 2008 19:17:03 +Subject: [delphi-br] encontrar mes e ano a partir de uma data Olá gosta dia que apartir de uma data tivesse uma função que me retornasse o mes e o ano.Exemplo...data - 28/10/2008e retornasse o mes= 10 e ano = 2008 mas separadoscomo faço isso? _ Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o Messenger! É GRÁTIS! http://www.msn.com.br/emoticonpack [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] ERRRO : [0x0015]: Connection Failed - DataBase...
Mônica http://www.orkut.com.br/Main#Profile.aspx?uid=13380794877322613685 ERRRO : [0x0015]: Connection Failed - DataBase Server Error: unavailable database Não sei mais o que eu faço. Estou usando a aplicação em modo local. FireBird 2.0 em modo Serviço. O banco esta no diretorio C:\SISTEMAS junto com a aplicação. Já coloquei as dlls (fbclient.dll, midas.dll, dbexpint.dll e dbxint30.dll) no direotrio da aplicação. O FireWall do XP esta DESATIVADO! O que mais pode estar errado! [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Erro no Quick Reports ao Compilar o sistema.
Salve galera, Um cliente me enviou os fontes de um sistema dele feito em Delphi 7, porém quando tento configurar dá o seguinte erro: [Fatal Error] NewTime.dpr(120): Unit UModeloBasRelat was compiled with a different version of QRCtrls.TQRLabel Eu nunca vi este erro antes. Segundo ele el tá usando o Quick Report que vem Junto com o D7, (aquela BPL do BIN) o mesmo que eu uso, mas, no meu PC não Compila de forma alguma. Alguém tem alguma idéia do que seja? . . .Jean Barreiros Programador/Web-Designer Delphi, C++, PHP, JavaScript FireBird/InterBase, MySql, SQLServer, PostGree, Oracle msn: [EMAIL PROTECTED] e-mail: [EMAIL PROTECTED] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ERRRO : [0x0015]: Connection Failed - DataBase...
Mônica, O SERVIÇO do Firebird tá rodando nesta máquina ??? [ ]´s Moacir Mônica Olveira escreveu: Mônica http://www.orkut.com.br/Main#Profile.aspx?uid=13380794877322613685 ERRRO : [0x0015]: Connection Failed - DataBase Server Error: unavailable database Não sei mais o que eu faço. Estou usando a aplicação em modo local. FireBird 2.0 em modo Serviço. O banco esta no diretorio C:\SISTEMAS junto com a aplicação. Já coloquei as dlls (fbclient.dll, midas.dll, dbexpint.dll e dbxint30.dll) no direotrio da aplicação. O FireWall do XP esta DESATIVADO! O que mais pode estar errado! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Desabilitar CTRL+ALT+DEL no Windows Vista
A aplicação pode ser executada com um user q tenha privilégio...
[]s
Luiz Escobar
- Original Message -
From: Joao Morais
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, October 28, 2008 8:46 PM
Subject: Re: [delphi-br] Desabilitar CTRL+ALT+DEL no Windows Vista
2008/10/28 Luiz ESCobar [EMAIL PROTECTED]:
Nada é impossivel João...
Provavelmente o que ele quer na realidade é desabilitar o TaskManager...
Se for, ai esta:
Este código não funciona se o usuário não tiver privilégio. Não testei
como admin pra ver o que dá.
--
Joao Morais
procedure HabilitaAltCtrlDel(YEsNo: Boolean);
const
sRegPolices = 'Software\Microsoft\Windows\CurrentVersion\Policies';
begin
with TRegistry.Create do
try
RootKey := HKEY_CURRENT_USER;
if OpenKey(sRegPolices + '\System\', True) then
begin
case YesNo of
False:
begin
WriteInteger('DisableTaskMgr', 1);
end;
True:
begin
WriteInteger('DisableTaskMgr', 0);
end;
end;
end;
CloseKey;
finally
Free;
end;
end;
[As partes desta mensagem que não continham texto foram removidas]
