Re: [delphi-br] Qual o limite para cada linha de um StringList?

2008-12-29 Por tôpico Joao Morais
2008/12/18 Fellipe Henrique felli...@gmail.com:
 Amigos, existe um limite de caracteres por linha de um StringList? estou
 pensando em por um texto que tem no minimo uns 6000 caracteres, daí pra
 mais...

A dúvida deve estar mais do que resolvida, mas vai a informação assim
mesmo: um StringList armazena uma lista de ansi strings. Uma ansi
string pode ter até 2Gb, ou pouco mais de 2 bilhões de caracteres
ansi. Uma StringList pode ter tantas ansi strings quanto sua máquina e
seu SO suportarem.

--
Joao Morais


Re: [delphi-br] Gostaria de uma idéia para trabalhar com pacotes

2008-12-29 Por tôpico Joao Morais
2008/12/19 Fellipe Henrique felli...@gmail.com:
 Bom, o que me fez desistir dos BPLs foi justamente o problema de, vamos
 supor, você tem sua tela Basic, e mais 10 telas herdadas dela... se você
 modificar o pacote do Basic, você terá que recompilar todos os BPLs que usam
 ela...o que a frase BPL dinâmico fica a desejar... como assim dinâmico se
 tenho que recompilar a maioria dos BPLs?!?!

Dinâmico porque linkado com seu .exe tempo de execução, e não porque é mágico.

 Agora imagina você ter um BPL com várias classes de funções e etc. usada em
 TODOS os seus BPLs... você modifica sua BPL de funções e teria que
 recompilar TODAS as BPLs e enviar para o cliente, olha a trabalheira!

 Bom, até o momento não descobri um jeito de não cair neste problema, se
 alguém souber passo a gostar novamente de BPLs.. :o).. até lá, não vejo
 muita vantagem em usar BPLs...

Enquanto você não mudar a interface das suas units, você não terá
problema. A interface da unit é justamente aquela parte entre o
interface e o implementation. Se você mudar apenas código, você
provavelmente conseguirá compatibilidade.

--
Joao Morais


Re: [delphi-br] Usando Indy - SMTP

2008-12-29 Por tôpico fabio giro
A porta do yahoo é 587.

--- Em sáb, 27/12/08, Dener (SOFTClass) lis...@softclass.com.br escreveu:

De: Dener (SOFTClass) lis...@softclass.com.br
Assunto: Re: [delphi-br] Usando Indy - SMTP
Para: delphi-br@yahoogrupos.com.br
Data: Sábado, 27 de Dezembro de 2008, 14:19







Amarra o IdSMTP com um componente IdSSLIOHandlerSocke tOpenSSL (Indy 10) 
no Indy 9 eu tentei e não consegui fazer funcionar, segue o meu código, 
testei com gmail, terra e uol.

// Conecta
with IdSMTP do
begin
Host := SMTPServidor;
Username := SMTPUsuario;
Password := SMTPSenha;
Port := SMTPPorta;
AuthType := satNone;
if SMTPAutenticar = 'S' then
AuthType := satDefault;
IdSMTP.IOHandler := nil;
if SMTPSSL = 'S' then
begin
IdSMTP.IOHandler := IdSSL;
UseTLS := utUseRequireTLS;
end;
with IdLog do
begin
Filename := 'C:\LOG.LOG' ;
IdSMTP.Intercept := IdLog;
Active := (SMTPLog='S' );
end;
try
Connect;
if SMTPAutenticar = 'S' then
Authenticate;
except
on Erro:Exception do
begin
MsgMensagem := 'Não foi possível conectar ao servidor';
MsgAjuda := 'Erro informado:'+ #13+#10+Erro. Message;
MsgError;
Exit;
end;
end;
end;

// Envia o email
try
with IdSMTP do
begin
try
Send(IdSMTPMessage) ;
finally
Disconnect;
end;
end;
except
on Erro:Exception do
begin
MsgMensagem := 'Erro no envio das informações';
MsgAjuda := 'Erro informado:'+ #13+#10+Erro. Message;
MsgError;
Exit;
end;
end;

Tenta aí, se não der te mando o pedaço do código que controlo isso.

Dener

Coutinho - Yahoo escreveu:

 Pessoal

 Tenho feito meus envios de e-mail, usando o componente da Jedi... agora,
 tenho tentado usar a Indy.
 Quando uso o servidor de smtp do provedor Terra, com a porta 25,
 funciona que é uma beleza, mas quando uso o do yahoo, ou gmail, etc...
 porta 465 a coisa pega... dá um erro de socket, e aí fiquei vendido,
 pois tentei achar pelo google e até no próprio site da Indy sobre envio
 de e-mail para servidores com conexão segura, e dei com os burros n'água.

 Alguém já conseguiu fazer isso, e pode me dar uma LUZ?

 Desde já agradeço.

 Emanuel Coutinho

 

 














  Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

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



[delphi-br] Erro ao registrar dll

2008-12-29 Por tôpico Elazar Dornelles Ceza
Bom dia.

Feliz Natal e Feliz Ano Novo ...rsss

bom, era demais esperar passar o ano novo sem um problema nhe!!!..rss

bom estou tentando registrar uma dll usando o regsrv32 e me retorna um 
'erinho'..rsss

DllRegisterServer em  caminho para DLL  falha.
Return código foi: 0 x 80004005 

Já procurei no google e este erro tem as pencas, mas solução nenhuma encontrei. 
se alguem já passou por isto agradeço a sugestão.


Atenc
Elazar


  Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com


RE: [delphi-br] Qual o limite para cada linha de um StringList?

2008-12-29 Por tôpico Rubem Nascimento da Rocha

Não poderia ter respondido melhor, mestre João!
Excelente explanação!

Sds.


 To: delphi-br@yahoogrupos.com.br
 From: jcmorai...@gmail.com
 Date: Mon, 29 Dec 2008 08:27:13 -0200
 Subject: Re: [delphi-br] Qual o limite para cada linha de um StringList?

 2008/12/18 Fellipe Henrique:

 Amigos, existe um limite de caracteres por linha de um StringList? estou

 pensando em por um texto que tem no minimo uns 6000 caracteres, daí pra

 mais...



 A dúvida deve estar mais do que resolvida, mas vai a informação assim

 mesmo: um StringList armazena uma lista de ansi strings. Uma ansi

 string pode ter até 2Gb, ou pouco mais de 2 bilhões de caracteres

 ansi. Uma StringList pode ter tantas ansi strings quanto sua máquina e

 seu SO suportarem.



 --

 Joao Morais



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

Re: [delphi-br] Usando Indy - SMTP

2008-12-29 Por tôpico Coutinho - Yahoo
AGRADECIMENTOS  

Quero empenhadamente agradecer aos colegas que me ajudaram. FUNCIONOU!!!
Consegui passar a mensgem usando o servidor do Yahoo!!!
A Propósito, no site eles informam porta 465, mas a que funcionou foi a 
587..

Desta forma, agora é só ver como será com o GMAIL e  Ig.. aí meu 
programinha estará prontinho...

Brigadão Gente...


FELIZ 2009 PRÁ TODO MUNDO

Emanuel coutinho



[delphi-br] TreeView

2008-12-29 Por tôpico dhsb
Pessoal, tenho um componente TreeView, e toda vez que clico em cima 
dele do Node a descrição fica em modo editavel? como eu poderia 
resolver isso para nao acontecer mais?

Valeu




[delphi-br] Re: TreeView

2008-12-29 Por tôpico denilsonass2008
É só você colocar a Propriedade ReadOnly do Componente TreeView para 
False.

Abraços.

--- Em delphi-br@yahoogrupos.com.br, dhsb dionata...@... escreveu

 Pessoal, tenho um componente TreeView, e toda vez que clico em cima 
 dele do Node a descrição fica em modo editavel? como eu poderia 
 resolver isso para nao acontecer mais?
 
 Valeu






[delphi-br] Ultimos lançamentos

2008-12-29 Por tôpico Sergio - Jundiai / SP



Boa tarde



minha dúvida e a seguinte


ao fazer uma consulta ao banco de dados SQL Server atraves de uma query tem 
como no dbgrid aparecer apenas os 10 ultimos lançamentos???


Pois na abertura do formulários trago os movimentos do mês e esta ficando 
grande a quantidade de itens


Sergio
Jundiai 




-- 
 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:
delphi-br-ow...@yahoogrupos.com.br
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:
delphi-br-unsubscr...@yahoogrupos.com.br

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




Re: [delphi-br] Re: TreeView

2008-12-29 Por tôpico BandaLemuel
Me Desculpe mas acho que deve ser para True...

Wesley


From: denilsonass2008 
Sent: Monday, December 29, 2008 4:03 PM
To: delphi-br@yahoogrupos.com.br 
Subject: [delphi-br] Re: TreeView


É só você colocar a Propriedade ReadOnly do Componente TreeView para 
False.

Abraços.

--- Em delphi-br@yahoogrupos.com.br, dhsb dionata...@... escreveu

 Pessoal, tenho um componente TreeView, e toda vez que clico em cima 
 dele do Node a descrição fica em modo editavel? como eu poderia 
 resolver isso para nao acontecer mais?
 
 Valeu




 

__ Information from ESET NOD32 Antivirus, version of virus signature 
database 3721 (20081229) __

The message was checked by ESET NOD32 Antivirus.

http://www.eset.com


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



RES: [delphi-br] Dúvida com TStringList

2008-12-29 Por tôpico Juliano Silva - Yahoo
 

Outra alternativa, é antes de adicionar o texto no StringList você pode
verificar se a função POS retornar maior que zero, caso sim é porque o texto
já existe no StringList, então você não adiciona, o StringList tem a
propriedade Text, então você faz o seguinte, 

 

IF  Pos(Edit1.Text, StringList.text)  0 THEN

Begin

  ShowMessage(Existe...)

End;

 

 

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Guionardo Furlan
Enviada em: sábado, 27 de dezembro de 2008 11:15
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Dúvida com TStringList

 

Usar a propriedade Duplicates do TStringList não resolve teu problema?

2008/12/15 deco0_07 andre.alme...@medicator.com.br
mailto:andre.almeida%40medicator.com.br :
 Tem como eu descobrir o indice de um determinada linha do StringList?

 ex...

 tenho um edit com as linha que nao quero copiar
 usar um for pra percorrer todas as linhas e num if verificar se a linha
 que esta no stringlist é igual a que esta no edit

 o problema é que nao consigo pegar o indice dessa linha...
 ja usei indexof, mas se tenho linhas com valores repetidos ele ignora
 tbm...

 vlww's

 

-- 
Timeo hominem unius libri
Cogito ergo sum - Carpe diem

[]s
Guionardo Furlan
http://guionardo.blogspot.com

 

__ Informação do NOD32 IMON 3719 (20081227) __

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]



[delphi-br] Problema com Objetos da classe TInterfacedObject + uma interface

2008-12-29 Por tôpico Thales (Shubacca) - Tebo Software
Boa noite pessoal

estou tendo problemas com uma classe que estou desenvolvendo a partir de um
curso de OO.
Neste curso é criado algumas interfaces e alguns objetos que implementam as
mesmas.

Uma das Interface é como se fosse uma entidade a ser persistida no banco de
dados e uma outra é a classe responsável por persistir (DAO).

O problema que estou encontrando é que após o dao persistir o objeto, ele
chama o destructor do objeto persistido, mas eu não destrui o mesmo.

Debugando descobri que o campo que conta as referencias do objeto fica com
valor 0 (zero) após a persistencia, mas ainda existe uma variavel local que
está fazendo referencia ao meu objeto.

alguém sabe como me ajudar nisso?

desde já agradeço

-- 
Thales Eduardo Barros de Oliveira
Desenvolvedor Delphi / Firebird / Java
Emails:
tebosoftw...@gmail.com (GoogleTalk)
thales_...@hotmail.com (MSN)
Blog:
http://tebosoftware.blogspot.com/

Tente ser uma pessoa de valor, não de sucesso
Albert Einstein


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



Re: [delphi-br] Problema com Objetos da classe TInterfacedObject + uma interface

2008-12-29 Por tôpico Joao Morais
2008/12/29 Thales (Shubacca) - Tebo Software tebosoftw...@gmail.com:
 O problema que estou encontrando é que após o dao persistir o objeto, ele
 chama o destructor do objeto persistido, mas eu não destrui o mesmo.

 Debugando descobri que o campo que conta as referencias do objeto fica com
 valor 0 (zero) após a persistencia, mas ainda existe uma variavel local que
 está fazendo referencia ao meu objeto.

 alguém sabe como me ajudar nisso?

Parece que você está misturando ponteiros para objetos e ponteiros
para interface. O gerenciamento de memória do Delphi, no que tange
interfaces, é feito com contagem de referência: associação conta mais
um, alteração do ponteiro ou saída de escopo conta menos um. Mas se
você faz com que um ponteiro para objeto aponte para objetos que
também tem interfaces apontando, tão logo as interfaces saiam de
escopo e o objeto será destruído, deixando aquele ponteiro
referenciando uma área de memória inválida. Mais ou menos assim:

var
  VObjI: IObj;  // interface
  VObjO: TObj;  // TObj implementa IObj
begin
  VObjO := TObj.Create;
  VObjI := VObjO;
  VObjI := nil;
  VObjO.Free; // erro
end;

Caso o problema seja este, então ou você não mistura ponteiros para
objeto com ponteiros para interface, ou contorna da mesma forma que eu
contornei:
http://blog.joaomorais.com.br/2008/09/06/objetos-contagem-ref.html

Se não for, detalhe melhor a sua implementação.

--
Joao Morais


[delphi-br] File not found: proxies.dcu

2008-12-29 Por tôpico Alisson Yahoo
Pessoal,

Ao compilar o projeto que usa um componente por mim desenvolvido dá esse erro. 
Essa unit Proxies está incluída na unit DesignEditors. O mais estranho é que o 
projeto nao compila em uma máquina, mas compila em outra, e em nenhuma delas 
existe a unit proxies. Tem mais um fato muito estranho: Se eu compilar com a 
opçao ´Build with runtimes packages´, o projeto compila. Alguém pode me dar uma 
luz?

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



Re: [delphi-br] Ultimos lançamentos

2008-12-29 Por tôpico Alisson Yahoo
Nao sei a sintaxe no SQL server, mas no Firebird voce pode selecionar os 100 
primeiros da seguinte forma:

SELECT first 100 Campo1, Campo2, Campo3... FROM Tabela

Voce pode também fazer a consulta e jogar os 100 primeiros registros para um 
clientdataset 

__
Faça ligações para outros computadores com o novo Yahoo! Messenger 
http://br.beta.messenger.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:
delphi-br-ow...@yahoogrupos.com.br
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:
delphi-br-unsubscr...@yahoogrupos.com.br

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




RE: RES: [delphi-br] Dúvida com TStringList

2008-12-29 Por tôpico Rubem Nascimento da Rocha

Ou então usar algo mais elegante através de métodos do próprio TStringList.
 
if StringList1.IndexOf(Edit1.Text)  0 then
  { seu código aqui! }
 
Outra sugestão é usar a propriedade Duplicates para simplificar ainda mais o 
tratamento de duplicidades quando adicionar strings a um TStringList.
 
Boa sorte.
Sds.


 To: delphi-br@yahoogrupos.com.br
 From: smjjuli...@yahoo.com.br
 Date: Mon, 29 Dec 2008 10:36:18 -0300
 Subject: RES: [delphi-br] Dúvida com TStringList

 Outra alternativa, é antes de adicionar o texto no StringList você pode

 verificar se a função POS retornar maior que zero, caso sim é porque o texto

 já existe no StringList, então você não adiciona, o StringList tem a

 propriedade Text, então você faz o seguinte,



 IF Pos(Edit1.Text, StringList.text) 0 THEN



 Begin



 ShowMessage(Existe...)



 End;



 De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em

 nome de Guionardo Furlan

 Enviada em: sábado, 27 de dezembro de 2008 11:15

 Para: delphi-br@yahoogrupos.com.br

 Assunto: Re: [delphi-br] Dúvida com TStringList



 Usar a propriedade Duplicates do TStringList não resolve teu problema?



 2008/12/15 deco0_07

:

 Tem como eu descobrir o indice de um determinada linha do StringList?



 ex...



 tenho um edit com as linha que nao quero copiar

 usar um for pra percorrer todas as linhas e num if verificar se a linha

 que esta no stringlist é igual a que esta no edit



 o problema é que nao consigo pegar o indice dessa linha...

 ja usei indexof, mas se tenho linhas com valores repetidos ele ignora

 tbm...



 vlww's







 --

 Timeo hominem unius libri

 Cogito ergo sum - Carpe diem



 []s

 Guionardo Furlan

 http://guionardo.blogspot.com



 __ Informação do NOD32 IMON 3719 (20081227) __



 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]







 










_
Organize seus contatos! O jeito mais fácil de manter a sua lista de amigos 
sempre em ordem!
http://www.microsoft.com/windows/windowslive/events.aspx

RE: RES: [delphi-br] Dúvida com TStringList

2008-12-29 Por tôpico Rubem Nascimento da Rocha

Ou então usar algo mais elegante através de métodos do próprio TStringList.
 
if StringList1.IndexOf(Edit1.Text)= 0 then
  { seu código aqui! }
 
Outra sugestão é usar a propriedade Duplicates para simplificar ainda mais o 
tratamento de duplicidades quando adicionar strings a um TStringList.
 
Boa sorte.
Sds.


 To: delphi-br@yahoogrupos.com.br
 From: smjjuli...@yahoo.com.br
 Date: Mon, 29 Dec 2008 10:36:18 -0300
 Subject: RES: [delphi-br] Dúvida com TStringList

 Outra alternativa, é antes de adicionar o texto no StringList você pode

 verificar se a função POS retornar maior que zero, caso sim é porque o texto

 já existe no StringList, então você não adiciona, o StringList tem a

 propriedade Text, então você faz o seguinte,



 IF Pos(Edit1.Text, StringList.text) 0 THEN



 Begin



 ShowMessage(Existe...)



 End;



 De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em

 nome de Guionardo Furlan

 Enviada em: sábado, 27 de dezembro de 2008 11:15

 Para: delphi-br@yahoogrupos.com.br

 Assunto: Re: [delphi-br] Dúvida com TStringList



 Usar a propriedade Duplicates do TStringList não resolve teu problema?



 2008/12/15 deco0_07

:

 Tem como eu descobrir o indice de um determinada linha do StringList?



 ex...



 tenho um edit com as linha que nao quero copiar

 usar um for pra percorrer todas as linhas e num if verificar se a linha

 que esta no stringlist é igual a que esta no edit



 o problema é que nao consigo pegar o indice dessa linha...

 ja usei indexof, mas se tenho linhas com valores repetidos ele ignora

 tbm...



 vlww's







 --

 Timeo hominem unius libri

 Cogito ergo sum - Carpe diem



 []s

 Guionardo Furlan

 http://guionardo.blogspot.com



 __ Informação do NOD32 IMON 3719 (20081227) __



 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]







 










_
Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o 
Messenger! É GRÁTIS!
http://www.msn.com.br/emoticonpack

[delphi-br] Re: Problema com Objetos da classe TInterfacedObject + uma interface

2008-12-29 Por tôpico Thales Eduardo Barros de Oliveira
Pelo que entendi João, todas as classes, eu deveria mudar para esta que 
sugere e quando fosse apontado a uma variavel, ou adicionado a uma 
lista, deferia executar a função addRef, e quando não mais fosse usar, 
deveria executar o FreeInstance?

um pouco diferente, mas muito interessante.

obrigado pela dica