Re: [delphi-br] Imprimir arquivo texto na USB

2005-11-24 Por tôpico Alencar - Philler Informatica
Em 23/11/05, Marcos Bazoti - Procomp[EMAIL PROTECTED] escreveu:

 como faço para imprimir um arquivo texto na porta USB, dentro do delphi

Uses Printers;

Printer.BeginDoc;

Printer.Canvas.TextOut(col, lin, 'texto');

Printer.EndDoc;


Alencar
---
Philler Informatica Ltda
Jose Alencar Philereno
 ICQ 13458351
Messenger/Skype (voz): alencar

Feliz aquele que transfere o que sabe
e aprende o que ensina Cora Coralina


-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 




[delphi-br] Delphi 2005 e dotNet 2.0

2005-11-24 Por tôpico Edmilson Pontes
Colegas,
Baixei o dotNet framework 2.0, o SDK 2.0 e os instalei depois tentei  
instalar Delphi 2005 do site da Borland, mas ele diz que o dotNet  framework 
1.1 não está instalado.
O Delphi 2005 não funciona com .net 2.0? Como faço para ele suportar?

Desde já agradeço a ajuda,

Edmilson Pontes


-
 Yahoo! Acesso Grátis: Internet rápida e grátis.
Instale o discador agora!

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 




Re: [delphi-br] Obrigado Danilo - ProviderFlags - Mas... por favor esclareça.

2005-11-24 Por tôpico Alencar - Philler Informatica
 No seu exemplo, a SQL sugere que para a tela de cadastro de clientes
 sempre será trazida uma cidade já cadastrada.
 (o que vale para os Updates e Deletes).

 Caso seja uma inclusão e a cidade ainda não esteja cadastrada, nesta
 tela disponibilizamos de clientes uma opção para abrir a tela para o
 cadastro da cidades.

SELECT A.ID_CLIENTE, A.NOME_CLIENTE, A.ID_CIDADE, B.NOME_CIDADE
  FROM CLIENTE A, CIDADE B
WHERE A.ID_CIDADE = B.ID_CIDADE
 

Sugiro q vc altere a clausula SQL para trazer a cidade somente se ela existir:

select a.id_cliente, a.nome_cliente, a.id_cidade b.nome_cidade from cliente a
left join cidade b on (a.id_cidade = b.id_cidade)

Alencar
---
Philler Informatica Ltda
Jose Alencar Philereno
 ICQ 13458351
Messenger/Skype (voz): alencar

Feliz aquele que transfere o que sabe
e aprende o que ensina Cora Coralina


-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 




Re: [delphi-br] Obrigado Danilo - ProviderFlags - Mas... por favor esclareça.

2005-11-24 Por tôpico Danilo Rogério
Vc nem precisaria fazer este campo lookup.
   
  Por ex: Se vc abrir o cadastro de cidade, fizer a inclusão de uma nova 
cidade, ao sair da tela vc ja pode atribuir ao campo ID_CIDADE, NOME_CIDADE(da 
sua query do cadastro de cliente) a nova cidade cadastrada.
   
  Att.
  Danilo
  
User-BA [EMAIL PROTECTED] escreveu:
  
Sua explanação sobre a configuração dos Flags foi por demais esclarecedora.

Vou aproveita para abusar mais um pouco :)

No seu exemplo, a SQL sugere que para a tela de cadastro de clientes 
sempre será trazida uma cidade já cadastrada.
(o que vale para os Updates e Deletes).

Caso seja uma inclusão e a cidade ainda não esteja cadastrada, nesta 
tela disponibilizamos de clientes uma opção para abrir a tela para o 
cadastro da cidades.

Ok! Tendo que fazer isto, você sugeriria que no cadastro de clientes 
deveria ter um campo fazendo um (lookup/nome da cidade) entre 
cidades/clientes para buscar/trazer o código da cidade? ou você sugere 
alguma outra adaptação em SQL para este fim? Tipo: Um Lookup em SQL?

Obrigado pela aula.
Luciano-User-BA.

Danilo Rogério wrote:
 Não entendi muito bem se COL_CHAVE também faz parte da chave primaria 
 da tabela DICAS(fazendo com que sua tabela tenha uma chave composta, 
 mas vou explicar detalhadamente, a maneira como eu trabalho
   
   Tabela CIDADE
   ---
   PK ID_CIDADE
 NOME_CIDADE
   
   Tabela CLIENTE
   
   PK ID_CLIENTE
NOME_CLIENTE
   FK ID_CIDADE 

   
   onde PK é Primary Key(chave Primária) e FK é Foreign Key(Chave 
 Estrangeira), no caso de alguem desconhecer essas notações
   
   Suponhamos que vamos fazer operações de inclusão, exclusão, 
 alteração na tabela CLIENTE, mas queremos mostrar o nome da cidade que 
 este cliente mora.
   
   SELECT A.ID_CLIENTE, A.NOME_CLIENTE, A.ID_CIDADE, B.NOME_CIDADE
 FROM CLIENTE A, CIDADE B
   WHERE A.ID_CIDADE = B.ID_CIDADE
   
   Bem, vamos aos flags.
   
   1) Estamos manipulando CLIENTES, certo? Portanto apenas as colunas 
 referentes a tabela de clientes devem ser atualizadas, ou seja, a 
 coluna NOME_CIDADE é meramente demonstrativa.
   
   2)  Configure os providers flags do SQLDataset ou SQLQuery
 ID_CLIENTE(é a chave)
 pfInfUpdate = True
 pfInfWhere = True
 pfInfKey = True /// Porque esta coluna é a chave
 pfInfHidden = False
   
   NOME_CLIENTE
 pfInfUpdate = True
 pfInfWhere = True
 pfInfKey = False
 pfInfHidden = False
   
   ID_CIDADE(note que esse campo vem da tabela CLIENTE, portanto 
 deve ser atualizado)
 pfInfUpdate = True
 pfInfWhere = True
 pfInfKey = False
 pfInfHidden = False

   
   NOME_CIDADE(não precisa atualizar)
 pfInfUpdate = False
 pfInfWhere = False
 pfInfKey = False
 pfInfHidden = False
   
   3) Neste mesmo campo NOME_CIDADE, verifique a propriedade Requerid = 
 False
   
   4) Faça o Passo 2 e 3 no ClientDataSet também
   
   5) No DataSetProvider, em Update Mode coloque Where KeyOnly(Você 
 muda para update mode porque setamos o flag pfInfKey para True)
   
   6) Se quiser ajudar o DataSerProvider mais um pouco, pode colocar a 
 instrução abaixo no EVENTO onGetTableName:
 Table_Name := 'CLIENTE';
   
   Espero ter esclarecido. E dúvidas, postem aí...
   Danilo Rogério
   Betta Informática
  
 User-BA [EMAIL PROTECTED] escreveu:


  
 Olá!

 Me esclareçam...

 Tenho 2 tabelas - DICAS e - COLABORADORES

 Em - DICAS tenho o campo chave primaria - DIC_CHAVE
 e o campo chave estrangeira - COL_CHAVE
 (COL_CHAVE é a chave primária de - COLABORADOR)

 Neste caso, devo configurar no ClientDataSet - ProviderFlags

 PfInUpdade = True
 PfInWhere = True
 PfInKey = True
 PfInHiden = False

 Da tabela - DICAS
 para os campos - DIC_CHAVE
 (chave primaria de DICAS)
 e COL_CHAVE
 (chave estrangeira de - DICAS e chave primária de - COLABORADOR)?

 ...

 Ou qual a configuração correta neste caso?

 Os outros campos de - DICAS devem ficar:

 PfInUpdade = True
 PfInWhere = True
 PfInKey = False
 PfInHiden = False ?

 Aproveitando:

 Devo setar UpDateMode para - upWhereAll?


  

  

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



 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





 Yahoo! Grupos, um serviço oferecido por:PUBLICIDADE
 var lrec_target=_blank;var lrec_URL=new Array();  
 lrec_URL[1]=http://br.rd.yahoo.com/SIG=12fh5qtu6/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1132804784/A=2950750/R=0/id=flashurl/SIG=10tift5qr/*http://br.movies.yahoo.com/;;
   
 var 
 lrec_flashfile=http://br.i1.yimg.com/br.yimg.com/i/br/ads6/0901_lrec_cinema_calendario.swf?clickTAG=javascript:LRECopenWindow(1)
  
 http://br.i1.yimg.com/br.yimg.com/i/br/ads6/0901_lrec_cinema_calendario.swf?clickTAG=javascript:LRECopenWindow%281%29;
   
 var 
 

Re: [delphi-br] Alguem poderia me ajudar

2005-11-24 Por tôpico João Ricardo
Daniel, conordo com o Miguel,não respondi antes pq nao deu.
mais é isso ai, a instrução SQL pra achar alguma coisa parecida é Like (como em 
ingles...)

funciona bem desse geito

select * from cliente where cliente.nome (esse é o campo que quer pesquisar...) 
 like %nome_do_caboclo%

saco ?, trocando em miudos fica assim:

select * from cliente where nome  like %nome%

T+
Joao Ricardo

- Original Message - 
  From: Miguel - DPF 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, November 23, 2005 4:13 PM
  Subject: Res: [delphi-br] Alguem poderia me ajudar


  Porque vc não utiliza sql usando like %campo% 

  ex 

  Select * from clientes where cliente like %cliente% 


  vc pode colocar isso no campo onchage de um edit 

  with query do 
  begin 
  close; 
  sql.clear; 
  sql.add('select * from clientes where cliente like' + Quotedstr('%'+edit1
  text+'%')); 
  open; 
  end; 


  espero ter entendido direto o q vc quer 

  Miguel 
  Delphi na veia 


  ---Mensagem original--- 

  De: Daniel 
  Data: 11/23/05 13:38:38 
  Para: delphi-br@yahoogrupos.com.br 
  Assunto: [delphi-br] Alguem poderia me ajudar 

  Olá, 

  Gostaria de pedir, ao grupo, se alguém tiver alguma apostila, ou 
  tutorial, ou puder me indicar algum livro que ensine a fazer um 
  programa que tem a seguinte função - Buscar um dado através de 
  características deste dado, por exemplo, num universo de 50 nomes, cada 
  qual com 7 caracteristicas algumas semelhantes outras não, quando eu 
  entro com 3 ou 4, ou as 7 caracteristicas, o programa busca pelo nome 
  que as possui no banco de dados. 

  Alguém poderia me ajudar? 

  Caso possuam algum tutorial ou apostila se puderem enviar por e-mail, 
  ou alguma referencia bibliográfica que seje focada neste tipo de 
  programa.. 

  Um abraço a todos 
  Daniel 







  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM  





  Yahoo! Grupos, um serviço oferecido por: 
  PUBLICIDADE 





  Links do Yahoo! Grupos 

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

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

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




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






  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





Yahoo! Grupos, um serviço oferecido por: 
  PUBLICIDADE

   


--
  Links do Yahoo! Grupos

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



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





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 




Re: [delphi-br]

2005-11-24 Por tôpico RD Sistemas
Já passei por isso e consegui resolver da seguinte forma:

  Application.Initialize;
  Application.Icon.LoadFromFile('SeuIcone.ico'); //Informe aqui o caminho do 
icone que deseja
  Application.Title := 'RD Sistemas - S.C.G.';
  Application.CreateForm(TfrmSenha, frmSenha);
  Application.CreateForm(Tfrmteste, frmteste);
  Application.CreateForm(TfrmPri, frmPri);
  Application.CreateForm(TfrmClientes, frmClientes);
  Application.CreateForm(Tdmdado, dmdado);
  Application.CreateForm(Tfrmlocfunc, frmlocfunc);
  Application.CreateForm(TfrmLocClasse, frmLocClasse);
  frmteste.show;
  frmteste.refresh;
  sleep(5000);
  frmteste.free;
  Application.Run;

O icone deve estar na pasta de execução do sistema e deve ser distribuído junto 
com a instalação

Abraços.

Ralp Alves Bezerra
Msn: [EMAIL PROTECTED]
  - Original Message - 
  From: Luis (BgmRodotec - SP) 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, November 23, 2005 6:44 AM
  Subject: [delphi-br] 


  Ao abrir o executável o icone da aplicação passa a ser um pequeno form 
  e não o associado no projeto (delphi 4 e 7).

  Alguém já passou por isso ?

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





  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





Yahoo! Grupos, um serviço oferecido por: 
  PUBLICIDADE

   


--
  Links do Yahoo! Grupos

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




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





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 




Re: [delphi-br] Re: Executar Flash

2005-11-24 Por tôpico Leonardo Martins
Não precisa de componente amigo,
Basta você usar uma OCX gratuita do Flash
que vem no Delphi :)
Se eu não me engano o nome é
Shockwave Flash (Version 1.0)

Espero ter ajudado.

Leonardo

  - Original Message - 
  From: Ilton Vieira Junior 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, November 23, 2005 3:47 PM
  Subject: Re: [delphi-br] Re: Executar Flash


  Fico grato Carlos. Achei o componente, o nomé FlashPlayerControl, porém 
  o que no site é só o demo :-(.
  Este Demo coloca uma tarja na frente do flash, dizendo Demo Flash e 
  para comprar, custa 300 dolares. Completamente fora de meu orçamento.
  Mais alguma sugestão??

  Obrigado,

  Ilton

  [EMAIL PROTECTED] escreveu:

   oi Ílton,
   já vi um componente pra isso, tem sempre um link patrocinado deles no 
   Torry´s:
   www.torry.net
   mas nao lembro o nome exato, voce pode importar o activeX do flash para
   o delphi
   mas aí vai precisar salvar no disco - que é o que voce nao quer, com esse
   componente eles prometem (nao testei) que dá pra faazer um stream em 
   memoria.
   []s,







  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





Yahoo! Grupos, um serviço oferecido por: 
  PUBLICIDADE

   


--
  Links do Yahoo! Grupos

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



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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 




[delphi-br] Stored Procedure no Interbase

2005-11-24 Por tôpico Patricia Santana
Bom dia a todos!
   
  Podem informar o que estou fazendo de errado nesta Stored Procedure?
   
  SET TERM !! ;
CREATE PROCEDURE ANDAMENTONET4
(NUMRPROC VARCHAR(25),
 DATACOMP TIMESTAMP,
 CODGANDAM INTEGER,
 CODGFASE INTEGER,
 FLAGINTERNO CHAR(1),
 DESCCOMP BLOB SUB_TYPE 1)
RETURNS
(CONTADOR INTEGER)
AS
   DECLARE VARIABLE CONTADOR INTEGER;
BEGIN
   FOR SELECT COUNT(NUMR_FASECOMP) FROM FASECOMP WHERE (NUMR_PROC = 
:NUMRPROC and DATA_COMP = :DATACOMP and DESC_COMP = :DESCCOMP)
  INTO :CONTADOR
   DO
 BEGIN
   IF (CONTADOR is null) THEN
 BEGIN
   CONTADOR = 0;
 END;
   IF (CONTADOR  0 ) THEN
  BEGIN
EXIT
 END
   ELSE
  INSERT INTO FASECOMP (NUMR_PROC, DATA_COMP, CODG_ANDAM, 
CODG_FASE, FLAG_INTERNO, DESC_COMP)
  VALUES (:NUMRPROC, :DATACOMP, :CODGANDAM, :CODGFASE,  'N', 
:DESCCOMP);
  END!!
SET TERM ; !!
   
  Alguém tem agum modelo parecido, para ajudar-me?
   
   
  Desde já agradeço a todos
   
  Patricia Santana




-
 Yahoo! Acesso Grátis: Internet rápida e grátis.
Instale o discador agora!

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 




RES: [delphi-br] Stored Procedure no Interbase

2005-11-24 Por tôpico Elazar
 
Patricia;
 
de uma olhadinha
 
SET TERM !! ;
CREATE PROCEDURE ANDAMENTONET4
  (NUMRPROC VARCHAR(25),
   DATACOMPTIMESTAMP,
   CODGANDAM   INTEGER,
   CODGFASEINTEGER,
   FLAGINTERNO CHAR(1),
   DESCCOMPBLOB SUB_TYPE 1)
RETURNS
  (CONTADOR INTEGER)
AS
DECLARE VARIABLE CONTADOR INTEGER;
BEGIN
   /* Faz um loop contando a coluna da tabela fasecomp */
   FOR SELECT COUNT(NUMR_FASECOMP) 
 FROM FASECOMP 
WHERE (NUMR_PROC = :NUMRPROC and DATA_COMP = :DATACOMP and
DESC_COMP = :DESCCOMP)
 INTO :CONTADOR
   DO BEGIN
  /* Se o contador for nulo ajusta para 0 */
  /* Voce poderia utilizar o COALESCE no select acima e tirar fora
este if 
 Teste ai: SELECT COALESCE(COUNT(NUMR_FASECOMP),0)  */
  IF (CONTADOR IS NULL) THEN BEGIN
 CONTADOR = 0;
  END;
  /* Entao se o contador for maior que 0 retorna result set */
  IF (CONTADOR  0 ) THEN BEGIN
 SUSPEND;
  /* Caso contrario */
  END ELSE BEGIN
 /* Insere na tabela de fase comp */
 INSERT INTO FASECOMP 
   (NUMR_PROC, 
DATA_COMP, 
CODG_ANDAM, 
CODG_FASE, 
FLAG_INTERNO, 
DESC_COMP)
 VALUES 
   (:NUMRPROC, 
:DATACOMP, 
:CODGANDAM, 
:CODGFASE,  
'N', 
:DESCCOMP);
  END
   END  
END!!
SET TERM ; !!
 
/* Nao tive como testar aqui.., pois nao tenho a tabela...rs mas acho
que vai funcionar */
 
 
Atenc.
 
Elazar
 
 
 -Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de Patricia Santana
Enviada em: quarta-feira, 23 de novembro de 2005 16:19
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Stored Procedure no Interbase



Boa tarde a todos!
   
  Podem informar o que estou fazendo de errado nesta Stored Procedure?
   
  SET TERM !! ;
CREATE PROCEDURE ANDAMENTONET4
(NUMRPROC VARCHAR(25),
DATACOMP TIMESTAMP,
CODGANDAM INTEGER,
CODGFASE INTEGER,
FLAGINTERNO CHAR(1),
DESCCOMP BLOB SUB_TYPE 1)
RETURNS
(CONTADOR INTEGER)
AS
   DECLARE VARIABLE CONTADOR INTEGER;
BEGIN
   FOR SELECT COUNT(NUMR_FASECOMP) FROM FASECOMP WHERE (NUMR_PROC =
:NUMRPROC and DATA_COMP = :DATACOMP and DESC_COMP = :DESCCOMP)
  INTO :CONTADOR
   DO
 BEGIN
   IF (CONTADOR is null) THEN
 BEGIN
   CONTADOR = 0;
 END;
   IF (CONTADOR  0 ) THEN
  BEGIN
SUSPEND
  END
   ELSE
  INSERT INTO FASECOMP (NUMR_PROC, DATA_COMP, CODG_ANDAM,
CODG_FASE, FLAG_INTERNO, DESC_COMP)
  VALUES (:NUMRPROC, :DATACOMP, :CODGANDAM, :CODGFASE,  'N',
:DESCCOMP);
  END!!
SET TERM ; !!
   
  Alguém tem agum modelo parecido, para ajudar-me?
   
   
  Desde já agradeço a todos
   
  Patricia Santana






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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 





RES: RES: [delphi-br] Gravar Registro com sqldataset+datasetprovider+clientdataset usando join no select

2005-11-24 Por tôpico Levi Ribeiro de Freitas
Amigo,
 
Vc resolveu o problema.
 
Agora gravou.
 
Muito obrigado

  _  

De: Danilo Rogério [mailto:[EMAIL PROTECTED] 
Enviada em: quarta-feira, 23 de novembro de 2005 17:21
Para: Levi Ribeiro de Freitas
Cc: Delphi-Br
Assunto: Re: RES: [delphi-br] Gravar Registro com
sqldataset+datasetprovider+clientdataset usando join no select


Levi... que bom que você postou o erro, assim a galera ve todos os possíveis
erros que estão acontecendo com você.
 
Amigo, pelo erro me parece que seu SQL ainda está em minúsculo, não é?
 
1) Tente colocar em maiúsculo
 
2) Nos eventos do Datasetprovider existe um metodo chamado OnGetTableName.
Neste Método coloque a seguinte instrução
 
TableName := 'PRODUCAOS';
 
Como você tem join, vc disse para o datasetprovider qual a TABELA da sua
instrução será atualizada...
 
Mas faça um de cada vez... Coloque em maiúscula... Estou para apostar que é
isso...
 
Att.
Danilo

Levi Ribeiro de Freitas [EMAIL PROTECTED] escreveu:

Danilo,

Fiz o que vc me falou nos flags no sqldataset e no clientdataset e mesmo
assim depois de dar applyupdate dá a seguinte mensagem: 

SQL Server Error: Table unknown
producaos
At line 1, column 21.

select a.*, b.tratamento, c.comprimento, c.liga, c.tempera, d.gramatura,
d.gramaturaplc from producaos a
left join cadastro b on (a.id = b.id) and (a.codigo = b.codigo)
left join ipedido c on (a.pedido_id = c.pedido_id) and (a.item = c.item)
left join iferramenta d on (a.ferramenta_id = d.ferramenta_id) and
(a.sequencia = d.sequencia)
where a.status = 0
order by a.protocolo

Não sei mais o que fazer.
Acredito que vou ter que fazer a atualização na unha usando um outro
clientdataset.

Levi

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Danilo Rogério
Enviada em: terça-feira, 22 de novembro de 2005 19:49
Para: delphi-br@yahoogrupos.com.br
Cc: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] Gravar Registro com
sqldataset+datasetprovider+clientdataset usando join no select

Você configurou os providers flags das colunas?

1) Eu ja vi problemas de gravação com select em letras minúsculas. Eu,
particularmente uso só maiúsculas.

2) Faça o seguinte: Adicione todos os campos no fields editor do
SQLDataset e do ClientDataset.

3) Imagino que sua tabela producaos seja a que vc quer gravar. Portando
para os campos(tratamento, comprimento, liga, temperatura, gramatura,
gramaturaplc) marque TODOS o os flags(pfInUpdate, pfInWhere, pfInKey,
pfInHidden) na propriedade Providers Flags para False, Required para False
também. 

4) Faça a mesma coisa no ClientDataset.

Tente gravar novamente. O que você fez foi dizer ao Datasetprovider que os
campos que não são da tabela producaos, não precisam ser atualizados(porque
são de outras tabelas).

PS: Procure conhecer algo sobre Reconcile Error, para capturar os erros ou
problemas na gravação, quando utiliza DBExpress.

Provavelmente isso vai resolver. Espero ter ajudado,
Danilo 


Levi Ribeiro de Freitas escreveu:
Pessoal,

Estou precisando gravar um registro usando D7, Firebird 1.5 +
sqldataset+datasetprovider+clientdataset, mas estou usando join no 
sqldataset+datasetprovider+select,
vejam:

select a.*, b.tratamento, c.comprimento, c.liga, c.tempera, d.gramatura,
d.gramaturaplc from producaos a left join cadastro b on (a.id = b.id) and
(a.codigo = b.codigo) left join ipedido c on (a.pedido_id = c.pedido_id) and
(a.item = c.item) left join iferramenta d on (a.ferramenta_id =
d.ferramenta_id) and (a.sequencia = d.sequencia) where a.status = 0 order by
a.protocolo

Preciso salvar apenas o registro de uma tabela, como faço?
Tento mas ele dá erro.

Atenciosamente,

Levi Ribeiro de Freitas
Programador de Computadores



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



--
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE
var lrec_target=_blank;var lrec_URL=new Array();
lrec_URL[1]=http://br.rd.yahoo.com/SIG=12fq3ai6r/M=365837.7000707.7924794.2
369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1132697947/A=2950750/R=0/id=flashu
rl/SIG=10tift5qr/*http://br.movies.yahoo.com/;; var
lrec_flashfile=http://br.i1.yimg.com/br.yimg.com/i/br/ads6/0901_lrec_cinema
_calendario.swf?clickTAG=javascript:LRECopenWindow(1); var
lrec_altURL=http://br.rd.yahoo.com/SIG=12fq3ai6r/M=365837.7000707.7924794.2
369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1132697947/A=2950750/R=1/id=altimg
/SIG=10tift5qr/*http://br.movies.yahoo.com/;; var
lrec_altimg=http://br.i1.yimg.com/br.yimg.com/i/br/ads6/0829_lrec_cinema_ca
lendario.gif; var lrec_width=300;var lrec_height=250; 

-
Links do Yahoo! Grupos

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

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

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





-
Yahoo! Acesso Grátis: Internet rápida e grátis.

Re: [delphi-br] Obrigado Danilo - ProviderFlags - Mas... por favor esclareça.

2005-11-24 Por tôpico Luis Lopes
Danilo,

Pegando um gancho na discursão de vocês...

Num cadastro de clientes, onde tenho que informar qual
a cidade, como no seu exemplo, qual é a melhor forma
de trabalhar?

Eu sempre trabalhei criando um campo lookup (fkLookup)
no clientdataset (cliente, no caso do seu exemplo) e
na tela, coloco um DBLookupComboBox apontando para o
field lookup que criei. Essa é a melhor forma?

Outra coisa: (ainda seguindo o seu exemplo) quando vou
gravar o cliente, e dá algum erro na gravação (um
campo required que não informei, por exemplo), quando
tento escolher a cidade, novamente (depois do erro),
no DBLookupComboBox, aparece a mensagem 'Cursor
Unknow'. Tento novamente mais umas 2 ou 3 vezes e
passa. Procurei na net e as sugestões que encontrei
não resolveu o problema.

Poderia me ajudar com isso?

Abusando mais um pouco, outro erro que acontece muito
e, apesar de eu estar conseguindo resolver, eu ainda
não sei direito o que causa, é o 'invalid point
operation'

Sabe alguma coisa sobre isso?

Agradeço muito qualquer ajuda.

Luis Alberto.


--- Danilo Rogério [EMAIL PROTECTED]
escreveu:

 Vc nem precisaria fazer este campo lookup.

   Por ex: Se vc abrir o cadastro de cidade, fizer a
 inclusão de uma nova cidade, ao sair da tela vc ja
 pode atribuir ao campo ID_CIDADE, NOME_CIDADE(da sua
 query do cadastro de cliente) a nova cidade
 cadastrada.

   Att.
   Danilo
   
 User-BA [EMAIL PROTECTED] escreveu:
   
 Sua explanação sobre a configuração dos Flags foi
 por demais esclarecedora.
 
 Vou aproveita para abusar mais um pouco :)
 
 No seu exemplo, a SQL sugere que para a tela de
 cadastro de clientes 
 sempre será trazida uma cidade já cadastrada.
 (o que vale para os Updates e Deletes).
 
 Caso seja uma inclusão e a cidade ainda não esteja
 cadastrada, nesta 
 tela disponibilizamos de clientes uma opção para
 abrir a tela para o 
 cadastro da cidades.
 
 Ok! Tendo que fazer isto, você sugeriria que no
 cadastro de clientes 
 deveria ter um campo fazendo um (lookup/nome da
 cidade) entre 
 cidades/clientes para buscar/trazer o código da
 cidade? ou você sugere 
 alguma outra adaptação em SQL para este fim? Tipo:
 Um Lookup em SQL?
 
 Obrigado pela aula.
 Luciano-User-BA.
 
 Danilo Rogério wrote:
  Não entendi muito bem se COL_CHAVE também faz
 parte da chave primaria 
  da tabela DICAS(fazendo com que sua tabela tenha
 uma chave composta, 
  mas vou explicar detalhadamente, a maneira como eu
 trabalho

Tabela CIDADE
---
PK ID_CIDADE
  NOME_CIDADE

Tabela CLIENTE

PK ID_CLIENTE
 NOME_CLIENTE
FK ID_CIDADE 
 

onde PK é Primary Key(chave Primária) e FK é
 Foreign Key(Chave 
  Estrangeira), no caso de alguem desconhecer essas
 notações

Suponhamos que vamos fazer operações de
 inclusão, exclusão, 
  alteração na tabela CLIENTE, mas queremos mostrar
 o nome da cidade que 
  este cliente mora.

SELECT A.ID_CLIENTE, A.NOME_CLIENTE,
 A.ID_CIDADE, B.NOME_CIDADE
  FROM CLIENTE A, CIDADE B
WHERE A.ID_CIDADE = B.ID_CIDADE

Bem, vamos aos flags.

1) Estamos manipulando CLIENTES, certo? Portanto
 apenas as colunas 
  referentes a tabela de clientes devem ser
 atualizadas, ou seja, a 
  coluna NOME_CIDADE é meramente demonstrativa.

2)  Configure os providers flags do SQLDataset
 ou SQLQuery
  ID_CLIENTE(é a chave)
  pfInfUpdate = True
  pfInfWhere = True
  pfInfKey = True /// Porque esta coluna é a
 chave
  pfInfHidden = False

NOME_CLIENTE
  pfInfUpdate = True
  pfInfWhere = True
  pfInfKey = False
  pfInfHidden = False

ID_CIDADE(note que esse campo vem da tabela
 CLIENTE, portanto 
  deve ser atualizado)
  pfInfUpdate = True
  pfInfWhere = True
  pfInfKey = False
  pfInfHidden = False
 

NOME_CIDADE(não precisa atualizar)
  pfInfUpdate = False
  pfInfWhere = False
  pfInfKey = False
  pfInfHidden = False

3) Neste mesmo campo NOME_CIDADE, verifique a
 propriedade Requerid = 
  False

4) Faça o Passo 2 e 3 no ClientDataSet também

5) No DataSetProvider, em Update Mode coloque
 Where KeyOnly(Você 
  muda para update mode porque setamos o flag
 pfInfKey para True)

6) Se quiser ajudar o DataSerProvider mais um
 pouco, pode colocar a 
  instrução abaixo no EVENTO onGetTableName:
  Table_Name := 'CLIENTE';

Espero ter esclarecido. E dúvidas, postem aí...
Danilo Rogério
Betta Informática
   
  User-BA [EMAIL PROTECTED] escreveu:
 
 
   
  Olá!
 
  Me esclareçam...
 
  Tenho 2 tabelas - DICAS e - COLABORADORES
 
  Em - DICAS tenho o campo chave primaria -
 DIC_CHAVE
  e o campo chave estrangeira - COL_CHAVE
  (COL_CHAVE é a chave primária de - COLABORADOR)
 
  Neste caso, devo configurar no ClientDataSet -
 ProviderFlags
 
  PfInUpdade = True
  PfInWhere = True
  PfInKey = True
  PfInHiden = False
 
  Da tabela - DICAS
  

Re: [delphi-br] Catraca Informatizada Henry

2005-11-24 Por tôpico plucaslazaro
Qual o modelo da sua catraca e versao da DLL para acesso?

Paulo
- Original Message - 
From: Cristian I Machado [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, November 24, 2005 8:49 AM
Subject: [delphi-br] Catraca Informatizada Henry


Pessoal, alguém tem um manual da dll da catraca informatizada Henry, ou
melhor, se tiver um pequeno exemplo em Delphi me ajudará e muito.

Desde já agradeço





Cristian





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





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 



Links do Yahoo! Grupos














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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 




Re: [delphi-br] Resumo 6245

2005-11-24 Por tôpico carlos
oi Andreano,
veja, suporte a .NET não é extensão da linguagem, é só um jeito diferente de
fazer a mesma coisa, e seus outros exemplos são ajustes e 
aperfeiçoamentos, mas
nada que não desse pra ser feito antes com um código um pouco maior ou menos
elegante, mas dava (os arrays eu havia comentado antes).
o que eu queria ver é código 64 bits e multiprocessamento real, números
complexos, uma biblioteca matemática decente... veja os exemplos que eu
coloquei do Fortran da Intel e me diga como eu posso competir com quem está,
HOJE, lançando softwares completos 64 bits/multiprocessados se o Delphi só vai
ter isso em 2008.
a Borland sempre anunciou que o Delphi (e o TP, a partir da versao 4) podia
fazer tudo o que as outras linguagens faziam...
ANTES que voce comente, não, .NET 64 bits não é processamento em 64 
bits e não,
threads do windows não é multiprocessamento real - eu não preciso de mais do
que 4GB de RAM, o que eu preciso é de ponto flutuante com precisão 
maior e mais
rápido e que permita dividir o cálculo de uma matriz huge em mais de um
processador, essa última parte eu consegui resolver mais ou menos 
comprando uma
biblioteca third-party, que também resolveu a fraqueza da unit math, 
mas suporte
a 64 bits precisa estar nativo.
[]s,
Carlos

  Assunto: RES: linguagem delphi estacionada

Olá Carlos,

vou ter que descordar do seu comentário

A linguagem Delphi está evoluindo sim e em todas as versões do Delphi. e
tanto em Win32 como em .NET

Só como exemplo:

Exemplos de novos recursos na linguagem:
- total suporte a plataforma .NET
- classes sealed, mecanimos para não permitir que as classes sejam herdadas.
- Strict private, syntax mais restritiva que o private
- Suporte a for in, você pode parar de fazer loop por contador e 
utilizar o for
in que é mais otimizado...
- Suporte a namespace
- Suporte a alocação dinâmica de arrays multi-dimensionais
- Operator Overload
- Suporte a record helper
- Suporte a overload, constructor, métodos estáticos, . em record

E muitas outras coisas...

Só o suporte a .NET é muita coisa, mas continuamos melhorando Win32 
também para
que os desenvolvedores que tenham legado possam continuar evoluindo suas
aplicações.

Outro ponto muito importante, muito usuários de Delphi utilizam versões
anteriores como 4, 5, 6,  e estão muito satisfeitos porque as tecnologias
incorporadas ao Delphi o atendem até hoje.


Abraços,

Andreano Lanusse
System Engineer
Borland Latin America
Tel: +55 (11) 2165.8089 / Mobile: +55 (11) 8196.5912
[EMAIL PROTECTED] mailto:[EMAIL PROTECTED]  - www.borland.com.br
blocked::http://www.borland.com.br/



A Borland Software é líder global em soluções independentes de 
plataforma para o
Software Delivery Optimization, auxiliando nossos clientes a resolverem as
restrições no desenvolvimento de aplicações nos dias de hoje, para maximizar o
valor do negócio de seu software.








De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome
de [EMAIL PROTECTED]
Enviada em: terça-feira, 22 de novembro de 2005 09:40
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] linguagem delphi estacionada


enquanto a Borland e a MS ficam re-inventando interfaces, os desenvolvimentos
das linguagens foram deixados de lado - a ultima coisa realmente importante
adicionada ao Delphi foi a matriz de extensao variavel (D4). enquanto isso,
chequem o que ja esta disponivel no Fortran 9 da Intel.
Carlos

The Next Generation of Fortran for Windows* Compiler

Intel Visual Fortran 9.0 for Windows

Intel Visual Fortran Compiler 9.0 for Windows* represent a joining of Fortran
technologies from Intel and Compaq* (now part of Hewlett-Packard). Intel code
generation, optimization, and parallel processing technologies combine 
with the
features, extensions, and language processing of Compaq Visual Fortran 
(CVF) to
create Fortran compilers that offer a robust feature set, along with unmatched
runtime performance. In most cases, you can rebuild existing applications with
the new compilers without source changes, but some applications may need minor
coding changes, and build methods may need minor adjustments.


Here are some features:

 Full support of Intel multi-core processors and Intel processors supporting
Intel EM64T, along with previous Intel processors and architectures

 Supports the latest dual-core desktop Intel Pentium D processor and Intel
Processors with Hyper-Threading Technology.

 Quadruple-precision floating point REAL(16) and COMPLEX(32)

 Automatic parallelization.

 OpenMP* support.

 Advanced optimization for new Intel processors.

 Code Coverage and Test Prioritization tools.

 Command Line Debugger (Intel Debugger).





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

* Para visitar o site do seu grupo 

Re: RES: [delphi-br] TransactionID - Dúvida

2005-11-24 Por tôpico Ricardo Cabral
Madsom,
   
  Primeiramente, valeu pela atenção. Mas se eu estiver usando rede, qual seria 
o procedimento? Pois vários usuário podem abrir a mesma tabela ao mesmo tempo 
em várias máquinas diferentes.
   
  

Madsom Silva [EMAIL PROTECTED] escreveu:
  Ricardo,
o TransactionID deve ser diferente para transações concorrente.
Se você abre e fecha a transação uma por vez ele pode ser sempre o mesmo.
Ex.:
Se vc abre uma transação para pedido e uma outra pra cliente (ao mesmo
tempo) elas tem quer ter números diferente.
Se vc abre a de pedido e fecha, depois abre a de cliente e fecha pode ser o
mesmo número.

Obs.: cuidado com sistemas MDI, aonde o usuário pode abrir vários
formulários ao mesmo tempo.

Sem mais,
Madsom.

  -Mensagem original-
  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Ricardo Cabral
  Enviada em: quarta-feira, 23 de novembro de 2005 16:46
  Para: delphi-br@yahoogrupos.com.br
  Assunto: [delphi-br] TransactionID - Dúvida


  Pessoal,

Gostaria de saber mais como usar o TransactionID em uma linguagem
simples. Por exemplo: Para cada transação eu tenho que colocar um ID
diferente. Exemplo: transação na tabela de vendas - TransactionID:=1,
transação na tabela de cliente, TransactionID:=2 e assim por diante.

Desde de já agradeço!!




  Abraços,

 Ricardo Cabral

  -
  Yahoo! Acesso Grátis: Internet rápida e grátis.
  Instale o discador agora!

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



  --
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





Yahoo! Grupos, um serviço oferecido por:
  PUBLICIDADE





--
  Links do Yahoo! Grupos

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

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

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


--
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.1.362 / Virus Database: 267.13.4/176 - Release Date: 20/11/2005


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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





Yahoo! Grupos, um serviço oferecido por:PUBLICIDADE
var lrec_target=_blank;var lrec_URL=new Array();  
lrec_URL[1]=http://br.rd.yahoo.com/SIG=12f0p5qra/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1132796543/A=2950750/R=0/id=flashurl/SIG=10tift5qr/*http://br.movies.yahoo.com/;;
  var 
lrec_flashfile=http://br.i1.yimg.com/br.yimg.com/i/br/ads6/0901_lrec_cinema_calendario.swf?clickTAG=javascript:LRECopenWindow(1);
  var 
lrec_altURL=http://br.rd.yahoo.com/SIG=12f0p5qra/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1132796543/A=2950750/R=1/id=altimg/SIG=10tift5qr/*http://br.movies.yahoo.com/;;
  var 
lrec_altimg=http://br.i1.yimg.com/br.yimg.com/i/br/ads6/0829_lrec_cinema_calendario.gif;;
  var lrec_width=300;var lrec_height=250;  
  
-
  Links do Yahoo! Grupos

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

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

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

  



Abraços,

   Ricardo Cabral

-
 Yahoo! Acesso Grátis: Internet rápida e grátis.
Instale o discador agora!

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 




[delphi-br] Transações Concorrentes

2005-11-24 Por tôpico Thiago
Desenvolvi uma aplicação (delphi6 + Firebird + IBX) onde tenho em várias telas 
a utilização da mesma tabela que tem como indice Empresa + Sequencia. Acontece 
volta e meia quando dois usuários solicitam uma transação em telas diferentes 
na mesma tabela de pegar a mesma sequencia e acabar não gravando uma das 
transações. Quais práticas devo adotar para que isso não ocorra?

Obrigado

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 




[delphi-br] Off Topic - Busca por uma oportunidade.

2005-11-24 Por tôpico Marcos Antonio
Bom dia colegas do grupo meu nome é Marco Antonio P. Fonseca , tenho 39 anos e 
sou casado , estou a um mes aqui em Brasilia , morava em São Paulo e lá 
trabalhei em varias empresas de TI como Telefonica , Xerox , Banco Zogbi entre 
outras tenho tambem bastante conhecimento em Oracle 8i e Sql Server 2.000 
(desenvolvimento de Stored Procedures) alem de modelagem fisica de conceitual e 
Analise e Projeto de Sistemas. Conheço bem a linguagem Delphi 7.0 , com ela 
desenvolvi diversos sistemas. 
  Gostaria de saber se alguns dos colegas conhecem aqui empresas de 
desenvolvimento de sistemas que trabalham com Delphi e que estejam precisando 
de mão de obra , me coloca a interia disposição para eventuais entrevistas.
   
  Desde já agradeço a atenção de todos.
  Marcos.
   


-
 Yahoo! Acesso Grátis: Internet rápida e grátis.
Instale o discador agora!

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 




[delphi-br] Richedit Avançado

2005-11-24 Por tôpico Voodoo

PessoALL,

alguém sabe como eu posso imprimir com o richedit linha-a-linha sem perder a 
formatação.
Tipo Assim: Leio a primeira linha e imprimo, leio a segunda linha e imprimo... 
preciso fazer isso para controlar a quantidade de linhas impressas.

Obrigado

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 





Re: [delphi-br] Re: OO - Relação 1 para N

2005-11-24 Por tôpico Francisco Trindade
Mas como isso fica implementado em codigo?


Sds.
Francisco


On 11/23/05, Daniel Polistchuck [EMAIL PROTECTED] wrote:

 Sim.

 Se você não adicionar sentido à associação, elas são bidirecionais. Do
 pedido vai ao cliente e do cliente aos pedidos.

 []s

 Daniel Polistchuck
 Consulting Services Manager
 Borland Software Corporation
 Tel: +55 (11) 2165-8047/ Cel: +55 (11) 8196-5947
 [EMAIL PROTECTED] - www.borland.com.br 
 http://www.borland.com.br/

 A Borland Software Corporation é líder global em soluções independentes de
 plataforma para o Software Delivery Optimization, auxiliando nossos clientes
 a resolverem as restrições no desenvolvimento de aplicações nos dias de
 hoje, para maximizar o valor do negócio de seu software



 

 From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
 On Behalf Of Francisco Trindade
 Sent: Wednesday, November 23, 2005 8:31 AM
 To: delphi-br@yahoogrupos.com.br
 Subject: Re: [delphi-br] Re: OO - Relação 1 para N


 Daniel,

 ja que vc entrou na discussao, tem como ser implementada uma relacao 1
 para
 N com bidirecionalidade no ECO? E 1 para 1?


 Sds.

 Francisco


 On 11/22/05, Daniel Polistchuck [EMAIL PROTECTED] wrote:
 
  Olá Romario,
 
  O ECO implementa 1 para N com uma lista de objetos do .NET. Esta lista é
  uma interface descendente de ICollection, implementada por um adapter ao
  redor do IList.
 
  [UmlCollection(TypeOf(Group))]
IGroupList = interface(ICollection)
  {$REGION 'ECO generated code'}
  function get_Item(index: Integer): Group;
  procedure set_Item(index: Integer; Value: Group);
  property Item[index: Integer]: Group read get_Item write set_Item;
  default;
  function Add(value: Group): Integer;
  function Contains(value: Group): Boolean;
  function IndexOf(value: Group): Integer;
  procedure Insert(index: Integer; value: Group);
  procedure Remove(value: Group);
  procedure Clear;
  procedure RemoveAt(index: Integer);
  {$ENDREGION 'ECO generated code'}
end;
 
  GroupListAdapter = class(ObjectListAdapter, IGroupList)
  public
constructor Create(source: IList);
function get_Item(index: Integer): Group;
procedure set_Item(index: Integer; Value: Group);
property Item[index: Integer]: Group read get_Item write set_Item;
  default;
function Add(value: Group): Integer;
function Contains(value: Group): Boolean;
function IndexOf(value: Group): Integer;
procedure Insert(index: Integer; value: Group);
procedure Remove(value: Group);
  end;
 
  []s
 
  Daniel Polistchuck
  Consulting Services Manager
  Borland Software Corporation
  Tel: +55 (11) 2165-8047/ Cel: +55 (11) 8196-5947
  [EMAIL PROTECTED] - www.borland.com.br 
  http://www.borland.com.br/
 
  A Borland Software Corporation é líder global em soluções independentes
 de
  plataforma para o Software Delivery Optimization, auxiliando nossos
 clientes
  a resolverem as restrições no desenvolvimento de aplicações nos dias de
  hoje, para maximizar o valor do negócio de seu software
 
 
 
  
 
  From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
  On Behalf Of Romario (Listas)
  Sent: Monday, November 21, 2005 7:09 PM
  To: delphi-br@yahoogrupos.com.br
  Subject: Re: [delphi-br] Re: OO - Relação 1 para N
 
 
  Olá Daniel!
 
  Eu até imagino o quanto deve ser produtivo utilizar o ECO, mas eu sou
  adepto da turma que quer entender como e o que foi feito. Dessa forma,
  vou aperfeiçoando meus conhecimentos em orientação a objetos. ;-)
 
  Sds,
 
  Romario
 
 
 
 
  Daniel Polistchuck escreveu:
   Olá Romário,
  
   Este é o tipo de coisa com o qual o ECO ajuda demais!
  
   Daniel Polistchuck
   Consulting Services Manager
   Borland Software Corporation
   Tel: +55 (11) 2165-8047/ Cel: +55 (11) 8196-5947
   [EMAIL PROTECTED] - www.borland.com.br 
  http://www.borland.com.br/
  
   A Borland Software Corporation é líder global em soluções
 independentes
  de plataforma para o Software Delivery Optimization, auxiliando nossos
  clientes a resolverem as restrições no desenvolvimento de aplicações nos
  dias de hoje, para maximizar o valor do negócio de seu software
 
 
 
 
 
  ___
  Yahoo! Acesso Grátis: Internet rápida e grátis.
  Instale o discador agora!
  http://br.acesso.yahoo.com/
 
 
 
  --
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
 
 
 
 
 
 
  Yahoo! Grupos, um serviço oferecido por:
  PUBLICIDADE
 
  
 
 http://br.rd.yahoo.com/SIG=12fvka9qd/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1132617071/A=2950750/R=2/id=noscript/SIG=10tift5qr/*http://br.movies.yahoo.com/
 
 
 
  
 
  Links do Yahoo! Grupos
 
 
  *  Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
 
  *  Para sair deste grupo, envie um e-mail 

[delphi-br] Exemplo de insert com DBExpress

2005-11-24 Por tôpico Cândido Luís Dias Ferreira
Povo

Embora pareça banal, não estou conseguindo fazer um insert com DBExpress. 
Está dando um erro.
Estou utilizando ClientDataSet, DataSetProvider e SQLQuery.

Alguém teria um trecho de código como exemplo de utilização desses 
componentes acima?

Atenciosamente

Cândido Luís Dias Ferreira
Tribunal Regional Eleitoral de São Paulo
Seção de Desenvolvimento


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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 




RE: [delphi-br] XML Mapper, onde encontro ?

2005-11-24 Por tôpico Rubem Nascimento da Rocha
O utilitário XML Mapper só está disponível nas versões Enterprise do Delphi 
a partir da versão 6. E outra, mesmo que vc consiga o XML Mapper de alguém 
que tenha a versão Enterprise pra usar como uma versão Professional, ele não 
vai funcionar devido a dependência de pacotes da versão Enterprise que o XML 
Mapper possui.

Pra quem não sabe, o XML Mapper permite criar arquivos de transformação XML 
para serem usados com o componente TXMLTransformProvider (também existente 
somente nas versões Enterprise) para acessar arquivos XML quaisquer através 
de um TClientDataSet. Pra mim, é a melhor forma de ter acesso a um XML, sem 
ter que recorrer ao famigerado TXMLDocument.

Pra quem não tem a versão Enterprise e precisa acessar documentos XML, o 
componente TXMLDocumento é a alternativa mais viável.

Sds.


From: Vinicius Barreira [EMAIL PROTECTED]
Reply-To: delphi-br@yahoogrupos.com.br
To: delphi-br@yahoogrupos.com.br,[EMAIL PROTECTED]
CC: 
[EMAIL PROTECTED],[EMAIL PROTECTED]
Subject: [delphi-br] XML Mapper, onde encontro ?
Date: Wed, 23 Nov 2005 14:46:04 -0200

Olá pessoal;

Preciso conectar com Soap num webservice com meu sistema win32, feito com 
delphi 7 professional.

Estava vendo uma revista de delphi que diz que preciso dum XML Mapper para 
formatar o xml, mas não tenho esse programa no meu cd original do delphi 
nem nos cds companion;

Vcs já usaram esse XML Mapper ? alguém faz idéia onde posso consegui-lo ?

Grato;

Vinicius Barreira
São Bernardo do Campo - SP
Delphi 7 + Firebird + DBExpress
Software para Hoteis




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


_
MSN Busca: fácil, rápido, direto ao ponto.  http://search.msn.com.br



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 




RE: [delphi-br] Re: OO - Relação 1 para N

2005-11-24 Por tôpico Daniel Polistchuck
Algo como
 
TCliente = class (...)
  (...)
  property Pedidos : TPedidoList; (...)
  (...)
end;
 
TPedido = class (...)
  (...)
  property  Cliente :TCliente; (...)
  (...)
end;
 
Abraço,
 
Daniel Polistchuck
Consulting Services Manager
Borland Software Corporation
Tel: +55 (11) 2165-8047/ Cel: +55 (11) 8196-5947
[EMAIL PROTECTED] - www.borland.com.br http://www.borland.com.br/ 
 
A Borland Software Corporation é líder global em soluções independentes de 
plataforma para o Software Delivery Optimization, auxiliando nossos clientes a 
resolverem as restrições no desenvolvimento de aplicações nos dias de hoje, 
para maximizar o valor do negócio de seu software

 



From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of 
Francisco Trindade
Sent: Thursday, November 24, 2005 1:40 PM
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] Re: OO - Relação 1 para N


Mas como isso fica implementado em codigo?


Sds.
Francisco


On 11/23/05, Daniel Polistchuck [EMAIL PROTECTED] wrote:

 Sim.

 Se você não adicionar sentido à associação, elas são bidirecionais. Do
 pedido vai ao cliente e do cliente aos pedidos.

 []s

 Daniel Polistchuck
 Consulting Services Manager
 Borland Software Corporation
 Tel: +55 (11) 2165-8047/ Cel: +55 (11) 8196-5947
 [EMAIL PROTECTED] - www.borland.com.br 
 http://www.borland.com.br/

 A Borland Software Corporation é líder global em soluções independentes de
 plataforma para o Software Delivery Optimization, auxiliando nossos clientes
 a resolverem as restrições no desenvolvimento de aplicações nos dias de
 hoje, para maximizar o valor do negócio de seu software



 

 From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
 On Behalf Of Francisco Trindade
 Sent: Wednesday, November 23, 2005 8:31 AM
 To: delphi-br@yahoogrupos.com.br
 Subject: Re: [delphi-br] Re: OO - Relação 1 para N


 Daniel,

 ja que vc entrou na discussao, tem como ser implementada uma relacao 1
 para
 N com bidirecionalidade no ECO? E 1 para 1?


 Sds.

 Francisco


 On 11/22/05, Daniel Polistchuck [EMAIL PROTECTED] wrote:
 
  Olá Romario,
 
  O ECO implementa 1 para N com uma lista de objetos do .NET. Esta lista é
  uma interface descendente de ICollection, implementada por um adapter ao
  redor do IList.
 
  [UmlCollection(TypeOf(Group))]
IGroupList = interface(ICollection)
  {$REGION 'ECO generated code'}
  function get_Item(index: Integer): Group;
  procedure set_Item(index: Integer; Value: Group);
  property Item[index: Integer]: Group read get_Item write set_Item;
  default;
  function Add(value: Group): Integer;
  function Contains(value: Group): Boolean;
  function IndexOf(value: Group): Integer;
  procedure Insert(index: Integer; value: Group);
  procedure Remove(value: Group);
  procedure Clear;
  procedure RemoveAt(index: Integer);
  {$ENDREGION 'ECO generated code'}
end;
 
  GroupListAdapter = class(ObjectListAdapter, IGroupList)
  public
constructor Create(source: IList);
function get_Item(index: Integer): Group;
procedure set_Item(index: Integer; Value: Group);
property Item[index: Integer]: Group read get_Item write set_Item;
  default;
function Add(value: Group): Integer;
function Contains(value: Group): Boolean;
function IndexOf(value: Group): Integer;
procedure Insert(index: Integer; value: Group);
procedure Remove(value: Group);
  end;
 
  []s
 
  Daniel Polistchuck
  Consulting Services Manager
  Borland Software Corporation
  Tel: +55 (11) 2165-8047/ Cel: +55 (11) 8196-5947
  [EMAIL PROTECTED] - www.borland.com.br 
  http://www.borland.com.br/
 
  A Borland Software Corporation é líder global em soluções independentes
 de
  plataforma para o Software Delivery Optimization, auxiliando nossos
 clientes
  a resolverem as restrições no desenvolvimento de aplicações nos dias de
  hoje, para maximizar o valor do negócio de seu software
 
 
 
  
 
  From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
  On Behalf Of Romario (Listas)
  Sent: Monday, November 21, 2005 7:09 PM
  To: delphi-br@yahoogrupos.com.br
  Subject: Re: [delphi-br] Re: OO - Relação 1 para N
 
 
  Olá Daniel!
 
  Eu até imagino o quanto deve ser produtivo utilizar o ECO, mas eu sou
  adepto da turma que quer entender como e o que foi feito. Dessa forma,
  vou aperfeiçoando meus conhecimentos em orientação a objetos. ;-)
 
  Sds,
 
  Romario
 
 
 
 
  Daniel Polistchuck escreveu:
   Olá Romário,
  
   Este é o tipo de coisa com o qual o ECO ajuda demais!
  
   Daniel Polistchuck
   Consulting Services Manager
   Borland Software Corporation
   Tel: +55 (11) 2165-8047/ Cel: +55 (11) 8196-5947
   [EMAIL PROTECTED] - www.borland.com.br 
  http://www.borland.com.br/
  
   A Borland Software Corporation é líder global em soluções
 independentes
  de plataforma para o 

Re: [delphi-br] Re: Executar Flash

2005-11-24 Por tôpico Ilton Vieira Junior
Então amigo.

O que eu estou utilizando é esse mesmo, ou pelo menos penso ser. Eu o 
intalei pelo Import ActiveX Control.
Porém, é necessário criar os arquivos fisicamente, pois eles estão 
armazenados em um banco de dados, e é exatamente o que eu não quero. 
Gostaria de criar um Stream e fazer o Flash rodar.

Obrigado,

Ilton

Leonardo Martins escreveu:

 Não precisa de componente amigo,
 Basta você usar uma OCX gratuita do Flash
 que vem no Delphi :)
 Se eu não me engano o nome é
 Shockwave Flash (Version 1.0)

 Espero ter ajudado.







-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 




Res: Re: RES: [delphi-br] TransactionID - Dúvida

2005-11-24 Por tôpico Miguel - DPF
Ricardo, pelo pouco q cheguei a aprender sobre transações sei q se você abre
e fecha as transações não tem problema nenhum, inclusive com o teu banco

eu uso assim, toda vez q vou fazer uma consulta, inserir , alterar ou
deletar dados abro a transação e fecho, já seja com commit ou rollback em
caso de erro


tipo você tem um botão q consulta ao banco

porcedure Tform1.buttonclick
var tc : TtransactionDesc;
begin

try
   tc.TransactionID := 1; // identifica a transação 
   tc.IsolationLevel := xilREADCOMMITTED; //pede pare ler unicamente os
dados comitados
   sqlconnection.startransaction(tc);//peço para q a coneção inicie a
transação com o banco
   whit sqlquery do
   begin
close;
   sql.clear;
   sql.add('select * from tabela');
   open;
   end;
   sqlconnection.commit(tc); //fecho a transação para evitar panes no
banco
 except
  on e : exception do
  begin
  sqlconnection.rollback(tc); //caso der pau vc cancela a transação, e
fica fechada de qualquer forma
  end;
  
end; 


mas tudo numa mesma operação, mesma coisa quando vamos salvar dados ou
deletar.

não sei se você usa o ibexpert para gerenciar o banco de dados, nele, para
você fechar , caso você este numa transação aberta ele sempre pede
para fazer o commit ou rollback mesmo num select básico da vida, li tambem
numa das listas acho q de firebird, q se você deixa transações 
sem terminar o banco acaba corrompido, por isso se vc deixa a transação
aberta e cai a força, ou o usuário fecha sem cancelar da
pane no banco aos pouquinhos

espero ter ajudado, e espero q você tenha me entendido, pois meu português
não é dos melhores.

[]s
 
 Miguel
Delphi na veia 
 
 
---Mensagem original---
 
De: Ricardo Cabral
Data: 11/24/05 09:25:04
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] TransactionID - Dúvida
 
Madsom,
   
  Primeiramente, valeu pela atenção. Mas se eu estiver usando rede, qual
seria o procedimento? Pois vários usuário podem abrir a mesma tabela ao
mesmo tempo em várias máquinas diferentes.
   
  

Madsom Silva [EMAIL PROTECTED] escreveu:
  Ricardo,
o TransactionID deve ser diferente para transações concorrente.
Se você abre e fecha a transação uma por vez ele pode ser sempre o mesmo.
Ex.:
Se vc abre uma transação para pedido e uma outra pra cliente (ao mesmo
tempo) elas tem quer ter números diferente.
Se vc abre a de pedido e fecha, depois abre a de cliente e fecha pode ser o
mesmo número.

Obs.: cuidado com sistemas MDI, aonde o usuário pode abrir vários
formulários ao mesmo tempo.

Sem mais,
Madsom.

  -Mensagem original-
  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Ricardo Cabral
  Enviada em: quarta-feira, 23 de novembro de 2005 16:46
  Para: delphi-br@yahoogrupos.com.br
  Assunto: [delphi-br] TransactionID - Dúvida


  Pessoal,

Gostaria de saber mais como usar o TransactionID em uma linguagem
simples. Por exemplo: Para cada transação eu tenho que colocar um ID
diferente. Exemplo: transação na tabela de vendas - TransactionID:=1,
transação na tabela de cliente, TransactionID:=2 e assim por diante.

Desde de já agradeço!!




  Abraços,

 Ricardo Cabral

  -
  Yahoo! Acesso Grátis: Internet rápida e grátis.
  Instale o discador agora!

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



  --
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





Yahoo! Grupos, um serviço oferecido por:
  PUBLICIDADE





--
  Links do Yahoo! Grupos

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

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

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


--
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.1.362 / Virus Database: 267.13.4/176 - Release Date: 20/11/2005


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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





Yahoo! Grupos, um serviço oferecido por:PUBLICIDADE
var lrec_target=_blank;var lrec_URL=new Array();  lrec_URL[1]=
http://br.rd.yahoo.com/SIG=12f0p5qra/M=365837.7000707.7924794
2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1132796543/A=2950750/R=0/id=flashu
l/SIG=10tift5qr/*http://br.movies.yahoo.com/;;  var lrec_flashfile=
http://br.i1.yimg.com/br.yimg.com/i/br/ads6/0901_lrec_cinema_calendario
swf?clickTAG=javascript:LRECopenWindow(1);  var lrec_altURL=http://br.rd
yahoo.com/SIG=12f0p5qra/M=365837.7000707.7924794
2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1132796543/A=2950750/R=1/id=altimg
SIG=10tift5qr/*http://br.movies.yahoo.com/;;  var lrec_altimg=http://br.i1
yimg.com/br.yimg.com/i/br/ads6/0829_lrec_cinema_calendario.gif;  var
lrec_width=300;var lrec_height=250;  

Re: [delphi-br] Obrigado Danilo - ProviderFlags - Mas... por favor esclareça.

2005-11-24 Por tôpico Danilo Rogério
Luis, desde que deixei de trabalhar com paradox, não uso mais campos fklookup.
   
  Esse erro que vc mencionou eu desconheço, mas imagino que este erro que vc 
está tendo esse erro, porque seu LookupComboBox está ligado a um lookupField(eu 
nunca liguei combobox em campo fklookup).
   
  Tente não criar este lookupfield, e simplesmente ligar o lookupcombobox a um 
clientdataset separado, e certifique-se que a query + datasetprovider + 
clientdataset estão ligados corretamente.
   
  Lembro-me que o Lichot falou uma vez, que sempre que possível deixe a tabela 
que sofrerá alterações(insert, update,delete) o mais simples possível(evitando 
muitos joins). Assim vc ganha em processamento de atualização, e evita, por 
exemplo a necessidade de sempre mexer muito nos providers flags.
   
  A não ser que vc seja o único programador, pois imagine uma equipe de 5 
programadores, e por ventura um deles vai, remove o campo e adiciona de novo... 
o provider foi perdido, e quando for para a produção vai dar PAU e se for 
um fim de semana, então, ou seu cliente for de outra cidade... Você está pego...
   
  Att.
  Danilo

Luis Lopes [EMAIL PROTECTED] escreveu:
  Danilo,

Pegando um gancho na discursão de vocês...

Num cadastro de clientes, onde tenho que informar qual
a cidade, como no seu exemplo, qual é a melhor forma
de trabalhar?

Eu sempre trabalhei criando um campo lookup (fkLookup)
no clientdataset (cliente, no caso do seu exemplo) e
na tela, coloco um DBLookupComboBox apontando para o
field lookup que criei. Essa é a melhor forma?

Outra coisa: (ainda seguindo o seu exemplo) quando vou
gravar o cliente, e dá algum erro na gravação (um
campo required que não informei, por exemplo), quando
tento escolher a cidade, novamente (depois do erro),
no DBLookupComboBox, aparece a mensagem 'Cursor
Unknow'. Tento novamente mais umas 2 ou 3 vezes e
passa. Procurei na net e as sugestões que encontrei
não resolveu o problema.

Poderia me ajudar com isso?

Abusando mais um pouco, outro erro que acontece muito
e, apesar de eu estar conseguindo resolver, eu ainda
não sei direito o que causa, é o 'invalid point
operation'

Sabe alguma coisa sobre isso?

Agradeço muito qualquer ajuda.

Luis Alberto.


--- Danilo Rogério [EMAIL PROTECTED]
escreveu:

 Vc nem precisaria fazer este campo lookup.

   Por ex: Se vc abrir o cadastro de cidade, fizer a
 inclusão de uma nova cidade, ao sair da tela vc ja
 pode atribuir ao campo ID_CIDADE, NOME_CIDADE(da sua
 query do cadastro de cliente) a nova cidade
 cadastrada.

   Att.
   Danilo
   
 User-BA [EMAIL PROTECTED] escreveu:
   
 Sua explanação sobre a configuração dos Flags foi
 por demais esclarecedora.
 
 Vou aproveita para abusar mais um pouco :)
 
 No seu exemplo, a SQL sugere que para a tela de
 cadastro de clientes 
 sempre será trazida uma cidade já cadastrada.
 (o que vale para os Updates e Deletes).
 
 Caso seja uma inclusão e a cidade ainda não esteja
 cadastrada, nesta 
 tela disponibilizamos de clientes uma opção para
 abrir a tela para o 
 cadastro da cidades.
 
 Ok! Tendo que fazer isto, você sugeriria que no
 cadastro de clientes 
 deveria ter um campo fazendo um (lookup/nome da
 cidade) entre 
 cidades/clientes para buscar/trazer o código da
 cidade? ou você sugere 
 alguma outra adaptação em SQL para este fim? Tipo:
 Um Lookup em SQL?
 
 Obrigado pela aula.
 Luciano-User-BA.
 
 Danilo Rogério wrote:
  Não entendi muito bem se COL_CHAVE também faz
 parte da chave primaria 
  da tabela DICAS(fazendo com que sua tabela tenha
 uma chave composta, 
  mas vou explicar detalhadamente, a maneira como eu
 trabalho

Tabela CIDADE
---
PK ID_CIDADE
  NOME_CIDADE

Tabela CLIENTE

PK ID_CLIENTE
 NOME_CLIENTE
FK ID_CIDADE 
 

onde PK é Primary Key(chave Primária) e FK é
 Foreign Key(Chave 
  Estrangeira), no caso de alguem desconhecer essas
 notações

Suponhamos que vamos fazer operações de
 inclusão, exclusão, 
  alteração na tabela CLIENTE, mas queremos mostrar
 o nome da cidade que 
  este cliente mora.

SELECT A.ID_CLIENTE, A.NOME_CLIENTE,
 A.ID_CIDADE, B.NOME_CIDADE
  FROM CLIENTE A, CIDADE B
WHERE A.ID_CIDADE = B.ID_CIDADE

Bem, vamos aos flags.

1) Estamos manipulando CLIENTES, certo? Portanto
 apenas as colunas 
  referentes a tabela de clientes devem ser
 atualizadas, ou seja, a 
  coluna NOME_CIDADE é meramente demonstrativa.

2)  Configure os providers flags do SQLDataset
 ou SQLQuery
  ID_CLIENTE(é a chave)
  pfInfUpdate = True
  pfInfWhere = True
  pfInfKey = True /// Porque esta coluna é a
 chave
  pfInfHidden = False

NOME_CLIENTE
  pfInfUpdate = True
  pfInfWhere = True
  pfInfKey = False
  pfInfHidden = False

ID_CIDADE(note que esse campo vem da tabela
 CLIENTE, portanto 
  deve ser atualizado)
  pfInfUpdate = True
  pfInfWhere = True
  

ENC: [delphi-br] Catraca Informatizada Henry

2005-11-24 Por tôpico Cristian I Machado
O modelo q tem é Catraca Informatizada
http://www.analogicanet.com.br/catracas.htm

A dll, foi a q peguei no site, é so isso q tenho.

 

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de plucaslazaro
Enviada em: quinta-feira, 24 de novembro de 2005 09:29
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Catraca Informatizada Henry

 

Qual o modelo da sua catraca e versao da DLL para acesso?

Paulo
- Original Message - 
From: Cristian I Machado [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, November 24, 2005 8:49 AM
Subject: [delphi-br] Catraca Informatizada Henry


Pessoal, alguém tem um manual da dll da catraca informatizada Henry, ou
melhor, se tiver um pequeno exemplo em Delphi me ajudará e muito.

Desde já agradeço





Cristian





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





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 



Links do Yahoo! Grupos










  

  

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 







Yahoo! Grupos, um serviço oferecido por:



PUBLICIDADE
 
http://br.rd.yahoo.com/SIG=12fubbi1v/M=365837.7000707.7924794.2369893/D=brc
lubs/S=2137111264:HM/Y=BR/EXP=1132841279/A=2950750/R=2/id=noscript/SIG=10tif
t5qr/*http:/br.movies.yahoo.com/ 

 
http://br.i1.yimg.com/br.yimg.com/i/br/ads6/0829_lrec_cinema_calendario.gif
 

 

  _  

Links do Yahoo! Grupos

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



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





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 





[delphi-br] Re: Executar Flash

2005-11-24 Por tôpico carlos
oi Leonardo,
precisa de componente, sim, não sei se voce viu a primeira mensagem dele, ele
quer rodar o flash sem salvar pro disco antes, e não dá pra fazer isso
simplesmente importando o ocx.
no such thing as a free lunch.
Carlos

 

 Mensagem: 8
 Data: Thu, 24 Nov 2005 08:43:45 -0200
   De: Leonardo Martins [EMAIL PROTECTED]
  Assunto: Re: Re: Executar Flash

 Não precisa de componente amigo,
 Basta você usar uma OCX gratuita do Flash
 que vem no Delphi :)
 Se eu não me engano o nome é
 Shockwave Flash (Version 1.0)

 Espero ter ajudado.

 Leonardo

  - Original Message -
  From: Ilton Vieira Junior
  To: delphi-br@yahoogrupos.com.br
  Sent: Wednesday, November 23, 2005 3:47 PM
  Subject: Re: [delphi-br] Re: Executar Flash


  Fico grato Carlos. Achei o componente, o nomé FlashPlayerControl, porém
  o que no site é só o demo :-(.
  Este Demo coloca uma tarja na frente do flash, dizendo Demo Flash e
  para comprar, custa 300 dolares. Completamente fora de meu orçamento.
  Mais alguma sugestão??

  Obrigado,

  Ilton

  [EMAIL PROTECTED] escreveu:

   oi Ílton,
   já vi um componente pra isso, tem sempre um link patrocinado deles no
   Torry´s:
   www.torry.net
   mas nao lembro o nome exato, voce pode importar o activeX do flash para
   o delphi
   mas aí vai precisar salvar no disco - que é o que voce nao quer, com esse
   componente eles prometem (nao testei) que dá pra faazer um stream em
   memoria.
   []s,




-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 




Re: Res: Re: RES: [delphi-br] TransactionID - Dúvida

2005-11-24 Por tôpico Ricardo Cabral
Caro Miguel,
   
  Eu faço a mesma coisa que você, só gostaria de tirar mesmo a dúvida. Ainda 
não consegui ver em qual situação usuaríamos um outro ID  para a transação. 
   
  Valeu!
   
   
  
Miguel - DPF [EMAIL PROTECTED] escreveu:
  Ricardo, pelo pouco q cheguei a aprender sobre transações sei q se você abre
e fecha as transações não tem problema nenhum, inclusive com o teu banco 

eu uso assim, toda vez q vou fazer uma consulta, inserir , alterar ou
deletar dados abro a transação e fecho, já seja com commit ou rollback em
caso de erro 


tipo você tem um botão q consulta ao banco 

porcedure Tform1.buttonclick 
var tc : TtransactionDesc; 
begin 

try 
   tc.TransactionID := 1; // identifica a transação 
   tc.IsolationLevel := xilREADCOMMITTED; //pede pare ler unicamente os
dados comitados 
   sqlconnection.startransaction(tc);//peço para q a coneção inicie a
transação com o banco 
   whit sqlquery do 
   begin 
close; 
   sql.clear; 
   sql.add('select * from tabela'); 
   open; 
   end; 
   sqlconnection.commit(tc); //fecho a transação para evitar panes no
banco 
except 
  on e : exception do 
  begin 
  sqlconnection.rollback(tc); //caso der pau vc cancela a transação, e
fica fechada de qualquer forma 
  end; 
  
end; 


mas tudo numa mesma operação, mesma coisa quando vamos salvar dados ou
deletar. 

não sei se você usa o ibexpert para gerenciar o banco de dados, nele, para
você fechar , caso você este numa transação aberta ele sempre pede 
para fazer o commit ou rollback mesmo num select básico da vida, li tambem
numa das listas acho q de firebird, q se você deixa transações 
sem terminar o banco acaba corrompido, por isso se vc deixa a transação
aberta e cai a força, ou o usuário fecha sem cancelar da 
pane no banco aos pouquinhos 

espero ter ajudado, e espero q você tenha me entendido, pois meu português
não é dos melhores. 

[]s 

Miguel 
Delphi na veia 


---Mensagem original--- 

De: Ricardo Cabral 
Data: 11/24/05 09:25:04 
Para: delphi-br@yahoogrupos.com.br 
Assunto: Re: RES: [delphi-br] TransactionID - Dúvida 

Madsom, 
   
  Primeiramente, valeu pela atenção. Mas se eu estiver usando rede, qual
seria o procedimento? Pois vários usuário podem abrir a mesma tabela ao
mesmo tempo em várias máquinas diferentes. 
   
  

Madsom Silva [EMAIL PROTECTED] escreveu: 
  Ricardo, 
o TransactionID deve ser diferente para transações concorrente. 
Se você abre e fecha a transação uma por vez ele pode ser sempre o mesmo. 
Ex.: 
Se vc abre uma transação para pedido e uma outra pra cliente (ao mesmo 
tempo) elas tem quer ter números diferente. 
Se vc abre a de pedido e fecha, depois abre a de cliente e fecha pode ser o 
mesmo número. 

Obs.: cuidado com sistemas MDI, aonde o usuário pode abrir vários 
formulários ao mesmo tempo. 

Sem mais, 
Madsom. 

  -Mensagem original- 
  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] 
nome de Ricardo Cabral 
  Enviada em: quarta-feira, 23 de novembro de 2005 16:46 
  Para: delphi-br@yahoogrupos.com.br 
  Assunto: [delphi-br] TransactionID - Dúvida 


  Pessoal, 

Gostaria de saber mais como usar o TransactionID em uma linguagem 
simples. Por exemplo: Para cada transação eu tenho que colocar um ID 
diferente. Exemplo: transação na tabela de vendas - TransactionID:=1, 
transação na tabela de cliente, TransactionID:=2 e assim por diante. 

Desde de já agradeço!! 




  Abraços, 

 Ricardo Cabral 

  - 
  Yahoo! Acesso Grátis: Internet rápida e grátis. 
  Instale o discador agora! 

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



  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM  





Yahoo! Grupos, um serviço oferecido por: 
  PUBLICIDADE 




 
-- 
  Links do Yahoo! Grupos 

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

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

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


-- 
No virus found in this outgoing message. 
Checked by AVG Free Edition. 
Version: 7.1.362 / Virus Database: 267.13.4/176 - Release Date: 20/11/2005 


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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM  





Yahoo! Grupos, um serviço oferecido por:PUBLICIDADE 
var lrec_target=_blank;var lrec_URL=new Array();  lrec_URL[1]=
http://br.rd.yahoo.com/SIG=12f0p5qra/M=365837.7000707.7924794
2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1132796543/A=2950750/R=0/id=flashu
l/SIG=10tift5qr/*http://br.movies.yahoo.com/;;  var lrec_flashfile=
http://br.i1.yimg.com/br.yimg.com/i/br/ads6/0901_lrec_cinema_calendario
swf?clickTAG=javascript:LRECopenWindow(1);  var 

Re: [delphi-br] Re: OO - Relação 1 para N

2005-11-24 Por tôpico Francisco Trindade
Isso nao ocasionaria uma referencia circular?

TCliente conhece TPedidoList, que conhece TPedido, que por sua vez conhece
TCliente

Sds.
Francisco


On 11/24/05, Daniel Polistchuck [EMAIL PROTECTED] wrote:

 Algo como

 TCliente = class (...)
   (...)
   property Pedidos : TPedidoList; (...)
   (...)
 end;

 TPedido = class (...)
   (...)
   property  Cliente :TCliente; (...)
   (...)
 end;

 Abraço,

 Daniel Polistchuck
 Consulting Services Manager
 Borland Software Corporation
 Tel: +55 (11) 2165-8047/ Cel: +55 (11) 8196-5947
 [EMAIL PROTECTED] - www.borland.com.br 
 http://www.borland.com.br/

 A Borland Software Corporation é líder global em soluções independentes de
 plataforma para o Software Delivery Optimization, auxiliando nossos clientes
 a resolverem as restrições no desenvolvimento de aplicações nos dias de
 hoje, para maximizar o valor do negócio de seu software



 

 From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
 On Behalf Of Francisco Trindade
 Sent: Thursday, November 24, 2005 1:40 PM
 To: delphi-br@yahoogrupos.com.br
 Subject: Re: [delphi-br] Re: OO - Relação 1 para N


 Mas como isso fica implementado em codigo?


 Sds.
 Francisco


 On 11/23/05, Daniel Polistchuck [EMAIL PROTECTED] wrote:
 
  Sim.
 
  Se você não adicionar sentido à associação, elas são bidirecionais. Do
  pedido vai ao cliente e do cliente aos pedidos.
 
  []s
 
  Daniel Polistchuck
  Consulting Services Manager
  Borland Software Corporation
  Tel: +55 (11) 2165-8047/ Cel: +55 (11) 8196-5947
  [EMAIL PROTECTED] - www.borland.com.br 
  http://www.borland.com.br/
 
  A Borland Software Corporation é líder global em soluções independentes
 de
  plataforma para o Software Delivery Optimization, auxiliando nossos
 clientes
  a resolverem as restrições no desenvolvimento de aplicações nos dias de
  hoje, para maximizar o valor do negócio de seu software
 
 
 
  
 
  From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
  On Behalf Of Francisco Trindade
  Sent: Wednesday, November 23, 2005 8:31 AM
  To: delphi-br@yahoogrupos.com.br
  Subject: Re: [delphi-br] Re: OO - Relação 1 para N
 
 
  Daniel,
 
  ja que vc entrou na discussao, tem como ser implementada uma relacao 1
  para
  N com bidirecionalidade no ECO? E 1 para 1?
 
 
  Sds.
 
  Francisco
 
 
  On 11/22/05, Daniel Polistchuck [EMAIL PROTECTED] wrote:
  
   Olá Romario,
  
   O ECO implementa 1 para N com uma lista de objetos do .NET. Esta lista
 é
   uma interface descendente de ICollection, implementada por um adapter
 ao
   redor do IList.
  
   [UmlCollection(TypeOf(Group))]
 IGroupList = interface(ICollection)
   {$REGION 'ECO generated code'}
   function get_Item(index: Integer): Group;
   procedure set_Item(index: Integer; Value: Group);
   property Item[index: Integer]: Group read get_Item write set_Item;
   default;
   function Add(value: Group): Integer;
   function Contains(value: Group): Boolean;
   function IndexOf(value: Group): Integer;
   procedure Insert(index: Integer; value: Group);
   procedure Remove(value: Group);
   procedure Clear;
   procedure RemoveAt(index: Integer);
   {$ENDREGION 'ECO generated code'}
 end;
  
   GroupListAdapter = class(ObjectListAdapter, IGroupList)
   public
 constructor Create(source: IList);
 function get_Item(index: Integer): Group;
 procedure set_Item(index: Integer; Value: Group);
 property Item[index: Integer]: Group read get_Item write
 set_Item;
   default;
 function Add(value: Group): Integer;
 function Contains(value: Group): Boolean;
 function IndexOf(value: Group): Integer;
 procedure Insert(index: Integer; value: Group);
 procedure Remove(value: Group);
   end;
  
   []s
  
   Daniel Polistchuck
   Consulting Services Manager
   Borland Software Corporation
   Tel: +55 (11) 2165-8047/ Cel: +55 (11) 8196-5947
   [EMAIL PROTECTED] - www.borland.com.br 
   http://www.borland.com.br/
  
   A Borland Software Corporation é líder global em soluções
 independentes
  de
   plataforma para o Software Delivery Optimization, auxiliando nossos
  clientes
   a resolverem as restrições no desenvolvimento de aplicações nos dias
 de
   hoje, para maximizar o valor do negócio de seu software
  
  
  
   
  
   From: delphi-br@yahoogrupos.com.br [mailto:
 [EMAIL PROTECTED]
   On Behalf Of Romario (Listas)
   Sent: Monday, November 21, 2005 7:09 PM
   To: delphi-br@yahoogrupos.com.br
   Subject: Re: [delphi-br] Re: OO - Relação 1 para N
  
  
   Olá Daniel!
  
   Eu até imagino o quanto deve ser produtivo utilizar o ECO, mas eu sou
   adepto da turma que quer entender como e o que foi feito. Dessa forma,
   vou aperfeiçoando meus conhecimentos em orientação a objetos. ;-)
  
   Sds,
  
   Romario
  
  
  
  
   Daniel Polistchuck escreveu:
Olá Romário,
   
Este é 

Re: [delphi-br] Exemplo de insert com DBExpress

2005-11-24 Por tôpico Danilo Rogério
1) Vamos as ligações
 Query Ligada no SqlConection pela propriedade SQLConection
 DataSetProvider ligado na Query pela propriedade DataSet
 ClientDataset ligado no DataSetProvider pela propriedade ProviderName
 DataSource ligado no ClientDataSet pela propriedade DataSet
   
  2) Um caso simples
 SELECT COD_CLIENTE, NOME FROM CLIENTE
   
  3) Seu trecho ficaria assim:
   
// Abre a tabela
ClientDataset.Close;
ClientDataset.Open;
   
// Coloca em modo de inserção
ClientDataSet.Insert;
// Manipula os dados no seu DBEDit e depois faça o seguinte, em um botão 
salvar
 ClientDataSet.Post;
// Esta linha abaixo gravará no banco de dados
ClientDataSet.ApplyUpdates(0);
   
  Espero ter ajudado,
  Danilo
// Depois disso em um ouro 

Cândido Luís Dias Ferreira [EMAIL PROTECTED] escreveu:
  Povo

Embora pareça banal, não estou conseguindo fazer um insert com DBExpress. 
Está dando um erro.
Estou utilizando ClientDataSet, DataSetProvider e SQLQuery.

Alguém teria um trecho de código como exemplo de utilização desses 
componentes acima?

Atenciosamente

Cândido Luís Dias Ferreira
Tribunal Regional Eleitoral de São Paulo
Seção de Desenvolvimento


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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





Yahoo! Grupos, um serviço oferecido por:PUBLICIDADE
var lrec_target=_blank;var lrec_URL=new Array();  
lrec_URL[1]=http://br.rd.yahoo.com/SIG=12fvnci9u/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1132854129/A=2950750/R=0/id=flashurl/SIG=10tift5qr/*http://br.movies.yahoo.com/;;
  var 
lrec_flashfile=http://br.i1.yimg.com/br.yimg.com/i/br/ads6/0901_lrec_cinema_calendario.swf?clickTAG=javascript:LRECopenWindow(1);
  var 
lrec_altURL=http://br.rd.yahoo.com/SIG=12fvnci9u/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1132854129/A=2950750/R=1/id=altimg/SIG=10tift5qr/*http://br.movies.yahoo.com/;;
  var 
lrec_altimg=http://br.i1.yimg.com/br.yimg.com/i/br/ads6/0829_lrec_cinema_calendario.gif;;
  var lrec_width=300;var lrec_height=250;  
  
-
  Links do Yahoo! Grupos

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

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

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

  



-
 Yahoo! Acesso Grátis: Internet rápida e grátis.
Instale o discador agora!

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 





[delphi-br] Projeto Pontual na Borland

2005-11-24 Por tôpico patty_mrbr
A WA Informática busca profissionais que tenham dominio no Delphi (7.0) 
para atuar em projeto de 1 mês na Borland. Local de atuação região da 
Paulista. Interessados favor encaminhar cv por email colocando no 
assunto Delphi vaga Borland e no corpo da mensagem a pretensão de v/h.

Att.,

Patricia Reis 
([EMAIL PROTECTED])




-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 




[delphi-br] CAMPO MEMO

2005-11-24 Por tôpico info.desenvolvimento
Pessoal alguem pode me ajudar?
Estou tentando digitar no campo memo direto para uma tabela, alguem pode me 
ajudar?
Tabela paradox.
Estou usando delphi 5
Meu forme tem os seguintes componentes: tres botõem (LIMPA TEXT, EDITA TEXT E 
GRAVA TEXTO) Limpar eu já consegui.
Como eu faço para editar o memo e depois gravar aquilço que eu for digitar na 
tabela.

PAULO FERNANDES
PORTO ALEGRE



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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 




RE: [delphi-br] Re: OO - Relação 1 para N

2005-11-24 Por tôpico Daniel Polistchuck
A declaração mais completa seria
 
TPedido = class (..);  //forward declaration
 
TPedidoList = class(...)
(...)
end;
 
TCliente = class(...)
  (...)
  property Pedidos :TPedidoList;
  (...)
end;
 
TPedido = class
  (...)
  Cliente: TCliente;
  (...)
end;
 
 
Daniel Polistchuck
Consulting Services Manager
Borland Software Corporation
Tel: +55 (11) 2165-8047/ Cel: +55 (11) 8196-5947
[EMAIL PROTECTED] - www.borland.com.br http://www.borland.com.br/ 
 
A Borland Software Corporation é líder global em soluções independentes de 
plataforma para o Software Delivery Optimization, auxiliando nossos clientes a 
resolverem as restrições no desenvolvimento de aplicações nos dias de hoje, 
para maximizar o valor do negócio de seu software

 



From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of 
Francisco Trindade
Sent: Thursday, November 24, 2005 3:59 PM
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] Re: OO - Relação 1 para N


Isso nao ocasionaria uma referencia circular?

TCliente conhece TPedidoList, que conhece TPedido, que por sua vez conhece
TCliente

Sds.
Francisco


On 11/24/05, Daniel Polistchuck [EMAIL PROTECTED] wrote:

 Algo como

 TCliente = class (...)
   (...)
   property Pedidos : TPedidoList; (...)
   (...)
 end;

 TPedido = class (...)
   (...)
   property  Cliente :TCliente; (...)
   (...)
 end;

 Abraço,

 Daniel Polistchuck
 Consulting Services Manager
 Borland Software Corporation
 Tel: +55 (11) 2165-8047/ Cel: +55 (11) 8196-5947
 [EMAIL PROTECTED] - www.borland.com.br 
 http://www.borland.com.br/

 A Borland Software Corporation é líder global em soluções independentes de
 plataforma para o Software Delivery Optimization, auxiliando nossos clientes
 a resolverem as restrições no desenvolvimento de aplicações nos dias de
 hoje, para maximizar o valor do negócio de seu software



 

 From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
 On Behalf Of Francisco Trindade
 Sent: Thursday, November 24, 2005 1:40 PM
 To: delphi-br@yahoogrupos.com.br
 Subject: Re: [delphi-br] Re: OO - Relação 1 para N


 Mas como isso fica implementado em codigo?


 Sds.
 Francisco


 On 11/23/05, Daniel Polistchuck [EMAIL PROTECTED] wrote:
 
  Sim.
 
  Se você não adicionar sentido à associação, elas são bidirecionais. Do
  pedido vai ao cliente e do cliente aos pedidos.
 
  []s
 
  Daniel Polistchuck
  Consulting Services Manager
  Borland Software Corporation
  Tel: +55 (11) 2165-8047/ Cel: +55 (11) 8196-5947
  [EMAIL PROTECTED] - www.borland.com.br 
  http://www.borland.com.br/
 
  A Borland Software Corporation é líder global em soluções independentes
 de
  plataforma para o Software Delivery Optimization, auxiliando nossos
 clientes
  a resolverem as restrições no desenvolvimento de aplicações nos dias de
  hoje, para maximizar o valor do negócio de seu software
 
 
 
  
 
  From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
  On Behalf Of Francisco Trindade
  Sent: Wednesday, November 23, 2005 8:31 AM
  To: delphi-br@yahoogrupos.com.br
  Subject: Re: [delphi-br] Re: OO - Relação 1 para N
 
 
  Daniel,
 
  ja que vc entrou na discussao, tem como ser implementada uma relacao 1
  para
  N com bidirecionalidade no ECO? E 1 para 1?
 
 
  Sds.
 
  Francisco
 
 
  On 11/22/05, Daniel Polistchuck [EMAIL PROTECTED] wrote:
  
   Olá Romario,
  
   O ECO implementa 1 para N com uma lista de objetos do .NET. Esta lista
 é
   uma interface descendente de ICollection, implementada por um adapter
 ao
   redor do IList.
  
   [UmlCollection(TypeOf(Group))]
 IGroupList = interface(ICollection)
   {$REGION 'ECO generated code'}
   function get_Item(index: Integer): Group;
   procedure set_Item(index: Integer; Value: Group);
   property Item[index: Integer]: Group read get_Item write set_Item;
   default;
   function Add(value: Group): Integer;
   function Contains(value: Group): Boolean;
   function IndexOf(value: Group): Integer;
   procedure Insert(index: Integer; value: Group);
   procedure Remove(value: Group);
   procedure Clear;
   procedure RemoveAt(index: Integer);
   {$ENDREGION 'ECO generated code'}
 end;
  
   GroupListAdapter = class(ObjectListAdapter, IGroupList)
   public
 constructor Create(source: IList);
 function get_Item(index: Integer): Group;
 procedure set_Item(index: Integer; Value: Group);
 property Item[index: Integer]: Group read get_Item write
 set_Item;
   default;
 function Add(value: Group): Integer;
 function Contains(value: Group): Boolean;
 function IndexOf(value: Group): Integer;
 procedure Insert(index: Integer; value: Group);
 procedure Remove(value: Group);
   end;
  
   []s
  
   Daniel Polistchuck
   Consulting Services Manager
   Borland Software Corporation
   Tel: +55 (11) 2165-8047/ Cel: +55 (11) 

[delphi-br] Gente uma ajuda por favor

2005-11-24 Por tôpico Leonardo Martins
Ninguém pode me ajudar e resolver esse problema?
O programa está pronto...
Sò gostaria de entender porque acontece isso...

Consigo converter a imagem tranquilamente,
porém imagens grandes ficam com tamanho pequeno
e imagens pequenas com tamanho grande...
Porque issO?
´Seria meu código?

Por favor, precisava de uma ajuda urgente mesmo...


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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 




Re: [delphi-br] Gente uma ajuda por favor

2005-11-24 Por tôpico Denise
Manda o código que fica mais fácil de entender o que vc está fazendo!
  - Original Message - 
  From: Leonardo Martins 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, November 24, 2005 2:57 PM
  Subject: [delphi-br] Gente uma ajuda por favor


  Ninguém pode me ajudar e resolver esse problema?
  O programa está pronto...
  Sò gostaria de entender porque acontece isso...

  Consigo converter a imagem tranquilamente,
  porém imagens grandes ficam com tamanho pequeno
  e imagens pequenas com tamanho grande...
  Porque issO?
  ´Seria meu código?

  Por favor, precisava de uma ajuda urgente mesmo...


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



  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





Yahoo! Grupos, um serviço oferecido por: 
  PUBLICIDADE

   


--
  Links do Yahoo! Grupos

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



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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 





[delphi-br] Erro no Delphi com Oracle

2005-11-24 Por tôpico Paulo
Pessoal:

Um colega me enviou uma pergunta, mas eu nunca acessei o Oracle com Delphi.

Se alguem tiver alguma dica, agradeco muito se enviar.

 Vocês já viram a msg Blob not opened, quando tentamos dar um post em uma 
 query após alterar um campo memo ? A  base é oracle e o campo é do tipo 
 varchar2(2000) ...


Grato pela atencao de todos
Paulo

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 





RE: [delphi-br] Gente uma ajuda por favor

2005-11-24 Por tôpico Daniel Polistchuck
Seu componente TImage deve estar com Stretch := True. 
Faça o seguinte:
 
1) Coloque um TScrollBox em seu Form
2) Coloque o TImage no ScrollBox (com Left e Top = 0)
3) Coloque False no TImage.Stretch
4) Coloque TImage.AutoSize := True.
 
[]s
 
Daniel Polistchuck
Consulting Services Manager
Borland Software Corporation
Tel: +55 (11) 2165-8047/ Cel: +55 (11) 8196-5947
[EMAIL PROTECTED] - www.borland.com.br http://www.borland.com.br/ 
 
A Borland Software Corporation é líder global em soluções independentes de 
plataforma para o Software Delivery Optimization, auxiliando nossos clientes a 
resolverem as restrições no desenvolvimento de aplicações nos dias de hoje, 
para maximizar o valor do negócio de seu software

 



From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of 
Leonardo Martins
Sent: Thursday, November 24, 2005 2:57 PM
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Gente uma ajuda por favor


Ninguém pode me ajudar e resolver esse problema?
O programa está pronto...
Sò gostaria de entender porque acontece isso...

Consigo converter a imagem tranquilamente,
porém imagens grandes ficam com tamanho pequeno
e imagens pequenas com tamanho grande...
Porque issO?
´Seria meu código?

Por favor, precisava de uma ajuda urgente mesmo...


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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 






Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE

 
http://br.rd.yahoo.com/SIG=12fbc50ne/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1132866092/A=2950750/R=2/id=noscript/SIG=10tift5qr/*http://br.movies.yahoo.com/
 



Links do Yahoo! Grupos


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




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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 





[delphi-br] Gerenciador de dispositivos

2005-11-24 Por tôpico ifabiano
Alguém sabe como alterar as configurações dos dispositivos ( Painel de 
controle  - sistema - Hardware - Gerenciador de dispositivos ) via 
programação.

E que estou querendo mudar as propriedades da porta LPT1 via 
programação.






-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 




[delphi-br] RES: Diga qual foi a solução...

2005-11-24 Por tôpico Levi Ribeiro de Freitas
Solução:
 
Colocar nos flags do sqldataset quais os campos que seriam atualizados e no
evento OnGetTableName do datasetprovider a tabela que irá sofrer as
atualizações.
 
Um abraço,
 
Levi

  _  

De: Danilo Rogério [mailto:[EMAIL PROTECTED] 
Enviada em: quinta-feira, 24 de novembro de 2005 13:07
Para: [EMAIL PROTECTED]
Assunto: Diga qual foi a solução...


Levi, tudo bom...
 
Que bom que seu problema foi solucionado...Mas poste na lista o que tinha de
errado...
 
Era as letras minúsculas ou faltou o evento OnGetTableName???
 
Att.
Danilo


  _  

Yahoo! Acesso Grátis: Internet rápida e grátis.
Instale
http://us.rd.yahoo.com/mail/br/tagline/discador/*http://br.acesso.yahoo.com
/ o discador agora!


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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 





Re: [delphi-br] Gente uma ajuda por favor

2005-11-24 Por tôpico Leonardo Martins
Essa é a procedure que eu eu executo...
É simples...

procedure TFrmPrincipal.ConverteImagem(index: Integer);
var
  Redimensionar,ScalaCinza,Comprimir: Boolean;
  qualidade: TJPEGQualityRange;
begin
  Redimensionar := chkbxred.Checked;
  ScalaCinza := chkbxpb.Checked;
  Comprimir := chkbxComp.Checked;
  imgBmp := TBitmap.Create;
  imgJpeg := TJPEGImage.Create;
  caminho := lstbxbmp.Items.Strings[index];
  caminhoex := caminho;
  Delete(caminhoex,Pos('.',caminhoex),4);
  if FileExists(caminho) then
  begin
imgBmp.LoadFromFile(caminho);

if Redimensionar then
begin
  imgBmp.Width := StrToInt(edtW.Text);
  imgBmp.Height := StrToInt(edtH.Text);
end;

imgJpeg.Assign(imgBmp);
imgJpeg.CompressionQuality := 50;
imgJpeg.Compress;

if ScalaCinza then
  imgJpeg.Grayscale := true;

if Comprimir then
begin
  qualidade := StrToInt(edtQualidade.Text);
  imgJpeg.CompressionQuality := qualidade;
  imgJpeg.Compress;
end;
  end;
  
end;

Ta ae...
  - Original Message - 
  From: Denise 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, November 24, 2005 5:03 PM
  Subject: Re: [delphi-br] Gente uma ajuda por favor


  Manda o código que fica mais fácil de entender o que vc está fazendo!
- Original Message - 
From: Leonardo Martins 
To: delphi-br@yahoogrupos.com.br 
Sent: Thursday, November 24, 2005 2:57 PM
Subject: [delphi-br] Gente uma ajuda por favor


Ninguém pode me ajudar e resolver esse problema?
O programa está pronto...
Sò gostaria de entender porque acontece isso...

Consigo converter a imagem tranquilamente,
porém imagens grandes ficam com tamanho pequeno
e imagens pequenas com tamanho grande...
Porque issO?
´Seria meu código?

Por favor, precisava de uma ajuda urgente mesmo...


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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





  Yahoo! Grupos, um serviço oferecido por: 
PUBLICIDADE
  
 


  --
Links do Yahoo! Grupos

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

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

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



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



  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





Yahoo! Grupos, um serviço oferecido por: 
  PUBLICIDADE

   


--
  Links do Yahoo! Grupos

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



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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 




Re: [delphi-br] Gente uma ajuda por favor

2005-11-24 Por tôpico Leonardo Martins
Daniel, 

Estou criando as imagens na mão..
Estou convertendo dando um Bmp.Assign(JPEG)
Só que eu percebi isso, com as imagens, pequenas,
as imagens em preto e branco ele está aumentando o
tamanho e eu preciso que o tamanho seja reduzido...
Mas ele só reduz as imagens grandes :/
Preciso de resolver isso, pessoal...

Obrigado,

Att

Leonardo
  - Original Message - 
  From: Daniel Polistchuck 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, November 24, 2005 5:22 PM
  Subject: RE: [delphi-br] Gente uma ajuda por favor


  Seu componente TImage deve estar com Stretch := True. 
  Faça o seguinte:

  1) Coloque um TScrollBox em seu Form
  2) Coloque o TImage no ScrollBox (com Left e Top = 0)
  3) Coloque False no TImage.Stretch
  4) Coloque TImage.AutoSize := True.

  []s

  Daniel Polistchuck
  Consulting Services Manager
  Borland Software Corporation
  Tel: +55 (11) 2165-8047/ Cel: +55 (11) 8196-5947
  [EMAIL PROTECTED] - www.borland.com.br http://www.borland.com.br/ 

  A Borland Software Corporation é líder global em soluções independentes de 
plataforma para o Software Delivery Optimization, auxiliando nossos clientes a 
resolverem as restrições no desenvolvimento de aplicações nos dias de hoje, 
para maximizar o valor do negócio de seu software



  

  From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of 
Leonardo Martins
  Sent: Thursday, November 24, 2005 2:57 PM
  To: delphi-br@yahoogrupos.com.br
  Subject: [delphi-br] Gente uma ajuda por favor


  Ninguém pode me ajudar e resolver esse problema?
  O programa está pronto...
  Sò gostaria de entender porque acontece isso...

  Consigo converter a imagem tranquilamente,
  porém imagens grandes ficam com tamanho pequeno
  e imagens pequenas com tamanho grande...
  Porque issO?
  ´Seria meu código?

  Por favor, precisava de uma ajuda urgente mesmo...


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



  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 






  Yahoo! Grupos, um serviço oferecido por:  
  PUBLICIDADE

  
http://br.rd.yahoo.com/SIG=12fbc50ne/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1132866092/A=2950750/R=2/id=noscript/SIG=10tift5qr/*http://br.movies.yahoo.com/
 

  

  Links do Yahoo! Grupos


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




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



  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





Yahoo! Grupos, um serviço oferecido por: 
  PUBLICIDADE

   


--
  Links do Yahoo! Grupos

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



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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 




[delphi-br] Gente uma ajuda por favor

2005-11-24 Por tôpico Leonardo Martins
Ninguém pode me ajudar e resolver esse problema?
O programa está pronto...
Sò gostaria de entender porque acontece isso...

Consigo converter a imagem tranquilamente,
porém imagens grandes ficam com tamanho pequeno
e imagens pequenas com tamanho grande...
Porque issO?
´Seria meu código?

Por favor, precisava de uma ajuda urgente mesmo...


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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 




Re: [delphi-br] Erro no Delphi com Oracle

2005-11-24 Por tôpico Marcio Melli Silvestre
Existem diversas maneiras de conectar o Oracle no
Delphi. No estilo de programação escolhido por mim, a
melhor forma de conectar tem sido o dbExpress que vem 
Delphi desde a versão 7.




--- Paulo [EMAIL PROTECTED] escreveu:


-
Pessoal:

Um colega me enviou uma pergunta, mas eu nunca acessei
o Oracle com Delphi.

Se alguem tiver alguma dica, agradeco muito se enviar.

 Vocês já viram a msg Blob not opened, quando
tentamos dar um post em uma query após alterar um
campo memo ? A  base é oracle e o campo é do tipo
varchar2(2000) ...


Grato pela atencao de todos
Paulo

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA
MENSAGEM 

http://br.groups.yahoo.com/group/delphi-br/messages



  
  Yahoo! Grupos, um serviço oferecido
por:PUBLICIDADE
var lrec_target=_blank;var lrec_URL=new
Array();lrec_URL[1]=http://br.rd.yahoo.com/SIG=12fcs9bkb/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1132866653/A=2950750/R=0/id=flashurl/SIG=10tift5qr/*http://br.movies.yahoo.com/;var
lrec_flashfile=http://br.i1.yimg.com/br.yimg.com/i/br/ads6/0901_lrec_cinema_calendario.swf?clickTAG=javascript:LRECopenWindow(1);var
lrec_altURL=http://br.rd.yahoo.com/SIG=12fcs9bkb/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1132866653/A=2950750/R=1/id=altimg/SIG=10tift5qr/*http://br.movies.yahoo.com/;var
lrec_altimg=http://br.i1.yimg.com/br.yimg.com/i/br/ads6/0829_lrec_cinema_calendario.gif;var
lrec_width=300;var lrec_height=250;   
  
  
-
Links do Yahoo! Grupos

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










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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 




Re: [delphi-br] Exemplo de insert com DBExpress

2005-11-24 Por tôpico Marcio Melli Silvestre
Valeu Danilo, acho que o esquema que você demostrou
abaixo vai servir para fazer uns testes no Oracle 9i




--- Danilo Rogério [EMAIL PROTECTED]
escreveu:


-
1) Vamos as ligações
 Query Ligada no SqlConection pela propriedade
SQLConection
 DataSetProvider ligado na Query pela propriedade
DataSet
 ClientDataset ligado no DataSetProvider pela
propriedade ProviderName
 DataSource ligado no ClientDataSet pela
propriedade DataSet
   
  2) Um caso simples
 SELECT COD_CLIENTE, NOME FROM CLIENTE
   
  3) Seu trecho ficaria assim:
   
// Abre a tabela
ClientDataset.Close;
ClientDataset.Open;
   
// Coloca em modo de inserção
ClientDataSet.Insert;
// Manipula os dados no seu DBEDit e depois faça o
seguinte, em um botão salvar
 ClientDataSet.Post;
// Esta linha abaixo gravará no banco de dados
ClientDataSet.ApplyUpdates(0);
   
  Espero ter ajudado,
  Danilo
// Depois disso em um ouro 

Cândido Luís Dias Ferreira [EMAIL PROTECTED]
escreveu:
  Povo

Embora pareça banal, não estou conseguindo fazer
um insert com DBExpress. Está dando um erro.
Estou utilizando ClientDataSet, DataSetProvider e
SQLQuery.

Alguém teria um trecho de código como exemplo de
utilização desses componentes acima?

Atenciosamente

Cândido Luís Dias Ferreira
Tribunal Regional Eleitoral de São Paulo
Seção de Desenvolvimento


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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA
MENSAGEM 





Yahoo! Grupos, um serviço oferecido por:  
 PUBLICIDADE
var lrec_target=_blank;var lrec_URL=new Array();

lrec_URL[1]=http://br.rd.yahoo.com/SIG=12fvnci9u/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1132854129/A=2950750/R=0/id=flashurl/SIG=10tift5qr/*http://br.movies.yahoo.com/;;
 var
lrec_flashfile=http://br.i1.yimg.com/br.yimg.com/i/br/ads6/0901_lrec_cinema_calendario.swf?clickTAG=javascript:LRECopenWindow(1);
 var
lrec_altURL=http://br.rd.yahoo.com/SIG=12fvnci9u/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1132854129/A=2950750/R=1/id=altimg/SIG=10tift5qr/*http://br.movies.yahoo.com/;;
 var
lrec_altimg=http://br.i1.yimg.com/br.yimg.com/i/br/ads6/0829_lrec_cinema_calendario.gif;;
 var lrec_width=300;var lrec_height=250;  
  
-
  Links do Yahoo! Grupos

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

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

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

  



-
 Yahoo! Acesso Grátis: Internet rápida e grátis.
Instale o discador agora!

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA
MENSAGEM 

http://br.groups.yahoo.com/group/delphi-br/messages



  
  Yahoo! Grupos, um serviço oferecido
por:PUBLICIDADE
var lrec_target=_blank;var lrec_URL=new
Array();lrec_URL[1]=http://br.rd.yahoo.com/SIG=12fkdhg9q/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1132862435/A=2950750/R=0/id=flashurl/SIG=10tift5qr/*http://br.movies.yahoo.com/;var
lrec_flashfile=http://br.i1.yimg.com/br.yimg.com/i/br/ads6/0901_lrec_cinema_calendario.swf?clickTAG=javascript:LRECopenWindow(1);var
lrec_altURL=http://br.rd.yahoo.com/SIG=12fkdhg9q/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1132862435/A=2950750/R=1/id=altimg/SIG=10tift5qr/*http://br.movies.yahoo.com/;var
lrec_altimg=http://br.i1.yimg.com/br.yimg.com/i/br/ads6/0829_lrec_cinema_calendario.gif;var
lrec_width=300;var lrec_height=250;   
  
  
-
Links do Yahoo! Grupos

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










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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 




RES: [delphi-br] Re: TransactionID - Dúvida - Aprove itando o Gancho - Olá Madsom

2005-11-24 Por tôpico Madsom Silva
Luciano,
segue a mesma resposta do Ricardo.

o fato de ter vários usuários ou de estar em rede não é determinante pra o
TransactionID.
O efeito é dentro de uma mesma rotina (transação).
Ex.:
Siga esta visualização fictícia abaixo :
transação 1
  ...
  ...
  Transação 2
 ...
 ...
  commit ou roolback transação 2
  ...
  ...
commit ou roolback transação 1

Madsom.


  -Mensagem original-
  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de User-BA
  Enviada em: quarta-feira, 23 de novembro de 2005 20:23
  Para: delphi-br@yahoogrupos.com.br
  Assunto: [delphi-br] Re: TransactionID - Dúvida - Aproveitando o Gancho -
Olá Madsom



  Eu também tenho dúvidas a respeito do funcionamento das transações.

  Digamos que o usuário tenha 5 máquinas em rede.
  A maquina 1 é o servidor de dados (executando o firebird por exemplo),
  em cada 1 das maquina (2 a 5) ele tem instalado meu programa
  que acessa via TCP/IP os dados do servidor.

  Como o código do executável é o mesmo,
  como fica a questão das ID´s das transações?

  Tipo: Numa inclusão de clientes eu codifiquei internamente
  para iniciar um ID = 1 para este tipo de operação,
  mas se nas 4 maquinas a inclusão de clientes for iniciada,
  todas as transações estarão com ID = 1.
  Então como é que realmente este processo funciona?

  Obrigado desde já pelos esclarecimentos.
  Luciano-User-BA

  Madsom Silva wrote:
   Ricardo,
   o TransactionID deve ser diferente para transações concorrente.
   Se você abre e fecha a transação uma por vez ele pode ser sempre o
mesmo.
   Ex.:
   Se vc abre uma transação para pedido e uma outra pra cliente (ao mesmo
   tempo) elas tem quer ter números diferente.
   Se vc abre a de pedido e fecha, depois abre a de cliente e fecha pode
   ser o
   mesmo número.
  
   Obs.: cuidado com sistemas MDI, aonde o usuário pode abrir vários
   formulários ao mesmo tempo.
  
   Sem mais,
   Madsom.
  
 -Mensagem original-
 De: delphi-br@yahoogrupos.com.br
[mailto:[EMAIL PROTECTED]
   nome de Ricardo Cabral
 Enviada em: quarta-feira, 23 de novembro de 2005 16:46
 Para: delphi-br@yahoogrupos.com.br
 Assunto: [delphi-br] TransactionID - Dúvida
  
  
 Pessoal,
  
   Gostaria de saber mais como usar o TransactionID em uma linguagem
   simples. Por exemplo: Para cada transação eu tenho que colocar um ID
   diferente. Exemplo: transação na tabela de vendas - TransactionID:=1,
   transação na tabela de cliente, TransactionID:=2 e assim por diante.
  
   Desde de já agradeço!!
  
  
  
  
 Abraços,
  
Ricardo Cabral
  
 -
 Yahoo! Acesso Grátis: Internet rápida e grátis.
 Instale o discador agora!
  
 [As partes desta mensagem que não continham texto foram removidas]
  
  
  
 --
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
  
  
  
  
  
   Yahoo! Grupos, um serviço oferecido por:
 PUBLICIDADE
  
  
  
  
   

   --
 Links do Yahoo! Grupos
  
   a.. Para visitar o site do seu grupo na web, acesse:
   http://br.groups.yahoo.com/group/delphi-br/
  
   b.. Para sair deste grupo, envie um e-mail para:
   [EMAIL PROTECTED]
  
   c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
   Serviço do Yahoo!.
  
  
   --
   No virus found in this outgoing message.
   Checked by AVG Free Edition.
   Version: 7.1.362 / Virus Database: 267.13.4/176 - Release Date:
20/11/2005
  
  
   [As partes desta mensagem que não continham texto foram removidas]
  
  
  
   --
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
  
  
  
  
  
   *Yahoo! Grupos, um serviço oferecido por:*
   PUBLICIDADE
  
  
   
   *Links do Yahoo! Grupos*
  
   * Para visitar o site do seu grupo na web, acesse:
 http://br.groups.yahoo.com/group/delphi-br/
  
   * Para sair deste grupo, envie um e-mail para:
 [EMAIL PROTECTED]
  
mailto:[EMAIL PROTECTED]
  
   * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
 Serviço do Yahoo! http://br.yahoo.com/info/utos.html.
  
  


  --

  
  * D7/Firebird/DbExpress-SQLDataSet+DataSetProvider+ClientDataSet
  

  Valeu pelas forças.
  Obrigado.
  Luciano-User-BA






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



  --
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





Yahoo! Grupos, um serviço oferecido por:
  PUBLICIDADE





--
  Links do Yahoo! Grupos

   

[delphi-br] RE: DBExpress - Oracle erro ORA-01036

2005-11-24 Por tôpico Josir Gomes
Olá Candido,

eu nunca trabalhei com DbExpress mas quando acontecia isso no bom e velho BDE, 
eu retirava todos os TFields do DataSet e os incluia novamente. Geralmente, 
algum campo era alterado na base e no TField ficava o campo velho.
Veja se funciona...

Rode também o SQLMonitor para ver qual SQL que o DbExpress está gerando e tente 
rodar o mesmo SQL na mão.

Boa Sorte,
Josir.

Não consigo inserir dados no Oracle com os componentes do DBExpress...
Dá o erro ORA-01036 nome/número de variável inválido e do DBExpress
Invalid Field Type.
Já tentei direto com o SQLQuery e com um ClientDataSet ligado a um
SQLQuery.
Alguém já passou por isso?

Atenciosamente

Cândido Luís Dias Ferreira



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 




Re: [delphi-br] RES: Diga qual foi a solução...

2005-11-24 Por tôpico Francisco Thiago
A questão das letras MINUSCÚLAS OU maiúsculas se dá pelo fato de que, pelo 
menos no fire/interbase, ao ser criada o nome Tabela (observe as aspas), 
este nome torna-se case sensitive. Se esse comportamento se repete nos 
demais bancos eu não sei. Mas tive problemas assim quando utilizava o 
ErWin/IBConsole que gerava o MetaData com as tais aspas...

Dê uma olhada no seu banco, pois se isso passar em branco, pode ser que do 
nada o erro volte a acontecer.

[]'s

Francisco Thiago de Almeida
Enter  Plug Informática
Divisão: Desenvolvimento e Banco de dados
Franca / SP
msn: [EMAIL PROTECTED]

- Original Message - 
From: Levi Ribeiro de Freitas [EMAIL PROTECTED]
To: 'Danilo Rogério' [EMAIL PROTECTED]; 
delphi-br@yahoogrupos.com.br
Sent: Thursday, November 24, 2005 5:31 PM
Subject: [delphi-br] RES: Diga qual foi a solução...


Solução:

Colocar nos flags do sqldataset quais os campos que seriam atualizados e no
evento OnGetTableName do datasetprovider a tabela que irá sofrer as
atualizações.

Um abraço,

Levi

  _

De: Danilo Rogério [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 24 de novembro de 2005 13:07
Para: [EMAIL PROTECTED]
Assunto: Diga qual foi a solução...


Levi, tudo bom...

Que bom que seu problema foi solucionado...Mas poste na lista o que tinha de
errado...

Era as letras minúsculas ou faltou o evento OnGetTableName???

Att.
Danilo


  _

Yahoo! Acesso Grátis: Internet rápida e grátis.
Instale
http://us.rd.yahoo.com/mail/br/tagline/discador/*http://br.acesso.yahoo.com
/ o discador agora!


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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 



Links do Yahoo! Grupos













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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 





Re: [delphi-br] Obrigado Danilo - ProviderFlags - Mas... por favor esclareça.

2005-11-24 Por tôpico Danilo Rogério
Ou vc digita o codigo do filme(inserção) fazendo um select para trazer...
   
  Ou vc coloca um lookupcombobox, ligado a um clientdataset para mostrar...
   
  Mas o companheiro aí está falando dos campos fklookup, aqueles que ao 
defini-los, vc seta as quatro ultimas configurações do novo campo.
   
  Danilo

Francisco Thiago [EMAIL PROTECTED] escreveu:
  E como você trabalha com os campos lookup's?

Exemplo: Suponhamos uma tabela Itens de locação (exemplo clássico). Como 
você mostraria, durante o insert, o título do filme.

Suponhamos ainda que você permita uma reabertura de locação para inserir 
novos filmes. Como você faria?



[]'s


Francisco Thiago de Almeida
Enter  Plug Informática
Divisão: Desenvolvimento e Banco de dados
Franca / SP
msn: [EMAIL PROTECTED]

- Original Message - 
From: Danilo Rogério [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Cc: [EMAIL PROTECTED]
Sent: Thursday, November 24, 2005 2:04 PM
Subject: Re: [delphi-br] Obrigado Danilo - ProviderFlags - Mas... por favor 
esclareça.


Luis, desde que deixei de trabalhar com paradox, não uso mais campos 
fklookup.

  Esse erro que vc mencionou eu desconheço, mas imagino que este erro que vc 
está tendo esse erro, porque seu LookupComboBox está ligado a um 
lookupField(eu nunca liguei combobox em campo fklookup).

  Tente não criar este lookupfield, e simplesmente ligar o lookupcombobox a 
um clientdataset separado, e certifique-se que a query + datasetprovider + 
clientdataset estão ligados corretamente.

  Lembro-me que o Lichot falou uma vez, que sempre que possível deixe a 
tabela que sofrerá alterações(insert, update,delete) o mais simples 
possível(evitando muitos joins). Assim vc ganha em processamento de 
atualização, e evita, por exemplo a necessidade de sempre mexer muito nos 
providers flags.

  A não ser que vc seja o único programador, pois imagine uma equipe de 5 
programadores, e por ventura um deles vai, remove o campo e adiciona de 
novo... o provider foi perdido, e quando for para a produção vai dar PAU 
e se for um fim de semana, então, ou seu cliente for de outra cidade... Você 
está pego...

  Att.
  Danilo

Luis Lopes [EMAIL PROTECTED] escreveu:
  Danilo,

Pegando um gancho na discursão de vocês...

Num cadastro de clientes, onde tenho que informar qual
a cidade, como no seu exemplo, qual é a melhor forma
de trabalhar?

Eu sempre trabalhei criando um campo lookup (fkLookup)
no clientdataset (cliente, no caso do seu exemplo) e
na tela, coloco um DBLookupComboBox apontando para o
field lookup que criei. Essa é a melhor forma?

Outra coisa: (ainda seguindo o seu exemplo) quando vou
gravar o cliente, e dá algum erro na gravação (um
campo required que não informei, por exemplo), quando
tento escolher a cidade, novamente (depois do erro),
no DBLookupComboBox, aparece a mensagem 'Cursor
Unknow'. Tento novamente mais umas 2 ou 3 vezes e
passa. Procurei na net e as sugestões que encontrei
não resolveu o problema.

Poderia me ajudar com isso?

Abusando mais um pouco, outro erro que acontece muito
e, apesar de eu estar conseguindo resolver, eu ainda
não sei direito o que causa, é o 'invalid point
operation'

Sabe alguma coisa sobre isso?

Agradeço muito qualquer ajuda.

Luis Alberto.


--- Danilo Rogério [EMAIL PROTECTED]
escreveu:

 Vc nem precisaria fazer este campo lookup.

   Por ex: Se vc abrir o cadastro de cidade, fizer a
 inclusão de uma nova cidade, ao sair da tela vc ja
 pode atribuir ao campo ID_CIDADE, NOME_CIDADE(da sua
 query do cadastro de cliente) a nova cidade
 cadastrada.

   Att.
   Danilo

 User-BA [EMAIL PROTECTED] escreveu:

 Sua explanação sobre a configuração dos Flags foi
 por demais esclarecedora.

 Vou aproveita para abusar mais um pouco :)

 No seu exemplo, a SQL sugere que para a tela de
 cadastro de clientes
 sempre será trazida uma cidade já cadastrada.
 (o que vale para os Updates e Deletes).

 Caso seja uma inclusão e a cidade ainda não esteja
 cadastrada, nesta
 tela disponibilizamos de clientes uma opção para
 abrir a tela para o
 cadastro da cidades.

 Ok! Tendo que fazer isto, você sugeriria que no
 cadastro de clientes
 deveria ter um campo fazendo um (lookup/nome da
 cidade) entre
 cidades/clientes para buscar/trazer o código da
 cidade? ou você sugere
 alguma outra adaptação em SQL para este fim? Tipo:
 Um Lookup em SQL?

 Obrigado pela aula.
 Luciano-User-BA.

 Danilo Rogério wrote:
  Não entendi muito bem se COL_CHAVE também faz
 parte da chave primaria
  da tabela DICAS(fazendo com que sua tabela tenha
 uma chave composta,
  mas vou explicar detalhadamente, a maneira como eu
 trabalho
 
Tabela CIDADE
---
PK ID_CIDADE
  NOME_CIDADE
 
Tabela CLIENTE

PK ID_CLIENTE
 NOME_CLIENTE
FK ID_CIDADE
 
 
onde PK é Primary Key(chave Primária) e FK é
 Foreign Key(Chave
  Estrangeira), no caso de alguem desconhecer essas
 notações
 
Suponhamos que vamos fazer operações de
 inclusão, 

Re: [delphi-br] Exemplo de insert com DBExpress

2005-11-24 Por tôpico Danilo Rogério
Esse esquema vai servir para Oracle, Interbase, Firebird. Ou seja, qualquer 
SGBD que seja possível acesso via DBExpress, ADO, etc.
   
  Att.
  Danilo

Marcio Melli Silvestre [EMAIL PROTECTED] escreveu:
  Valeu Danilo, acho que o esquema que você demostrou
abaixo vai servir para fazer uns testes no Oracle 9i




--- Danilo Rogério [EMAIL PROTECTED]
escreveu:


-
1) Vamos as ligações
 Query Ligada no SqlConection pela propriedade
SQLConection
 DataSetProvider ligado na Query pela propriedade
DataSet
 ClientDataset ligado no DataSetProvider pela
propriedade ProviderName
 DataSource ligado no ClientDataSet pela
propriedade DataSet
   
  2) Um caso simples
 SELECT COD_CLIENTE, NOME FROM CLIENTE
   
  3) Seu trecho ficaria assim:
   
// Abre a tabela
ClientDataset.Close;
ClientDataset.Open;
   
// Coloca em modo de inserção
ClientDataSet.Insert;
// Manipula os dados no seu DBEDit e depois faça o
seguinte, em um botão salvar
 ClientDataSet.Post;
// Esta linha abaixo gravará no banco de dados
ClientDataSet.ApplyUpdates(0);
   
  Espero ter ajudado,
  Danilo
// Depois disso em um ouro 

Cândido Luís Dias Ferreira [EMAIL PROTECTED]
escreveu:
  Povo

Embora pareça banal, não estou conseguindo fazer
um insert com DBExpress. Está dando um erro.
Estou utilizando ClientDataSet, DataSetProvider e
SQLQuery.

Alguém teria um trecho de código como exemplo de
utilização desses componentes acima?

Atenciosamente

Cândido Luís Dias Ferreira
Tribunal Regional Eleitoral de São Paulo
Seção de Desenvolvimento


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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA
MENSAGEM 





Yahoo! Grupos, um serviço oferecido por:  
 PUBLICIDADE
var lrec_target=_blank;var lrec_URL=new Array();

lrec_URL[1]=http://br.rd.yahoo.com/SIG=12fvnci9u/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1132854129/A=2950750/R=0/id=flashurl/SIG=10tift5qr/*http://br.movies.yahoo.com/;;
var
lrec_flashfile=http://br.i1.yimg.com/br.yimg.com/i/br/ads6/0901_lrec_cinema_calendario.swf?clickTAG=javascript:LRECopenWindow(1);
var
lrec_altURL=http://br.rd.yahoo.com/SIG=12fvnci9u/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1132854129/A=2950750/R=1/id=altimg/SIG=10tift5qr/*http://br.movies.yahoo.com/;;
var
lrec_altimg=http://br.i1.yimg.com/br.yimg.com/i/br/ads6/0829_lrec_cinema_calendario.gif;;
var lrec_width=300;var lrec_height=250;  
  
-
  Links do Yahoo! Grupos

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

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

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

  



-
Yahoo! Acesso Grátis: Internet rápida e grátis.
Instale o discador agora!

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA
MENSAGEM 

http://br.groups.yahoo.com/group/delphi-br/messages



  
  Yahoo! Grupos, um serviço oferecido
por:PUBLICIDADE
var lrec_target=_blank;var lrec_URL=new
Array();lrec_URL[1]=http://br.rd.yahoo.com/SIG=12fkdhg9q/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1132862435/A=2950750/R=0/id=flashurl/SIG=10tift5qr/*http://br.movies.yahoo.com/;var
lrec_flashfile=http://br.i1.yimg.com/br.yimg.com/i/br/ads6/0901_lrec_cinema_calendario.swf?clickTAG=javascript:LRECopenWindow(1);var
lrec_altURL=http://br.rd.yahoo.com/SIG=12fkdhg9q/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1132862435/A=2950750/R=1/id=altimg/SIG=10tift5qr/*http://br.movies.yahoo.com/;var
lrec_altimg=http://br.i1.yimg.com/br.yimg.com/i/br/ads6/0829_lrec_cinema_calendario.gif;var
lrec_width=300;var lrec_height=250;   
  
  
-
Links do Yahoo! Grupos

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

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

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




  



  

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





Yahoo! Grupos, um serviço oferecido por:PUBLICIDADE
var lrec_target=_blank;var lrec_URL=new Array();  
lrec_URL[1]=http://br.rd.yahoo.com/SIG=12fc3m777/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1132875531/A=2950750/R=0/id=flashurl/SIG=10tift5qr/*http://br.movies.yahoo.com/;;
  var 

[delphi-br] Espaço livre no disco de uma máquina na rede

2005-11-24 Por tôpico Daniel C. Coelho
Alguém sabe como buscar o espaço livre do disco (unidade C) de uma máquina 
(servidor). Buscando essa informação via rede ??


Daniel.

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 





[delphi-br] Exemplo de mestre/detalhe com ClientDataSet

2005-11-24 Por tôpico Paulo
Alguem tem algum link com um exemplo de como
fazer um cadastro mestre/detalhe com DBExpress e ClientDataSet,
no Delphi 7 ?

Grato pela atencao de todos
Paulo

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 




RES: [delphi-br] Gente uma ajuda por favor

2005-11-24 Por tôpico Filipe Xavier Ramalho
Se entendi bem, o que o Leonardo quer saber é porque o arquivo Jpg fica
maior que o BMP.

Leonardo, se for isso, e se você está usando a unit Jpeg do Delphi com a
classe TJpeg, verifique a taxa de compressão. Você deve estar transformando
para a melhor qualidade e por isso não reduz o arquivo.

Filipe Xavier Ramalho
Desenvolvimento
Telefone: (41) 3219-2043
Duty Sistemas de Gerenciamento de Riscos S/A
http://www.duty.com.br

Antes de imprimir pense no MEIO AMBIENTE!


  -Mensagem original-
  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Daniel Polistchuck
  Enviada em: quinta-feira, 24 de novembro de 2005 17:23
  Para: delphi-br@yahoogrupos.com.br
  Assunto: RE: [delphi-br] Gente uma ajuda por favor


  Seu componente TImage deve estar com Stretch := True.
  Faça o seguinte:

  1) Coloque um TScrollBox em seu Form
  2) Coloque o TImage no ScrollBox (com Left e Top = 0)
  3) Coloque False no TImage.Stretch
  4) Coloque TImage.AutoSize := True.

  []s

  Daniel Polistchuck
  Consulting Services Manager
  Borland Software Corporation
  Tel: +55 (11) 2165-8047/ Cel: +55 (11) 8196-5947
  [EMAIL PROTECTED] - www.borland.com.br
http://www.borland.com.br/

  A Borland Software Corporation é líder global em soluções independentes de
plataforma para o Software Delivery Optimization, auxiliando nossos clientes
a resolverem as restrições no desenvolvimento de aplicações nos dias de
hoje, para maximizar o valor do negócio de seu software



  

  From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
On Behalf Of Leonardo Martins
  Sent: Thursday, November 24, 2005 2:57 PM
  To: delphi-br@yahoogrupos.com.br
  Subject: [delphi-br] Gente uma ajuda por favor


  Ninguém pode me ajudar e resolver esse problema?
  O programa está pronto...
  Sò gostaria de entender porque acontece isso...

  Consigo converter a imagem tranquilamente,
  porém imagens grandes ficam com tamanho pequeno
  e imagens pequenas com tamanho grande...
  Porque issO?
  ´Seria meu código?

  Por favor, precisava de uma ajuda urgente mesmo...


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



  --
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 






  Yahoo! Grupos, um serviço oferecido por:
  PUBLICIDADE


http://br.rd.yahoo.com/SIG=12fbc50ne/M=365837.7000707.7924794.2369893/D=brc
lubs/S=2137111264:HM/Y=BR/EXP=1132866092/A=2950750/R=2/id=noscript/SIG=10tif
t5qr/*http://br.movies.yahoo.com/

  

  Links do Yahoo! Grupos


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

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

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




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



  --
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





Yahoo! Grupos, um serviço oferecido por:
  PUBLICIDADE





--
  Links do Yahoo! Grupos

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

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

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



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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 





[delphi-br] Gente uma ajuda por favor

2005-11-24 Por tôpico Leonardo Martins
Ninguém pode me ajudar e resolver esse problema?
O programa está pronto...
Sò gostaria de entender porque acontece isso...

Consigo converter a imagem tranquilamente,
porém imagens grandes ficam com tamanho pequeno
e imagens pequenas com tamanho grande...
Porque issO?
´Seria meu código?

Por favor, precisava de uma ajuda urgente mesmo...


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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 




Re: [delphi-br] Exemplo de mestre/detalhe com ClientDataSet

2005-11-24 Por tôpico Bruno Lichot
Minha apostila

www.micrologos.com.br/mc_clienteservidor.zip

[]´s
Bruno Lichot
Micrologos Dream Team
Equipe Editorial ClubeDelphi DevMedia
 
[EMAIL PROTECTED]
[EMAIL PROTECTED]
 
www.micrologos.com.br - www.clubedelphi.net - www.delphirio.assespro-rj.org.br





 De: Paulo [EMAIL PROTECTED]
Para: [EMAIL PROTECTED]
Assunto: [delphi-br] Exemplo de mestre/detalhe com ClientDataSet

Alguem tem algum link com um exemplo de como
fazer um cadastro mestre/detalhe com DBExpress e ClientDataSet,
no Delphi 7 ?

Grato pela atencao de todos
Paulo

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 


 
Links do Yahoo! Grupos




 






-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 




[delphi-br] Restaurar Conexão

2005-11-24 Por tôpico Mario Augusto
Caros Amigos, esta é minha primeira presença nesta lista.
   Tenho um sistema de frente de caixa que é conectado ao servidor
(firebird) com TADOConnection e TadoQuery para realizar as consultas, 
só acontece algumas vezes a conexão cair(problemas na rede,servidor 
reiniciou,etc).
Minha dúvida é de como restaurar o mesmo TadoQuery realizando a 
consulta na base de dados local,pois não é simplesmente desconecta-lo e 
conectá-lo novamente a base local,pois fica dando erro e pior ainda que 
ao fechar o sistema o mesmo fica dando erro de aplicativo em Loop,até 
vc reiniciar o computador.
Quem poder me ajudar,agradeceria e muito,pois estou com este 
sistema em um supermecado e preciso urgentemente.
Att : Mário Augusto






-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 




[delphi-br] Re: Transações Concorrentes

2005-11-24 Por tôpico Mario Augusto
Caro Amigo,
  Eu Tive o Mesmo Problema e após trabalhar com Generators no 
firebird este problema não aconteceu mais.
 Os Generators são automaticamente incrementados pelo 
firebird independentemente mesmo que vc esteja dentro de uma 
transação.
 Na Maioria das vezes vc utiliza na trigger de inserção.
Caso ainda não trabalhou com generators, vale a pena dar uma 
olhada.
Att : Mário Augusto

--- Em delphi-br@yahoogrupos.com.br, Thiago [EMAIL PROTECTED] 
escreveu
 Desenvolvi uma aplicação (delphi6 + Firebird + IBX) onde tenho em 
várias telas a utilização da mesma tabela que tem como indice Empresa 
+ Sequencia. Acontece volta e meia quando dois usuários solicitam uma 
transação em telas diferentes na mesma tabela de pegar a mesma 
sequencia e acabar não gravando uma das transações. Quais práticas 
devo adotar para que isso não ocorra?
 
 Obrigado
 
 [As partes desta mensagem que não continham texto foram removidas]






-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 




Re: [delphi-br] Testar rotina em vários S.O.

2005-11-24 Por tôpico DelphiStar

  Testei no Windows 98 
  e essa rotina fecha o programa 
  mas, não desliga o Computador
  Abraço
  Ademir

--

  Enviei esta mensagem ontem e não obtive nenhuma resposta, será que ninguem
  poderia testar isso ai.

  Galera, algum amigo da lista que tiver o win98 e o XP poderia testar a
  rotina abaixo e me retornar dizendo se a mesma funciona?

  Eu testei no windows 2000 e ela funcionou legal, gostaria de testar nos
  outros S.O. para poder usa-la em meu sistema.

  Obrigado.

  procedure TForm1.Sair1Click(Sender: TObject);
  var
 pid, hToken   : THANDLE;
 tkp, tpkNewButIgnored : TOKEN_PRIVILEGES;
 tmpLuid   : TLUIDAndAttributes;
 BufLen: DWORD;
  begin
 if Messagebox(handle,'Desligar o computador?','Desligar',MB_ICONQUESTION
  or MB_YESNO) = IDYes then
 begin
Pid := GetCurrentProcess;
OpenProcessToken(Pid, TOKEN_ADJUST_PRIVILEGES + TOKEN_QUERY, hToken);
LookUpPrivilegeValue(nil, 'SeShutdownPrivilege', tmpLUID.LUID);
with tkp do
begin
   PrivilegeCount := 1;
   Privileges[0].Luid := tmpLUID.LUID;
   Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
   end;
   AdjustTokenPrivileges(hToken, False, tkp,
   sizeof(tpkNewButIgnored), tpkNewButIgnored, BufLen);

   if not ExitWindowsEx(EWX_FORCE + EWX_POWEROFF, 0) then {POWEROFF}
  ExitWindowsEx(EWX_FORCE + EWX_LOGOFF, 0); {LOGOFF}
   Close;
 end;
  end;

   

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 




[delphi-br] :: Gerar Etiquetas com Quick Report ::

2005-11-24 Por tôpico Thiago S. Miranda
Olá pessoal, estou precisando muito da ajuda de vcs. Estou começando
  a mexer com o quick report agora, eu uso delphi6, estou desenvolvendo um
  sistema de mala direta, e preciso elaborar um relatorio para imprimir 
etiquetas
  da seguinte maneira:
   
  etiqueta1  etiqueta2
etiqueta3  etiqueta4
etiqueta5  etiqueta6
etiqueta7  etiqueta8
  e assim por diante
   
  porem nao consigo usar um banddetail uma do lado  da outra, soh consigo
  assim oh:
   
etiqueta1
etiqueta2
etiqueta3
  e etc.
   
  ja defini as configuracoes do quickrep para 2 colunas e ainda nao consegui.
  alguem tem algum tutorial me ensinando isso..ou sabe o que pod ser??
   
  Aguardo um retorno
  obrigado.
   
  thiago miranda








-
 Yahoo! Acesso Grátis: Internet rápida e grátis.
Instale o discador agora!

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 




Re: [delphi-br] Re: TransactionID + 1 dúv ida

2005-11-24 Por tôpico Ricardo Cabral
Madson e quem mais quiser comentar,
   
  Mais uma vez valeu pela antenção! EU faça exatamente como você exemplificou, 
era só para saber se estou fazendo certo. 
   
  Mas ainda falando sobre transação e agora acrecento outra dúvida: No meu 
programa, utilizo várias tabelas e para cada uma delas eu tenho um componente 
SQLDataSet,  DataSource e SimpleDataSet tudo no mesmo data module. 
   
  Minhas dúvidas são: 
   
  1  - Estou certo em ter um componente para cada tabela ?
   
  2 - A estrutura de transação que você descreveu e que eu uso é a mesma ?
   
  

Madsom Silva [EMAIL PROTECTED] escreveu:
  Luciano,
segue a mesma resposta do Ricardo.

o fato de ter vários usuários ou de estar em rede não é determinante pra o
TransactionID.
O efeito é dentro de uma mesma rotina (transação).
Ex.:
Siga esta visualização fictícia abaixo :
transação 1
  ...
  ...
  Transação 2
 ...
 ...
  commit ou roolback transação 2
  ...
  ...
commit ou roolback transação 1

Madsom.


  -Mensagem original-
  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de User-BA
  Enviada em: quarta-feira, 23 de novembro de 2005 20:23
  Para: delphi-br@yahoogrupos.com.br
  Assunto: [delphi-br] Re: TransactionID - Dúvida - Aproveitando o Gancho -
Olá Madsom



  Eu também tenho dúvidas a respeito do funcionamento das transações.

  Digamos que o usuário tenha 5 máquinas em rede.
  A maquina 1 é o servidor de dados (executando o firebird por exemplo),
  em cada 1 das maquina (2 a 5) ele tem instalado meu programa
  que acessa via TCP/IP os dados do servidor.

  Como o código do executável é o mesmo,
  como fica a questão das ID´s das transações?

  Tipo: Numa inclusão de clientes eu codifiquei internamente
  para iniciar um ID = 1 para este tipo de operação,
  mas se nas 4 maquinas a inclusão de clientes for iniciada,
  todas as transações estarão com ID = 1.
  Então como é que realmente este processo funciona?

  Obrigado desde já pelos esclarecimentos.
  Luciano-User-BA

  Madsom Silva wrote:
   Ricardo,
   o TransactionID deve ser diferente para transações concorrente.
   Se você abre e fecha a transação uma por vez ele pode ser sempre o
mesmo.
   Ex.:
   Se vc abre uma transação para pedido e uma outra pra cliente (ao mesmo
   tempo) elas tem quer ter números diferente.
   Se vc abre a de pedido e fecha, depois abre a de cliente e fecha pode
   ser o
   mesmo número.
  
   Obs.: cuidado com sistemas MDI, aonde o usuário pode abrir vários
   formulários ao mesmo tempo.
  
   Sem mais,
   Madsom.
  
 -Mensagem original-
 De: delphi-br@yahoogrupos.com.br
[mailto:[EMAIL PROTECTED]
   nome de Ricardo Cabral
 Enviada em: quarta-feira, 23 de novembro de 2005 16:46
 Para: delphi-br@yahoogrupos.com.br
 Assunto: [delphi-br] TransactionID - Dúvida
  
  
 Pessoal,
  
   Gostaria de saber mais como usar o TransactionID em uma linguagem
   simples. Por exemplo: Para cada transação eu tenho que colocar um ID
   diferente. Exemplo: transação na tabela de vendas - TransactionID:=1,
   transação na tabela de cliente, TransactionID:=2 e assim por diante.
  
   Desde de já agradeço!!
  
  
  
  
 Abraços,
  
Ricardo Cabral
  
 -
 Yahoo! Acesso Grátis: Internet rápida e grátis.
 Instale o discador agora!
  
 [As partes desta mensagem que não continham texto foram removidas]
  
  
  
 --
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
  
  
  
  
  
   Yahoo! Grupos, um serviço oferecido por:
 PUBLICIDADE
  
  
  
  
   

   --
 Links do Yahoo! Grupos
  
   a.. Para visitar o site do seu grupo na web, acesse:
   http://br.groups.yahoo.com/group/delphi-br/
  
   b.. Para sair deste grupo, envie um e-mail para:
   [EMAIL PROTECTED]
  
   c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
   Serviço do Yahoo!.
  
  
   --
   No virus found in this outgoing message.
   Checked by AVG Free Edition.
   Version: 7.1.362 / Virus Database: 267.13.4/176 - Release Date:
20/11/2005
  
  
   [As partes desta mensagem que não continham texto foram removidas]
  
  
  
   --
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
  
  
  
  
  
   *Yahoo! Grupos, um serviço oferecido por:*
   PUBLICIDADE
  
  
   
   *Links do Yahoo! Grupos*
  
   * Para visitar o site do seu grupo na web, acesse:
 http://br.groups.yahoo.com/group/delphi-br/
  
   * Para sair deste grupo, envie um e-mail para:
 [EMAIL PROTECTED]
  
mailto:[EMAIL PROTECTED]
  
   * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
 Serviço do Yahoo! http://br.yahoo.com/info/utos.html.
  
  


  --

  
  * 

Re: [delphi-br] Re: TransactionID + 1 dúv ida

2005-11-24 Por tôpico Ricardo Cabral
Madson e quem mais quiser comentar,
   
  Mais uma vez valeu pela antenção! EU faça exatamente como você exemplificou, 
era só para saber se estou fazendo certo. 
   
  Mas ainda falando sobre transação e agora acrecento outra dúvida: No meu 
programa, utilizo várias tabelas e para cada uma delas eu tenho um componente 
SQLDataSet,  DataSource e SimpleDataSet tudo no mesmo data module. 
   
  Minhas dúvidas são: 
   
  1  - Estou certo em ter um componente para cada tabela ?
   
  2 - A estrutura de transação que você descreveu e que eu uso é a mesma ?
   
  

Madsom Silva [EMAIL PROTECTED] escreveu:
  Luciano,
segue a mesma resposta do Ricardo.

o fato de ter vários usuários ou de estar em rede não é determinante pra o
TransactionID.
O efeito é dentro de uma mesma rotina (transação).
Ex.:
Siga esta visualização fictícia abaixo :
transação 1
  ...
  ...
  Transação 2
 ...
 ...
  commit ou roolback transação 2
  ...
  ...
commit ou roolback transação 1

Madsom.


  -Mensagem original-
  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de User-BA
  Enviada em: quarta-feira, 23 de novembro de 2005 20:23
  Para: delphi-br@yahoogrupos.com.br
  Assunto: [delphi-br] Re: TransactionID - Dúvida - Aproveitando o Gancho -
Olá Madsom



  Eu também tenho dúvidas a respeito do funcionamento das transações.

  Digamos que o usuário tenha 5 máquinas em rede.
  A maquina 1 é o servidor de dados (executando o firebird por exemplo),
  em cada 1 das maquina (2 a 5) ele tem instalado meu programa
  que acessa via TCP/IP os dados do servidor.

  Como o código do executável é o mesmo,
  como fica a questão das ID´s das transações?

  Tipo: Numa inclusão de clientes eu codifiquei internamente
  para iniciar um ID = 1 para este tipo de operação,
  mas se nas 4 maquinas a inclusão de clientes for iniciada,
  todas as transações estarão com ID = 1.
  Então como é que realmente este processo funciona?

  Obrigado desde já pelos esclarecimentos.
  Luciano-User-BA

  Madsom Silva wrote:
   Ricardo,
   o TransactionID deve ser diferente para transações concorrente.
   Se você abre e fecha a transação uma por vez ele pode ser sempre o
mesmo.
   Ex.:
   Se vc abre uma transação para pedido e uma outra pra cliente (ao mesmo
   tempo) elas tem quer ter números diferente.
   Se vc abre a de pedido e fecha, depois abre a de cliente e fecha pode
   ser o
   mesmo número.
  
   Obs.: cuidado com sistemas MDI, aonde o usuário pode abrir vários
   formulários ao mesmo tempo.
  
   Sem mais,
   Madsom.
  
 -Mensagem original-
 De: delphi-br@yahoogrupos.com.br
[mailto:[EMAIL PROTECTED]
   nome de Ricardo Cabral
 Enviada em: quarta-feira, 23 de novembro de 2005 16:46
 Para: delphi-br@yahoogrupos.com.br
 Assunto: [delphi-br] TransactionID - Dúvida
  
  
 Pessoal,
  
   Gostaria de saber mais como usar o TransactionID em uma linguagem
   simples. Por exemplo: Para cada transação eu tenho que colocar um ID
   diferente. Exemplo: transação na tabela de vendas - TransactionID:=1,
   transação na tabela de cliente, TransactionID:=2 e assim por diante.
  
   Desde de já agradeço!!
  
  
  
  
 Abraços,
  
Ricardo Cabral
  
 -
 Yahoo! Acesso Grátis: Internet rápida e grátis.
 Instale o discador agora!
  
 [As partes desta mensagem que não continham texto foram removidas]
  
  
  
 --
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
  
  
  
  
  
   Yahoo! Grupos, um serviço oferecido por:
 PUBLICIDADE
  
  
  
  
   

   --
 Links do Yahoo! Grupos
  
   a.. Para visitar o site do seu grupo na web, acesse:
   http://br.groups.yahoo.com/group/delphi-br/
  
   b.. Para sair deste grupo, envie um e-mail para:
   [EMAIL PROTECTED]
  
   c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
   Serviço do Yahoo!.
  
  
   --
   No virus found in this outgoing message.
   Checked by AVG Free Edition.
   Version: 7.1.362 / Virus Database: 267.13.4/176 - Release Date:
20/11/2005
  
  
   [As partes desta mensagem que não continham texto foram removidas]
  
  
  
   --
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
  
  
  
  
  
   *Yahoo! Grupos, um serviço oferecido por:*
   PUBLICIDADE
  
  
   
   *Links do Yahoo! Grupos*
  
   * Para visitar o site do seu grupo na web, acesse:
 http://br.groups.yahoo.com/group/delphi-br/
  
   * Para sair deste grupo, envie um e-mail para:
 [EMAIL PROTECTED]
  
mailto:[EMAIL PROTECTED]
  
   * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
 Serviço do Yahoo! http://br.yahoo.com/info/utos.html.
  
  


  --

  
  *