[delphi-br] Mensagem de erro do DBExpress

2004-10-12 Por tôpico Paulo Sérgio Dias

Pessoal:

Estou aprendendo agora a usar o DBExpress.
O que significa a mensagem abaixo ?

DBX Error: No mapping for Error Code Found.

Ela aparece sempre que ha algum erro no meu codigo
SQL, mas nao me da' nenhuma dica de qual e' o problema.
Entao, depois que eu mesmo identifico o problema e o
corrijo, tudo vai bem.  Ha' um modo do DBExpress fornecer
dicas mais uteis sobre o que ha' de problema no comando
SQL (no BDE, as mensagens sao muito melhores).

Grato
Paulo


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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





[delphi-br] Re: Contrato e Proposta de Software

2004-10-12 Por tôpico joaoschroeder


Olá!
Tudo bem?
Aqui se fala que tem modelos de contrato em anexo, mas como se faz 
para pegar esse anexo. 
Alguém poderia me explicar.
Muito Obrigado
João



--- Em [EMAIL PROTECTED], CARLOS CASTRO [EMAIL PROTECTED] 
escreveu
 Ola
 
 Emilene 
 
  No anexo estao 5 modelos de contratos que andei coletando na 
Web , espero que ajude.
  
 Carlos
 
 Emi Monzani [EMAIL PROTECTED] wrote: 
 Olá pessoal, td bem!!1
 
 Alguém tem um contrato de software e uma proposta pra me passar
 
 Obrigada
 
 Emilene 
 
 __
 Do You Yahoo!?
 Tired of spam?  Yahoo! Mail has the best spam protection around 
 http://mail.yahoo.com 
 
 [As partes desta mensagem que não continham texto foram removidas]
 
 
 
 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
 
 Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages
 
 Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
 
 
 Yahoo! Grupos, um serviço oferecido por:PUBLICIDADE
  
 
 -
 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 Termos do 
Serviço do Yahoo!. 
 
 
 
   
 -
 Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador 
agora!
 
 [As partes desta mensagem que não continham texto foram removidas]





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





[delphi-br] DisabledColor e NormalColor em Edit é viável?

2004-10-12 Por tôpico Daniel / Tecnobyte

Fiz um componente descendente de TEdit que implementa alguns controles
adicionais a este componente, tais como caption, alinhamento, botão de
reticências, etc.

Agora estou pensando em colocar um controle de mudança de cor automática
para quando a propriedade ReadOnly ou Enabled for alterada. Estou pensando
em criar duas novas propriedades:

DisabledColor: TColor;
NormalColor: TColor;

Então toda vez que Enabled ou ReadOnly for alterada, o seguinte código será
executado internamente:

if Enabled and not ReadOnly then
  Color := NormalColor
else
  Color := DisabledColor

Poderia implementar outras variações de cores, tais como:

NormalColor
DisabledColor
ReadOnlyColor
FocusedColor

Nota: no caso de um Edit com ReadOnly=true receber o foco, deveria ser usada
ReadOnlyColor ou FocusedColor?

Mas estou com dúvida se isto é viável, visto que cada propriedade do tipo
TColor vai ocupar mais 4 bytes de memória por cada TEdit criado.

Você implementaria este recurso?
Quais propriedades de cor você realmente acha importante?

Quais comentários adicionais será bem-vindo.

Atenciosamente.

Daniel P. Guimarães
Tecnobyte informática
www.tecnobyte.com.br



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [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] Select as

2004-10-12 Por tôpico UUJMMIM

Oi,

Click com o botão direito do mouse no DBGrid, selecione Columns Editor,
defina as suas colunas, sobre uma delels, escolha a propriedade
Title.Caption e edit para 'Nomes'.

UUJMMIM

-Original Message-
From: Filipe [mailto:[EMAIL PROTECTED]
Sent: segunda-feira, 11 de outubro de 2004 15:18
To: ((Delphi
Subject: [delphi-br] Select as



Estou alimentando um dbGrid com uma query com o seguinte comando: select
NOME as Nomes from CLIENTES.
Acontece, q o DbGrid naum exibe Nomes, e sim NOMES... Será q tenho como
Deixar o nome da coluna em minúsculas?



Obrigado


Filipe.

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.775 / Virus Database: 522 - Release Date: 8/10/2004



-- 
 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] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





[delphi-br] TcpServer

2004-10-12 Por tôpico mjackalbr


Estou desenvolvendo uma aplicação Cliente/Servidor usando os 
componentes TTcpServer e TTcpClient em Delphi 6. Mas estou tendo um 
problema com servidor. Sempre que o programa fecha, ocorre um erro 
de Access Violation. Estou usando o servidor com BlockMode em 
bmThreadBlock. O componente TcpServer1 fica em modo listening e 
quando há uma notificação de cliente querendo se conectar ocorre o 
evento OnAccept, tratado pela função TcpServer1Accept, onde eu recebo 
como parâmetro ClientSocket, que é o socket criado para manipular a 
conexão com o cliente. Eu faço todo o procedimento de troca de 
mensagens com o cliente dentro desta função TcpServer1Accept. Quando 
o cliente desconecta, o programa sai desta função. Quando o programa 
vai fechar uso os seguintes comandos: TcpServer1.Close e 
TcpServer1.ServerSocketThread.Terminate. Após isso, quando o programa 
já está encerrando ocorre um Access Violation. Alguém sabe me dizer 
o que estou fazendo de errado e como posso corrigir este problema?
Agradeço qualquer ajuda.





-- 
 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] ou [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] DisabledColor e NormalColor em Edit é viável?

2004-10-12 Por tôpico Vitor Luiz Redes

Daniel,

Importante mesmo, não acho. Mas procuro sempre facilitar a compreensão do usuário, 
colocando cores diferentes nos controles Os controles que utilizo, tem uma propriedade 
adicional, que controla a cor do foco do componente, ou quando o mouse passa por cima 
dele ...
Isso é importante para facilitar visualmente, e nada mais.


Louco sim, não normal.
Ser humano ... eu mesmo

Vitor Luiz Redes

Redsystem Informática
  - Original Message - 
  From: Daniel / Tecnobyte 
  To: [EMAIL PROTECTED] 
  Sent: Tuesday, October 12, 2004 10:54 AM
  Subject: [delphi-br] DisabledColor e NormalColor em Edit é viável?


  Fiz um componente descendente de TEdit que implementa alguns controles
  adicionais a este componente, tais como caption, alinhamento, botão de
  reticências, etc.

  Agora estou pensando em colocar um controle de mudança de cor automática
  para quando a propriedade ReadOnly ou Enabled for alterada. Estou pensando
  em criar duas novas propriedades:

  DisabledColor: TColor;
  NormalColor: TColor;

  Então toda vez que Enabled ou ReadOnly for alterada, o seguinte código será
  executado internamente:

  if Enabled and not ReadOnly then
Color := NormalColor
  else
Color := DisabledColor

  Poderia implementar outras variações de cores, tais como:

  NormalColor
  DisabledColor
  ReadOnlyColor
  FocusedColor

  Nota: no caso de um Edit com ReadOnly=true receber o foco, deveria ser usada
  ReadOnlyColor ou FocusedColor?

  Mas estou com dúvida se isto é viável, visto que cada propriedade do tipo
  TColor vai ocupar mais 4 bytes de memória por cada TEdit criado.

  Você implementaria este recurso?
  Quais propriedades de cor você realmente acha importante?

  Quais comentários adicionais será bem-vindo.

  Atenciosamente.

  Daniel P. Guimarães
  Tecnobyte informática
  www.tecnobyte.com.br



  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

  Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por: 
 
São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte 
Brasília  
 
   


--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do 
Yahoo!. 



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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [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] DBNavigator

2004-10-12 Por tôpico Adilson Nunes

rstoever escreveu:


 Teria como colocar um caption nos botões de navegação, ou fazer
 botões próprios com as mesmas funções ??




 


Substituindo os botões do DBNavigator

A linha de comando para substituir um comando do DBNavigator é a seguinte:

DBNavigator.BtnClick(nb);
onde  será:

first = vai para o primeiro registro;

prior = move o ponteiro para o registro anterior;

next = move o ponteiro para o proximo registro;

last = vai para o último registro;

insert = insere um novo registro na tabela;

delete = apaga o registro atual;

edit = edita o registro atual;

post = confirma a edição ou inserção de um novo registro;

cancel = cancela a operação (edit, insert);

refresh = re-le a tabela de registros;

 
=

Para você mudar as imagens do DbNavigator

//abra o seguinte arquivo no Image Editor do Delphi e modifique as 
imagens como quizer.

C:Arquivos de programas\Borland\Delphi4\Lib\dbctrls.res

=

Alterando o glyph dos botões do DbNavigator

Declare um novo tipo na sua unit:

type
NewTypeNav = class( TDbNavigator );
Depois é só utilizar:

NewTypeNav( DbNavigator1 ).Buttons[nbInsert].Glyph := ...
 
=

Como colocar Captions no DBNavigator
type
  TDBNewNavigator = class(TDBNavigator);
 
procedure TForm1.FormCreate(Sender: TObject);
var 
  B: TNavigateBtn;
begin
  for B := Low(TNavigateBtn) to High(TNavigateBtn) do
with TDBNewNavigator(DBNavigator1).Buttons[B] do
begin
  Case Index of
nbFirst : Caption := 'Inicio';
nbPrior : Caption := 'Anterior';
nbNext : Caption := 'Próximo';
nbLast : Caption := 'Último';
nbInsert : Caption := 'Novo';
nbDelete : Caption := 'Apagar';
nbEdit : Caption := 'Alterar';
nbPost : Caption := 'Gravar';
nbCancel : Caption := 'Cancelar';
nbRefresh: Caption := 'Atualizar';
  End;
  Layout := blGlyphTop; { uses Buttons}
  Hint := Caption;
  ShowHint := True;
end;
  end;
end;
 
=

DTDelphi


procedure TfrmUsu.FormCreate(Sender: TObject);
var
  B: TNavigateBtn;
begin
Dm.TbUsu.Open;
Dm.TbUsu.First;
  for B := Low(TNavigateBtn) to High(TNavigateBtn) do
with TDBNewNavigator(DBNavigator1).Buttons[B] do
begin
  Case Index of
nbFirst : Caption := 'Inicio';
nbPrior : Caption := 'Anterior';
nbNext : Caption := 'Próximo';
nbLast : Caption := 'Último';
nbInsert : Caption := 'Novo';
nbDelete : Caption := 'Apagar';
nbEdit : Caption := 'Alterar';
nbPost : Caption := 'Gravar';
nbCancel : Caption := 'Cancelar';
nbRefresh: Caption := 'Atualizar';
  End;
  Layout := blGlyphTop; { uses Buttons}
  Hint := Caption;
  ShowHint := True;
  Font.Color:=clBlue;
end;


-- 
--
Adilson Nunes   -  tetraetila®

?
   õ¿õ¬
   (¬)

Linux Registered User # 272492
--




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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





[delphi-br] Dilema - Orientação

2004-10-12 Por tôpico Leonardo Moraes

Pessoal,

Vou começar a projetar um sistema que terá
aproximadamento 500 clientes espalhados pelo Brasil.
Pelo meus conhecimentos, o Firebird seria uma boa
escolha como SGDB. Tenho experiencia nas várias
tecnologias de acesso a dados no Delphi. Conheco COM+
a fundo. No D8 veio o ASP.NET o qual tenho pouca
experiencia. Digo isso porque cogitamos em desenvolver
via internet (browser) para facilitar a distribuicao e
a utilizacao. Fica a pergunta entao: invisto no .NET,
fico com o desenvolvimento em COM+, talvez um
Intraweb, WebSnap ou até em ASP puro?

Agradeco antecipadamente as opinioes





___ 
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! 
http://br.acesso.yahoo.com/


-- 
 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] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





[delphi-br] Alguém poderia me explicar ....

2004-10-12 Por tôpico rstoever


Alguém poderia me explicar o que significa 

  register
  pascal
  cdecl
  stdcall
  safecall


Pois estou fazendo uns forms dentro de dll's e está sempre dando erro 
qdo abro pela segunda vez o form, mas a unica coisa q estou fazendo 
diferente dos modelos q achei na net, é q estou passando um parametro 
de conexão de banco com esse stdcall, já tentei com cdecl tbm mas 
sempre o mesmo erro de memória.

qualuqer coisa.. mando via pvt os fontes... 


Obs.: tem q ter o mydac instalado





-- 
 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] ou [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] QRLABEL ou QRDBTXT OCULTO

2004-10-12 Por tôpico Rogerio

putz estava na cara... eu esperava algo como visible... hehe

obrigado pela dica...


- Original Message -
From: Fausto Cintra Junior [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Saturday, October 09, 2004 9:07 PM
Subject: Re: [delphi-br] QRLABEL ou QRDBTXT OCULTO



 Rogério,

 Em tempo de execução use a propriedade enabled para ocultar os campos e
 top/left para mudar o posicionamento no formulário.

 []'s,
 Fausto

 - Original Message -
 From: Rogerio [EMAIL PROTECTED]
 To: Delphi Grupo [EMAIL PROTECTED]
 Sent: Saturday, October 09, 2004 7:26 PM
 Subject: [delphi-br] QRLABEL ou QRDBTXT OCULTO



 Pessoal,

 Gostaria de saber se existe uma forma de vc ocultar o qrlabel e o qrdbtxt
de
 um relatorio? Pq venho tendo a seguinte situação... o cliente preenche um
 formulario com uns 20 campos e ao ser emitido o relatorio faço ele
 apresentando com os mesmos 20 campos, porem necessito de apresentar o
mesmo
 relatorio apenas com aqueles campos que foram preenchidos...
 Detalhe importante, na apresentação do formulario as posicoes sao fixas, e
 com o ocultamento dos campos as posicoes podem ser moveis?

 Se alguem tiver alguma dica/ajuda sera muito bem vinda...

 Rogerio.


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



 --
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

 Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages

 Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]

 Links do Yahoo! Grupos











 --
  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] ou [EMAIL PROTECTED]

 Links do Yahoo! Grupos













-- 
 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] ou [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] CRIPTOGRAFAR/DESCRIPTOGRAFAR SENHA

2004-10-12 Por tôpico Alexandre Ponte

me passa teu email para eu te enviar um exemplo



- Original Message -
From: er83pet04 [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Monday, October 11, 2004 2:57 PM
Subject: [delphi-br] CRIPTOGRAFAR/DESCRIPTOGRAFAR SENHA




Pessoal,

Estou utilizando o banco de usuários de uma outra aplicação porém a
senha é criptografada. Arrumei a função que
criptografa/descriptografa a senha mas estou tendo problemas ao
tentar descriptografar a senha para dar acesso ao meu sistema.


Será que alguém poderia me ajudar? Onde tenho que passar a senha
para descriptografar e depois passar a senha para validação no
banco??? Já tentei de várias formas e não consegui.


Tenho o seguinte:



ROTINA PARA CRIPTOGRAFAR/DESCRIPTOGRAFAR SENHA

Function TUtil.CRIPTO_SENHA(pTexto: string; const SENHA: string):
string;
{ Criptografa a Senha}
var
  vCompr_Texto, vCompr_Senha: integer;
  vCont_Texto, vCont_Senha: integer;
  vInt_Texto, vInt_Senha, vInt_Result : integer;
  vResultado: string;
  vLetra : char;
  i: integer;
  begin
{Inicializando as variáveis}
vCompr_Texto := Length(pTexto);
vCompr_Senha := Length(SENHA);
vCont_Senha := 1;
vResultado := '';

{Criptografando ou Decriptografando}
for vCont_Texto := 1 to vCompr_Texto do
  begin
  vInt_Texto := Ord(pTexto[vCont_Texto]);
  i:=vCont_Texto;
 if ivCompr_Senha then i:=vCompr_Senha;
  vInt_Senha := Ord(SENHA[i]);
  vInt_Result := vInt_Texto XOR vInt_Senha;
  vLetra := Chr(vInt_Result);
  vResultado := vResultado + vLetra;
  vCont_Senha := vCont_Senha + 1;
  if (vCont_Senha  vCompr_Senha) then
begin
vCont_Senha := 1;
end;
  end;

{Retornando um valor}
CRIPTO_SENHA := vResultado;

  end;



TENHO QUE PASSAR AGORA PARA ESSAS ROTINAS A SENHA



function TFrmPrincipal.fVerificaSenha(pUsuario, pSenha: String ) :
boolean;
var
sqlStr: String;
begin

sqlStr := '';

fVerificaSenha := false;

if ( ( pUsuario = '' ) or ( pSenha = '' ) ) then
   exit;

sqlStr := sqlStr + 'select * from USUARIO where
USUARIO_SENHA = ';
sqlStr := sqlStr + #39 + pSenha + #39;

// Consulta tabela de usuarios
DMSAV.qryAux.Close;
DMSAV.qryAux.SQL.Clear;
DMSAV.qryAux.SQL.Add( sqlStr );
DMSAV.qryAux.Open;

// Se achou
if ( not DMSAV.qryAux.Eof ) then
   fVerificaSenha := true
else
   fVerificaSenha := false;
end;



-




procedure TFrmPrincipal.edtSenhaChange(Sender: TObject);
var
i: integer;
begin

if (( EditNomeUsuario.Text = '' )  or
 ( edtSenha.Text   = '' )) then
exit;

 if ( fVerificaSenha( EditNomeUsuario.Text, edtSenha.Text ) )
then
 begin

imgSinalVerde.Visible:= true;
panSenha.Repaint;
Sleep( 500 );


pAcessaSistema( EditNomeUsuario.Text );

 end;





--
 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] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos








-- 
 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] ou [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] OFF Topic: Window s XP Pro não acessa controlador de domí nio Windows 2000 server

2004-10-12 Por tôpico Nielsen Cassiano Simões

Se o domínio cadastrado no Active Directory for controlado pelo
servidor DNS de internet, então você terá que cadastrar novamente todo
o mapa de domínio registrado no Active Directory no DNS do win2000
Server. Veja o exemplo:

   Tenho uma máquina com o Win200 Server com o Active Directory para o
domínio NetBios EMPRESA, e DNS empresa.com.br. Meu servidor DNS é
outro (ns.empresa.com.br), então eu coloco todo o mapa de domínio
cadastrado em ns.empresa.com.br no Win2000 Server, incluindo todas as
máquinas da rede, e configuro o domínio ns.empresa.com.br como
encaminhador de domínio, para resolver outros domínios.
   Se não tiver entendido, me passe a configuração de sua rede (nome
das máquinas servidoras e IPs (internos, se for o caso) que eu te
explico como configurar.
   Quanto ao suporte da Micro$oft, eles só dão suporte gratuito para
instalação, eu já precisei e não pude contar com a ajuda deles. Depois
do Win2000 Server rodando, eles não querem nem saber, só pagando pra
ter suporte a configuração. Falo por experiência própria.

  Nielsen

On Fri, 08 Oct 2004 08:33:26 -0300, Cristina Orthmann
[EMAIL PROTECTED] wrote:
 
 Prezado Nielsen,
 
O servidor de DNS não fica na nossa empresa, utilizamos um servidor
 do prédio, onde todos os associados que tem acesso a rede de internet do
 prédio tem acesso.
 
 Nielsen Cassiano Simões escreveu:
 
   Já tive esse problema, e a única forma de resolver é configurar as
 máquinas da rede no DNS do servidor de domínio. Tente criar uma
 entrada para cada máquina (nome do host e IP) no servidor DNS do seu
 servidor de domínio e veja se o problema acaba. Outra coisa, você tem
 que colocar como servidor DNS de cada máquina o IP do seu servidor de
 domínio, senão não resolver.
 
   Nielsen
 
 On Tue, 5 Oct 2004 15:25:08 -0300, Eduardo Jedliczka
 [EMAIL PROTECTED] wrote:
 
 
 Utilize do seu suporte técnico mediante a MicroSoft... eles poderão passar as 
 informações corretas para a solução do seu problema.
 
 Lembre-se de ter em mãos o Nº serial tanto do servidor quanto do terminal.
 
 [s]
 
 =
 Eduardo Jedliczka
 GeraSoft Informática
 Apucarana - PR
 =


-- 
 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] ou [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] Dilema - Orientação

2004-10-12 Por tôpico Williams Diaz

Leonardo,

é muito difícil opinar sobre esse assunto, porque há várias opções
disponíveis, e provavelmente todas estão certas.
Eu escolhi o .net em lugar do java, e estou partindo para C# em lugar do
Delphi, mas pelo que eu sei a Borland vem com tudo nessa área também.

williams

*---
Williams Díaz
[EMAIL PROTECTED]
http://www.interban.com.br

- Original Message - 
From: Leonardo Moraes [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Tuesday, October 12, 2004 12:23 PM
Subject: [delphi-br] Dilema - Orientação


Pessoal,

Vou começar a projetar um sistema que terá
aproximadamento 500 clientes espalhados pelo Brasil.
Pelo meus conhecimentos, o Firebird seria uma boa
escolha como SGDB. Tenho experiencia nas várias
tecnologias de acesso a dados no Delphi. Conheco COM+
a fundo. No D8 veio o ASP.NET o qual tenho pouca
experiencia. Digo isso porque cogitamos em desenvolver
via internet (browser) para facilitar a distribuicao e
a utilizacao. Fica a pergunta entao: invisto no .NET,
fico com o desenvolvimento em COM+, talvez um
Intraweb, WebSnap ou até em ASP puro?

Agradeco antecipadamente as opinioes





___
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora!
http://br.acesso.yahoo.com/


-- 
 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] ou [EMAIL PROTECTED]



  Yahoo! Grupos, um serviço oferecido por:









Links do Yahoo! Grupos

  a.. Para visitar o site do seu grupo na web, acesse:
  http://br.groups.yahoo.com/group/delphi-br/

  b.. Para sair deste grupo, envie um e-mail para:
  [EMAIL PROTECTED]

  c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.




-- 
 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] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





[delphi-br] QR- imprissao automatica

2004-10-12 Por tôpico Rogerio

Pessoal,

Estou com a seguinte situação, preciso fazer um relatorio que imprima somente os 
campos com valores, ou seja contendo informações, onde este relatorio possui 3 colunas 
distintas contendo valores fixos nas 2 iniciais e na 3 valores em branco ou não 
[dados], sendo impresso apenas os q tem apenas informações.
Ex:  
-
valor fixo1  valorfixo1  dados01
valor fixo2  valorfixo2  dados02
... ...... 
... ...dados[em branco] - esta linha nao seria 
impressa.
... ......   
valor fixoN  valorfixoN dadosN

Sei q teria q mecher com as posicoes, Top/Left, porem estou sem nenhuma ideia de como 
proceder, se alguem tiver alguma dica/ajuda sera muito bem vinda.

Rogerio.






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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [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] Arquivos *.QRP

2004-10-12 Por tôpico Fernando


Tente assim (Delphi 5):

QuickRep1.Functions.LoadFromFile('C:\TESTE.QRP');

Agora, se voce quiser distribuir um aplicativo apenas para visualizar os 
relatorios (associar a extensao via Windows Explorer) tente o programa abaixo:



program VisualRel;

uses QuickRpt, QRPrntr, Classes, Forms, Dialogs, SysUtils;

{$R *.RES}

procedure AbreRelatorio(FileName:string);
var
   QRPrinter: TQRPrinter;
begin
   if FileExists(FileName) then
   begin
 QRPrinter := TQRPrinter.Create;
 try
   QRPrinter.Load(FileName);
   QRPrinter.Preview;
   repeat
 Application.HandleMessage;
   until not QRPrinter.ShowingPreview;
 finally
   QRPrinter.Free;
 end;
   end;
end;

begin
   Application.Initialize;
   if ParamCount = 1 then
 AbreRelatorio(ParamStr(1))
   else
 ShowMessage('Passe o arquivo QRP como parametro.');
   Application.Title := 'Abre Relatório Quick Report';
   Application.Run;
end.



Fernando


At 10:58 11/10/2004, you wrote:

Bom dia!

Alguém da lista sabe como faço e o q preciso para abrir e visualizar
relatórios do QuickReport salvos com extensão *.QRP

Muito obrigado pela ajuda
[]'s Alexandre



-- 
 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] ou [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] QR- imprissao automatica

2004-10-12 Por tôpico Carlos Alberto

Rogerio

Acho que estamos no minimo com problemas parecidos. Daria para explicar 
melhor sua situacao com um exemplo (com dados que podem ser ficticios) e dê 
uma olhada no email que eu postei em 11/10 com o Assunto QuickRep. Embora 
nao
tenho conseguido resolver 100% o meu problema podemos trocar algumas 
informações

Abraços


- Original Message - 
From: Rogerio [EMAIL PROTECTED]
To: Delphi Grupo [EMAIL PROTECTED]
Sent: Tuesday, October 12, 2004 10:23 PM
Subject: [delphi-br] QR- imprissao automatica



Pessoal,

Estou com a seguinte situação, preciso fazer um relatorio que imprima 
somente os campos com valores, ou seja contendo informações, onde este 
relatorio possui 3 colunas distintas contendo valores fixos nas 2 iniciais e 
na 3 valores em branco ou não [dados], sendo impresso apenas os q tem apenas 
informações.
Ex:
-
valor fixo1  valorfixo1  dados01
valor fixo2  valorfixo2  dados02
... ......
... ...dados[em branco] - esta linha nao 
seria impressa.
... ......
valor fixoN  valorfixoN dadosN

Sei q teria q mecher com as posicoes, Top/Left, porem estou sem nenhuma 
ideia de como proceder, se alguem tiver alguma dica/ajuda sera muito bem 
vinda.

Rogerio.






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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos










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