Re: [delphi-br] ( DESCONSIDERAR MSG ) Fw: Registro Duplicado

2007-04-03 Por tôpico Vinicius S. L. Ribeiro
Select campo1 from tabela group by campo1 having count(campo1)  1

com isso vc terá todas as ocorrencias com mais de uma aparicao (duplicados)

-- 

Atenciosamente,


Vinicius S. L. Ribeiro
[EMAIL PROTECTED]

GNU/Linux User #293209.
Get counted: http://counter.li.org/



willer escreveu:

 Como você conseguiu descobrir os registros duplicados com um select 
 simples? Que DB você usa? Que string de select você usou?
 Estou com esse problema aqui, mas não tenho muito conhecimento em SQL.
 Se puder me dizer como fez, agradeço.

 - Original Message -
 From: Luizcm_jr
 To: delphi-br@yahoogrupos.com.br 
 mailto:delphi-br%40yahoogrupos.com.br ; 
 [EMAIL PROTECTED] 
 mailto:delphi-total%40yahoogrupos.com.br
 Sent: Wednesday, March 28, 2007 4:05 PM
 Subject: [delphi-br] ( DESCONSIDERAR MSG ) Fw: Registro Duplicado

 Galera, favor desconsiderar a mensagem enviada abaixo.
 Finalmente eu consegui resolver..

 Obrigado

 Junior - Araraquara/SP

 - Original Message -
 From: Luizcm_jr
 To: delphi-br@yahoogrupos.com.br 
 mailto:delphi-br%40yahoogrupos.com.br ; 
 [EMAIL PROTECTED] 
 mailto:delphi-total%40yahoogrupos.com.br
 Sent: Wednesday, March 28, 2007 3:13 PM
 Subject: Registro Duplicado

 Boa Tarde

 Caros colegas de profissão, estou com problema para excluir registro 
 de um bando de dados que consta em duplicidade em uma tabela..

 atraves de um select simples, consegui encontrar os registro em 
 duplicidade mas agora preciso apagar os duplicados deixando claro na 
 tabela pelo menos um deles.

 Alguem saberia me informa como fazer isso.. ou se o mesmo eh possivel???

 Junior - Araraquara/SP

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

 __ Informação do NOD32 IMON 2149 (20070328) __

 Esta mensagem foi verificada pelo NOD32 sistema antivírus
 http://www.eset.com.br http://www.eset.com.br

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

  


Re: [delphi-br] Olá pessoal, o aprendiz solicita uma ajuda!

2007-04-03 Por tôpico Vinicius S. L. Ribeiro
Olá werelli !

Coloque 1 Tlabel, 1 Ttimer e 1 Tbutton no seu form.
Coloque o Timer1 como false.

Dê 2 clicks no botao e insira o codigo abaixo:
// O botao 'liga' a escrita
procedure TForm1.Button1Click(Sender: TObject);
begin
  timer1.Interval := 500;
  timer1.Enabled := true;
end;

Dê 2 clicks no timer e insira o codigo abaixo:
// o timer executa a 'escrita'
procedure TForm1.Timer1Timer(Sender: TObject);
  var
  texto : string;
begin
  texto := 'Ola Vinicius :)';
  Label1.Caption := Label1.Caption + copy(texto, length(Label1.Caption) 
+ 1, 1);
end;


Agora dê o play, clicando no botão, e veja o que acontece... :-)

-- 

Atenciosamente,


Vinicius S. L. Ribeiro
[EMAIL PROTECTED]

GNU/Linux User #293209.
Get counted: http://counter.li.org/



werelli escreveu:

 Olá pessoal!

 Um bom dia a todos.
 Bem gente minha dúvida é de principiante, mas lá vai...já falei aqui 
 sobre isso em posts anteriores, mas ainda não consegui chegar a uma 
 solução satisfatória.

 Gostaria de inserir um texto em label de forma pausada, tipo máquina 
 de escrever, um evento descadeia o processo e a partir disso o texto 
 entra pausadamente, nada de um click uma letra, seria mais ou menos 
 assim com um timer ou outro componente que vocês possam me indicar:

 begin

 if timer1.interval = 1000 else label1.caption := ' O';
 if timer1.interval = 1500 else label1.caption := ' i';
 if timer1.interval = 2000 else label1.caption := ' !';

 Claro que o código acima não funciona, mas é so para exemplificar o 
 que preciso, que a cada intervalo de 'tantos' do timer uma letra seja 
 inserida.

 Como sempre conto com os amigos e ficarei agradecido;

 Atenciosamente,

 werelli

 __
 Fale com seus amigos de graça com o novo Yahoo! Messenger
 http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/

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

  


Re: [delphi-br] Impressão em impressora m atricial

2007-03-29 Por tôpico Vinicius S. L. Ribeiro
tente o fortes report (di gratis) ou rdprint (pago)

-- 

Atenciosamente,


Vinicius S. L. Ribeiro
[EMAIL PROTECTED]

GNU/Linux User #293209.
Get counted: http://counter.li.org/



Daniel Sobrinho Laporte escreveu:

 olá amigo tente o report builder com uma fonte draft que é possível 
 imprimir
 em matricial e visualizar atraves da propriedade PRINT, porém o 
 componente é
 pago.

 Existe um antigo chamado ZReport q é meio chato de trabalhar mas é mais
 facil de encontrar

 On 3/28/07, Tiago Zacchi [EMAIL PROTECTED] 
 mailto:tiago_zacchi%40yahoo.com.br wrote:
 
  Olá,
 
  Estive olhando as mensagens anteriores do grupo a procura de informações
  sobre impressão em impressora matricial!! Encontrei bastante coisa
  interessante, mas ainda estou com algumas duvidas!!
 
  Bom vamos lá :
 
  Como que se faz essa impressão? Por exemplo tenho que mandar os comandos
  linha a linha para imprimir? Tem como eu fazer um preview na tala 
 antes de
  manda p/ a impressora!! Vi que tem uns componentes pra fazer isso, 
 mas são
  pagos, existe algum free que faça isto?
 
  Gostaria de saber qual a maneira mais prática, para montar relatório 
 para
  este tipo de impressora !!
 
  Bom ainda não fiz nenhuma impressão com essa impressora, não sei por 
 onde
  começar, apesar das informações que já busquei ainda esta confuso !!!
 
  Desde já obrigado a todos!
 
  Atenciosamente,
  Tiago Francisco Zacchi
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 

 -- 
 Abraços,

 Daniel.

 Sempre que a vida lhe apresentar um desafio, tenha certeza que junto dele
 está a solução,

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

  


___ 
Yahoo! Mail - Sempre a melhor opção para você! 
Experimente já e veja as novidades. 
http://br.yahoo.com/mailbeta/tudonovo/


Re: [delphi-br] Sistema indepente de bd,, como????

2007-03-22 Por tôpico Vinicius S. L. Ribeiro
dbExpress resolveria esse problema

-- 

Atenciosamente,


Vinicius S. L. Ribeiro
[EMAIL PROTECTED]

GNU/Linux User #293209.
Get counted: http://counter.li.org/



Daniel Bastos escreveu:

 O nome das tabelas é fácil de resolver, pode-se utilizar o utilitário JVCL
 Converter (No site da JVCL tem ele), mas mesmo assim, vc terá que 
 modificar
 SQLs na mão, pois o maior problema será quanto as diferenças de SQL
 específicas de cada SGDB.

 abs

 Em 22/03/07, Renan Nucci - CSM Soft [EMAIL PROTECTED] 
 mailto:nucci.csm%40terra.com.br escreveu:
 
  Pessoal,
 
  Estamos com um problema. Temos um sistema todo escrito para acessar 
 banco
  de dados SQL SERVER, mas acontece que agora um novo banco terá de ser
  acessado tb, no caso o Oracle.
 
  O que vcs indicam que seje feito?
  Vou ter de alterar na mão todas as conexões e as querys do meu sistema
  para ele pegar de um determinado schema quando for Oracle, ou de 
 determinada
  database quando for SQL SERVER.
 
  Como que eu conseguiria uma independência de SGBD?
 
  
  * Renan S. Nucci *
  * Desenvolvedor *
  
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 

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

  


___ 
Yahoo! Mail - Sempre a melhor opção para você! 
Experimente já e veja as novidades. 
http://br.yahoo.com/mailbeta/tudonovo/


Re: [delphi-br] soluções delphi em web com firebird

2007-03-22 Por tôpico Vinicius S. L. Ribeiro
Nunca usei DataSnap ou IntraWeb, porém estou usando asp.net e já te 
falo: bom demais!

Voce tem o poder do CLR 2.0 em suas mãos! rsrs

-- 

Atenciosamente,


Vinicius S. L. Ribeiro
[EMAIL PROTECTED]


[EMAIL PROTECTED] escreveu:

 Amigos em suas opiniões, qual o mais usado hoje ?

 DataSnap, IntraWeb ou Asp.Net

 Tenho que desenvolver um aplicativo baseado em Web com FireBird e 
 estou com duvidas quanto a qual tecnologia utilizar.

 Agradeço a colaboração dos colegas,

 Erivando

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

  


___ 
Yahoo! Mail - Sempre a melhor opção para você! 
Experimente já e veja as novidades. 
http://br.yahoo.com/mailbeta/tudonovo/
 



Re: [delphi-br] Sistema indepente de bd,, como????

2007-03-22 Por tôpico Vinicius S. L. Ribeiro
Com dbExpress vc desenvolve para InterBase, MS-SQL Server, Oracle, entre 
outros. Vc só escolhe qual driver usar e a programacao 
(inclusao/exclusao, etc) é a mesma. Eu usei isso no sistema q desenvolvi 
utilizando 2 bancos (Firebird local e MS SQL server remoto) e funcionou 
mto bem.

Também existem frameworks de persistencia (DePO, etc) mas nunca usei com 
o Delphi, entao nao posso te dar detalhes.

-- 

Atenciosamente,


Vinicius S. L. Ribeiro
[EMAIL PROTECTED]

GNU/Linux User #293209.
Get counted: http://counter.li.org/



Renan Nucci - CSM Soft escreveu:

 como?

 
 * Renan S. Nucci *
 * Desenvolvedor *
 * CSM Software *
 
 - Original Message -
 From: Vinicius S. L. Ribeiro
 To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
 Sent: Thursday, March 22, 2007 2:46 PM
 Subject: Re: [delphi-br] Sistema indepente de bd,, como

 dbExpress resolveria esse problema

 -- 

 Atenciosamente,

 Vinicius S. L. Ribeiro
 [EMAIL PROTECTED] mailto:vinilistas%40yahoo.com.br

 GNU/Linux User #293209.
 Get counted: http://counter.li.org/ http://counter.li.org/

 Daniel Bastos escreveu:
 
  O nome das tabelas é fácil de resolver, pode-se utilizar o 
 utilitário JVCL
  Converter (No site da JVCL tem ele), mas mesmo assim, vc terá que
  modificar
  SQLs na mão, pois o maior problema será quanto as diferenças de SQL
  específicas de cada SGDB.
 
  abs
 
  Em 22/03/07, Renan Nucci - CSM Soft [EMAIL PROTECTED] 
 mailto:nucci.csm%40terra.com.br
  mailto:nucci.csm%40terra.com.br escreveu:
  
   Pessoal,
  
   Estamos com um problema. Temos um sistema todo escrito para acessar
  banco
   de dados SQL SERVER, mas acontece que agora um novo banco terá de ser
   acessado tb, no caso o Oracle.
  
   O que vcs indicam que seje feito?
   Vou ter de alterar na mão todas as conexões e as querys do meu sistema
   para ele pegar de um determinado schema quando for Oracle, ou de
  determinada
   database quando for SQL SERVER.
  
   Como que eu conseguiria uma independência de SGBD?
  
   
   * Renan S. Nucci *
   * Desenvolvedor *
   
  
   [As partes desta mensagem que não continham texto foram removidas]
  
  
  
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 

 ___
 Yahoo! Mail - Sempre a melhor opção para você!
 Experimente já e veja as novidades.
 http://br.yahoo.com/mailbeta/tudonovo/ 
 http://br.yahoo.com/mailbeta/tudonovo/

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

  


___ 
Yahoo! Mail - Sempre a melhor opção para você! 
Experimente já e veja as novidades. 
http://br.yahoo.com/mailbeta/tudonovo/
 



Re: [delphi-br] Problema com DBExpress: unable to load dbexpint.dll

2007-02-13 Por tôpico Vinicius S. L. Ribeiro
Poe as DLLs db*.dll (dbExpress) na pasta do seu aplicativo para evitar 
conflitos de versao.

-- 

Atenciosamente,


Vinicius S. L. Ribeiro
[EMAIL PROTECTED]

GNU/Linux User #293209.
Get counted: http://counter.li.org/



Fellipe Henrique escreveu:

 Olá amigos, estou tendo um problemão com meu DBExpress... Tinha o Delphi7
 instalado e instalei o BDS2006, pois bem.. eis que deu um conflito danado
 nos dois... o que fiz foi remover os dois delphis... mandei limpar o
 registro do windows... e instalei o BDS2006 do zero foi instalado com
 sucesso, sem problemas... mas na hora de abrir meu projeto no 
 delphi... dá o
 erro:

 [b]unabled to load dbexpint.dll[/b]

 Como posso solucionar este problema?

 P.S.: procurei pelo meu HD e não encontrei nada do dbexpess... onde acho
 estes arquivos? ou uma instalação limpa do DBExpress?

 Desde já agradeço.

 []s

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

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

  


___ 
Yahoo! Mail - Sempre a melhor opção para você! 
Experimente já e veja as novidades. 
http://br.yahoo.com/mailbeta/tudonovo/
 



Re: [delphi-br] Problema com DBExpress: unable to load dbexpint.dll

2007-02-13 Por tôpico Vinicius S. L. Ribeiro
eu nao uso BDS. Delphi eu parei no 7.

Bom q vc achou o problema =)

Abraxx

-- 

Atenciosamente,


Vinicius S. L. Ribeiro
[EMAIL PROTECTED]

GNU/Linux User #293209.
Get counted: http://counter.li.org/



Fellipe Henrique escreveu:

 Olá vinicius, descrobi o erro.. no Delphi 7 é dbexpint.dll no bds é
 dbxint30.dll

 é mole?!?

 valeu...

 []s

 Em 13/02/07, Vinicius S. L. Ribeiro [EMAIL PROTECTED] 
 mailto:vinilistas%40yahoo.com.br escreveu:
 
  Poe as DLLs db*.dll (dbExpress) na pasta do seu aplicativo para evitar
  conflitos de versao.
 

 -- 
 
  Atenciosamente,
 
  Vinicius S. L. Ribeiro
  [EMAIL PROTECTED] mailto:vinilistas%40yahoo.com.br 
 vinilistas%40yahoo.com.br
 
  GNU/Linux User #293209.
  Get counted: http://counter.li.org/ http://counter.li.org/
 
  Fellipe Henrique escreveu:
 
  
   Olá amigos, estou tendo um problemão com meu DBExpress... Tinha o
  Delphi7
   instalado e instalei o BDS2006, pois bem.. eis que deu um conflito
  danado
   nos dois... o que fiz foi remover os dois delphis... mandei limpar o
   registro do windows... e instalei o BDS2006 do zero foi instalado
  com
   sucesso, sem problemas... mas na hora de abrir meu projeto no
   delphi... dá o
   erro:
  
   [b]unabled to load dbexpint.dll[/b]
  
   Como posso solucionar este problema?
  
   P.S.: procurei pelo meu HD e não encontrei nada do dbexpess... 
 onde acho
   estes arquivos? ou uma instalação limpa do DBExpress?
  
   Desde já agradeço.
  
   []s
  
   --
   _
   Fellipe Henrique
   [EMAIL PROTECTED] mailto:fellipeh%40gmail.com 
 fellipeh%40gmail.com mailto:fellipeh%fellipeh%25
  40gmail.com
  
   [As partes desta mensagem que não continham texto foram removidas]
  
  
 
 
  ___
  Yahoo! Mail - Sempre a melhor opção para você!
  Experimente já e veja as novidades.
  http://br.yahoo.com/mailbeta/tudonovo/ 
 http://br.yahoo.com/mailbeta/tudonovo/
 
 
 
 

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

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

  


___ 
Yahoo! Mail - Sempre a melhor opção para você! 
Experimente já e veja as novidades. 
http://br.yahoo.com/mailbeta/tudonovo/


Re: [delphi-br] Re: como fazer para não dupli car registros?

2007-01-17 Por tôpico Vinicius S. L. Ribeiro
Walter só uma correcao,

nao existe SEJE, e sim SEJA... rsrsrs Bricadeira Walter!!

Bom Gustavo, como o Walter disse eu acho que vc deve se aprofundar nos 
conceitos de BD isso facilitaria sua vida na area de desenvolvimento 
de sistemas.

Bom, tentando responder sua pergunta voce poderia fazer um:

 select count(SETOR) total_reg from TABELA group by SETOR having 
count(SETOR)  1

Se for retornado algo ai maior que zero é porque já existe algum 
registro duplicado.

Esse select ai vc utilizará com o componente que desejar para acesso a 
dados.

-- 

Atenciosamente,


Vinicius S. L. Ribeiro
[EMAIL PROTECTED]

GNU/Linux User #293209.
Get counted: http://counter.li.org/



Walter Chagas (Yahoo) escreveu:

 Gustavo,

 Pelo seu papo, acredita-se que você não conhece ou, se conhece,
 conhece pouco os fundamentos de um banco de dados. Por exemplo, uma
 coisa que você falou, para não duplicar registros, a não ser que o
 usuário queira que isso aconteça. Não se duplica registro em banco
 de dados sob nenhuma circunstância. Você pode sim duplicar dados.
 Todo e qualquer banco de dados permite você duplicar e até
 quadruplicar dados a vontade, mas registro não. Há uma diferença de
 conceito nisto daí.

 Eu sugiro você buscar uma linha de estudo em cima disto, como
 Chaveamentos, unicidade, relacionamentos e entidades que são
 fundamentalíssimos para que um sistema seje bom, eficiente e robusto.

 []s



 Walter Alves Chagas Junior
 Belo Horizonte - MG - Brazil
 [EMAIL PROTECTED] mailto:wchagasj%40yahoo.com.br
 http://www.geocities.com/SiliconValley/Bay/1058 
 http://www.geocities.com/SiliconValley/Bay/1058
 MSN: [EMAIL PROTECTED] mailto:whitesockets%40hotmail.com


 --- Em delphi-br@yahoogrupos.com.br 
 mailto:delphi-br%40yahoogrupos.com.br, Gustavo André de Freitas
 [EMAIL PROTECTED] escreveu
 
 
  Na verdade estou começando agora e entendi muito pouca coisa. Não
  estou entendendo muito ainda como fazer pesquisas.
 
  Gustavo André de Freitas
 
 
  --- Em delphi-br@yahoogrupos.com.br 
 mailto:delphi-br%40yahoogrupos.com.br, Tamara Clemente
  tamara.grupos@ escreveu
  
   Bom Gustavo... desta forma eu acredito que só antes de efetuar o
  post
   da tabela, vc faça uma consulta com o parametro nome do setor na
   clausura where, e ai então, verificando o recordcount da consulta
 vc
   emite a msg da forma q vc deseja... ajudado ou atrapalhado???rs
  
   Qquer coisa estamos ai...
  
   Tamara Clemente
   Analista Desenvolvedor
  
   Em 16/01/07, Gustavo André de Freitasgustavo_sis@ escreveu:
estou começando agora em programação e estou desenvolvendo um
  pequeno
aplicativo de controle de patrimonio com Delphi 7 e Firebird
 1.5,
  e
gostaria de tirar a seguinte dúvida:
como fazer para não duplicar registros, a não ser que o usuário
  queira
que isso aconteça?
Ex. tenho a tabela Setor. nela eu tenho 4 campos, codigo,
  nomesetor,
ramal e obs. gostaria que o nome setor não duplicasse, a não
 ser
  que o
usuário queira, que aparecesse uma caixa perguntando se deseja
 ou
  não
efetuar o registro mesmo assim.
   
ex. o setor já está cadastrado, deseja cadastrá-lo mesmo
 assim?,
  ou
algo parecido.
   
   
desde já agradeço a todos pela ajuda!
   
Gustavo André de Freitas
Linhares - ES
   
   
   
  
 

  


___ 
Yahoo! Mail - Sempre a melhor opção para você! 
Experimente já e veja as novidades. 
http://br.yahoo.com/mailbeta/tudonovo/
 



Re: [delphi-br] Descobrir o tamanho do arquivo

2007-01-17 Por tôpico Vinicius S. L. Ribeiro
Willer,

achei essa funcao em um arq. PAS que baixei na net em 2004, sem 
referencias de autor. Nunca usei portanto nao garanto que funciona. 
Testa ai ok?!

Abraco!


uses Windows, Classes, Forms, Dialogs, SysUtils, FileCtrl, ShellAPI, ShlObj;

Interface
function getFileSize(const FileName: string): LongInt;


implementation
function getFileSize(const FileName: string): LongInt;
var
  SearchRec: TSearchRec;
  sgPath   : String;
  inRetval : Integer;
begin
  sgPath   := ExpandFileName(FileName);
  try
inRetval := FindFirst(ExpandFileName(FileName), faAnyFile, SearchRec);
If inRetval = 0 then
  Result := SearchRec.Size
else Result := -1;
  finally
SysUtils.FindClose(SearchRec);
  end;
end;

-- 

Atenciosamente,


Vinicius S. L. Ribeiro
[EMAIL PROTECTED]

GNU/Linux User #293209.
Get counted: http://counter.li.org/



willer escreveu:

 Aguém sabe como se faz para descobrir o tamanho do arquivo? Pode ser 
 em bytes, Kbytes...
 Eu estou implementando uma rotina de exportação de dados. Os dados são 
 enviados para um servidor de FTP, mas gostaria de informar quanto já 
 foi enviado e quanto ainda falta para enviar, pois is arquivos são 
 grandes e podem demorar um pouco.

 Tenho um arquivo chamado 'c:\db.dat', e gostaria de saber o tamanho 
 dele, que pode variar de acordo com o conteúdo.

 Qualquer dica é bem vinda. Agradeço desde já.

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

  


___ 
Yahoo! Mail - Sempre a melhor opção para você! 
Experimente já e veja as novidades. 
http://br.yahoo.com/mailbeta/tudonovo/


Re: [delphi-br] Pegar Dominio/Grupo de trabalho

2006-07-14 Por tôpico Vinicius S. L. Ribeiro
Valeu pessoal!

Era justamente o que estava precisando.

Obrigado!!!

Atenciosamente,


Vinicius S. L. Ribeiro
[EMAIL PROTECTED]

GNU/Linux User #293209.
Get counted: http://counter.li.org/



Angélica Viana Pereira escreveu:
 function fncGetDomainName : string;
 var
   hToken : THandle;
   sida : PSIDAndAttributes;
   sidlen, unLen, dnLen : DWORD;
   userName, domainName : string;
   use : SID_NAME_USE;
 begin
   sida := Nil;
   if OpenProcessToken (GetCurrentProcess, TOKEN_QUERY, hToken) then
   try
 sidLen := 65536;
 repeat
   ReallocMem (sida, sidLen);

   if GetTokenInformation
 (hToken, TokenUser, sida, sidLen, sidLen) then
   begin
 break;
   end;


   if GetLastError  ERROR_INSUFFICIENT_BUFFER then
   begin
 RaiseLastWin32Error
   end;

 until False;

 unLen := 0;
 dnLen := 256;

 repeat
   SetLength (userName, unLen);
   SetLength (domainName, dnLen);
   if LookupAccountSid ('', sida^.Sid, PChar (userName), unLen,
   PChar (domainName), dnLen, use) then
   begin
 break;
   end;


   if GetLastError  ERROR_INSUFFICIENT_BUFFER then
   begin
 RaiseLastWin32Error;
   end;

 until False;


 Result := PChar (domainName)


   finally
 CloseHandle (hToken);
 FreeMem (sida);
   end
 end;

 function fncRetornaMaquina : String;
 var
   i : Integer;
   lpBuffer : PChar;
   nSize : Cardinal;
   strAux : String;
 begin
   //Retorna o Nome da Máquina
   nSize:= MAX_COMPUTERNAME_LENGTH + 1;
   lpBuffer := StrAlloc(nSize);
   GetComputerName(lpBuffer, nSize);

   Result := String(lpBuffer);

   StrDispose(lpBuffer);
 end;


 []s   Angélica
 - Original Message - 
 From: Desenvolvimento (Anderson) [EMAIL PROTECTED]
 To: delphi-br@yahoogrupos.com.br
 Sent: Friday, July 14, 2006 10:22 AM
 Subject: Re: [delphi-br] Pegar Dominio/Grupo de trabalho


 na paleta de componentes JEDI (jvSystem) tem um componente chamado
 JvComputarInfoEx.
 Nele, tem uma propriedade chamada IDENTIFICATION.
 Tem tudo.
 se não quiser instalar a paleta jedi, me fala q passo o codigo...
 mas eu acho mais facil instalar a JEDI...
   - Original Message - 
   From: Moked - Tamara (Brazil)
   To: delphi-br@yahoogrupos.com.br
   Sent: Friday, July 14, 2006 8:58 AM
   Subject: RES: [delphi-br] Pegar Dominio/Grupo de trabalho


   Vinicius,

   Desculpe a minha ignorância, mas o q seria o grupo de trabalho?

   Obrigada,

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


   

   De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
 nome de Vinicius S. L. Ribeiro
   Enviada em: quinta-feira, 13 de julho de 2006 21:01
   Para: delphi-br@yahoogrupos.com.br
   Assunto: [delphi-br] Pegar Dominio/Grupo de trabalho


   E ae pessoal, blz ?

   Alguem sabe como faco pra pegar o Dominio ou Grupo de Trabalho que o
   computador faz parte atraves do Delphi ?

   Valeu!

   -- 

   Atenciosamente,


   Vinicius S. L. Ribeiro
   [EMAIL PROTECTED]

   GNU/Linux User #293209.
   Get counted: http://counter.li.org/






   ___
   Você quer respostas para suas perguntas? Ou você sabe muito e quer
 compartilhar seu conhecimento? Experimente o Yahoo! Respostas !
   http://br.answers.yahoo.com/



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



   __ Informação do NOD32 IMON 1.1660 (20060714) __

   Esta mensagem foi verificada pelo NOD32 sistema antivírus
   http://www.eset.com.br



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



   


___ 
Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. 
Registre seu aparelho agora! 
http://br.mobile.yahoo.com/mailalertas/ 
 



-- 
 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] Pegar Dominio/Grupo de trabalho

2006-07-13 Por tôpico Vinicius S. L. Ribeiro
E ae pessoal, blz ?

Alguem sabe como faco pra pegar o Dominio ou Grupo de Trabalho que o 
computador faz parte atraves do Delphi ?

Valeu!

-- 

Atenciosamente,


Vinicius S. L. Ribeiro
[EMAIL PROTECTED]

GNU/Linux User #293209.
Get counted: http://counter.li.org/






___ 
Você quer respostas para suas perguntas? Ou você sabe muito e quer compartilhar 
seu conhecimento? Experimente o Yahoo! Respostas !
http://br.answers.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: RES: [delphi-br] Re: Como melhorar performance do update em tabela com 85000 registros

2006-06-22 Por tôpico Vinicius S. L. Ribeiro
Tive muitos problemas com um banco firebird com relacao a performance. O 
mesmo estava lotado de indices desnecessarios (o cara que criou veio do 
Clipper e achou que teria de ficar criando indice pra tudo qto era 
pesquisa).

O que fiz ? Desativei TUDO. Deixei o banco liso. Fui refazendo as chaves 
e etc. Melhorou 1000% !!!

Atenciosamente,


Vinicius S. L. Ribeiro
[EMAIL PROTECTED]

GNU/Linux User #293209.
Get counted: http://counter.li.org/



romerofartura escreveu:
 Valeu pela dica já melhorou bem passou de 175 registros por min. p/ 
 275, teria mais algo que eu poderia estar vendo para melhorar mais um 
 pouquinho, não considerando a troca da cpu, numa outra cpu um pouco 
 melhor é 20% mais rápido, no dia da atualização no cliente vou levar 
 outra, mas melhorar utilizando outros meios via update ou 
 configuração do firebird ou alguma mudança na tabela, etc.

 Agradeço desde já a atenção dispensada.

 --- Em delphi-br@yahoogrupos.com.br, Elazar Dornelles Ceza 
 [EMAIL PROTECTED] escreveu
   
 RomeroFartura;

 O Motivo de demora pode ocorrer caso tenha chaves primarias,
 estrangeiras e ate mesmos indices para algum campo da tabela, a 
 
 sujestao
   
 que deixo, e que voce desative tudo, e volte a ativar depois de 
 
 gerar os
   
 codigos.

 Outra sugestao seria de não usar o where, CONSIDERANDO que voce quer
 criar um novo campo CODIGO.
 UPDATE CONREC SET CODIGO = GEN_ID(GEN_CONREC,1);
 COMMIT WORK;

 Atenc.
 Elazar


 -Mensagem original-
 De: delphi-br@yahoogrupos.com.br [mailto:delphi-
 
 [EMAIL PROTECTED]
   
 Em nome de romerofartura
 Enviada em: quinta-feira, 22 de junho de 2006 08:33
 Para: delphi-br@yahoogrupos.com.br
 Assunto: [delphi-br] Re: Como melhorar performance do update em 
 
 tabela
   
 com 85000 registros


 Desculpe pessoal o banco é firebird 1.5, o caso é que nesta tabela 
 tem 25 campos adicionei um codigo integer para ser a chave, pois 
 
 a 
   
 chave anterior começou a dar um problema por relacionamento errado, 
 então preciso fazer este update usando o generator para ele 
 
 atualizar 
   
 numerando um a um o campo da tabela sem repetir o número.

 --- Em delphi-br@yahoogrupos.com.br, romerofartura [EMAIL PROTECTED] 
 escreveu
 
 Estou com problemas em um cliente preciso fazer uma select para 
   
 gerar o 
 
 codigo da tabela criei o seguinte script, foi o mais rápido que 
 consegui, mas mesmo assim vão 10 horas para atualizar, queria 
   
 saber 
   
 se 
 
 alguém poderia me ajudar e ver se tem como melhorar mais, ou se 
   
 vou 
   
 precisar trocar a máquina do cliente ela é um Cel. 
 2.8/512MB/HD80GB/PCCHIPS, segue o script:

 UPDATE CONREC SET CODIGO = GEN_ID(GEN_CONREC,1)
 WHERE CODIGO IS NULL

 O generator não vai deixar repetir o código, que tiver alguma 
   
 idéia 
   
 agradeço, Ricardo Romero.

   


  


  
 ___ 
 Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu 
 
 celular. Registre seu aparelho agora! 
   
 http://br.mobile.yahoo.com/mailalertas/

 






   





___ 
Yahoo! doce lar. Faça do Yahoo! sua homepage. 
http://br.yahoo.com/homepageset.html 



-- 
 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] [OFF TOPIC] Tenho de mudar para Java?!

2006-04-09 Por tôpico Vinicius S. L. Ribeiro
Estou estudando Java (J2EE) e estou gostando. Gosto nao se discute mas 
cheguei a conclusao que o melhor editor free pra java eh o Eclipse.

Nao sei se existe plugin delphi pra eclipse, visto que delphi nao eh uma 
funcionalidade, mas sim uma ferramenta completa, acho dificil de ter,  
mas como agente acha de tudo na net pode ser que algum maluco tenha 
feito! rsrsrs..

Java tem muiito recurso, alem de ser multiplataforma. Porem ja te 
falo que nao eh trivial montar um ambiente produtivo em java 
rapidamente. Existem muitas IDEs, plugins, etc.. para java e vc terah de 
destrinchar para ver o que melhor te adapta.

No mais boa sorte! :)

Atenciosamente,


Vinicius S. L. Ribeiro
[EMAIL PROTECTED]

GNU/Linux User #293209.
Get counted: http://counter.li.org/



Edmilson Pontes escreveu:
 Colegas Bom Dia!!!
 Após um tempo fora do ar estou de volta...

 Em Java posso usar ferramentas como Eclipse e/ou NetBeans.  Existe uma
 alternativa grátis ao Delphi? Existe plugin Delphi para o Eclipse?
 Tenho um projeto para desenvolver mas o seu custo pode inviabilizá-lo.
 Ainda não dei uma vasculhada nas duas ferramentas acima, mas muita gente
 diz que elas atendem bem dependendo do projeto.
 Até o momento não estou vendo alternativa a não ser estudar Java. O que
 vocês acham? Me passem umas diacas aê...

 Edmilson Pontes


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



   


___ 
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] html - web Robôs com Delphi

2006-04-06 Por tôpico Vinicius S. L. Ribeiro
Celso Delphi escreveu:
 A idéia é criar um Programa que leia as informações em sites pre-definidos e
 possam cadastrar essas informações em outros sites, de modo que o processo
 fique automatizado, seria como os programas robôs que já fazem um tipo de
 trabalho semelhante.
Isso ai chama-se Interoperabilidade. WebServices trabalham justamente 
nesse item. No caso o site origem deveria disponibilizar servicos para 
que voce pudesse transpor informacoes para o site destino.

Corrijam-me se estiver errado.

-- 

Atenciosamente,


Vinicius S. L. Ribeiro
[EMAIL PROTECTED]

GNU/Linux User #293209.
Get counted: http://counter.li.org/



___ 
Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. 
Registre seu aparelho agora! 
http://br.mobile.yahoo.com/mailalertas/ 
 



-- 
 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] Method 'element' with identical parameters exists already

2006-03-15 Por tôpico Vinicius S. L. Ribeiro
Nao tinha pensado nisso! rsrs

Mudei a assinatura do metodo e problema resolvido.

Obrigado.

Vinicius Ribeiro
[EMAIL PROTECTED]


Daniel Polistchuck escreveu:
 Métodos overloaded não podem se diferenciar somente no tipo de seu retorno, 
 mas na lista de parâmetros.
  
 Como o compilador iria resolver a seguinte chamada:
  
 begin
   getRetorno;
 end;
  
 []s
  
 Daniel Polistchuck
 Consulting Services Manager
 http://info.borland.com.br/borcon Tel.: (55 11) 2165 - 8000 / 8196-5947
 http://info.borland.com.br/borcon [EMAIL PROTECTED] - www.borland.com.br 
 http://www.borland.com.br/ 

 A Borland Software é líder mundial em soluções independentes de plataforma 
 para a Criação Otimizada de Software (Software Delivery Optimization), 
 auxiliando nossos clientes a transporem as barreiras atuais do 
 desenvolvimento, para maximizar o valor do software para seu negócio. 

   http://info.borland.com.br/delphi 

  

 

 From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of 
 Vinicius S. L. Ribeiro
 Sent: Tuesday, March 14, 2006 1:37 PM
 To: delphi-br@yahoogrupos.com.br
 Subject: [delphi-br] Method 'element' with identical parameters exists 
 already


 Ola pessoal!

 Estou definindo uma classe aqui e esta possui o metodo chamado 
 getRetorno. Esse metodo pode retornar ou uma String ou uma lista de 
 strings, como podem ver na declaracao abaixo:

 function getRetorno:string; overload;
 function getRetorno:TStringList; overload;


 POREM o delphi estah me retornando que Method 'element' with 
 identical parameters exists already, ou seja, porem cada metodo retorna 
 um valor diferente e nao preciso de parametros.

 PERGUNTA: como faco pra declarar corretamente esse metodo ?

 Desde ja agradeco a todos!


 Vinicius Ribeiro
 [EMAIL PROTECTED]

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


   



___
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

 




[delphi-br] Method 'element' with identical parameters exists already

2006-03-14 Por tôpico Vinicius S. L. Ribeiro
Ola pessoal!

Estou definindo uma classe aqui e esta possui o metodo chamado 
getRetorno. Esse metodo pode retornar ou uma String ou uma lista de 
strings, como podem ver na declaracao abaixo:

function getRetorno:string; overload;
function getRetorno:TStringList; overload;


POREM o delphi estah me retornando que Method 'element' with 
identical parameters exists already, ou seja, porem cada metodo retorna 
um valor diferente e nao preciso de parametros.

PERGUNTA: como faco pra declarar corretamente esse metodo ?

Desde ja agradeco a todos!


Vinicius Ribeiro
[EMAIL PROTECTED]


___
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

 




[delphi-br] Method 'element' with identical parameters exists already

2006-03-14 Por tôpico Vinicius S. L. Ribeiro
Ola pessoal!

Estou definindo uma classe aqui e esta possui o metodo chamado
getRetorno. Esse metodo pode retornar ou uma String ou uma lista de
strings, como podem ver na declaracao abaixo:

function getRetorno:string; overload;
function getRetorno:TStringList; overload;


POREM o delphi estah me retornando que Method 'element' with
identical parameters exists already, ou seja, porem cada metodo retorna
um valor diferente e nao preciso de parametros.

PERGUNTA: como faco pra declarar corretamente esse metodo ?

Desde ja agradeco a todos!


Vinicius Ribeiro
[EMAIL PROTECTED]






___ 
Yahoo! doce lar. Faça do Yahoo! sua homepage. 
http://br.yahoo.com/homepageset.html 



-- 
 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] Boleto bancário

2006-02-16 Por tôpico Vinicius S. L. Ribeiro
www.cobrebem.com.br

Felipe Vitta escreveu:
 existe o componente FreeBoleto, eh open source e ja tem as regras de varios
 bancos.

 Naum tenho mais o link mas eh ir no google e vc encontra o blog do erick
 sasse que participou do desenvolvimento.

 Em 16/02/06, André Luis de Oliveira [EMAIL PROTECTED] escreveu:
   
 Alguém já desenvolveu rotina para gerar boleto bancário, ou tem algum site
 de informações.




 
 André Luis de Oliveira
 Programador de Sistemas
 E-mail: [EMAIL PROTECTED] / [EMAIL PROTECTED]
 Telefone: (19) 3731-4019
 Celular: (19) 9703-9018


 Uniodonto Campinas
 Av. Brasil, 200 - Campinas/SP
 Telefone: (19) 3731-4000
 Visite nosso site: www.uniodontocamp.com.br
 E-mail: [EMAIL PROTECTED]


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



 --
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 



 Links do Yahoo! Grupos









 


 [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