Re: [delphi-br] Res:Rave 5

[Filipe]

poxa roberto, você salvou minha vida... :D ja estava ficando maluco por 
causa disso... :D saberia dizer qual o site da empresa?
mais uma vez obrigado por tirar essa duvida, ja tava quase brigando por 
causa do meu cd que veio faltando unit... ^^
at,
Filipe

Roberto Costa Dill escreveu:
>  
>
> Olá, se não me engano, essa unit pertence a um componente para
> exportação de relatórios do quickreport no formato PDF. É um componente
> pago. PSQReport.
>
> Att
> Roberto.
>
> 

[delphi-br] Rave 5

[Filipe Rezende]

Bom dia galera,
Estou agarrado aqui quebrando a cabeça para atualizar um sistema não
documentado que não fui eu quem fez... Uma situação nem um pouco familiar
para a maioria... :D
Bom, está aparecendo o seguinte erro na compilação:
[Fatal Error] File not found: 'c:\arquivos de
programas\borland\delphi7\Rave5\Lib\PsQrCtrls.pas'
O sistema foi desenvolvido em Delphi 7 com interbase.
Ja olhei na pasta e no google e não encontro o arquivo solicitado e, pelo
que eu vi, pode ser um bug da versão e o que está me deixando mais atordoado
é que não encontro nem o local que faz referência a esse arquivo...
Alguem pode me dar alguma luz, ou um link do meliante??? :D


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

Re: RES: RES: AINDA NÃO FUNFOU... RES: [delphi-br] <<< Deve ser simples... mas... >>>

[Filipe Salvarez Rezende]

Seu problema é startar o procedimento de cálculo, certo?
Bem, pra isso preciso saber qual grid está usando. Caso seja uma
StringGrid, tem um evento 'SetEditText'.
Fiz um exemplo simples para ilustrar.

procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol,
  ARow: Integer; const Value: String);
begin
  StaticText1.Caption := IntToStr(ACol) + ';' + IntToStr(ARow) + ' - '
+ Value;
end;

abraços,
Filipe Rezende
obs.: O valor editado é enviado a cada tecla pressionada.


--- Em delphi-br@yahoogrupos.com.br, "Juliano Silva - Yahoo"
<[EMAIL PROTECTED]> escreveu
>
>  
> 
> Campos Agregate são campos de Resultado, não são editáveis... mas
respondendo sua pergunta sim, tentei...
> 
>  
> 
> De: delphi-br@yahoogrupos.com.br
[mailto:[EMAIL PROTECTED] Em nome de Rubens Antunes
> Enviada em: quarta-feira, 19 de novembro de 2008 11:06
> Para: delphi-br@yahoogrupos.com.br
> Assunto: Re: RES: AINDA NÃO FUNFOU... RES: [delphi-br] <<< Deve ser
simples... mas... >>>
> 
>  
> 
> Juliano
>  
> Vc tentou usar o Campo Agreggate do ClientDataSet?
>  
> Rubens Antunes
> 
> --- Em qua, 19/11/08, Juliano Silva - Yahoo <[EMAIL PROTECTED]
<mailto:smjjuliano%40yahoo.com.br> > escreveu:
> 
> De: Juliano Silva - Yahoo <[EMAIL PROTECTED]
<mailto:smjjuliano%40yahoo.com.br> >
> Assunto: RES: AINDA NÃO FUNFOU... RES: [delphi-br] <<< Deve ser
simples... mas... >>>
> Para: delphi-br@yahoogrupos.com.br
<mailto:delphi-br%40yahoogrupos.com.br> 
> Data: Quarta-feira, 19 de Novembro de 2008, 15:00
> 
> Emanuel
> 
> Eu fiz testes, realmente acontece o que eu disse.
> 
> Juliano
> 
> De: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED]
os.com.br] Em nome de Coutinho - Yahoo
> Enviada em: terça-feira, 18 de novembro de 2008 15:52
> Para: [EMAIL PROTECTED] os.com.br
> Assunto: Re: AINDA NÃO FUNFOU... RES: [delphi-br] <<< Deve ser
simples mas... >>>
> 
> Discordo colega...
> 
> O On validate é disparado quando é lançado no buffer o valor digitado, 
> para ser validado...
> 
> Sds
> Emanuel Coutinho
> 
> Juliano Silva - Yahoo escreveu:
> >
> > O evento OnValidate só é acionado quando há uma troca de registros 
> > (linhas), se alterar um valor e navegar entre as colunas não é
acionado...
> >
> > Juliano
> >
> > De: [EMAIL PROTECTED] os.com.br <mailto:delphi- br%40yahoogrupos
.com.br> 
> > <mailto:delphi- br%40yahoogrupos .com.br> 
> > [mailto:[EMAIL PROTECTED] os.com.br <mailto:delphi-
br%40yahoogrupos .com.br> 
> > <mailto:delphi- br%40yahoogrupos .com.br>] Em nome de Rubens Antunes
> > Enviada em: segunda-feira, 17 de novembro de 2008 20:02
> > Para: [EMAIL PROTECTED] os.com.br <mailto:delphi-
br%40yahoogrupos .com..br> <mailto:delphi- br%40yahoogrupos .com.br>
> > Assunto: Re: [delphi-br] <<< Deve ser simples... mas... >>>
> >
> > Juliano
> >
> > Já tentou utilizar o evento On Validate do Campo, ou seja, quando
esse 
> > campo receber um valor o evento será disparado.
> >
> >
> > Abraço
> >
> > Rubens Antunes
> >
> > --- Em seg, 17/11/08, Juliano Silva - Yahoo <[EMAIL PROTECTED]
com.br <mailto:smjjuliano% 40yahoo.com. br> 
> > <mailto:smjjuliano% 40yahoo.com. br> <mailto:smjjuliano%
40yahoo.com. br> 
> > > escreveu:
> >
> > De: Juliano Silva - Yahoo <[EMAIL PROTECTED] com.br
<mailto:smjjuliano% 40yahoo.com. br> 
> > <mailto:smjjuliano% 40yahoo.com. br> <mailto:smjjuliano%
40yahoo.com. br> >
> > Assunto: [delphi-br] <<< Deve ser simples... mas... >>>
> > Para: [EMAIL PROTECTED] os.com.br <mailto:delphi-
br%40yahoogrupos .com..br> 
> > <mailto:delphi- br%40yahoogrupos .com.br> 
> > <mailto:delphi- br%40yahoogrupos .com.br>
> > Data: Segunda-feira, 17 de Novembro de 2008, 20:30
> >
> > Pessoal
> >
> > Estou com o seguinte problema, tem um grid, com 03 colunas
editáveis, para
> > digitação de valores, quando o valor de uma delas é digitado as
outras são
> > recalculadas, e vice-versa o problema é o seguinte, como fazer
isso? Minha
> > intenção é sempre que o usuário digitar um valor e realizar
qualquer uma
> > ação as demais colunas sejam recalculadas, o problema é que até o
momento
> > para fazer isso, teve que criar uma procedure RecalcularValores,
coloquei
> > ela no OnExit, OnKeyPress, OnColExit este código, e mesmo assim
quando o
> > usuário navegar por exemplo com a seta para cima ou para baixo, não 
> > gera um
> > dos eventos...
> >
> &

[delphi-br] Re: Procedimento Fiscal - Restaurante

[Filipe Salvarez Rezende]

blz, vou postar lah... vlw...

--- Em delphi-br@yahoogrupos.com.br, Alexandre Rodrigues
<[EMAIL PROTECTED]> escreveu
>
> Filipe, se inscreva na lista Automação Total, acho o pessoal de lá pode 
> de ajudar melhor nesse assunto.
> 
> 
> Filipe Salvarez Rezende escreveu:
> > 
> > 
> > Bom dia galera,
> > Estou retornando ao forum depois de uma longa temporada sem usar o
delphi.
> > Estou precisando de um farol, algo a mais que uma luz... :D
> > Meu tio tem um pequeno restaurante e precisa de um programa para
> > automatização.
> > Um programa simples, de controle de pedidos e impressão fiscal.
> > Estou estudando a dll da bematech e é bem tranquila de manusear, mas
> > não estou encontrando as etapas para a impressão.
> > Toda a parte de controle do pedido já está pronta e funcionando, mas
> > não sei em qual sequência, nem quais informações devo imprimir.
> > Em resumo:Qual sequência e quais informações devo imprimir?
> > abraços,
> > Filipe Rezende
> > 
> > 
> __
> Faça ligações para outros computadores com o novo Yahoo! Messenger 
> http://br.beta.messenger.yahoo.com/
>

[delphi-br] Procedimento Fiscal - Restaurante

[Filipe Salvarez Rezende]

Bom dia galera,
Estou retornando ao forum depois de uma longa temporada sem usar o delphi.
Estou precisando de um farol, algo a mais que uma luz... :D
Meu tio tem um pequeno restaurante e precisa de um programa para
automatização.
Um programa simples, de controle de pedidos e impressão fiscal.
Estou estudando a dll da bematech e é bem tranquila de manusear, mas
não estou encontrando as etapas para a impressão.
Toda a parte de controle do pedido já está pronta e funcionando, mas
não sei em qual sequência, nem quais informações devo imprimir.
Em resumo:Qual sequência e quais informações devo imprimir?
abraços,
Filipe Rezende 

[delphi-br] BDE no Vista

[Filipe]

Pessoal, procurei nas mensagens da Lista mas não encontrei, estou 
com problemas com o BDE no Vista. Preciso muda uma configuração no 
bde o MaxFileHandles para 250, quando vou gravar a alateração o BDE 
trava. O NetDir está ok. A Aplicação usa BDE+Paradox+Delphi5, até o 
windows XP funciona corretamente mas no Vista como máquina cliente 
não está funcionando corretamente.

Já tentei:

- Mudar o modo de compatibilidade do instalador do BDE para 
WindowsXP SP2. 

- Mudar o modo de compatibilidade do BDEADMIN.exe também para 
WindowsXP SP2. (Ficou um pouco mais rápido para outras opções mas 
não consegui gravar essa do MaxFileHandles).

Outra coisa que está acontecendo é o seguinte: quando a aplicação 
inicia ela verifica se tem outras maquinas utilizando o sistema 
através de uma tabela de acesso temporária (_Acesso.db), quando dá 
algum erro (except) no acesso ou criação dessa tabela o nosso 
sistema dá uma mensagem . No vista o sistema não está conseguindo 
nem acessar e nem criar a tabela. Não sei se é o BDE. ou se tem 
alguma outra coisa que tenho que fazer. O usuário é o Administrador 
com todos os poderes. O acesso via rede aos DBs são feitos por 
mapeamento de rede, as outras maquinas que utilizam windows xp 
funcionam corretamente. Só nessa com o Vista que não vai.

Obrigado pela ajuda, qualquer dica é bem vinda, pois o cliente quer 
o sistema funcionando, inclusive a maquina que tem o vista é a do 
dono da empresa 

Filipe Ferrarini.

[delphi-br] Re: Soudex ???

[Filipe Belchior]

olá leonardo.

existe uma matéria na DBFreeMagazine edição 06 falando sobre soundex
através d UDF no FB. Porém, não consegui acessar o site
www.dbfreemagazine.com.br hoje, não sei o pq.. então estarei
disponibilizando o pdf da revista.

ATENÇÃO: o arquivo ficará disponível por 7 dias (ou 100 downloads)

http://download.yousendit.com/87C5A7AC572D02D7

[]s
Filipe Belchior


--- Em delphi-br@yahoogrupos.com.br, "Leonardo Anselmo" <[EMAIL PROTECTED]>
escreveu
>
> Pessoal, 
> 
> Alguem tem algum exemplo sobre a funcao soudex pra fazer
busca fonetica. Desde ja Agradeco
> 
> Leonardo Anselmo
> 
> [As partes desta mensagem que não continham texto foram removidas]
>

[delphi-br] Re: Etiquetas no delphi

[Filipe Belchior]

qual seu windows? tive problemas assim no windows 2k e xp,
no 98 imprimia normal.. seguinte, isso é problema do driver
genérico q o windows disponibiliza para a impressora (apesar,
q mesmo instalando driver baixando do fabricante, não adiantou).
Bom, vc disse q a partir de um determinado tamanho não ocorre
o salto de página inesperado.. isso eu nunca vi.
bom, o q eu fiz foi o seguinte.. ridículo, mas foi o que
consegui.. ao invés de 1 etiqueta ser 1 página, eu elaborei
várias etiquetas por página.. claro q, se fosse impressa 1
etiqueta apenas, ou menos q preenchesse a página, a impressora
fazia o salto da página inteira, mas.. foi o que deu pro momento.

[]s


--- Em delphi-br@yahoogrupos.com.br, "Rafael" <[EMAIL PROTECTED]> escreveu
>
> Bom Dia Galera.
> 
>  
> 
> Seguinte, estou com um problema no meu sistema.
> 
>  
> 
> Eu tenho que fazer um "relatório" que imprime etiquetas.
> 
>  
> 
> A etiqueta imprime normal está tudo certo, alinhado e tals...
> 
>  
> 
> Porem, na hora que eu mando imprimir em uma impressora matricial FX-1170
> 
>  
> 
> A impressora ejeta a folha inteira sendo que eu gostaria que
imprimisse a
> etiqueta e parasse.
> 
>  
> 
> Estou utilizando o componente Fortes Report.
> 
>  
> 
>  
> 
> Uma coisa que eu reparei também é que se o tamanho da folha for
maior que um
> determinado tamanho ele não ejeta.
> 
>  
> 
> Ejeta apenas quando é menor que este tamanha.
> 
>  
> 
> Obs: Eu não lembro o tamanho que era. 
> 
>  
> 
> Sem Mais Obrigado!
> 
> 
> 
> [As partes desta mensagem que não continham texto foram removidas]
>

[delphi-br] Filter: cláusula "In"

[Filipe Belchior]

olá galera.. seguinte..

num filter, quando eu ponho a seguinte expressão:

"codigo in (1)"

..isso funciona, retorna registros.. mas..

"codigo in (1,2)"

..isso retorna vazio.. e..

"codigo in (1,2,3)"

..isso retorna erro, "is not a valid float point"..

..bom, o campo codigo é um inteiro, inclusive é um
TIntegerField na ClientDataSet. O que percebo, é que
na 2a situação, o filter entende "1,2" como float,
por isso retorna vazio (não existe algum código "1,2"
na tabela), e quando passa o valor "1,2,3" ele acaba
tentando converter pra float novamente.
bom, pq será que ele faz isso?

[delphi-br] Inserir imagem em TRichEdit - é possível?

[FILIPE GMAIL]

Boa tarde a todos, gostaria de saber se alguém sabe como fazer para inserir uma 
imagem num TRichEdit. 
É possível fazer isso (acredito que sim, pelo canvas.draw) mas quando rolarmos 
o texto ficaria 100% ?

[]s a todos, Filipe Ferrarini

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

[delphi-br] Re: ClientDataSet: ApplyUpdate().. SEM erro, mas NÃO salva

[Filipe Belchior]

ok pessoal, tudo ok agora.. erro meu.. obrigado walter..

como eu estava rodando pelo executável, não estava lançando
a excessão q ocorria (talvez tbm por causa do applyupdates(0)).
ocorria o erro "SQLQuery2: dont can modify read-only dataset".
lembrei q havia deixado a propriedade "ResolveToDataset" do DSP
como TRUE, mudei, e funcionou normalmente.




--- Em delphi-br@yahoogrupos.com.br, "Walter Chagas (Yahoo)"
<[EMAIL PROTECTED]> escreveu
>
> Como é que está seu ApplyUpdates aí?
> Tem Join na senteça SQL?
> 
> 
> []s
>  
>  
>  
> Walter Alves Chagas Junior
> Belo Horizonte - MG - Brazil
> [EMAIL PROTECTED]
> http://www.geocities.com/SiliconValley/Bay/1058
> MSN: [EMAIL PROTECTED]
>  
>  
> 
> --- Em delphi-br@yahoogrupos.com.br, "Filipe Belchior" 
>  escreveu
> >
> > desculpe pessoal.. o erro não ocorre, mas agora não salva,
> > hehehehe.. to vendo o que pode ser
> > 
> > 
> > 
> > --- Em delphi-br@yahoogrupos.com.br, "Filipe Belchior"
> >  escreveu
> > >
> > > valeu walter, funcionou.. mas pq isso? seguinte, isso num
> > > deveria ser assim, se, a propriedade ResolveToDataset no
> > > DSP estivesse True?? tenho q criar os fields no CDS e na
> > > DataSet??
> > > 
> > > 
> > > 
> > > --- Em delphi-br@yahoogrupos.com.br, "Walter Chagas (Yahoo)"
> > >  escreveu
> > > >
> > > > OK, partindo do pressuposto que seu DSP tá oK e o fields editor 
> no 
> > > > CDS também está devidamente configurado, faça a mesma coisa na 
> query. 
> > > > Adicione o fields Editor e sete as chaves primárias pro pfinkey 
> true. 
> > > > Na Query.
> > > > 
> > > > []s
> > > >  
> > > >  
> > > >  
> > > > Walter Alves Chagas Junior
> > > > Belo Horizonte - MG - Brazil
> > > > wchagasj@
> > > > http://www.geocities.com/SiliconValley/Bay/1058
> > > > MSN: whitesockets@
> > > > 
> > > > --- Em delphi-br@yahoogrupos.com.br, "Filipe Belchior" 
> > > >  escreveu
> > > > >
> > > > > desculpe fellipe, hehehe, o erro eh o seguinte..
> > > > > 
> > > > > "unable to find redord. no key specified"
> > > > > 
> > > > > ..eu sei sobre o upWhereKeyOnly no DSP e sobre os 
> ProviderFlags
> > > > > no CDS, como eu mencionei no post, esta como 
> [pfInWhere,pfInKey].
> > > > > pois bem, mesmo assim, o erro diz q não foi informado um campo
> > > > > "Key".. não entendo.
> > > > > 
> > > > > 
> > > > > 
> > > > > --- Em delphi-br@yahoogrupos.com.br, "Fellipe Henrique" 
> 
> > > > > escreveu
> > > > > >
> > > > > > Olá Filipe, sem saber o erro fica meio complicado... :-)
> > > > > > 
> > > > > > mas posso te adiantar que se voce marcou o upWhereKeyOnly 
> no DSP, 
> > > > lá no
> > > > > > ClientDataSet, você marca o campo indice e seta a 
> propriredade 
> > > > InKey,
> > > > > > InWhere, InUpdate. e todos os outros campos, voce só 
> deixa 
> > > > marcado o
> > > > > > InUpdate... isso no UpdateFlags...
> > > > > > 
> > > > > > 
> > > > > > []s
> > > > > > 
> > > > > > 
> > > > > > Em 04/12/06, Filipe Belchior  escreveu:
> > > > > > >
> > > > > > >   olá galera,
> > > > > > >
> > > > > > > seguinte.. estou começando com clientdataset (CDS)..
> > > > > > > estou tendo problema para editar e excluir registros, sim,
> > > > > > > apenas para editar e excluir, pois insere normalmente..
> > > > > > > uso FB 1.5, dialect 3, UIB, CDS, DSP, SQLQuery (com um 
> simples
> > > > > > > select * from tabela).. configurei o UpdateMode e os 
> > > > ProviderFlags,
> > > > > > > upWhereKeyOnly, tudo ok.. não sei o q ocorre.. e pra 
> piorar,
> > > > > > > ou talvez não (posso estar enganado), encontrei isso
> > > > > > >
> > > > > > > http://qc.borland.com/wc/qcmain.aspx?d=5550
> > > > > > >
> > > > > > > ..meu delphi eh 7.0.8.1
> > > > > > >
> > > > > > > 
> > > > > > >
> > > > > > 
> > > > > > 
> > > > > > 
> > > > > > -- 
> > > > > > _
> > > > > > Fellipe Henrique
> > > > > > fellipeh@
> > > > > > 
> > > > > > 
> > > > > > "Venham até a borda, ele disse.
> > > > > > Eles disseram: Nós temos medo.
> > > > > > Venham até a borda, ele insistiu.
> > > > > > Eles foram, Ele os empurrou...
> > > > > > E eles voaram."
> > > > > > (Guillaume Apollinaire)
> > > > > > 
> > > > > > 
> > > > > > [As partes desta mensagem que não continham texto foram 
> removidas]
> > > > > >
> > > > >
> > > >
> > >
> >
>

[delphi-br] Re: ClientDataSet: ApplyUpdate().. SEM erro, mas NÃO salva

[Filipe Belchior]

applyupdates(0);
//nem sei pq colokei 0 invés d -1 ..mas não axo q seja isso

..não tenho join.. como eu disse antes, é apenas "select * from tabela"



--- Em delphi-br@yahoogrupos.com.br, "Walter Chagas (Yahoo)"
<[EMAIL PROTECTED]> escreveu
>
> Como é que está seu ApplyUpdates aí?
> Tem Join na senteça SQL?
> 
> 
> []s
>  
>  
>  
> Walter Alves Chagas Junior
> Belo Horizonte - MG - Brazil
> [EMAIL PROTECTED]
> http://www.geocities.com/SiliconValley/Bay/1058
> MSN: [EMAIL PROTECTED]
>  
>  
> 
> --- Em delphi-br@yahoogrupos.com.br, "Filipe Belchior" 
>  escreveu
> >
> > desculpe pessoal.. o erro não ocorre, mas agora não salva,
> > hehehehe.. to vendo o que pode ser
> > 
> > 
> > 
> > --- Em delphi-br@yahoogrupos.com.br, "Filipe Belchior"
> >  escreveu
> > >
> > > valeu walter, funcionou.. mas pq isso? seguinte, isso num
> > > deveria ser assim, se, a propriedade ResolveToDataset no
> > > DSP estivesse True?? tenho q criar os fields no CDS e na
> > > DataSet??
> > > 
> > > 
> > > 
> > > --- Em delphi-br@yahoogrupos.com.br, "Walter Chagas (Yahoo)"
> > >  escreveu
> > > >
> > > > OK, partindo do pressuposto que seu DSP tá oK e o fields editor 
> no 
> > > > CDS também está devidamente configurado, faça a mesma coisa na 
> query. 
> > > > Adicione o fields Editor e sete as chaves primárias pro pfinkey 
> true. 
> > > > Na Query.
> > > > 
> > > > []s
> > > >  
> > > >  
> > > >  
> > > > Walter Alves Chagas Junior
> > > > Belo Horizonte - MG - Brazil
> > > > wchagasj@
> > > > http://www.geocities.com/SiliconValley/Bay/1058
> > > > MSN: whitesockets@
> > > > 
> > > > --- Em delphi-br@yahoogrupos.com.br, "Filipe Belchior" 
> > > >  escreveu
> > > > >
> > > > > desculpe fellipe, hehehe, o erro eh o seguinte..
> > > > > 
> > > > > "unable to find redord. no key specified"
> > > > > 
> > > > > ..eu sei sobre o upWhereKeyOnly no DSP e sobre os 
> ProviderFlags
> > > > > no CDS, como eu mencionei no post, esta como 
> [pfInWhere,pfInKey].
> > > > > pois bem, mesmo assim, o erro diz q não foi informado um campo
> > > > > "Key".. não entendo.
> > > > > 
> > > > > 
> > > > > 
> > > > > --- Em delphi-br@yahoogrupos.com.br, "Fellipe Henrique" 
> 
> > > > > escreveu
> > > > > >
> > > > > > Olá Filipe, sem saber o erro fica meio complicado... :-)
> > > > > > 
> > > > > > mas posso te adiantar que se voce marcou o upWhereKeyOnly 
> no DSP, 
> > > > lá no
> > > > > > ClientDataSet, você marca o campo indice e seta a 
> propriredade 
> > > > InKey,
> > > > > > InWhere, InUpdate. e todos os outros campos, voce só 
> deixa 
> > > > marcado o
> > > > > > InUpdate... isso no UpdateFlags...
> > > > > > 
> > > > > > 
> > > > > > []s
> > > > > > 
> > > > > > 
> > > > > > Em 04/12/06, Filipe Belchior  escreveu:
> > > > > > >
> > > > > > >   olá galera,
> > > > > > >
> > > > > > > seguinte.. estou começando com clientdataset (CDS)..
> > > > > > > estou tendo problema para editar e excluir registros, sim,
> > > > > > > apenas para editar e excluir, pois insere normalmente..
> > > > > > > uso FB 1.5, dialect 3, UIB, CDS, DSP, SQLQuery (com um 
> simples
> > > > > > > select * from tabela).. configurei o UpdateMode e os 
> > > > ProviderFlags,
> > > > > > > upWhereKeyOnly, tudo ok.. não sei o q ocorre.. e pra 
> piorar,
> > > > > > > ou talvez não (posso estar enganado), encontrei isso
> > > > > > >
> > > > > > > http://qc.borland.com/wc/qcmain.aspx?d=5550
> > > > > > >
> > > > > > > ..meu delphi eh 7.0.8.1
> > > > > > >
> > > > > > > 
> > > > > > >
> > > > > > 
> > > > > > 
> > > > > > 
> > > > > > -- 
> > > > > > _
> > > > > > Fellipe Henrique
> > > > > > fellipeh@
> > > > > > 
> > > > > > 
> > > > > > "Venham até a borda, ele disse.
> > > > > > Eles disseram: Nós temos medo.
> > > > > > Venham até a borda, ele insistiu.
> > > > > > Eles foram, Ele os empurrou...
> > > > > > E eles voaram."
> > > > > > (Guillaume Apollinaire)
> > > > > > 
> > > > > > 
> > > > > > [As partes desta mensagem que não continham texto foram 
> removidas]
> > > > > >
> > > > >
> > > >
> > >
> >
>

[delphi-br] Re: ClientDataSet: ApplyUpdate() com erro

[Filipe Belchior]

não tenho campos de outra tabela, é um select * from tabela..

..walter, vou tentar isso.



--- Em delphi-br@yahoogrupos.com.br, "Walter Chagas (Yahoo)"
<[EMAIL PROTECTED]> escreveu
>
> OK, partindo do pressuposto que seu DSP tá oK e o fields editor no 
> CDS também está devidamente configurado, faça a mesma coisa na query. 
> Adicione o fields Editor e sete as chaves primárias pro pfinkey true. 
> Na Query.
> 
> []s
>  
>  
>  
> Walter Alves Chagas Junior
> Belo Horizonte - MG - Brazil
> [EMAIL PROTECTED]
> http://www.geocities.com/SiliconValley/Bay/1058
> MSN: [EMAIL PROTECTED]
> 
> --- Em delphi-br@yahoogrupos.com.br, "Filipe Belchior" 
>  escreveu
> >
> > desculpe fellipe, hehehe, o erro eh o seguinte..
> > 
> > "unable to find redord. no key specified"
> > 
> > ..eu sei sobre o upWhereKeyOnly no DSP e sobre os ProviderFlags
> > no CDS, como eu mencionei no post, esta como [pfInWhere,pfInKey].
> > pois bem, mesmo assim, o erro diz q não foi informado um campo
> > "Key".. não entendo.
> > 
> > 
> > 
> > --- Em delphi-br@yahoogrupos.com.br, "Fellipe Henrique" 
> > escreveu
> > >
> > > Olá Filipe, sem saber o erro fica meio complicado... :-)
> > > 
> > > mas posso te adiantar que se voce marcou o upWhereKeyOnly no DSP, 
> lá no
> > > ClientDataSet, você marca o campo indice e seta a propriredade 
> InKey,
> > > InWhere, InUpdate. e todos os outros campos, voce só deixa 
> marcado o
> > > InUpdate... isso no UpdateFlags...
> > > 
> > > 
> > > []s
> > > 
> > > 
> > > Em 04/12/06, Filipe Belchior  escreveu:
> > > >
> > > >   olá galera,
> > > >
> > > > seguinte.. estou começando com clientdataset (CDS)..
> > > > estou tendo problema para editar e excluir registros, sim,
> > > > apenas para editar e excluir, pois insere normalmente..
> > > > uso FB 1.5, dialect 3, UIB, CDS, DSP, SQLQuery (com um simples
> > > > select * from tabela).. configurei o UpdateMode e os 
> ProviderFlags,
> > > > upWhereKeyOnly, tudo ok.. não sei o q ocorre.. e pra piorar,
> > > > ou talvez não (posso estar enganado), encontrei isso
> > > >
> > > > http://qc.borland.com/wc/qcmain.aspx?d=5550
> > > >
> > > > ..meu delphi eh 7.0.8.1
> > > >
> > > > 
> > > >
> > > 
> > > 
> > > 
> > > -- 
> > > _
> > > Fellipe Henrique
> > > fellipeh@
> > > 
> > > 
> > > "Venham até a borda, ele disse.
> > > Eles disseram: Nós temos medo.
> > > Venham até a borda, ele insistiu.
> > > Eles foram, Ele os empurrou...
> > > E eles voaram."
> > > (Guillaume Apollinaire)
> > > 
> > > 
> > > [As partes desta mensagem que não continham texto foram removidas]
> > >
> >
>

[delphi-br] Re: ClientDataSet: ApplyUpdate().. SEM erro, mas NÃO salva

[Filipe Belchior]

desculpe pessoal.. o erro não ocorre, mas agora não salva,
hehehehe.. to vendo o que pode ser



--- Em delphi-br@yahoogrupos.com.br, "Filipe Belchior"
<[EMAIL PROTECTED]> escreveu
>
> valeu walter, funcionou.. mas pq isso? seguinte, isso num
> deveria ser assim, se, a propriedade ResolveToDataset no
> DSP estivesse True?? tenho q criar os fields no CDS e na
> DataSet??
> 
> 
> 
> --- Em delphi-br@yahoogrupos.com.br, "Walter Chagas (Yahoo)"
>  escreveu
> >
> > OK, partindo do pressuposto que seu DSP tá oK e o fields editor no 
> > CDS também está devidamente configurado, faça a mesma coisa na query. 
> > Adicione o fields Editor e sete as chaves primárias pro pfinkey true. 
> > Na Query.
> > 
> > []s
> >  
> >  
> >  
> > Walter Alves Chagas Junior
> > Belo Horizonte - MG - Brazil
> > wchagasj@
> > http://www.geocities.com/SiliconValley/Bay/1058
> > MSN: whitesockets@
> > 
> > --- Em delphi-br@yahoogrupos.com.br, "Filipe Belchior" 
> >  escreveu
> > >
> > > desculpe fellipe, hehehe, o erro eh o seguinte..
> > > 
> > > "unable to find redord. no key specified"
> > > 
> > > ..eu sei sobre o upWhereKeyOnly no DSP e sobre os ProviderFlags
> > > no CDS, como eu mencionei no post, esta como [pfInWhere,pfInKey].
> > > pois bem, mesmo assim, o erro diz q não foi informado um campo
> > > "Key".. não entendo.
> > > 
> > > 
> > > 
> > > --- Em delphi-br@yahoogrupos.com.br, "Fellipe Henrique" 
> > > escreveu
> > > >
> > > > Olá Filipe, sem saber o erro fica meio complicado... :-)
> > > > 
> > > > mas posso te adiantar que se voce marcou o upWhereKeyOnly no DSP, 
> > lá no
> > > > ClientDataSet, você marca o campo indice e seta a propriredade 
> > InKey,
> > > > InWhere, InUpdate. e todos os outros campos, voce só deixa 
> > marcado o
> > > > InUpdate... isso no UpdateFlags...
> > > > 
> > > > 
> > > > []s
> > > > 
> > > > 
> > > > Em 04/12/06, Filipe Belchior  escreveu:
> > > > >
> > > > >   olá galera,
> > > > >
> > > > > seguinte.. estou começando com clientdataset (CDS)..
> > > > > estou tendo problema para editar e excluir registros, sim,
> > > > > apenas para editar e excluir, pois insere normalmente..
> > > > > uso FB 1.5, dialect 3, UIB, CDS, DSP, SQLQuery (com um simples
> > > > > select * from tabela).. configurei o UpdateMode e os 
> > ProviderFlags,
> > > > > upWhereKeyOnly, tudo ok.. não sei o q ocorre.. e pra piorar,
> > > > > ou talvez não (posso estar enganado), encontrei isso
> > > > >
> > > > > http://qc.borland.com/wc/qcmain.aspx?d=5550
> > > > >
> > > > > ..meu delphi eh 7.0.8.1
> > > > >
> > > > > 
> > > > >
> > > > 
> > > > 
> > > > 
> > > > -- 
> > > > _
> > > > Fellipe Henrique
> > > > fellipeh@
> > > > 
> > > > 
> > > > "Venham até a borda, ele disse.
> > > > Eles disseram: Nós temos medo.
> > > > Venham até a borda, ele insistiu.
> > > > Eles foram, Ele os empurrou...
> > > > E eles voaram."
> > > > (Guillaume Apollinaire)
> > > > 
> > > > 
> > > > [As partes desta mensagem que não continham texto foram removidas]
> > > >
> > >
> >
>

[delphi-br] Re: ClientDataSet: ApplyUpdate() com erro

[Filipe Belchior]

valeu walter, funcionou.. mas pq isso? seguinte, isso num
deveria ser assim, se, a propriedade ResolveToDataset no
DSP estivesse True?? tenho q criar os fields no CDS e na
DataSet??



--- Em delphi-br@yahoogrupos.com.br, "Walter Chagas (Yahoo)"
<[EMAIL PROTECTED]> escreveu
>
> OK, partindo do pressuposto que seu DSP tá oK e o fields editor no 
> CDS também está devidamente configurado, faça a mesma coisa na query. 
> Adicione o fields Editor e sete as chaves primárias pro pfinkey true. 
> Na Query.
> 
> []s
>  
>  
>  
> Walter Alves Chagas Junior
> Belo Horizonte - MG - Brazil
> [EMAIL PROTECTED]
> http://www.geocities.com/SiliconValley/Bay/1058
> MSN: [EMAIL PROTECTED]
> 
> --- Em delphi-br@yahoogrupos.com.br, "Filipe Belchior" 
>  escreveu
> >
> > desculpe fellipe, hehehe, o erro eh o seguinte..
> > 
> > "unable to find redord. no key specified"
> > 
> > ..eu sei sobre o upWhereKeyOnly no DSP e sobre os ProviderFlags
> > no CDS, como eu mencionei no post, esta como [pfInWhere,pfInKey].
> > pois bem, mesmo assim, o erro diz q não foi informado um campo
> > "Key".. não entendo.
> > 
> > 
> > 
> > --- Em delphi-br@yahoogrupos.com.br, "Fellipe Henrique" 
> > escreveu
> > >
> > > Olá Filipe, sem saber o erro fica meio complicado... :-)
> > > 
> > > mas posso te adiantar que se voce marcou o upWhereKeyOnly no DSP, 
> lá no
> > > ClientDataSet, você marca o campo indice e seta a propriredade 
> InKey,
> > > InWhere, InUpdate. e todos os outros campos, voce só deixa 
> marcado o
> > > InUpdate... isso no UpdateFlags...
> > > 
> > > 
> > > []s
> > > 
> > > 
> > > Em 04/12/06, Filipe Belchior  escreveu:
> > > >
> > > >   olá galera,
> > > >
> > > > seguinte.. estou começando com clientdataset (CDS)..
> > > > estou tendo problema para editar e excluir registros, sim,
> > > > apenas para editar e excluir, pois insere normalmente..
> > > > uso FB 1.5, dialect 3, UIB, CDS, DSP, SQLQuery (com um simples
> > > > select * from tabela).. configurei o UpdateMode e os 
> ProviderFlags,
> > > > upWhereKeyOnly, tudo ok.. não sei o q ocorre.. e pra piorar,
> > > > ou talvez não (posso estar enganado), encontrei isso
> > > >
> > > > http://qc.borland.com/wc/qcmain.aspx?d=5550
> > > >
> > > > ..meu delphi eh 7.0.8.1
> > > >
> > > > 
> > > >
> > > 
> > > 
> > > 
> > > -- 
> > > _
> > > Fellipe Henrique
> > > fellipeh@
> > > 
> > > 
> > > "Venham até a borda, ele disse.
> > > Eles disseram: Nós temos medo.
> > > Venham até a borda, ele insistiu.
> > > Eles foram, Ele os empurrou...
> > > E eles voaram."
> > > (Guillaume Apollinaire)
> > > 
> > > 
> > > [As partes desta mensagem que não continham texto foram removidas]
> > >
> >
>

[delphi-br] Re: ClientDataSet: ApplyUpdate() com erro

[Filipe Belchior]

desculpe fellipe, hehehe, o erro eh o seguinte..

"unable to find redord. no key specified"

..eu sei sobre o upWhereKeyOnly no DSP e sobre os ProviderFlags
no CDS, como eu mencionei no post, esta como [pfInWhere,pfInKey].
pois bem, mesmo assim, o erro diz q não foi informado um campo
"Key".. não entendo.



--- Em delphi-br@yahoogrupos.com.br, "Fellipe Henrique" <[EMAIL PROTECTED]>
escreveu
>
> Olá Filipe, sem saber o erro fica meio complicado... :-)
> 
> mas posso te adiantar que se voce marcou o upWhereKeyOnly no DSP, lá no
> ClientDataSet, você marca o campo indice e seta a propriredade InKey,
> InWhere, InUpdate. e todos os outros campos, voce só deixa marcado o
> InUpdate... isso no UpdateFlags...
> 
> 
> []s
> 
> 
> Em 04/12/06, Filipe Belchior <[EMAIL PROTECTED]> escreveu:
> >
> >   olá galera,
> >
> > seguinte.. estou começando com clientdataset (CDS)..
> > estou tendo problema para editar e excluir registros, sim,
> > apenas para editar e excluir, pois insere normalmente..
> > uso FB 1.5, dialect 3, UIB, CDS, DSP, SQLQuery (com um simples
> > select * from tabela).. configurei o UpdateMode e os ProviderFlags,
> > upWhereKeyOnly, tudo ok.. não sei o q ocorre.. e pra piorar,
> > ou talvez não (posso estar enganado), encontrei isso
> >
> > http://qc.borland.com/wc/qcmain.aspx?d=5550
> >
> > ..meu delphi eh 7.0.8.1
> >
> > 
> >
> 
> 
> 
> -- 
> _
> Fellipe Henrique
> [EMAIL PROTECTED]
> 
> 
> "Venham até a borda, ele disse.
> Eles disseram: Nós temos medo.
> Venham até a borda, ele insistiu.
> Eles foram, Ele os empurrou...
> E eles voaram."
> (Guillaume Apollinaire)
> 
> 
> [As partes desta mensagem que não continham texto foram removidas]
>

[delphi-br] ClientDataSet: ApplyUpdate() com erro

[Filipe Belchior]

olá galera,

seguinte.. estou começando com clientdataset (CDS)..
estou tendo problema para editar e excluir registros, sim,
apenas para editar e excluir, pois insere normalmente..
uso FB 1.5, dialect 3, UIB, CDS, DSP, SQLQuery (com um simples
select * from tabela).. configurei o UpdateMode e os ProviderFlags,
upWhereKeyOnly, tudo ok.. não sei o q ocorre.. e pra piorar,
ou talvez não (posso estar enganado), encontrei isso

http://qc.borland.com/wc/qcmain.aspx?d=5550

..meu delphi eh 7.0.8.1

[delphi-br] Res:Código CHR

[FILIPE GMAIL]

Código para Esc = 27

Filipe Ferrarini

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

[delphi-br] Re: Tela aguardando processo

[Filipe Belchior]

[code]


TThreadMethodError = Procedure(oE: Exception);

TProcessoThd = class(TThread)
private
  FProcesso: TThreadMethod;
  FBeforeExecute: TThreadMethod;
  FAfterExecute: TThreadMethod;
  procedure SetProcesso(const Value: TThreadMethod);
protected
  procedure Execute; override;
public
  constructor Create;
  property Processo: TThreadMethod read FProcesso write SetProcesso;
  property BeforeExecute: TThreadMethod read FBeforeExecute write
FBeforeExecute;
  property AfterExecute: TThreadMethod read FAfterExecute write
FAfterExecute;
end;


constructor TProcessoThd.Create;
begin
  inherited Create( True );
  FreeOnTerminate := True;
end;

procedure TProcessoThd.Execute;
begin
  if Assigned( BeforeExecute ) then
Synchronize( BeforeExecute );

  if not Assigned( processo ) then
  raise EAbort.Create( 'Processo não atribuido' );

  Processo;

  if Assigned( AfterExecute ) then
Synchronize( AfterExecute );
end;


[/code]



--- Em delphi-br@yahoogrupos.com.br, "Leonardo Felipe de Oliveira"
<[EMAIL PROTECTED]> escreveu
>
> Pessoal,
> 
> Alguém tem um exemplo ou algum fonte que tenha uma tela de
aguardando um processo que sendo feito?
> Enquanto alguns SQL e procedimentos do banco estão sendo efetuados
quero deixar para o usuário uma tela com a mensagem: 'AGUARDE!
PROCESSO EM ANDAMENTO' e com aqueles pontilhados q ficam se mexendo
enquanto o processo não foi concluído.
> 
> Abraços,
> Leonardo
> 
> 
> [As partes desta mensagem que não continham texto foram removidas]
>

[delphi-br] Re: dbgrid colorindo uma linha

[Filipe Belchior]

esse artigo eu encontrei, e axo perfeito pra esse assunto..

http://delphi.about.com/od/usedbvcl/l/aa031699.htm


FILIPE BELCHIOR



--- Em delphi-br@yahoogrupos.com.br, Fernando César <[EMAIL PROTECTED]>
escreveu
>
> olá pessoal como q eu faço pra colorir uma lina do grid no delphi,
se for o 
> caso pode ser so a fone, tipo na minha tabela vai ter uma função q
se um 
> processo nao completado depois de um tempo a linha da grid fica em
vermelho. 
> obrigado e estou no aguardo 
> 
> 
>   
> ___ 
> Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu
celular. Registre seu aparelho agora! 
> http://br.mobile.yahoo.com/mailalertas/
>

[delphi-br] Re: papel personalizado, Matricial em windows 2000/xp

[Filipe Belchior]

bom.. excluir a impressoa instalada (lx-300) e reinstalei,
mas instalei com o driver da lx-400.. apareceu o formulário
q eu criei para selecionar, mas continua fazendo o salto d
uma A4 :(



--- Em delphi-br@yahoogrupos.com.br, "Filipe Belchior"
<[EMAIL PROTECTED]> escreveu
>
> olá pessoal!
> 
> bom, sei q muito já viram sobre esse assunto na net, eu tbm..
> mas galera, ta acontecendo comigo e só to vendo a solução d
> reinstalar o win 98 na máquina do cliente (e isso num vai
> ser legal)..
> 
> Galera a situação é aquela, a impressora faz o salto d uma
> folha A4 (padrão selecionado no driver) ao invés do tamanho
> q eu informei no programa.. já criei um novo "formulário" em
> "configurações do servidor" em "Impressoras" no windows, mas,
> como muitas pessoas, não aparece o formulário q eu crirei para
> q eu possa escolher na hora d imprimir.
> 
> HELP!!
> 
> 
> .
>

[delphi-br] papel personalizado, Matricial em windows 2000/xp

[Filipe Belchior]

olá pessoal!

bom, sei q muito já viram sobre esse assunto na net, eu tbm..
mas galera, ta acontecendo comigo e só to vendo a solução d
reinstalar o win 98 na máquina do cliente (e isso num vai
ser legal)..

Galera a situação é aquela, a impressora faz o salto d uma
folha A4 (padrão selecionado no driver) ao invés do tamanho
q eu informei no programa.. já criei um novo "formulário" em
"configurações do servidor" em "Impressoras" no windows, mas,
como muitas pessoas, não aparece o formulário q eu crirei para
q eu possa escolher na hora d imprimir.

HELP!!


.

[delphi-br] Re: Procedures no Firebird

[Filipe Belchior]

Jorge, vai ficar assim..


 --   corpo da procedure   
 CREATE PROCEDURE P_INCREMENTA_CAMPOS (
 PI_TABELA VARCHAR(30),
 PI_CAMPO VARCHAR(20))
 RETURNS (
 PO_VALUE INTEGER)
 AS
 BEGIN
   EXECUTE STATEMENT
   'SELECT MAX (' || :PI_CAMPO || ') FROM ' || :PI_TABELA
   INTO :PO_VALUE;
   SUSPEND;
 END;
 


..Mas não é aconselhavel tratar assim incremento de PK de tabela,
o ideal é usar generator, e ter um outro campo, q vc possar usar
como quiser e mostrar ao usuário.



--- Em delphi-br@yahoogrupos.com.br, Rodrigo Bevilacqua Marcondes
<[EMAIL PROTECTED]> escreveu
>
> [FOR] EXECUTE STATEMENT 
> [INTO :var1 [, var2 [, :varn]]] DO
> ];
>  = {statement | block-of-statements}
> 
> ---Ex .
> SQL = 'EXECUTE PROCEDURE '||PROC_NAME;
> EXECUTE STATEMENT SQL;
> 
> "Jorge Diego de A. Lopes" <[EMAIL PROTECTED]> escreveu: Ola pessoal
estou tentando fazer uma StoredProcedure generica para
> fazer o auto incremento do campo chave no momento da inserção pelo
delphi.
> 
> --   corpo da procedure   
> CREATE PROCEDURE P_INCREMENTA_CAMPOS (
> PI_TABELA VARCHAR(30),
> PI_CAMPO VARCHAR(20))
> RETURNS (
> PO_VALUE INTEGER)
> AS
> BEGIN
>   SELECT MAX (:PI_CAMPO) FROM :PI_TABELA
>   INTO :PO_VALUE;
>   SUSPEND;
> END;
> 
> so que está procedure nao esta compilando, pois ela informa que esta
> tabela nao existe, pois o correto seria assim
> SELECT MAX (ID_USUARIO) FROM USUARIOS 
> INTO :PO_VALUE;
> So que esta forma nao ficaria generia para todas as tabelas... alguem
> poderia me informar se teria alguma forma generica de fazer isso...
> 
> 
> 
> 
>   
> -
>  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] Re: Problemas com acentuação com banco DBF

[FILIPE GMAIL]

Olha só, se você está usando o BDE da uma olhada em 
configuration->system->init->LangDriver.

deve ser o driver que esta usando que não converte direito a acentuação. eu 
utilizo aqui o "Pdox ANSI Intl850"
e funciona perfeito com dbf.

[]s, Filipe F. Gevaerd.

Original:

Olá amigos, estou iniciando uma importação de uma base de dados, 
feita em
clipper, DBF - DBase lá no clipper tá com acentuação perfeita, 
porém
quando tento abrir no delphi, ou mesmo pelo Database Desktop, ele me 
mostra
uns códigos malucos nos lugares das acentuações...

Eis minha pergunta, como faço pra visualizar as acentuações para 
poder
importar corretamente? Existe alguma maneira, conversor?


Desde já agradeç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] POST_EVENT em dbexpress

[Filipe Belchior]

olá pessoal.. eh possível resgatar eventos lancados pelo FB/IB através
do POST_EVENT, em DBX??



FILIPE BELCHIOR




-- 
<<<<< 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: Acessar DLL com duas classes no delphi 7.

[Filipe Belchior]

fernanda, please, mostre como vc esta acessando as funções.



--- Em delphi-br@yahoogrupos.com.br, "Maria Fernanda"
<[EMAIL PROTECTED]> escreveu
>
> Olá,
> 
> Pessoal, como faço para acessar funções em uma dll que tenha 2 classes? 
> Por exemplo, eu tenho uma dll aqui que tem 2 classes:
> 
> ftrfingercentre.capture e ftrfingercentre.match.
> 
> Dentro da classe Capture eu tenho 2 funções:
> 
> getenrolldata() : String;
> getcapturedata() : String;
> 
> Como posso acessar essas funções? Eu declaro essas funções na unit do 
> meu programa mas quando vou usar ele me fala que não foi possivel achar 
> o ponto de entrada da função. E agora?
>







-- 
< 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] Modularizacao em CBuilder?? possível??

[Filipe Belchior]

olá pessoal.. desculpe o off..

eu faco projetos delphi, modularizados.. mas um amigo,
q sempre troco idéias, pois ele desenvolve em CBuilder,
me perguntou como fazer modularização em CBuilder..

..naum consegui ter sucesso na experiencia, por causa
da diretiva "initialization" de delphi, que naum existe
em C++


FILIPE BELCHIOR






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

[FILIPE GMAIL]

Bom dia pessoal, gostaria de saber se alguém tem ou indica algum material ou 
livro para eu começar a estudar web services, preciso criar um cliente para 
web services, mas não tenho nem idéia de como se faz isso. Vou procurar na 
internet também, mas se alguém já tiver alguma indicação para me fazer eu 
ficaria muito grato. Vou ter que trabalhar com o Delphi 7, pelo menos é isso 
que me passaram no trabalho.

Obrigado, Filipe Gevaerd 



-- 
<<<<< 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: Validar Renavam

[Filipe Xavier Ramalho]

Bom dia Rodrigo.

A formula é a mesma, só que com 9 dígitos. Valida igual ao CPF/CNPJ.

Att,

Filipe

--- Em delphi-br@yahoogrupos.com.br, galvao_em <[EMAIL PROTECTED]> 
escreveu
>
> Olá, estou desenvolvendo um sistema para uma transportadora e 
gostaria 
> de saber se tem uma fórmula para validar o Renavan dos veículos, 
assim 
> como tem para o cnpj.
> 
> Att.
> 
> Rodrigo
> 
>   
> ___ 
> O Yahoo! está de cara nova. Venha conferir! 
> http://br.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] Abrir arquivo com extensão UDL em um campo de texto

[Filipe Xavier Ramalho]

Pessoal,

Estou tentando abrir um arquivo UDL como texto no Delphi. O problema é 
que esta extensão é gravada com WideChars. Alguém sabe como faço para 
abrir em um memo esse arquivo gravado em WideChars???

[]'s

Filipe





-- 
<<<<< 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] Assunto do momento (Orkut)

[Filipe Xavier Ramalho]

Hudson,

 

Como a lista é sobre Delphi, responderei a sua pergunta. Mas peço
encarecidamente que recuse o trabalho, pois com certeza é prática de spam, e
caracteriza atividade ilegal.

 

Mas vamos à solução:

 

Procure na net um programa chamado HTTP Watch, ele te ajudará a monitorar o
acesso ao orkut e descobrir todos os parâmetros passados pelos métodos Get e
Post utilizados no site.

Sabendo as informações que você deve passar para o site, use os componentes
da Indy, ou qualquer outro client para http, e faça posts e gets no site da
mesma forma que o navegador.

 

 

Lembrando, evite o uso desta técnica para spam.

 

Abraços,

 

Filipe

 

   _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Hudson
Enviada em: quarta-feira, 13 de setembro de 2006 21:20
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Assunto do momento (Orkut)

 

Gente, 
tive essa semana, um cliente afim de contratar o meu serviço...
Pra montar um programa assim
o usuário faz login e senha no orkut
tem o acesso aos dados do mesmo..
e pode mandar scrap (mensagem) pra todos da lista no mesmo tempo...

Isso e possível?

Valeu


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

 


--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.405 / Virus Database: 268.12.3/447 - Release Date: 13/9/2006



-- 
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.1.405 / Virus Database: 268.12.3/447 - Release Date: 13/9/2006
 


[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: ClientDataSet preciso apertar o botão 2x

[Filipe Belchior]

"porém no primeiro clique no botão
> só aparece o cursor aberto no DBGRID e não vem os dadosquando
clico novamente no botão
> aí os dados aparecem"

kra.. naum entendi bulhufas!!
:D
o q vc kis dizer?..




--- Em delphi-br@yahoogrupos.com.br, "Rodrigo Mota" <[EMAIL PROTECTED]>
escreveu
>
> Try
> cdsCliPed.Close;
> { Data do Cliente }
> sqlCliPed.ParamByName('DataI').AsDate := cbdtinitb1.Date;
> sqlCliPed.ParamByName('DataF').AsDate := cbdtfimtb1.Date;
> 
> sqlDetail.ParamByName('DataI').AsDate := cbdtinitb1.Date;
> sqlDetail.ParamByName('DataF').AsDate := cbdtfimtb1.Date;
> cdsCliPed.Open;
>   Except
> on E: Exception do ShowMessage(E.Message);
>   end;
> 
> tenho o codigo acima funciona normala saída é feita no
DBGridporém no primeiro clique no botão
> só aparece o cursor aberto no DBGRID e não vem os dadosquando
clico novamente no botão
> aí os dados aparecem???
> 
> alguma dica galerae deixa a Tamara em Paz outra coisa, se ela for 
> bela igual a Lara Croft opaaí elegemos ela.como a musa da
lista
> falo com propriedadepois sou amarrado...por TOMB RAIDERja
salvei nas
> 5 versões... :-) ou seja, conheço muito do jogoe é
claro...da Lara Croft tb...hehehhe
> 
> abs.
>







-- 
< 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: RES: [delphi-br]

[Filipe Belchior]

pow, rs.. eu aei "Tamara Clemente".. soh num sei se eh vc? rs..

cidade natal: São Bernado do Campo
profissao: Analista desenvolvedora

:D
será!?
hehehe


--- Em delphi-br@yahoogrupos.com.br, "Moked - Tamara \(Brazil\)"
<[EMAIL PROTECTED]> escreveu
>
> Olha issu...rs... tenho sim
>  
> 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 Filipe Belchior
> Enviada em: quarta-feira, 13 de setembro de 2006 15:32
> Para: delphi-br@yahoogrupos.com.br
> Assunto: Re: RES: [delphi-br]
> 
> 
> pow tamara.. agora ateh eu fikei curioso, rs.. tem orkut?
> 
> 
> 
> --- Em delphi-br@yahoogrupos.com.br, "Moked - Tamara \(Brazil\)"
> <[EMAIL PROTECTED]> escreveu
> >
> > Aiai...rs...
> >  
> > 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 Ulisses
> > Enviada em: quarta-feira, 13 de setembro de 2006 15:02
> > Para: delphi-br@yahoogrupos.com.br
> > Assunto: Re: [delphi-br]
> > 
> > 
> > Lara Croft é a Musa dos fanáticos, pela série de Jogos TOMB RAIDER.
> > 
> > []'s
> > 
> > Ulisses
> >   -Mensagem Original- 
> >   De: Moked - Tamara (Brazil) 
> >   Para: delphi-br@yahoogrupos.com.br 
> >   Enviada em: quarta-feira, 13 de setembro de 2006 14:17
> >   Assunto: RES: [delphi-br]
> > 
> > 
> >   Nossa... q q issu? Q q quer dizer "virar a Lara Croft da lista
> Delphi-BR"???rs
> > 
> >   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 Ulisses
> >   Enviada em: quarta-feira, 13 de setembro de 2006 13:47
> >   Para: delphi-br@yahoogrupos.com.br
> >   Assunto: Re: [delphi-br]
> > 
> > 
> >   Mascote é demais também.
> > 
> >   Poderia dizer que é a caçula, mas mascote...  hehehe
> > 
> >   Tamara, cuidado pra não virar a Lara Croft da lista Delphi-BR.  he
> he he
> > 
> >   []'s
> > 
> >   Ulisses
> > -Mensagem Original- 
> > De: Campus 
> > Para: delphi-br@yahoogrupos.com.br 
> > Enviada em: quarta-feira, 13 de setembro de 2006 12:56
> > Assunto: Re: [delphi-br]
> > 
> > 
> > Que isso Walter, ela é nossa mascote.
> > 
> > 
> > - Original Message - 
> > From: "Walter Alves Chagas Junior" <[EMAIL PROTECTED]>
> > To: 
> > Sent: Wednesday, September 13, 2006 12:44 PM
> > Subject: RES: [delphi-br]
> > 
> > 
> > hehe,
> > 
> > Pelo menos deu pra você sacar que tens pretendentes virtuais
né
> > 
> > []s
> > 
> > Walter Alves Chagas Junior
> > Projeto e desenvolvimento de sistemas
> > Telemont Engenharia de telecomunicações S/A
> > Belo Horizonte - MG - Brasil
> > [EMAIL PROTECTED]
> > Fone: (31) 3389-8215 Fax: (31) 3389-8200
> > 
> > Parabens Telemont - Somos a 8ª maior empresa do Brasil no
> segmento de
> > construção!!
> > 
> > 
> > -Mensagem original-
> > De: delphi-br@yahoogrupos.com.br
> [mailto:[EMAIL PROTECTED]
> > nome de Moked - Tamara (Brazil)
> > Enviada em: quarta-feira, 13 de setembro de 2006 12:27
> > Para: delphi-br@yahoogrupos.com.br
> > Assunto: RES: [delphi-br]
> > 
> > 
> > hahahahaha... cade a Tamara???rs... pq?
> > 
> > Eu to aki Ulisses... ainda... rs...
> > 
> > Aproveito para falar pro pessoal q ficarei fora da lista por
> algum tempo,
> >

Re: RES: [delphi-br] MALDITO BREAKPOINT

[Filipe Belchior]

naum adianta angélica, tentei.. obrigado



--- Em delphi-br@yahoogrupos.com.br, Angélica Viana Pereira
<[EMAIL PROTECTED]> escreveu
>
> Já tentou excluir os DCU e recompilar o projeto...
> 
> []s   Angélica
> 
> - Original Message - 
> From: "Filipe Belchior" <[EMAIL PROTECTED]>
> To: 
> Sent: Wednesday, September 13, 2006 2:55 PM
> Subject: Re: RES: [delphi-br] MALDITO BREAKPOINT
> 
> 
> pow rogério, tbm ja ta marcado, sinistro isso, não entendo
> pq ta acontecendo isso.. mas valeu mais uma vez.. to pensando
> em reinstalar o delphi.
> 
> 
> 
> --- Em delphi-br@yahoogrupos.com.br, Rogério <[EMAIL PROTECTED]>
escreveu
> >
> > Neste caso, vc deve resolver assim:
> >
> > Tools -> Debugger options
> > Ative: Integrated Debugging
> >
> > PS: Não falei isto antes pq vc disse que viu as config. e preferências
> >
> > Abraço,
> >
> > Rogério Ricardo Fernandes
> > Desenvolvimento
> > http://www.gs3.inf.br
> > Tel.:47 3035-6020/Fax:47 3035-6050
> >   - Original Message - 
> >   From: Filipe Belchior
> >   To: delphi-br@yahoogrupos.com.br
> >   Sent: Wednesday, September 13, 2006 2:02 PM
> >   Subject: Re: RES: [delphi-br] MALDITO BREAKPOINT
> >
> >
> >   pow thiago, desculpe mas, isso eu já sei.. o q ta acontecendo,
> >   eh fora do normal.. nenhuma linha ta aceitando o breakpoint!
> >
> >
> >
> >   --- Em delphi-br@yahoogrupos.com.br, "Moked - Thiago \(Brasil\)"
> >   <[EMAIL PROTECTED]> escreveu
> >   >
> >   > quando o break fica com o x vermelho, eh porque nao pode para
nessa
> >   linha, tente
> >   > colocar o break em alguma linha que faça alguma coisa, por
> exemplo if...
> >   >
> >   > se colocar no begin, ou em linha em branca tbm não funciona.
> >   >
> >   >
> >   >
> >   > Thiago Filiano - 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 Filipe Belchior
> >   > Enviada em: quarta-feira, 13 de setembro de 2006 13:48
> >   > Para: delphi-br@yahoogrupos.com.br
> >   > Assunto: [delphi-br] MALDITO BREAKPOINT
> >   >
> >   >
> >   > olá galera, pow, mals pelo titulo do assunto..
> >   >
> >   > Eh a 2a vez q me acontece isso, mas na 1a vez o projeto
> >   > naum era meu.. seguinte, o Delphi está simplesmente
> >   > ignorando meus breakpoints.. já olhei em tudo que eh
> >   > configuração e preferência, e nem lembro de ter mexido
> >   > em algum ultimamente..
> >   >
> >   > qnd compilo, vai direitin, e aparece akelas bolinhas azuis
> >   > em cada linha, normalmente.. marco um breakpoint, ateh ai
> >   > normal tbm.. mas depois q rodo (f9, f8, f7).. onde ta
> >   > marcado o breakpoint, fica a linha em verde escuro, e
> >   > bolinha vermelha com um "x", conhecida por muitos.. com
> >   > isso, o depurador naum para na linha.. e durante o programa
> >   > aberto, se eu marco qq linha, fica tbm em verde.. ou seja
> >   > naum permite nenhum breakpoint.
> >   >
> >   > help!
> >   >
> >   >
> >   >
> >   >
> >   >
> >   >
> >   >
> >   >
> >   > [As partes desta mensagem que não continham texto foram removidas]
> >   >
> >
> >
> >
> >
> >
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> 
> 
> 
> 
> 
> 
> -- 
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
> 
> 
> 
> 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

 

Re: RES: [delphi-br]

[Filipe Belchior]

pow tamara.. agora ateh eu fikei curioso, rs.. tem orkut?



--- Em delphi-br@yahoogrupos.com.br, "Moked - Tamara \(Brazil\)"
<[EMAIL PROTECTED]> escreveu
>
> Aiai...rs...
>  
> 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]  
> www.moked.com.br  
> 
> 
> 
> 
> De: delphi-br@yahoogrupos.com.br
[mailto:[EMAIL PROTECTED] Em nome de Ulisses
> Enviada em: quarta-feira, 13 de setembro de 2006 15:02
> Para: delphi-br@yahoogrupos.com.br
> Assunto: Re: [delphi-br]
> 
> 
> Lara Croft é a Musa dos fanáticos, pela série de Jogos TOMB RAIDER.
> 
> []'s
> 
> Ulisses
>   -Mensagem Original- 
>   De: Moked - Tamara (Brazil) 
>   Para: delphi-br@yahoogrupos.com.br 
>   Enviada em: quarta-feira, 13 de setembro de 2006 14:17
>   Assunto: RES: [delphi-br]
> 
> 
>   Nossa... q q issu? Q q quer dizer "virar a Lara Croft da lista
Delphi-BR"???rs
> 
>   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]  
>   www.moked.com.br  
> 
> 
>   
> 
>   De: delphi-br@yahoogrupos.com.br
[mailto:[EMAIL PROTECTED] Em nome de Ulisses
>   Enviada em: quarta-feira, 13 de setembro de 2006 13:47
>   Para: delphi-br@yahoogrupos.com.br
>   Assunto: Re: [delphi-br]
> 
> 
>   Mascote é demais também.
> 
>   Poderia dizer que é a caçula, mas mascote...  hehehe
> 
>   Tamara, cuidado pra não virar a Lara Croft da lista Delphi-BR.  he
he he
> 
>   []'s
> 
>   Ulisses
> -Mensagem Original- 
> De: Campus 
> Para: delphi-br@yahoogrupos.com.br 
> Enviada em: quarta-feira, 13 de setembro de 2006 12:56
> Assunto: Re: [delphi-br]
> 
> 
> Que isso Walter, ela é nossa mascote.
> 
> 
> - Original Message - 
> From: "Walter Alves Chagas Junior" <[EMAIL PROTECTED]>
> To: 
> Sent: Wednesday, September 13, 2006 12:44 PM
> Subject: RES: [delphi-br]
> 
> 
> hehe,
> 
> Pelo menos deu pra você sacar que tens pretendentes virtuais né
> 
> []s
> 
> Walter Alves Chagas Junior
> Projeto e desenvolvimento de sistemas
> Telemont Engenharia de telecomunicações S/A
> Belo Horizonte - MG - Brasil
> [EMAIL PROTECTED]
> Fone: (31) 3389-8215 Fax: (31) 3389-8200
> 
> Parabens Telemont - Somos a 8ª maior empresa do Brasil no
segmento de
> construção!!
> 
> 
> -Mensagem original-
> De: delphi-br@yahoogrupos.com.br
[mailto:[EMAIL PROTECTED]
> nome de Moked - Tamara (Brazil)
> Enviada em: quarta-feira, 13 de setembro de 2006 12:27
> Para: delphi-br@yahoogrupos.com.br
> Assunto: RES: [delphi-br]
> 
> 
> hahahahaha... cade a Tamara???rs... pq?
> 
> Eu to aki Ulisses... ainda... rs...
> 
> Aproveito para falar pro pessoal q ficarei fora da lista por
algum tempo,
> estou me desligando da empresa, mas assim q as coisas estiverem
acertadas,
> volto, acredito q ñ fike de fora por mais de uma semana...
> 
> 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] 
> www.moked.com.br 
> 
> 
> 
> 
> De: delphi-br@yahoogrupos.com.br
[mailto:[EMAIL PROTECTED] Em
> nome de Moked - Thiago (Brasil)
> Enviada em: quarta-feira, 13 de setembro de 2006 12:02
> Para: delphi-br@yahoogrupos.com.br
> Assunto: RES: [delphi-br]
> 
> 
> Bom dia Ulisses,
> 
> a Tamara esta aqui...
> 
> já solucionei. obrigado.
> 
> 
> 
> 
> De: delphi-br@yahoogrupos.com.br
[mailto:[EMAIL PROTECTED] Em
> nome de Ulisses
> Enviada em: quarta-feira, 13 de setembro de 2006 11:32
> Para: delphi-br@yahoogrupos.com.br
> Assunto: Re: [delphi-br]
> 
> 
> Bom dia!
> 
> Como assim?
> 
> Pode ser um pouco mais claro?
> 
> Cadê a Tamara?
> 
> []'s
> 
> Ulisses
>   -Mensagem Original- 
>   De: Moked - Thiago (Brasil)
>   Para: delphi-br@yahoogrupos.com.br
>   Enviada em: quarta-feira, 13 de setembro de 2006 09:43
>   Assunto: [delphi-br]
> 
> 
>   Bom dia Pessoal,
> 
>   Tenho uma aplicação e preciso atribuir valores para todos os
registros que
> vierem de um select e gravar no banco de dados, como posso fazer
isso?
> 
>   obrigado.
> 
>   Thiago Filiano - Suporte técnico
>   Moked do Brasil - Consultoria de Segurança Empresarial
>   Divisão Mokinf de Informática
>   PABX: (55-11) 5071-2748
>   [EMAIL PROTECTED] 
>   www.moked.co

Re: RES: [delphi-br] MALDITO BREAKPOINT

[Filipe Belchior]

pow rogério, tbm ja ta marcado, sinistro isso, não entendo
pq ta acontecendo isso.. mas valeu mais uma vez.. to pensando
em reinstalar o delphi.



--- Em delphi-br@yahoogrupos.com.br, Rogério <[EMAIL PROTECTED]> escreveu
>
> Neste caso, vc deve resolver assim:
> 
> Tools -> Debugger options
> Ative: Integrated Debugging
> 
> PS: Não falei isto antes pq vc disse que viu as config. e preferências
> 
> Abraço,
> 
> Rogério Ricardo Fernandes
> Desenvolvimento
> http://www.gs3.inf.br
> Tel.:47 3035-6020/Fax:47 3035-6050 
>   - Original Message - 
>   From: Filipe Belchior 
>   To: delphi-br@yahoogrupos.com.br 
>   Sent: Wednesday, September 13, 2006 2:02 PM
>   Subject: Re: RES: [delphi-br] MALDITO BREAKPOINT
> 
> 
>   pow thiago, desculpe mas, isso eu já sei.. o q ta acontecendo,
>   eh fora do normal.. nenhuma linha ta aceitando o breakpoint!
> 
> 
> 
>   --- Em delphi-br@yahoogrupos.com.br, "Moked - Thiago \(Brasil\)"
>   <[EMAIL PROTECTED]> escreveu
>   >
>   > quando o break fica com o x vermelho, eh porque nao pode para nessa
>   linha, tente
>   > colocar o break em alguma linha que faça alguma coisa, por
exemplo if...
>   >  
>   > se colocar no begin, ou em linha em branca tbm não funciona.
>   >  
>   >  
>   >  
>   > Thiago Filiano - 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 Filipe Belchior
>   > Enviada em: quarta-feira, 13 de setembro de 2006 13:48
>   > Para: delphi-br@yahoogrupos.com.br
>   > Assunto: [delphi-br] MALDITO BREAKPOINT
>   > 
>   > 
>   > olá galera, pow, mals pelo titulo do assunto..
>   > 
>   > Eh a 2a vez q me acontece isso, mas na 1a vez o projeto
>   > naum era meu.. seguinte, o Delphi está simplesmente
>   > ignorando meus breakpoints.. já olhei em tudo que eh
>   > configuração e preferência, e nem lembro de ter mexido
>   > em algum ultimamente..
>   > 
>   > qnd compilo, vai direitin, e aparece akelas bolinhas azuis
>   > em cada linha, normalmente.. marco um breakpoint, ateh ai
>   > normal tbm.. mas depois q rodo (f9, f8, f7).. onde ta
>   > marcado o breakpoint, fica a linha em verde escuro, e
>   > bolinha vermelha com um "x", conhecida por muitos.. com
>   > isso, o depurador naum para na linha.. e durante o programa
>   > aberto, se eu marco qq linha, fica tbm em verde.. ou seja
>   > naum permite nenhum breakpoint.
>   > 
>   > help!
>   > 
>   > 
>   > 
>   > 
>   > 
>   >  
>   > 
>   > 
>   > [As partes desta mensagem que não continham texto foram removidas]
>   >
> 
> 
> 
> 
>
> 
> [As partes desta mensagem que não continham texto foram removidas]
>






-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> 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: MALDITO BREAKPOINT

[Filipe Belchior]

pow eduardo, valeu a idéia.. mas vi, e num tem essa diretiva
declarada.



--- Em delphi-br@yahoogrupos.com.br, Eduardo <[EMAIL PROTECTED]> escreveu
>
> Partindo do principio q este metodo esta sendo executado em algum 
> momento, procure no seu codigo se existe uma diretiva de compilação 
> "{$D-}" se existir, delete ou mude para "{$D+}".
> 
> 
> Eduardo
> 
> Filipe Belchior escreveu:
> > olá galera, pow, mals pelo titulo do assunto..
> >
> > Eh a 2a vez q me acontece isso, mas na 1a vez o projeto
> > naum era meu.. seguinte, o Delphi está simplesmente
> > ignorando meus breakpoints.. já olhei em tudo que eh
> > configuração e preferência, e nem lembro de ter mexido
> > em algum ultimamente..
> >
> > qnd compilo, vai direitin, e aparece akelas bolinhas azuis
> > em cada linha, normalmente.. marco um breakpoint, ateh ai
> > normal tbm.. mas depois q rodo (f9, f8, f7).. onde ta
> > marcado o breakpoint, fica a linha em verde escuro, e
> > bolinha vermelha com um "x", conhecida por muitos.. com
> > isso, o depurador naum para na linha.. e durante o programa
> > aberto, se eu marco qq linha, fica tbm em verde.. ou seja
> > naum permite nenhum breakpoint.
> >
> > help!
> >
> >
> >
> >
> >
> >  
> 
> 
>   
> ___ 
> 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] Re: MALDITO BREAKPOINT

[Filipe Belchior]

rogério, desuculpe mas, rs, vou responder o mesmo q respondi
pro thiago.. isso eu já sei!! ..o q ta acontecendo eh fora do
normal.. como eu disse, o projeto compila normal, e aparecem
as "bolinhas azuis", q indicam "linhas válidas", onde posso
colocar breakpoint.. o q ta acontecendo, eh q num aceita em
nenhuma linha.. nada!.. qq linha q eu coloke, fica com a
marcação de "breakpoint inválido"..
..esta ocorredo um erro no programa, e estou tento muita
dificuldade pra identifica-lo pq naum consigo usar o break
:(
:(
:(



--- Em delphi-br@yahoogrupos.com.br, Rogério <[EMAIL PROTECTED]> escreveu
>
> Isto é porque a linha em questão está sendo ignorada na compilação.
> 
> O Delphi faz uma compilação inteligente e se puder desprezar algo,
ele despreza.
> É o que acontece no seu caso, ou
> o comando está quebrado em mais de uma linha e o break está na linha
errada.
> 
> Abraço,
> 
> Rogério Ricardo Fernandes
> Desenvolvimento
> http://www.gs3.inf.br
> Tel.:47 3035-6020/Fax:47 3035-6050 
>   - Original Message - 
>   From: Filipe Belchior 
>   To: delphi-br@yahoogrupos.com.br 
>   Sent: Wednesday, September 13, 2006 1:39 PM
>   Subject: [delphi-br] MALDITO BREAKPOINT
> 
> 
>   olá galera, pow, mals pelo titulo do assunto..
> 
>   Eh a 2a vez q me acontece isso, mas na 1a vez o projeto
>   naum era meu.. seguinte, o Delphi está simplesmente
>   ignorando meus breakpoints.. já olhei em tudo que eh
>   configuração e preferência, e nem lembro de ter mexido
>   em algum ultimamente..
> 
>   qnd compilo, vai direitin, e aparece akelas bolinhas azuis
>   em cada linha, normalmente.. marco um breakpoint, ateh ai
>   normal tbm.. mas depois q rodo (f9, f8, f7).. onde ta
>   marcado o breakpoint, fica a linha em verde escuro, e
>   bolinha vermelha com um "x", conhecida por muitos.. com
>   isso, o depurador naum para na linha.. e durante o programa
>   aberto, se eu marco qq linha, fica tbm em verde.. ou seja
>   naum permite nenhum breakpoint.
> 
>   help!
> 
> 
> 
> 
> 
>
> 
> [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: RES: [delphi-br] MALDITO BREAKPOINT

[Filipe Belchior]

pow thiago, desculpe mas, isso eu já sei.. o q ta acontecendo,
eh fora do normal.. nenhuma linha ta aceitando o breakpoint!



--- Em delphi-br@yahoogrupos.com.br, "Moked - Thiago \(Brasil\)"
<[EMAIL PROTECTED]> escreveu
>
> quando o break fica com o x vermelho, eh porque nao pode para nessa
linha, tente
> colocar o break em alguma linha que faça alguma coisa, por exemplo if...
>  
> se colocar no begin, ou em linha em branca tbm não funciona.
>  
>  
>  
> Thiago Filiano - 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 Filipe Belchior
> Enviada em: quarta-feira, 13 de setembro de 2006 13:48
> Para: delphi-br@yahoogrupos.com.br
> Assunto: [delphi-br] MALDITO BREAKPOINT
> 
> 
> olá galera, pow, mals pelo titulo do assunto..
> 
> Eh a 2a vez q me acontece isso, mas na 1a vez o projeto
> naum era meu.. seguinte, o Delphi está simplesmente
> ignorando meus breakpoints.. já olhei em tudo que eh
> configuração e preferência, e nem lembro de ter mexido
> em algum ultimamente..
> 
> qnd compilo, vai direitin, e aparece akelas bolinhas azuis
> em cada linha, normalmente.. marco um breakpoint, ateh ai
> normal tbm.. mas depois q rodo (f9, f8, f7).. onde ta
> marcado o breakpoint, fica a linha em verde escuro, e
> bolinha vermelha com um "x", conhecida por muitos.. com
> isso, o depurador naum para na linha.. e durante o programa
> aberto, se eu marco qq linha, fica tbm em verde.. ou seja
> naum permite nenhum breakpoint.
> 
> help!
> 
> 
> 
> 
> 
>  
> 
> 
> [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] MALDITO BREAKPOINT

[Filipe Belchior]

olá galera, pow, mals pelo titulo do assunto..

Eh a 2a vez q me acontece isso, mas na 1a vez o projeto
naum era meu.. seguinte, o Delphi está simplesmente
ignorando meus breakpoints.. já olhei em tudo que eh
configuração e preferência, e nem lembro de ter mexido
em algum ultimamente..

qnd compilo, vai direitin, e aparece akelas bolinhas azuis
em cada linha, normalmente.. marco um breakpoint, ateh ai
normal tbm.. mas depois q rodo (f9, f8, f7).. onde ta
marcado o breakpoint, fica a linha em verde escuro, e
bolinha vermelha com um "x", conhecida por muitos.. com
isso, o depurador naum para na linha.. e durante o programa
aberto, se eu marco qq linha, fica tbm em verde.. ou seja
naum permite nenhum breakpoint.

help!







-- 
< 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: Editar em ClientDataSet

[Filipe Belchior]

ok marcos, entendido isso.. agora, :D ..seguinte, pra editar
(update) uma tabela.. vamos fazer na prática, :D ..quais
componentes usar? ..CDS, DSP e SQ??? na CDS eu defino os Fields.
Como informar qual tabela? ..O DSP, normal.. e o SQ? uso?



--- Em delphi-br@yahoogrupos.com.br, "Marcos Douglas" <[EMAIL PROTECTED]> 
escreveu
>
> Filipe,
> Veja minhas considerações abaixo:
> 
> > marcos.. olhei a respeito do método, no delphi.. mas eu num
> > entendi exatamente como funciona.. eu deixo o comandtext em
> > branco? ..e tbm tem essa parte dita pelo help do delphi..
> 
> O método CreateDataSet cria uma "área" em memória como se tivesse
sido feito
> um SELECT no banco, mas que não foi retornado nenhum registro. A
propriedade
> CommandText não tem nada a ver com isso; na verdade não é bom utilizar
> CommandText.
> 
> > ..qnd vc disse que eh "obrigatório definir os TFields antes",
> > na verdade, vc naum quiz dizer TFieldDefs? ..e tbm, o texto
> > acima retirado do help, diz que eh usado o FieldDefs OU o
> > Fields para cria as definições dos campos. Afinal, qual a
> > diferença? ..pois, o Fields, eh criado qnd usamos o Open,
> > certo?
> 
> Tanto faz, é o que diz o help do Delphi. Se tem que definir, pelo
menos, os
> FieldDefs. Mas se houver TFields definidos, estes serão utilizados.
> Quando chamamos Open e não há nenhum FieldDefs definido, o Delphi
cria eles
> em rumtime, junto com os TFields.
> 
> 
> >
> > --- Em delphi-br@yahoogrupos.com.br, "Marcos Douglas" <[EMAIL PROTECTED]>
escreveu
> >>
> >> Não precisa dar Open. Vc pode utilizar o método CreateDataSet, mas é
> >> obrigatório definir os TFields antes.
> >>
> >> --
> >> Marcos Douglas
> >>
> >>  Mensagem Original 
> >> From: "Filipe Belchior" <[EMAIL PROTECTED]>
> >> To: delphi-br@yahoogrupos.com.br
> >> Sent: Seg, Setembro 11, 2006 2:56 pm
> >> Subject: [delphi-br] Editar em ClientDataSet
> >>
> >> > olá, paz..
> >> >
> >> > Direto ao assunto.. pra fazer uma edição em CDS (insert,
> >> > update, delete), é preciso um "Open" antes, correto?
> >> > Se vou abrir preciso do select.. o select tem q ser "*"?
> >> > mas se for um select com "where"?
> >> >
> >> > []s
> >> >
> >> > PS.: estou comecando em MIDAS. E sempre fiz edição por sql
> >> > dinâmica.. nada de "DataSet.Insert", ".Edit", etc..
> >> >
> >> >
> >> > FILIPE BELCHIOR
> >> >
> >> >
> >> >
> >> >
> >>
> >
> >
> >
> >
> >
> >
>






-- 
<<<<< 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: Editar em ClientDataSet

[Filipe Belchior]

marcos.. olhei a respeito do método, no delphi.. mas eu num
entendi exatamente como funciona.. eu deixo o comandtext em
branco? ..e tbm tem essa parte dita pelo help do delphi..

"If the FieldDefs property contains values, these values are
used to create field definitions. OTHERWISE the Fields
property is used."

..qnd vc disse que eh "obrigatório definir os TFields antes",
na verdade, vc naum quiz dizer TFieldDefs? ..e tbm, o texto
acima retirado do help, diz que eh usado o FieldDefs OU o
Fields para cria as definições dos campos. Afinal, qual a
diferença? ..pois, o Fields, eh criado qnd usamos o Open,
certo?



--- Em delphi-br@yahoogrupos.com.br, "Marcos Douglas" <[EMAIL PROTECTED]> 
escreveu
>
> Não precisa dar Open. Vc pode utilizar o método CreateDataSet, mas é
> obrigatório definir os TFields antes.
> 
> --
> Marcos Douglas
> 
>  Mensagem Original 
> From: "Filipe Belchior" <[EMAIL PROTECTED]>
> To: delphi-br@yahoogrupos.com.br
> Sent: Seg, Setembro 11, 2006 2:56 pm
> Subject: [delphi-br] Editar em ClientDataSet
> 
> > olá, paz..
> >
> > Direto ao assunto.. pra fazer uma edição em CDS (insert,
> > update, delete), é preciso um "Open" antes, correto?
> > Se vou abrir preciso do select.. o select tem q ser "*"?
> > mas se for um select com "where"?
> >
> > []s
> >
> > PS.: estou comecando em MIDAS. E sempre fiz edição por sql
> > dinâmica.. nada de "DataSet.Insert", ".Edit", etc..
> >
> >
> > FILIPE BELCHIOR
> >
> >
> >
> >
>







-- 
<<<<< 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] Editar em ClientDataSet

[Filipe Belchior]

olá, paz..

Direto ao assunto.. pra fazer uma edição em CDS (insert,
update, delete), é preciso um "Open" antes, correto?
Se vou abrir preciso do select.. o select tem q ser "*"?
mas se for um select com "where"?

[]s

PS.: estou comecando em MIDAS. E sempre fiz edição por sql
dinâmica.. nada de "DataSet.Insert", ".Edit", etc..


FILIPE BELCHIOR





-- 
<<<<< 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: Migrar para sistema multicamadas

[Filipe Belchior]

pow, sinceramente naum sei dizer à respeito.. eh isso, tbm
vejo muito escreverem sobre SOAP, ele eh popular. E pelo
menos, o SOAP eh muito simples de implementar em Delphi,
COM+ tem umas coisinhas a mais pra configurar no S.O., mas
tbm num xega a ser complicado.



--- Em delphi-br@yahoogrupos.com.br, Welson Avelar
<[EMAIL PROTECTED]> escreveu
>
> --- Filipe Belchior escreveu:
> > bom, welson, o luiz explicou como enxergar a sua maquina remotamente,
> > agora, se vc tbm quer saber como implementar mesmo, multicamadas,
> > se for em delphi mesmo (digo isso, pois como vc comecou seu topico,
> > não tenho certeza se é em delphi mesmo), pesquise por exemplos
> > utilizando Datasnap com SOAP. vlw.
> > 
> > []s
> > FILIPE BELCIOR
> [--x--]
> 
> [Welson] O sistema é em Delphi mesmo. De início pensei em usar COM+,
mas o SOAP
> falam bem dele também. Qual a vantagem do SOAP pro COM+ ? A
diferença chega a
> ser gritante ?!
> 
> Obrigado Filipe pela atenção e também ao Luiz (acho que não o
agradeci no email
> dele)
> 
> []s.
> 
> =
> "O que me preocupa não é o grito dos maus. É o silêncio dos bons."
> Martin Luther King.
> =
> Welson de Avelar Soares Filho
> Analista/Programador Delphi
> Gemini Sistemas
> 
> Juiz de Fora - Minas Gerais
> =
> 
> 
>   
> ___ 
> 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] Re: Scroll em runtime [RESOLVIDO, legal]

[Filipe Belchior]

olá galera..

eis a solução..


PostMessage( DBRichEdit1.Handle, WM_VSCROLL, SB_PAGEUP, 0 );
//ou
PostMessage( DBRichEdit1.Handle, WM_VSCROLL, SB_PAGDOWN, 0 );


..vlw, fica pra aprendizado

[]s

FILIPE BELCHIOR



--- Em delphi-br@yahoogrupos.com.br, "Filipe Belchior"
<[EMAIL PROTECTED]> escreveu
>
> olá galera, paz..
> 
> ..seguinte, questão dificil, rs.. to precisando rolar
> a scrollbar em runtime, de um dbrichedit.. é de um módulo
> em touchscreen, então, personalizei os botões de rolagem.
> 
> bom.. estou tentando, usar o método ScrollBy, herdado
> da classe TWinControl, mas naum funciona da forma que
> eu esperava, só vcs vendo pra entenderem..
> 
> se puderem, encarissidamente, me ajudarem, agradeço, rs.
> :D
>







-- 
<<<<< 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: Como gravar um JPG no FB com Delphi

[Filipe Belchior]

thiago e nivaldo,

desculpe, naum vou me explicar pois estou sem tempo, rs..
mas leiam sobre stream.. TJPEGImage.SaveToStream

[]s
FILIPE BELCHIOR



--- Em delphi-br@yahoogrupos.com.br, Nivaldo Stainle
<[EMAIL PROTECTED]> escreveu
>
> estou querendo fazer a mesma coisa e não consigo, caso você descubra por
>   favor me avise, se eu descobrir farei o mesmo.
>
>   Stainle
> 
> Thiago Menon <[EMAIL PROTECTED]> escreveu:
>   Olá,
> 
> Gostaria de saber como faço para gravar uma imagem em um campo do tipo 
> BLOB utilizando o Delphi ?
> 
> Eu fiz um teste e nao aceita pois está dizendo q nao é uma extensão
valida.
> 
> Muito Obrigado
> Thiago Menon
>  
> 
>   
> -
>  Yahoo! Search
>  Música para ver e ouvir: You're Beautiful, do James Blunt
> 
> [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: Como gravar um JPG no FB com Delphi

[Filipe Belchior]

thiago e nivaldo,

desculpe, naum vou me explicar pois estou com um pouco sem tempo, rs..
mas leiam sobre stream.. TJPEGImage.SaveToStream

[]s
FILIPE BELCHIOR



--- Em delphi-br@yahoogrupos.com.br, Nivaldo Stainle
<[EMAIL PROTECTED]> escreveu
>
> estou querendo fazer a mesma coisa e não consigo, caso você descubra por
>   favor me avise, se eu descobrir farei o mesmo.
>
>   Stainle
> 
> Thiago Menon <[EMAIL PROTECTED]> escreveu:
>   Olá,
> 
> Gostaria de saber como faço para gravar uma imagem em um campo do tipo 
> BLOB utilizando o Delphi ?
> 
> Eu fiz um teste e nao aceita pois está dizendo q nao é uma extensão
valida.
> 
> Muito Obrigado
> Thiago Menon
>  
> 
>   
> -
>  Yahoo! Search
>  Música para ver e ouvir: You're Beautiful, do James Blunt
> 
> [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: Migrar para sistema multicamadas

[Filipe Belchior]

bom, welson, o luiz explicou como enxergar a sua maquina remotamente,
agora, se vc tbm quer saber como implementar mesmo, multicamadas,
se for em delphi mesmo (digo isso, pois como vc comecou seu topico,
não tenho certeza se é em delphi mesmo), pesquise por exemplos
utilizando Datasnap com SOAP. vlw.

[]s
FILIPE BELCIOR



--- Em delphi-br@yahoogrupos.com.br, "Luiz Escobar" <[EMAIL PROTECTED]>
escreveu
>
> Bom com certeza seu servidor vai esta dentro da sua empresa, e o ip
dele ser 
> 192.168.0.x ou 10.1.1.x etc..
> que não é um IP valido, certo !?, OK!?
> 
> Bom então no seu ROTEADOR/NAT, vc vai criar um regra para fazer um 
> redirecionamento de porta para a maquina servidora, e nos clientes
vc vai 
> colocar o IP valido do seu ROTEADOR/NAT e não do seu servidor REAL
entendeu 
> ?
> 
> IP.internet 200.x.x.x.x <--> routeador/nat porta 3306(mysql) 
> ip.interno.do.roteador 192.168.0.1 <--> vai para o servidor MySQL
interno no 
> IP:192.168.0.x
> 
> no cliente ip do servidor mysql será: 200.x.x.x.x
> 
> o Exemplo é valido para qualquer servidor só falta saber a porta que
vc vai 
> utilizar ;-)
> 
> 
> 
> Luiz Escobar
> Analista/Desenvolvedor:
> WEB - HTML/JavaScript/PHP/MySQL
> WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase
> DOS - Clipper/Assembler xBase
> LINUX - LAZARUS/Kylix/MySQL;
> http://www.megasistema.com.br
> 
> - Original Message - 
> From: Welson Avelar
> To: Delphi-BR
> Sent: Thursday, August 31, 2006 5:40 PM
> Subject: [delphi-br] Migrar para sistema multicamadas
> 
> 
> Amigos, perdoem o assunto do email, as foi o mais próximo que
encontrei para
> chamar a atenção para a minha questão.
> É o seguinte: temos hoje aqui na empresa um sistema que está em um
cliente 
> com
> filiais espalhadas por Minas.
> Quando foi colocado o sistema, tinha a necessidade que os bancos de
dados de
> todos (matriz e filiais) permanecessem atualizados. Na época (eu não
estava 
> na
> empresa ainda) foi feito o seguinte:
> A filial extrai todos os dados, de todas as tabelas, que foram
alterados e 
> NÃO
> enviados na última exportação e manda para a matriz. A matriz importa e 
> exporta
> alguma coisa que ela tenha feito, no mesmo esquema que as filiais,
ou seja,
> extrai os dados, de todas as tabelas, que foram alterados e NÃO
enviados na
> última exportação.
> Isso nós fazíamos porque o cliente tinha conexão discada e somente a
matriz
> tinha banda larga (ela fica em Belo Horizonte). Recentemente todas as 
> filiais
> colocaram banda larga e eles resolveram centralizar o banco de
dados, porque 
> é
> mais seguro contra invasão (física mesmo, de alguém ir lá e roubar o
BD) e
> roubo dos dados.
> 
> Bom, essa foi a explanação sobre como funciona o sistema hoje. É na 
> filosofia
> de cliente/servidor.
> Pra colocar da forma que o cliente deu idéia, eu coloquei a
possibilidade de
> passarmos pra multicamadas, mas uma dúvida ficou pertinente:
> o cliente disponibilizando um servidor dedicado, como eu conectarei 
> remotamente
> a essa máquina ?! O que eu quero saber é se "basta" passar o IP do
servidor
> para conectar a máquina e 'voi lá', já conectei...
> 
> Acho que falta perguntar mais coisas, mas como é uma coisa absolutamente
> inédita pra mim, nem sei o que perguntar. Por isso que peço a ajuda dos 
> amigos
> da lista, pra poderem me "dar a luz" no problema.
> 
> []s.
> 
> =
> "O que me preocupa não é o grito dos maus. É o silêncio dos bons."
> Martin Luther King.
> =
> Welson de Avelar Soares Filho
> Analista/Programador Delphi
> Gemini Sistemas
> 
> Juiz de Fora - Minas Gerais
> =
> 
> 
> 
> ___
> 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] Scroll em runtime

[Filipe Belchior]

olá galera, paz..

..seguinte, questão dificil, rs.. to precisando rolar
a scrollbar em runtime, de um dbrichedit.. é de um módulo
em touchscreen, então, personalizei os botões de rolagem.

bom.. estou tentando, usar o método ScrollBy, herdado
da classe TWinControl, mas naum funciona da forma que
eu esperava, só vcs vendo pra entenderem..

se puderem, encarissidamente, me ajudarem, agradeço, rs.
:D






-- 
< 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] Barra lateral

[Filipe Xavier Ramalho]

Pessoal,

 

Estou querendo fazer uma barra lateral que se incorpore ao desktop reduzindo
o tamanho da área de trabalho. Semelhante à barra de Gadgets da Microsoft ou
do Google. Alguém sabe por onde devo começar?

 

Obrigado,

 

Filipe


-- 
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.1.405 / Virus Database: 268.11.1/421 - Release Date: 16/8/2006
 


[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: Ponteiro de Interface?? [RESOLVIDO]

[Filipe Belchior]

blz galera, eis o acerto..


PMinhaInterface = ^IMinhaInterface

OutraInterface: IMinhaInterface
 
OutraInterface := PMinhaInterface(ponteiro)^
 
OutraInterface.UmMetodoDaInterface //CORRETO!



..valeu!! fica pra aprendizado!! []s



--- Em delphi-br@yahoogrupos.com.br, "Filipe Belchior"
<[EMAIL PROTECTED]> escreveu
>
> olá..
> 
> ..naum estou conseguindo utilizar um objeto, que passo
> o "ponteiro da sua interface" por parametro, pois é,
> seguinte..
> 
> 
> IMinhaInterface = Interface
> 
> TMinhaClasse = class(TInterfacedObject, IMinhaInterface)
> 
> 
> MinhaInterfaceImplementada: IMinhaClasse
> 
> MinhaInterfaceImplementada := TMinhaClasse.Create
> 
> 
> procedure MeuMetodo( ponteiro: Cardinal )
> 
> 
> MeuMetodo( @MinhaInterfaceImplementada )
> 
> OutraInterface: IMinhaInterface
> 
> OutraInterface := ponteiro^
> 
> OutraInterface.UmMetodoDaInterface //ERRO!
> 
> 
> ..num sei se vcs entenderam, rs.. mas, agradeco quem puder ajudar.
> 
> ..mais uma coisa, vcs provavelmente irao perguntar o pq do parametro
> como ponteiro.. desacoplamento.. por conta disso, eu naum mostrei
> exatamente como faco a passagem de parametro, mas exemplifiquei
> através do "MeuMetodo"
> 
> []s
> 
> FILIPE BELCHIOR
>







-- 
<<<<< 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] Ponteiro de Interface??

[Filipe Belchior]

olá..

..naum estou conseguindo utilizar um objeto, que passo
o "ponteiro da sua interface" por parametro, pois é,
seguinte..


IMinhaInterface = Interface

TMinhaClasse = class(TInterfacedObject, IMinhaInterface)


MinhaInterfaceImplementada: IMinhaClasse

MinhaInterfaceImplementada := TMinhaClasse.Create


procedure MeuMetodo( ponteiro: Cardinal )


MeuMetodo( @MinhaInterfaceImplementada )

OutraInterface: IMinhaInterface

OutraInterface := ponteiro^

OutraInterface.UmMetodoDaInterface //ERRO!


..num sei se vcs entenderam, rs.. mas, agradeco quem puder ajudar.

..mais uma coisa, vcs provavelmente irao perguntar o pq do parametro
como ponteiro.. desacoplamento.. por conta disso, eu naum mostrei
exatamente como faco a passagem de parametro, mas exemplifiquei
através do "MeuMetodo"

[]s

FILIPE BELCHIOR





-- 
<<<<< 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: Não sei como resolver, se com apontadores ou typecast ou sei la oque...

[Filipe Belchior]

kra, rs.. q eu saiba nao! ..mas.. pensei agora, uma outra idéia,
seria usar overload de métodos.. mas ainda naum pensei direito
na idéia.



--- Em delphi-br@yahoogrupos.com.br, "Jônatas Renan" <[EMAIL PROTECTED]>
escreveu
>
> então não é possível eu usar um retorno de função que possa ser
string e ao
> mesmo tempo um filho de Tobject
> 
> 
> 
> Em 11/08/06, Filipe Belchior <[EMAIL PROTECTED]> escreveu:
> >
> > ..OPS, ERREI!!
> >
> > O CERTO É..
> >
> >
> > var
> > valor: IMeusValores;
> > form1: TFORM;
> >
> > begin
> >
> > valor := MinhaFuncao(1);
> > showmessage( valor.Value );
> >
> > {** ..OU..
> > form1 := TForm( MinhaFuncao(1));
> > showmessage( form1.Value );
> > **}
> >
> > end;
> >
> >
> >
> >
> > --- Em delphi-br@yahoogrupos.com.br, "Filipe Belchior"
> > <[EMAIL PROTECTED]> escreveu
> > >
> > > ..ESQUECI O SEGUINTE..
> > >
> > > var
> > > valor: IMeusValores;
> > >
> > > begin
> > >
> > > valor := MinhaFuncao(1).Value;
> > > {** ..OU..
> > > valor := TForm( MinhaFuncao(1).Value );
> > > **}
> > >
> > > end;
> > >
> > >
> > > ..OBS.: SE VC QUER UMA FUNÇÃO QUE RETORNE TIPOS PRIMITIVOS
> > > OU OBJETOS, NÃO ADIANTA, VAI TER QUE USAR TYPECAST!! SENÃO,
> > > VC JÁ QUER DEMAIS, NÉ!! RSRS.. VALEU!!!
> > >
> > >
> > >
> > > --- Em delphi-br@yahoogrupos.com.br, "Filipe Belchior"
> > > <[EMAIL PROTECTED]> escreveu
> > > >
> > > > olá..
> > > >
> > > > ..use interface.. tipo assim..
> > > >
> > > >
> > > >
> > > > IMeusValores = Interface
> > > >   function GetValue: Variant;
> > > >   procedure SetValue(Value: Variant);
> > > >   property Value: Variant read GetValue write SetValue;
> > > > end;
> > > >
> > > > TValue = class(TInterfacedObject, IMeusValores)
> > > > private
> > > >   FValue: Variant;
> > > >   function GetValue: Variant;
> > > >   procedure SetValue(Value: Variant);
> > > > public
> > > >   property Value: Variant read GetValue write SetValue;
> > > > end;
> > > >
> > > > {**
> > > > ..OU, QUALQUER CLASSE, SEM SER "TInterfacedObject",
> > > > DESDE QUE, IMPLEMENTE OS MÉTODOS DE "IInterface",
> > > > E ALÉM DISSO, IMPLEMENTE, NO CASO, "IMeusValores"
> > > > **}
> > > >
> > > > TMeuFormValores = class(TForm, IMeusValores)
> > > > private
> > > >   FValue: Variant;
> > > >   function GetValue: Variant;
> > > >   procedure SetValue(Value: Variant);
> > > > public
> > > >   property Value: Variant read GetValue write SetValue;
> > > > end;
> > > >
> > > >
> > > > implementation
> > > >
> > > >
> > > > function MinhaFuncao(Parametro: ?): IMeusValores;
> > > >  var
> > > >   v: IMeusValores;
> > > > begin
> > > >  v := TValue.Create;
> > > >  {** ..OU..
> > > >  v := TMeuFormValores.Create( Application );
> > > >  **}
> > > >
> > > >  Result := v;
> > > > end;
> > > >
> > > >
> > > >
> > > > ..ESTUDE INTERFACES, É LEGAL! RSRS
> > > >
> > > > []s
> > > >
> > > > FILIPE BELCHIOR
> > > >
> > > >
> > > >
> > > > --- Em delphi-br@yahoogrupos.com.br, "Andre Mesquita"
> > > > <[EMAIL PROTECTED]> escreveu
> > > > >
> > > > > experimente Variant, OLEVariant, e afins...
> > > > >
> > > > >
> > > > > - Original Message -
> > > > > From: "Jônatas Renan" <[EMAIL PROTECTED]>
> > > > > To: 
> > > > > Sent: Friday, August 11, 2006 4:44 PM
> > > > > Subject: [delphi-br] Não sei como resolver, se com
apontadores ou
> > > > typecast
> > > > > ou sei la oque...
> > > > >
> > > > >
> > > > > Preciso que uma função retorne uma variável que varie de
tipo
> > > > >
> > > > > Alguns exemplos d

[delphi-br] Re: Não sei como resolver, se com apontadores ou typecast ou sei la oque...

[Filipe Belchior]

..OPS, ERREI!!

O CERTO É..


 var
 valor: IMeusValores;
 form1: TFORM;
 
 begin
 
 valor := MinhaFuncao(1);
 showmessage( valor.Value );

 {** ..OU..
 form1 := TForm( MinhaFuncao(1));
 showmessage( form1.Value );
 **}
 
 end;



--- Em delphi-br@yahoogrupos.com.br, "Filipe Belchior"
<[EMAIL PROTECTED]> escreveu
>
> ..ESQUECI O SEGUINTE..
> 
> var
> valor: IMeusValores;
> 
> begin
> 
> valor := MinhaFuncao(1).Value;
> {** ..OU..
> valor := TForm( MinhaFuncao(1).Value );
> **}
> 
> end;
> 
> 
> ..OBS.: SE VC QUER UMA FUNÇÃO QUE RETORNE TIPOS PRIMITIVOS
> OU OBJETOS, NÃO ADIANTA, VAI TER QUE USAR TYPECAST!! SENÃO,
> VC JÁ QUER DEMAIS, NÉ!! RSRS.. VALEU!!!
> 
> 
> 
> --- Em delphi-br@yahoogrupos.com.br, "Filipe Belchior"
> <[EMAIL PROTECTED]> escreveu
> >
> > olá..
> > 
> > ..use interface.. tipo assim..
> > 
> > 
> > 
> > IMeusValores = Interface
> >   function GetValue: Variant;
> >   procedure SetValue(Value: Variant);
> >   property Value: Variant read GetValue write SetValue;
> > end;
> > 
> > TValue = class(TInterfacedObject, IMeusValores)
> > private
> >   FValue: Variant;
> >   function GetValue: Variant;
> >   procedure SetValue(Value: Variant);
> > public
> >   property Value: Variant read GetValue write SetValue;
> > end;
> > 
> > {**
> > ..OU, QUALQUER CLASSE, SEM SER "TInterfacedObject",
> > DESDE QUE, IMPLEMENTE OS MÉTODOS DE "IInterface",
> > E ALÉM DISSO, IMPLEMENTE, NO CASO, "IMeusValores"
> > **}
> > 
> > TMeuFormValores = class(TForm, IMeusValores)
> > private
> >   FValue: Variant;
> >   function GetValue: Variant;
> >   procedure SetValue(Value: Variant);
> > public
> >   property Value: Variant read GetValue write SetValue;
> > end;
> > 
> > 
> > implementation
> > 
> > 
> > function MinhaFuncao(Parametro: ?): IMeusValores;
> >  var
> >   v: IMeusValores;
> > begin
> >  v := TValue.Create;
> >  {** ..OU..
> >  v := TMeuFormValores.Create( Application );
> >  **}
> >  
> >  Result := v;
> > end;
> > 
> > 
> > 
> > ..ESTUDE INTERFACES, É LEGAL! RSRS
> > 
> > []s
> > 
> > FILIPE BELCHIOR
> > 
> > 
> > 
> > --- Em delphi-br@yahoogrupos.com.br, "Andre Mesquita"
> > <[EMAIL PROTECTED]> escreveu
> > >
> > > experimente Variant, OLEVariant, e afins...
> > > 
> > > 
> > > - Original Message - 
> > > From: "Jônatas Renan" <[EMAIL PROTECTED]>
> > > To: 
> > > Sent: Friday, August 11, 2006 4:44 PM
> > > Subject: [delphi-br] Não sei como resolver, se com apontadores ou
> > typecast 
> > > ou sei la oque...
> > > 
> > > 
> > > Preciso que uma função retorne uma variável que varie de tipo
> > > 
> > > Alguns exemplos de uso que não devem gerar excessões:
> > > 
> > > showmessage(MinhaFuncao(ParametroParaQueORetornoSejaString));
> > > 
> > > x := 1 + MinhaFuncao(ParametroParaQueORetornoSejaInteiro);
> > > 
> > > Form := MinhaFuncao(ParametroParaQueORetornoSejaForm);
> > > 
> > > é possível em pascal??
> > > 
> > > como fica o escopo da function?
> > > 
> > > Usaria ponteiros???
> > > 
> > > Desde Já grato!!!
> > > 
> > > -- 
> > >=
> > >  Jônatas Renan - Freaker
> > >MSN: [EMAIL PROTECTED]
> > >   Instituto Damone de Softwares
> > >=
> > > 
> > > 
> > > [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] Re: Não sei como resolver, se com apontadores ou typecast ou sei la oque...

[Filipe Belchior]

..ESQUECI O SEGUINTE..

var
valor: IMeusValores;

begin

valor := MinhaFuncao(1).Value;
{** ..OU..
valor := TForm( MinhaFuncao(1).Value );
**}

end;


..OBS.: SE VC QUER UMA FUNÇÃO QUE RETORNE TIPOS PRIMITIVOS
OU OBJETOS, NÃO ADIANTA, VAI TER QUE USAR TYPECAST!! SENÃO,
VC JÁ QUER DEMAIS, NÉ!! RSRS.. VALEU!!!



--- Em delphi-br@yahoogrupos.com.br, "Filipe Belchior"
<[EMAIL PROTECTED]> escreveu
>
> olá..
> 
> ..use interface.. tipo assim..
> 
> 
> 
> IMeusValores = Interface
>   function GetValue: Variant;
>   procedure SetValue(Value: Variant);
>   property Value: Variant read GetValue write SetValue;
> end;
> 
> TValue = class(TInterfacedObject, IMeusValores)
> private
>   FValue: Variant;
>   function GetValue: Variant;
>   procedure SetValue(Value: Variant);
> public
>   property Value: Variant read GetValue write SetValue;
> end;
> 
> {**
> ..OU, QUALQUER CLASSE, SEM SER "TInterfacedObject",
> DESDE QUE, IMPLEMENTE OS MÉTODOS DE "IInterface",
> E ALÉM DISSO, IMPLEMENTE, NO CASO, "IMeusValores"
> **}
> 
> TMeuFormValores = class(TForm, IMeusValores)
> private
>   FValue: Variant;
>   function GetValue: Variant;
>   procedure SetValue(Value: Variant);
> public
>   property Value: Variant read GetValue write SetValue;
> end;
> 
> 
> implementation
> 
> 
> function MinhaFuncao(Parametro: ?): IMeusValores;
>  var
>   v: IMeusValores;
> begin
>  v := TValue.Create;
>  {** ..OU..
>  v := TMeuFormValores.Create( Application );
>  **}
>  
>  Result := v;
> end;
> 
> 
> 
> ..ESTUDE INTERFACES, É LEGAL! RSRS
> 
> []s
> 
> FILIPE BELCHIOR
> 
> 
> 
> --- Em delphi-br@yahoogrupos.com.br, "Andre Mesquita"
> <[EMAIL PROTECTED]> escreveu
> >
> > experimente Variant, OLEVariant, e afins...
> > 
> > 
> > - Original Message - 
> > From: "Jônatas Renan" <[EMAIL PROTECTED]>
> > To: 
> > Sent: Friday, August 11, 2006 4:44 PM
> > Subject: [delphi-br] Não sei como resolver, se com apontadores ou
> typecast 
> > ou sei la oque...
> > 
> > 
> > Preciso que uma função retorne uma variável que varie de tipo
> > 
> > Alguns exemplos de uso que não devem gerar excessões:
> > 
> > showmessage(MinhaFuncao(ParametroParaQueORetornoSejaString));
> > 
> > x := 1 + MinhaFuncao(ParametroParaQueORetornoSejaInteiro);
> > 
> > Form := MinhaFuncao(ParametroParaQueORetornoSejaForm);
> > 
> > é possível em pascal??
> > 
> > como fica o escopo da function?
> > 
> > Usaria ponteiros???
> > 
> > Desde Já grato!!!
> > 
> > -- 
> >=
> >  Jônatas Renan - Freaker
> >MSN: [EMAIL PROTECTED]
> >   Instituto Damone de Softwares
> >=
> > 
> > 
> > [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] Re: Não sei como resolver, se com apontadores ou typecast ou sei la oque...

[Filipe Belchior]

olá..

..use interface.. tipo assim..



IMeusValores = Interface
  function GetValue: Variant;
  procedure SetValue(Value: Variant);
  property Value: Variant read GetValue write SetValue;
end;

TValue = class(TInterfacedObject, IMeusValores)
private
  FValue: Variant;
  function GetValue: Variant;
  procedure SetValue(Value: Variant);
public
  property Value: Variant read GetValue write SetValue;
end;

{**
..OU, QUALQUER CLASSE, SEM SER "TInterfacedObject",
DESDE QUE, IMPLEMENTE OS MÉTODOS DE "IInterface",
E ALÉM DISSO, IMPLEMENTE, NO CASO, "IMeusValores"
**}

TMeuFormValores = class(TForm, IMeusValores)
private
  FValue: Variant;
  function GetValue: Variant;
  procedure SetValue(Value: Variant);
public
  property Value: Variant read GetValue write SetValue;
end;


implementation


function MinhaFuncao(Parametro: ?): IMeusValores;
 var
  v: IMeusValores;
begin
 v := TValue.Create;
 {** ..OU..
 v := TMeuFormValores.Create( Application );
 **}
 
 Result := v;
end;



..ESTUDE INTERFACES, É LEGAL! RSRS

[]s

FILIPE BELCHIOR



--- Em delphi-br@yahoogrupos.com.br, "Andre Mesquita"
<[EMAIL PROTECTED]> escreveu
>
> experimente Variant, OLEVariant, e afins...
> 
> 
> - Original Message - 
> From: "Jônatas Renan" <[EMAIL PROTECTED]>
> To: 
> Sent: Friday, August 11, 2006 4:44 PM
> Subject: [delphi-br] Não sei como resolver, se com apontadores ou
typecast 
> ou sei la oque...
> 
> 
> Preciso que uma função retorne uma variável que varie de tipo
> 
> Alguns exemplos de uso que não devem gerar excessões:
> 
> showmessage(MinhaFuncao(ParametroParaQueORetornoSejaString));
> 
> x := 1 + MinhaFuncao(ParametroParaQueORetornoSejaInteiro);
> 
> Form := MinhaFuncao(ParametroParaQueORetornoSejaForm);
> 
> é possível em pascal??
> 
> como fica o escopo da function?
> 
> Usaria ponteiros???
> 
> Desde Já grato!!!
> 
> -- 
>=
>  Jônatas Renan - Freaker
>MSN: [EMAIL PROTECTED]
>   Instituto Damone de Softwares
>=
> 
> 
> [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] Re: HAUHA.. aonde foi parar a "Project resources" no D7??

[Filipe Belchior]

por favor, galera, uma luz! rs..

..eu já até baixei programa q faz isso, "XN Resource Editor",
mas naum adiantou, o D7 não linka o resource modificado por
este programa.



--- Em delphi-br@yahoogrupos.com.br, "Filipe Belchior"
<[EMAIL PROTECTED]> escreveu
>
> olá pessoal..
> 
> ..vcs num tem idéia d como procurei como um louco, aquela
> janelinha "Project resources", q tinha no D6.. não encontro
> no D7!! até já procurei na net, mas ninguem comentou algo
> a respeito!! to tendo q abrir o .res no D6, salvar e depois
> voltar pro D7, é mole!!?
> 
> []s
> 
> FILIPE BELCHIOR
>






-- 
<<<<< 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] HAUHA.. aonde foi para a "Project resources" no D7??

[Filipe Belchior]

olá pessoal..

..vcs num tem idéia d como procurei como um louco, aquela
janelinha "Project resources", q tinha no D6.. não encontro
no D7!! até já procurei na net, mas ninguem comentou algo
a respeito!! to tendo q abrir o .res no D6, salvar e depois
voltar pro D7, é mole!!?

[]s

FILIPE BELCHIOR





-- 
<<<<< 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: Bug do Delphi 7.0???????????Ninguem sabe???

[Filipe Belchior]

silvano, eu acho q sei o q é.. então, tente o seguinte..


CDSPesquisa.Close;

CDSPesquisa.Params.Clear;

CDSPesquisa.CommandText := 'SELECT * FROM TABELA002 WHERE CAMPO1 
= :PARAMETRO1 AND CAMPO2 = :PARAMETRO2';
CDSPesquisa.ParamByName('PARAMETRO1').AsString := Edit1.Text;
CDSPesquisa.ParamByName('PARAMETRO2').AsString := Edit2.Text;
CDSPesquisa.Open;



--- Em delphi-br@yahoogrupos.com.br, "silvano_monteiro" <[EMAIL PROTECTED]>
escreveu
>
> Ninguem sabe ???
> 
> --- Em delphi-br@yahoogrupos.com.br, "silvano_monteiro" 
> <[EMAIL PROTECTED]> escreveu
> >
> > Bom dia , estou com um grande problema e nao consegui resolver ainda
> > Problema com passagem de parametros , estou usando 
> > D7/DbXpress/ClientDataSet/DataSetProvider/SqlQuery
> > 
> > Minha aplicacao esta em 3 camadas
> > Entao tenho um servidor de aplicacao (Servidor.exe) no qual fica a 
> > SQLQuery/DataSetProvider num DataModule
> > 
> > No meu Programa Cliente (onde fica o ClientDataSet q esta ligado ao 
> > DSProvider do Servidor) preciso utilizar o mesmo CDS varias vezes 
> pra 
> > fazer consulta no BD (em SyBase)
> > 
> > O problema esta acontecendo Aleatoriamente , da a seguinte mensagem 
> > de Erro : "No value for parameter 'Parametro1'" ou "No value for 
> > parameter 'ParametroXXX'" , depende do parametro corrente
> > 
> > 
> > Estou fazendo o seguinte:
> > 
> > CDSPesquisa.Close;
> > CDSPesquisa.CommandText := 'SELECT * FROM TABELA001 WHERE CAMPO1 
> > >= :PARAMETRO1';
> > CDSPesquisa.ParamByName('PARAMETRO1').AsString := Edit1.Text;
> > CDSPesquisa.Open; <-- ***Primeira vez nao da erro
> > 
> > CDSPesquisa.Close;
> > CDSPesquisa.CommandText := 'SELECT * FROM TABELA002 WHERE CAMPO1 
> > >= :PARAMETRO1 AND CAMPO2 = :PARAMETRO2';
> > CDSPesquisa.ParamByName('PARAMETRO1').AsString := Edit1.Text;
> > CDSPesquisa.ParamByName('PARAMETRO2').AsString := Edit2.Text;
> > CDSPesquisa.Open; <-- ***As vezes aparece o ERRO AQUI
> > 
> > "NO VALUE FOR PARAMETER 'XXX'"
> > 
> > Ja utilizei o FetchParams
> > Ja dei create
> > CDSPesquisa.Params.CreateParam(ftString,'PARAMETRO1',ptInput);
> > 
> > 
> > Comentaram q isso poderia ser BUG do Delphi7... eu trabalhava com o 
> > D6 dessa forma e funcionava
> > Alguem sabe qual a forma correta de passar parametros sem da esse 
> > erro?
> > Sabem se é realmente Bug do D7?
> > 
> > Agradeço desde já
> > Silvano Monteiro - Cuiabá-MT
> >
>






-- 
< 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: FastMM4: leak de memória!?

[Filipe Belchior]

não eduardo, pois, se eu comentar esse código, não acontece
nenhum erro!



--- Em delphi-br@yahoogrupos.com.br, "Eduardo Silva dos Santos"
<[EMAIL PROTECTED]> escreveu
>
> Detalhe, eu uso o FastMM4 com Delphi7
> 
> 2006/8/9, Eduardo Silva dos Santos <[EMAIL PROTECTED]>:
> > Eu uso o FastMM4  ha muito tempo e nunca tive problemas, pelo
> > contrário, minhas aplicações ficaram visuvelmente com desepenho
> > melhor...
> >
> > em relação ao leak, usando o Debug na hora que finaliza ele sempre da
> > esse erro mesmo.
> >
> >
> > Em 09/08/06, Walter Alves Chagas Junior<[EMAIL PROTECTED]> escreveu:
> > > Se voces soubessem o que esse tal de FastMM fez no meu delphi semana
> > > retrazada
> > >
> > > NÃO RECOMENDO!
> > >
> > >
> > > []s
> > >
> > > Walter Alves Chagas Junior
> > > Projeto e desenvolvimento de sistemas
> > > Telemont Engenharia de telecomunicações S/A
> > > Belo Horizonte - MG - Brasil
> > > [EMAIL PROTECTED]
> > > Fone: (31) 3389-8215 Fax: (31) 3389-8200
> > >
> > > Parabens Telemont - Somos a 8ª maior empresa do Brasil no
segmento de
> > > construção!!
> > >
> > >
> > > -Mensagem original-
> > > De: delphi-br@yahoogrupos.com.br
[mailto:[EMAIL PROTECTED]
> > > nome de Filipe Belchior
> > > Enviada em: quarta-feira, 9 de agosto de 2006 17:39
> > > Para: delphi-br@yahoogrupos.com.br
> > > Assunto: [delphi-br] FastMM4: leak de memória!?
> > >
> > >
> > > olá..
> > >
> > > Alguém sabe me dizer pq o FastMM4 diz que tem vazamento de memória
> > > no código abaixo:
> > >
> > >
> > > function GetJPEG( ResName: String ): TGraphic;
> > >   var
> > > s: TCustomMemoryStream;
> > > j: TJPEGImage;
> > > begin
> > >   s := TResourceStream.Create( HInstance, ResName, RT_RCDATA );
> > >   try
> > >   try
> > >   j := TJPEGImage.Create;
> > >   j.LoadFromStream( s );
> > >   Result := j;
> > >   finally
> > >   s.Free;
> > > end;
> > >   except
> > >   j.Free;
> > > end;
> > > end;
> > >
> > >
> > > ..eu consigo carregar a imagem sem problemas, mas em mode de
> > > depuração, pelo delphi, após fechar o sistema, aparece a msg
> > > de erro abaixo:
> > >
> > >
> > > "Essa aplicação teve vazamentos de memória. Os vazamentos dos blocos
> > > pequenos são (excluindo os vazamentos esperados registrados por
ponteiro):
> > >
> > > 13 - 20 bytes: TMemoryStream x 1
> > > 21 - 28 bytes: Desconhecida x 1
> > > 61 - 76 bytes: Desconhecida x 1
> > > "
> > >
> > >
> > > ..agradeço a atenção, []s
> > >
> > > FILIPE BELHCIOR
> > >
> > >
> > >
> > >
> > >
> > > --
> > > <<<<< 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 >>>>>
> > >
> > >
> > >
> > > Links do Yahoo! Grupos
> > >
> > >
> > >
> > >
> > >
> > >
> > >
> > >
> > >
> >
> >
> > --
> > Eduardo Silva dos Santos
> > DRD Sistemas.
> > (27) 3218-4201
> > MSN: [EMAIL PROTECTED]
> > Site: http://www.drdsistemas.com/
> >
> 
> 
> -- 
> Eduardo Silva dos Santos
> DRD Sistemas.
> (27) 3218-4201
> MSN: [EMAIL PROTECTED]
> Site: http://www.drdsistemas.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] FastMM4: leak de memória!?

[Filipe Belchior]

olá..

Alguém sabe me dizer pq o FastMM4 diz que tem vazamento de memória
no código abaixo:


function GetJPEG( ResName: String ): TGraphic;
  var
s: TCustomMemoryStream;
j: TJPEGImage;
begin
  s := TResourceStream.Create( HInstance, ResName, RT_RCDATA );
  try
  try
  j := TJPEGImage.Create;
  j.LoadFromStream( s );
  Result := j;
  finally
  s.Free;
end;
  except
  j.Free;
end;
end;


..eu consigo carregar a imagem sem problemas, mas em mode de
depuração, pelo delphi, após fechar o sistema, aparece a msg
de erro abaixo:


"Essa aplicação teve vazamentos de memória. Os vazamentos dos blocos
pequenos são (excluindo os vazamentos esperados registrados por ponteiro):

13 - 20 bytes: TMemoryStream x 1
21 - 28 bytes: Desconhecida x 1
61 - 76 bytes: Desconhecida x 1
"


..agradeço a atenção, []s

FILIPE BELHCIOR





-- 
<<<<< 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] GetClass em modularização

[Filipe Belchior]

olá..

estou fazendo um projeto modularizado, e não estou conseguindo
instanciar um form, pq a função GetClass me retorna "nil"..
..sendo q, o form principal eu consigo instanciar.

fiz conforme o artigo da revista clubedelphi edição 74..
..criei um pacote (pFuncoes) contendo unit com uma função que
"carrega" pacote e instancia um form. Meu projeto ".exe", tem
adicionado a unit deste pacote.

..através do .exe, eu instancio o form principal, que se enconta
num pacote (pPrincipal).. a unit do form principal contem o
código de registrar classe (RegisterClass) em "initialization"..
no projeto pPrincipal.bpl, eu adicionei em "requires" os pacotes
pFuncoes.bpl e pTeclado.bpl.. em pTeclado.bpl, também existe
um form, e com RegisterClass..

..enfim, em pPrincipal, através da função em pFuncoes, eu tento
instanciar o form em pTeclado.. mas apesar de carregar o pacote
(verificado por depuramento), contudo o GetClass retorna "nil".

Já verifiquei se o nome da classe está correto.. o q será q
está faltando!?

agradeço atenção, []s


Filipe Belchior






-- 
<<<<< 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] Como debugar um exe, passando parametros?

[Filipe Xavier Ramalho]

Vá em Run->Parameters, e preencha os parâmetros da aplicação. Depois é só
depurar normalmente com F9.

 

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Fellipe Henrique
Enviada em: sexta-feira, 4 de agosto de 2006 09:35
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Como debugar um exe, passando parametros?

 

Como faço isso? preciso verificar se o parametro passado está certo, do tipo

teste.exe -r

gostaria de verificar se o -r está sendo passado e tals.. mas como debugo no
delphi com parametro?

desde já agradeço

[]s

-- 
_
Fellipe Henrique
[EMAIL PROTECTED]

Borland Developer Studio 2006 Certified

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


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

 


--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.394 / Virus Database: 268.10.5/407 - Release Date: 3/8/2006




[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] Package requer a própria package!!

[Filipe Belchior]

olá, estou escrevendo esse post muito p da vida..
como o assunto já diz, o meu problema é q
a package q estou fazendo só tem uma unit, e
quando compilo, primeiro diz q a package já tem
a tal unit..
"[Error] Package 'pDados' already contains unit 'model'"
..e em seguida..
"[Fatal Error] Required package 'pDados' not found"

..é mole!! fdp.. como pode a 'pDados' requerer a 'pDados'!?






-- 
< 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: Tamanho MDIChild

[Filipe Xavier Ramalho]

Se vc olhar o código da VCL, no Setter da propriedade FormStyle, ele muda a
Position dos forms mesmo, mas o que eu queria saber, é porque ele muda o
tamanho?

 

 

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de ricardodeveloper
Enviada em: segunda-feira, 31 de julho de 2006 14:06
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Re: Tamanho MDIChild

 

por que eu nao sei 

as vezes ele chega ao cumulo de mudar a position de poDesigned pra 
poDefault

eu resolvi isto colocando os tamanhos q eu quero nao minwidth e 
minheight da Constraints dos forms



--- Em delphi-br@yahoogrupos.com.br, "Filipe Xavier Ramalho" 
<[EMAIL PROTECTED]> escreveu
>
> Pessoal, alguém sabe porque os tamanhos dos meus formulários 
MDICHILD sempre
> vem iguais em tempo de execução, ignorando o tamanho configurado em 
Design?
> 
>  
> 
> Obrigado 
> 
> 
> --
> No virus found in this incoming message.
> Checked by AVG Free Edition.
> Version: 7.1.394 / Virus Database: 268.10.5/403 - Release Date: 
28/7/2006
> 
> 
> 
> 
> [As partes desta mensagem que não continham texto foram removidas]
>




 


--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.394 / Virus Database: 268.10.5/403 - Release Date: 28/7/2006




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

[Filipe Xavier Ramalho]

Pessoal, alguém sabe porque os tamanhos dos meus formulários MDICHILD sempre
vem iguais em tempo de execução, ignorando o tamanho configurado em Design?

 

Obrigado 


--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.394 / Virus Database: 268.10.5/403 - Release Date: 28/7/2006




[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] Cor quando receber focus

[Filipe Xavier Ramalho]

Ponha no Private

 

procedure CMFocusChanged(var Msg: TCMFocusChanged); message
CM_FocusChanged;

 

 

 

No implementation:

 

procedure TForm1.CMFocusChanged(var Msg: TCMFocusChanged);

begin

  try

if LastFocus is TDBEdit then

begin

  if LastFocus <> nil then

  begin

TDBEdit(LastFocus).Color := clWindow;

TDBEdit(LastFocus).Font.Color := clWindowText;

  end;

end;

  except

  end;

 

  if Msg.Sender is TDBEdit then

  begin

LastFocus := Msg.Sender;

TDBEdit(Msg.Sender).Color := clHighlight;

TDBEdit(Msg.Sender).Font.Color := clHighlightText;

  end;

end;

 

 

 

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de aoliveira_sys
Enviada em: sábado, 29 de julho de 2006 17:12
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Cor quando receber focus

 

Alguem tem alguma rotina que quando o TEdit ou TComboBox receber o 
foco mudar de cor. Por exemplo, a cor do TEdit é branco quando o TEdit 
receber o foco mudar para a cor amarelo. Precisa ser uma rotina pois 
fazer em cada TEdit vai dar trabalho..rs





 


--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.394 / Virus Database: 268.10.5/403 - Release Date: 28/7/2006




[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: Como Restaurar um form minimizado via Delphi 7

[FILIPE GMAIL]

Use application.restore; que vai abrir de novo.

[]s, Filipe.


 Mensagem: 7
 Data: Sat, 8 Jul 2006 23:12:05 -0300
   De: "Allan" <[EMAIL PROTECTED]>
  Assunto: Fw: Como Restaurar um form minimizado via Delphi 7

PRezados,
estou tentando restaurar um fom q está minimizado, alguém sabe como 
fazer isso?.Estou fazendo uma verificação q ao abrir ele checa se o programa 
já está aberto, então se está aberto e por baixo de outras telas ele 
aparece, até aí tudo bem, mas qdo ele está aberto e MINIMIZADO não estou 
conseguindo fazer ele restaurar e jogar na frente das outras telas, alguém 
sabe como fazer isso???


DEUS É PAI.
[]'s
Allan
msn [EMAIL PROTECTED]
Skype allan_gabriel





-- 
<<<<< 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:Conexão com MySQL em redes!

[FILIPE GMAIL]

Caro Almir, 

Vou dar duas sugestões:

1. Se vc realmente quer manter o executável na máquina em outra localidade, vc 
pode criar uma vpn e utilizar o ip da rede, mas acho que vai ficar lento...

2. Usando o Win2003 Server aí o seu usuário pode fazer uma conexão remota 
executando o programa localmente, dessa forma seus dados estarão locais, o que 
é transmitido é apenas imagem e comandos de teclado e mouse... acho que esta é 
a melhor opção (dentre as opções que não envolvem modificar seu sistema 
obviamente...)

Espero ter ajudado, 

[]s Filipe.


 Mensagem: 22
 Data: Fri, 7 Jul 2006 02:49:20 + (GMT)
   De: almir cruz <[EMAIL PROTECTED]>
  Assunto: Conexão com MySQL em redes!

Olá!
Fiz um sistema em Delphi5xMySQLxZeos e esta funcionando uma beleza um uma 
determinada rede onde trabalho! Essa rede  funciona  como uma intranet no 
Brasil! Então, para tornar um BD unico passei o EXE para outra cidade para que 
essa possa usar do sistema! 
Funcionamento do Sistema: com componente zeos onde ao iniciar ele le um arquivo 
txt onde esta o IP do servidor e abre a conexão. 
O problema esta ai, quando o acesso é de outra cidade ele tranca, não abre 
nada! apenas a janela flash! Será que tem haver com o roteador que separa as 
redes?
Por favor esclareçam a minha duvida!

Grato!
Almir Cruz

[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: RES: [delphi-br] "XSQLDA index out of range"

[Filipe Belchior]

gustavo,

bom, acredito que este erro foi o mesmo que tive aqui,
e fiquei alguns dias quebrando a cabeça pra resolver..
e mesmo usando várias dicas que li (como apagar e recriar
o componente de acesso), mas resolvi da seguinte forma..
percebi que o erro ocorria pq existia comentários na sql,
pois é, comentários.. verifique se existe comentários
na sua SP, e retire-os.


FILIPE BELCHIOR



--- Em delphi-br@yahoogrupos.com.br, Douglas Uesato - Depto de
Informática <[EMAIL PROTECTED]> escreveu
>
>   Isso já aconteceu comigo, contudo foi resolvido atualizando a DLL
> que o meu sistema estava usando para se conectar no banco.
>   Às vezes acontece do gerenciador do banco estar utilizando uma DLL
> própria e atualizada para conectar no banco e sua aplicação estar
utilizando
> uma outra DLL porém desatualizada. Para resolver é só atualizar a
dll que
> fica tudo nos conformes.
> 
> Atenciosamente,
> Douglas Uesato 
> 
> 
> De: delphi-br@yahoogrupos.com.br
[mailto:[EMAIL PROTECTED] Em
> nome de Gustavo Sequeira
> Enviada em: terça-feira, 4 de julho de 2006 07:49
> Para: delphi-br@yahoogrupos.com.br
> Assunto: [delphi-br] "XSQLDA index out of range"
> 
> bom dia pessoal .. estou com um problema quando boto o delphi para
> executa a SP e volta com
> "XSQLDA index out of range"
> 
> Porém quando eu executo direto no banco... funciona
> 
> alguem poderia me dar alguma luz?
> 
> 
> -- 
> Gustavo Sequeira
> Analista de Sistemas
> IEADPE - Igreja Assembléia de Deus / Pernambuco
> "Respondeu-lhe Jesus Cristo: Eu sou o caminho, e a verdade, e a vida;
> ninguém vem ao Pai, senão por mim."
> 
> 
> [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] Recebendo Parâmetros na aplicaçã o.

[FILIPE GMAIL]

Valeu a todos, Valeu Rogério.

[]s, Filipe.
  - Original Message - 
  From: Rogério 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, July 03, 2006 11:58 AM
  Subject: Re: [delphi-br] Recebendo Parâmetros na aplicação.


  ParamStr

  Returns a specified parameter from the command-line.

  Unit

  System

  Category

  command line utilities

  function ParamStr(Index: Integer): string;

  Description

  ParamStr returns the parameter from the command line that corresponds to 
Index, or an empty string if Index is greater than ParamCount. For example, an 
Index value of 2 returns the second command-line parameter.

  ParamStr(0) returns the path and file name of the executing program (for 
example, C:\TEST\MYPROG.EXE).

  Note: Use double quotes to wrap multiple words as one parameter (such as long 
file names containing spaces).


  Abraço,

  Rogério.
- Original Message - 
From: FILIPE GMAIL 
To: delphi-br@yahoogrupos.com.br 
Sent: Monday, July 03, 2006 9:55 AM
Subject: [delphi-br] Recebendo Parâmetros na aplicação.


Bom Dia Pessoal, alguém sabe como posso receber parâmetros passados pela 
linha de comando para  a minha aplicação

ex:

c:\teste.exe -x - 12

onde x e 12 seriam variáveis que eu receberia e trataria dentro do 
executável teste.exe.


Obrigado, Filipe.

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

 

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

   

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



-- 
<<<<< 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] Recebendo Parâmetros na aplicaçã o.

[FILIPE GMAIL]

Muito Obrigado, Valeu André.

[]s, Filipe.
  - Original Message - 
  From: André Moraes - DJSystem 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, July 03, 2006 9:58 AM
  Subject: Re: [delphi-br] Recebendo Parâmetros na aplicação.


  procedure TForm1.FormCreate(Sender: TObject);
  var i:integer;
  for I := 1 to ParamCount do begin
if ParamStr(I) = '/sai' then
Application.Terminate;
  end;

  - Original Message - 
  From: "FILIPE GMAIL" <[EMAIL PROTECTED]>
  To: 
  Sent: Monday, July 03, 2006 9:55 AM
  Subject: [delphi-br] Recebendo Parâmetros na aplicação.


  Bom Dia Pessoal, alguém sabe como posso receber parâmetros passados pela 
  linha de comando para  a minha aplicação

  ex:

  c:\teste.exe -x - 12

  onde x e 12 seriam variáveis que eu receberia e trataria dentro do 
  executável teste.exe.


  Obrigado, Filipe.

[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] [OFF-TOPPIC] Máquina do tempo

[FILIPE GMAIL]

Eu ainda tenho meu TK, acho que funciona... Tenho também o manual do TK85 que 
eu encontri num sebo e do CP500 tb. Esses dias eu comprei um XT (ano 
passado), ainda não deu tempo de tirar o pó e ligar, mas estou ansioso pela 
oportunidade, tb estou atrás de um CP 500, esse era meu sonho de consumo quando 
era criança...

[]s Filipe.
  - Original Message - 
  From: Fernando Nomellini 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, July 03, 2006 9:42 AM
  Subject: Re: [delphi-br] [OFF-TOPPIC] Máquina do tempo


TK 90 x era meu sonho de consumo ! Eu tinha o Tk-85, o tk90 era um super 
micro pra mim, com cores!
Fiz um 'curso de computação' em 1984/1985 (nao lembro exatamente)... fiquei 
meses somente na teoria, fluxograma, lógica, etc, sem mesmo ver um micro na 
frente, e ao mesmo tempo colecionava uma publicação chamada 'micro computador, 
curso básico' que eram dois livros em facículos mensais, que eu tenho até hoje. 
Na última aula a gente teve direito de usar os micros, tudo CP-300. Apesar de 
frustrante, somente ver um micro na última aula, esse curso me ensinou o básico 
que carrego comigo até hoje, e que muita escola que ensina programar deixa de 
lado. Ensinam ao aluno toda a sintaxe da linguagem, mas não o prepara a pensar 
logicamente, em solucionar um problemas. 
- Original Message ----- 
From: FILIPE GMAIL 
To: delphi-br@yahoogrupos.com.br 
Sent: Monday, July 03, 2006 9:26 AM
Subject: Re: [delphi-br] [OFF-TOPPIC] Máquina do tempo


Eu começei com o TK90X - Tinha um Basic, bem básico lá, ehehehheh, depois o 
QBasic que vinha com o DOS (isso nos XT, 386, 486, K6 ), atualmente (desde 
2004) Delphi 3, 5 e 7.


Que saudades das fitas K7

[]s a todos...


[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] Recebendo Parâmetros na aplicação.

[FILIPE GMAIL]

Bom Dia Pessoal, alguém sabe como posso receber parâmetros passados pela linha 
de comando para  a minha aplicação

ex:

c:\teste.exe -x - 12

onde x e 12 seriam variáveis que eu receberia e trataria dentro do executável 
teste.exe.


Obrigado, Filipe.

[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] [OFF-TOPPIC] Máquina do tempo

[FILIPE GMAIL]

Eu começei com o TK90X - Tinha um Basic, bem básico lá, ehehehheh, depois o 
QBasic que vinha com o DOS (isso nos XT, 386, 486, K6 ), atualmente (desde 
2004) Delphi 3, 5 e 7.


Que saudades das fitas K7

[]s a todos...

- Original Message - 
From: Campus
To: delphi-br@yahoogrupos.com.br
Sent: Friday, June 30, 2006 4:15 PM
Subject: Re: [delphi-br] [OFF-TOPPIC] Máquina do tempo


Nossa.

Passei por +/- isso tb, só que antes do XT um itautec (na época da reserva
de mercado), eu trabalhei com um CP500 da prológica, já rodando o CPM,
antecessor do DOS.

Luiz, o micro da Gradiente não se chamava MSX ?

Comecei trabalhando com Basic em CPM, Dbase II e III, C, Cobol,
Clipper...até chegar no Delphi.

E pensar que em Basic e Cobol, o maior programa executável não podia passar
de 64K.

Alguém lembra do exe2bin, um soft que transformava .exe em .com ?

Como o tempo passa, comecei a lidar com computadores em 1983, num sysdata
jr, bons tempos aqueles...


- Original Message - 
From: "Luiz Escobar" <[EMAIL PROTECTED]>
To: 
Sent: Friday, June 30, 2006 2:39 PM
Subject: Re: [delphi-br] [OFF-TOPPIC] Máquina do tempo


> AH, já que é assim... hehehehehehe...
> eu tenho:
> um TK2000 (meu primeiro filho... heheheh) onde fiz um mini-LOTUS123, com
> direito a formulas de + - / * respeitando ( ) hehehehehe  o problema era
as
> fitas K7  jesusis... ehheheh
>
> bom ai começei profissionalmete... num MSN da gradiente... ehehhe.. fiz um
> programa para controlar os clientes de um FOTO 3x4, rapaiz... o duro era
> indexar os clientes...  se me lembro bem, eram 2 caixas de sapato, tamanho
> 40.. ehhehehe  de diskette de 5"1/4  put´s... levava o maior tempão, claro
> eu fiz o programa o dono que indexava
>
> ai fui trabalhar num banco COBRA-210 diskette de 8", maravilha,
> parecisa um gelatina fina... ehhehehe  modem de 2400bps, bps e não Kbps...
> transmitindo pra fortaleza e recebendo, toda noite moviemnto de um
> banco
>
> bom ai veio XP, programando em dBASEIII-PLUS, é olha só que chique...
> PLUS hehehhehehehe
>
> ai 286...  opa... 16Bit´s furacão... hehehhhe, vamos comerçar no Turbo
> Pascal  Clipper SUMMER.
> 386DX  RAHA fera... animal... windows 3.1 WORKGROUP
> hehehe
> 486DX2...  maravilha clipper 5.0. blz... hehehehhehe  windows
> P100  widnows 95  DELPHI 1.0  P133...  P200... P233   ta
> ficando bom
> P233... Windows 98 primeira edição que desgr*ç*  volta pro 95
> Win98SE  a agora sim
> P3.. P4  Delphi 2.0, 3.0, 4.0  e finalmente 6.0 ta ficando
> bom.
>
> agora to pensando em ir pro P4-HT Duo Core... 3.0Ghz  1GB-RAM   Delphi
2006
> vamos ver no que vai dar... hehehehhee
>
> e olha com 36 anos e 16 de experiencia... a coisa mudou MUITO e cada
vez
> mas rápido... imagine daqui mais 16 hehehehhehe
>
> Luiz Escobar
>
>
>
>
> - Original Message - 
> From: Fernando Nomellini
> To: delphi-br@yahoogrupos.com.br
> Sent: Friday, June 30, 2006 9:42 AM
> Subject: Re: [delphi-br] [OFF-TOPPIC] Máquina do tempo
>
>
> Bem, eu ainda tenho em casa meu primeiro computador pessoa. o TK-85.
> (na verdade eu tive algo que lembra um computador chamado 'dactarcomp' ,
era
> um dispositivo com teclado que se encaixava no ATARI (videogame) e o atari
> virava um computador bem vagabundo, com linguagem basic).
>
> O TK-85 era um micro de 8 bit que era ligado na televisão com fantásticos
10
> Kb de ROM e 16 Kb de RAM (isso mesmo KB Quilobytes) com o interpretador
> basic interno. Isso pq  o tk-85 ja era uma evolução do Tk-82 (8 Kb de rom
e
> 2 Kb da RAM).
>
> Disquete ? Nem pensar, gravavamos dados em fita cassete com um gravador
> ligado no micro.
>
> http://cobit.mma.com.br/micros/tk85.htm
>


[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] Arquivos .CHM

[FILIPE GMAIL]

Muito Obrigado Tamara.
  - Original Message - 
  From: Moked - Tamara (Brazil) 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, June 30, 2006 5:12 PM
  Subject: RES: [delphi-br] Arquivos .CHM


  Filipe,

  Nós aqui usamos o poket CHM mas ele ñ é free, porém acredito q a licença 
seja barata, senão teríamos de ter ido atras de um free...rs...

  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 FILIPE 
GMAIL
  Enviada em: sexta-feira, 30 de junho de 2006 17:01
  Para: delphi-br@yahoogrupos.com.br
  Assunto: [delphi-br] Arquivos .CHM


  Boa tarde a todos, 

  Gostaria de saber se alguém já trabalhou com arquivos de ajuda do tipo .chm. 
Tenho interesse em criar arquivos desse tipo. Existe algum editor para isso? Dá 
para fazer direto do Delphi ou preciso de algo externo, no Delphi não achei 
nada.

  Obrigado.

  Filipe. 


[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] Caminho de arquivo

[FILIPE GMAIL]

Grava num campo varchar..., captura como string o caminho e grava como varchar, 
só não se esqueça das recomendações que o pessoal deu aqui, até sugiriria que 
vc gravasse o caminho relativo dos arquivos, caso faça uma cópia, ficará mais 
fácil se precisar mudar alguma coisa depois.

[]s Filipe.
  - Original Message - 
  From: marciot2 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, July 03, 2006 12:28 AM
  Subject: [delphi-br] Caminho de arquivo


  Ola pessoal, estou desenvolvendo uma aplicacao, ao inves de usar blob 
  vou gravar somente o caminho para o arquivo, alguem sabe como pode ser 
  feita a gravacao do caminho do arquivo no banco. Obrigado

  delphi 7 + firebird 1.5 + dbexpress


[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] Arquivos .CHM

[FILIPE GMAIL]

Boa tarde a todos, 

Gostaria de saber se alguém já trabalhou com arquivos de ajuda do tipo .chm. 
Tenho interesse em criar arquivos desse tipo. Existe algum editor para isso? Dá 
para fazer direto do Delphi ou preciso de algo externo, no Delphi não achei 
nada.

Obrigado.

Filipe. 

[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] sql: count(*) com group by

[Filipe Belchior]

olá, paz,

essa sql não retorna, necessariamente, o que eu esperava..


select count(*)
from tabela1
group by campo1, campo2


..eu esperava o total de registros da consulta. poderiam me ajudar?


___ 
Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular e 
anti-spam realmente eficaz. 
http://mail.yahoo.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

 

[delphi-br] Re: Interromper execução de Query

[Filipe Belchior]

Dependendo do propósito para qual vc deseja isso,
pode se executar o open numa Thread.

[]s



--- Em delphi-br@yahoogrupos.com.br, "Luiz Henrique Severo"
<[EMAIL PROTECTED]> escreveu
>
> Pessoal,
> 
> Tem alguma maneira de eu interromper a execução de uma query (select
campos
> from tabela) depois de eu ter executado o query.open?
> 
> 
> Obrigado
> Luiz Henrique Severo d Oliveira
> RPG Soluções
> www.rpgsolucoes.com.br
> 
> -- 
> Internal Virus Database is out-of-date.
> Checked by AVG Free Edition.
> Version: 7.1.394 / Virus Database: 268.9.1/369 - Release Date:
19/06/2006
>







-- 
< 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] como imprimir so os dado que estao no formulario

[FILIPE GMAIL]

Na boa cara, aprende a escrever... que desgraça ler isso aí...

boa sorte.
  - Original Message - 
  From: siqueira1978 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, June 22, 2006 9:32 AM
  Subject: [delphi-br] como imprimir so os dado que estao no formulario


  eu sou novo em dlphi e crie um programa muito simples e queria imprimir
  so dado que estao no formulario pois eu baixi o VDOPrint mas no cosigo 
  usar nao sei se poderiam me passar um codogo de exemplo


[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] Thread e Form

[Filipe Belchior]

olá, paz,

tenho um form com um progressbar somente, e no onshow do form,
inicio uma thread que faz alguns processos e atualiza a progressbar
do form, usando a boa prática dentro do Synchronize().

mas o refresh do form, na progressbar, só ocorre se eu usar o
application.processmessage... é assim mesmo? ou esqueci algo?


FILIPE BELCHIOR



___ 
Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular e 
anti-spam realmente eficaz. 
http://mail.yahoo.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

 

[delphi-br] Foco na Aplicação

[Filipe Xavier Ramalho]

Pessoal, alguém sabe como identificar quando a aplicação perde o foco?
(DELPHI 7)

 

Obrigado,

 

Filipe


--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.394 / Virus Database: 268.9.0/368 - Release Date: 16/6/2006




[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] Criar Frame Dinamicamente em Panel.

[FILIPE GMAIL]

Pessoal preciso criar um frame dentro de um panel de forma dinamica. O frame já 
está pornto e preciso criá-lo dentro de um Panel que está em outro form... Como 
faço isso?

Obrigado a todos, Filipe Ferrarini.

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

[Filipe Xavier Ramalho]

Não, a Daruma obriga os desenvolvedores à adquirirem o equipamento. Mas
oferecem vantagens para a compra.

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Delphi - Fórum
Enviada em: terça-feira, 13 de junho de 2006 10:23
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Emulador Impressora

 

Em branco
Caros amigos, alguem poderia me informar se existe um emulador da impressora
fiscal Daruma, assim como existe da Bematech e da Sweda? pois preciso
implantar algumas alteracoes no meu sistema na Daruma mas nao tenho uma
impressora desta, no caso da Bematech foi so instalar o emulador e este
aplicativo fez todo o trabalho da impressora. Se alguem souber agradeco
muito

Atenciosamente
   
William


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

 


--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.394 / Virus Database: 268.8.3/362 - Release Date: 12/6/2006




[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] Botões e icones

[FILIPE GMAIL]

Por favor eu também gostaria dos icones e bitmaps.

[EMAIL PROTECTED]

Obrigado.


  - Original Message - 
  From: Luiz Escobar 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, June 12, 2006 1:41 PM
  Subject: Re: [delphi-br] Botões e icones


  Bom me põe na lista ai...

  Luiz Escobar



  - Original Message - 
  From: Edu Nicácio
  To: delphi-br@yahoogrupos.com.br
  Sent: Saturday, June 10, 2006 10:04 AM
  Subject: Re: [delphi-br] Botões e icones


  Cara, tem uma cacetada aqui no serviço.

  Se quiser, me mande seu email (preferencialmente GMail) para que eu possa te 
  mandar os arquivos.

  Abraços


  


  Eduardo C. Nicácio
  Analista Programador


- Original Message - 
From: Djean Figueira
To: delphi-br@yahoogrupos.com.br
Sent: Friday, June 09, 2006 9:02 PM
Subject: [delphi-br] Botões e icones


Alguem poderia me dizer onde posso baixar uns botões e icones bacanas para
delphi.

-- 
Rodrigo Figueira - Analista Contábil
Homepage: www.figueira.cnt.br
Linux Registred User #404121
MSN: [EMAIL PROTECTED]


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

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



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

<*> 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] Leitura contrária de INI

[FILIPE GMAIL]

Abre como se fosse um arquivo texto e vai lendo linha por linha e passa por uma 
função que acha o = e corta o que tá antes

Abraços, Filipe.
  - Original Message - 
  From: Moked - Tamara (Brazil) 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, June 12, 2006 5:22 PM
  Subject: RES: [delphi-br] Leitura contrária de INI


  Ulisses,

  Não é bem isso q eu preciso o q eu preciso não é pegar o texto de dentro 
dos colchetes[] e sim o q tem antes do sinal de igual até onde andei 
pesquisando, eu conseguiria pegar o texto de dentro dos colchetes atraves de 
uma função como o readstring mas antes do sinal de igual ñ encontrei nd...

  Obrigada pela atenção...

  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 Ulisses
  Enviada em: segunda-feira, 12 de junho de 2006 17:02
  Para: delphi-br@yahoogrupos.com.br
  Assunto: Re: [delphi-br] Leitura contrária de INI


  Boa tarde!

  Tenta localizar o caractere "[", salva o texto que estiver antes do caractere 
"]".

  Só uma idéia. Se encontrar algo melhor, me avisa.

  Boa sorte.

  Ulisses
- Original Message - 
From: Moked - Tamara (Brazil) 
To: delphi-br@yahoogrupos.com.br 
Sent: Monday, June 12, 2006 2:58 PM
Subject: [delphi-br] Leitura contrária de INI




  <http://www.moked.com.br/>   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]
www.moked.com.br <http://www.moked.com.br/> 

Grau de Sigilo:  Confidencial  Reservado  Interno  Amplo 
Nível de Prioridade:  Alto  Médio  Baixo
Destinatário/s: Lista de divulgação 
-
Boa Tarde,

Pessoal, como faço para ler arquivo .INI ao contrario?

Maiores explicações:

Normalmente eu leio o Ini tendo como diretiva o q esta antes do sinal de 
igual:

[Indice]
diretiva=meu texto

Sendo assim, quando eu utilizo o readstring('Indice', 'diretiva', '') meu 
retorno será "meu texto".

Agora o q eu estou precisando:

Eu passando o "meu texto" q ele me retorne a diretiva

Deu para entender

Espero a ajuda de vcs...

Obrigada,



Tamara
A Moked é a Única Empresa do ramo certificada pelo ISO9001:2000

Serviços prestados no Brasil na área de segurança pessoal e empresarial: 
Consultoria e Assessoria | Diagnósticos e Projetos | Curso e Treinamentos | 
Auditoria e Sindicância | Software de Gestão | Help-desk 24hs 

O emitente da mensagem é o responsável por seu conteúdo e divulgação, 
proibindo sua reprodução sem a prévia autorização do mesmo. 
Antes de imprimir pense em nosso compromisso com o Meio Ambiente e o 
comprometimento com os Custo envolvidos! 



[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: Armazenar na Memória RAM

[Filipe Belchior]

use ClientDataSet



--- Em delphi-br@yahoogrupos.com.br, Haylo Silva <[EMAIL PROTECTED]>
escreveu
>
> Olá Felipe,
> 
> No meu caso eu gostaria de transferir os dados de uma tabela para a 
> memória, no qual  essa mesma tabela tem para mais de 2000 registros.
> 
> Grato pela atenção
> 
> Haylo
> 
> 
> 
> Filipe Belchior escreveu:
> > A própria linguagem de programação, através do S.O.
> > faz isso pra vc
> >
> >
> > FILIPE BELCHIOR
> >
> >
> >
> >
> > --- Em delphi-br@yahoogrupos.com.br, Haylo Silva <[EMAIL PROTECTED]>
> > escreveu
> > >
> > > Olá Pessoal !!
> > >
> > > Uma dúvida interessante:
> > >
> > > Preciso realizar uma pesquisa e alguns cálculos de forma extramente
> > > rápida. Uma saída seria carregar todos os dados na memória ram. Como
> > > fazer isso ?
> > >
> > > Abraço a Todos,
> > >
> > > Haylo
> > >
> >
> >
> >
> >
> >
> >
>







-- 
<<<<< 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] delete em Clientdataset

[Filipe Belchior]

bom, ok walter.. mas agora me veio outra duvida, rs..
eu consigo saber algo como um rowsaffected, por IBX ou CDS?



--- Em delphi-br@yahoogrupos.com.br, Walter Alves Chagas Junior
<[EMAIL PROTECTED]> escreveu
>
> Acho que voce vai ter que fazer a ligação na mão. Já tive que fazer
isto uma
> vez a muito tempo atrás quando eu mexia com programação para WEB.
Quando eu
> trabalhava com programação para Palm também tinha disto uma vez que
tabelas
> do Palm não trabalham com chaves primárias e nem secundárias. A
amarração
> toda você é que tem que fazer.
> 
> []s
> 
> Walter Alves Chagas Junior
> Projeto e desenvolvimento de sistemas
> Telemont Engenharia de telecomunicações S/A
> Belo Horizonte - MG - Brasil
> [EMAIL PROTECTED]
> Fone: (31) 3389-8215 Fax: (31) 3389-8200
> 
> 
> -Mensagem original-
> De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
> nome de Filipe Belchior
> Enviada em: sexta-feira, 9 de junho de 2006 12:10
> Para: delphi-br@yahoogrupos.com.br
> Assunto: [delphi-br] delete em Clientdataset
> 
> 
> olá pessoal,
> 
> Gostaria de saber como proceder para deletar registros
> numa tabela na seguinte situação..
> A tabela não tem PK (é eu sei, errado), e ainda por cima
> aconteceu redundância de registros, eis aí a merda!
> Não sei como eliminar essas redundacias pelo CDS, pois
> acho que os UpdateMode e ProviderFlags não irão
> resolver isso.
> 
> 
> 
> FILIPE BELCHIOR
> 
>   
> 
>   
>   
> ___ 
> Yahoo! doce lar. Faça do Yahoo! sua homepage. 
> http://br.yahoo.com/homepageset.html 
> 
> 
> 
> -- 
> <<<<< 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

 

[delphi-br] Re: Armazenar na Memória RAM

[Filipe Belchior]

A própria linguagem de programação, através do S.O.
faz isso pra vc


FILIPE BELCHIOR




--- Em delphi-br@yahoogrupos.com.br, Haylo Silva <[EMAIL PROTECTED]>
escreveu
>
> Olá Pessoal !!
> 
> Uma dúvida interessante:
> 
> Preciso realizar uma pesquisa e alguns cálculos de forma extramente 
> rápida. Uma saída seria carregar todos os dados na memória ram. Como 
> fazer isso ?
> 
> Abraço a Todos,
> 
> Haylo
>







-- 
<<<<< 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] delete em Clientdataset

[Filipe Belchior]

olá pessoal,

Gostaria de saber como proceder para deletar registros
numa tabela na seguinte situação..
A tabela não tem PK (é eu sei, errado), e ainda por cima
aconteceu redundância de registros, eis aí a merda!
Não sei como eliminar essas redundacias pelo CDS, pois
acho que os UpdateMode e ProviderFlags não irão
resolver isso.



FILIPE BELCHIOR





___ 
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] O compilador ignora as linhas de comando.

[FILIPE GMAIL]

Vc poderia mandar o bloco inteiro?

O que vc quer?
  - Original Message - 
  From: delphi6_2005 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, June 08, 2006 6:01 PM
  Subject: [delphi-br] O compilador ignora as linhas de comando.


  Amigos no meu programa as duas linhas dentro do try são ignoradas 
  parece que o compilador se recusa a ler essas linhas eu coloquei um 
  breakpoint e de fato as duas linhas de codigo não são lidas, a execução 
  pula do try para o end; direto.
  Agradeço a ajuda dos amigos.

ndespesa: double;

try
  ndespesa:=7.50;
  nDespesa := StrToFloat('7,50'));
except
  nDespesa := 0;
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

 

Re: [delphi-br] Constante string com +255 caracteres

[FILIPE GMAIL]

Declara como AnsiString ou WideString.

[]s, Filipe.
  - Original Message - 
  From: Álvaro Vieira 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, June 08, 2006 3:40 PM
  Subject: [delphi-br] Constante string com +255 caracteres


  Pessoal,

  Estou tentando declarar uma constante, do tipo string, e recebo a
  mensagem "String literals may have at most 255 elements"... Tem como
  declarar essa constante com mais de 255 caracteres?

  -- 
  Álvaro Vieira
  [EMAIL PROTECTED]
   

  -- 
  <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

[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] Maximizar Programa.

[FILIPE GMAIL]

Use um:

Application.Restore;

antes de mandar maximizar

[]s, Filipe.
  - Original Message - 
  From: Igor Alexandre 
  To: Delphi-Total ; Delphi-Br 
  Sent: Thursday, June 08, 2006 10:19 AM
  Subject: [delphi-br] Maximizar Programa.


 Como consigo maximizar o meu programa caso ele esteje minimizado?

 Estou usando um timer para maxmiza-lo caso ele esteje minimizado, estou
  usando o comando WindowState := wsMaximized; no form principal mas nao
  funciona, alguem sabe como fazer isso?


  -- 



   *Igor Alexandre.*


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

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



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> 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] Crear stored procedure em run time

[FILIPE GMAIL]

Desabilita o ParamCheck que vai funcionar...

[]s Filipe.
  - Original Message - 
  From: Marcos André 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, June 08, 2006 10:37 AM
  Subject: [delphi-br] Crear stored procedure em run time


  Olá pessoal,

  Estou precisando jogar um comando SQL para um TIBQuery, e dar um
  execSQL para ele criar uma stored procedure em run time, mas está dando erro
  e no ibExpert roda, incluse eu peguei o meta data, alguém poderia me ajudar?



  O comando que estou usando é o seguinte:





  CREATE PROCEDURE CONS_A7 (

  PDTINI DATE,

  PDTFIM DATE,

  PISPRIMEIRAVEZ INTEGER)

  AS

  DECLARE VARIABLE VPACIENTE INTEGER;

  DECLARE VARIABLE VPESOPRE DOUBLE PRECISION;

  DECLARE VARIABLE VPESOPOS DOUBLE PRECISION;

  DECLARE VARIABLE VDIAUSO VARCHAR(25);

  DECLARE VARIABLE VPAPOS VARCHAR(15);

  DECLARE VARIABLE VPAPRE VARCHAR(15);

  DECLARE VARIABLE VBID VARCHAR(10);

  DECLARE VARIABLE VDHF TIMESTAMP;

  DECLARE VARIABLE VDHI TIMESTAMP;

  DECLARE VARIABLE VTEMPOHEMODIALISE INTEGER;

  DECLARE VARIABLE VCOD_FMC_REG VARCHAR(6);

  DECLARE VARIABLE VUNIDADE VARCHAR(6);

  DECLARE VARIABLE VDTULTEXAME TIMESTAMP;

  DECLARE VARIABLE VDTULTTRANSF TIMESTAMP;

  DECLARE VARIABLE VTRANSFUNDIDAS DOUBLE PRECISION;

  DECLARE VARIABLE VUNIDADESTRANSFUNDIDAS DOUBLE PRECISION;

  DECLARE VARIABLE VDTULTPRESCRICAO TIMESTAMP;

  DECLARE VARIABLE VPESO DOUBLE PRECISION;

  DECLARE VARIABLE VBANHO_CALCIO DOUBLE PRECISION;

  DECLARE VARIABLE VBANHO_GLICOSE DOUBLE PRECISION;

  DECLARE VARIABLE VDTTMP TIMESTAMP;

  BEGIN

/* Corrigir a tabela de tratamentos */

update tratamentos set papre = '000'||papre where papre like '/___';

update tratamentos set papre = papre||'000' where papre like '___/';



/* EXCLUINDO REGISTROS ANTERIORES */

DELETE FROM tmp_consulta;



FOR select Paciente, Unidade

  from Pacientes

 where (((DataAlta is null) AND (:pisPrimeiraVez = 0))

or ((DataAlta BETWEEN :pDtIni AND :pDtFim ) AND (:pisPrimeiraVez =
  1)))

into :vPaciente, :vUnidade DO

BEGIN

   /* CLINICAS  */

   select c.cod_fmc_reg from clinicas c where c.unidade = :vUnidade into
  :vcod_fmc_reg;



   /* TRATAMENTOS */

   select Max(dhi) from Tratamentos where paciente = :vPaciente into
  :vDtTmp;



   select PesoPre, PesoPos, DiaUso, PaPos, PaPre, Bid,

  dhf, dhi, castdhf-dhi)*24)*60+.1)as integer) as
  tempohemodialise

 from Tratamentos

where paciente = :vPaciente and dhi = :vDtTmp

 into :vPesoPre,:vPesoPos,

  :vDiaUso, :vPaPos,

  :vPaPre,  :vBid,

  :vdhf,:vdhi,

  :vTempoHemodialise;



   /* TRANSFUSOES */

   SELECT Max(Data) FROM Transfusoes WHERE paciente = :vPaciente into
  :vDtTmp;



   SELECT Max(Data),

  sum(capacidadebolsa * qtdbolsa) as TRANSFUNDIDAS,

  sum(qtdBolsa * CapacidadeBolsa) as UNIDADESTRANSFUNDIDAS

 FROM Transfusoes

WHERE Data = :vDtTmp and Paciente = :vPaciente

   group by paciente

 INTO :vdtUltTransf, :vTransfundidas, :vUnidadesTransfundidas;



   /* PRESCRICAO */

   SELECT Max(Data) FROM Prescricao where paciente = :vPaciente INTO
  :vDtTmp;



   SELECT Data, Peso, Banho_Calcio, Banho_Glicose

 FROM Prescricao

WHERE Data = :vDtTmp and paciente = :vPaciente

 INTO :vdtUltPrescricao,:vPeso,

  :vBanho_calcio,   :vBanho_glicose;



   /* INSERINDO DADOS NA CONSULTA */

   INSERT INTO  tmp_consulta (

   Paciente,

   PesoPre, PesoPos,

   DiaUso,  PaPos,

   PaPre,   Bid,

   dhf, dhi,

   TempoHemodialise,

   cod_fmc_reg, unidade,

   dtUltExame,

   dtUltTransf, Transfundidas,

   UnidadesTransfundidas,

   dtUltPrescricao,

   Peso,

   Banho_calcio,

   Banho_glicose

 )

 VALUES (

   :vPaciente,

   :vPesoPre, :vPesoPos,

   :vDiaUso,  :vPaPos,

   :vPaPre,   :vBid,

   :vdhf, :vdhi,

   :vTempoHemodialise,

   :vcod_fmc_reg, :vunidade,

   :vdtUltExame,

   :vdtUltTransf, :vTransfundidas,

   :vUnidadesTransfundidas,

   :vdtUltPrescricao,

   :vPeso, :vBanho_calcio,

   :vBanho_glicose

 );

END

SUSPEND;

  END



  Obrigado.



  Um Abraço



____
   /  \ /| |'-.
  .\__/ || |   |
  _ /  `._ \|_|_.-'
  | /  \__.`=._) (_   Marcos André
  |/ ._/  |"""""""""| 
  |'.  `\ | | Analista de Sistema 
  ;""&

[delphi-br] IBQuery DDL

[FILIPE GMAIL]

Estou trabalhando na importação de dados de um banco para outro, porém além de 
transferir os dados o banco que recebe os novos dados precisa ser modificado. 
Porém quando acabo a importação dos dados (DML) e passo para a modificação da 
estrutura (DDL) ocorre um erro dizendo que a transação não está ativa. Eu já 
tentei fechar o banco, forçar o fechament, obviamente abrindo depois e ativando 
as transações. Agora se eu fecho o aplicativo e o inicio novamente e faço 
apenas a modificação na estrutura da tabela funciona perfeitamente.

Ou seja, se eu:
- abrir o programa 
- importar os dados
- fechar o programa
- abrir o programa de novo
- modificar a tabela

tudo funciona, porém se eu fizer isso de uma vez só dá o seguinte erro:


---
Application Error
---
Exception EIBClientError in module Project1.exe at .
Transaction is not active.
---
OK   
---

Será que uma boa alma poderia me ajudar?


Obrigado a todos, Filipe Ferrarini Gevaerd.
(Será que alguém vai ler tudo isso???)

[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] ___Problemas com random...

[FILIPE GMAIL]

Já passei por isso, vou dar uma olhada nos fontes lá em casa amanhã te digo... 
Eu lembro que no QuickBasic (não me matem  rs) tinhamos que utilizar um 
comando: Randomize Timer... antes de usar o random (só antes da primeira vez) 
pq o random é uma função "aleatóra" ela pega a mesma sequencia o que vc precisa 
fazer linkar ela com o clock do computador...

[]s, Filipe.


  - Original Message - 
  From: clodoaldo tonial 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, June 07, 2006 5:44 PM
  Subject: [delphi-br] ___Problemas com random...


  Boa noite pessoal, estou desenvolvendo um joguinho de bingo para jogar em 
rede,  naum estou conseguindo usar o random, pois parece que ele tem um bug 
(delphi 7) que gera sempre a mesma sequência aleatória, (isto é) cada vez que 
abre o prog ele gera sempre a mesma ordem de combinações, algum dos amigos já 
passou por isso ?
  obrigado à todos que puderem ajudar...


  Seja livre - Evite pirataria use software livre - 
  Clodoaldo Tonial - icq:162167716 - msn:[EMAIL PROTECTED]
  __
  Fale com seus amigos  de graça com o novo Yahoo! Messenger 
  http://br.messenger.yahoo.com/ 

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


[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] Como pegar a quantidade de memória q ue o programa ta usando?

[FILIPE GMAIL]

Tenta isso (tem, que usar a unit ShareMem):


procedure Tfm_Principal.Timer1Timer(Sender: TObject);
var
  memoria : THeapStatus;
begin
  sb_MemStatus.Panels[0].Text := 
FormatFloat('0#',memoria.TotalAllocated);
end;

[]s, Filipe Gevaerd.
  - Original Message - 
  From: Ricardo Lima Mariz 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, June 07, 2006 3:22 PM
  Subject: [delphi-br] Como pegar a quantidade de memória que o programa ta 
usando?


  Olá pessoal alguem sabe como consigo pegar a quantidade de memória que minha 
aplicação ta usando.

  sem ser ctrl+alt+del, pretendo mostar isso na barra de status.

  Obrigado.

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

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



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> 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] Quebra de linha QRDBText2

[FILIPE GMAIL]

Arruma o componente do tamanho que vc quer, daí sete as propriedades do 
Componente para:

AutoSize := False;
AutoStretch := True;
WordWrap := True;

Acho que vai fazer o que vc quer...

[]s, Filipe.


  - Original Message - 
  From: André de Araujo Garcia 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, June 07, 2006 10:14 AM
  Subject: [delphi-br] Quebra de linha QRDBText2


  Bom dia,

  Pessoal estou com um uma pequena duvida, tenho um relatorio do QuickRep e 
eu precisava querbrar a linha pois o campo é muito grande, 
  Como eu faço pra quebrar a linha no QRDBText2 


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

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



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> 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: lista de arquivos de uma pasta

[Filipe Belchior]

Anderson, Rubem e André, obrigado,

Usei o 1o exemplo de código enviado pelo anderson,
funcionou. Rubem, sim, eu entendi os métodos usados,
não havia utilizado eles antes.



--- Em delphi-br@yahoogrupos.com.br, André Moraes - DJSystem
<[EMAIL PROTECTED]> escreveu
>
> Abaixo uma dica retirada do arquivo DTDelphi 2.7:
> 
> 840 - Listar Arquivos de Um Diretório
> 
> uma dica sobre como listar qualquer tipo de arquivos de um
diretorio. o toque especial dessa procedure e que ela pode entrar em
todos os diretorios que estão dentro do diretorio inicial, para
procurar arquivos do tipo especificado.
> 
> parametros da procedure:
> 
> diretorioinicial - diretorio que a procedure comeca a sua busca ex:
c:\windows\ ou ainda c:\ mascara - mascara de arquivo ex: *.txt ou
ainda *.* listtotaldir - quando true, ela fornece o caminho completo
recursive - quando true, ativa a busca do arquivo dentro de outros
diretorios, que estao dentro do diretorio inicial
> 
> obs.:O form que ira chamar esta função deve possuir uma variavel
global declarada da sequinte forma
> 
> listtemp2:Tstrings; 
> 
> 
> ele deve ser criada com o comando
> 
> 
> listtemp2 := TstringList.Create;
> 
> 
> depois de chamada a procedure o resultado final estara nesta variavel
> 
> 
> procedure ListarArquivos(diretorioInicial, mascara: string;
listtotaldir: boolean = false; recursive: boolean = true);
> var
>   i: integer;
>   listatemp: TStrings;
>   procedure ListarDiretorios(Folder: string; lista: Tstrings);
>   var
> Rec: TSearchRec;
> i: integer;
> temps: string;
>   begin
> lista.Clear;
> if SysUtils.FindFirst(Folder + '*', faDirectory, Rec) = 0 then
> try
>   repeat
> lista.Add(rec.Name);
>   until SysUtils.FindNext(Rec) <> 0;
> finally
>   if lista.count <> 0 then
>   begin
> // deleta o diretorio ..
> lista.Delete(1);
> // deleta o diretorio .
> lista.Delete(0);
> i := 0;
> //deleta os arquivos isto e fica apenas os diretorios
> if lista.count <> 0 then
> begin
>   repeat
> temps := lista.Strings[i];
> temps := extractfileext(temps);
> if temps <> '' then
>   lista.Delete(i)
> else
>   inc(i);
>   until i >= lista.Count;
> end;
>   end;
> end;
>   end;
> 
>   procedure ListarAtahos(Folder, mask: string; Lista: Tstrings);
>   var
> Rec: TSearchRec;
>   begin
> lista.Clear;
> if SysUtils.FindFirst(Folder + mask, faAnyFile, Rec) = 0 then
> try
>   repeat
> lista.Add(rec.Name);
>   until SysUtils.FindNext(Rec) <> 0;
> finally
>   SysUtils.FindClose(Rec);
> end;
>   end;
> 
>   procedure AddLIstInOther(ListSource, ListDestino: TStrings);
>   var
> f: integer;
>   begin
> for f := 0 to ListSource.Count - 1 do
> begin
>   ListDestino.Add(ListSource.Strings[f]);
> end;
>   end;
> begin
>   listatemp := TStringList.Create;
>   ListarAtahos(diretorioInicial, mascara, listatemp);
>   if listtotaldir = true then
>   begin
> for i := 0 to listatemp.Count - 1 do
> begin
>   listatemp.Strings[i] := diretorioInicial + listatemp.Strings[i];
> end;
>   end;
>   AddLIstInOther(listatemp, listtemp2);
>   if recursive = true then
>   begin
> ListarDiretorios(diretorioInicial, listatemp);
> for i := 0 to listatemp.Count - 1 do
> begin
>   ListarArquivos(diretorioInicial + listatemp.Strings[i] + '\',
mascara, listtotaldir, recursive);
> end;
>   end;
>   listatemp.Free;
> end;
> 
> 
> 
> exemplo:
> coloca-se um listbox, e um button no form.
> depois declara-se a variavel global no form
> ex:
> 
> 
> var
>   Form1: TForm;
>   listtemp2: TStrings;
> 
> 
> 
> e no evento onclick do button a seguinte procedure
> 
> 
> 
> listtemp2 := TStringList.Create;
> ListarArquivos('c:\windows\', '*.exe', true, true);
> listbox1.items := listtemp2;
> listtemp2.free;
>   - Original Message - 
>   From: Rubem Nascimento da Rocha 
>   To: delphi-br@yahoogrupos.com.br 
>   Sent: Wednesday, June 07, 2006 8:31 AM
>   Subject: RE: [delphi-br] lista de arquivos de uma pasta
> 
> 
> 
>   Não existe função pronta para isso. Vc deverá criar uma função
própria 
>   usando as funções FindFirst(), FindNext() e FindClose() da unit
SysUtils. Ao 
>   consultar informações sobre essas funções no help do Delphi,
haverá um link 
>   ilustrando exemplo de como usar ess