[delphi-br] Problema com break point

2006-12-04 Por tôpico Moked - Humberto \(Brazil\)
Olá caros Delphianos.
 
meu problema é o seguinte:
 
Estou tentando adicionar break points no código para depurar uma rotina, mas 
aonde quer que eu coloque breakpoints, ele não aceita. (fica aquela facha 
verde).. mesmo em linhas onde existem atribuições...
Como arrumar isso?
 
 
Obrigado.
 
PS: Uso Delphi 2005.


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



[delphi-br] Gauge ao ler arquivo

2006-12-04 Por tôpico Moked - Humberto \(Brazil\)
Olá colegas, bem estou fazendo uma rotina que lê um arquivo texto, e grava 
outro parecido com o anterior, mas com algumas modificações feitas via código. 
Até ai está td ok, porém gostaria de fazer um Gauge durante essa operação... 
alguém tem idéia de como pode ser feito?
 
Obrigado


Humberto Monaco Palaia - Suporte técnico
Moked do Brasil - Consultoria de Segurança Empresarial
Divisão MokInf de Informática
PABX: (55-11) 5071-2748
[EMAIL PROTECTED]
www.moked.com.br http://www.moked.com.br/ 


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



RES: [delphi-br] Problema com o Quick Report

2006-12-01 Por tôpico Moked - Humberto \(Brazil\)
Tente usar o QDBRichText, colocando a propriedade DataField = Campo
 
=D



De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Moked - 
Thiago (Brasil)
Enviada em: sexta-feira, 1 de dezembro de 2006 16:17
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Problema com o Quick Report



Dessa maneira tbm não funcionou marcelo..

[s]

Thiago 



De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br  
[mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] 
Em nome de Marcelo
Enviada em: sexta-feira, 1 de dezembro de 2006 06:01
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br 
Assunto: Re: [delphi-br] Problema com o Quick Report

Moked - Thiago (Brasil) escreveu:

 Bom dia colegas Delphianos,

 Estou tendo um problema na hora de gerar um relatório,
 estou utilizando um componente do tipo QRMemo, para receber os dados, 
 conforme parte do código abaixo, mas quando o relatório é gerado,
 somente aparece os dados do 1ºregistro do banco ou do último registro

 ele não fica passando de um a um, como os campos .DataField

 Alguém teria uma sugestão??

 eu tentei.. abrir o ClientDataSet.. e dar um first. depois dentro do 
 laço colocar um next... e não adiantou...

 for i := 0 to RecordCount-1 do
 begin
 qrdbDadoAten0.DataField := 'AteCodi';
 qrdbDadoAten3.DataField := 'UsuNome';
 qrdbNomeProcurador.DataField := 'pro_nome';
 qrdbAtend1.DataField := 'His_Data';
 qrdbDadoAte2.DataField := 'HisDura';
 qrdbSituacao.DataField := 'ate_situ';
 mmAteDesc.Lines.Text := fieldbyname('AteDesc').AsString;
 end;


 Thiago Filiano

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

 

--

Internal Virus Database is out-of-date.
Checked by AVG Free Edition.
Version: 7.1.408 / Virus Database: 268.13.6/486 - Release Date: 19/10/2006
 

Voce experimentou fazer assim:

mmAteDesc.Lines.Add(fieldbyname('AteDesc').AsString) ???

Espero ter ajudado

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



 


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



RES: [delphi-br] DBExpress

2006-11-30 Por tôpico Moked - Humberto \(Brazil\)
Eu costumo utilizar e nunca tive problemas... mas existem outros componentes de 
acesso.. tem um que se chama Zeos (algo assim).. mas nunca utilizei.



De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Fabio 
Dantas
Enviada em: quinta-feira, 30 de novembro de 2006 16:31
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] DBExpress



Pessoal vcs recomendam o uso da paleta dbExpress para acessar o
firebird ? ou melhor outro componente ?


Abraço



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



 


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



RES: [delphi-br] Verificar maskedit

2006-11-30 Por tôpico Moked - Humberto \(Brazil\)
Eu fiz algo parecido... Vlw.



De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Tamara 
Clemente
Enviada em: quinta-feira, 30 de novembro de 2006 05:01
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Verificar maskedit



try
StrToDateTime(edit.text);
except
Showmessage('Digite a data certa');
end;

Em 29/11/06, Moked - Humberto (Brazil) [EMAIL PROTECTED] 
mailto:humberto%40moked.com.br  escreveu:

 Como faço para verificar se um texto é hora? Por exemplo: Tenho um Edit
 que o usuário digita uma hora, porém se o usuário digitar uma data inválida
 da msg de erro..


 Como fazer?

 No VB tem o comando isDate.. tem algo parecido no Delphi?

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



RES: [delphi-br] Re: Usar ou não usar DBWa res? Eis a questão!

2006-11-29 Por tôpico Moked - Humberto \(Brazil\)
O único DBWare que eu uso é o DBGRID.. hehe pq eu uso ele somente para 
consultas.. então deixo ele somente leitura e é só festa hehehe... mas os 
DBEdits eu não gosto de usar.



De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Luiz 
Escobar
Enviada em: quarta-feira, 29 de novembro de 2006 05:02
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Re: Usar ou não usar DBWares? Eis a questão!




Então vc não usa TTable, TQuery, DBExpress, IBTable, IBQuery, etc... etc... faz 
tudo na mão ???

Também sou da seita que o programador tem que ter completo controle dos dados, 
mas dai programar em ASSEMBLY PURO hehehehe to fora...

Só não uso DBWares em casos EXTREMOS, e fico puto porque não encontrei um meio 
de fazer usando DBWARES.
Eu já acho que o DBWare da muito mais produtividade, não te deixa restrito na 
maioria dos casos.. 

Acho um loucura construir um DBGRID sendo que ele esta pronto.

Luiz Escobar

- Segue mensagem original! -

De: Moked - Humberto \(Brazil\) [EMAIL PROTECTED] 
mailto:humberto%40moked.com.br 
Data: Tue, 28 Nov 2006 11:04:43 -0200
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br 
Assunto: RES: [delphi-br] Re: Usar ou não usar DBWares? Eis a questão!

Eu não sou a favor do uso de DBWares, pois creio que o programador tem q ter 
completo controle dos dados que estão sendo enviados ao banco ou trazidos dele. 
Com DBWares vc fica restrito, não me sinto seguro de deixar esse tipo de 
transação nas mãos dos DBWares. Mas cada um com a sua. \o/



De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br  
[mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] 
Em nome de Alisson Yahoo
Enviada em: terça-feira, 28 de novembro de 2006 11:01
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br 
Assunto: Re: [delphi-br] Re: Usar ou não usar DBWares? Eis a questão!

Eu também já fui defensor de desenvolvimento sem componentes DbWare. Mas, como 
diria Raulzito, Prefiro ser essa metamorfose ambulante Agora que estou 
começando a desenvolver usando ClientDataset estou mudando de opinião. O que eu 
acho chato são alguns erros que são um pouco mais difíceis de achar, como por 
exemplo, erros ocasionado pela chamada de certos eventos.

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



[delphi-br] Verificar maskedit

2006-11-29 Por tôpico Moked - Humberto \(Brazil\)
Como faço para verificar se um texto é hora? Por exemplo: Tenho um Edit que o 
usuário digita uma hora, porém se o usuário digitar uma data inválida da msg de 
erro..
 
 
Como fazer?
 
No VB tem o comando isDate.. tem algo parecido no Delphi?


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



RES: [delphi-br] Erro ao acessar Fire Bird

2006-11-28 Por tôpico Moked - Humberto \(Brazil\)
Pessoal, acho que o problema é que eu não defini no evento GetTablename do 
DataSetProvider o nome da tabela, porém não estou conseguindo passar via código 
os parâmetros para o evento GetTableName do Dsp. Segue abaixo a forma como eu 
tentei fazer:
 
OnGetTableName (Self,sds,'PESSOA');
 
O erro mostrado é: Constant object cannot be passed as var parameter.
 
Obrigado.



De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Moked - 
Humberto (Brazil)
Enviada em: domingo, 26 de novembro de 2006 13:32
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Erro ao acessar Fire Bird



Bem, estou tentando acessar o banco de dados somente criando os
objetos via código. porém estou tendo alguma dificuldade, pois apesar
de parecer estar tudo correto, da o seguinte erro: Missing data
provider or data package

Segue abaixo a minha procedure:

procedure TCliente.ConectarBD;
begin

//Conectando ao banco de dados.
FsdsCliente := TSQLDataSet.Create(FsdsCliente);
FcdsCliente := TClientDataSet.Create(FcdsCliente);
FdspCliente := TDataSetProvider.Create(FdspCliente);
FdsCliente := TDataSource.Create(FdsCliente);

FsdsCliente.Datasource := FdsCliente;
FsdsCliente.SQLConnection := dm.scsisgel;
FsdsCliente.CommandText := 'SELECT * FROM Cliente ' +
'WHERE fl_ativo = 1';

FdspCliente.DataSet := FsdsCliente;
FcdsCliente.ProviderName := 'FdspCliente';
FdsCliente.DataSet := FcdsCliente;

FsdsCliente.Active := True;
FcdsCliente.Active := True;

FcdsCliente.Close;
FcdsCliente.Open;
FcdsCliente.First;
//

end;

Alguém ai pode me ajudar? Thks.



 


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



[delphi-br] Problema com formatação de float

2006-11-28 Por tôpico Moked - Humberto \(Brazil\)
Colegas.. estou com o seguinte problema:
 
Em um DBEDIT é digitado um valor do tipo Float, se o usuário digitar 
normalmente.. o problema não ocorre, agora se por acaso o usuário apagar a 
vírgula (que o próprio DBEDIT coloca) do número, ocorre o seguinte erro:
 
is not valid float point value for field NFIPESO
 
 
Alguém sabe como resolver isso? Obrigado.


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



RES: [delphi-br] Main Menu dinamico

2006-11-28 Por tôpico Moked - Humberto \(Brazil\)
Bem. em x de criar em tempo de execução, pq não cria em tempo de projeto 
deixando o mesmo com Visivle = false e qnd precisar exibir o mesmo deixe 
Visible = True ?



De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Wildner 
B. Ferreira
Enviada em: segunda-feira, 27 de novembro de 2006 15:47
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Main Menu dinamico



Ola pessoal,

Estou precisando de uma ajuda de vocês, pois estou tentando
acrescenta um novo item a um Mainmenu em tempo de execução mas estou com uma
dificuldade, pois estou conseguindo acrescenta normalmente o menu em tempo
de execução , so que não estou sabendo como fazer para estar definindo qual
a função que será executada quando o usuário clicar no menu.

Segue abaixo o cogigo que estamos utilizando para criar o menu.

procedure Menuextra;

var

NewItem: TMenuItem;

begin

// Ler o itens que fazerao parte do menu

dm_dados.Q_ConExterna.close;

dm_dados.q_conExterna.Open;

frm_principal.ConexesExternas1.Clear;

While Not dm_dados.Q_ConExterna.Eof do begin

// Cria o item do Menu e depois inclui o mesmo //

NewItem := TMenuItem.Create(Frm_Principal);

NewItem.Caption := dm_dados.Q_ConExterna['Descricao'];

frm_principal.ConexesExternas1.Add(NewItem);

dm_dados.Q_ConExterna.Next;

end;

end;

Conto com ajuda dos experts no assunto.

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



 


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



RES: [delphi-br] form´s transparentes ou SKINS ??

2006-11-28 Por tôpico Moked - Humberto \(Brazil\)
Tente procurar no google sobre forms redondos ou com bordas arredondadas..
 
=D



De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Luiz 
Escobar
Enviada em: segunda-feira, 27 de novembro de 2006 19:46
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] form´s transparentes ou SKINS ??



Olá ALLgente, 

Uso delphi 7 estou desenvolvento um aplicativo que gostaria de ter uma cara 
diferente...
então coloquei um Timage de fundo com uma imagem e tornei o form transparent, 
bom legal... mas nessa transparente as bordas arredondados não ficaram 
perfeitas, é a primeira vez que estou tentando usar isso, não sei se é a melhor 
forma, se parto para skins, alguem poderia me dar umas dicas sobre o assunto ?

Obrigado!

Luiz Escobar
Analista/Desenvolvedor:
WEB - HTML/JavaScript/PHP/MySQL 
WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase
DOS - Clipper/Assembler xBase
SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k
LINUX - LAZARUS/Kylix/MySQL;
http://www.megasistema.com.br http://www.megasistema.com.br 

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



 


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



RES: [delphi-br] Re: Usar ou não usar DBWa res? Eis a questão!

2006-11-28 Por tôpico Moked - Humberto \(Brazil\)
Eu não sou a favor do uso de DBWares, pois creio que o programador tem q ter 
completo controle dos dados que estão sendo enviados ao banco ou trazidos dele. 
Com DBWares vc fica restrito, não me sinto seguro de deixar esse tipo de 
transação nas mãos dos DBWares. Mas cada um com a sua. \o/



De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Alisson 
Yahoo
Enviada em: terça-feira, 28 de novembro de 2006 11:01
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Re: Usar ou não usar DBWares? Eis a questão!



Eu também já fui defensor de desenvolvimento sem componentes DbWare. Mas, como 
diria Raulzito, Prefiro ser essa metamorfose ambulante Agora que estou 
começando a desenvolver usando ClientDataset estou mudando de opinião. O que eu 
acho chato são alguns erros que são um pouco mais difíceis de achar, como por 
exemplo, erros ocasionado pela chamada de certos eventos. 

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



 


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



RES: [delphi-br] Erro ao acessar Fire Bird

2006-11-27 Por tôpico Moked - Humberto \(Brazil\)
Ué, mas eu estou passando o ProviderName para o fcdsCliente.
Como ficaria a procedure então?
 
Obrigado.



De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Fellipe 
Henrique
Enviada em: domingo, 26 de novembro de 2006 15:47
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Erro ao acessar Fire Bird



Isto quer dizer que algum CDS falta o DSP...

vi pelo seu código:
FcdsCliente.ProviderName := 'FdspCliente';
FdsCliente.DataSet

Ou você esqueceu de por no seu email, ou realmente voce esqueceu no seu
codigo de passar o ProviderName para o FdsCliente.

[]s

Em 26/11/06, technomoked [EMAIL PROTECTED] mailto:humberto%40moked.com.br  
escreveu:

 Bem, estou tentando acessar o banco de dados somente criando os
 objetos via código. porém estou tendo alguma dificuldade, pois apesar
 de parecer estar tudo correto, da o seguinte erro: Missing data
 provider or data package

 Segue abaixo a minha procedure:

 procedure TCliente.ConectarBD;
 begin

 //Conectando ao banco de dados.
 FsdsCliente := TSQLDataSet.Create(FsdsCliente);
 FcdsCliente := TClientDataSet.Create(FcdsCliente);
 FdspCliente := TDataSetProvider.Create(FdspCliente);
 FdsCliente := TDataSource.Create(FdsCliente);

 FsdsCliente.Datasource := FdsCliente;
 FsdsCliente.SQLConnection := dm.scsisgel;
 FsdsCliente.CommandText := 'SELECT * FROM Cliente ' +
 'WHERE fl_ativo = 1';

 FdspCliente.DataSet := FsdsCliente;
 FcdsCliente.ProviderName := 'FdspCliente';
 FdsCliente.DataSet := FcdsCliente;

 FsdsCliente.Active := True;
 FcdsCliente.Active := True;

 FcdsCliente.Close;
 FcdsCliente.Open;
 FcdsCliente.First;
 //

 end;

 Alguém ai pode me ajudar? Thks.

 


-- 
_
Fellipe Henrique
[EMAIL PROTECTED] mailto:fellipeh%40gmail.com 

Borland Developer Studio 2006 Certified

Venham até a borda, ele disse.
Eles disseram: Nós temos medo.
Venham até a borda, ele insistiu.
Eles foram, Ele os empurrou...
E eles voaram.
(Guillaume Apollinaire)

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



 


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



[delphi-br] RES: Erro no RES

2006-11-24 Por tôpico Moked - Humberto \(Brazil\)
Problema resolvido.
 
Existia duas declarações
 
{$R *.res}
 
Vlw.

 


De: Moked - Humberto (Brazil) 
Enviada em: sexta-feira, 24 de novembro de 2006 14:44
Para: 'delphi-br@yahoogrupos.com.br'
Assunto: Erro no RES



Olá, estou com o seguinte problema:
 
Do nada o meu Delphi começou a reclamar do arquivo .Res, dizendo q tem 
itens duplicados.
A msg que aparece é a seguinte:
 
Error] WARNING. Duplicate resource(s):
[Error]   Type  2 (BITMAP), ID ACOMPANHANTES:
[Error] File C:\Documents and Settings\thiago\Meus 
documentos\PGPR\PGPR - 1.6 - 3º Update (1.6.3)\Português\PGPR - Fontes\PGPR.res 
resource kept; file C:\Documents and Settings\thiago\Meus documentos\PGPR\PGPR 
- 1.6 - 3º Update (1.6.3)\Português\PGPR - Fontes\Icones.RES resource discarded.
 
 
Alguém sabe o pq disso?

Detalhe, ele faz isso para TODOS as imagens do .RES
 
Obrigado.



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




[delphi-br] Erro no RES

2006-11-24 Por tôpico Moked - Humberto \(Brazil\)
Olá, estou com o seguinte problema:
 
Do nada o meu Delphi começou a reclamar do arquivo .Res, dizendo q tem 
itens duplicados.
A msg que aparece é a seguinte:
 
Error] WARNING. Duplicate resource(s):
[Error]   Type  2 (BITMAP), ID ACOMPANHANTES:
[Error] File C:\Documents and Settings\thiago\Meus 
documentos\PGPR\PGPR - 1.6 - 3º Update (1.6.3)\Português\PGPR - Fontes\PGPR.res 
resource kept; file C:\Documents and Settings\thiago\Meus documentos\PGPR\PGPR 
- 1.6 - 3º Update (1.6.3)\Português\PGPR - Fontes\Icones.RES resource discarded.
 
 
Alguém sabe o pq disso?

Detalhe, ele faz isso para TODOS as imagens do .RES
 
Obrigado.



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




[delphi-br] Source Safe para Delpihi

2006-11-23 Por tôpico Moked - Humberto \(Brazil\)
Olá colegas, a algum tempo atrá s estive desenvolvendo em VB 6.0, o qual tinha 
um aplicativo chamado Visual Source Safe, que era usado para não deixar 2 
programadores mexerem no mesmo Form ao mesmo tempo, somente qnd um terminava de 
mexer e liberada o form o outro poderia alterar o mesmo.
 
Gostaria de saber se existe algum aplicativo que faça o mesmo que o Source Safe 
, só que no Delphi.
 
Obrigado.


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