Re: [delphi-br] Altura do TListBox

[Mauricio Almeida Filho]

 Acho q vc deve mexer na propriedade Hight de acordo com a qtd q 
adcionar, mas aí vi depender da resolução de tela.

At 14:39 22/10/2004, you wrote:

>Pessoal, tenho um listbox que eu uso para adicionar os meus anexos em um
>programa de e-mail que eu fiz.
>
>O problema é que se eu adicionar mais de um arquivo, o listbox "esconde" os
>outros e exibe do seu lado direito uma pequenina barra de
>
>rolagem (duas setinhas - uma para cima e outra para baixo) para que eu possa
>ver os arquivos que eu adicionei.
>
>O que eu gostaria era de que o listbox ficasse com a altura dos arquivos que
>eu fosse adicionando, para que eu não tenha que ficar
>
>rolando com o mouse para saber o que já foi adicionado. Alguém tem uma idéia
>de como fazer isso ?
>
>  _  __  _
> / )|  |( \
>/ / | Eduardo de Almeida Silva | \ \
>  _( (_ |  _  * [EMAIL PROTECTED]   _  | _) )_
>(((\ \)|_/ )__( \_|(/ /)))
>
>( \_/ /\ \_/ )
>
>  \   /  \   /
>
>   \_/\_/
>
>   /   /\   \
>
>
>---
>Outgoing mail is certified Virus Free.
>Checked by AVG anti-virus system (http://www.grisoft.com).
>Version: 6.0.772 / Virus Database: 519 - Release Date: 01/10/2004
>
>
>[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] ou [EMAIL PROTECTED]
>
>Links do Yahoo! Grupos
>
>
>
>
>


Mauricio Almeida Filho
Diretor de Negócios
MSN : [EMAIL PROTECTED]

UNIT SOFTWARE
Empresa virtual solução real

Atuação : Consultoria e Desenvolvimento de Sistemas
Sistemas Para : Comércio, Escolas, Factorings, Locação, Transportadoras. 
Desenvolvimento de sistemas sob medida - apresente-nos seu problema.

Unit Software
Fone/Fax : (81) 9242-2292
e-Mail: [EMAIL PROTECTED]
Home Page: http://www.unitsoft.com.br


[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] ou [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] Qual tecla foi precionada

[Hudson]

Ola!
Preciso fazer um sistema que diz qual a tecla digitada, e manda para um arquivo txt e 
e-mail???

Grato hudson

[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] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

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

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

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

 

RES: RES: [delphi-br] Patentiar Sistema

[Fabiano]

Prezado Marcelo

Concordo com vc, mas acho que este esquema do click é hoax, pelos menos é o
que eu soube.
O unico problema é que encontrei uma brecha em um tipo de sistema que não
quero divulgar ainda e sei que quando, os outros descobrirem que é fácil de
fazer vão copiar e isso a nível de Brasil, é uma coisinha muito simples que
até hoje não encontrei em sistema nenhum. Ah!!! como eu queria patentear
Abraços,
Fabiano




[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] ou [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] Dúvida sobre CPF

[Fabiano]

Se vc digitar cpf bo google irá descobrir que existem vários sites na net
que crian números de cpf se vc pegar esse número e digitar no site da
receita para uma consulta vai var que não é de ninguém.
Abraços,
Fabiano
  -Mensagem original-
  De: Eduardo Silva ® [mailto:[EMAIL PROTECTED]
  Enviada em: sexta-feira, 22 de outubro de 2004 10:34
  Para: [EMAIL PROTECTED]
  Assunto: [delphi-br] Dúvida sobre CPF


  Galera, se a gente digitar o número 111.111.111-11 de um CPF ele passa
pela
  funçao de validação.

  Duvida: esse número é válido ? Existe alguém que tenha esse CPF ?

  Em caso de ele não ser válido, eu devo tratar isso dentro da minha função
de
  validação ?

   _  __  _
  / )|  |( \
 / / | Eduardo de Almeida Silva | \ \
  _( (_ |  _  * [EMAIL PROTECTED]   _  | _) )_
  (((\ \)|_/ )__( \_|(/ /)))

  ( \_/ /\ \_/ )

  \   /  \   /

\_/\_/

/   /\   \


  ---
  Outgoing mail is certified Virus Free.
  Checked by AVG anti-virus system (http://www.grisoft.com).
  Version: 6.0.772 / Virus Database: 519 - Release Date: 01/10/2004


  [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] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por:








--
  Links do Yahoo! Grupos

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

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

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



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



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

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [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] Imagens no Delphi!!! (Toolbar)

[fafabricioal]

Prezados amigos

O componente Toolbar, da paleta Win32, só aceita arquivos do tipo BMP?

Atenciosamente

Fabricio Alex Santos





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

 

Fw: [delphi-br] Achei isso no Delphi3000

[Gercil Junio]

onde vc pego o delphi 3000 ?
e essa unit funciona ?


- Original Message - 
From: "Walter Alves Chagas Junior" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, October 22, 2004 6:53 PM
Subject: RES: [delphi-br] Achei isso no Delphi3000



Pelo que li, esta unit permite um aplicativo feito no Delphi usar os
protocolosdo Messenger



 []s

 Walter Alves Chagas Junior
 Projeto e desenvolvimento
 Telemont Engenharia
 [EMAIL PROTECTED]
 Fone: (31) 3389-8215 Fax: (31) 3389-8200



> -Mensagem original-
> De: David Leão [mailto:[EMAIL PROTECTED]
> Enviada em: sexta-feira, 22 de outubro de 2004 17:51
> Para: [EMAIL PROTECTED]
> Assunto: Res: [delphi-br] Achei isso no Delphi3000
>
>
>
> Do que se trata??
>
>
>
> uma aplicação parecida com o messenger da microsoft??
>
> []'s
>
>
>
> __
>
> David Leão Alves
>
> Administrador de Banco de Dados
>
> Governo do Estado do Amapá
>
> Secretaria de Estado do Meio Ambiente - SEMA
>
>  Av. Mendonça Furtado, 53 - Centro / Macapá-AP
>
>  212-5318 - 212-5378
>
>  212-5303
>
>  [EMAIL PROTECTED]
>
>  www.sema.ap.gov.br
>
> ---Mensagem original---
>
>
>
> De: [EMAIL PROTECTED]
>
> Data: 10/22/04 17:15:03
>
> Para: '[EMAIL PROTECTED]'
>
> Assunto: [delphi-br] Achei isso no Delphi3000
>
>
>
> This is an implementation of the msn messenger protocol in
> delphi it isnt
>
> complete and in order to build it you will need the WSocket
> package, most of
>
> what is
>
> presented here is a part of the specification (still not
> enough to even make
>
> a stripped down MSN Messenger clone).
>
>
>
> The work you see here has its todos (most due to the fact
> that I am simply
>
> new to sockets programming), this article is based on works
> of venkydude MSN
>
> article and
>
> a old version of KMerlin (an opensource msn messenger clone
> for linux).
>
>
>
> This is the second article I write on Instant Messaging (The
> first one about
>
> the yahoo protocol, something wich I have not been able to
> complete due to
>
> time
>
> constraints (lot of work))
>
>
>
> I am planning in updating this article As Soon As Posible and
> I would like
>
> some help, if you are interested (in helping me) contact me
> at my email
>
> address
>
> ([EMAIL PROTECTED]) with the subject "YahooLib.pas"
> (Without quotes, this
>
> way I know it is about the msn/yahoo protocols)
>
>
>
> So enough chat in here is the code:
>
>
>
> <-CODE
> --
>
> -->
>
>
>
>
>
> {GLOBAL TODO: IMPLEMENT LOCAL TODO's, cleanup, extend}
>
> unit MSNMessenger;
>
>
>
> interface
>
>
>
> uses
>
>   WSocket, MD5, Classes, SysUtils;
>
>
>
> type
>
>   TUserState = (
>
> usOnline,  // you are online
>
> usBusy,// Actually busy
>
> usBRB, // Be Right Back
>
> usAway,// Away
>
> usOnPhone, //On Phone
>
> usLunch,   //Lunch
>
> usHidden,   //Hidden
>
> usOffline  //Offline
>
> );
>
>
>
>   TMSNMessenger = class(TComponent)
>
>   private
>
> FConnected: Boolean;
>
> FUserName: String;
>
> FPassword: String;
>
> FFriendlyUserName: String;
>
> FLog: TStrings;
>
> FFriendlyNameChange: TNotifyEvent;
>
> FState: TUserState;
>
> function GetHost: String;
>
> procedure SetHost(const Value: String);
>
> function GetPort: String;
>
> procedure SetPort(const Value: String);
>
> procedure SetUserName(const Value: String);
>
> procedure SetPassWord(const Value: String);
>
> function GetFriendlyUserName: String;
>
> procedure SetFriendlyUserName(const Value: String);
>
> procedure SetState(const Value: TUserState);
>
>   protected
>
> FSocket: TWSocket;
>
> FTrialID: Integer;
>
>
>
> procedure SendVER;
>
> procedure ReceiveSYN;
>
>
>
> procedure SocketWrite(const AString: String);
>
> procedure LogWrite(const Data: String);
>
> procedure ProcessCommand(const ACommand: String);
>
> procedure SocketDisconnect(Sender: TObject; Error: Word);
>
> procedure SocketDataAvailable(Sender: TObject; Error: Word);
>
> procedure SocketConnect(Sender: TObject; Error: Word);
>
>
>
> procedure TriggerFriendlyNameChange; dynamic;
>
>   public
>
> constructor Create(AOwner: TComponent); override;
>
> destructor Destroy; override;
>
>
>
> procedure Login;
>
> procedure Logoff;
>
>   published
>
> property Host: String read GetHost write SetHost;
>
> property Port: String read GetPort write SetPort;
>
> property UserName: String read FUserName write SetUserName;
>
> property PassWord: String read FPassword write SetPassWord;
>
> property FriendlyUserName: String read GetFriendlyUserName write
>
> SetFriendlyUserName;
>
> property Connected: Boolean read FConnected;
>
> property Log: TStrings read FLog write FLog;
>
> property FriendlyNameChange: TNotifyEvent read
> FFriendlyNameChange write
>
> FFriendlyNameChange;
>
> property Status: TUs

[delphi-br] Componentes Indy 9 para Delphi 6

[Gercil Junio]

Boa noite.
Alguém sabe onde eu baxo os componentes da Indy 9 para delphi 6 ?
Obrigado pela atenção

[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] ou [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] Servidor de Imagens de Webcam via Rede

[Gercil Junio]

Olá pessoal
vocês sabem onde eu acho um sisteminha open source que captura imagens de uma web cam 
e salva as imagens?
normal mesmo!
só para eu saber como capturar as imagens da web cam.
pra salva-las em um banco de dados eu consigo fazer!

se alguém souber eu fico agradecido
funcionamento para Delphi 6

Obrigado!

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



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

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [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] Layout do TECLADO! Outra dúvida

[David Leão]

 Ah, outra dúvida.. essa função eh pra ativar um layout certo?? e a
função para eu verificar qual eh o layout ativo??
realmente eh dessa q eu preciso, verificar o layout ativo..
[]'s
 
__
David Leão Alves
Administrador de Banco de Dados
Governo do Estado do Amapá
Secretaria de Estado do Meio Ambiente - SEMA
 Av. Mendonça Furtado, 53 - Centro / Macapá-AP
 212-5318 - 212-5378
 212-5303
 [EMAIL PROTECTED] 
 www.sema.ap.gov.br 
---Mensagem original---
 
De: [EMAIL PROTECTED]
Data: 10/22/04 17:45:47
Para: [EMAIL PROTECTED]
Assunto: RES: [delphi-br] Layout do TECLADO!
 
Ou isto?
 
Use esta função WinAPI:
ActivateKeyboardLayout(LoadKeyboardLayout('',KLF_ACTIVATE), 0);
Se a função for bem sucedida, a função retornará 0(zero).
Troque o  por um dos numeros da lista abaixo:
 
Arabic (Saudi Arabia)0401
English (United States)  0409
Farsi0429
French (France)  040C
German (Germany) 0407
Italian (Italy)  0410
Spanish (International Sort) 0C0A
Boa sorte e abraços.
José de Moura
  -Mensagem original-
  De: David Leão [mailto:[EMAIL PROTECTED]
  Enviada em: sexta-feira, 22 de outubro de 2004 Junior 05:01:PM
  Para: Delphi - [EMAIL PROTECTED]; [EMAIL PROTECTED];
[EMAIL PROTECTED]; [EMAIL PROTECTED];
[EMAIL PROTECTED]; [EMAIL PROTECTED]
  Assunto: [delphi-br] Layout do TECLADO!
 
 
  Olá amigos,
  Gostaria de saber como capturar as configurações de teclado como layout e
  etc, agradeço quem puder me ajudar..
 
  []'s
 
 
  __
  David Leão Alves
  Administrador de Banco de Dados
  Governo do Estado do Amapá
  Secretaria de Estado do Meio Ambiente - SEMA
  Av. Mendonça Furtado, 53 - Centro / Macapá-AP
  212-5318 - 212-5378
  212-5303
  [EMAIL PROTECTED]
  www.sema.ap.gov.br
 
  [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] ou [EMAIL PROTECTED]
 
 
 
Yahoo! Grupos, um serviço oferecido por:
 
 
 
 
 
 
 

--
  Links do Yahoo! Grupos
 
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
 
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
 
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
 
 
 
[As partes desta mensagem que não continham texto foram removidas]
 
 
 
--
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
 
Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages
 
Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
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] ou [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] Layout do TECLADO!

[David Leão]

José,
Realmente sua ajuda foi de grande importância, e nesse seu segundo email
encontra-se a resposta para a minha dúvida, mas ainda tem uma coisa..
e o resto dos códigos dos layouts dos outros teclados como Portugues brasil,
abnt, abnt2, estados unidos internacional e etc.. os mais comuns.. onde
consigo documentação sobre todos esses códigos de layout?? 
Agradeço a ajudas..
__
David Leão Alves
Administrador de Banco de Dados
Governo do Estado do Amapá
Secretaria de Estado do Meio Ambiente - SEMA
 Av. Mendonça Furtado, 53 - Centro / Macapá-AP
 212-5318 - 212-5378
 212-5303
 [EMAIL PROTECTED] 
 www.sema.ap.gov.br 
---Mensagem original---
 
De: [EMAIL PROTECTED]
Data: 10/22/04 17:45:47
Para: [EMAIL PROTECTED]
Assunto: RES: [delphi-br] Layout do TECLADO!
 
Ou isto?
 
Use esta função WinAPI:
ActivateKeyboardLayout(LoadKeyboardLayout('',KLF_ACTIVATE), 0);
Se a função for bem sucedida, a função retornará 0(zero).
Troque o  por um dos numeros da lista abaixo:
 
Arabic (Saudi Arabia)0401
English (United States)  0409
Farsi0429
French (France)  040C
German (Germany) 0407
Italian (Italy)  0410
Spanish (International Sort) 0C0A
Boa sorte e abraços.
José de Moura
  -Mensagem original-
  De: David Leão [mailto:[EMAIL PROTECTED]
  Enviada em: sexta-feira, 22 de outubro de 2004 Junior 05:01:PM
  Para: Delphi - [EMAIL PROTECTED]; [EMAIL PROTECTED];
[EMAIL PROTECTED]; [EMAIL PROTECTED];
[EMAIL PROTECTED]; [EMAIL PROTECTED]
  Assunto: [delphi-br] Layout do TECLADO!
 
 
  Olá amigos,
  Gostaria de saber como capturar as configurações de teclado como layout e
  etc, agradeço quem puder me ajudar..
 
  []'s
 
 
  __
  David Leão Alves
  Administrador de Banco de Dados
  Governo do Estado do Amapá
  Secretaria de Estado do Meio Ambiente - SEMA
  Av. Mendonça Furtado, 53 - Centro / Macapá-AP
  212-5318 - 212-5378
  212-5303
  [EMAIL PROTECTED]
  www.sema.ap.gov.br
 
  [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] ou [EMAIL PROTECTED]
 
 
 
Yahoo! Grupos, um serviço oferecido por:
 
 
 
 
 
 
 

--
  Links do Yahoo! Grupos
 
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
 
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
 
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
 
 
 
[As partes desta mensagem que não continham texto foram removidas]
 
 
 
--
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
 
Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages
 
Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
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] ou [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] Diferença de Datas QuickReport

[er83pet04]

1- Estou utilizando o código abaixo p/tentar obter a diferença de 
dias entre duas datas. Se as datas forem do mesmo mês dá tudo certo 
mas se forem meses diferentes está dando problema e não consigo 
acertar esse código. Alguém tem alguma sugestão?

var
Year1, Month1, Day1: Word;
Year2, Month2, Day2: Word;
begin   

DecodeDate( qry1DT_SAIDA.Value, Year1, Month1, Day1 );
DecodeDate( qry2DT_ENTRADA.Value, Year2, Month2, Day2 );

qrlDifData.Caption := IntToStr( Day1 - Day2 );


2- Como faço para formatar o modo de exibição de um campo que quero 
exibir como moeda em um componente QRDBText, utilizado no 
QuickReport?
Para um QRLabel fiz o seguinte: 

  Label1.Caption := Format('R$ %8.2f', [Variavel1]);   RESULTADO = 
R$ 21,00

Agora quero formatar os valores de um QRDBText, mas ele não possue 
nenhuma propriedade value e no caption não funciona. Como posso 
fazer isso?

Obrigada





-- 
< 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] ou [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] Layout do TECLADO!

[Junior - UOL]

Ou isto?

Use esta função WinAPI:
ActivateKeyboardLayout(LoadKeyboardLayout('',KLF_ACTIVATE), 0);
Se a função for bem sucedida, a função retornará 0(zero).
Troque o  por um dos numeros da lista abaixo:

Arabic (Saudi Arabia)0401
English (United States)  0409
Farsi0429
French (France)  040C
German (Germany) 0407
Italian (Italy)  0410
Spanish (International Sort) 0C0A
Boa sorte e abraços.
José de Moura
  -Mensagem original-
  De: David Leão [mailto:[EMAIL PROTECTED]
  Enviada em: sexta-feira, 22 de outubro de 2004 Junior 05:01:PM
  Para: Delphi - [EMAIL PROTECTED]; [EMAIL PROTECTED];
[EMAIL PROTECTED]; [EMAIL PROTECTED];
[EMAIL PROTECTED]; [EMAIL PROTECTED]
  Assunto: [delphi-br] Layout do TECLADO!


  Olá amigos,
  Gostaria de saber como capturar as configurações de teclado como layout e
  etc, agradeço quem puder me ajudar..

  []'s


  __
  David Leão Alves
  Administrador de Banco de Dados
  Governo do Estado do Amapá
  Secretaria de Estado do Meio Ambiente - SEMA
  Av. Mendonça Furtado, 53 - Centro / Macapá-AP
  212-5318 - 212-5378
  212-5303
  [EMAIL PROTECTED]
  www.sema.ap.gov.br

  [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] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por:








--
  Links do Yahoo! Grupos

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

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

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



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



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

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [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] Acentuação em Pesquisa!!!

[Felipe Pasqualotto]

Existe uma UDF que faz isso:
udf_CollateBr da tbudf;

Abraços

Felipe


-Mensagem original-
De: Dimas Fernando [mailto:[EMAIL PROTECTED] 
Enviada em: sexta-feira, 22 de outubro de 2004 17:34
Para: [EMAIL PROTECTED]
Assunto: [delphi-br] Acentuação em Pesquisa!!!



Utilizo FireBird 1.0.3.queria poder pesquisar da mesma forma, ou
seja, trazer todos os nomes JOSE...José...JOSÉ..

Mas nao funciona..

Alguem consegiu ??

Ate mais



[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]
ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos




 



---
Incoming mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.779 / Virus Database: 526 - Release Date: 19/10/2004
 

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.779 / Virus Database: 526 - Release Date: 19/10/2004
 



-- 
< 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] ou [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] Layout do TECLADO!

[Junior - UOL]

David, boa tarde!

Vê se isso te ajuda:

VK_LBUTTON ...Botão esquerdo do Mouse
VK_RBUTTON...Botão direito do Mouse
VK_CANCEL.Usado para no processo Control-Break
VK_MBUTTON..Botão do meio do Mouse (Mouse com três botões)
VK_BACK..Tecla BackSpace
VK_TAB..Tecla Tab
VK_CLEAR.Se não me engano é a Tecla Delete
VK_RETURN...Tecla Enter
VK_SHIFTTecla Shift
VK_CONTROL...Tecla Ctrl
VK_MENU...Tecla Alt
VK_PAUSETecla Pause/Break
VK_CAPITALTecla Caps Lock
VK_ESCAPE..Tecla Esc
VK_SPACE.Tecla da Barra de Espaço
VK_PRIOR..Tecla Page Up
VK_NEXT...Tecla Page Down
VK_END..Tecla End
VK_HOME..Tecla Home
VK_LEFTTecla Direcional Esquerda
VK_UP.Tecla Direcional Acima
VK_RIGHT...Tecla Direcional Direita
VK_DOWN..Tecla Direcional Abaixo
VK_SNAPSHOT..Tecla Print Screen
VK_INSERT..Tecla Insert
VK_DELETE...Tecla Delete
VK_0.Tecla numeral 0
VK_1.Tecla numeral 1
VK_2.Tecla numeral 2
VK_3.Tecla numeral 3
VK_4.Tecla numeral 4
VK_5.Tecla numeral 5
VK_6.Tecla numeral 6
VK_7.Tecla numeral 7
VK_8.Tecla numeral 8
VK_9.Tecla numeral 9
VK_A.Tecla literal A
VK_B.Tecla literal B
VK_C.Tecla literal C
VK_D.Tecla literal D
VK_E.Tecla literal E
VK_F.Tecla literal F
VK_G.Tecla literal G
VK_H.Tecla literal H
VK_I.Tecla literal I
VK_J.Tecla literal J
VK_K.Tecla literal K
VK_L.Tecla literal L
VK_M.Tecla literal M
VK_N.Tecla literal N
VK_O.Tecla literal O
VK_P.Tecla literal P
VK_Q.Tecla literal Q
VK_R.Tecla literal R
VK_S.Tecla literal S
VK_T.Tecla literal T
VK_U.Tecla literal U
VK_V.Tecla literal V
VK_W.Tecla literal W
VK_X.Tecla literal X
VK_Y.Tecla literal Y
VK_Z.Tecla literal Z
VK_NUMPAD0Tecla numeral 0 (à direita)
VK_NUMPAD1Tecla numeral 1 (à direita)
VK_NUMPAD2Tecla numeral 2 (à direita)
VK_NUMPAD3Tecla numeral 3 (à direita)
VK_NUMPAD4Tecla numeral 4 (à direita)
VK_NUMPAD5Tecla numeral 5 (à direita)
VK_NUMPAD6Tecla numeral 6 (à direita)
VK_NUMPAD7Tecla numeral 7 (à direita)
VK_NUMPAD8Tecla numeral 8 (à direita)
VK_NUMPAD9Tecla numeral 9 (à direita)
VK_MULTIPLYTecla da Multiplicação (*) - à direita
VK_ADD...Tecla da Soma (+) - à direita
VK_SEPARATOR.Tecla da Vírgula (,) - à direita
VK_SUBTRACTTecla da Subtração (-) - à direita
VK_DECIMAL...Tecla do Ponto (.) - à direita
VK_DIVIDE...Tecla da Divisão (/) - à direita
VK_F1Tecla F1
VK_F2Tecla F2
VK_F3Tecla F3
VK_F4Tecla F4
VK_F5Tecla F5
VK_F6...

[delphi-br] Delphi 8.Net: Que versao do Framework devo usar

[Paulo Sérgio Dias]

Pessoal:

a) Estou aprendendo Delphi 8.Net
b) De uns tempos para ca', ao tentar rodar
algum programa (ASP.NET), comecou
a aparecer a seguinte mensagem:

"Unable to atach to ASP.NET worker process (typically aspnet_wp.exe or w3wp.exe).

c) Suponho que isso tenha algo a ver com as versoes do Framework que
tenho no meu computador, que são as seguintes:

 v1.0.3705
 v1.1.4322
 v2.0.40607


Perguntas:

1) O Delphi 8 funciona com que versão do Framework ?
2) Certa vez, quando aparecia a mensagem de erro acima,
falaram-me que eu deveria entrar na pasta \winnt\microsoft.Net\framework\
e digitar:   aspnet_regiis -i

Mas já tentei com as três versões acima e a mensagem de erro continua.

Alguma dica ?

Grato pela atencao de todos

Paulo



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



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

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [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] Achei isso no Delphi3000

[Walter Alves Chagas Junior]

Pelo que li, esta unit permite um aplicativo feito no Delphi usar os
protocolosdo Messenger

 
 
 []s

 Walter Alves Chagas Junior
 Projeto e desenvolvimento
 Telemont Engenharia 
 [EMAIL PROTECTED]
 Fone: (31) 3389-8215 Fax: (31) 3389-8200
 
 

> -Mensagem original-
> De: David Leão [mailto:[EMAIL PROTECTED]
> Enviada em: sexta-feira, 22 de outubro de 2004 17:51
> Para: [EMAIL PROTECTED]
> Assunto: Res: [delphi-br] Achei isso no Delphi3000
> 
> 
> 
> Do que se trata??
> 
> 
> 
> uma aplicação parecida com o messenger da microsoft??
> 
> []'s 
> 
>  
> 
> __
> 
> David Leão Alves
> 
> Administrador de Banco de Dados
> 
> Governo do Estado do Amapá
> 
> Secretaria de Estado do Meio Ambiente - SEMA
> 
>  Av. Mendonça Furtado, 53 - Centro / Macapá-AP
> 
>  212-5318 - 212-5378
> 
>  212-5303
> 
>  [EMAIL PROTECTED] 
> 
>  www.sema.ap.gov.br 
> 
> ---Mensagem original---
> 
>  
> 
> De: [EMAIL PROTECTED]
> 
> Data: 10/22/04 17:15:03
> 
> Para: '[EMAIL PROTECTED]'
> 
> Assunto: [delphi-br] Achei isso no Delphi3000
> 
>  
> 
> This is an implementation of the msn messenger protocol in 
> delphi it isnt
> 
> complete and in order to build it you will need the WSocket 
> package, most of
> 
> what is
> 
> presented here is a part of the specification (still not 
> enough to even make
> 
> a stripped down MSN Messenger clone).
> 
>  
> 
> The work you see here has its todos (most due to the fact 
> that I am simply
> 
> new to sockets programming), this article is based on works 
> of venkydude MSN
> 
> article and
> 
> a old version of KMerlin (an opensource msn messenger clone 
> for linux).
> 
>  
> 
> This is the second article I write on Instant Messaging (The 
> first one about
> 
> the yahoo protocol, something wich I have not been able to 
> complete due to
> 
> time
> 
> constraints (lot of work))
> 
>  
> 
> I am planning in updating this article As Soon As Posible and 
> I would like
> 
> some help, if you are interested (in helping me) contact me 
> at my email
> 
> address
> 
> ([EMAIL PROTECTED]) with the subject "YahooLib.pas" 
> (Without quotes, this
> 
> way I know it is about the msn/yahoo protocols)
> 
>  
> 
> So enough chat in here is the code:
> 
>  
> 
> <-CODE
> --
> 
> -->
> 
>  
> 
>  
> 
> {GLOBAL TODO: IMPLEMENT LOCAL TODO's, cleanup, extend}
> 
> unit MSNMessenger;
> 
>  
> 
> interface
> 
>  
> 
> uses
> 
>   WSocket, MD5, Classes, SysUtils;
> 
>  
> 
> type
> 
>   TUserState = (
> 
> usOnline,  // you are online
> 
> usBusy,// Actually busy
> 
> usBRB, // Be Right Back
> 
> usAway,// Away
> 
> usOnPhone, //On Phone
> 
> usLunch,   //Lunch
> 
> usHidden,   //Hidden
> 
> usOffline  //Offline
> 
> );
> 
>  
> 
>   TMSNMessenger = class(TComponent)
> 
>   private
> 
> FConnected: Boolean;
> 
> FUserName: String;
> 
> FPassword: String;
> 
> FFriendlyUserName: String;
> 
> FLog: TStrings;
> 
> FFriendlyNameChange: TNotifyEvent;
> 
> FState: TUserState;
> 
> function GetHost: String;
> 
> procedure SetHost(const Value: String);
> 
> function GetPort: String;
> 
> procedure SetPort(const Value: String);
> 
> procedure SetUserName(const Value: String);
> 
> procedure SetPassWord(const Value: String);
> 
> function GetFriendlyUserName: String;
> 
> procedure SetFriendlyUserName(const Value: String);
> 
> procedure SetState(const Value: TUserState);
> 
>   protected
> 
> FSocket: TWSocket;
> 
> FTrialID: Integer;
> 
>  
> 
> procedure SendVER;
> 
> procedure ReceiveSYN;
> 
>  
> 
> procedure SocketWrite(const AString: String);
> 
> procedure LogWrite(const Data: String);
> 
> procedure ProcessCommand(const ACommand: String);
> 
> procedure SocketDisconnect(Sender: TObject; Error: Word);
> 
> procedure SocketDataAvailable(Sender: TObject; Error: Word);
> 
> procedure SocketConnect(Sender: TObject; Error: Word);
> 
>  
> 
> procedure TriggerFriendlyNameChange; dynamic;
> 
>   public
> 
> constructor Create(AOwner: TComponent); override;
> 
> destructor Destroy; override;
> 
>  
> 
> procedure Login;
> 
> procedure Logoff;
> 
>   published
> 
> property Host: String read GetHost write SetHost;
> 
> property Port: String read GetPort write SetPort;
> 
> property UserName: String read FUserName write SetUserName;
> 
> property PassWord: String read FPassword write SetPassWord;
> 
> property FriendlyUserName: String read GetFriendlyUserName write
> 
> SetFriendlyUserName;
> 
> property Connected: Boolean read FConnected;
> 
> property Log: TStrings read FLog write FLog;
> 
> property FriendlyNameChange: TNotifyEvent read 
> FFriendlyNameChange write
> 
> FFriendlyNameChange;
> 
> property Status: TUserState read FState write SetState;
> 
>   end;
> 
>  
> 
> implementation
>

Res: [delphi-br] Achei isso no Delphi3000

[David Leão]

Do que se trata??

uma aplicação parecida com o messenger da microsoft??
[]'s 
 
__
David Leão Alves
Administrador de Banco de Dados
Governo do Estado do Amapá
Secretaria de Estado do Meio Ambiente - SEMA
 Av. Mendonça Furtado, 53 - Centro / Macapá-AP
 212-5318 - 212-5378
 212-5303
 [EMAIL PROTECTED] 
 www.sema.ap.gov.br 
---Mensagem original---
 
De: [EMAIL PROTECTED]
Data: 10/22/04 17:15:03
Para: '[EMAIL PROTECTED]'
Assunto: [delphi-br] Achei isso no Delphi3000
 
This is an implementation of the msn messenger protocol in delphi it isnt
complete and in order to build it you will need the WSocket package, most of
what is
presented here is a part of the specification (still not enough to even make
a stripped down MSN Messenger clone).
 
The work you see here has its todos (most due to the fact that I am simply
new to sockets programming), this article is based on works of venkydude MSN
article and
a old version of KMerlin (an opensource msn messenger clone for linux).
 
This is the second article I write on Instant Messaging (The first one about
the yahoo protocol, something wich I have not been able to complete due to
time
constraints (lot of work))
 
I am planning in updating this article As Soon As Posible and I would like
some help, if you are interested (in helping me) contact me at my email
address
([EMAIL PROTECTED]) with the subject "YahooLib.pas" (Without quotes, this
way I know it is about the msn/yahoo protocols)
 
So enough chat in here is the code:
 
<-CODE--
-->
 
 
{GLOBAL TODO: IMPLEMENT LOCAL TODO's, cleanup, extend}
unit MSNMessenger;
 
interface
 
uses
  WSocket, MD5, Classes, SysUtils;
 
type
  TUserState = (
usOnline,  // you are online
usBusy,// Actually busy
usBRB, // Be Right Back
usAway,// Away
usOnPhone, //On Phone
usLunch,   //Lunch
usHidden,   //Hidden
usOffline  //Offline
);
 
  TMSNMessenger = class(TComponent)
  private
FConnected: Boolean;
FUserName: String;
FPassword: String;
FFriendlyUserName: String;
FLog: TStrings;
FFriendlyNameChange: TNotifyEvent;
FState: TUserState;
function GetHost: String;
procedure SetHost(const Value: String);
function GetPort: String;
procedure SetPort(const Value: String);
procedure SetUserName(const Value: String);
procedure SetPassWord(const Value: String);
function GetFriendlyUserName: String;
procedure SetFriendlyUserName(const Value: String);
procedure SetState(const Value: TUserState);
  protected
FSocket: TWSocket;
FTrialID: Integer;
 
procedure SendVER;
procedure ReceiveSYN;
 
procedure SocketWrite(const AString: String);
procedure LogWrite(const Data: String);
procedure ProcessCommand(const ACommand: String);
procedure SocketDisconnect(Sender: TObject; Error: Word);
procedure SocketDataAvailable(Sender: TObject; Error: Word);
procedure SocketConnect(Sender: TObject; Error: Word);
 
procedure TriggerFriendlyNameChange; dynamic;
  public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
 
procedure Login;
procedure Logoff;
  published
property Host: String read GetHost write SetHost;
property Port: String read GetPort write SetPort;
property UserName: String read FUserName write SetUserName;
property PassWord: String read FPassword write SetPassWord;
property FriendlyUserName: String read GetFriendlyUserName write
SetFriendlyUserName;
property Connected: Boolean read FConnected;
property Log: TStrings read FLog write FLog;
property FriendlyNameChange: TNotifyEvent read FFriendlyNameChange write
FFriendlyNameChange;
property Status: TUserState read FState write SetState;
  end;
 
implementation
 
uses windows;
 
const RealState: array[TUserState] of String =
  ('CHG %d NLN', 'CHG %d BSY', 'CHG %d BRB', 'CHG %d AWY', 'CHG %d PHN',
'CHG %d LUN',
   'CHG %d HDN', 'CHG %d FLN' );
 
type
  CharSet = Set of char;
 
function UTF8ToAnsi(x: string): ansistring;
  { Function that recieves UTF8 string and converts
to ansi string }
var
  i: integer;
  b1, b2: byte;
begin
  Result := x;
  i := 1;
  while i <= Length(Result) do begin
if (ord(Result[i]) and $80) <> 0 then begin
  b1 := ord(Result[i]);
  b2 := ord(Result[i + 1]);
  if (b1 and $F0) <> $C0 then
Result[i] := #128
  else begin
Result[i] := Chr((b1 shl 6) or (b2 and $3F));
Delete(Result, i + 1, 1);
  end;
end;
inc(i);
  end;
end;
 
function AnsiToUtf8(x: ansistring): string;
  { Function that recieves ansi string and converts
to UTF8 string }
var
  i: integer;
  b1, b2: byte;
begin
  Result := x;
  for i := Length(Result) downto 1 do
if Result[i] >= #127 then begin
  b1 := $C0 or (ord(Result[i]) shr 6);
  b2 := $80 or (ord(Result[i]) and $3F);
  Result[i] := chr(b1);

[delphi-br] Achei isso no Delphi3000

[Walter Alves Chagas Junior]

This is an implementation of the msn messenger protocol in delphi it isnt 
complete and in order to build it you will need the WSocket package, most of
what is 
presented here is a part of the specification (still not enough to even make
a stripped down MSN Messenger clone). 

The work you see here has its todos (most due to the fact that I am simply
new to sockets programming), this article is based on works of venkydude MSN
article and 
a old version of KMerlin (an opensource msn messenger clone for linux). 

This is the second article I write on Instant Messaging (The first one about
the yahoo protocol, something wich I have not been able to complete due to
time 
constraints (lot of work)) 

I am planning in updating this article As Soon As Posible and I would like
some help, if you are interested (in helping me) contact me at my email
address 
([EMAIL PROTECTED]) with the subject "YahooLib.pas" (Without quotes, this
way I know it is about the msn/yahoo protocols) 

So enough chat in here is the code: 

<-CODE--
--> 


{GLOBAL TODO: IMPLEMENT LOCAL TODO's, cleanup, extend}
unit MSNMessenger;

interface

uses
  WSocket, MD5, Classes, SysUtils;

type
  TUserState = (
usOnline,  // you are online
usBusy,// Actually busy
usBRB, // Be Right Back
usAway,// Away
usOnPhone, //On Phone
usLunch,   //Lunch
usHidden,   //Hidden
usOffline  //Offline
);

  TMSNMessenger = class(TComponent)
  private
FConnected: Boolean;
FUserName: String;
FPassword: String;
FFriendlyUserName: String;
FLog: TStrings;
FFriendlyNameChange: TNotifyEvent;
FState: TUserState;
function GetHost: String;
procedure SetHost(const Value: String);
function GetPort: String;
procedure SetPort(const Value: String);
procedure SetUserName(const Value: String);
procedure SetPassWord(const Value: String);
function GetFriendlyUserName: String;
procedure SetFriendlyUserName(const Value: String);
procedure SetState(const Value: TUserState);
  protected
FSocket: TWSocket;
FTrialID: Integer;

procedure SendVER;
procedure ReceiveSYN;

procedure SocketWrite(const AString: String);
procedure LogWrite(const Data: String);
procedure ProcessCommand(const ACommand: String);
procedure SocketDisconnect(Sender: TObject; Error: Word);
procedure SocketDataAvailable(Sender: TObject; Error: Word);
procedure SocketConnect(Sender: TObject; Error: Word);

procedure TriggerFriendlyNameChange; dynamic;
  public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;

procedure Login;
procedure Logoff;
  published
property Host: String read GetHost write SetHost;
property Port: String read GetPort write SetPort;
property UserName: String read FUserName write SetUserName;
property PassWord: String read FPassword write SetPassWord;
property FriendlyUserName: String read GetFriendlyUserName write
SetFriendlyUserName;
property Connected: Boolean read FConnected;
property Log: TStrings read FLog write FLog;
property FriendlyNameChange: TNotifyEvent read FFriendlyNameChange write
FFriendlyNameChange;
property Status: TUserState read FState write SetState;
  end;

implementation

uses windows;

const RealState: array[TUserState] of String =
  ('CHG %d NLN', 'CHG %d BSY', 'CHG %d BRB', 'CHG %d AWY', 'CHG %d PHN',
'CHG %d LUN',
   'CHG %d HDN', 'CHG %d FLN' );

type
  CharSet = Set of char;

function UTF8ToAnsi(x: string): ansistring;
  { Function that recieves UTF8 string and converts
to ansi string }
var
  i: integer;
  b1, b2: byte;
begin
  Result := x;
  i := 1;
  while i <= Length(Result) do begin
if (ord(Result[i]) and $80) <> 0 then begin
  b1 := ord(Result[i]);
  b2 := ord(Result[i + 1]);
  if (b1 and $F0) <> $C0 then
Result[i] := #128
  else begin
Result[i] := Chr((b1 shl 6) or (b2 and $3F));
Delete(Result, i + 1, 1);
  end;
end;
inc(i);
  end;
end;

function AnsiToUtf8(x: ansistring): string;
  { Function that recieves ansi string and converts
to UTF8 string }
var
  i: integer;
  b1, b2: byte;
begin
  Result := x;
  for i := Length(Result) downto 1 do
if Result[i] >= #127 then begin
  b1 := $C0 or (ord(Result[i]) shr 6);
  b2 := $80 or (ord(Result[i]) and $3F);
  Result[i] := chr(b1);
  Insert(chr(b2), Result, i + 1);
end;
end;

Function  ExtractWord(N:Integer;S:String;WordDelims:CharSet):String;
Var
  I,J:Word;
  Count:Integer;
  SLen:Integer;
Begin
  Count := 0;
  I := 1;
  Result := '';
  SLen := Length(S);
  While I <= SLen Do Begin
{preskoc oddelovace}
While (I <= SLen) And (S[I] In WordDelims) Do Inc(I);
{neni-li na konci retezce, bude nalezen zacatek slova}
If I <= SLen Then Inc(Count);
J := I;
{a zde je konec slova}
While (J <= SLen) And Not(S[J] In WordDelims

[delphi-br] Acentuação em Pesquisa!!!

[Dimas Fernando]

Utilizo FireBird 1.0.3.queria poder pesquisar da mesma forma, ou seja, trazer 
todos
os nomes JOSE...José...JOSÉ..

Mas nao funciona..

Alguem consegiu ??

Ate mais



[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] ou [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 migrar do delphi 5 para Delphi 7

[Neto]

Amigo,
veja o excelente artigo do Guinter Pauli da ClubeDelphi em
www.clubedelphi.net/edicao36/download36.asp

pra entender o código seria interessante obter a revista de edição 36 que
traz como matéria de capa exatamente o que vc quer.

Sds,

Neto
Masterserv Serviços Ltda.
Brasília/DF
- Original Message -
From: "Vanius Roberto Bittencourt" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, October 22, 2004 1:18 PM
Subject: Re: [delphi-br] Como migrar do delphi 5 para Delphi 7



On Thu, 21 Oct 2004 14:10:28 -, Washington
<[EMAIL PROTECTED]> wrote:
>  Estou querendo migrar alguns componentes desenvolvidos em delphi 5
> para o delphi 7. Ja procurei no Google mas não achei nada que pudesse
> me ajudar.
>   Alguem pode me ajudar...
>
> --

Esta questão já circulou algumas vezes aqui. O principal problema é
não compilar units com as units Editors e DesignIntf, pois pede uma
tal de unit proxies. Isto ocorre pois a partir do D6 algumas units são
específicas para design, e como estas units são da Borland e para o
uso no IDE, vc não tem licença de distribuí-las. Provavelmente vc vai
ter q transformar uma unit em duas - uma vai conter a procedure
register e mais as propriedades Editors. Esta unit vc vai utilizá-la
para registrar e instalar o componente em uma bpl.

Existe um artigo da Borland sobre o assunto em
http://community.borland.com/article/0,1410,27717,00.html

--
Atenciosamente,

Vanius Roberto Bittencourt


--
< 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] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos











---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.779 / Virus Database: 526 - Release Date: 19/10/2004



-- 
< 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] ou [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] Help em Arrays... à 4 anos que estou neste impasse e não saio !

[Renato Zambon]

> É que preciso fazer alguns algorítimos de estatística e com alta performance que 
> utilizam Matrizes Gigantes 500x500, 1000x1000.. Etc... Fazer isto utilizando Tabelas 
> em BD é a Morte, pois eu preciso dos resultados calculados em um curto espaço de 
> tempo. Por isto utilizo Arrays que é bem mais rápido !!! Mas o ponto negativo é que 
> consome Mem. Ram à "Beça". Tenho que achar uma maneira de trabalhar com um Range 
> Maior. [ ]'s

Não sei se é o caso, mas se suas matrizes forem esparsas, com a maioria dos 
termos nulos, e só uma fração deles com outros valores, vai gastar muito menos
memória se guardar como um vetor que indique linha, coluna e valor. Faz disso
um objeto e pode colocar rotinas como GetV(i,j):real, SetV(i,j,v), AddV(i,j,v),
etc.

O chato disso é que toda hora que for buscar ou atribuir um valor a rotina
tem que buscar na lista os indices (isso pode ser otimizado com ordenação
dela, com um vetor completo de linha atual e auxiliar, etc, conforme o tipo
de cálculos que vc vai fazer depois)

[]s
... http://usuario.sili.com.br/rczambon


-- 
< 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] ou [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] Chat usando Socket

[WELLINGTON]

Douglas,
Primeiramente obrigado pela atenção
Vou lhe explicar em detalhes 
 tenho um aplicativo de chat Servidor e um aplicativo de chat cliente 
 na minha rede local no Servidor de Rede  instalo o Aplicativo de chat Servidor 
 e nas maquinas clientes instalo o Aplicativo de chat Cliente 

 Setando no aplicativo cliente - Rede Local
 no componente TclientSocket
 Porta  : 
 Adress : 192.168.200.100 - IP Servidor Rede Local
 Fazendo desta forma funciona perfeitamente

Agora quando coloco no servidor do cliente que acesso via terminal server 
 instalo o Aplicativo de chat Servidor do cliente

 Setando no aplicativo cliente - na minha Rede Local
 no componente TclientSocket
 Porta  : 
 Adress : 200.000.555.888 - IP do Speed que esta no Servidor do Cliente
 
 Fazendo desta forma não funciona 
 retornando o seguinte "Erro assíncrono de socket 10060"

O que pode estar errado ???

 

 


-Mensagem original-
De: Douglas Poza [mailto:[EMAIL PROTECTED] 
Enviada em: sexta-feira, 22 de outubro de 2004 02:01
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] Chat usando Socket



Wellington, eu fiz algo parecido aqui que funciona na internet, já testei e inclusive 
estou sendo chamado para testar esse programa na rede de uma empresa. Bom, preciso de 
mais detalhes para poder te ajudar.

Até mais!

- Original Message -
From: "WELLINGTON" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, October 20, 2004 1:14 PM
Subject: [delphi-br] Chat usando Socket



Pessoal,
Desenvolvi programa de Chat
usando os componetes ServerSocket, ClientSocket
na rede local funciona normalmente
sendo um programa servidor e um programa cliente
quando coloco na internet não consigo fazer conexão com o servidor de chat retornando 
o seguinte "Erro assíncrono de socket 10060"

Alguém poderia me esclarecer ...


[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] ou [EMAIL 
PROTECTED]

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] ou [EMAIL 
PROTECTED]
 
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] ou [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] PARADOX NO WINDOWS XP EM REDE

[info.suporte]

A/C
EDUARDO SILVA:
Mas quando eu abro aplicação pedem-se os indexes.
Faltam arquivos no Clinet(XP)?




[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] ou [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] Acess Violation ao Fechar o programa

[Evandro Araujo de Abreu]

Desenvovi um sistema e todas as vezes que fechar o sistema..

Aparece Acess Violation apos finalizar o programa

Evandro

[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] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

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

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

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

 

RES: RES: [delphi-br] Acentuação em Pesquisa!!!

[Marcello]

mas isso se eu gravar os dados no banco sem acento Danilo, o que não é meu
caso, eu quero gravar com acento...entendeu?

  _  

De: Danilo Antonio Leite [mailto:[EMAIL PROTECTED] 
Enviada em: sexta-feira, 22 de outubro de 2004 14:50
Para: [EMAIL PROTECTED]
Cc: [EMAIL PROTECTED]
Assunto: Re: RES: [delphi-br] Acentuação em Pesquisa!!!


Eu acho que não precisa remover os acentos no banco, mas somente pesquisar
utilizando a função na hora de comparar os dados. Por exemplo,

Locate('Nome', VarArrayOf([RemoveAcento('José da Silva')]),
[loPartialKey]);



-- 
< 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] ou [EMAIL PROTECTED]




Yahoo! Grupos, um serviço oferecido por:

 
 

 
  
 São Paulo  Rio de Janeiro  Curitiba  Porto Alegre  Belo Horizonte  Brasília


  _  

Links do Yahoo! Grupos


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

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

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




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



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

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] ou [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] Dúvida sobre CPF

[Junior - UOL]

Eduardo boa tarde!

Tente utilizar a função abaixo:

function ValidaCGC(NUM: string): boolean;
var
N1, N2, N3, N4, N5, N6, N7, N8, N9, N10, N11, N12: integer;
D1, D2: integer;
DIGITADO, CALCULADO: string;
begin
NUM:= trim(NUM);
if length(NUM) <> 14 then begin
result:= false;
exit;
end;
N1:=  StrToInt(NUM[1]);
N2:=  StrToInt(NUM[2]);
N3:=  StrToInt(NUM[3]);
N4:=  StrToInt(NUM[4]);
N5:=  StrToInt(NUM[5]);
N6:=  StrToInt(NUM[6]);
N7:=  StrToInt(NUM[7]);
N8:=  StrToInt(NUM[8]);
N9:=  StrToInt(NUM[9]);
N10:= StrToInt(NUM[10]);
N11:= StrToInt(NUM[11]);
N12:= StrToInt(NUM[12]);
D1:= (N12 * 2) + (N11 * 3) + (N10 * 4) + (N9 * 5) + (N8 * 6) + (N7 * 7)
+ (N6 * 8) + (N5 * 9) + (N4 * 2) + (N3 * 3) + (N2 * 4) + (N1 * 5);
D1:= 11 - (D1 mod 11);
if D1 >= 10 then
D1:= 0;
D2:= (D1 * 2) + (N12 * 3) + (N11 * 4) + (N10 * 5) + (N9 * 6) + (N8 * 7)
+ (N7 * 8) + (N6 * 9) + (N5 * 2) + (N4 * 3) + (N3 * 4) + (N2 * 5) + (N1 *
6);
D2:= 11 - (D2 mod 11);
if D2 >= 10 then
D2:= 0;
CALCULADO:= IntToStr(D1) + IntToStr(D2);
DIGITADO:= NUM[13] + NUM[14];
if CALCULADO = DIGITADO then
Result:= true
else
Result:= false;
end;


Pelos testes que fiz, o unico CGC que você terá que fazer tratamento será o
000.000.000-00.

Quaisquer duvidas contate.

Abraços

José de Moura

Ps: Se precisar para o cpf eu tenho a função.



  -Mensagem original-
  De: Eduardo Silva ® [mailto:[EMAIL PROTECTED]
  Enviada em: sexta-feira, 22 de outubro de 2004 Junior 11:34:AM
  Para: [EMAIL PROTECTED]
  Assunto: [delphi-br] Dúvida sobre CPF


  Galera, se a gente digitar o número 111.111.111-11 de um CPF ele passa
pela
  funçao de validação.

  Duvida: esse número é válido ? Existe alguém que tenha esse CPF ?

  Em caso de ele não ser válido, eu devo tratar isso dentro da minha função
de
  validação ?

   _  __  _
  / )|  |( \
 / / | Eduardo de Almeida Silva | \ \
  _( (_ |  _  * [EMAIL PROTECTED]   _  | _) )_
  (((\ \)|_/ )__( \_|(/ /)))

  ( \_/ /\ \_/ )

  \   /  \   /

\_/\_/

/   /\   \


  ---
  Outgoing mail is certified Virus Free.
  Checked by AVG anti-virus system (http://www.grisoft.com).
  Version: 6.0.772 / Virus Database: 519 - Release Date: 01/10/2004


  [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] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por:








--
  Links do Yahoo! Grupos

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

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

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



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



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

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [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] Layout do TECLADO!

[David Leão]

Olá amigos,
Gostaria de saber como capturar as configurações de teclado como layout e
etc, agradeço quem puder me ajudar..
 
[]'s
 
 
__
David Leão Alves
Administrador de Banco de Dados
Governo do Estado do Amapá
Secretaria de Estado do Meio Ambiente - SEMA
 Av. Mendonça Furtado, 53 - Centro / Macapá-AP
 212-5318 - 212-5378
 212-5303
 [EMAIL PROTECTED] 
 www.sema.ap.gov.br 

[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] ou [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] Acentuação em Pesquisa!!!

[Danilo Antonio Leite]

Eu acho que não precisa remover os acentos no banco, mas somente pesquisar
utilizando a função na hora de comparar os dados. Por exemplo,

Locate('Nome', VarArrayOf([RemoveAcento('José da Silva')]),
[loPartialKey]);



-- 
< 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] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

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

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

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

 

Re: [delphi-br] Resumo 5139

[Marcelo Silva]

O que voce quer fazer exatamente ?

Inserir um valor no edit ?
Ou pegar um valor do edit ?

* Voce disse que o erro ocorre quando sai do edit...

Marcelo Silva
Cel. 11 9693-4251
ICQ - 49224093
MSN [EMAIL PROTECTED]

[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] ou [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] Resumo 5139

[Charlles Ferdinand]

Marcelo esta dando a seguinte mensagem quando sai do edit "1.230.25 is not a
valid floating point value"



Charlles Ferdinand
Analista Contábil
Tel.: (22) 2622-9739

-Mensagem original-
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Enviada em: sexta-feira, 22 de outubro de 2004 14:16
Para: [EMAIL PROTECTED]
Assunto: [delphi-br] Resumo 5139



Existem 7 mensagens sobre este tópico.

Tópicos contidos neste resumo:

  1. RES: Help em Arrays... à 4 anos que estou neste impasse e não saio
!
   De: "Rubem Rocha" <[EMAIL PROTECTED]>
  2. Cached update com DbExpress
   De: "Alisson" <[EMAIL PROTECTED]>
  3. Delphi x Firebird HELP
   De: "Mario Scavoni" <[EMAIL PROTECTED]>
  4. Re: Formatar numa Edit
   De: "Marcelo Silva" <[EMAIL PROTECTED]>
  5. Re: único login para duas conexões db2 e sql ?
   De: "Vitor Luiz Redes" <[EMAIL PROTECTED]>
  6. Acentuação em Pesquisa!!!
   De: "Marcello" <[EMAIL PROTECTED]>
  7. Re: Formatar numa Edit
   De: "Marcelo Silva" <[EMAIL PROTECTED]>





 Mensagem: 1
 Data: Fri, 22 Oct 2004 11:13:32 -0400
   De: "Rubem Rocha" <[EMAIL PROTECTED]>
  Assunto: RES: Help em Arrays... à 4 anos que estou neste impasse e não
saio !

Use Clientdatasets em memória. Informe-se a respeito.
[]s

-Mensagem original-
De: Rogério [mailto:[EMAIL PROTECTED]
Enviada em: sexta-feira, 22 de outubro de 2004 10:10
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] Help em Arrays... à 4 anos que estou neste impasse
e não saio !



É que preciso fazer alguns algorítimos de estatística e com alta performance
que utilizam Matrizes Gigantes 500x500, 1000x1000.. Etc... Fazer isto
utilizando Tabelas em BD é a Morte, pois eu preciso dos resultados
calculados em um curto espaço de tempo. Por isto utilizo Arrays que é bem
mais rápido !!! Mas o ponto negativo é que consome Mem. Ram à "Beça". Tenho
que achar uma maneira de trabalhar com um Range Maior. [ ]'s

- Original Message -
From: "Felippe Nagato" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, October 22, 2004 2:51 AM
Subject: Re: [delphi-br] Help em Arrays... à 4 anos que estou neste impasse
e não saio !


>
> O que o amigo quis dizer eh que funciona, porém quando passa de
> 200x200,
dá
> pau.
> Nao sei dizer tb o motivo.
> Mas o que acontece quando vc cria arrays dinamicos no Delphi 5? Não me
> recordo de qualquer problema na criação dos mesmos no Delphi 5. Mas
> nunca cheguei a criar um array tão grande quanto ao seu.
>
> - Original Message -
> From: "Julio Cesar" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Thursday, October 21, 2004 6:19 PM
> Subject: Re: [delphi-br] Help em Arrays... à 4 anos que estou neste
impasse
> e não saio !
>
>
>
> nao me lembro se funciona no delphi 5, mas acredito q sim, certa vez
> eu
fiz
> um tridimensional, mas foi no 6 tenta ai... mas eu tenho quase
> certeza
q
> funcione, pq vi algo parecido no delphi 3
>
>
>
> --
> < 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] ou [EMAIL PROTECTED]
>
> 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]
ou [EMAIL PROTECTED]

Links do Yahoo! Grupos













 Mensagem: 2
 Data: Fri, 22 Oct 2004 12:16:03 -0200
   De: "Alisson" <[EMAIL PROTECTED]>
  Assunto: Cached update com DbExpress

É possível? Como fazer se não existe a propriedade CachedUpdate nos
componentes?






 Mensagem: 3
 Data: Fri, 22 Oct 2004 12:19:47 -0200
   De: "Mario Scavoni" <[EMAIL PROTECTED]>
  Assunto: Delphi x Firebird HELP

Companheiros,

Como copiar os dados de um campo existente para um outro
campo, este último criado dinamicamente, de uma mesma tabela usando query ?

É possivel, via código, alterar um campo de uma tabela que aceite null para
not null ? como?

É possível alterar o nome do campo de uma tabela via código? como?

Delphi 6 + Firebird 1.5

[]'s
Mario

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






 Mensagem: 4
 Data: Fri, 22 Oct 2004 12:38:11 -

RES: [delphi-br] PARADOX NO WINDOWS XP EM REDE

[Eduardo Silva ®]

Roda normalmente.

Só não vou te falar como se faz, porque eu não lembro, mas roda normalmente,
sim.


  -Mensagem original-
  De: info.suporte [mailto:[EMAIL PROTECTED]
  Enviada em: sexta-feira, 22 de outubro de 2004 14:38
  Para: [EMAIL PROTECTED]
  Assunto: [delphi-br] PARADOX NO WINDOWS XP EM REDE


  Boa tarde a todos


  Gostaria de saber se alguem já conseguiu fazer rodar uma aplicação com a
base de dados paradox em REDE.
  A máquina servidora é WINDOWS 98 e a Clint é WINDOWS XP. Aplicação em
Delphi 5 com a base dados PARADOX 7.


  Paulo Fernandes
  Porto Alegre  RS


  [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] ou [EMAIL PROTECTED]



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





--
  Links do Yahoo! Grupos

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

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

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



---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.772 / Virus Database: 519 - Release Date: 01/10/2004


[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] ou [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] PARADOX NO WINDOWS XP EM REDE

[info.suporte]

Boa tarde a todos


Gostaria de saber se alguem já conseguiu fazer rodar uma aplicação com a base de dados 
paradox em REDE.
A máquina servidora é WINDOWS 98 e a Clint é WINDOWS XP. Aplicação em Delphi 5 com a 
base dados PARADOX 7.


Paulo Fernandes
Porto Alegre  RS


[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] ou [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] Colorir uma linha inteira de um DBGrid quando selecionada!

[Gabriel Dimas]

Vai na ospções do DBGrid e mude para true apenas propriedades,
dgMultSelect mas fazendo isto no usuario podera selecionar mais de uma 
linha segurando shift+seta para baixo. todas vezes em q utilizei o 
dbgrid com esta propriedade ativada, sempre trato todas as linha 
selecionadas, se é esta a sua intenção segue abaixo como tratar várias 
linha selecionadas no dbgrid retirada do DTDeplhi:


089 - Gerenciando mais de uma linha selecionada num DBGrid (Multiselect)
O DBGrid tem uma propriedade não documentada chamada SelectedRows 
(Tbookmark). Com ela você pode gerenciar Multiselect da seguinte forma:

var
contador: Integer;
begin
With Dbgrid1 do
Begin
for contador:= 0 to Pred(SelectedRows.Count) do
Begin
Datasource.Dataset.Bookmark:= SelectedRows[contador]; // posiciona nos 
registros selecionados do DBGrid
end;
end;





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



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

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [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] agradou

[ahr]

acrdito que em voce!!!


[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] ou [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] Problemas com Impressão via classe TPrinter

[Alessandro - Dev]

Pessoal,
 
Fiz uma rotina de impressão usando a classe TPrinter.
Localmente ela funciona que é uma beleza, no entanto, ao tentar imprimir
para uma impressora da rede a configuração se perde totalmente e sai tudo
errado.
Ela perde margens e espaçamentos.
 
Detalhe, ocorre o mesmo quando se muda a impressora padrão.
 
Alguém sabe o que devo fazer para que isso não aconteça.
 
Obrigado
 
 
Alessandro


[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] ou [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] Dúvida sobre CPF

[Gabriel Dimas]

tenta assim, verifique se houve 11 ocorrencias do 1º caracter na string, 
se horver cpf inválido!!!  :-)

if Occurs(copy('111.111.111-11',0,1),('111.111.111-11')=11 then
showmessage('inválido')
else ...



-- 
< 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] ou [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] Acentuação em Pesquisa!!!

[jrjuniore]

Faça assim:

Ex:
Query1.sql.add( 'Select * from tabela where  upper(nome) like ' +
upperCase(QuotDStr('%' + edit1.text + '%') ));


Júnior Coelho.
Desenvolvimento de Sistemas
* (11) 3266 - 1286
* (11) 7175 - 1885
* [EMAIL PROTECTED]

-Mensagem original-
De: Marcello [mailto:[EMAIL PROTECTED] 
Enviada em: sexta-feira, 22 de outubro de 2004 15:40
Para: [EMAIL PROTECTED]
Assunto: RES: [delphi-br] Acentuação em Pesquisa!!!


legal danilo, eu já uso essa função, mas acho que vc num entendeu minha
dúvida, quero poder gravar informações no banco e depois efetuar buscas sem
problemas independente de acentos ou não, cito o exemplo que passei
novamente:
 
eu queria dar a liberdade do usuário pesqusar independente de acento por
exemplo, se ele digitasse São Paulo ou Sao Paulo, viria na Busca São Paulo
 
entendeu? mas pra eu fazer essa busca eu teria que ter uma função que
removesse acentos no banco tb.

  _  

De: Danilo Antonio Leite [mailto:[EMAIL PROTECTED] Enviada em:
sexta-feira, 22 de outubro de 2004 13:13
Para: [EMAIL PROTECTED]
Cc: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] Acentuação em Pesquisa!!!


Aí vai uma função que remove acento. Você pode acrescentar os caracteres
esperados e substituir pelos que desejar.
Espero que ajude.

function TFrmPerformanceOper.RemoveAcento(Str:String): String;
Const
ComAcento = 'àâêôûãõáéíóúçüÀ ÔÛÃÕÁÉÍÓÚÇÜ.,;/\()';
SemAcento = 'aaeouaoaeioucuAAEOUAOAEIOUCU1234567';
Var
x : Integer;
Begin
For x := 1 to Length(Str) do
if Pos(Str[x],ComAcento)<>0 Then
Str[x] := SemAcento[Pos(Str[x],ComAcento)];
Result := Str;
end;

Atenciosamente,

Danilo Antônio Leite
Arcadian Tecnologia SA
[EMAIL PROTECTED]
(31)3241-8228 ramal 216

  _  

 
De:  Marcello  [mailto: [EMAIL PROTECTED]
 .com.br] 
Enviada em: sexta-feira, 22 de outubro de 2004 13:13
Para: [EMAIL PROTECTED]
Cc: [EMAIL PROTECTED]
Assunto: Acentuação em Pesquisa!!!




Pessoal, qual a melhor forma de se trabalhar com pesquisas quando os dados
gravados no Banco de Dados estão acentuados? Hoje eu forço os dados a serem
gravados sem acentuação nenhuma e nas pesquisas eu limpo a acentuação antes
de pesquisar. Mas e se eu quisesse salvar os dados com acentuação, eu queria
dar a liberdade do usuário pesqusar independente de acento por exemplo, se
ele digitasse São Paulo ou Sao Paulo, viria na Busca São Paulo. Existe tb o
problema quando é maiúsculo ou minúsculo. Como vcs resolvem esse
problema Existe alguma função par IB que remova acentuação?



[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] ou [EMAIL PROTECTED]
 
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] ou [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] Acentuação em Pesquisa!!!

[Marcello]

legal danilo, eu já uso essa função, mas acho que vc num entendeu minha
dúvida, quero poder gravar informações no banco e depois efetuar buscas sem
problemas independente de acentos ou não, cito o exemplo que passei
novamente:
 
eu queria dar a liberdade do usuário pesqusar independente de acento por
exemplo, se ele digitasse São Paulo ou Sao Paulo, viria na Busca São Paulo
 
entendeu? mas pra eu fazer essa busca eu teria que ter uma função que
removesse acentos no banco tb.

  _  

De: Danilo Antonio Leite [mailto:[EMAIL PROTECTED] 
Enviada em: sexta-feira, 22 de outubro de 2004 13:13
Para: [EMAIL PROTECTED]
Cc: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] Acentuação em Pesquisa!!!


Aí vai uma função que remove acento. Você pode acrescentar os caracteres
esperados e substituir pelos que desejar.
Espero que ajude.

function TFrmPerformanceOper.RemoveAcento(Str:String): String;
Const
ComAcento = 'àâêôûãõáéíóúçüÀ ÔÛÃÕÁÉÍÓÚÇÜ.,;/\()';
SemAcento = 'aaeouaoaeioucuAAEOUAOAEIOUCU1234567';
Var
x : Integer;
Begin
For x := 1 to Length(Str) do
if Pos(Str[x],ComAcento)<>0 Then
Str[x] := SemAcento[Pos(Str[x],ComAcento)];
Result := Str;
end;

Atenciosamente,

Danilo Antônio Leite
Arcadian Tecnologia SA
[EMAIL PROTECTED]
(31)3241-8228 ramal 216

  _  

 
De:  Marcello  [mailto: [EMAIL PROTECTED]
 .com.br] 
Enviada em: sexta-feira, 22 de outubro de 2004 13:13
Para: [EMAIL PROTECTED]
Cc: [EMAIL PROTECTED]
Assunto: Acentuação em Pesquisa!!!




Pessoal, qual a melhor forma de se trabalhar com pesquisas quando os dados
gravados no Banco de Dados estão acentuados? Hoje eu forço os dados a serem
gravados sem acentuação nenhuma e nas pesquisas eu limpo a acentuação antes
de pesquisar. Mas e se eu quisesse salvar os dados com acentuação, eu queria
dar a liberdade do usuário pesqusar independente de acento por exemplo, se
ele digitasse São Paulo ou Sao Paulo, viria na Busca São Paulo. Existe tb o
problema quando é maiúsculo ou minúsculo. Como vcs resolvem esse
problema Existe alguma função par IB que remova acentuação?



[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] ou [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] Delphi7 + DBExpress + SQL Server

[Ricardo Matiello]

Caros Colegas...

Desenvolvo aplicações multicamadas e estou me deparando com o 
seguinte erro quando utilizo o conjunto DBExpress + MS SQL Server:

"Não é possível criar uma nova transação porque a capacidade foi 
excedida."

Este erro ocorre quando eu dou um ApplyUpdates no ClientDataSet.

O estranho, é que o erro não ocorre sempre no mesmo lugar. Já 
configurei o meu objeto COM para aceitar múltiplas transações, 
transações em fila de execução, dentre outras opções, mas continua 
dando o erro.

Detalhe: Quando utilizo o mesmo sistema com FireBird ou com Oracle, 
não ocorre este erro, apenas no SQLServer...

Quem puder ajudar, agradeço!

Sucesso e Abraços a todos..


Ricardo Oliveira Matiello
-
Analista de Sistemas
Borland Delphi Developer 
DataSnap & WebServices
Elotech® Sistemas
Maringá - Pr
www.elotech.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] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

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

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

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

 

Re: [delphi-br] Resumo 5137

[Paulo Amaral]

Olá a Todos.
 
Alguem poderia me ajudar, Necessito de algum livro ou apostila do Delphi 7. Caso 
queria vender, trocar.
Até
 
Paulo Amaral

[EMAIL PROTECTED] wrote:

Existem 25 mensagens sobre este tópico.

Tópicos contidos neste resumo:

1. Sem Eject
De: Licerio Neto 
2. Quick Report
De: "dorivalbaldo" 
3. Re: RES: Internacionalização
De: Mariane Souza 
4. Re: RES: Falha catastrófica com ClientDataSet
De: "Thiago" 
5. Re: Enviar arquivo anexo pelo OutLook
De: "Thiago" 
6. Re: Resumo 5133 é RES: [Off] Algoritmo da Maquina de Turing ou Chomsky
De: Oswaldo Ricardo da Rocha Jr 
7. Re: DBGrid para Tabela
De: "Vitor Luiz Redes" 
8. Re: RES: É Possivel acessar celula especifica de um dgbrid?
De: "Vitor Luiz Redes" 
9. LDAP
De: Cassio Pires 
10. QRComposite Report
De: "er83pet04" 
11. [OF TOPIC] Windows XP
De: Leonardo 
12. Re: RES: Internacionalização
De: Marcelo Almeida 
13. Re: DBGrid para Tabela
De: Marcos Jordao 
14. Re: Help em Arrays... à 4 anos que estou neste impasse e não saio !
De: "Julio Cesar" 
15. Re: Help em Arrays... à 4 anos que estou neste impasse e não saio !
De: Thiago Menon 
16. Re: OFF TOPIC: Atualização de base de dados.
De: "Eduardo Pelizzari de Andrade" 
17. Re: Help em Arrays... à 4 anos que estou neste impasse e não saio !
De: "Julio Cesar" 
18. Re: RES: ADO
De: "stainle2003" 
19. CharTFX X VTChart
De: "Hudson" 
20. Porta Paralela
De: "Douglas Poza" 
21. Re: Download do RXLib Delphi 7???
De: "Luiz Henrique" 
22. Re: Chat usando Socket
De: "Douglas Poza" 
23. Re: Help em Arrays... à 4 anos que estou neste impasse e não saio !
De: "Felippe Nagato" 
24. Re: Relatório Maximizado
De: "Eduardo Galvão" 
25. Re: [OF TOPIC] Windows XP
De: "Tasquim" 





Mensagem: 1 
Data: Wed, 20 Oct 2004 09:16:40 -0300 (ART)
De: Licerio Neto 
Assunto: Sem Eject


Utilizo Delphi 5 com Paradox e QR...

Alguem sabe como fazer a impressao usando QR desativando o eject ao final de cada 
pagina ?

Grato...



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









Mensagem: 2 
Data: Wed, 20 Oct 2004 19:43:11 -
De: "dorivalbaldo" 
Assunto: Quick Report



Boa tarde a todos

Tenho o seguinte problema: Quick Report x Impressao Duplex

Não sei se alguem já teve algum problema parecido: na empresa onde 
trabalho compramos uma impressora q imprime frente e verso (Duplex), 
qq impressao, exceto do sistema, funciona normalmente no modo Duplex, 
mas qdo utilizo o sistema nao consigo.
Será q tem alguma solucao???
Será q é melhor trocar de componente de impressão???

Obrigado











Mensagem: 3 
Data: Wed, 20 Oct 2004 10:03:15 -0300 (ART)
De: Mariane Souza 
Assunto: Re: RES: Internacionalização


Olá Marcelo,

Meu problema é o seguinte. Temos sete clientes que utilizam o mesmo sistema, e três 
linguas sendo que cinco clientes são em Português, um em Inglês e um em Russo. Temos 
sete arquivos, um para cada mina com definições de cada mensagem do sistema em cada 
língua, tornando ineficiente a manutenção desses arquivos. Na verdade, seria uma 
customização... Mas na verdade, eu gostaria de utilizar XML.. poderia me ajudar?

Marcelo Almeida wrote:

Valfrid-Ly Silva Couto wrote:

>Marcelo, eu já gerei isso aqui num programinha besta
>que fiz e não consegui rodar fora da lingua default!!
>Você sabe me passar algum how-to disso na net??
> 
>

Acho que mechi com isto somente no delphi 5.
Até gerei um xml de tradução para portugues, está na área de arquivos da 
lista.

Do que eu me lembro, vc tem que cadastrar corretamente a lingua default 
no version info do programa, e o programa vai rodar na lingua que 
estiver definida no windows.
Não me lembro extamente onde é esta definição de lingua no windows, não 
sei se é no configuração regional ou se é a lingua nas mensagens do 
proprio windows.
Infelizmente estou sem nenhum tempo disponivel para poder olhar isto 
novamente.
Quando eu achar um tempinho, vou dar uma olhada em como isto está no 
delphi 7.

-- 
Marcelo Almeida



-- 
< 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] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos










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






_

[delphi-br] Criar disco de instalação - Programa Delphi

[adrianocancian]

Amigos,

Gostaria de saber se algum de vocês tem um roteiro bem didatico para
criar um instalador com o InstallShield ou outro programa, por 
exemplo o Inno Setup. 

Fiz um programa em delphi, BD Paradox e nesse instalador tem que ir 
junto o BDE.

Conto com a ajuda de vcs. Tenho instalado o Delphi 6 e 7.

Grato,

Adriano





-- 
< 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] ou [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] Acentuação em Pesquisa!!!

[Danilo Antonio Leite]

Segue a função mais enxuta:

function RemoveAcento(Str:String): String;
Const
ComAcento = 'àâêôûãõáéíóúçüÀ ÔÛÃÕÁÉÍÓÚÇÜ';
SemAcento = 'aaeouaoaeioucuAAEOUAOAEIOUCU';
Var
x : Integer;
Begin
For x := 1 to Length(Str) do
if Pos(Str[x],ComAcento)<>0 Then
Str[x] := SemAcento[Pos(Str[x],ComAcento)];
Result := Str;
end;



-- 
< 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] ou [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] Acentuação em Pesquisa!!!

[Danilo Antonio Leite]

Aí vai uma função que remove acento. Você pode acrescentar os caracteres
esperados e substituir pelos que desejar.
Espero que ajude.

function TFrmPerformanceOper.RemoveAcento(Str:String): String;
Const
ComAcento = 'àâêôûãõáéíóúçüÀ ÔÛÃÕÁÉÍÓÚÇÜ.,;/\()';
SemAcento = 'aaeouaoaeioucuAAEOUAOAEIOUCU1234567';
Var
x : Integer;
Begin
For x := 1 to Length(Str) do
if Pos(Str[x],ComAcento)<>0 Then
Str[x] := SemAcento[Pos(Str[x],ComAcento)];
Result := Str;
end;

Atenciosamente,

Danilo Antônio Leite
Arcadian Tecnologia SA
[EMAIL PROTECTED]
(31)3241-8228 ramal 216



-- 
< 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] ou [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] Help em Arrays... à 4 anos que estou neste impasse e não saio !

[Rubem Rocha]

Pq ñ usa tabelas em memória com TClientDataSet?
[]s

-Mensagem original-
De: Ricardo [mailto:[EMAIL PROTECTED] 
Enviada em: sexta-feira, 22 de outubro de 2004 11:30
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] Help em Arrays... à 4 anos que estou neste impasse e não saio 
!



Array dinamico eh maior comedor de memoria use declaracoes estaticas que mesmo grande 
os arrays usa pouca memoria. .
- Original Message - 
From: "Rogério" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, October 22, 2004 12:09 PM
Subject: Re: [delphi-br] Help em Arrays... à 4 anos que estou neste impasse e não saio 
!


>
> É que preciso fazer alguns algorítimos de estatística e com alta
performance
> que utilizam Matrizes Gigantes 500x500, 1000x1000.. Etc... Fazer isto 
> utilizando Tabelas em BD é a Morte, pois eu preciso dos resultados 
> calculados em um curto espaço de tempo. Por isto utilizo Arrays que é 
> bem mais rápido !!! Mas o ponto negativo é que consome Mem. Ram à 
> "Beça". Tenho que achar uma maneira de trabalhar com um Range Maior.
> [ ]'s
>
> - Original Message -
> From: "Felippe Nagato" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Friday, October 22, 2004 2:51 AM
> Subject: Re: [delphi-br] Help em Arrays... à 4 anos que estou neste
impasse
> e não saio !
>
>
> >
> > O que o amigo quis dizer eh que funciona, porém quando passa de 
> > 200x200,
> dá
> > pau.
> > Nao sei dizer tb o motivo.
> > Mas o que acontece quando vc cria arrays dinamicos no Delphi 5? Não 
> > me recordo de qualquer problema na criação dos mesmos no Delphi 5. 
> > Mas nunca cheguei a criar um array tão grande quanto ao seu.
> >
> > - Original Message -
> > From: "Julio Cesar" <[EMAIL PROTECTED]>
> > To: <[EMAIL PROTECTED]>
> > Sent: Thursday, October 21, 2004 6:19 PM
> > Subject: Re: [delphi-br] Help em Arrays... à 4 anos que estou neste
> impasse
> > e não saio !
> >
> >
> >
> > nao me lembro se funciona no delphi 5, mas acredito q sim, certa vez 
> > eu
> fiz
> > um tridimensional, mas foi no 6 tenta ai... mas eu tenho quase
certeza
> q
> > funcione, pq vi algo parecido no delphi 3
> >
> >
> >
> > --
> > < 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] ou [EMAIL PROTECTED]
> >
> > 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] ou [EMAIL PROTECTED]
>
> 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] ou [EMAIL 
PROTECTED]
 
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] ou [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] Colorir uma linha inteira de um DBGrid quando selecionada!

[Christian Balz]

Meu caro,

 

Não funciona, pois este recurso anula os cursores quando o DBGrid avança
para a direita.. Acredito que seja necessário colorir a linha por código
quando usuário clicar em alguma linha. Só não sei como fazer isso!

 

[]’s

Christian Balz

 

  _  

De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] 
Enviada em: sexta-feira, 22 de outubro de 2004 14:49
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] Colorir uma linha inteira de um DBGrid quando
selecionada!

 

Vai na ospções do DBGrid e mude para true as propriedades,
dgAlwaysShowSelection e dgRowSelect.
acho q é isso
falows.


- Original Message - 
From: "Christian Balz" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, October 22, 2004 12:36 PM
Subject: [delphi-br] Colorir uma linha inteira de um DBGrid quando
selecionada!



Ola pessoal,



Gostaria de colorir uma linha inteira de um DBGrid quando fosse selecionada
uma célula qualquer.



Se alguém souber me ajudar fico grato,



Christian Balz



[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] ou [EMAIL PROTECTED]

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] ou [EMAIL PROTECTED]







Yahoo! Grupos, um serviço oferecido por:



  


   



 
  

  

 

 

  _  

Links do Yahoo! Grupos

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



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



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

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] ou [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] Colorir uma linha inteira de um DBGrid quando selecionada!

[[EMAIL PROTECTED]]

Vai na ospções do DBGrid e mude para true as propriedades,
dgAlwaysShowSelection e dgRowSelect.
acho q é isso
falows.


- Original Message - 
From: "Christian Balz" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, October 22, 2004 12:36 PM
Subject: [delphi-br] Colorir uma linha inteira de um DBGrid quando
selecionada!



Ola pessoal,



Gostaria de colorir uma linha inteira de um DBGrid quando fosse selecionada
uma célula qualquer.



Se alguém souber me ajudar fico grato,



Christian Balz



[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] ou [EMAIL PROTECTED]

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] ou [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] Altura do TListBox

[Eduardo Silva ®]

Pessoal, tenho um listbox que eu uso para adicionar os meus anexos em um
programa de e-mail que eu fiz.

O problema é que se eu adicionar mais de um arquivo, o listbox "esconde" os
outros e exibe do seu lado direito uma pequenina barra de

rolagem (duas setinhas - uma para cima e outra para baixo) para que eu possa
ver os arquivos que eu adicionei.

O que eu gostaria era de que o listbox ficasse com a altura dos arquivos que
eu fosse adicionando, para que eu não tenha que ficar

rolando com o mouse para saber o que já foi adicionado. Alguém tem uma idéia
de como fazer isso ?

 _  __  _
/ )|  |( \
   / / | Eduardo de Almeida Silva | \ \
 _( (_ |  _  * [EMAIL PROTECTED]   _  | _) )_
(((\ \)|_/ )__( \_|(/ /)))

( \_/ /\ \_/ )

 \   /  \   /

  \_/\_/

  /   /\   \


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.772 / Virus Database: 519 - Release Date: 01/10/2004


[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] ou [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] Colorir uma linha inteira de um DBGrid quando selecionada!

[Christian Balz]

Ola pessoal,

 

Gostaria de colorir uma linha inteira de um DBGrid quando fosse selecionada
uma célula qualquer.

 

Se alguém souber me ajudar fico grato,

 

Christian Balz



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

[Vanius Roberto Bittencourt]

On Fri, 22 Oct 2004 11:29:12 -0200, Depto de Informatica
<[EMAIL PROTECTED]> wrote:
> 
> Caros colegas, desenvolvo em Delphi 5, base de dados Access e ADO.
> Com o BDE eu posso fazer pesquisas em tabelas utilizando o FindKey(), o que torna a 
> pesquisa bastante rápida porque ela é indexada e não sequencial e também eu não 
> preciso abrir ou fechar uma Query, porém no ADO eu não tenho esta opção. O que eu 
> posso utilizar para fazer a pesquisa que me dê o mesmo desempenho do FindKey ?
> Luiz Carlos

Evite utilizar ADOTable pois este componente carrega todos registros
para a aplicação - image uma tabela de 70mb numa rede, fica demoradp
para abrir. O ideal é utilizar ADODataSet com DataSetProvider e
ClientDataSet, trabalham em buffer e ainda podem ler os registros de
acordo com a demanda (Packed records). Não utilize FindKey, Locate ou
outro comando de pesquisa DataSet pois eles causam a leitura integral
da tabela (a não q a tabela já estaja toda carregada). O ideal é fazer
uma leitura com select parametrizada.

-- 
Atenciosamente,
 
Vanius Roberto Bittencourt


-- 
< 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] ou [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] Help em Arrays... à 4 anos que estou neste impasse e não saio !

[Ricardo]

Array dinamico eh maior comedor de memoria use declaracoes estaticas que
mesmo grande os arrays usa pouca memoria.
.
- Original Message - 
From: "Rogério" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, October 22, 2004 12:09 PM
Subject: Re: [delphi-br] Help em Arrays... à 4 anos que estou neste impasse
e não saio !


>
> É que preciso fazer alguns algorítimos de estatística e com alta
performance
> que utilizam Matrizes Gigantes 500x500, 1000x1000.. Etc...
> Fazer isto utilizando Tabelas em BD é a Morte, pois eu preciso dos
> resultados calculados em um curto espaço de tempo.
> Por isto utilizo Arrays que é bem mais rápido !!!
> Mas o ponto negativo é que consome Mem. Ram à "Beça".
> Tenho que achar uma maneira de trabalhar com um Range Maior.
> [ ]'s
>
> - Original Message - 
> From: "Felippe Nagato" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Friday, October 22, 2004 2:51 AM
> Subject: Re: [delphi-br] Help em Arrays... à 4 anos que estou neste
impasse
> e não saio !
>
>
> >
> > O que o amigo quis dizer eh que funciona, porém quando passa de 200x200,
> dá
> > pau.
> > Nao sei dizer tb o motivo.
> > Mas o que acontece quando vc cria arrays dinamicos no Delphi 5?
> > Não me recordo de qualquer problema na criação dos mesmos no Delphi 5.
> > Mas nunca cheguei a criar um array tão grande quanto ao seu.
> >
> > - Original Message -
> > From: "Julio Cesar" <[EMAIL PROTECTED]>
> > To: <[EMAIL PROTECTED]>
> > Sent: Thursday, October 21, 2004 6:19 PM
> > Subject: Re: [delphi-br] Help em Arrays... à 4 anos que estou neste
> impasse
> > e não saio !
> >
> >
> >
> > nao me lembro se funciona no delphi 5, mas acredito q sim, certa vez eu
> fiz
> > um tridimensional, mas foi no 6 tenta ai... mas eu tenho quase
certeza
> q
> > funcione, pq vi algo parecido no delphi 3
> >
> >
> >
> > -- 
> > < 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] ou [EMAIL PROTECTED]
> >
> > 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] ou [EMAIL PROTECTED]
>
> 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] ou [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 migrar do delphi 5 para Delphi 7

[Vanius Roberto Bittencourt]

On Thu, 21 Oct 2004 14:10:28 -, Washington
<[EMAIL PROTECTED]> wrote:
>  Estou querendo migrar alguns componentes desenvolvidos em delphi 5
> para o delphi 7. Ja procurei no Google mas não achei nada que pudesse
> me ajudar.
>   Alguem pode me ajudar...
> 
> --

Esta questão já circulou algumas vezes aqui. O principal problema é
não compilar units com as units Editors e DesignIntf, pois pede uma
tal de unit proxies. Isto ocorre pois a partir do D6 algumas units são
específicas para design, e como estas units são da Borland e para o
uso no IDE, vc não tem licença de distribuí-las. Provavelmente vc vai
ter q transformar uma unit em duas - uma vai conter a procedure
register e mais as propriedades Editors. Esta unit vc vai utilizá-la
para registrar e instalar o componente em uma bpl.

Existe um artigo da Borland sobre o assunto em
http://community.borland.com/article/0,1410,27717,00.html

-- 
Atenciosamente,
 
Vanius Roberto Bittencourt


-- 
< 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] ou [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] Formatar numa Edit

[Marcelo Silva]

Corrigido...

var
  xValor: String;
begin
  xValor := 1230,25;
  Delete(xValor, Pos(',',xValor),1);
  Edit.Text := FormatFloat(',0.00', StrToFloat(xValor));
end;

Marcelo Silva
Cel. 11 9693-4251
ICQ - 49224093
MSN [EMAIL PROTECTED]
  - Original Message - 
  From: Charlles Ferdinand 
  To: Delphi-Br 
  Sent: Friday, October 22, 2004 11:55 AM
  Subject: [delphi-br] Formatar numa Edit


  Pessoal, estou querendo formatar a exebição numa edit, os numeros, como
  abaixo
  1230,25 ==> 1.230,25
  Como posso fazer, ja tentei por FormatFloat, ja coloquei um comp RxLib, mas
  não esta adiantando, sempre da uma mensagem de que o valor não é um valor
  inteiro.

  Como posso trabalhar com isto?

  Abrações a turma.
  Charlles Ferdinand
  Analista Contábil
  Tel.: (22) 2622-9739


  [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] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por: 
 
 
  
 
   


--
  Links do Yahoo! Grupos

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



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



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

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [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] Acentuação em Pesquisa!!!

[Marcello]

 

Pessoal, qual a melhor forma de se trabalhar com pesquisas quando os dados
gravados no Banco de Dados estão acentuados? Hoje eu forço os dados a serem
gravados sem acentuação nenhuma e nas pesquisas eu limpo a acentuação antes
de pesquisar. Mas e se eu quisesse salvar os dados com acentuação, eu queria
dar a liberdade do usuário pesqusar independente de acento por exemplo, se
ele digitasse São Paulo ou Sao Paulo, viria na Busca São Paulo. Existe tb o
problema quando é maiúsculo ou minúsculo. Como vcs resolvem esse
problema Existe alguma função par IB que remova acentuação?

 

Marcello A. Souza
Divisão de Tecnologia
Tel. +55 11 3262-4777 r. 223
www.grupomonteiro.com.br



[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] ou [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] único login para duas conexões db2 e sql ?????

[Vitor Luiz Redes]

Seguinte  grave um arquivo INI, txt, ou um registro mesmo, no seguinte molde 
... 

with DM.Conexao_DADOS.Params do
begin
Clear;
Add('Drivername:='+DM.Conexao_parametros.DriverName);
Add('Database='+DM.Conexao_parametros.DataBase);
Add('Rolename=Rolename');
Add('User_Name='+DM.Conexao_parametros.User_Name);
Add('Password='+DM.Conexao_parametros.Password);
Add('Blobsize=-1');
Add('ErrorSourceFile=');
Add('LocaleCode=');
Add('RoleName=RoleName');
Add('ServerCharSet=');
Add('SQLDialect=3');
Add('Interbase_TransIsolation=ReadCommited');
Add('WaitOnLocks=TRUE');
SaveToFile('c:\Redsystem\Config\DODATA.con');
end;

Depois, só faça o procedimento acima, com os componentes devidamente 
desconectados, e com os distintos nomes de cada um ...


"Se não o Hospedeiro,
quem faz do parasita,
um parasita ?"

Vitor Luiz Redes

Redsystem Informática
  - Original Message - 
  From: delphi6_2005 
  To: [EMAIL PROTECTED] 
  Sent: Friday, October 22, 2004 11:15 AM
  Subject: [delphi-br] único login para duas conexões db2 e sql ?



  Algum amigo poderia me dar uma dica de como implementar uma tela de 
  login para conectar dois bancos, se é melhor usar arquivo ini, ou 
  algum exemplo que possa me passar, estou tendo muita dificuldade com 
  DBExpress.

  Agradeço a ajuda

  Paulo





  -- 
  < 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] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por: 
 
 
  
 
   


--
  Links do Yahoo! Grupos

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



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



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

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [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] Formatar numa Edit

[Marcelo Silva]

Tenta assim:


var
  xValor: String;
begin
  xValor := 1230,25;
  Delete(xValor, Pos(',',x),1);
  Edit.Text := FormatFloat(',0.00', StrToFloat(xValor));
end;

Marcelo Silva
Cel. 11 9693-4251
ICQ - 49224093
MSN [EMAIL PROTECTED]
  - Original Message - 
  From: Charlles Ferdinand 
  To: Delphi-Br 
  Sent: Friday, October 22, 2004 11:55 AM
  Subject: [delphi-br] Formatar numa Edit


  Pessoal, estou querendo formatar a exebição numa edit, os numeros, como
  abaixo
  1230,25 ==> 1.230,25
  Como posso fazer, ja tentei por FormatFloat, ja coloquei um comp RxLib, mas
  não esta adiantando, sempre da uma mensagem de que o valor não é um valor
  inteiro.

  Como posso trabalhar com isto?

  Abrações a turma.
  Charlles Ferdinand
  Analista Contábil
  Tel.: (22) 2622-9739


  [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] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por: 
 
 
  
 
   


--
  Links do Yahoo! Grupos

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



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



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

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

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

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

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

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

 

[delphi-br] Delphi x Firebird HELP

[Mario Scavoni]

Companheiros,

Como copiar os dados de um campo existente para um outro
campo, este último criado dinamicamente, de uma mesma tabela usando query ?

É possivel, via código, alterar um campo de uma tabela que aceite null para not null ? 
como?

É possível alterar o nome do campo de uma tabela via código? como?

Delphi 6 + Firebird 1.5

[]'s
Mario

[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] ou [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] Cached update com DbExpress

[Alisson]

É possível? Como fazer se não existe a propriedade CachedUpdate nos
componentes?



-- 
< 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] ou [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] Help em Arrays... à 4 anos que estou neste impasse e não saio !

[Rubem Rocha]

Use Clientdatasets em memória. Informe-se a respeito.
[]s

-Mensagem original-
De: Rogério [mailto:[EMAIL PROTECTED] 
Enviada em: sexta-feira, 22 de outubro de 2004 10:10
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] Help em Arrays... à 4 anos que estou neste impasse e não saio 
!



É que preciso fazer alguns algorítimos de estatística e com alta performance que 
utilizam Matrizes Gigantes 500x500, 1000x1000.. Etc... Fazer isto utilizando Tabelas 
em BD é a Morte, pois eu preciso dos resultados calculados em um curto espaço de 
tempo. Por isto utilizo Arrays que é bem mais rápido !!! Mas o ponto negativo é que 
consome Mem. Ram à "Beça". Tenho que achar uma maneira de trabalhar com um Range 
Maior. [ ]'s

- Original Message - 
From: "Felippe Nagato" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, October 22, 2004 2:51 AM
Subject: Re: [delphi-br] Help em Arrays... à 4 anos que estou neste impasse e não saio 
!


>
> O que o amigo quis dizer eh que funciona, porém quando passa de 
> 200x200,
dá
> pau.
> Nao sei dizer tb o motivo.
> Mas o que acontece quando vc cria arrays dinamicos no Delphi 5? Não me 
> recordo de qualquer problema na criação dos mesmos no Delphi 5. Mas 
> nunca cheguei a criar um array tão grande quanto ao seu.
>
> - Original Message -
> From: "Julio Cesar" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Thursday, October 21, 2004 6:19 PM
> Subject: Re: [delphi-br] Help em Arrays... à 4 anos que estou neste
impasse
> e não saio !
>
>
>
> nao me lembro se funciona no delphi 5, mas acredito q sim, certa vez 
> eu
fiz
> um tridimensional, mas foi no 6 tenta ai... mas eu tenho quase 
> certeza
q
> funcione, pq vi algo parecido no delphi 3
>
>
>
> --
> < 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] ou [EMAIL PROTECTED]
>
> 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] ou [EMAIL 
PROTECTED]
 
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] ou [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] Help em Arrays... à 4 anos que estou neste impasse e não saio !

[Rogério]

É que preciso fazer alguns algorítimos de estatística e com alta performance
que utilizam Matrizes Gigantes 500x500, 1000x1000.. Etc...
Fazer isto utilizando Tabelas em BD é a Morte, pois eu preciso dos
resultados calculados em um curto espaço de tempo.
Por isto utilizo Arrays que é bem mais rápido !!!
Mas o ponto negativo é que consome Mem. Ram à "Beça".
Tenho que achar uma maneira de trabalhar com um Range Maior.
[ ]'s

- Original Message - 
From: "Felippe Nagato" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, October 22, 2004 2:51 AM
Subject: Re: [delphi-br] Help em Arrays... à 4 anos que estou neste impasse
e não saio !


>
> O que o amigo quis dizer eh que funciona, porém quando passa de 200x200,
dá
> pau.
> Nao sei dizer tb o motivo.
> Mas o que acontece quando vc cria arrays dinamicos no Delphi 5?
> Não me recordo de qualquer problema na criação dos mesmos no Delphi 5.
> Mas nunca cheguei a criar um array tão grande quanto ao seu.
>
> - Original Message -
> From: "Julio Cesar" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Thursday, October 21, 2004 6:19 PM
> Subject: Re: [delphi-br] Help em Arrays... à 4 anos que estou neste
impasse
> e não saio !
>
>
>
> nao me lembro se funciona no delphi 5, mas acredito q sim, certa vez eu
fiz
> um tridimensional, mas foi no 6 tenta ai... mas eu tenho quase certeza
q
> funcione, pq vi algo parecido no delphi 3
>
>
>
> -- 
> < 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] ou [EMAIL PROTECTED]
>
> 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] ou [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] Help em Arrays... à 4 anos que estou neste impasse e não saio !

[Rubem Rocha]

Pq não usa ClientDataSets em memória? Vc tem a mesma praticidade em trabalhar com 
datasets com a vantagem de trabalhar sempre em memória. Informe-se a respeito.
[]s

-Mensagem original-
De: Rogério [mailto:[EMAIL PROTECTED] 
Enviada em: sexta-feira, 22 de outubro de 2004 10:05
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] Help em Arrays... à 4 anos que estou neste impasse e não saio 
!



É que preciso fazer alguns algorítimos de estatística e com alta performance que 
utilizam Matrizes Gigantes 500x500, 1000x1000.. Etc... Fazer isto utilizando Tabelas 
em BD é a Morte, pois eu preciso dos resultados calculados em um curto espaço de 
tempo. Por isto utilizo Arrays que é bem mais rápido !!! Mas o ponto negativo é que 
consome Mem. Ram à "Beça". Tenho que achar uma maneira de trabalhar com um Range 
Maior. [ ]'s


- Original Message - 
From: "Felippe Nagato" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, October 22, 2004 2:51 AM
Subject: Re: [delphi-br] Help em Arrays... à 4 anos que estou neste impasse e não saio 
!


>
> O que o amigo quis dizer eh que funciona, porém quando passa de 
> 200x200,
dá
> pau.
> Nao sei dizer tb o motivo.
> Mas o que acontece quando vc cria arrays dinamicos no Delphi 5? Não me 
> recordo de qualquer problema na criação dos mesmos no Delphi 5. Mas 
> nunca cheguei a criar um array tão grande quanto ao seu.
>
> - Original Message -
> From: "Julio Cesar" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Thursday, October 21, 2004 6:19 PM
> Subject: Re: [delphi-br] Help em Arrays... à 4 anos que estou neste
impasse
> e não saio !
>
>
>
> nao me lembro se funciona no delphi 5, mas acredito q sim, certa vez 
> eu
fiz
> um tridimensional, mas foi no 6 tenta ai... mas eu tenho quase 
> certeza
q
> funcione, pq vi algo parecido no delphi 3
>
>
>
> --
> < 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] ou [EMAIL PROTECTED]
>
> 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] ou [EMAIL 
PROTECTED]
 
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] ou [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] Help em Arrays... à 4 anos que estou neste impasse e não saio !

[Rogério]

É que preciso fazer alguns algorítimos de estatística e com alta performance
que utilizam Matrizes Gigantes 500x500, 1000x1000.. Etc...
Fazer isto utilizando Tabelas em BD é a Morte, pois eu preciso dos
resultados calculados em um curto espaço de tempo.
Por isto utilizo Arrays que é bem mais rápido !!!
Mas o ponto negativo é que consome Mem. Ram à "Beça".
Tenho que achar uma maneira de trabalhar com um Range Maior.
[ ]'s


- Original Message - 
From: "Felippe Nagato" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, October 22, 2004 2:51 AM
Subject: Re: [delphi-br] Help em Arrays... à 4 anos que estou neste impasse
e não saio !


>
> O que o amigo quis dizer eh que funciona, porém quando passa de 200x200,
dá
> pau.
> Nao sei dizer tb o motivo.
> Mas o que acontece quando vc cria arrays dinamicos no Delphi 5?
> Não me recordo de qualquer problema na criação dos mesmos no Delphi 5.
> Mas nunca cheguei a criar um array tão grande quanto ao seu.
>
> - Original Message -
> From: "Julio Cesar" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Thursday, October 21, 2004 6:19 PM
> Subject: Re: [delphi-br] Help em Arrays... à 4 anos que estou neste
impasse
> e não saio !
>
>
>
> nao me lembro se funciona no delphi 5, mas acredito q sim, certa vez eu
fiz
> um tridimensional, mas foi no 6 tenta ai... mas eu tenho quase certeza
q
> funcione, pq vi algo parecido no delphi 3
>
>
>
> -- 
> < 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] ou [EMAIL PROTECTED]
>
> 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] ou [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]

[Eduardo RC Neto]

Valor inteiro não é, porque o numero é fracionado.

Para vc atribuir esse valor do edit para algum campo da tabela que
seja float por exemplo, vc terá que retirar o ponto do separador de milhar.

Ex.:

Query1Preço.AsFloat := StrToFloat(StringReplace(Edit1.Text,'.', ''
[rfReplaceAll]));



Abraços,
 
Eduardo RC Neto
Desenvolvimento de Sistemas
--
Archive ISP - Rio de Janeiro - RJ
(21) 2567-1842  ramal:119
[EMAIL PROTECTED]
www.archive.com.br
 

---Mensagem original---
 
De: [EMAIL PROTECTED]
Data: 10/22/04 11:51:22
Para: Delphi-Br
Assunto: [delphi-br]
 
Pessoal, estou querendo formatar a exebição numa edit, os numeros, como
abaixo
1230,25 ==> 1.230,25
Como posso fazer, ja tentei por FormatFloat, ja coloquei um comp RxLib, mas
não esta adiantando, sempre da uma mensagem de que o valor não é um valor
inteiro.

Como posso trabalhar com isto?

Abrações a turma.
Charlles Ferdinand
Analista Contábil
Tel.: (22) 2622-9739


[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] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por:

 São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília 





Links do Yahoo! Grupos

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


 

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



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

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] ou [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] Algorítimos Complexos

[Rogério]

Td. Bem... já estou à bastante tempo nisto e ainda não encontrei uma
solução...
Se você tiver como aranjar isto, eu agradeceria Imensamente !!!
Valeu !!!
Um Abraço.


- Original Message - 
From: "Leonardo" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, October 21, 2004 3:42 PM
Subject: Re: [delphi-br] Algorítimos Complexos


>
> Há algum tempo atrás eu comecei fazer uma monografia sobre sistemas
> lineares, ela está incompleta, pois tive que abandoná-la, se não for
> muito urgente, final de semana eu dou um revirada no meu "bau" e vejo se
> a encontro e envio pra você!!!
>
> Sobre o 1°, 3° e 4° eu tenho certeza de ter algo!!!
>
> Já adianto que se você der uma olhada no MatLab, e no site da UFMG tem
> uma atualização para o MatLab que trabalha com matrizes usando o método
> de Gauss!!!
>
> Leonardo Marcelino
> Corpo de Bombeiros Militares - Divinópolis/MG
>
> Rogério wrote:
>
> >Alguém já Viu ou Ouviu falar nestes Metodos ou Algorítimos logo abaixo
???
> >
> >1o- Multiplicação de Matrizes.
> >
> >2o- Cálculo Cholesky
> >
> >3o- Inversão de Matrizes - Metodo de Gauss.
> >
> >4o- Inversão de Matrizes - Metodo de Laplace.
> >
> >Por Favor,
> >Alguém  teria algum destes algorítimos ou algum site para indicar ???
> >
> >Muito Obrigado à Todos que tiverem alguma informação a respeito !!!
> >qq. informação será bem vinda !
> >Abraços.
> >Rogério
> >
> >
> >
> >
> >
> >
>
>
> -- 
> < 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] ou [EMAIL PROTECTED]
>
> 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] ou [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] Formatar numa Edit

[Charlles Ferdinand]

Pessoal, estou querendo formatar a exebição numa edit, os numeros, como
abaixo
1230,25 ==> 1.230,25
Como posso fazer, ja tentei por FormatFloat, ja coloquei um comp RxLib, mas
não esta adiantando, sempre da uma mensagem de que o valor não é um valor
inteiro.

Como posso trabalhar com isto?

Abrações a turma.
Charlles Ferdinand
Analista Contábil
Tel.: (22) 2622-9739


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

[Charlles Ferdinand]

Pessoal, estou querendo formatar a exebição numa edit, os numeros, como
abaixo
1230,25 ==> 1.230,25
Como posso fazer, ja tentei por FormatFloat, ja coloquei um comp RxLib, mas
não esta adiantando, sempre da uma mensagem de que o valor não é um valor
inteiro.

Como posso trabalhar com isto?

Abrações a turma.
Charlles Ferdinand
Analista Contábil
Tel.: (22) 2622-9739


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

[Vitor Luiz Redes]

Um Locate com uma chave como parâmetro, provavelmente fará no mesmo tempo levado 
pelo BDE ... ou ainda, um select ...


"Se não o Hospedeiro,
quem faz do parasita,
um parasita ?"

Vitor Luiz Redes

Redsystem Informática
  - Original Message - 
  From: Depto de Informatica 
  To: [EMAIL PROTECTED] 
  Sent: Friday, October 22, 2004 11:29 AM
  Subject: [delphi-br] Pesquisa


  Caros colegas, desenvolvo em Delphi 5, base de dados Access e ADO.
  Com o BDE eu posso fazer pesquisas em tabelas utilizando o FindKey(), o que torna a 
pesquisa bastante rápida porque ela é indexada e não sequencial e também eu não 
preciso abrir ou fechar uma Query, porém no ADO eu não tenho esta opção. O que eu 
posso utilizar para fazer a pesquisa que me dê o mesmo desempenho do FindKey ?

  Obrigado,

  Luiz Carlos

  [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] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por: 
 
São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte 
Brasília  
 
   


--
  Links do Yahoo! Grupos

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



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



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

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [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] FreeCLX & Delphi6

[Alexandre]

Bom dia Lista!

Tô precisando de uma mãozinha...

Alguém poderia me dizer quais os procedimentos para instalar a FreeCLX no 
Delphi 6 Personal??


Muito obrigado pela ajuda!!
[]'s Alexandre 



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

[Depto de Informatica]

Caros colegas, desenvolvo em Delphi 5, base de dados Access e ADO.
Com o BDE eu posso fazer pesquisas em tabelas utilizando o FindKey(), o que torna a 
pesquisa bastante rápida porque ela é indexada e não sequencial e também eu não 
preciso abrir ou fechar uma Query, porém no ADO eu não tenho esta opção. O que eu 
posso utilizar para fazer a pesquisa que me dê o mesmo desempenho do FindKey ?

Obrigado,

Luiz Carlos

[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] ou [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] Problemas com XPManifest

[Jeferson Menegon]

Pessoal estou com um problema com o XPManifest quando coloco o componente

TabControl ou PageControl e coloco o TabPosition como tpLeft ou tpRight o
caption não aparece em tempo de execução.

 

Se alguém teve esse problema o que fez para resolver ou se é bug do Delphi 7




[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] ou [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] Dúvida sobre CPF

[Dimas Fernando]

Ele passa por  111.111.111-11, 222.222.222-22 todos os numeros que se repetem...
  - Original Message - 
  From: Walter Alves Chagas Junior 
  To: '[EMAIL PROTECTED]' 
  Sent: Friday, October 22, 2004 11:34 AM
  Subject: RES: [delphi-br] Dúvida sobre CPF


  voce pode fazer o tratamento trivial mesmo.

  if CPF = '111.111.111-11' then
 showmessage('inválido')
  else
  begin

 

  end;



  []s

  Walter Alves Chagas Junior
  Projeto e desenvolvimento
  Telemont Engenharia 
  [EMAIL PROTECTED]
  Fone: (31) 3389-8215 Fax: (31) 3389-8200



  > -Mensagem original-
  > De: Eduardo Silva ® [mailto:[EMAIL PROTECTED]
  > Enviada em: sexta-feira, 22 de outubro de 2004 10:34
  > Para: [EMAIL PROTECTED]
  > Assunto: [delphi-br] Dúvida sobre CPF
  > 
  > 
  > 
  > Galera, se a gente digitar o número 111.111.111-11 de um CPF 
  > ele passa pela
  > funçao de validação.
  > 
  > Duvida: esse número é válido ? Existe alguém que tenha esse CPF ?
  > 
  > Em caso de ele não ser válido, eu devo tratar isso dentro da 
  > minha função de
  > validação ?
  > 
  >  _  __  _
  > / )|  |( \
  >/ / | Eduardo de Almeida Silva | \ \
  >  _( (_ |  _  * [EMAIL PROTECTED]   _  | _) )_
  > (((\ \)|_/ )__( \_|(/ /)))
  > 
  > ( \_/ /\ \_/ )
  > 
  >  \   /  \   /
  > 
  >   \_/\_/
  > 
  >   /   /\   \
  > 
  > 
  > ---
  > Outgoing mail is certified Virus Free.
  > Checked by AVG anti-virus system (http://www.grisoft.com).
  > Version: 6.0.772 / Virus Database: 519 - Release Date: 01/10/2004
  > 
  > 
  > [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] ou [EMAIL PROTECTED]
  >  
  > 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] ou [EMAIL PROTECTED]



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

   


--
  Links do Yahoo! Grupos

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



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



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

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [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] Dúvida sobre CPF

[Walter Alves Chagas Junior]

voce pode fazer o tratamento trivial mesmo.

 if CPF = '111.111.111-11' then
   showmessage('inválido')
 else
 begin

   

 end;

 
 
 []s

 Walter Alves Chagas Junior
 Projeto e desenvolvimento
 Telemont Engenharia 
 [EMAIL PROTECTED]
 Fone: (31) 3389-8215 Fax: (31) 3389-8200
 
 

> -Mensagem original-
> De: Eduardo Silva ® [mailto:[EMAIL PROTECTED]
> Enviada em: sexta-feira, 22 de outubro de 2004 10:34
> Para: [EMAIL PROTECTED]
> Assunto: [delphi-br] Dúvida sobre CPF
> 
> 
> 
> Galera, se a gente digitar o número 111.111.111-11 de um CPF 
> ele passa pela
> funçao de validação.
> 
> Duvida: esse número é válido ? Existe alguém que tenha esse CPF ?
> 
> Em caso de ele não ser válido, eu devo tratar isso dentro da 
> minha função de
> validação ?
> 
>  _  __  _
> / )|  |( \
>/ / | Eduardo de Almeida Silva | \ \
>  _( (_ |  _  * [EMAIL PROTECTED]   _  | _) )_
> (((\ \)|_/ )__( \_|(/ /)))
> 
> ( \_/ /\ \_/ )
> 
>  \   /  \   /
> 
>   \_/\_/
> 
>   /   /\   \
> 
> 
> ---
> Outgoing mail is certified Virus Free.
> Checked by AVG anti-virus system (http://www.grisoft.com).
> Version: 6.0.772 / Virus Database: 519 - Release Date: 01/10/2004
> 
> 
> [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] ou [EMAIL PROTECTED]
>  
> 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] ou [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] Dúvida sobre CPF

[Eduardo Silva ®]

Galera, se a gente digitar o número 111.111.111-11 de um CPF ele passa pela
funçao de validação.

Duvida: esse número é válido ? Existe alguém que tenha esse CPF ?

Em caso de ele não ser válido, eu devo tratar isso dentro da minha função de
validação ?

 _  __  _
/ )|  |( \
   / / | Eduardo de Almeida Silva | \ \
 _( (_ |  _  * [EMAIL PROTECTED]   _  | _) )_
(((\ \)|_/ )__( \_|(/ /)))

( \_/ /\ \_/ )

 \   /  \   /

  \_/\_/

  /   /\   \


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.772 / Virus Database: 519 - Release Date: 01/10/2004


[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] ou [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] único login para duas conexões db2 e sql ?????

[delphi6_2005]

Algum amigo poderia me dar uma dica de como implementar uma tela de 
login para conectar dois bancos, se é melhor usar arquivo ini, ou 
algum exemplo que possa me passar, estou tendo muita dificuldade com 
DBExpress.

Agradeço a ajuda

Paulo





-- 
< 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] ou [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] Select Urgente

[Marcello]

Então já tinha tentado isso antes, mas dá na mesma, veja como fica a string:
 
select (select ARQUSUARIO.USU_ATIVO from arqcontatos left outer join
ARQUSUARIO on (ARQCONTATOS.CON_CONSULTOR = upper(ARQUSUARIO.USU_NOME))) AS
ATIVO,
ARQCONTATOS.CON_ID, ARQCONTATOS.CON_CONSULTOR
FROM ARQCONTATOS LEFT OUTER JOIN ARQUSUARIO ON (ARQCONTATOS.USU_CODIGO =
ARQUSUARIO.USU_CODIGO)
WHERE ARQCONTATOS.CON_NOME LIKE '%MARCELO%'
ORDER BY ARQCONTATOS.CON_NOME

  _  

De: FS Under [mailto:[EMAIL PROTECTED] 
Enviada em: sexta-feira, 22 de outubro de 2004 09:45
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] Select Urgente


Tenta isto,

(select ARQUSUARIO.USU_ATIVO from arqcontatos left
outer join ARQUSUARIO on
(ARQCONTATOS.CON_CONSULTOR =
upper(ARQUSUARIO.USU_NOME))) AS ATIVO

FROM ARQCONTATOS LEFT OUTER JOIN ARQUSUARIO ON
(ARQCONTATOS.USU_CODIGO =
ARQUSUARIO.USU_CODIGO) WHERE ARQCONTATOS.CON_NOME LIKE
'%MARCELO%'
ORDER BY ARQCONTATOS.CON_NOME

[]'s
Fabiano Freitas 

--- Marcello <[EMAIL PROTECTED]>
escreveu: 

-


Pessoal, não estou conseguindo resolver este problema
de SELECT. Vejam essa
parte da minha string sql que está em vermelho
referente ao meu campo que
recebe o nome de ATIVO. Bom a pessoa que fez o Banco o
definiu da seguinte
forma. o campo ARQCONTATOS.USU_CODIGO está relacionado
com
ARQUSUARIO.USU_CODIGO, mas ele não criou uma relação
para o campo
ARQCONTATOS.CON_CONSULTOR, que na verdade é a mesma
informação. Deixa eu
explicar melhor, na Tabela ARQCONTATOS e gravado o
usuário que fez a
inserção/alteração e o consultor, ambos puxados da
tabela ARQUSUARIO. Uma
hora ele age como consultor e outra como usuário,
então pode vai ter casos
em que os dois vão ter o mesmo valor e casos que eles
são diferentes. O que
preciso é saber se o consultor está ativo ou não e não
o usuário. Como essa
string está sendo usada em uma pesquisa usando o like
ele trás varios
registros na parte em vermelho, e aí dá um erro de
multiplas linhas. Bom da
forma que eu fiz essa string só funciona quando defino
um parametro para que
venha somente um registro. agora, como fazer para que
o select interno
interaja como select geral Espero que eu tenha
conseguido passar o caso
com clareza. qualquer coisa solicitem mais
informações.

SELECT ARQCONTATOS.CON_NOME AS Nome,
ARQCONTATOS.CON_ID AS Codigo,
ARQCONTATOS.CON_TEL AS TelRes,
ARQCONTATOS.CON_CONSULTOR AS Consultor,
UPPER(ARQUSUARIO.USU_NOME) AS Usuario,
(select ARQUSUARIO.USU_ATIVO from arqcontatos left
outer join ARQUSUARIO on
(ARQCONTATOS.CON_CONSULTOR =
upper(ARQUSUARIO.USU_NOME)) WHERE
ARQCONTATOS.CON_NOME LIKE '%MARCELO%') AS ATIVO
FROM ARQCONTATOS LEFT OUTER JOIN ARQUSUARIO ON
(ARQCONTATOS.USU_CODIGO =
ARQUSUARIO.USU_CODIGO) WHERE ARQCONTATOS.CON_NOME LIKE
'%MARCELO%'
ORDER BY ARQCONTATOS.CON_NOME



Marcello A. Souza
Divisão de Tecnologia
Tel. +55 11 3262-4777 r. 223
www.grupomonteiro.com.br



[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] ou
[EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por:  
  
São Paulo  
 Rio de Janeiro   
CuritibaPorto
AlegreBelo Horizonte  
 Brasília  
 

-
Links do Yahoo! Grupos

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

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

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



  
  

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


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

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]




Yahoo! Grupos, um serviço oferecido por:

 
 

 
  
 São Paulo  Rio de Janeiro  Curitiba  Porto Alegre  Belo Horizonte  Brasília


  _  

Links do Yahoo! Grupos


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

Re: [delphi-br] Quick Report

[FS Under]

Pode ser tbm incompatiblidade de drivers, o QR tem
muito disto, se a dica do colega aí em baixo não
surtir efeito, esperiementa reimplementar o seu
relatório no ReportBuilder e vê se funciona.

[]'s
Fabiano Freitas

 --- Tasquim <[EMAIL PROTECTED]> escreveu: 

-
Bom dia

Provavelmente você não deve ter colocado os comandos
para acionar o Duplex de sua impressora, geralmente
estes comando vem descritos no manual da impressora,
que da todo o esquema de como vc deve colocar os
codigos dentro do programa para SETAR sua impressora,
habilitando ou desabilitando funções.

Espero que tenha ajudado



  - Original Message - 
  From: dorivalbaldo 
  To: [EMAIL PROTECTED] 
  Sent: Wednesday, October 20, 2004 4:43 PM
  Subject: [delphi-br] Quick Report




  Boa tarde a todos

  Tenho o seguinte problema: Quick Report x Impressao
Duplex

  Não sei se alguem já teve algum problema parecido:
na empresa onde 
  trabalho compramos uma impressora q imprime frente e
verso (Duplex), 
  qq impressao, exceto do sistema, funciona
normalmente no modo Duplex, 
  mas qdo utilizo o sistema nao consigo.
  Será q tem alguma solucao???
  Será q é melhor trocar de componente de impressão???

  Obrigado


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



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

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou
[EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por:  

   function SearchComboBox() {
if (document.form_combo.keyword.value.length==0){ 
alert("Por favor, digite algo.");  return false; }else
{  document.form_combo.action
="http://br.rd.yahoo.com/SIG=12a7arlnp/M=264105.3931087.6562589.1588051/D=brclubs/S=2137111264:HM/EXP=1098528613/A=2361264/R=0/SIG=11uaou2jn/*http://www.bondfaro.com/bondfaro/in/combosearch_in.jsp?sk=11";;
} return true;}   
  [input] 
  [input][input]  


-
Links do Yahoo! Grupos

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





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


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

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [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] Select Urgente

[FS Under]

Tenta isto,

(select ARQUSUARIO.USU_ATIVO from arqcontatos left
outer join ARQUSUARIO on
(ARQCONTATOS.CON_CONSULTOR =
upper(ARQUSUARIO.USU_NOME))) AS ATIVO

FROM ARQCONTATOS LEFT OUTER JOIN ARQUSUARIO ON
(ARQCONTATOS.USU_CODIGO =
ARQUSUARIO.USU_CODIGO) WHERE ARQCONTATOS.CON_NOME LIKE
'%MARCELO%'
ORDER BY ARQCONTATOS.CON_NOME

[]'s
Fabiano Freitas 

 --- Marcello <[EMAIL PROTECTED]>
escreveu: 

-
 

Pessoal, não estou conseguindo resolver este problema
de SELECT. Vejam essa
parte da minha string sql que está em vermelho
referente ao meu campo que
recebe o nome de ATIVO. Bom a pessoa que fez o Banco o
definiu da seguinte
forma. o campo ARQCONTATOS.USU_CODIGO está relacionado
com
ARQUSUARIO.USU_CODIGO, mas ele não criou uma relação
para o campo
ARQCONTATOS.CON_CONSULTOR, que na verdade é a mesma
informação. Deixa eu
explicar melhor, na Tabela ARQCONTATOS e gravado o
usuário que fez a
inserção/alteração e o consultor, ambos puxados da
tabela ARQUSUARIO. Uma
hora ele age como consultor e outra como usuário,
então pode vai ter casos
em que os dois vão ter o mesmo valor e casos que eles
são diferentes. O que
preciso é saber se o consultor está ativo ou não e não
o usuário. Como essa
string está sendo usada em uma pesquisa usando o like
ele trás varios
registros na parte em vermelho, e aí dá um erro de
multiplas linhas. Bom da
forma que eu fiz essa string só funciona quando defino
um parametro para que
venha somente um registro. agora, como fazer para que
o select interno
interaja como select geral Espero que eu tenha
conseguido passar o caso
com clareza. qualquer coisa solicitem mais
informações.

SELECT ARQCONTATOS.CON_NOME AS Nome,
ARQCONTATOS.CON_ID AS Codigo,
ARQCONTATOS.CON_TEL AS TelRes,
ARQCONTATOS.CON_CONSULTOR AS Consultor,
UPPER(ARQUSUARIO.USU_NOME) AS Usuario,
(select ARQUSUARIO.USU_ATIVO from arqcontatos left
outer join ARQUSUARIO on
(ARQCONTATOS.CON_CONSULTOR =
upper(ARQUSUARIO.USU_NOME)) WHERE
ARQCONTATOS.CON_NOME LIKE '%MARCELO%') AS ATIVO
FROM ARQCONTATOS LEFT OUTER JOIN ARQUSUARIO ON
(ARQCONTATOS.USU_CODIGO =
ARQUSUARIO.USU_CODIGO) WHERE ARQCONTATOS.CON_NOME LIKE
'%MARCELO%'
ORDER BY ARQCONTATOS.CON_NOME

 

Marcello A. Souza
Divisão de Tecnologia
Tel. +55 11 3262-4777 r. 223
www.grupomonteiro.com.br



[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] ou
[EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por:  
  
São Paulo  
 Rio de Janeiro   
CuritibaPorto
AlegreBelo Horizonte  
 Brasília  
 

-
Links do Yahoo! Grupos

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





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


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

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

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

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

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

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

 

[delphi-br] Erro em Impressão Serial

[Marcão]

Olá pessoal, bom dia !

Gostaria de saber se alguém já trabalhou com impressão serial em 
equipamentos para emissão de cheques + Delphi, mais especificamente 
com o equipamento CHECK PRONTO da empresa CHRONOS.

Estou utilizando o método AssignFile(Arquivo,'COM2')... WriteLn(...) 
mas no visor do aparelho mostra que houve Inserção de dados 
inválidos... É correto esta forma de trabalhar numa impressão 
serial ? Ou está faltando algo para ser complementado ?

Agradeço desde já a atenção dos colegas.

[]'s
Marcos





-- 
< 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] ou [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] Select Urgente

[Marcello]

 

Pessoal, não estou conseguindo resolver este problema de SELECT. Vejam essa
parte da minha string sql que está em vermelho referente ao meu campo que
recebe o nome de ATIVO. Bom a pessoa que fez o Banco o definiu da seguinte
forma. o campo ARQCONTATOS.USU_CODIGO está relacionado com
ARQUSUARIO.USU_CODIGO, mas ele não criou uma relação para o campo
ARQCONTATOS.CON_CONSULTOR, que na verdade é a mesma informação. Deixa eu
explicar melhor, na Tabela ARQCONTATOS e gravado o usuário que fez a
inserção/alteração e o consultor, ambos puxados da tabela ARQUSUARIO. Uma
hora ele age como consultor e outra como usuário, então pode vai ter casos
em que os dois vão ter o mesmo valor e casos que eles são diferentes. O que
preciso é saber se o consultor está ativo ou não e não o usuário. Como essa
string está sendo usada em uma pesquisa usando o like ele trás varios
registros na parte em vermelho, e aí dá um erro de multiplas linhas. Bom da
forma que eu fiz essa string só funciona quando defino um parametro para que
venha somente um registro. agora, como fazer para que o select interno
interaja como select geral Espero que eu tenha conseguido passar o caso
com clareza. qualquer coisa solicitem mais informações.

SELECT ARQCONTATOS.CON_NOME AS Nome, ARQCONTATOS.CON_ID AS Codigo,
ARQCONTATOS.CON_TEL AS TelRes,
ARQCONTATOS.CON_CONSULTOR AS Consultor,
UPPER(ARQUSUARIO.USU_NOME) AS Usuario,
(select ARQUSUARIO.USU_ATIVO from arqcontatos left outer join ARQUSUARIO on
(ARQCONTATOS.CON_CONSULTOR = upper(ARQUSUARIO.USU_NOME)) WHERE
ARQCONTATOS.CON_NOME LIKE '%MARCELO%') AS ATIVO
FROM ARQCONTATOS LEFT OUTER JOIN ARQUSUARIO ON (ARQCONTATOS.USU_CODIGO =
ARQUSUARIO.USU_CODIGO) WHERE ARQCONTATOS.CON_NOME LIKE '%MARCELO%'
ORDER BY ARQCONTATOS.CON_NOME

 

Marcello A. Souza
Divisão de Tecnologia
Tel. +55 11 3262-4777 r. 223
www.grupomonteiro.com.br



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

[Joao Paulo]

Olhe o rodapé das mensages...

 

  _  

Links do Yahoo! Grupos

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

 



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



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

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] ou [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: Download do RXLib Delphi 7???

[José Maria]

Gostaria de agradecer aos amigos que me ajudaram nesta empreitada.

[]s
Valeu!!!
José Maria
--- Em [EMAIL PROTECTED], "Alexandre Oliveira" 
<[EMAIL PROTECTED]> escreveu
> Olá,
> 
> http://delphi.icm.edu.pl/ftp/d70free/Rx275D7.zip
> 
> É este aí pra baixar. Existe sim, eu tenho instalado e uso em meus 
sistemas.
> Não me dei bem com o JEDI.
> 
> Alexandre Oliveira
> 
> 
> - Original Message -
> From: "Luiz Henrique" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Friday, October 22, 2004 12:36 AM
> Subject: [delphi-br] Re: Download do RXLib Delphi 7???
> 
> 
> 
> José,
> 
> Se não me engano não existe RXLib para D7.
> Mas dá uma olhada no projeto JVCL em 
http://sourceforge.net/projects/jvcl/ .
> Tem tudo que a RX tem e muito mais.
> 
> 
> Abraços
> Luiz Henrique Severo d Oliveira
> RPG Soluções
> www.rpgsolucoes.com.br
> 
> 
> 
> 
>  Mensagem: 1
>  Data: Thu, 21 Oct 2004 13:04:43 -0300
>De: "Marcos Ribes" <[EMAIL PROTECTED]>
>   Assunto: Re: Download do RXLib Delphi 7???
> 
> Procura na Delphi Super Page (http://delphi.icm.edu.pl/).
> 
> - Original Message -
> From: "José Maria" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Thursday, October 21, 2004 11:27 AM
> Subject: [delphi-br] Download do RXLib Delphi 7???
> 
> Alguem sabe onde?
> 
> []s
> José maria
> 
> 
> 
> 
> --
> < 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] ou [EMAIL PROTECTED]
> 
> Links do Yahoo! Grupos
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> --
> Este e-mail está livre de vírus.
> Verificado por AVG Anti-Vírus (http://www.avgbrasil.com.br).
> Versão: 7.0.280 / Banco de dados de Vírus: 264.12.0 - Data de 
Lançamento:
> 19/10/2004
> 
> 
> 
> 
> -- 
> Mensagens enviadas estão livres de vírus.
> Verificado por AVG Anti-Vírus (http://www.avgbrasil.com.br).
> Versão: 7.0.280 / Banco de dados de Vírus: 264.12.0 – Data de 
Lançamento: 19/10/2004





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

[Rodrigo Jundiai]

bom dia
como faco pra sair do grupo?
minha caixa de entrada nao esta mais suportando


-
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] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

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

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

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

 

Re: [delphi-br] Re: Download do RXLib Delphi 7???

[Alexandre Oliveira]

Olá,

http://delphi.icm.edu.pl/ftp/d70free/Rx275D7.zip

É este aí pra baixar. Existe sim, eu tenho instalado e uso em meus sistemas.
Não me dei bem com o JEDI.

Alexandre Oliveira


- Original Message -
From: "Luiz Henrique" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, October 22, 2004 12:36 AM
Subject: [delphi-br] Re: Download do RXLib Delphi 7???



José,

Se não me engano não existe RXLib para D7.
Mas dá uma olhada no projeto JVCL em http://sourceforge.net/projects/jvcl/ .
Tem tudo que a RX tem e muito mais.


Abraços
Luiz Henrique Severo d Oliveira
RPG Soluções
www.rpgsolucoes.com.br




 Mensagem: 1
 Data: Thu, 21 Oct 2004 13:04:43 -0300
   De: "Marcos Ribes" <[EMAIL PROTECTED]>
  Assunto: Re: Download do RXLib Delphi 7???

Procura na Delphi Super Page (http://delphi.icm.edu.pl/).

- Original Message -
From: "José Maria" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, October 21, 2004 11:27 AM
Subject: [delphi-br] Download do RXLib Delphi 7???

Alguem sabe onde?

[]s
José maria




--
< 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] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos










--
Este e-mail está livre de vírus.
Verificado por AVG Anti-Vírus (http://www.avgbrasil.com.br).
Versão: 7.0.280 / Banco de dados de Vírus: 264.12.0 - Data de Lançamento:
19/10/2004




-- 
Mensagens enviadas estão livres de vírus.
Verificado por AVG Anti-Vírus (http://www.avgbrasil.com.br).
Versão: 7.0.280 / Banco de dados de Vírus: 264.12.0 – Data de Lançamento: 19/10/2004



-- 
< 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] ou [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] Quick Report

[Tasquim]

Bom dia

Provavelmente você não deve ter colocado os comandos para acionar o Duplex de sua 
impressora, geralmente estes comando vem descritos no manual da impressora, que da 
todo o esquema de como vc deve colocar os codigos dentro do programa para SETAR sua 
impressora, habilitando ou desabilitando funções.

Espero que tenha ajudado



  - Original Message - 
  From: dorivalbaldo 
  To: [EMAIL PROTECTED] 
  Sent: Wednesday, October 20, 2004 4:43 PM
  Subject: [delphi-br] Quick Report




  Boa tarde a todos

  Tenho o seguinte problema: Quick Report x Impressao Duplex

  Não sei se alguem já teve algum problema parecido: na empresa onde 
  trabalho compramos uma impressora q imprime frente e verso (Duplex), 
  qq impressao, exceto do sistema, funciona normalmente no modo Duplex, 
  mas qdo utilizo o sistema nao consigo.
  Será q tem alguma solucao???
  Será q é melhor trocar de componente de impressão???

  Obrigado


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



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

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [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] [OF TOPIC] Windows XP

[Tasquim]

Bom dia!!

Provavelmente vc deve estar tentando mapear os micros com atribuições de 
administrador, ou seja, de administrador para administrador, tente usuario para 
administrador, faça um teste, crie um novo usuario na maquina da qual vc quer acessar 
a outra, mas coloque como "USUARIO" mesmo e não como administrador, pois no meu caso 
qdo tento acessar o mapeamento ele me pede o login e senha ( no caso o Login será o 
Usuario com o qual vc ligou a maquina Ex.. Administrador)
Um detalhe vc pode esconder o compartilhamento da rede (outros usuarios não enxergam) 
colocando o simbolo $ na frente do nome que vc deu ao compartilhamento Ex.: drive$, 
isto obriga vc a digitar o caminho, pois ele fica totalmente invisivel através do 
ambiente de rede, e ninguem conseguira acessar o drive se não souber o caminho.

Espero ter ajudado.
  - Original Message - 
  From: Leonardo 
  To: [EMAIL PROTECTED] 
  Sent: Thursday, October 21, 2004 3:45 PM
  Subject: [delphi-br] [OF TOPIC] Windows XP


  Gostaria de saber se alguém conhece alguma forma de fazer no windows 
  xp/w2k o mesmo que se consegue fazer no windows 98 ao se trabalhar com 
  pastas/diretórios de arquivos em uma rede, ou seja, no windows 98 eu 
  consigo proteger uma pasta específica com senha de forma que ela é 
  acessada na rede só diritando a senha de acesso.

  No windows xp e no w2k este implementação não funciona, pelo menos da 
  maneira como no windows 98.


  Desde já, agradecido!!!


  Leonardo Marcelino
  Corpo de Bombeiros Militares - Divinópolis/MG


[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] ou [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] Relatório Maximizado

[Eduardo Galvão]

Helton,

>Eduardo
>funcionou blz. Agora o q quero eh alterar o zoom de visualiazação, quero q
>fique largura de pagina, tem como?

Sim. Acrescente a unit ppviewr e, no mesmo evento
on create, coloque:

TppViewer(x.PreviewForm.Viewer).ZoomSetting := zsPageWidth;

Onde x é o nome do seu objeto Tppreport.

Saudações,
Eduardo Paci Galvão
Engenheiro UFMG 1990
Belo Horizonte - Brasil
www.egalvao.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] ou [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