[delphi-br] Re: Delphi 2007 - 3 Camadas - BSS

2008-09-24 Por tôpico fjogassa
Opa. e aí Luiz, blzinha? Obrigado pela resposta.

Seguinte, já tentei fazer a conexão sim sem o sharedConnection. Achoq
eu vou experimentar recriar o servidor para ver se vai funcionar. Não
sei, agora vai para tentativa e solução ou erro. rs

Abraços.

--- Em delphi-br@yahoogrupos.com.br, Luiz Carlos [EMAIL PROTECTED]
escreveu

 fjogassa escreveu:
 
  Boa tarde a todos.
  Estou desenvolvendo um sistema em três camadas no Delphi 2007
  utilizando o Borland Socket Server + DatasetProvider + ClientDataSet.
  Desenvolvi o servidor e o mesmo está funcionando, aparentemente,
  iniciei o socket server na máquina cliente (Windows Vista Ultimate
  64bits). Vou no BSS e configuro o servidor e dou um connected TRUE e
  conecta também. No cliente, juntamente com o socket coloquei um
  SharedConnection apontando para este socket. Agora vem o problema, na
  tela coloco um clientdataset e configuro o remoteserver e o
  providername e na hora que vou dar um actiev TRUE ele dá access
  violation no scktsvr.exe. alguém poderia me ajudar por favor.
 
  Obrigado.
 
  Abraços.
 
  GTalk: [EMAIL PROTECTED] mailto:fjogassa%40gmail.com
 
   
 Tentou fazer a conexão sem o ShareConnection?





Re: [delphi-br] Atualizar Tabelas do sistema

2008-09-24 Por tôpico Jackson Gomes - ToolsComps

Estava tentando atualizar as tabelas de sistema e não foi permitido.

Alguns bancos de dados tem comandos específicos para alterar o tipo das 
colunas, 
mas não me lembro de cabeça se o FB tem.

Se não houver, vai ter que ser na munheca mesmo: tabelas temporárias e etc e 
tal...

Jackson Gomes
ToolsComps - Controle de Usuários para Desenvolvedores CodeGear
Web Site: http://www.toolsandcomps.com
Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps
e-mail: [EMAIL PROTECTED]
Fone: 27 3389 1138 - 8811 0324

Devhost - Webhost para desenvolvedores Delphi
http://www.devhost.com.br
[EMAIL PROTECTED] 




[delphi-br] Ajuda

2008-09-24 Por tôpico BandaLemuel
Pessoal

Bom dia, existe algum componente que tem a mesma função do PageControl mas 
que não mostra os botoes ou abas ??? Preciso fazer um esquema como se fosse um 
programa de instalação... 

vlw..

Wesley

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



Res: [delphi-br] Ajuda

2008-09-24 Por tôpico Luciano Calenzani Simões
Coloca no FormShow;

   for vIndex := 0 to pgcInstalacao.PageCount - 1 do
  pgcInstalacao.Pages[vIndex].TabVisible := False;

 Luciano Calenzani Simões





- Mensagem original 
De: BandaLemuel [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 24 de Setembro de 2008 8:43:16
Assunto: [delphi-br] Ajuda


Pessoal

Bom dia, existe algum componente que tem a mesma função do PageControl mas que 
não mostra os botoes ou abas ??? Preciso fazer um esquema como se fosse um 
programa de instalação... 

vlw..

Wesley


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

2008-09-24 Por tôpico Rodinei (MSN)
Vc pode usar o pagecontrol, mas em cada tabsheet criado, coloque 
tabvisible=false

Abraços

Rodinei Amorim
Programador Delphi
[EMAIL PROTECTED]
(11) 8208-9503 - (11) 2024-2723

 
From: BandaLemuel 
Sent: Wednesday, September 24, 2008 8:43 AM
To: delphi-br@yahoogrupos.com.br 
Subject: [delphi-br] Ajuda


Pessoal

Bom dia, existe algum componente que tem a mesma função do PageControl mas que 
não mostra os botoes ou abas ??? Preciso fazer um esquema como se fosse um 
programa de instalação... 

vlw..

Wesley

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



 

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



[delphi-br] Ajuda com formulário tipo Wizard (era Ajuda)

2008-09-24 Por tôpico Willian Jhonnes Lara dos Santos
- Mensagem original -
Pessoal

Bom dia, existe algum componente que tem a mesma função do PageControl
mas que não mostra os botoes ou abas ??? Preciso fazer um esquema como
se fosse um programa de instalação... 

vlw..

Wesley
- Fim da mensagem original -

Wesley, na boa, o título da sua mensagem não ajuda nem um pouco. Tente ser mais 
específico já no título. Isso ajuda a quem vai responder.

Em relação à sua dúvida, eu costumo fazer wizards manipulando uma variável de 
índice e as proriedades dos objetos no form. Eu acho essa maneira mais simples. 
Porém, se alguém tiver alguma outra idéia...

[]'s

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---,___   


  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] Atualizar Tabelas do sistema

2008-09-24 Por tôpico Joao Morais
Jackson Gomes - ToolsComps wrote:
 Estava tentando atualizar as tabelas de sistema e não foi permitido.
 
 Alguns bancos de dados tem comandos específicos para alterar o tipo das 
 colunas, 
 mas não me lembro de cabeça se o FB tem.
 
 Se não houver, vai ter que ser na munheca mesmo: tabelas temporárias e etc e 
 tal...

Que por sinal é o método mais seguro. As tabelas de sistema não estão 
protegidas contra alterações atoa -- você pode corromper 
irreversivelmente seu banco de dados, ou pior, descobrir que ele está 
corrompido com seu sistema em produção.

A propósito, se a conversão nvarchar - varchar for simples, basta um 
alter table sem precisar usar campo temporário.

--
Joao Morais


[delphi-br] Re: Mais uma dúvida Importante !

2008-09-24 Por tôpico victor_scampini
Ok amigo, vou tentar eof...Mais você pode me explicar porque se 
possível ?...Obrigado desde já !

Abraço !



Re: [delphi-br] Ordenar registros DBGrid.

2008-09-24 Por tôpico Giovani
Bom dia,
Eu utilizo com uma Query.
Vc também pode utilizar com um ClientDataSet, adicionando ao index o 
field da tabela

procedure OrdenaGrid(grid: TwwdbGrid; Field : String);
var
 posicao : integer;
begin
  with (grid.DataSource.DataSet as TIBQuery) do
  begin
posicao := pos(' ORDER BY', UpperCase(SQL.Text));
if posicao = 0 then
  sql.Add(' ORDER BY ' + Field)
else
  if pos(' DESC', UpperCase(SQL.Text)) = 0 then
 sql.text := Copy(sql.text, 1, Posicao - 1) + ' ORDER BY ' + 
Field + ' DESC'
  else
 sql.text := Copy(sql.text, 1, Posicao - 1) + ' ORDER BY ' +Field;

open;
   
  end;
end;

Luiz Carlos escreveu:

 Coutinho - Yahoo escreveu:
 
  Luis Carlos.
 
  Não sei se os colegas que te responderam antes entenderam o que vc
  deseja. Eu entendi que você quer controlar, aleatoriamente, ou como der
  na telha, em determinado momento a ordem de inclusão de registros numa
  tabela...
 
  Bem, pelo visto você deseja alterar hoje de uma forma, amanhã, de 
 outra...
 
  Eu sugiro que vc coloque um campo numérico, com valor inteiro, e coloque
  um índice único neste campo... Este campo é o que vc deverá alterar,
  inserindo números sequencialmente para que sejam apresentados na ordem
  que vc deseja.
 
  Lembre, que o conteúdo do campo é o que ordena, e se for um campo
  string, o sgbd vai letra a letra, fazendo a indexação, então:
  Antonia, vem antes de Antonio, Jorge antes de José... e assim
  sucessivamente.
 
  Você pode ainda usar vários campos... por exemplo
  Se for gerar um view (ou pesquisa do access), crie um campo que analise
  o valor do campo, e te dê uma resposta lógica (boolean), e depois, use
  outro campo para ser a próxima chave do índice... e um terceiro e assim
  sucessivamente... aí sua imaginação é que vai dizer, mas ainda assim, eu
  usaria um sql para isso, pois você poderá manipulá-lo de forma mais
  controlada
 
  Sds
  Emanuel Coutinho
 
  Luiz Carlos escreveu:
  
   Olá a todos,
  
   Estou com o seguinte problema; tenho uma sequencia de 5 registros e
   gostaria de mudar a ordem deles, podendo escolher em que posição
   inseri-los, por exemplo:
   modo original:
   1 - registro 1
   2 - registro 2
   3 - registro 3
   4 - registro 4
   5 - registro 5
  
   resultado desejado:
   1 - registro 2
   2 - registro 3
   3 - registro 4
   4 - registro 5
   5 - registro 1
  
   isso de forma aleatório,
  
   alguma idéia?
  
 
 
  Mensagens neste tópico
  
 http://br.groups.yahoo.com/group/delphi-br/message/192092;_ylc=X3oDMTM4dWQ3aGVuBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BG1zZ0lkAzE5MjEzMgRzZWMDZnRyBHNsawN2dHBjBHN0aW1lAzEyMjIxODE5MDkEdHBjSWQDMTkyMDky
  
 http://br.groups.yahoo.com/group/delphi-br/message/192092;_ylc=X3oDMTM4dWQ3aGVuBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BG1zZ0lkAzE5MjEzMgRzZWMDZnRyBHNsawN2dHBjBHN0aW1lAzEyMjIxODE5MDkEdHBjSWQDMTkyMDky
  

  (4) Responder (através da web)
  
 http://br.groups.yahoo.com/group/delphi-br/post;_ylc=X3oDMTJyNzFqZGg5BF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BG1zZ0lkAzE5MjEzMgRzZWMDZnRyBHNsawNycGx5BHN0aW1lAzEyMjIxODE5MDk-?act=replymessageNum=192132
  
 http://br.groups.yahoo.com/group/delphi-br/post;_ylc=X3oDMTJyNzFqZGg5BF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BG1zZ0lkAzE5MjEzMgRzZWMDZnRyBHNsawNycGx5BHN0aW1lAzEyMjIxODE5MDk-?act=replymessageNum=192132
  

  | Adicionar um novo tópico
  
 http://br.groups.yahoo.com/group/delphi-br/post;_ylc=X3oDMTJldXI4dm5kBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA250cGMEc3RpbWUDMTIyMjE4MTkwOQ--
  
 http://br.groups.yahoo.com/group/delphi-br/post;_ylc=X3oDMTJldXI4dm5kBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA250cGMEc3RpbWUDMTIyMjE4MTkwOQ--
  

 
  Mensagens
  
 http://br.groups.yahoo.com/group/delphi-br/messages;_ylc=X3oDMTJlbHFjaGtvBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA21zZ3MEc3RpbWUDMTIyMjE4MTkwOQ--
  
 http://br.groups.yahoo.com/group/delphi-br/messages;_ylc=X3oDMTJlbHFjaGtvBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA21zZ3MEc3RpbWUDMTIyMjE4MTkwOQ--
  

  | Arquivos
  
 http://br.groups.yahoo.com/group/delphi-br/files;_ylc=X3oDMTJmcDh0a2tpBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA2ZpbGVzBHN0aW1lAzEyMjIxODE5MDk-
  
 http://br.groups.yahoo.com/group/delphi-br/files;_ylc=X3oDMTJmcDh0a2tpBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA2ZpbGVzBHN0aW1lAzEyMjIxODE5MDk-
  

  | Fotos
  
 http://br.groups.yahoo.com/group/delphi-br/photos;_ylc=X3oDMTJlaWJyNmdmBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA3Bob3QEc3RpbWUDMTIyMjE4MTkwOQ--
  
 http://br.groups.yahoo.com/group/delphi-br/photos;_ylc=X3oDMTJlaWJyNmdmBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA3Bob3QEc3RpbWUDMTIyMjE4MTkwOQ--
  

  | Links
  
 

[delphi-br] Select Set07 a Jan08

2008-09-24 Por tôpico Anderson Furtilho
Olá amigos da lista!

Preciso fazer um select onde o usuário digita Setembro 2007 a Dezembro de 2008.
Minha tabela esta assim

MesAno
SETEMBRO2007
OUTUBRO2007
NOVEMBRO2007
DEZEMBRO2007
JANEIRO2008
FEVEREIRO2008
MARÇO2008
ABRIL2008
MAIO2008


Então se ele colocar Set2007 a Fev2008 tem que vir este intervalo..


Eu tenho um recurso que ao passar SETEMBRO ele me retorna o numero equivalente 
(9).

Ja tive a seguinte dica

SELECT 
T.*
FROM (
SELECT
(CAST(RETORNA_MES(MES) || ANO) AS INTEGER) MES_ANO
FROM MINHATABELA
 ) T
WHERE T.MES_ANO BETWEEN :MES_I AND :MES_F

Mas quando passo 20079 a 20081 só vem JANEIRO/2008...

Alguém ja passou por isso ?

Qualquer dica ficarei agradecido
Anderson


  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


Re: [delphi-br] Ajuda

2008-09-24 Por tôpico Onjahyr - GMAIL
E aí Wesley, blz.

Este mesmo componente, no Object Inspector tem a propriedade TABVISIBLE, 
se vc coloca como False, a mesma não aparece. Claro, você precisa criar 
primeiro as TAB (New Tab), depois você clica para selecionar a TAB e vai 
no Object Inspector e localiza a propriedade e coloca False, a mesma 
imediatamente desaparece, e para acessar elas, via IDE, no Object 
Inspector, localize a propriedade... não me lembro, mas é a primeira que 
aparece no topo! Já via código (para acessar) é:

PageControl1.ActivePage := TabSheed1;
PageControl1.ActivePage := TabSheed2;
PageControl1.ActivePage := ...;

Blz.


Onjahyr



BandaLemuel escreveu:

 Pessoal

 Bom dia, existe algum componente que tem a mesma função do PageControl 
 mas que não mostra os botoes ou abas ??? Preciso fazer um esquema como 
 se fosse um programa de instalação...

 vlw..

 Wesley

   


Re: [delphi-br] Select Set07 a Jan08

2008-09-24 Por tôpico Jackson Gomes - ToolsComps

 Preciso fazer um select onde o usuário digita Setembro 2007 a Dezembro de 
 2008.
 Mas quando passo 20079 a 20081 só vem JANEIRO/2008...

mas vc usa Mes/Ano e está passando Ano/Mês. Não seria isso?

 Alguém ja passou por isso ?

Tb tive uma situação parecida, aonde fiz a junção do ano com o mês, criando um 
novo valor: 2007/09 vira 200709, daí fica fácil distinguir pelo Ano/Mes.

begin
  for
select tf.codigo_fipe, tf.ano_modelo, tf.ano, tf.mes_ref, tf.valor
from tabela_fipe tf
where
  tf.ano * 100 + tf.mes_ref =
   (select first 1 tfi.ano*100 + tfi.mes_ref
from tabela_fipe tfi
where tfi.codigo_fipe = tf.codigo_fipe and
  tfi.ano_modelo  = tf.ano_modelo and
  (tfi.ano*100 + tfi.mes_ref) = (:p_ano*100 + :p_mes_ref)
order by 1 desc
)
order by tf.ano, tf.mes_ref
  into
:CODIGO_FIPE,
:ANO_MODELO,
:ANO,
:MES_REF,
:VALOR
  do

  suspend;
end

Jackson Gomes
ToolsComps - Controle de Usuários para Desenvolvedores CodeGear
Web Site: http://www.toolsandcomps.com
Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps
e-mail: [EMAIL PROTECTED]
Fone: 27 3389 1138 - 8811 0324

Devhost - Webhost para desenvolvedores Delphi
http://www.devhost.com.br
[EMAIL PROTECTED] 




Re: [delphi-br] Re: Mais uma dúvida Importante !

2008-09-24 Por tôpico Nicolas
sem muito tecniquês, é o seguinte:

O  last é um comando, ou seja, você está mandando se posicionar no ÚLTIMO 
registro

O eof testa se o registro é o último da tabela.

Alexandre


  - Original Message - 
  From: victor_scampini 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, September 24, 2008 7:33 AM
  Subject: [delphi-br] Re: Mais uma dúvida Importante !


  Ok amigo, vou tentar eof...Mais você pode me explicar porque se 
  possível ?...Obrigado desde já !

  Abraço !



   


--



  No virus found in this incoming message.
  Checked by AVG - http://www.avg.com 
  Version: 8.0.169 / Virus Database: 270.7.1/1687 - Release Date: 23/9/2008 
18:32


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



Re: [delphi-br] Re: Mais uma dúvida Important e !

2008-09-24 Por tôpico Onjahyr - GMAIL
Oi, não sou bom em Banco de Dados não, mas o EOF significa o final dos 
dados do seu banco e BOF é o início, ou seja:

/while/ not DataSet./Eof/ do
 begin
// Se chegou até aqui é porque ainda há registros e vc poderá ir para o 
próximo com o NEXT
end;

/while/ not DataSet./Bof/ do
 begin
// Se passar do begin é porque ainda existem registros e você pode usar 
a função PRIOR para ir para o anterior até chegar ao primeiro registro.
end;


Onjahyr


victor_scampini escreveu:

 Ok amigo, vou tentar eof...Mais você pode me explicar porque se
 possível ?...Obrigado desde já !

 Abraço !


  


RES: [delphi-br] Re: Mais uma dúvida Importante !

2008-09-24 Por tôpico Vitor Redes
if not TABELA.Eof then
TABELA.Next( )
else
ShowMessage( 'FIM da Tabela )


  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Nicolas
Enviada em: quarta-feira, 24 de setembro de 2008 09:33
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Re: Mais uma dúvida Importante !



sem muito tecniquês, é o seguinte:

O last é um comando, ou seja, você está mandando se posicionar no
ÚLTIMO registro

O eof testa se o registro é o último da tabela.

Alexandre

- Original Message - 
From: victor_scampini 
To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br 
Sent: Wednesday, September 24, 2008 7:33 AM
Subject: [delphi-br] Re: Mais uma dúvida Importante !

Ok amigo, vou tentar eof...Mais você pode me explicar porque se 
possível ?...Obrigado desde já !

Abraço !

--

No virus found in this incoming message.
Checked by AVG - http://www.avg. http://www.avg.com com 
Version: 8.0.169 / Virus Database: 270.7.1/1687 - Release Date: 23/9/2008
18:32

[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

2008-09-24 Por tôpico BandaLemuel
Obrigado... Rodinei e Luciano... Eu não sabia desta propriedade.. 
rsrrs

Wesley


From: Rodinei (MSN) 
Sent: Wednesday, September 24, 2008 8:47 AM
To: delphi-br@yahoogrupos.com.br 
Subject: Re: [delphi-br] Ajuda


Vc pode usar o pagecontrol, mas em cada tabsheet criado, coloque 
tabvisible=false

Abraços

Rodinei Amorim
Programador Delphi
[EMAIL PROTECTED]
(11) 8208-9503 - (11) 2024-2723

From: BandaLemuel 
Sent: Wednesday, September 24, 2008 8:43 AM
To: delphi-br@yahoogrupos.com.br 
Subject: [delphi-br] Ajuda

Pessoal

Bom dia, existe algum componente que tem a mesma função do PageControl mas que 
não mostra os botoes ou abas ??? Preciso fazer um esquema como se fosse um 
programa de instalação... 

vlw..

Wesley

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

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



 

__ Information from ESET NOD32 Antivirus, version of virus signature 
database 3466 (20080923) __

The message was checked by ESET NOD32 Antivirus.

http://www.eset.com


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



[delphi-br] Duvida sobre 3 camadas.

2008-09-24 Por tôpico TI - METALURGICA JANO
Queria sabe de alguém que já desenvolveu em 3 camadas como fica o
desempenho.

 

Por exemplo:

Alugo um servidor dedicando na locaweb e coloco nele a aplicação servidora e
a base de dados.

 

Na empresa existe uma conexão velox para de 1 mega compartilhada com 40
pessoas.

 

Teria um bom desempenho na comunicação entre esse aplicativos clientes e a
aplicação servidora contando

Com uma conexão apenas de 1 mega?

 

Se alguém tem uma situação parecida por favor comente.

 



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



Re: [delphi-br] Atualizar Tabelas do sistema

2008-09-24 Por tôpico Guilherme Augusto
Bom dia João e Jackson,

Quanto à atualização das tabelas do sistema, tem comandos para alterar sim.

Existem duas formas para isso:

1) usando diretamente as tabelas do FB. Todas elas começam com RDB$alguma 
coisa... heheheh. Mais para trabalhar com elas, muito cuidado. Apesar dele não 
permitir alterações inválidas, melhor estudar bem elas primeiro para depois 
alterá-las.
Obs: Tenho alguns exemplos em casa... Aí mais tarde posto aqui porque agora 
estou no serviço...

2) Como disse o João é usando Alter Table... Que, na verdade, internamente irá 
fazer a alteração acima dentro do banco. Se precisar de algum exemplo, posta aí 
a necessidade ou manda em PVT que tento te ajudar...

Abraços,

Guilherme Augusto

--- Em qua, 24/9/08, Joao Morais [EMAIL PROTECTED] escreveu:
De: Joao Morais [EMAIL PROTECTED]
Assunto: Re: [delphi-br] Atualizar Tabelas do sistema
Para: delphi-br@yahoogrupos.com.br
Data: Quarta-feira, 24 de Setembro de 2008, 8:51











Jackson Gomes - ToolsComps wrote:

 Estava tentando atualizar as tabelas de sistema e não foi permitido.

 

 Alguns bancos de dados tem comandos específicos para alterar o tipo das 
 colunas, 

 mas não me lembro de cabeça se o FB tem.

 

 Se não houver, vai ter que ser na munheca mesmo: tabelas temporárias e etc e 

 tal...



Que por sinal é o método mais seguro. As tabelas de sistema não estão 

protegidas contra alterações atoa -- você pode corromper 

irreversivelmente seu banco de dados, ou pior, descobrir que ele está 

corrompido com seu sistema em produção.



A propósito, se a conversão nvarchar - varchar for simples, basta um 

alter table sem precisar usar campo temporário.



--

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]



Res: [delphi-br] Duvida sobre 3 camadas.

2008-09-24 Por tôpico Luciano Calenzani Simões
Posto sua dúvida em [EMAIL PROTECTED], grupo exclusivo sobre n-tier em Delphi.

 Luciano Calenzani Simões





- Mensagem original 
De: TI - METALURGICA JANO [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 24 de Setembro de 2008 10:12:13
Assunto: [delphi-br] Duvida sobre 3 camadas.


Queria sabe de alguém que já desenvolveu em 3 camadas como fica o
desempenho.

Por exemplo:

Alugo um servidor dedicando na locaweb e coloco nele a aplicação servidora e
a base de dados.

Na empresa existe uma conexão velox para de 1 mega compartilhada com 40
pessoas.

Teria um bom desempenho na comunicação entre esse aplicativos clientes e a
aplicação servidora contando

Com uma conexão apenas de 1 mega?

Se alguém tem uma situação parecida por favor comente.


  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] Atualizar Tabelas do sistema

2008-09-24 Por tôpico Joao Morais
Guilherme Augusto wrote:
 2) Como disse o João é usando Alter Table... Que, na verdade,
 internamente irá fazer a alteração acima dentro do banco.

... e o mais importante - sem deixar o usuário corromper o banco.

--
Joao Morais


[delphi-br] Invalid datatype - Delphi 2007

2008-09-24 Por tôpico Edson Marco
Olá pessoal!

Estou migrando o projeto do D2005 para o D2007... putz! Que dor de cabeça!

Para ajudar o projeto utiliza DBExpress e Firebird, então já sabem do
problema do driver. Eu consegui resolver o problema dos campos blob fazendo
um downgrade do driver dbxint30.dll para o do D2006. Funcionou
perfeitamente.

Agora, estou com um problemão com o SQLDataSet. Malditos DBX.

Ele está configurado como ctStoredProc, e após passar os parametros, dou um
ExecSQL; Ai a mensagem de erro: Invalid command Data type unknown.

Tentei com os parametros definidos na lista de parametros, sem definir...
voltei o driver para o do D2007 e nada! Mesmo erro.

Valew!

-- 
/*
* Edson Marco Ferrari Junior
* [EMAIL PROTECTED]
* http://www.edmafer.com.br
*/


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



[delphi-br] Invalid datatype - Delphi 2007

2008-09-24 Por tôpico Edson Marco Ferrari Junior
Olá pessoal!

Estou migrando o projeto do D2005 para o D2007... putz! Que dor de cabeça!

Para ajudar o projeto utiliza DBExpress e Firebird, então já sabem do
problema do driver. Eu consegui resolver o problema dos campos blob fazendo
um downgrade do driver dbxint30.dll para o do D2006. Funcionou
perfeitamente.

Agora, estou com um problemão com o SQLDataSet. Malditos DBX.

Ele está configurado como ctStoredProc, e após passar os parametros, dou um
ExecSQL; Ai a mensagem de erro: Invalid command Data type unknown.

Tentei com os parametros definidos na lista de parametros, sem definir...
voltei o driver para o do D2007 e nada! Mesmo erro.

Valew!

-- 
/*
* Edson Marco Ferrari Junior
* [EMAIL PROTECTED]
* http://www.edmafer.com.br
*/


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



[delphi-br] Interface para listagem e cadastro/alteração de dados do DB de forma genérica

2008-09-24 Por tôpico Yoshio
Olá pessoal.
Acho que o subject já diz muito. Meu problema maior é bolar um jeito de
tornar genérica a forma de cadastrar e alterar os dados das tabelas, pois
para listar os dados umas Views no postgres com os campos nomeados, um
DBGrid e um select * from nomedaview no dataset já resolvem o problema.
Tentei criar um form que criasse os componentes automaticamente de acordo
com os campos mas não deu muito certo, principalmente porque estou sem muito
tempo para desenvolver.
Pensei em alterar os dados  no DBGrid mesmo mas gerou muitos problemas nas
views e campos de chaves estrangeiras. E também tinha o problema que alguns
campos como os campos 'nome' e 'sobrenome' que tinham que estar separados na
tabela, mas juntos na hora de exibir no dbgrid e separados novamente para
alterar.
Alguém já passou por isso, ou melhor, alguém tem alguma solução?

Também estou atrás de material sobre construção de interfaces ou boas
práticas de programação cliente/servidor.

Obrigado.


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



RES: [delphi-br] Re: Mais uma dúvida Importante !

2008-09-24 Por tôpico Alessandro Alves - Yahoo
Victor,

 

Eof = End-of-file

 

Portanto, se não é o fim do arquivo Next (vai pro próximo registro).

 

Abraço!

 

 

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de victor_scampini
Enviada em: quarta-feira, 24 de setembro de 2008 07:34
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Re: Mais uma dúvida Importante !

 

Ok amigo, vou tentar eof...Mais você pode me explicar porque se 
possível ?...Obrigado desde já !

Abraço !

 



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



[delphi-br] Ajuda com select

2008-09-24 Por tôpico Ricardo
Pesssoal da lista boa tarde 
 
Preciso de uma ajuda em uma consulta 
A situação é a seguinte 
 
na minha  tabela ha  os campos nome telefone tipo_ligaçao
 
Onde o tipo de ligação pode ser particular ou serviço
 
Como posso fazer para que ele conte quantas ligações cada pessoa fez, dentro
disto contando os tipos separados ,agrupando por nome da pessoa ? Meio chato
né 
 
Ficaria mais ou menos assim
 
 
Nometotal de ligações serviço  particular 
Ricardo   15   10  5   
Andrea   2  20
Andressa3 0 3
 
Como posso fazer isto?
desde ja agradeço a  ajuda 
 
Obrigado 
 

OBS : pensei em criar dois campo de tipo de ligação ai acho que funciona 
 
Ricado de Abreu


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



Res: [delphi-br] Ajuda com select

2008-09-24 Por tôpico Luciano Calenzani Simões
No Sybase dá para fazer assim:


select nome, count(nome), 
(select count(telefone) from ligacao as lig where nome = ligacao.nome and 
tipo_ligacao = 'P' ) as Pessoal,
(select count(telefone) from ligacao as lig where nome = ligacao.nome and 
tipo_ligacao = 'S' ) as Servico
from ligacao
group by nome

 Luciano Calenzani Simões





- Mensagem original 
De: Ricardo  [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 24 de Setembro de 2008 13:29:28
Assunto: [delphi-br] Ajuda com select


Pesssoal da lista boa tarde 

Preciso de uma ajuda em uma consulta 
A situação é a seguinte 

na minha  tabela ha  os campos nome telefone tipo_ligaçao

Onde o tipo de ligação pode ser particular ou serviço

Como posso fazer para que ele conte quantas ligações cada pessoa fez, dentro
disto contando os tipos separados ,agrupando por nome da pessoa ? Meio chato
né 

Ficaria mais ou menos assim


Nometotal de ligações serviço  particular 
Ricardo   15   10  5 
Andrea   2  20
Andressa3 0 3

Como posso fazer isto?
desde ja agradeço a  ajuda 

Obrigado 


OBS : pensei em criar dois campo de tipo de ligação ai acho que funciona 

Ricado de Abreu


  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] Vagas para desenvolvedores e analistas Delphi

2008-09-24 Por tôpico danieljosepdb
Estagiário de TI
Desenvolvimento
Estagio para alunos de boa formação com solitos conhecimentos de C,
C+, SO (Windows), Banco de dados.
http://www.progbr.com/oferta/1266

Analista Programador Delphi
Desenvolvimento
A PL Informática, empresa de significativa representatividade no
segmento de Tecnologia da Informação, busca profissionais no seguinte
perfil: Para alocação em projeto Experiência mínima de 3 anos na
ferramenta Delphi e banco de dados Oracle; Conhecimentos em C# / .NET;
Local de trabalho:...
http://www.progbr.com/oferta/1261

Programador Delphi Pleno
Desenvolvimento
Empresa de Desenvolvimento de Sistemas a mais de 15 anos no setor
necessita de programador Delphi Pleno, para desenvolvimento de
projetos Fiscais e Contábeis. Salário a Combinar.
http://www.progbr.com/oferta/1241

Programador Delphi 2007
Desenvolvimento
Programador Delphi 2007 - Firebird - Delphi.net
http://www.progbr.com/oferta/1239

Programador PHP
Desenvolvimento
Empresa seleciona profissional com excelentes conhecimentos em PHP +
MySQL, XML, CSS, Tableless. Necessário também conhecimento em
modelagem de dados. Residir próximo à Barra da Tijuca. Conhecimentos
em:  PHP;  MySQL; O conhecimento de outra lingüagem de programação,
principalmente Delphi, é um ...
http://www.progbr.com/oferta/1226

Desenvolvedor Delphi
Desenvolvimento
Objetivo: Atuar no desenvolvimento de sistemas customizados em
linguagem Delphi Pré requisitos obrigatórios: • Experiência comprovada
em banco de dados SQL – MYSQL • Conhecimento e trabalhos desenvolvidos
na linguagem de programação Delphi; Competências necessárias: •
Criatividade • Responsabilida...
http://www.progbr.com/oferta/1183

Desenvolvedor de Aplicação
Desenvolvimento
Objetivo: Atuar no desenvolvimento de aplicações personalizadas,
re-engenharia e migração manutenção de sistemas Pré Requisito: •
Domínio de Lógica de programação • Conhecimento de linguagem de
programação orientada a objetos • Conhecimento de Linguagem SQL •
Desejável conhecimento da Linguag...
http://www.progbr.com/oferta/1181



[delphi-br] Re: Ajuda com select

2008-09-24 Por tôpico mauriciojrly
Select count(*) from tabela where nome='fulano' order by nome

se vc criar um campo exmp. n_ligacao fica mais facil.
select sum(n_ligacao) from tabela group by nome

 na minha  tabela ha  os campos nome telefone tipo_ligaçao




[delphi-br] Probleminha em um TQUERY + TUpdateSQL + DBFs..

2008-09-24 Por tôpico Luiz ESCobar
Gente faz muto tempo que não mexe com isso, e acho que deu 
pane
To tendo que mudar umas coisinha bem altigas aqui... porem ta me dando um erro 
q ta meio assim perdido...
(é duro fica velho viu... vai lembra que jeito... k) quem sabe 
escrevendo este email e depois de enviar clarei mais as coisas...
Seguinte... Tenho um :
query.sql := SELECT  *
  FROM  'ouv_sort.dbf' AS sor, 'ouvinte.dbf' AS ouv 
WHERE  (sor.ts_cod_cad = :premio)  AND  (sor.ouv_ndoc=ouv.num_doc) 
ORDER BY  ouv.ts_sorteio;   //  até aqui 100%
Onde as propriedades estão assim:
AutoCalcFields := true;
AutoRefresh := true;
CachedUpdate := true;
Constraints := true;
ObjectView := true;
ParamCheck := true;
RequestLive := true;
UniDirectional := FALSE;
UpdateMode := upWhereKeyOnly
UpdateObject := UpdateSQL_sorteio;

ai em um button tenho UpdateSQL.DELETE := delete from 'ouv_sort.dbf' where  
TS_ID = :OLD_TS_ID; // aqui que a porca torçe o rabo...
AH o campo TS_ID se chamasa TIMESTAMP, claro que tive q mudar o nome no DBF 
e depois fui no TQuery  FIELD.EDITOR e troquei tudo que achei de TIMESTAMP para 
TS_ID ou seja...
DisplayLabel := TS_ID
FieldName := TS_ID
Name := strngfld_sorteioTS_ID
Origin := LOCALDB.ouv_sort.DBF.TS_ID
ProviderFlags := [ pfInUpdate, pfInWhere, pfInKey ]

quando mando executar :
   dm1.UpdateSQL_sorteio.DeleteSQL.Text := 'delete from ouv_sort.dbf  where 
TS_ID = :OLD_TS_ID';
   dm1.UpdateSQL_sorteio.ExecSQL( ukDelete );
   dm1.qry_sorteio.Refresh;

Ele me fala que OLD_TS_ID é de tipo desconhecido: Field 'OLD_TS_ID' is of an 
unknown type.

POREM está query ai acima, foi gerada pelo proprio UpdateSQL.EDITOR

O que eu to esquecendo ?

[]s
 
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.0 Intl. (Rev. 9175) 
xHarbour Compile build 1.1.0 (Simplex)
Harbour MiniGUI 1.5 Extended Edition (Build 55) - 2008.08.26
---

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



Res: [delphi-br] Ajuda com select

2008-09-24 Por tôpico Willian Jhonnes Lara dos Santos
Ricardo...

SQL padronizada ANSI-92:

  select nome,
 count(tipo_ligacao) as contagem,
 case when tipo_ligacao = 'P' then 'Particular'
  when tipo_ligacao = 'S' then 'Serviço'
 end as tipo_ligacao,
from ligacoes
group by nome,
 tipo_ligacao

[]'s

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



- Mensagem original 
De: Ricardo  [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 24 de Setembro de 2008 13:29:28
Assunto: [delphi-br] Ajuda com select


Pesssoal da lista boa tarde 

Preciso de uma ajuda em uma consulta 
A situação é a seguinte 

na minha  tabela ha  os campos nome telefone tipo_ligaçao

Onde o tipo de ligação pode ser particular ou serviço

Como posso fazer para que ele conte quantas ligações cada pessoa fez, dentro
disto contando os tipos separados ,agrupando por nome da pessoa ? Meio chato
né 

Ficaria mais ou menos assim


Nometotal de ligações serviço  particular 
Ricardo   15   10  5 
Andrea   2  20
Andressa3 0 3

Como posso fazer isto?
desde ja agradeço a  ajuda 

Obrigado 


OBS : pensei em criar dois campo de tipo de ligação ai acho que funciona 

Ricado de Abreu

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



Res: [delphi-br] Ajuda com select

2008-09-24 Por tôpico Luciano Calenzani Simões
Ele quer contar o número total de ligações, total particular e total serviço.

Dessa forma que você passou, vai gerar dois registro para cada tipo de ligação.

 Luciano Calenzani Simões





- Mensagem original 
De: Willian Jhonnes Lara dos Santos [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 24 de Setembro de 2008 14:57:19
Assunto: Res: [delphi-br] Ajuda com select


Ricardo...

SQL padronizada ANSI-92:

select nome,
count(tipo_ligacao) as contagem,
case when tipo_ligacao = 'P' then 'Particular'
when tipo_ligacao = 'S' then 'Serviço'
end as tipo_ligacao,
from ligacoes
group by nome,
tipo_ligacao

[]'s


  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] Criar componente de classe indefinida/dinâmica

2008-09-24 Por tôpico Guilherme Augusto
Boa tarde galera...

Preciso da ajuda de vocês para uma solução dos meus estudos para a prova de 
certificação do Delphi... É que estou estudando herança dos componentes... 
Querendo ver todos os seus ancestrais até TObject.

Aí, consegui com a ajuda da net achar algo parecido com o que eu queria... Só 
que ele faz apenas com o Sender do TButton que estou usando para clicar e 
executar a busca dos ancestrais...

Agora, o que eu preciso é fazer essa mesma coisa não apenas com Sender ou com 
algum componente da tela. Quero digitar uma classe qualquer num Edit e ele me 
retornar esse ancestral.. Só que não estou conseguindo fazer isso de jeito 
nenhum... Segue o código abaixo...

procedure TForm1.BtClassesClick(Sender: TObject);
Var
    ClassRef : TClass;
    Obj  : TControl;
begin
   ListaClasses.Clear;

// Aqui abaixo que está o problema...
   Obj  := TLabel.Create(Self);

// Porque mesmo que eu faça, dá um Access Violation
   Obj  := TControl(EdClasse.Text).Create(Self);
   ClassRef := Obj.ClassType;

   While ClassRef  Nil Do
 Begin
 ListaClasses.Items.Add(ClassRef.ClassName);

 ClassRef := ClassRef.ClassParent;
   End;

   FreeAndNil(Obj);
end;

Conto com a ajuda de vocês para facilitar os meus estudos pois é material que 
não acaba mais...

Falow



  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] Criar componente de classe indefinida/din âmica

2008-09-24 Por tôpico Rubem Nascimento da Rocha

Leia a respeito das funções GetClass(), FindClass() e RegisterClass() no help 
do Delphi e vc vai entender melhor pq seu codigo nao funciona.

Sds.



To: [EMAIL PROTECTED]; delphi-br@yahoogrupos.com.br; [EMAIL PROTECTED]
From: [EMAIL PROTECTED]
Date: Wed, 24 Sep 2008 11:09:49 -0700
Subject: [NDDV] Criar componente de classe indefinida/dinâmica

Boa tarde galera...

Preciso da ajuda de vocês para uma solução dos meus estudos para a prova de 
certificação do Delphi... É que estou estudando herança dos componentes... 
Querendo ver todos os seus ancestrais até TObject.

Aí, consegui com a ajuda da net achar algo parecido com o que eu queria... Só 
que ele faz apenas com o Sender do TButton que estou usando para clicar e 
executar a busca dos ancestrais...

Agora, o que eu preciso é fazer essa mesma coisa não apenas com Sender ou com 
algum componente da tela. Quero digitar uma classe qualquer num Edit e ele me 
retornar esse ancestral.. Só que não estou conseguindo fazer isso de jeito 
nenhum... Segue o código abaixo...

procedure TForm1.BtClassesClick(Sender: TObject);
Var
ClassRef : TClass;
Obj  : TControl;
begin
   ListaClasses.Clear;

// Aqui abaixo que está o problema...
   Obj  := TLabel.Create(Self);

// Porque mesmo que eu faça, dá um Access Violation
   Obj  := TControl(EdClasse.Text).Create(Self);
   ClassRef := Obj.ClassType;

   While ClassRef  Nil Do
 Begin
 ListaClasses.Items.Add(ClassRef.ClassName);

 ClassRef := ClassRef.ClassParent;
   End;

   FreeAndNil(Obj);
end;

Conto com a ajuda de vocês para facilitar os meus estudos pois é material que 
não acaba mais...

Falow

_
Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas 
e muito mais no MSN Video!
http://video.msn.com/?mkt=pt-br

RES: [delphi-br] Re: Ajuda com select

2008-09-24 Por tôpico Ricardo
 
Acho melehora criar os campo tipo

  pois posso contar independente 
Obrigado pela ajuda  
  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de mauriciojrly
Enviada em: quarta-feira, 24 de setembro de 2008 14:32
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Re: Ajuda com select



Select count(*) from tabela where nome='fulano' order by nome

se vc criar um campo exmp. n_ligacao fica mais facil.
select sum(n_ligacao) from tabela group by nome

 na minha tabela ha os campos nome telefone tipo_ligaçao



 


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



RES: [delphi-br] Ajuda com select

2008-09-24 Por tôpico Ricardo
Funiona com Mysql ? Vou tentar 
 
 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Willian Jhonnes Lara dos Santos
Enviada em: quarta-feira, 24 de setembro de 2008 14:57
Para: delphi-br@yahoogrupos.com.br
Assunto: Res: [delphi-br] Ajuda com select



Ricardo...

SQL padronizada ANSI-92:

select nome,
count(tipo_ligacao) as contagem,
case when tipo_ligacao = 'P' then 'Particular'
when tipo_ligacao = 'S' then 'Serviço'
end as tipo_ligacao,
from ligacoes
group by nome,
tipo_ligacao

[]'s

---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
willianjhonnes@ mailto:willianjhonnes%40yahoo.com.br yahoo.com.br
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---

- Mensagem original 
De: Ricardo ricardoe4in@ mailto:ricardoe4in%40yahoo.com.br yahoo.com.br
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Enviadas: Quarta-feira, 24 de Setembro de 2008 13:29:28
Assunto: [delphi-br] Ajuda com select

Pesssoal da lista boa tarde 

Preciso de uma ajuda em uma consulta 
A situação é a seguinte 

na minha tabela ha os campos nome telefone tipo_ligaçao

Onde o tipo de ligação pode ser particular ou serviço

Como posso fazer para que ele conte quantas ligações cada pessoa fez, dentro
disto contando os tipos separados ,agrupando por nome da pessoa ? Meio chato
né 

Ficaria mais ou menos assim

Nome total de ligações serviço particular 
Ricardo 15 10 5 
Andrea 2 2 0
Andressa 3 0 3

Como posso fazer isto?
desde ja agradeço a ajuda 

Obrigado 

OBS : pensei em criar dois campo de tipo de ligação ai acho que funciona 

Ricado de Abreu

[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. http://br.new.mail.yahoo.com/addresses
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]



RES: [delphi-br] Ajuda com select

2008-09-24 Por tôpico Ricardo
eu uso mysql  funciona ? 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Luciano Calenzani Simões
Enviada em: quarta-feira, 24 de setembro de 2008 14:21
Para: delphi-br@yahoogrupos.com.br
Assunto: Res: [delphi-br] Ajuda com select



No Sybase dá para fazer assim:

select nome, count(nome), 
(select count(telefone) from ligacao as lig where nome = ligacao.nome and
tipo_ligacao = 'P' ) as Pessoal,
(select count(telefone) from ligacao as lig where nome = ligacao.nome and
tipo_ligacao = 'S' ) as Servico
from ligacao
group by nome

Luciano Calenzani Simões

- Mensagem original 
De: Ricardo ricardoe4in@ mailto:ricardoe4in%40yahoo.com.br yahoo.com.br
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Enviadas: Quarta-feira, 24 de Setembro de 2008 13:29:28
Assunto: [delphi-br] Ajuda com select

Pesssoal da lista boa tarde 

Preciso de uma ajuda em uma consulta 
A situação é a seguinte 

na minha tabela ha os campos nome telefone tipo_ligaçao

Onde o tipo de ligação pode ser particular ou serviço

Como posso fazer para que ele conte quantas ligações cada pessoa fez, dentro
disto contando os tipos separados ,agrupando por nome da pessoa ? Meio chato
né 

Ficaria mais ou menos assim

Nome total de ligações serviço particular 
Ricardo 15 10 5 
Andrea 2 2 0
Andressa 3 0 3

Como posso fazer isto?
desde ja agradeço a ajuda 

Obrigado 

OBS : pensei em criar dois campo de tipo de ligação ai acho que funciona 

Ricado de Abreu 

Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
cara @ymail.com ou @rocketmail.com.
http://br.new. http://br.new.mail.yahoo.com/addresses
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]



[delphi-br] Componente Doc x Pdf

2008-09-24 Por tôpico José Ferreira S . Filho
Caros colegas,

  Por gentileza algum colega do grupo conhece ulgum componente free 
para delphi que converta um arquivo Doc em Pdf.

grato,

José Ferreira
Beccasoft Informática



RES: [delphi-br] Ajuda com select

2008-09-24 Por tôpico Luciano Calenzani Simões
Não tenho MySQL. Testa aí.

 Luciano Calenzani Simões





- Mensagem original 
De: Ricardo  [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 24 de Setembro de 2008 15:03:59
Assunto: RES: [delphi-br] Ajuda com select


eu uso mysql  funciona ? 


  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] Como testar se um valor é inteiro

2008-09-24 Por tôpico Odail Della Niesi Junior
Pessoal,

Tenho um valor do tipo Variant, preciso testá-lo se é um inteiro ou não.
Agradeço antecipadamente a ajuda dos Colegas.

-- 
[]s,

Odail Della Niesi Junior
São Pedro-SP



[delphi-br] Hexa para imagem

2008-09-24 Por tôpico Robson Tazinaffo
Como converter hexadecimal para imagem e jogar em um TImage



Re: [delphi-br] Como testar se um valor é int eiro

2008-09-24 Por tôpico Joao Morais
Odail Della Niesi Junior wrote:
 Tenho um valor do tipo Variant, preciso testá-lo se é um inteiro ou não.
 Agradeço antecipadamente a ajuda dos Colegas.

if VarType(SeuVariant) = varInteger then

--
Joao Morais


Re: [delphi-br] Criar componente de classe indefinida/dinâmica

2008-09-24 Por tôpico Joao Morais
Guilherme Augusto wrote:
 Boa tarde galera...
 
 Preciso da ajuda de vocês para uma solução dos meus estudos para a prova de 
 certificação do Delphi... É que estou estudando herança dos componentes... 
 Querendo ver todos os seus ancestrais até TObject.
 
 Aí, consegui com a ajuda da net achar algo parecido com o que eu queria... Só 
 que ele faz apenas com o Sender do TButton que estou usando para clicar e 
 executar a busca dos ancestrais...
 
 Agora, o que eu preciso é fazer essa mesma coisa não apenas com Sender ou com 
 algum componente da tela. Quero digitar uma classe qualquer num Edit e ele me 
 retornar esse ancestral.. Só que não estou conseguindo fazer isso de jeito 
 nenhum... Segue o código abaixo...

Primeiro você precisa descobrir qual o endereço da classe a partir do 
nome. A classe precisa estar registrada de alguma forma, e a forma mais 
prática é pegar carona nas rotinas de streaming da IDE e usar 
GetClass/RegisterClass.

Depois de ter o endereço da classe, basta localizar a superclasse 
através do método ClassParent.

Então, para que o seu código mostre o nome da superclasse de um nome de 
classe fornecido pelo usuário, você precisa de mais ou menos isso aqui:

var
   VClass: TPersistentClass;
begin
   VClass := GetClass(Edit1.Text);
   if Assigned(VClass) then
 Memo1.Lines.Add(
  'Nome da superclasse: ' + VClass.ClassParent.ClassName)
   else
 Memo1.Lines.Add('Não achei a classe ' + Edit1.Text);
end;

--
Joao Morais



 procedure TForm1.BtClassesClick(Sender: TObject);
 Var
 ClassRef : TClass;
 Obj  : TControl;
 begin
ListaClasses.Clear;
 
 // Aqui abaixo que está o problema...
Obj  := TLabel.Create(Self);
 
 // Porque mesmo que eu faça, dá um Access Violation
Obj  := TControl(EdClasse.Text).Create(Self);
ClassRef := Obj.ClassType;
 
While ClassRef  Nil Do
  Begin
  ListaClasses.Items.Add(ClassRef.ClassName);
 
  ClassRef := ClassRef.ClassParent;
End;
 
FreeAndNil(Obj);
 end;
 
 Conto com a ajuda de vocês para facilitar os meus estudos pois é material que 
 não acaba mais...
 
 Falow
 
 
 
   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] Componente Doc x Pdf

2008-09-24 Por tôpico Luciano Angelini - uol
José ...
eu uso o PDF Factory Pro 

ele é free 

vc instala ele .. seria o mesmo que vc tivesse instalado uma impressora ...
no word ... vc pede pra imprimi e escolha a impressora: PDF Factory Pro

Caso vc queira me manda seu email ou até mesmo pelo msn: 
[EMAIL PROTECTED] ...
que eu te mando é pequeno 1.5 Mb ...


Espero ter ajudado !!!


Luciano Angelini
Prefeitura de Lupionópolis-Pr
===
José Ferreira S. Filho escreveu:

 Caros colegas,

 Por gentileza algum colega do grupo conhece ulgum componente free
 para delphi que converta um arquivo Doc em Pdf.

 grato,

 José Ferreira
 Beccasoft Informática

  


Re: [delphi-br] Como testar se um valor é int eiro

2008-09-24 Por tôpico Odail Della Niesi Junior
João não tive sucesso !

Joao Morais escreveu:

 Odail Della Niesi Junior wrote:
  Tenho um valor do tipo Variant, preciso testá-lo se é um inteiro ou não.
  Agradeço antecipadamente a ajuda dos Colegas.

 if VarType(SeuVariant) = varInteger then

 --
 Joao Morais

  


-- 
[]s,

Odail Della Niesi Junior
São Pedro-SP



Re: [delphi-br] Como testar se um valor é inteiro

2008-09-24 Por tôpico Eduardo Silva dos Santos
João usou a elegância, vamos usar o método tosco..


Function IsInteger( Value:Variant ):Boolean;
begin
 try
  StrToint( value );
  Result := True;
 except
  Result := False;
 end;
end;


tem uma função que verifica isso, ha pouco tempo alguém perguntou e o Rubem
respondeu.

2008/9/24 Odail Della Niesi Junior [EMAIL PROTECTED]

   João não tive sucesso !

 Joao Morais escreveu:
 
  Odail Della Niesi Junior wrote:
   Tenho um valor do tipo Variant, preciso testá-lo se é um inteiro ou
 não.
   Agradeço antecipadamente a ajuda dos Colegas.
 
  if VarType(SeuVariant) = varInteger then
 
  --
  Joao Morais
 
 

 --
 []s,

 Odail Della Niesi Junior
 São Pedro-SP

  




-- 
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com.br/
...


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



Re: [delphi-br] Como testar se um valor é int eiro

2008-09-24 Por tôpico Joao Morais
Eduardo Silva dos Santos wrote:
 João usou a elegância, vamos usar o método tosco..
 
 
 Function IsInteger( Value:Variant ):Boolean;
 begin
  try
   StrToint( value );
   Result := True;
  except
   Result := False;
  end;
 end;

Eduardo, isso não é tosco. Isso é medonho.

Odail, você sequer disse o que não deu certo. Pode ser mais específico?

--
Joao Morais


 
 
 tem uma função que verifica isso, ha pouco tempo alguém perguntou e o Rubem
 respondeu.
 
 2008/9/24 Odail Della Niesi Junior [EMAIL PROTECTED]
 
   João não tive sucesso !

 Joao Morais escreveu:
 Odail Della Niesi Junior wrote:
 Tenho um valor do tipo Variant, preciso testá-lo se é um inteiro ou
 não.
 Agradeço antecipadamente a ajuda dos Colegas.
 if VarType(SeuVariant) = varInteger then

 --
 Joao Morais


 --
 []s,

 Odail Della Niesi Junior
 São Pedro-SP

  

 
 
 



Re: [delphi-br] Criar componente de classe indefinida/dinâmica

2008-09-24 Por tôpico Joao Morais
Guilherme Augusto wrote:
 Agora, minha dúvida é a seguinte:
 
 Porém, a parte do Novo := GetClass(EdClasse.Text);está me retornando 
 Null porque ainda não registrei a classe. Aí, a minha dúvida é:
 
 Vou precisar colocar
 Novo := TEdit;
 Novo := TLabel;
 etc... para todas as classes que eu quiser usar antes de tentar ver os 
 ascendentes?? Poque quando eu faço isso ele funciona!!
 Ou como eu faço para a minha String EdClasses.Text virar uma 
 TPersistentClass??

O GetClass só vai achar o que você registrar. A medida em que você 
instancia forms, o próprio delphi vai registrar algumas classes de forma 
automática, mas você não tem nenhuma garantia. O ideal é registrar tudo 
antes de usar o getclass.

Outra coisa: o create é virtual apenas de TComponent para baixo, então 
você vai precisar fazer outro truque para criar componentes em runtime:

if VClass.InheritsFrom(TComponent) then
   VObj := TComponentClass(VClass).Create()
else
   // não é um TComponent

No entanto, se você só precisa saber quem é a superclasse, você não 
precisa criar a instância; o ponteiro da classe é suficiente.

--
Joao Morais


[delphi-br] manter o menu clikado

2008-09-24 Por tôpico Rafael Jorge
trabalhei numa empresa que no sistema que a gente fazia la.. ao clikar num
item de um menu e abrir outro form ao voltar pro menu principal ele mantia o
menu do mesmo jeito...
exemplo.. arquivoseditareditar arquivo de mala direta..
ao clikar nesse item de menu que veio de um submenu.. abre a janela de
editar mala direta..
ao voltar pro form princial ele vai estar com o menu aberto e selecionado no
arquivoseditareditar arquivo de mala direta
como fazer isso?
t+

-- 
---
Rafael jorge alves (Analista/desenvolvedor)

www.sistemafocus.com.br
sistema focus de gestão comercial e serviços em informatica.
---


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



Re: [delphi-br] Hexa para imagem

2008-09-24 Por tôpico Onjahyr - GMAIL
Olá, você tem que transformar o Hexadecimal para Binário e salvar com o 
nome de um arquivo com a extensão, ele era antes um BMP, salva com o 
nome e a extensão .BMP, era um JPG... Pois.

Robson Tazinaffo escreveu:

 Como converter hexadecimal para imagem e jogar em um TImage

  


Re: [delphi-br] manter o menu clikado

2008-09-24 Por tôpico Eduardo Silva dos Santos
A última vez que vi isso foi em um sistema em Clipper, nunca vi esse
comportamento em sistemas em modo gráfico.

2008/9/24 Rafael Jorge [EMAIL PROTECTED]

   trabalhei numa empresa que no sistema que a gente fazia la.. ao clikar
 num
 item de um menu e abrir outro form ao voltar pro menu principal ele mantia
 o
 menu do mesmo jeito...
 exemplo.. arquivoseditareditar arquivo de mala direta..
 ao clikar nesse item de menu que veio de um submenu.. abre a janela de
 editar mala direta..
 ao voltar pro form princial ele vai estar com o menu aberto e selecionado
 no
 arquivoseditareditar arquivo de mala direta
 como fazer isso?
 t+

 --
 --
 Rafael jorge alves (Analista/desenvolvedor)

 www.sistemafocus.com.br
 sistema focus de gestão comercial e serviços em informatica.
 --

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

  




-- 
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com.br/
...


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



Re: [delphi-br] Componente Doc x Pdf

2008-09-24 Por tôpico Walter Chagas Jr (BOL)
Passa o link aonde baixa ele que é melhor.


[]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: Luciano Angelini - uol 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, September 24, 2008 4:16 PM
  Subject: Re: [delphi-br] Componente Doc x Pdf


  José ...
  eu uso o PDF Factory Pro 

  ele é free 

  vc instala ele .. seria o mesmo que vc tivesse instalado uma impressora ...
  no word ... vc pede pra imprimi e escolha a impressora: PDF Factory Pro

  Caso vc queira me manda seu email ou até mesmo pelo msn: 
  [EMAIL PROTECTED] ...
  que eu te mando é pequeno 1.5 Mb ...

  Espero ter ajudado !!!

  Luciano Angelini
  Prefeitura de Lupionópolis-Pr
  ===
  José Ferreira S. Filho escreveu:
  
   Caros colegas,
  
   Por gentileza algum colega do grupo conhece ulgum componente free
   para delphi que converta um arquivo Doc em Pdf.
  
   grato,
  
   José Ferreira
   Beccasoft Informática
  
   


   

  __ Informação do ESET NOD32 Antivirus, versão da vacina 3469 
(20080924) __

  A mensagem foi verificada pelo ESET NOD32 Antivirus.

  http://www.eset.com


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



Res: [delphi-br] Ajuda

2008-09-24 Por tôpico Silvio Clécio
Olá pessoal,
 
Wesley, o pacote JEDI tem um componente próprio p isso (JvWizard) tipo o do 
InnoSetup, e tem um exemplo demonstrativo.
Eu uso a versão JVCL333CompleteJCL1101-Build2725, acho mais estável, pelo 
menos para o meu BDS2006.
Link para baixar o pacote: 
http://sourceforge.net/project/showfiles.php?group_id=45786package_id=42327
 
Um abraço a todos!
Silvio Clécio
 
- Mensagem original 
De: BandaLemuel [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 24 de Setembro de 2008 8:43:16
Assunto: [delphi-br] Ajuda


Pessoal

Bom dia, existe algum componente que tem a mesma função do PageControl mas que 
não mostra os botoes ou abas ??? Preciso fazer um esquema como se fosse um 
programa de instalação... 

vlw..

Wesley
.



  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] Erro no BDE ao fechar 2 objetos TStoredProc ou TQuery consecutivamente

2008-09-24 Por tôpico Willian Jhonnes L. dos Santos
Olá, galera...

Seguinte: o problema é cascudo!

Em uma determinada aplicação desenvolvida em Delphi3 tenho objetos 
TStoredProc e TQuery manipulando informações no BD (Oracle 10g 
Enterprise) via Oracle Client 9.0. Até aí, tudo bem. A aplicação é 
legada e NÃO há como migrá-la para uma versão mais atual do Delphi sem 
impactar em nosso cronograma. Digo isso para que respostas como muda 
pro Delphi 2007 ou usa o ODAC, as quais não ajudam em nada, não apareçam.

Voltando ao caso, em 'n' formulários tenho objetos TQuery e TStoredProc 
instanciados e trabalhando normalmente. Porém, em certas situações, eles 
teimam em causar problemas. Em certas máquinas, a execução de dois 
métodos Close em dois componentes distintos (TQuery ou TStoredProc, isso 
independe) simplesmente encerra a aplicação! Isso sem nenhuma mensagem 
de exceção.

Debugando a aplicação, me deparei com uma mensagem *INFORMATIVA* de 
violação de acesso! O texto da mensagem é este:

access violation at 0x4da2ed3d: read of address 0xffaaadcc
83 3A 00 74 63 E8 39 10 00 00 64 8B

Exatamente como aparece na caixa de mensagem. Após clicar em ok, a 
aplicação é encerrada. Em uma consulta ao google, a pesquisa pelo código 
de erro me retornou isto [1].

Alguém tem alguma idéia de como resolver (ou contornar, mesmo com POG) 
este problema? Reitero: respostas como muda pro Delphi 2007 ou usa o 
ODAC não ajudam.

Dentre uma das tentativas, tentamos compilar a aplicação em Delphi7, mas 
o problema persiste. Tenho a alternativa de usar o ODAC, mas, como já 
disse, o impacto no nosso cronograma seria gigantesco, pois esta é a 
maior de todas as nossas aplicações em produção.

Abraços e espero ter sido claro o suficiente (se não fui, me desculpem 
e, por favor, me questionem)...

[1] - 
http://www.google.com.br/search?hl=pt-BRrlz=1G1GGLQ_PT-BRBR293q=0x4da2ed3dbtnG=Pesquisarmeta=

-- 
---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---



Re: [delphi-br] manter o menu clikado

2008-09-24 Por tôpico Guilherme Augusto
Boa tarde Rafael...

Cara, eu sei que tem como sim e é muito fácil... Até tenho isso em casa...

Quando chegar lá eu posto aqui pra vc... Caso alguém não o faça antes...

Abraços

Guilherme Augusto

--- Em qua, 24/9/08, Rafael Jorge [EMAIL PROTECTED] escreveu:
De: Rafael Jorge [EMAIL PROTECTED]
Assunto: [delphi-br] manter o menu clikado
Para: delphi-br delphi-br@yahoogrupos.com.br
Data: Quarta-feira, 24 de Setembro de 2008, 17:06











trabalhei numa empresa que no sistema que a gente fazia la.. ao 
clikar num

item de um menu e abrir outro form ao voltar pro menu principal ele mantia o

menu do mesmo jeito...

exemplo.. arquivoseditar editar arquivo de mala direta..

ao clikar nesse item de menu que veio de um submenu.. abre a janela de

editar mala direta..

ao voltar pro form princial ele vai estar com o menu aberto e selecionado no

arquivoseditar editar arquivo de mala direta

como fazer isso?

t+



-- 

 - - - - - -

Rafael jorge alves (Analista/desenvolv edor)



www.sistemafocus. com.br

sistema focus de gestão comercial e serviços em informatica.

 - - - - - -



[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] Erro no BDE ao fechar 2 objetos TStoredProc ou TQuery consecutivamente

2008-09-24 Por tôpico Joao Morais
Willian Jhonnes L. dos Santos wrote:
 Olá, galera...
 
 Seguinte: o problema é cascudo!
 
 Em uma determinada aplicação desenvolvida em Delphi3 tenho objetos 
 TStoredProc e TQuery manipulando informações no BD (Oracle 10g 
 Enterprise) via Oracle Client 9.0. Até aí, tudo bem. A aplicação é 
 legada e NÃO há como migrá-la para uma versão mais atual do Delphi sem 
 impactar em nosso cronograma. Digo isso para que respostas como muda 
 pro Delphi 2007 ou usa o ODAC, as quais não ajudam em nada, não apareçam.
 
 Voltando ao caso, em 'n' formulários tenho objetos TQuery e TStoredProc 
 instanciados e trabalhando normalmente. Porém, em certas situações, eles 
 teimam em causar problemas. Em certas máquinas, a execução de dois 
 métodos Close em dois componentes distintos (TQuery ou TStoredProc, isso 
 independe) simplesmente encerra a aplicação! Isso sem nenhuma mensagem 
 de exceção.
 
 Debugando a aplicação, me deparei com uma mensagem *INFORMATIVA* de 
 violação de acesso! O texto da mensagem é este:
 
 access violation at 0x4da2ed3d: read of address 0xffaaadcc
 83 3A 00 74 63 E8 39 10 00 00 64 8B

Praticamente certo de que alguém está tentando usar um objeto que já foi 
destruído.

 Exatamente como aparece na caixa de mensagem. Após clicar em ok, a 
 aplicação é encerrada. Em uma consulta ao google, a pesquisa pelo código 
 de erro me retornou isto [1].

Não ajuda, isso é meramente um endereço de memória.

 Alguém tem alguma idéia de como resolver (ou contornar, mesmo com POG) 
 este problema? Reitero: respostas como muda pro Delphi 2007 ou usa o 
 ODAC não ajudam.
 
 Dentre uma das tentativas, tentamos compilar a aplicação em Delphi7, mas 
 o problema persiste. Tenho a alternativa de usar o ODAC, mas, como já 
 disse, o impacto no nosso cronograma seria gigantesco, pois esta é a 
 maior de todas as nossas aplicações em produção.

Se o problema aparece em Delphi 7, então é certo que está na sua 
aplicação. Do contrário, numa hipótese muito remota, poderia ser bug da vcl.

Dica: ligue as informações de debug da sua aplicação e use as units com 
informações de debug: project | options | compiler | use debug dcu. 
Quando o erro pipocar, veja um backtrace (Ctrl+F3) e use a criatividade 
para tentar adivinhar quem está apontando para o objeto destruído.

Boa sorte.

--
Joao Morais



 Abraços e espero ter sido claro o suficiente (se não fui, me desculpem 
 e, por favor, me questionem)...
 
 [1] - 
 http://www.google.com.br/search?hl=pt-BRrlz=1G1GGLQ_PT-BRBR293q=0x4da2ed3dbtnG=Pesquisarmeta=
 



Re: [delphi-br] Componente Doc x Pdf

2008-09-24 Por tôpico Luiz ESCobar
Até onde sei o PDFFactory PRO não é free...  tme um custo de $99 (dolares...)
http://www.fineprint.com/products/pdffactory/index.html
http://www.fineprint.com/
http://www.google.com.br/search?rlz=1C1CHMG_pt-BRsourceid=chromeie=UTF-8q=pdf+factory+pro
[]s

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.0 Intl. (Rev. 9175) 
xHarbour Compile build 1.1.0 (Simplex)
Harbour MiniGUI 1.5 Extended Edition (Build 55) - 2008.08.26
---


From: Walter Chagas Jr (BOL) 
Sent: Wednesday, September 24, 2008 4:51 PM
To: delphi-br@yahoogrupos.com.br 
Subject: Re: [delphi-br] Componente Doc x Pdf


Passa o link aonde baixa ele que é melhor.

[]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: Luciano Angelini - uol 
To: delphi-br@yahoogrupos.com.br 
Sent: Wednesday, September 24, 2008 4:16 PM
Subject: Re: [delphi-br] Componente Doc x Pdf

José ...
eu uso o PDF Factory Pro 

ele é free 

vc instala ele .. seria o mesmo que vc tivesse instalado uma impressora ...
no word ... vc pede pra imprimi e escolha a impressora: PDF Factory Pro

Caso vc queira me manda seu email ou até mesmo pelo msn: 
[EMAIL PROTECTED] ...
que eu te mando é pequeno 1.5 Mb ...

Espero ter ajudado !!!

Luciano Angelini
Prefeitura de Lupionópolis-Pr
===
José Ferreira S. Filho escreveu:

 Caros colegas,

 Por gentileza algum colega do grupo conhece ulgum componente free
 para delphi que converta um arquivo Doc em Pdf.

 grato,

 José Ferreira
 Beccasoft Informática

 

__ Informação do ESET NOD32 Antivirus, versão da vacina 3469 (20080924) 
__

A mensagem foi verificada pelo ESET NOD32 Antivirus.

http://www.eset.com

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



 

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



[delphi-br] Conexão no SqlDataSet logando em DB diferente

2008-09-24 Por tôpico Carlos
Boa a noite a todos!
Senhores, tenho alguns projetos para estudar o desenvolvimento de um
novo sistema, e adicionei alguns bancos de dados de outros sistemas em
minha máquina, para estudo.
Ai começa o problema.
Nestes bancos existem tabelas com o mesmo nome (usuario, unidade etc)e
quando rodo o sistema pelo executável, sem problemas, mas quando
executo para verificação de rotina, um SqlDataSet que uso para
consulta, pega outras tabelas de outros bancos e me da um erro.
A conexão com o DB correto no SqlConnection é feita através de arquivo
.Ini. e os DB's são em MySql.
Como evitar que este SqlDataSet pega tabelas de bancos que não tem
nada a ver?
Espero que tenha me fazido entender...
Fraterno abraço a todos,
Carlos



Re: [delphi-br] Componente Doc x Pdf

2008-09-24 Por tôpico Daniel Bastos
http://sourceforge.net/projects/pdfcreator/

2008/9/24 Luiz ESCobar [EMAIL PROTECTED]

 Até onde sei o PDFFactory PRO não é free...  tme um custo de $99
 (dolares...)
 http://www.fineprint.com/products/pdffactory/index.html
 http://www.fineprint.com/

 http://www.google.com.br/search?rlz=1C1CHMG_pt-BRsourceid=chromeie=UTF-8q=pdf+factory+pro
 []s

 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.0 Intl. (Rev. 9175)
 xHarbour Compile build 1.1.0 (Simplex)
 Harbour MiniGUI 1.5 Extended Edition (Build 55) - 2008.08.26

 ---


 From: Walter Chagas Jr (BOL)
 Sent: Wednesday, September 24, 2008 4:51 PM
 To: delphi-br@yahoogrupos.com.br
 Subject: Re: [delphi-br] Componente Doc x Pdf


 Passa o link aonde baixa ele que é melhor.

 []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: Luciano Angelini - uol
 To: delphi-br@yahoogrupos.com.br
 Sent: Wednesday, September 24, 2008 4:16 PM
 Subject: Re: [delphi-br] Componente Doc x Pdf

 José ...
 eu uso o PDF Factory Pro 

 ele é free 

 vc instala ele .. seria o mesmo que vc tivesse instalado uma impressora ...
 no word ... vc pede pra imprimi e escolha a impressora: PDF Factory Pro

 Caso vc queira me manda seu email ou até mesmo pelo msn:
 [EMAIL PROTECTED] ...
 que eu te mando é pequeno 1.5 Mb ...

 Espero ter ajudado !!!

 Luciano Angelini
 Prefeitura de Lupionópolis-Pr
 ===
 José Ferreira S. Filho escreveu:
 
  Caros colegas,
 
  Por gentileza algum colega do grupo conhece ulgum componente free
  para delphi que converta um arquivo Doc em Pdf.
 
  grato,
 
  José Ferreira
  Beccasoft Informática
 
 

 __ Informação do ESET NOD32 Antivirus, versão da vacina 3469
 (20080924) __

 A mensagem foi verificada pelo ESET NOD32 Antivirus.

 http://www.eset.com

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





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


 

 --
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 






-- 
Abs
Daniel A. Bastos


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



Re: [delphi-br] Componente Doc x Pdf

2008-09-24 Por tôpico Walter Chagas Jr (BOL)
De fato, o caboclo lá falou que era Free mas é aqule Free. Como eu não o 
conhecia (O componente), achei que ele tava falando a verdade.

Aí é foda cara.


[]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: Luiz ESCobar 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, September 24, 2008 5:33 PM
  Subject: Re: [delphi-br] Componente Doc x Pdf


  Até onde sei o PDFFactory PRO não é free... tme um custo de $99 (dolares...)
  http://www.fineprint.com/products/pdffactory/index.html
  http://www.fineprint.com/
  
http://www.google.com.br/search?rlz=1C1CHMG_pt-BRsourceid=chromeie=UTF-8q=pdf+factory+pro
  []s

  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.0 Intl. (Rev. 9175) 
  xHarbour Compile build 1.1.0 (Simplex)
  Harbour MiniGUI 1.5 Extended Edition (Build 55) - 2008.08.26
  --

  From: Walter Chagas Jr (BOL) 
  Sent: Wednesday, September 24, 2008 4:51 PM
  To: delphi-br@yahoogrupos.com.br 
  Subject: Re: [delphi-br] Componente Doc x Pdf

  Passa o link aonde baixa ele que é melhor.

  []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: Luciano Angelini - uol 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, September 24, 2008 4:16 PM
  Subject: Re: [delphi-br] Componente Doc x Pdf

  José ...
  eu uso o PDF Factory Pro 

  ele é free 

  vc instala ele .. seria o mesmo que vc tivesse instalado uma impressora ...
  no word ... vc pede pra imprimi e escolha a impressora: PDF Factory Pro

  Caso vc queira me manda seu email ou até mesmo pelo msn: 
  [EMAIL PROTECTED] ...
  que eu te mando é pequeno 1.5 Mb ...

  Espero ter ajudado !!!

  Luciano Angelini
  Prefeitura de Lupionópolis-Pr
  ===
  José Ferreira S. Filho escreveu:
  
   Caros colegas,
  
   Por gentileza algum colega do grupo conhece ulgum componente free
   para delphi que converta um arquivo Doc em Pdf.
  
   grato,
  
   José Ferreira
   Beccasoft Informática
  
   

  __ Informação do ESET NOD32 Antivirus, versão da vacina 3469 
(20080924) __

  A mensagem foi verificada pelo ESET NOD32 Antivirus.

  http://www.eset.com

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

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



   

  __ Informação do ESET NOD32 Antivirus, versão da vacina 3469 
(20080924) __

  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] manter o menu clikado

2008-09-24 Por tôpico Jhosef Marks
Já tentou a propriedade AutoCheck dos itens do Menu???

Seta para True

JM

2008/9/24 Guilherme Augusto [EMAIL PROTECTED]

   Boa tarde Rafael...

 Cara, eu sei que tem como sim e é muito fácil... Até tenho isso em casa...

 Quando chegar lá eu posto aqui pra vc... Caso alguém não o faça antes...

 Abraços

 Guilherme Augusto

 --- Em qua, 24/9/08, Rafael Jorge [EMAIL 
 PROTECTED]rafael.jorge%40gmail.com
 escreveu:
 De: Rafael Jorge [EMAIL PROTECTED] rafael.jorge%40gmail.com
 Assunto: [delphi-br] manter o menu clikado
 Para: delphi-br 
 delphi-br@yahoogrupos.com.brdelphi-br%40yahoogrupos.com.br
 
 Data: Quarta-feira, 24 de Setembro de 2008, 17:06


 trabalhei numa empresa que no sistema que a gente fazia la.. ao clikar num

 item de um menu e abrir outro form ao voltar pro menu principal ele mantia
 o

 menu do mesmo jeito...

 exemplo.. arquivoseditar editar arquivo de mala direta..

 ao clikar nesse item de menu que veio de um submenu.. abre a janela de

 editar mala direta..

 ao voltar pro form princial ele vai estar com o menu aberto e selecionado
 no

 arquivoseditar editar arquivo de mala direta

 como fazer isso?

 t+

 --

  - - - - - -

 Rafael jorge alves (Analista/desenvolv edor)

 www.sistemafocus. com.br

 sistema focus de gestão comercial e serviços em informatica.

  - - - - - -

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

  




-- 
Jhosef Marks de Carvalho
Delphi Developer
http://groups.google.com/group/soumaisdelphi


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



Re: [delphi-br] Invalid datatype - Delphi 2007

2008-09-24 Por tôpico Luiz Escobar
É sempre falei q migrar de uma versão para outra, sempre foi problema, por isso 
que o que tenho em uma em matenho até num dá mais.  hehehehe
TALVEZ quando meu D6 e o D7 não instalar mais em versões novas do Windows, ai 
eu faça uma migração para um D mais novo Ou já parto para WEB (PHP)
[]s

Luiz Escobar


  - Original Message - 
  From: Edson Marco 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, September 24, 2008 11:43 AM
  Subject: [delphi-br] Invalid datatype - Delphi 2007


  Olá pessoal!

  Estou migrando o projeto do D2005 para o D2007... putz! Que dor de cabeça!

  Para ajudar o projeto utiliza DBExpress e Firebird, então já sabem do
  problema do driver. Eu consegui resolver o problema dos campos blob fazendo
  um downgrade do driver dbxint30.dll para o do D2006. Funcionou
  perfeitamente.

  Agora, estou com um problemão com o SQLDataSet. Malditos DBX.

  Ele está configurado como ctStoredProc, e após passar os parametros, dou um
  ExecSQL; Ai a mensagem de erro: Invalid command Data type unknown.

  Tentei com os parametros definidos na lista de parametros, sem definir...
  voltei o driver para o do D2007 e nada! Mesmo erro.

  Valew!

  -- 
  /*
  * Edson Marco Ferrari Junior
  * [EMAIL PROTECTED]
  * http://www.edmafer.com.br
  */

  [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] Hexa para imagem

2008-09-24 Por tôpico Luiz Escobar
Pera ai, acho que ele quer criar um número HEXA e transformar ele numa 
imagem.
Tipo fazer a imagem de um numero HEXA..
http://delphimasters.blogspot.com/2007/03/esta-uma-dica-bastante-interessante.html
acho q aqui ja da pra ter uma idéia..
se não for isso então, desculpa ai, e esquece o q eu disse...
abraços...

Luiz Escobar


  - Original Message - 
  From: Onjahyr - GMAIL 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, September 24, 2008 4:48 PM
  Subject: Re: [delphi-br] Hexa para imagem


  Olá, você tem que transformar o Hexadecimal para Binário e salvar com o 
  nome de um arquivo com a extensão, ele era antes um BMP, salva com o 
  nome e a extensão .BMP, era um JPG... Pois.

  Robson Tazinaffo escreveu:
  
   Como converter hexadecimal para imagem e jogar em um TImage
  
   


   

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



Re: [delphi-br] Invalid datatype - Delphi 2007

2008-09-24 Por tôpico Eduardo Silva dos Santos
Luiz, eu migrei do Delphi 7 para o 2007 sem problemas, mas também não tenho
um TField Adicionado as minhas Queries...

nosso amigo Wednesday que se prepare para remover e adicionar todos os
TField dos SQLDataSet dele

uma coisa que eu não largo é o MyDAC, você pode fazer o sistema com MyDAC 1
e migrar para 5 que vai rodar tranquilo, agora com DBExpress, a coisa ja é
diferente, mais uma prova disso estamos vendo agora.

2008/9/24 Luiz Escobar [EMAIL PROTECTED]

   É sempre falei q migrar de uma versão para outra, sempre foi problema,
 por isso que o que tenho em uma em matenho até num dá mais. hehehehe
 TALVEZ quando meu D6 e o D7 não instalar mais em versões novas do Windows,
 ai eu faça uma migração para um D mais novo Ou já parto para WEB
 (PHP)
 []s

 Luiz Escobar

 - Original Message -
 From: Edson Marco
 To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Sent: Wednesday, September 24, 2008 11:43 AM
 Subject: [delphi-br] Invalid datatype - Delphi 2007

 Olá pessoal!

 Estou migrando o projeto do D2005 para o D2007... putz! Que dor de cabeça!

 Para ajudar o projeto utiliza DBExpress e Firebird, então já sabem do
 problema do driver. Eu consegui resolver o problema dos campos blob fazendo
 um downgrade do driver dbxint30.dll para o do D2006. Funcionou
 perfeitamente.

 Agora, estou com um problemão com o SQLDataSet. Malditos DBX.

 Ele está configurado como ctStoredProc, e após passar os parametros, dou um
 ExecSQL; Ai a mensagem de erro: Invalid command Data type unknown.

 Tentei com os parametros definidos na lista de parametros, sem definir...
 voltei o driver para o do D2007 e nada! Mesmo erro.

 Valew!

 --
 /*
 * Edson Marco Ferrari Junior
 * [EMAIL PROTECTED] edmafer%40edmafer.com.br
 * http://www.edmafer.com.br
 */

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

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

  




-- 
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com.br/
...


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



Re: [delphi-br] Componente Doc x Pdf

2008-09-24 Por tôpico Eduardo Silva dos Santos
Acho que ta havendo um equívoco, o nosso colega perguntou se alguém conhece
algum *Componente*, que converta .DOC para PDF e Free, sinceramente eu acho
que vai ser complicado achar algum componente que faça isso e ainda 0800.

agora software que instala uma impressora e ao imprimir nela gera um PDF tem
um monte... o PrimoPDF é um exemplo http://www.primopdf.com/

José Ferreira S. Filho escreveu:
 
  Caros colegas,
 
  Por gentileza algum colega do grupo conhece ulgum componente free
  para delphi que converta um arquivo Doc em Pdf.
 
  grato,



2008/9/24 Daniel Bastos [EMAIL PROTECTED]

   http://sourceforge.net/projects/pdfcreator/

 2008/9/24 Luiz ESCobar [EMAIL PROTECTED]escobar%40megasistema.com.br
 

  Até onde sei o PDFFactory PRO não é free... tme um custo de $99
  (dolares...)
  http://www.fineprint.com/products/pdffactory/index.html
  http://www.fineprint.com/
 
 
 http://www.google.com.br/search?rlz=1C1CHMG_pt-BRsourceid=chromeie=UTF-8q=pdf+factory+pro
  []s
 
  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.0 Intl. (Rev. 9175)
  xHarbour Compile build 1.1.0 (Simplex)
  Harbour MiniGUI 1.5 Extended Edition (Build 55) - 2008.08.26
 
  --
 
 
  From: Walter Chagas Jr (BOL)
  Sent: Wednesday, September 24, 2008 4:51 PM
  To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
  Subject: Re: [delphi-br] Componente Doc x Pdf
 
 
  Passa o link aonde baixa ele que é melhor.
 
  []s
 
  Walter Alves Chagas Junior
  Belo Horizonte - MG - Brazil
  [EMAIL PROTECTED] wchagasj%40bol.com.br
  http://www.geocities.com/SiliconValley/Bay/1058
  http://delphitocorporerm.blogspot.com/
  MSN: [EMAIL PROTECTED] whitesockets%40hotmail.com
  SKYPE: WalterChagasJr
 
  - Original Message -
  From: Luciano Angelini - uol
  To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
  Sent: Wednesday, September 24, 2008 4:16 PM
  Subject: Re: [delphi-br] Componente Doc x Pdf
 
  José ...
  eu uso o PDF Factory Pro 
 
  ele é free 
 
  vc instala ele .. seria o mesmo que vc tivesse instalado uma impressora
 ...
  no word ... vc pede pra imprimi e escolha a impressora: PDF Factory Pro
 
  Caso vc queira me manda seu email ou até mesmo pelo msn:
  [EMAIL PROTECTED] lucianoangelini%40msn.com ...
  que eu te mando é pequeno 1.5 Mb ...
 
  Espero ter ajudado !!!
 
  Luciano Angelini
  Prefeitura de Lupionópolis-Pr
  ===
  José Ferreira S. Filho escreveu:
  
   Caros colegas,
  
   Por gentileza algum colega do grupo conhece ulgum componente free
   para delphi que converta um arquivo Doc em Pdf.
  
   grato,
  
   José Ferreira
   Beccasoft Informática
  
  
 
  __ Informação do ESET NOD32 Antivirus, versão da vacina 3469
  (20080924) __
 
  A mensagem foi verificada pelo ESET NOD32 Antivirus.
 
  http://www.eset.com
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 
 
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
  
 
  --
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
 
 
 
 

 --
 Abs
 Daniel A. Bastos

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

  




-- 
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com.br/
...


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