[delphi-br] BDE x Windows 7

2009-10-27 Por tôpico Hugo Vieira

Boa noite amigos,

 

Nem o windows 7 foi lançado direito e os problemas ja começaram.

 

Estou usando o windows 7 profesional na minha maquina e tentando configurar as 
ferramentas de desenvolvimento delphi/bde. O Delphi 7 funciona blz e o 
Interbase 6, porem o BDE (5.x) abre e cria novas databases. Ate ai td bem, mas 
quando tento logar na base de dados criada do interbase ele apresentaa a 
seguinte mensagem: O Borland Database Engine parou de funcionar e pede para 
fechar.

 

alguem tem noção do q possa ser ? ja adicionei todas as permissoes possiveis de 
execução, porem esta do mesmo jeito

 

Fico grato por uma resposta

Hugo 





 






  
_
Acesse o Portal MSN do seu celular e se mantenha sempre atualizado. Clique aqui.
http://www.windowslive.com.br/celular/home.asp?utm_source=MSN_Hotmailutm_medium=Taglineutm_campaign=MobileServices200908

[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] VAGA Delphi

2009-10-27 Por tôpico Vinicius A. Santos
Olá pessoal,

A MSI Soluções, desenvolvedora de soluções ERP está com vaga aberta para 
analista/desenvolvedor Delphi.
A MSI utiliza PostgreSQL com Delphi 2010.
A empresa está situada em Ourinhos/SP, com franquia em Santa Rita do 
Sapucaí/MG e São Paulo/SP.

Interessados por favor encaminhar currículo para: clau...@msisolucoes.com.br

Para maiores detalhes sobre a empresa, favor verificar o site: 
www.msisolucoes.com.br


Re: [delphi-br] BDE x Windows 7

2009-10-27 Por tôpico João Carlos
Caro Hugo,

Duas Dicas:

1 - Desabilite o UAC.
2 - Redirecione o NETDIR para outro diretório que não o C:\ ou 
C:\Arquivo de Programas.

Tenho uma aplicação feita utilizando Paradox(por favor não 
critiquem.é antiga e está sendo migrada para FB) e funciona beleza 
no Windows 7 com as 2 dicas acima.

[]´s

João Carlos

Hugo Vieira escreveu:
 Boa noite amigos,

  

 Nem o windows 7 foi lançado direito e os problemas ja começaram.

  

 Estou usando o windows 7 profesional na minha maquina e tentando configurar 
 as ferramentas de desenvolvimento delphi/bde. O Delphi 7 funciona blz e o 
 Interbase 6, porem o BDE (5.x) abre e cria novas databases. Ate ai td bem, 
 mas quando tento logar na base de dados criada do interbase ele apresentaa a 
 seguinte mensagem: O Borland Database Engine parou de funcionar e pede para 
 fechar.

  

 alguem tem noção do q possa ser ? ja adicionei todas as permissoes possiveis 
 de execução, porem esta do mesmo jeito

  

 Fico grato por uma resposta

 Hugo 





  






 
 _
 Acesse o Portal MSN do seu celular e se mantenha sempre atualizado. Clique 
 aqui.
 http://www.windowslive.com.br/celular/home.asp?utm_source=MSN_Hotmailutm_medium=Taglineutm_campaign=MobileServices200908

 [As partes desta mensagem que não continham texto foram removidas]



 

   

-- 
ADAPT, ENGAGE, DOMINATE   (Sgt. Sykes)



Re: [delphi-br] Detalhe do processo em tempo real

2009-10-27 Por tôpico Claiton Bortolin
Vou fazer aqui, obrigado a todos.




  - Original Message - 
  From: Rafael Jorge 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, October 26, 2009 6:38 PM
  Subject: Re: [delphi-br] Detalhe do processo em tempo real


cara um simples Application.ProcessMessages na tua rotina vai evitar do form
  icar branco e travado.
  so isso. ai tu pode escrever nos labels e o usuario vai ver tudo.
  t+

  2009/10/26 Marcelo Luiz Onhate marc...@systempro.com.br

  
  
   Não consigo enviar arquivo...
   então segue o código direto mesmo... aheuaheua
  
   Tenta usar esta classe que fiz para exibir mensagens durante processos
   longos...
  
  
   {Classe para exibição de Mensagens Informativas durante a execução de
   algum processo.
   Exemplo:
   var fMsg: TInfoMessage;
   begin
   fMsg:=TInfoMessage.Create(Self,'Primeira Mensagem...');
   ou
   fMsg:=TInfoMessage.Create(Self);
   ...
   fMesg.Text:='Segunda Mensagem...';
   ...
   fMesg.Text:='Terceira Mensagem...';
   ...
   fMsg.Free;
   end;}
   type TInfoMessage = class(TObject)
   private
   FMemo: TMemo;
   FText: String;
   FForm: TForm;
   procedure setText(const Value: String);
   property Form: TForm read FForm write FForm;
   property Memo: TMemo read FMemo write FMemo;
   public
   property Text: String read FText write setText;
   destructor Destroy; override;
   constructor Create(AOwner: TComponent); overload;
   constructor Create(AOwner: TComponent; sMsg: String); overload;
   end;
  
  
   

  
   { TInfoMessage }
  
   constructor TInfoMessage.Create(AOwner: TComponent);
   begin
   inherited Create;
   FForm:=TForm.Create(AOwner);
   if AOwnernil then
   FForm.Position:=poOwnerFormCenter
   else begin
   FForm.Position:=poScreenCenter;
   end;
   FForm.Height:=23;
   {$IFDEF MSWINDOWS}
   FForm.BorderStyle:=bsNone;
   {$ENDIF}
   {$IFDEF LINUX}
   FForm.BorderStyle:=fbsNone;
   {$ENDIF}
   FForm.BorderIcons:=[];
   Memo:=TMemo.Create(FForm);
   Memo.Parent:=FForm;
   Memo.Align:=alClient;
   Memo.Alignment:=taCenter;
   Memo.ReadOnly:=True;
   {$IFDEF MSWINDOWS}
   Memo.Color:=$00985632;
   Memo.Font.Color:=clWhite;
   {$ENDIF}
   {$IFDEF LINUX}
   Memo.Color:=$00E3E0DF;
   Memo.Font.Color:=clBlack;
   {$ENDIF}
   Memo.Font.Size:=10;
   Memo.Font.Style:=[fsBold];
   Application.ProcessMessages;
   end;
  
   constructor TInfoMessage.Create(AOwner: TComponent; sMsg: String);
   begin
   Create(AOwner);
   Text:=sMsg;
   end;
  
   destructor TInfoMessage.Destroy;
   begin
   if (Selfnil)then
   begin
   if(Assigned(FForm))and(FForm.Showing)then
   begin
   FForm.Close;
   Application.ProcessMessages;
   end;
   if(Assigned(FMemo))then FreeAndNil(FMemo);
   if(Assigned(FForm))then FreeAndNil(FForm);
   end;
   inherited;
   end;
  
   procedure TInfoMessage.setText(const Value: String);
   var iLen: Integer;
   begin
   FText := StringReplace(StringReplace(Value,#13,'',[]),#10,'',[]);
   iLen:=Length(FText);
   Memo.Lines.Clear;
   Memo.Lines.Add(FText);
   FForm.Width:=iLen*8;
   if FForm.Ownernil then
   FForm.Position:=poOwnerFormCenter
   else begin
   FForm.Position:=poScreenCenter;
   end;
   if FText'' then
   FForm.Show
   else if FForm.Showing then begin
   FForm.Close;
   end;
   Application.ProcessMessages;
   end;
  
   
  

  -- 
  _
  Rafael jorge alves
  Desenvolvedor/analista
  Ativa Soluções em TI.
  Recife - PE

  [As partes desta mensagem que não continham texto foram removidas]



  

[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] Re: Atualizar apenas um registro de um CDS

2009-10-27 Por tôpico magnunoliveira
entao cara ... 

deveria fazer ... 


configurei os providers flags, os options do datasetprovider, mas nada ... 

--- Em delphi-br@yahoogrupos.com.br, berdamzinho berdamzi...@... escreveu

 o refreshrecord n faz isso ??
 




[delphi-br] Tratamento de erro no Provider usando ErrorCode

2009-10-27 Por tôpico josehenriqu...@ymail.com
Senhores bom dia, gostaria de pedir o auxílio dos senhores para a
questão do tratamento de error que o ADO retorna para o Delphi, estou
usando uma validação no evento OnUpdateError, porém não estou
tendo sucesso, pois vários erros são detectados e a minha
validação está falha. Sei que meu código está incompleto,
pois não está trabalhando corretamente a exceção retornada.

Eis o código:procedure TClasseBasica.prvBasicoUpdateError(Sender:
TObject;  DataSet:
TCustomClientDataSet; E: EUpdateError; UpdateKind: TUpdateKind;
var Response: TResolverResponse);
var
I: Integer;
NomeCampo : string;
mensagem  : string;
begin
if e.ErrorCode = -2147217873 then
begin
for I := 0 to qryBasica.Fields.Count - 1 do
begin
if StrUtils.ContainsStr(e.Message,DataSet.Fields[i].FullName)  then
begin
NomeCampo := qryBasica.Fields[i].DisplayLabel;
Break;
end;
end;
mensagem := 'O campo +NomeCampo+' não pode ter seu valor duplicado
na base!'+#13#10+
   'Por favor altere o valor fornecido para esse campo.';
raise Exception.Create(mensagem);
end
else
raise Exception.Create(E.OriginalException.Message);
end;


Minha intenção era de filtrar os erros do tipo: Índice único,
campo não pode ser null, etc...

Minha dúvida está em como detectar esses erros, quais são e
como trabalhar
corretamente esses códigos retornados pelo ADO.

Se alguém puder me ajudar ficarei muito grato!



[As partes desta mensagem que não continham texto foram removidas]



Res: [delphi-br] Detalhe do processo em tempo real

2009-10-27 Por tôpico Berdam
vi que o pessoal falou aqui sobre por o método application.processmessages 
dentro de um while.
Mas e quando o a query (com muitos dados) é usada através do método Open, oque 
o pessoal sugere ??

 

Uberdam Cavaletti
Programador Delphi
Formado em Tecnologia da Informação
Pós-graduado em desenvolvimento Java.
Professor Tópicos Especias em BD - Unoesc Xanxerê
Professor Estruturas de Dados- Unoesc Xanxerê

http://buscatextual.cnpq.br/buscatextual/visualizacv.jsp?id=K4251629Y0







De: Claiton Bortolin clai...@impactocontabil.com.br
Para: delphi-br@yahoogrupos.com.br
Enviadas: Ter, Outubro 27, 2009 8:42:18 AM
Assunto: Re: [delphi-br] Detalhe do processo em tempo real

  
Vou fazer aqui, obrigado a todos.

- Original Message - 
From: Rafael Jorge 
To: delphi...@yahoogrup os.com.br 
Sent: Monday, October 26, 2009 6:38 PM
Subject: Re: [delphi-br] Detalhe do processo em tempo real

cara um simples Application. ProcessMessages na tua rotina vai evitar do form
icar branco e travado.
so isso. ai tu pode escrever nos labels e o usuario vai ver tudo.
t+

2009/10/26 Marcelo Luiz Onhate marc...@systempro. com.br



 Não consigo enviar arquivo...
 então segue o código direto mesmo... aheuaheua

 Tenta usar esta classe que fiz para exibir mensagens durante processos
 longos...


 {Classe para exibição de Mensagens Informativas durante a execução de
 algum processo.
 Exemplo:
 var fMsg: TInfoMessage;
 begin
 fMsg:=TInfoMessage. Create(Self, 'Primeira Mensagem...' );
 ou
 fMsg:=TInfoMessage. Create(Self) ;
 ...
 fMesg.Text:= 'Segunda Mensagem...' ;
 ...
 fMesg.Text:= 'Terceira Mensagem...' ;
 ...
 fMsg.Free;
 end;}
 type TInfoMessage = class(TObject)
 private
 FMemo: TMemo;
 FText: String;
 FForm: TForm;
 procedure setText(const Value: String);
 property Form: TForm read FForm write FForm;
 property Memo: TMemo read FMemo write FMemo;
 public
 property Text: String read FText write setText;
 destructor Destroy; override;
 constructor Create(AOwner: TComponent); overload;
 constructor Create(AOwner: TComponent; sMsg: String); overload;
 end;


  # # # # # # 
 # # # ###

 { TInfoMessage }

 constructor TInfoMessage. Create(AOwner: TComponent);
 begin
 inherited Create;
 FForm:=TForm. Create(AOwner) ;
 if AOwnernil then
 FForm.Position: =poOwnerFormCent er
 else begin
 FForm.Position: =poScreenCenter;
 end;
 FForm.Height: =23;
 {$IFDEF MSWINDOWS}
 FForm.BorderStyle: =bsNone;
 {$ENDIF}
 {$IFDEF LINUX}
 FForm.BorderStyle: =fbsNone;
 {$ENDIF}
 FForm.BorderIcons: =[];
 Memo:=TMemo. Create(FForm) ;
 Memo.Parent: =FForm;
 Memo.Align:= alClient;
 Memo.Alignment: =taCenter;
 Memo.ReadOnly: =True;
 {$IFDEF MSWINDOWS}
 Memo.Color:= $00985632;
 Memo.Font.Color: =clWhite;
 {$ENDIF}
 {$IFDEF LINUX}
 Memo.Color:= $00E3E0DF;
 Memo.Font.Color: =clBlack;
 {$ENDIF}
 Memo.Font.Size: =10;
 Memo.Font.Style: =[fsBold] ;
 Application. ProcessMessages;
 end;

 constructor TInfoMessage. Create(AOwner: TComponent; sMsg: String);
 begin
 Create(AOwner) ;
 Text:=sMsg;
 end;

 destructor TInfoMessage. Destroy;
 begin
 if (Selfnil)then
 begin
 if(Assigned( FForm))and( FForm.Showing) then
 begin
 FForm.Close;
 Application. ProcessMessages;
 end;
 if(Assigned( FMemo))then FreeAndNil(FMemo) ;
 if(Assigned( FForm))then FreeAndNil(FForm) ;
 end;
 inherited;
 end;

 procedure TInfoMessage. setText(const Value: String);
 var iLen: Integer;
 begin
 FText := StringReplace( StringReplace( Value,#13, '',[]),#10, '',[]);
 iLen:=Length( FText);
 Memo.Lines.Clear;
 Memo.Lines.Add( FText);
 FForm.Width: =iLen*8;
 if FForm.Owner nil then
 FForm.Position: =poOwnerFormCent er
 else begin
 FForm.Position: =poScreenCenter;
 end;
 if FText'' then
 FForm.Show
 else if FForm.Showing then begin
 FForm.Close;
 end;
 Application. ProcessMessages;
 end;

 


-- 
 _ 
Rafael jorge alves
Desenvolvedor/ analista
Ativa Soluções em TI.
Recife - PE

[As partes desta mensagem que não continham texto foram removidas]

[As partes desta mensagem que não continham texto foram removidas]


   


  

Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] intervalo entre duas datas

2009-10-27 Por tôpico Leonardo Baldino
alguem sabe como eu faço para saber a quantidade de dias entre um
determinado intervalo entre duas datas

-- 
Leonardo Carlos Baldino - The Highlander


[As partes desta mensagem que não continham texto foram removidas]



Res: [delphi-br] intervalo entre duas datas

2009-10-27 Por tôpico Berdam
use a unit dateutils, se n me engano a função é daybetween

 

Uberdam Cavaletti
Programador Delphi
Formado em Tecnologia da Informação
Pós-graduado em desenvolvimento Java.
Professor Tópicos Especias em BD - Unoesc Xanxerê
Professor Estruturas de Dados- Unoesc Xanxerê

http://buscatextual.cnpq.br/buscatextual/visualizacv.jsp?id=K4251629Y0







De: Leonardo Baldino portaldoinfe...@gmail.com
Para: Grupo_Delphi delphi-br@yahoogrupos.com.br
Enviadas: Ter, Outubro 27, 2009 3:04:38 PM
Assunto: [delphi-br] intervalo entre duas datas

  
alguem sabe como eu faço para saber a quantidade de dias entre um
determinado intervalo entre duas datas

-- 
Leonardo Carlos Baldino - The Highlander

[As partes desta mensagem que não continham texto foram removidas]


   


  

Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] Erro estranho usando um Strings.LoadFromFile

2009-10-27 Por tôpico Fellipe Henrique
Amigos, estou usando um StringList para carregar um arquivo texto, porém
alguns arquivos textos, que abrem normalmente no Notepad, abrem assim pelo
Delphi:

'ÿþ'#0'?'#0'x'#0'm'#0'l'#0'
'#0'v'#0'e'#0'r'#0's'#0'i'#0'o'#0'n'#0'='#0''#0'1'#0'.'#0'0'#0''#0'
'#0'e'#0'n'#0'c'#0'o'#0'd'#0'i'#0'n'#0'g'#0'='#0''#0'U'#0'T'#0'F'#0'-'#0'8'#0''#0'?'#0''#0''#0'N'#0'F'#0'e'#0'
'#0'x'#0'm'#0'l'#0'n'#0's'#0'='#0''#0'h'#0't'#0't'#0'p'#0':'#0'/'#0'/'#0'w'#0'w'#0'w'#0'.'#0'p'#0'o'#0'r'#0't'#0'a'#0'l'#0'f'#0'i'#0's'#0'c'#0'a'#0'l'#0'.'#0'i'#0'n'#0'f'#0'.'#0'b'#0'r'#0'/'#0'n'#0'f'#0'e'#0''#0''#0''#0'i'#0'n'#0'f'#0'N'#0'F'#0'e'#0'
'#0'I'#0'd'#0'='#0''#0'N'#0'F'#0'e'#0'3'#0'1'#0'0'#0'9'#0'0'#0'9'#0'2'#0'0'#0'9'#0'0'#0'9'#0'2'#0'9'#0'7'#0'0'#0'0'#0'0'#0'1'#0'1'#0'0'#0'5'#0'5'#0'0'#0'0'#0'1'#0'0'#0'0'#0'0'#0'0'#0'0'#0'0'#0'1'#0'5'#0'1'#0'0'#0'0'#0'0'#0'0'#0'0'#0'0'#0'1'#0'5'#0'0'#0'0'#0''#0'
'#0'v'#0'e'#0'r'#0's'#0'a'#0'o'#0'='#0''#0'1'#0'.'#0'1'#0'0'#0''#0''#0''#0'i'#0'd'#0'e'#0''#0''#0'c'#0'U'#0'F'#0''#0'3'#0'1'#0''#0'/'#0'c'#0'U'#0'F'#0''#0''#0'c'#0'N'#0'F'#0''#0'0'#0'0'#0'0'#0'0'#0'0'#0'0'#0'1'#0'5'#0'0'#0''#0'/'#0'c'#0'N'#0'F'#0''#0''#0'n'#0'a'#0't'#0'O'#0'p'#0''#0'V'#0'e'#0'n'#0'd'#0'a'#0'
'#0'd'#0'e'#0' '#0'm'#0'e'#0'r'#0'c'#0'a'#0'd'#0'o'#0'r'#0'i'#0'a'#0'
'#0'a'#0'd'#0'q'#0'u'#0'i'#0'r'#0'i'#0'd'#0'a'#0' '#0'o'#0'u'#0'
'#0'r'#0'e'#0'c'#0'e'#0'b'#0'i'#0'd'#0'a'#0' '#0'd'#0'e'#0'
'#0't'#0'e'#0'r'#0'c'#0'e'#0'i'#0'r'#0'o'#0's'#0''#0'/'#0'n'#0'a'#0't'#0'O'#0'p'#0''#0''#0'i'#0'n'#0'd'#0'P'#0'a'#0'g'#0''#0'1'#0''#0'/'#0'i'#0'n'#0'd'#0'P'#0'a'#0'g'#0''#0''#0'm'#0'o'#0'd'#0''#0'5'#0'5'#0''#0'/'#0'm'#0'o'#0'd'#0''#0''#0's'#0'e'#0'r'#0'i'#0'e'#0''#0'1'#0''#0'/'#0's'#0'e'#0'r'#0'i'#0'e'#0''#0''#0'n'#0'N'#0'F'#0''#0'1'#0'5'#0'1'#0''#0'/'#0'n'#0'N'#0'F'#0''#0''#0'd'#0'E'#0'm'#0'i'#0''#0'2'#0'0'#0'0'#0'9'#0'-'#0'0'#0'9'#0'-'#0'2'#0'4'#0''#0'/'#0'd'#0'E'#0'm'#0'i'#0''#0''#0'd'#0'S'#0'a'#0'i'#0'E'#0'n'#0't'#0''#0'2'#0'0'#0'0'#0'9'#0'-'#0'0'#0'9'#0'-'#0'2'#0'4'#0''#0'/'#0'd'#0'S'#0'a'#0'i'#0'E'#0'n'#0't'#0''#0''#0't'#0'p'#0'N'#0'F'#0''#0'1'#0''#0'/'#0't'#0'p'#0'N'#0'F'#0''#0''#0'c'#0'M'#0'u'#0'n'#0'F'#0'G'#0''#0'3'#0'1'#0'4'#0'3'#0'9'#0'0'

Até aí, achei que o problema era do StringList, troquei por uma função que
le usando ReadLn, linha a linha, e mesma coisa... nada... e o mais estranho
é que tem arquivos que le normalmente...

Alguém já passou por isso? O que pode ser?

-- 
_
T.·.F.·.A.·.
Fellipe Henrique
---
CAMPANHA POR UMA INTERNET SEGURA
Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar
mensagens use SEMPRE o Cco (cópia oculta).
Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar
um e-mail, delete todas as informações que apareçam no corpo do e-mail e que
possam ser usadas por hackers.
###


[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] Ajuda

2009-10-27 Por tôpico Felipe Lopes
Galera, boa tarde

Estou com uma dificuldade, quando chamo um form, eu crio um
datamodulo(Tdmexemplo.Create(Self);).
E quando fecho o meu formulário, eu faço o seguinte comando:
FreeAndNil(exemplo);

Eu reparei, que não esta fechando porque quando eu abro novamente esse form,
os dados nos datasets estão desatualizados.

Eles so atualizam quando eu termino o programa e abro novamente.

Alguém pode me ajudar?




[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] intervalo entre duas datas

2009-10-27 Por tôpico Dirlei
DaysBetween

Dirlei.


Leonardo Baldino escreveu:
  

 alguem sabe como eu faço para saber a quantidade de dias entre um
 determinado intervalo entre duas datas

 -- 
 Leonardo Carlos Baldino - The Highlander

 [As partes desta mensagem que não continham texto foram removidas]

 



Re: [delphi-br] intervalo entre duas datas

2009-10-27 Por tôpico Edelson Regis de Lima
Use a função DaysBetween(), da unit DateUtils.
Faça um teste, pois não sei se retorna todos os dias, ou somente os dias
úteis...

Att,

Edelson.


2009/10/27 Leonardo Baldino portaldoinfe...@gmail.com



 alguem sabe como eu faço para saber a quantidade de dias entre um
 determinado intervalo entre duas datas

 --
 Leonardo Carlos Baldino - The Highlander

 [As partes desta mensagem que não continham texto foram removidas]

  



[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] fechando aplicação.

2009-10-27 Por tôpico Cleiton - Yahoo
Galera esperta, estava eu aqui programando, sem mais nem menos minha
aplicação simplesmente não fecha.

Alias ele fecha, mas fica o processo aberto dele. Faz algumas horas que
estou googando pela rede vendo as formas
de fechar sistema e mesmo assim do jeito que fecho e do jeito que outros
fecha o aplicativo não funcionou até agora..

 

O galera da uma ajuda ai, esgotei as fontes de pesquisas, e só me restou
vocês.

 

Uso Delphi 7, S.O Windows Vista Home Basic.

 

Abraço.



[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] intervalo entre duas datas

2009-10-27 Por tôpico Samuca ( Yahoo )
Leonardo, 

Faça a diferença entre as datas, o retorno é o número de dias em tipo float

Dias := DataFinal - DataInicial;

Abraço

Samuca


  - Original Message - 
  From: Leonardo Baldino 
  To: Grupo_Delphi 
  Sent: Tuesday, October 27, 2009 2:04 PM
  Subject: [delphi-br] intervalo entre duas datas


alguem sabe como eu faço para saber a quantidade de dias entre um
  determinado intervalo entre duas datas

  -- 
  Leonardo Carlos Baldino - The Highlander

  [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] BDE x Windows 7

2009-10-27 Por tôpico Hugo Vieira

Grande João!

 

Funcionou perfeitamente de acordo com o que você disse!

 

valeu meu irmao! qualquer coisas estamos as ordens!

Hugo 
 






 


To: delphi-br@yahoogrupos.com.br
From: jcp...@gmail.com
Date: Tue, 27 Oct 2009 08:31:05 -0200
Subject: Re: [delphi-br] BDE x Windows 7

  



Caro Hugo,

Duas Dicas:

1 - Desabilite o UAC.
2 - Redirecione o NETDIR para outro diretório que não o C:\ ou 
C:\Arquivo de Programas.

Tenho uma aplicação feita utilizando Paradox(por favor não 
critiquem.é antiga e está sendo migrada para FB) e funciona beleza 
no Windows 7 com as 2 dicas acima.

[]´s

João Carlos

Hugo Vieira escreveu:
 Boa noite amigos,

 

 Nem o windows 7 foi lançado direito e os problemas ja começaram.

 

 Estou usando o windows 7 profesional na minha maquina e tentando configurar 
 as ferramentas de desenvolvimento delphi/bde. O Delphi 7 funciona blz e o 
 Interbase 6, porem o BDE (5.x) abre e cria novas databases. Ate ai td bem, 
 mas quando tento logar na base de dados criada do interbase ele apresentaa a 
 seguinte mensagem: O Borland Database Engine parou de funcionar e pede para 
 fechar.

 

 alguem tem noção do q possa ser ? ja adicionei todas as permissoes possiveis 
 de execução, porem esta do mesmo jeito

 

 Fico grato por uma resposta

 Hugo 





 






 
 __
 Acesse o Portal MSN do seu celular e se mantenha sempre atualizado. Clique 
 aqui.
 http://www.windowslive.com.br/celular/home.asp?utm_source=MSN_Hotmailutm_medium=Taglineutm_campaign=MobileServices200908

 [As partes desta mensagem que não continham texto foram removidas]



 

 

-- 
ADAPT, ENGAGE, DOMINATE (Sgt. Sykes)








  
_
Acesse seu Hotmail de onde quer que esteja através do celular. Clique aqui.
http://www.windowslive.com.br/celular/home.asp?utm_source=MSN_Hotmailutm_medium=Taglineutm_campaign=MobileServices200908

[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Detalhe do processo em tempo real

2009-10-27 Por tôpico Desenvolvimento
Vc pode exibir um panel escrito aguarde, e colocar o processo da query numa 
thread, isso irá impedir que a aplicação fique congelada 



[]'s 
William C. Brazilino

[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Erro estranho usando um Strings.LoadFromFile

2009-10-27 Por tôpico Júlio César Santiago Guiótti
Felipe,

pelo fato de ter dado erro em duas estruturas distintas (TStringList e
TextFile) é muito provável que o erro esteja no arquivo.
Tente gerar outro arquivo texto de teste.

Abraço,
Júlio César Santiago Guiótti


2009/10/27 Fellipe Henrique felli...@gmail.com



 Amigos, estou usando um StringList para carregar um arquivo texto, porém
 alguns arquivos textos, que abrem normalmente no Notepad, abrem assim pelo
 Delphi:

 'ÿþ'#0'?'#0'x'#0'm'#0'l'#0'
 '#0'v'#0'e'#0'r'#0's'#0'i'#0'o'#0'n'#0'='#0''#0'1'#0'.'#0'0'#0''#0'

 '#0'e'#0'n'#0'c'#0'o'#0'd'#0'i'#0'n'#0'g'#0'='#0''#0'U'#0'T'#0'F'#0'-'#0'8'#0''#0'?'#0''#0''#0'N'#0'F'#0'e'#0'

 '#0'x'#0'm'#0'l'#0'n'#0's'#0'='#0''#0'h'#0't'#0't'#0'p'#0':'#0'/'#0'/'#0'w'#0'w'#0'w'#0'.'#0'p'#0'o'#0'r'#0't'#0'a'#0'l'#0'f'#0'i'#0's'#0'c'#0'a'#0'l'#0'.'#0'i'#0'n'#0'f'#0'.'#0'b'#0'r'#0'/'#0'n'#0'f'#0'e'#0''#0''#0''#0'i'#0'n'#0'f'#0'N'#0'F'#0'e'#0'

 '#0'I'#0'd'#0'='#0''#0'N'#0'F'#0'e'#0'3'#0'1'#0'0'#0'9'#0'0'#0'9'#0'2'#0'0'#0'9'#0'0'#0'9'#0'2'#0'9'#0'7'#0'0'#0'0'#0'0'#0'1'#0'1'#0'0'#0'5'#0'5'#0'0'#0'0'#0'1'#0'0'#0'0'#0'0'#0'0'#0'0'#0'0'#0'1'#0'5'#0'1'#0'0'#0'0'#0'0'#0'0'#0'0'#0'0'#0'1'#0'5'#0'0'#0'0'#0''#0'

 '#0'v'#0'e'#0'r'#0's'#0'a'#0'o'#0'='#0''#0'1'#0'.'#0'1'#0'0'#0''#0''#0''#0'i'#0'd'#0'e'#0''#0''#0'c'#0'U'#0'F'#0''#0'3'#0'1'#0''#0'/'#0'c'#0'U'#0'F'#0''#0''#0'c'#0'N'#0'F'#0''#0'0'#0'0'#0'0'#0'0'#0'0'#0'0'#0'1'#0'5'#0'0'#0''#0'/'#0'c'#0'N'#0'F'#0''#0''#0'n'#0'a'#0't'#0'O'#0'p'#0''#0'V'#0'e'#0'n'#0'd'#0'a'#0'
 '#0'd'#0'e'#0' '#0'm'#0'e'#0'r'#0'c'#0'a'#0'd'#0'o'#0'r'#0'i'#0'a'#0'
 '#0'a'#0'd'#0'q'#0'u'#0'i'#0'r'#0'i'#0'd'#0'a'#0' '#0'o'#0'u'#0'
 '#0'r'#0'e'#0'c'#0'e'#0'b'#0'i'#0'd'#0'a'#0' '#0'd'#0'e'#0'

 '#0't'#0'e'#0'r'#0'c'#0'e'#0'i'#0'r'#0'o'#0's'#0''#0'/'#0'n'#0'a'#0't'#0'O'#0'p'#0''#0''#0'i'#0'n'#0'd'#0'P'#0'a'#0'g'#0''#0'1'#0''#0'/'#0'i'#0'n'#0'd'#0'P'#0'a'#0'g'#0''#0''#0'm'#0'o'#0'd'#0''#0'5'#0'5'#0''#0'/'#0'm'#0'o'#0'd'#0''#0''#0's'#0'e'#0'r'#0'i'#0'e'#0''#0'1'#0''#0'/'#0's'#0'e'#0'r'#0'i'#0'e'#0''#0''#0'n'#0'N'#0'F'#0''#0'1'#0'5'#0'1'#0''#0'/'#0'n'#0'N'#0'F'#0''#0''#0'd'#0'E'#0'm'#0'i'#0''#0'2'#0'0'#0'0'#0'9'#0'-'#0'0'#0'9'#0'-'#0'2'#0'4'#0''#0'/'#0'd'#0'E'#0'm'#0'i'#0''#0''#0'd'#0'S'#0'a'#0'i'#0'E'#0'n'#0't'#0''#0'2'#0'0'#0'0'#0'9'#0'-'#0'0'#0'9'#0'-'#0'2'#0'4'#0''#0'/'#0'd'#0'S'#0'a'#0'i'#0'E'#0'n'#0't'#0''#0''#0't'#0'p'#0'N'#0'F'#0''#0'1'#0''#0'/'#0't'#0'p'#0'N'#0'F'#0''#0''#0'c'#0'M'#0'u'#0'n'#0'F'#0'G'#0''#0'3'#0'1'#0'4'#0'3'#0'9'#0'0'

 Até aí, achei que o problema era do StringList, troquei por uma função que
 le usando ReadLn, linha a linha, e mesma coisa... nada... e o mais estranho
 é que tem arquivos que le normalmente...

 Alguém já passou por isso? O que pode ser?

 --
 _
 T.·.F.·.A.·.
 Fellipe Henrique
 --
 CAMPANHA POR UMA INTERNET SEGURA
 Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar
 mensagens use SEMPRE o Cco (cópia oculta).
 Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar
 um e-mail, delete todas as informações que apareçam no corpo do e-mail e
 que
 possam ser usadas por hackers.
 ###

 [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] Ajuda

2009-10-27 Por tôpico Júlio César Santiago Guiótti
Oi Felipe,

pelo que vi você está precisando atualizar os seus datasets, há outras
maneiras de você fazer isso.

Mas no caso de fechar o data module não funciona porque você não está
atribuindo a instância criada a nenhuma variável.
Você tem que fazer:

exemplo := Tdmexemplo.Create(Self);

E para destruir:

FreeAndNil(exemplo);
ou
exemplo.Free;

Abraço,
Júlio César Santiago Guiótti


2009/10/27 Felipe Lopes felipearaujolo...@yahoo.com.br



 Galera, boa tarde

 Estou com uma dificuldade, quando chamo um form, eu crio um
 datamodulo(Tdmexemplo.Create(Self);).
 E quando fecho o meu formulário, eu faço o seguinte comando:
 FreeAndNil(exemplo);

 Eu reparei, que não esta fechando porque quando eu abro novamente esse
 form,
 os dados nos datasets estão desatualizados.

 Eles so atualizam quando eu termino o programa e abro novamente.

 Alguém pode me ajudar?

 [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] Erro estranho usando um Strings.LoadFromFile

2009-10-27 Por tôpico Joao Morais
O texto está provavelmente em UTF-8 com um indicador no início do
arquivo informando que é UTF-8 (BOM). Tente um save as no notepad e
grave em ISO, CP1252 ou algo que o Delphi entenda.

Joao Morais



2009/10/27 Fellipe Henrique felli...@gmail.com:
 Amigos, estou usando um StringList para carregar um arquivo texto, porém
 alguns arquivos textos, que abrem normalmente no Notepad, abrem assim pelo
 Delphi:

 'ÿþ'#0'?'#0'x'#0'm'#0'l'#0'
 '#0'v'#0'e'#0'r'#0's'#0'i'#0'o'#0'n'#0'='#0''#0'1'#0'.'#0'0'#0''#0'
[snip]


Re: [delphi-br] fechando aplicação.

2009-10-27 Por tôpico Eduardo Silva dos Santos
Já tentou o óbvio? reinicar o PC?


Att,
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 9961-7095
MSN: eduardo@gmail.com
Site: http://www.drdsistemas.com.br/
...


2009/10/27 Cleiton - Yahoo cleiton.mac...@yahoo.com.br



 Galera esperta, estava eu aqui programando, sem mais nem menos minha
 aplicação simplesmente não fecha.

 Alias ele fecha, mas fica o processo aberto dele. Faz algumas horas que
 estou googando pela rede vendo as formas
 de fechar sistema e mesmo assim do jeito que fecho e do jeito que outros
 fecha o aplicativo não funcionou até agora..

 O galera da uma ajuda ai, esgotei as fontes de pesquisas, e só me restou
 vocês.

 Uso Delphi 7, S.O Windows Vista Home Basic.

 Abraço.

 [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] BDE x Windows 7

2009-10-27 Por tôpico Ricardo César Cardoso
A não ser que tenha uma urgência / pendência muito grande, planeje uma migração 
da plataforma do BDE para DBExpress (no mínimo). O BDE já está descontinuado há 
algum tempo, não é culpa do Windows 7 não...

Abraço,
Ricardo.

1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS.

2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor 
compreendida.

3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!

--- Em seg, 26/10/09, Hugo Vieira hugoviei...@hotmail.com escreveu:

De: Hugo Vieira hugoviei...@hotmail.com
Assunto: [delphi-br] BDE x Windows 7
Para: Grupo Delphi BR delphi-br@yahoogrupos.com.br
Data: Segunda-feira, 26 de Outubro de 2009, 22:04






 





  

Boa noite amigos,



Nem o windows 7 foi lançado direito e os problemas ja começaram.



Estou usando o windows 7 profesional na minha maquina e tentando configurar as 
ferramentas de desenvolvimento delphi/bde. O Delphi 7 funciona blz e o 
Interbase 6, porem o BDE (5.x) abre e cria novas databases. Ate ai td bem, mas 
quando tento logar na base de dados criada do interbase ele apresentaa a 
seguinte mensagem: O Borland Database Engine parou de funcionar e pede para 
fechar.



alguem tem noção do q possa ser ? ja adicionei todas as permissoes possiveis de 
execução, porem esta do mesmo jeito



Fico grato por uma resposta



Hugo 



  

 _ _ _ _ _ _

Acesse o Portal MSN do seu celular e se mantenha sempre atualizado. Clique aqui.

http://www.windowsl ive.com.br/ celular/home. asp?utm_source= MSN_Hotmail 
utm_medium= Taglineutm_ campaign= MobileServices20 0908



[As partes desta mensagem que não continham texto foram removidas]




 

  




 

















  

Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] Instalação Componentes Delphi 7

2009-10-27 Por tôpico Eduardo Suruagy
Boa noite pessoal,

Como faço pra instalar um componente na maquina do meu estagiário e esse
componente nao possa ser instalado em mais nenhuma maquina???


Eduardo Suruagy
Net System - (82) 9117-0204


[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] fechando aplicação.

2009-10-27 Por tôpico Eliézer Nogueira Pimentel
Já expirementou usar Application.Terminate ?

Att,

Eliézer Pimentel
C.C.O.
+55(16)3722-3154 - office
+55(16)9228-1168 - mobile
msn: eliezer_pimen...@hotmail.com
skype: eliezer_pimentel


2009/10/27 Eduardo Silva dos Santos eduardo@gmail.com



 Já tentou o óbvio? reinicar o PC?

 Att,
 ...
 Eduardo Silva dos Santos
 DRD SISTEMAS
 (27) 3218-4201
 (27) 9961-7095
 MSN: eduardo@gmail.com eduardo.drd%40gmail.com
 Site: http://www.drdsistemas.com.br/
 ...

 2009/10/27 Cleiton - Yahoo 
 cleiton.mac...@yahoo.com.brcleiton.maciel%40yahoo.com.br
 

 
 
  Galera esperta, estava eu aqui programando, sem mais nem menos minha
  aplicação simplesmente não fecha.
 
  Alias ele fecha, mas fica o processo aberto dele. Faz algumas horas que
  estou googando pela rede vendo as formas
  de fechar sistema e mesmo assim do jeito que fecho e do jeito que outros
  fecha o aplicativo não funcionou até agora..
 
  O galera da uma ajuda ai, esgotei as fontes de pesquisas, e só me restou
  vocês.
 
  Uso Delphi 7, S.O Windows Vista Home Basic.
 
  Abraço.
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 

 [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] fechando aplicação.

2009-10-27 Por tôpico Rafael
Vc usa os comandos :
Action := Cafree;
Formulario := nill;
 
no close do formulario?



--- Em ter, 27/10/09, Cleiton - Yahoo cleiton.mac...@yahoo.com.br escreveu:


De: Cleiton - Yahoo cleiton.mac...@yahoo.com.br
Assunto: [delphi-br] fechando aplicação.
Para: delphi-br@yahoogrupos.com.br
Data: Terça-feira, 27 de Outubro de 2009, 16:08


  



Galera esperta, estava eu aqui programando, sem mais nem menos minha
aplicação simplesmente não fecha.

Alias ele fecha, mas fica o processo aberto dele. Faz algumas horas que
estou googando pela rede vendo as formas
de fechar sistema e mesmo assim do jeito que fecho e do jeito que outros
fecha o aplicativo não funcionou até agora..

O galera da uma ajuda ai, esgotei as fontes de pesquisas, e só me restou
vocês.

Uso Delphi 7, S.O Windows Vista Home Basic.

Abraço.

[As partes desta mensagem que não continham texto foram removidas]

















  

Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

[As partes desta mensagem que não continham texto foram removidas]



RES: [delphi-br] fechando aplicação.

2009-10-27 Por tôpico Felipe lopes
Rafael, passei pelo mesmo problema e não consegui resolver.

 

O que consegui identificar é que isso acontece somente no Windows vista.

No XP, o sistema não fica na memória.

 

O meu fica aproximadamente 20 segundos na memória no Windows vista.

No XP é fechado no ato

 

Procura testar sua aplicação no Windows XP e posta o resultado.

 

Abs

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Rafael
Enviada em: terça-feira, 27 de outubro de 2009 20:23
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] fechando aplicação.

 

  

Vc usa os comandos :
Action := Cafree;
Formulario := nill;
 
no close do formulario?

--- Em ter, 27/10/09, Cleiton - Yahoo cleiton.mac...@yahoo.com.br
mailto:cleiton.maciel%40yahoo.com.br  escreveu:

De: Cleiton - Yahoo cleiton.mac...@yahoo.com.br
mailto:cleiton.maciel%40yahoo.com.br 
Assunto: [delphi-br] fechando aplicação.
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br 
Data: Terça-feira, 27 de Outubro de 2009, 16:08

  

Galera esperta, estava eu aqui programando, sem mais nem menos minha
aplicação simplesmente não fecha.

Alias ele fecha, mas fica o processo aberto dele. Faz algumas horas que
estou googando pela rede vendo as formas
de fechar sistema e mesmo assim do jeito que fecho e do jeito que outros
fecha o aplicativo não funcionou até agora..

O galera da uma ajuda ai, esgotei as fontes de pesquisas, e só me restou
vocês.

Uso Delphi 7, S.O Windows Vista Home Basic.

Abraço.

[As partes desta mensagem que não continham texto foram removidas]

__
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

[As partes desta mensagem que não continham texto foram removidas]





[As partes desta mensagem que não continham texto foram removidas]



Re: RES: [delphi-br] fechando aplicação.

2009-10-27 Por tôpico Silvio Clecio
Felipe lopes escreveu:
 Rafael, passei pelo mesmo problema e não consegui resolver.
 
 O que consegui identificar é que isso acontece somente no Windows vista.
 
 No XP, o sistema não fica na memória.
 
 O meu fica aproximadamente 20 segundos na memória no Windows vista.
 
 No XP é fechado no ato
 
 Procura testar sua aplicação no Windows XP e posta o resultado.
 
 Abs

Galera, eu já tive problemas com forms pq eu tinha muitos e não sabia 
gerenciá-los (na verdade foi um sistema enorme que peguei para dar 
manutenção), depois que passei a usar dessa maneira 
[http://blog.joaomorais.com.br/2008/08/31/dica-gerenciamento-form.html] 
não me perdi com tantos forms.

Desculpem por eu não ter feito o teste no vista, para opinar com mais 
detalhes, pois tenho apenas o XP e o Linux(Ubuntu). Façam o teste aí, 
quem criou a rotina entende muito sobre gerenciamento de memória. ;)

-- 
Silvio Clecio
--
Ninguém é tão ignorante que não tenha algo a ensinar;
e ninguém é tão sábio que não tenha algo a aprender.
Blaise Pascal.