[delphi-br] Sair da lista...

[JJW Informática Ltda . - Roberto]

Bom dia pessoal!

Estou tendo dificuldades para sair desta lista.
Estou enviando a mensagem para sair da lista e recebendo a mensagem para 
confirmação da saída, respondo-a mas continuo recebendo as mensagens... 

Re: [delphi-br] TServerSocket e TClientSocket

[JJW Informática Ltda . - Roberto]

aconselho vc a utilizar o TIdTCPServer e TIdTCPClient... componentes da Indy 
feitos pela nevrona que vem junto ao Delphi e que são os substitutos dos 
Sockets...


  - Original Message - 
  From: Anderson RB 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, November 17, 2006 4:48 PM
  Subject: [delphi-br] TServerSocket e TClientSocket


  Pessoal alguem ja mexeu com esses dois componentes para me tirar uma 
  duvida..
  A duvida é a seguinte, eu sei mexer com eles, enviando String de um para 
  outro, agora irei enviar arquivos, existe algum risco do arquivo chegar ao 
  seu destino corrompido 


  ___ 
  O Yahoo! está de cara nova. Venha conferir! 
  http://br.yahoo.com 


   

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

[delphi-br] SOAP

[JJW Informática Ltda . - Roberto]

Galera, bom dia!
Alguém poderia me enviar um exemplo de como fazer um servidor e cliente 
utilizando SOAP!?
To com uns exemplos aqui mais como não sei nada sobre SOAP, os clientes não 
estão conseguindo se conectar com o servidor mesmo que o servidor esteja 
rodando...

Tenho que rodar outra aplicativo?
Como funciona isso?!?


HELP!


Atenciosamente,

Roberto G. Vieweg Neto
JJW Informática Ltda
Av Getúlio Vargas, 370 - Centro - Timbó/SC - CEP: 89120-000
Fone: (47)3382-0629 - Fax: (47)3382-6604 - [EMAIL PROTECTED] 



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 

Re: [delphi-br] Compilador em linha de comando

[JJW Informática Ltda . - Roberto]

Seguinte cara, o que vc está tentando fazer não irá funcionar se vc não possuir 
os arquivos do diretório LIB do delphi, os arquivos .BPL do system32 
relacionados ao seu delphi ...
Então, primeiramente coloque-os em uma pasta à parte para por utilizar o DCC32.

Outra coisa, não tente executar o DCC32 com o delphi aberto que esses tipos de 
erros vão sempre acontecer.

O arquivo SEU_PROJETO.CFG, no parâmetro -U coloque o diretório que vc copiou os 
arquivos do delphi\lib, como por exemplo:

-UC:\DELPHILIB\

Agora seja feliz! :)
  - Original Message - 
  From: Henry Maltz Zylbersztejn 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, October 19, 2006 12:08 PM
  Subject: Re: [delphi-br] Compilador em linha de comando


  eu não tenho o delphi aqui, será que alguém pode me enviar o system.pas???

  obrigado!!!



  On 10/19/06, Joao Morais [EMAIL PROTECTED] wrote:
  
   Henry Maltz Zylbersztejn wrote:
  
Unit1.pas(6) Fatal: Unit not found: 'system.pas' or binary equivalents
   (DCU,
DPU)
   
sendo que na linha 6 só tenho o seguinte:
   
unit Unit1;
   
e esse system.pas nem existe no sistema...
   
obs: neste micro que estou executando o dcc32.exe, não tem o delphi
instalado, mas é justamente esse o objetivo... tem como?
  
   Você precisa das units.
  
   A system é uma unit default, é sempre incluída sem necessidade de
   aparecer no uses. Tá lá em ($delphi)\lib
  
   --
   João Morais
   
  


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

   

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 

[delphi-br] Probleminha com Multi-Camadas

[JJW Informática Ltda . - Roberto]

Bom dia Pessoal!!!

Seguinte pessoal, resumidamente:
Tenho clientes que acessam um servidor WTS remotamente, e para que meu 
sistema tenha acesso as ECF's dos micros locais, desenvolvi uma biblioteca 
ActiveX com datasnap utilizando SocketConnection, que fica rodando no micro 
local, então o sistema que está rodando no WTS conecta-se no micro local e 
envia os comandos da ECF por esse programa servidor que dispara os comandos 
localmente.
O problema é que o cliente ao conectar pede ao servidor sua versão e 
verifica se o ele está desatualizado, se sim, envia a nova versão do próprio 
servidor e o servidor pede para todos os clientes conectados á ele, se 
desconectarem para que ele possa se atualizar, agora, como faço para que o 
biblioteca se atualize com o novo arquivo?
Já fiz a transferência da dll mais não estou consegindo fazer com que a DLL 
se atualize
Como poderia fazer isso?


Atenciosamente,

Roberto G. Vieweg Neto
JJW Informática Ltda
Av Getúlio Vargas, 370 - Centro - Timbó/SC - CEP: 89120-000
Fone: (47)3382-0629 - Fax: (47)3382-6604 - [EMAIL PROTECTED] 



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 

[delphi-br] Compilar por linha de comando

[JJW Informática Ltda . - Roberto]

Bom dia pessoal!!!
Bem, estou com um problemão!!!

Estou desenvolvendo uma ferramenta interna para a empresa para baixar do CVS 
uma determinada versão e compilar a mesma após baixada.
O problema é na hora compilar... Basicamente estou utilizando a seguinte 
rotin para fazer a compilação:

Pro exemplo, compilando uma package (.dpk)

Crio o dcc32.cfg a partir do Pacote.cfg
Adiciono dentro do dcc32.cfg em -LE (parâmetro para informar aonde estão as 
packages requeridas) C:\Windows\System32;C:\Arquivos de 
Programas\Borland\Delphi7\Bin
A linha de comando para compilar fica então: dcc32 -B Pacote.dpk

Quando a compilação começa da o erro:

Borland Delphi Version 15.0
Copyright (c) 1983,2002 Borland Software Corporation
Pacote.dpk(29) Fatal: Required package 'rtl' not found

O mais interessante é que as vezes compila, mais as vezes não compila 
além pode me dar uma luz ? 



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 

Re: [delphi-br] Problema com interfaces.

[JJW Informática Ltda . - Roberto]

Resaltando, caso vc trabalhe com variáveis de tipo INTERFACE no private de um 
form ou datamodule, coloque no OnDestroy do seu form a atribuição NIL para a 
variável, caso não fizer isso, poderão ocorrer erros muito estranhos no 
fechamento do seu Form/DataModule.

Tive uma baita dor de cabeça até descobrir isso.
  - Original Message - 
  From: Ricardo Lima Mariz 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, August 29, 2006 9:55 AM
  Subject: Re: [delphi-br] Problema com interfaces.


  Elazar obrigado pela ajuda!

  Esse código não é o meu eu coloquei ai apenas para exemplificar o meu 
problema, logo abaixo eu coloquei o texto Implementos os metodos da 
interface, os metodos que reclamou ai eu os implementei, mas eu ja consegui 
resolver, o problema era que eu tava dando um cast de um objecto para uma 
interface, e isso tava gerando os erros.

  Valeu pela força.
- Original Message - 
From: Elazar Dornelles Ceza 
To: delphi-br@yahoogrupos.com.br 
Sent: Tuesday, August 29, 2006 9:05 AM
Subject: RES: [delphi-br] Problema com interfaces.


[***]
Estou tentando trabalhar com interfaces, mas ta complicado.

Tenho
MinhaInterface=interface
   function GetNome:String;
   procedure SetNome(Value : String); 
   property nome:string read GetNome write SetNome;
end;

MeuObjeto=Class(TInterfacedObject,MinhaInterface);
end;

Implementos os metodos da interface.

Faço um codigo assim.

Var
  Obj : MeuObjeto;
begin
   Obj := MeuObjeto.create;
   Obj.Nome := 'Teste';
   ShowMessage(Obj.Nome);///Nesse ponto da access violation.
end;

Está dando acess violation quando vou tentar da um showmessage mostrando
o conteudo de Obj.nome, quando eu vou debugando e paro com o mouse em
cima de Obj.Nome ele mostra o conteudo certo, não sei o pode está
acontecendo.

Outro problema é quando eu tento dar um free em obj também da access
violation.

Qual pode da uma lúz pra solucionar esses problemas?

At.
Ricardo Lima

[*]


Amigo, não leva a mal não mas como conseguiu compilar isto
...o compilador do delphi (pelo menos aqui pra mim) dis que eu não
implementei os metodos da interface...

Pra funcionar voce tem que fazer assim olha.

  { Interfaces funcionam como um contrato apenas...um contrato que duas
aplicações
entende os seus 'termos' para poder utiliza-la Por isso em uma
interface
não se implementa nada, apenas declara os metodos...(metodos estes
que serão 
implementados no objetos que implementar esta interface)}

  MinhaInterface = interface
   function  GetNome:String;
   procedure SetNome(Value : String); 
   property  Nome : string read GetNome write SetNome;
  end;

  { Ok, dada a interface acima agora eu vou criar um objeto pra
implementar o 'contrato', 
ou aliar, criar os mecanismos que vai fazer o contrato funcionar.
Normalmente as interfaces podem ser utilizadas em Units separadas
dos codigos fontes...
Mas necessárias para compilar o objeto }
  MeuObjeto = class(TInterfacedObject, MinhaInterface)
  private
Fnome : String  // Aqui tem a propriedade
  public
{ Estes proximos dois procedimentos DEVEM existir em TODOS os
objetos que
  forem implementar a MinhaInterface (lembra do contrato)}
function  GetNome:String;
procedure SetNome(Value : String); 

property Nome : String read GetNome write SetNome;
  end;

  {...}

  implementation

  {...}
  function  MeuObjeto.GetNome:String;
  begin
Result := FNome;
  end;

  procedure MeuObjeto.SetNome(Value : String); 
  begin
FNome := Value;
  End;

  { ai voce declara uma variavel do seu objeto }
  var
vObjeto : MinhaInterface;
  begin
vObjeto := MeuObjeto.Create;
vObjeto.Nome := 'Elazar';

{...}
ShowMessage('O nome do objeto é: ' vObjeto.Nome);


Certo meu camarada...

Elazar



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

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

   

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

* O uso que você faz do Yahoo! Grupos está sujeito aos:

Re: [delphi-br] Pode o BDE ser instalado gratuitamente? ( off-topic )

[JJW Informática Ltda . - Roberto]

Pode, é só vc não cobrar a sua taxa de instalação do sistema ao seu cliente...
HEHEHEHEHEHE!
BDE é free, desde que sua empresa possua as licenças do Delphi, eu acho!
  - Original Message - 
  From: Luiz Eduardo Oliveira Fonseca 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Sunday, August 27, 2006 7:06 PM
  Subject: Re: [delphi-br] Pode o BDE ser instalado gratuitamente? ( off-topic )


  pode sim 

  On 8/27/06, Francisco - Mol [EMAIL PROTECTED] wrote:
  
   sim
  
 - Original Message -
 From: Joaquim Macedo
 To: delphi-br@yahoogrupos.com.br
 Sent: Sunday, August 27, 2006 12:48 PM
 Subject: [delphi-br] Pode o BDE ser instalado gratuitamente? ( off-topic
   )
  
  
 Olá a todos.
  
  
 Tenho um programa feito em Delphi e que usa o BDE.
 O BDE pode ser instalado gratuitamente nas máquinas do meu cliente?
  
  
 Desde já o meu muito obrigado.
  
 Cumprimentos,
 Joaquim.
  
  
  
  
  
  
  
  
   [As partes desta mensagem que não continham texto foram removidas]
  
  
   
  



  -- 



  Atenciosamente, Luiz Eduardo.

  
   Desenvolvimento de Sistemas PHP e Delphi

   Manutenção em Base de Dados MySQL , Interbase/Firebird e MS Access ...

  Fone: (12) 8143-7191
  email alternativo: [EMAIL PROTECTED]

  


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

   

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 

Re: [delphi-br] TStrings

[JJW Informática Ltda . - Roberto]

Cara, TStrings é uma classe que controla uma lista de strings.

Memo.Lines é uma instância desse objeto. Você não pode atribuir um objecto para 
um tipo primitivo string.

Para isso vc deve utilizar:

var S: string;

S := Memo.Lines.Text; 

ou
 
Memo.Lines.Text := S;
  - Original Message - 
  From: Julio Cesar 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Sunday, August 27, 2006 3:10 PM
  Subject: Re: [delphi-br] TStrings


  form2.memo1.lines.TEXT?



  Julio Cesar
  [EMAIL PROTECTED]
  +353 (87) 2184139
  +353 (091) 630317


- Original Message - 
From: Bruno 
To: Delphi-Br 
Sent: Saturday, August 26, 2006 7:29 PM
Subject: [delphi-br] TStrings


Boa tarde ,



Estou tentando passar uma variável string para a form2.memo1.lines e não tá
dando certo. O compilador diz que String é diferente de TString e que
TString é o do memo.

Alguém sabe como posso contornar o problema ?





Abraços,



Bruno.


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




 

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

   

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 

Re: [delphi-br] Dúvida com Edit

[JJW Informática Ltda . - Roberto]

Vc deve estar fazendo algo errado cara, tem que ser assim:

var
  Numero: Integer;
begin
  Numero := StrToInt(Edit1.Text);
end;

Confira o tipo das variáveis...
  - Original Message - 
  From: Jean 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, August 25, 2006 9:15 AM
  Subject: Re: [delphi-br] Dúvida com Edit


  Veja se serve pra alguma coisa:

  var  st :string;

  st := form2.edit1.text;



  - Original Message - 
From: Bruno 
To: Delphi-Br 
Sent: Thursday, August 24, 2006 4:36 PM
Subject: [delphi-br] Dúvida com Edit


Boa tarde galera,

Estou querendo pegar um valor digitado num edit e converter para inteiro
fazendo assim:

numero := form2.numero.text.AsString;

Mas meu compilador diz que As String é um objeto não definido para a
classe.

tentei fazer assim também

numero := StrToInt (form2.numero.text);

Mas meu compilador diz queTedit e String são dois tipos incompatíveis.

Alguém tem alguma idéia de como eu poderia pegar um campo edit e converter
em String ?

Abraços,

Bruno.


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




 


  --


No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.405 / Virus Database: 268.11.5/425 - Release Date: 22/08/06


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

   

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 

Re: [delphi-br] Editor de ícones

[JJW Informática Ltda . - Roberto]

Microangelo é pago

Procure no google por PE Module Explorer, FREE-OPEN SOURCE, e feito em DELPHI!
  - Original Message - 
  From: Walter Alves Chagas Junior 
  To: 'delphi-br@yahoogrupos.com.br' 
  Sent: Friday, August 25, 2006 9:07 AM
  Subject: RES: [delphi-br] Editor de ícones


  De todos que conheço e já tive contato, o Microangelo é muito bom, o
  problema é que ele é pago e funciona só por 30 dias. Se o que voce for
  fazer, não for muito demorado, você pode fazer nele durante o prazo da
  avaliação.

  http://www.microangelo.us/



  []s

  Walter Alves Chagas Junior
  Projeto e desenvolvimento de sistemas
  Telemont Engenharia de telecomunicações S/A
  Belo Horizonte - MG - Brasil
  [EMAIL PROTECTED]
  Fone: (31) 3389-8215 Fax: (31) 3389-8200

  Parabens Telemont - Somos a 8ª maior empresa do Brasil no segmento de
  construção!!


  -Mensagem original-
  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
  nome de Desenvolvimento (Anderson)
  Enviada em: sexta-feira, 25 de agosto de 2006 08:57
  Para: Grupo Yahoo (Delphi)
  Assunto: [delphi-br] Editor de ícones


  alguém aí conhece um editor de ícones que permita trabalhar mais que 16
  cores? 
  É q ainda uso o delphi 5... 


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



  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 



  Links do Yahoo! Grupos








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

   

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 

Re: [delphi-br] Alterar View via Delphi

[JJW Informática Ltda . - Roberto]

DROP VIEW
CREATE VIEW...
No FB1.5 tem um novo comando chamado RECREATE VIEW

  - Original Message - 
  From: Moked - Tamara (Brazil) 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, August 21, 2006 10:08 AM
  Subject: [delphi-br] Alterar View via Delphi




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

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

  Pessoal, como faço para alterar uma View do meu banco Firebird via delphi?

  Esta View é forma por um select semelhante ao q se segue:

  Select Codigo, Numero, Nome from Pessoa where cadastro is null;

  Preciso alterar este select para:

  Select Codigo, Numero, Nome from Pessoa where cadastro is null and Codigo not 
in(select Codigo from Ids where Id = 'XX');


  Como faço para alterar via programação Delphi esta View???

  Obrigada,


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

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


  O emitente da mensagem é o responsável por seu conteúdo e divulgação, 
proibindo sua reprodução sem a prévia autorização do mesmo. 
  O conteúdo da presente mensagem é exclusivo para o/s destinatário/s e caso 
tenha recebido este e-mail por engano, por  favor  apaga-o e notifique o 
remetente. 
  Antes de imprimir pense em nosso compromisso com o Meio Ambiente e o 
comprometimento com os custo envolvidos! 





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

   

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 

Re: [delphi-br] Alterar View via Delphi

[JJW Informática Ltda . - Roberto]

Cara, vc tem q executar assim, pro exemplo, utilizando DBExpress

SQLConnection1.Exeute('DROP VIEW TESTE');
SQLConnection1.Exeute('CREATE VIEW TESTE ');

O execute assim como o ExecSQL do TSQLDataset aceitam somente 1 comando por 
vez, nao pode colocar 2 comandos juntos q nao funciona
  - Original Message - 
  From: Moked - Tamara (Brazil) 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, August 21, 2006 12:18 PM
  Subject: RES: [delphi-br] Alterar View via Delphi


  Roberto,

  Eu tentei  também o Recreate View mas tb ñ deu certo o pior pelo 
IbExpert eu consigo criar e recriar numa boa... eu to achando q o problema esta 
na atribuição de valor... Ids where Id = 'XX');


  Obrigada,

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


  

  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de JJW 
Informática Ltda. - Roberto
  Enviada em: segunda-feira, 21 de agosto de 2006 10:47
  Para: delphi-br@yahoogrupos.com.br
  Assunto: Re: [delphi-br] Alterar View via Delphi


  DROP VIEW
  CREATE VIEW...
  No FB1.5 tem um novo comando chamado RECREATE VIEW

- Original Message - 
From: Moked - Tamara (Brazil) 
To: delphi-br@yahoogrupos.com.br 
Sent: Monday, August 21, 2006 10:08 AM
Subject: [delphi-br] Alterar View via Delphi




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

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

Pessoal, como faço para alterar uma View do meu banco Firebird via delphi?

Esta View é forma por um select semelhante ao q se segue:

Select Codigo, Numero, Nome from Pessoa where cadastro is null;

Preciso alterar este select para:

Select Codigo, Numero, Nome from Pessoa where cadastro is null and Codigo 
not in(select Codigo from Ids where Id = 'XX');


Como faço para alterar via programação Delphi esta View???

Obrigada,


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

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


O emitente da mensagem é o responsável por seu conteúdo e divulgação, 
proibindo sua reprodução sem a prévia autorização do mesmo. 
O conteúdo da presente mensagem é exclusivo para o/s destinatário/s e caso 
tenha recebido este e-mail por engano, por  favor  apaga-o e notifique o 
remetente. 
Antes de imprimir pense em nosso compromisso com o Meio Ambiente e o 
comprometimento com os custo envolvidos! 





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

 

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




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

   

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 

Re: [delphi-br] Formatar variavel

[JJW Informática Ltda . - Roberto]

FormatFloat('0', 12); - '00012'
FormatFloat('0.00,', 1012.50); - '1.012,50'
  - Original Message - 
  From: Renan 
  To: Delphi Br 
  Sent: Monday, August 21, 2006 1:44 PM
  Subject: [delphi-br] Formatar variavel


  Como faço para formatar uma variavel string ???

  tenho uma sequencia de numeros, mas estão armazenados em uma variavel string, 
e gostaria de colocar uns 0 na frente. 
  Ex: 01
02

  Mas na minha variavel só tem o 1 ou o 2

  grato

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

   

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 

Re: [delphi-br] Gravar data Vazia

[JJW Informática Ltda . - Roberto]

Informa NULL:

...ParamByName('DataPagamento').AsVariant := Null;

see não funcionar, faz direto no SQL

Update TABELA set CAMPO = null ...
  - Original Message - 
  From: Ailton Branco 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, August 21, 2006 2:32 PM
  Subject: [delphi-br] Gravar data Vazia


  Tenho um campo onde eu Gravo a data de pagamento, porém na hora de 
  fazer um estorno preciso limpar o conteudo da data, como faço para 
  gravar a data vazia.

  Exemplo
vsSql := 'update ContasPagarParcela set 
 DataPagamento  =:DataPagamento,
 ValorPagamento =:ValorPagamento,
  Where (idContasPagar =:idContasPagar) and (Parcela   
  =:Parcela) 

Qry.SQL.Add(vsSql);
Qry.Params.ParamByName('DataPagamento').AsDateTime  := ??;
Qry.Params.ParamByName('ValorPagamento').AsCurrency := 0 ;
Qry.Params.ParamByName('idContasPagar').AsCurrency  := 1 ;
Qry.Params.ParamByName('Parcela').AsCurrency:= 1 ;
Qry.ExecSql;







   

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 

Re: [delphi-br] Ocultar Aplicação no XP

[JJW Informática Ltda . - Roberto]

não ?!!!
  - Original Message - 
  From: cchirolli 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, August 21, 2006 3:38 PM
  Subject: [delphi-br] Ocultar Aplicação no XP


  Olá pessoal, tem alguma maneira de ocultar uma plicação da litas de 
  aplicativos e/ou de processos do win XP ou uma maneira de impedir q a 
  aplicação seja finalizada pelo gerenciador de tarefas, sem ter q 
  bloquear todo o gerenciador?

  Obrigado,
  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]
 
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] MDO

[JJW Informática Ltda . - Roberto]

Se vc estiver utilizando a versão CLASSIC SERVER do Firebird/Interbase não irá 
funcionar. o Classic Server cria 1 processo do fbserver.exe por vez e retorna a 
lista de usuário conectados sempre como 1. para resolver isso, utilize a versão 
Super Server
  - Original Message - 
  From: Gilson 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, August 21, 2006 3:37 PM
  Subject: [delphi-br] MDO


  Caros colegas,



  Para determinar a quantidade de usuários que estão acessando a base de dados
  utilizando o IBX eu usava o componente IbDataBaseInfo da seguinte maneira:



  'Usuários Conectados: '+inttostr(dados.IbDatabaseInfo1.UserNames.Count);



  E funcionava muito bem



  Agora estou tentando fazer a mesma coisa utilizando o MDO com um componente
  correspondente o MDODatabaseInfo desta forma:



  'Usuários Conectados: '+inttostr(dados.MDODatabaseInfo1.UserNames.Count);



  Mas ele não está retornando a quantidade correta de usuários conectados à
  base de dados, ou seja, ele sempre mostra como se apenas um usuário
  estivesse conectado apesar de haver vários!



  Alguém poderia dar alguma dica de como posso obter a quantidade correta de
  usuários que estão acessando a base de dados utilizando o MDO!!



  Obrigado,



  Gilson







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

   

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 

Re: [delphi-br] Travar Sistema

[JJW Informática Ltda . - Roberto]

uses
  Forms,
  Classes,
  SysUtils,
  Windows,
  Controls,
  Psapi,
  tlhelp32;

type
  TJJWProcessInformation = record
FileName: string;
Path: string;
  end;

  TJJWProcessList = array of TJJWProcessInformation;

// retira a lista de processos de do windows 98  
procedure CreateWin9xProcessList(var AList: TJJWProcessList);
var
  hSnapShot: THandle;
  ProcInfo: TProcessEntry32;
  I: Integer;
begin
  SetLength(AList, 0);

  hSnapShot := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if (hSnapShot  THandle(-1)) then
  begin
ProcInfo.dwSize := SizeOf(ProcInfo);
if (Process32First(hSnapshot, ProcInfo)) then
begin
  I := Length(AList);
  SetLength(AList, I +1);
  AList[I].FileName := ExtractFileName(ProcInfo.szExeFile);
  AList[I].Path := ExtractFilePath(ProcInfo.szExeFile);

  while (Process32Next(hSnapShot, ProcInfo)) do
  begin
I := Length(AList);
SetLength(AList, I +1);
AList[I].FileName := ExtractFileName(ProcInfo.szExeFile);
AList[I].Path := ExtractFilePath(ProcInfo.szExeFile);
  end;
end;
CloseHandle(hSnapShot);
  end;
end;

// retira a lista de processos do windows NT/2000/XP/2003
procedure CreateWinNTProcessList(var AList: TJJWProcessList);

  type
PTOKEN_USER = ^TOKEN_USER;

_TOKEN_USER = record
  User: TSidAndAttributes;
end;

TOKEN_USER = _TOKEN_USER;

  // retorna o domínio e usuário dono de um processo
  function GetUserAndDomainFromPID(ProcessId: DWORD;
var User, Domain: string): Boolean;
  var
hToken: THandle;
cbBuf: Cardinal;
ptiUser: PTOKEN_USER;
snu: SID_NAME_USE;
ProcessHandle: THandle;
UserSize, DomainSize: DWORD;
bSuccess: Boolean;
  begin
Result := False;
ProcessHandle := OpenProcess(PROCESS_QUERY_INFORMATION, False, ProcessId);
if ProcessHandle  0 then
begin
//  EnableProcessPrivilege(ProcessHandle, 'SeSecurityPrivilege', True);
  if OpenProcessToken(ProcessHandle, TOKEN_QUERY, hToken) then
  begin
bSuccess := GetTokenInformation(hToken, TokenUser, nil, 0, cbBuf);
ptiUser  := nil;
while (not bSuccess) and (GetLastError = ERROR_INSUFFICIENT_BUFFER) do
begin
  ReallocMem(ptiUser, cbBuf);
  bSuccess := GetTokenInformation(hToken, TokenUser, ptiUser, cbBuf, 
cbBuf);
end;
CloseHandle(hToken);

if not bSuccess then
  Exit;

UserSize := 0;
DomainSize := 0;
LookupAccountSid(nil, ptiUser.User.Sid, nil, UserSize, nil, DomainSize, 
snu);
if (UserSize  0) and (DomainSize  0) then
begin
  SetLength(User, UserSize);
  SetLength(Domain, DomainSize);
  if LookupAccountSid(nil, ptiUser.User.Sid, PChar(User), UserSize,
PChar(Domain), DomainSize, snu) then
  begin
Result := True;
User := StrPas(PChar(User));
Domain := StrPas(PChar(Domain));
  end;
end;

if bSuccess then
begin
  FreeMem(ptiUser);
end;
  end;
  CloseHandle(ProcessHandle);
end;
  end;

  // retorna o nome do usuário logado atualmente
  function _GetUserName : string;
  const
MAX_USER_NAME_LEN = 254;
  var
UserName: string;
UserNameLen: DWORD;
  begin
UserNameLen := MAX_USER_NAME_LEN - 1;
SetLength(UserName, MAX_USER_NAME_LEN);
if GetUserName(PChar(UserName), UserNameLen) then
  Result := Copy(UserName, 1, UserNameLen -1)
else
  Result := EmptyStr;
  end;

var
  PIDArray: array [0..1023] of DWORD;
  cb: DWORD;
  I, J: Integer;
  ProcCount: Integer;
  hMod: HMODULE;
  hProcess: THandle;
  ModuleName: array [0..300] of Char;
  User, Domain, CurrentUser: string;
begin
  CurrentUser := _GetUserName;

  EnumProcesses(@PIDArray, SizeOf(PIDArray), cb);
  ProcCount := cb div SizeOf(DWORD);
  for I := 0 to ProcCount - 1 do
  begin
hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or
  PROCESS_VM_READ,
  False,
  PIDArray[I]);
if (hProcess  0) then
begin
  GetUserAndDomainFromPID(PIDArray[I], User, Domain);

  EnumProcessModules(hProcess, @hMod, SizeOf(hMod), cb);
  GetModuleFilenameEx(hProcess, hMod, ModuleName, SizeOf(ModuleName));

  if AnsiSameText(User, CurrentUser) then
  begin
J := Length(AList);
SetLength(AList, J +1);
AList[J].FileName := ExtractFileName(ModuleName);
AList[J].Path := ExtractFilePath(ModuleName);
  end;

  CloseHandle(hProcess);
end;
  end;
end;

// retira a lista de processos independente da versão do windows
procedure GetProcessList(var AList: TJJWProcessList);
var
  ovi: TOSVersionInfo;
begin
  ovi.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
  GetVersionEx(ovi);
  case ovi.dwPlatformId of
VER_PLATFORM_WIN32_WINDOWS: CreateWin9xProcessList(AList);
VER_PLATFORM_WIN32_NT: CreateWinNTProcessList(AList);
  end
end;

--- USANDO -

  

Re: [delphi-br] OFF-TOPIC: Qual a melhor engine de SCRIPT Pascal ??

[JJW Informática Ltda . - Roberto]

Cara, faça simplesmente o seguinte.

www.remobjects.com aí tem uma packages de componentes FREE e OPENSOURCE que 
interpreta scripts de PASCAL. Ele não compila em EXE, mais o EXE vc pode criar 
e customizar os comandos, assim vc pode salvar os seus PAS encriptados e sempre 
executar pelo seu EXE.
Eu utilizei essa package para adicionar enventos ao meu gerados de relatórios.
  - Original Message - 
  From: Henry Maltz Zylbersztejn 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, August 18, 2006 8:44 AM
  Subject: Re: [delphi-br] OFF-TOPIC: Qual a melhor engine de SCRIPT Pascal ??


  claro...

  eu já trabalhei com o turbo pascal, antes de existir o delphi...

  até já instalei ele aqui, via dos

  mas queria saber se tem como compilar o .pas sem abrir o turbo pascal...

  tipo: quero digitar um comando no dos(ex: tp.exe teste.pas) e compilar ali
  mesmo, e caso tenha algum erro, me mostre ali no dos mesmo

  alguém sabe?

  valeu!!!

  On 8/17/06, Tiago [EMAIL PROTECTED] wrote:
  
Então vc quer um COMPILADOR pascal... nada a ver com engines ou aqueles
   links que postou, aquilo são COMPONENTES para o Delphi!!!
   Pode usar o turbo pascal... a menor versão pesa cerca de 2 mbs...
  
   entendeu
  
  
  
 - Original Message -
 From: Henry Maltz Zylbersztejn
 To: delphi-br@yahoogrupos.com.br
 Sent: Thursday, August 17, 2006 5:47 PM
 Subject: Re: [delphi-br] OFF-TOPIC: Qual a melhor engine de SCRIPT
   Pascal ??
  
  
 tipo: tenho um .pas e quero compilar ele pra ver se ele tem erros ou não
  
  
 mas n quero um software que eu tenha que instalar na máquina... queria
 somente algum exe que eu pudesse rodar pelo dos e compilar o .pas...
  
 entendeu? alguém conhece?
  
 valeu
  
  
 On 8/17/06, Walter Alves Chagas Junior  [EMAIL PROTECTED] wrote:
 
   
 
  acho que voce não soube foi expressar bem sua dúvida
 
  []s
 
  Walter Alves Chagas Junior
  Projeto e desenvolvimento de sistemas
  Telemont Engenharia de telecomunicações S/A
  Belo Horizonte - MG - Brasil
  [EMAIL PROTECTED]
  Fone: (31) 3389-8215 Fax: (31) 3389-8200
 
  Parabens Telemont - Somos a 8ª maior empresa do Brasil no segmento de
  construção!!
 
 
  -Mensagem original-
  De: delphi-br@yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br
   ]Em
  nome de Henry Maltz Zylbersztejn
  Enviada em: quinta-feira, 17 de agosto de 2006 17:02
  Para: delphi-br@yahoogrupos.com.br
  Assunto: Re: [delphi-br] OFF-TOPIC: Qual a melhor engine de SCRIPT
  Pascal ??
 
 
 
  Alguém conhece algum compilador pascal que não precise instalar no
  computador???
 
  Ou seja, quero compilar um .pas somente para ver se tem erros ou
   não...
 
  valeu
 
 
  On 8/17/06, Fernando Nomellini [EMAIL PROTECTED]  wrote:
  
Olá !
   Aqui na empresa em um projeto Delphi muito grande estamos utilizando
   o
   Pascal Script da REM Objects; Não chegamos a testar os outros, mas o
  
  pascal
   script está atendendo bem.
  
   []
   Fernando Nomellini
 - Original Message -
 From: Hélder Rodrigues
 To: delphi-br@yahoogrupos.com.br
 Sent: Wednesday, August 16, 2006 6:42 PM
 Subject: [delphi-br] OFF-TOPIC: Qual a melhor engine de SCRIPT
   Pascal
  ??
  
  
 Oi Pessoal ...
  
 Eu tô tirar uma dúvida ...
  
 ... qual engine de Script Pascal vocês acham melhor:
  
 1) TMS Scripter Studio - http://www.tmssoftware.com/scriptstudio.htm
  
  
 2) FastScript -
   http://www.fast-report.com/en/products/products.php?BID=24
  
 3) Pascal Script 3.0 - http://www.remobjects.com/?ps
  
  
 ... eu sei que o da RemObjects é Free ... mas eu queria saber na
 parte técnica ... estou fazendo uns testes ... mas tô
 meio sem tempo pra fazer testes mais apurados ...
 alguém já analisou algum deles mais detalhadamente ??
  
 Valeu pessoal ...
  
 Att.
  
 Hélder
  
  
  
  
  
 ___
 Você quer respostas para suas perguntas? Ou você sabe muito e quer
   compartilhar seu conhecimento? Experimente o Yahoo! Respostas !
 http://br.answers.yahoo.com/
  
  
   [As partes desta mensagem que não continham texto foram removidas]
  
  
  
 
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 
  --
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
 
 
 
  Links do Yahoo! Grupos
 
 
 
 
 
 
 
 
 
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 
  
  
 [As partes 

Re: [delphi-br] Erro no DBExpress

[JJW Informática Ltda . - Roberto]

Use o seguinte comando

regsvr32 -u C:\ONDE_ESTA_SUA_MIDAS_DLL\midas.dll
regsvr32 C:\ONDE_ESTA_SUA_MIDAS_DLL\midas.dll

Deve resolver...
  - Original Message - 
  From: André de Araujo Garcia 
  To: Delphi - BR 
  Sent: Friday, August 18, 2006 9:00 AM
  Subject: [delphi-br] Erro no DBExpress


  Bom dia, pessoal.
  Se puderem me dar uma dica no problema abaixo:

  Estou desenvolvendo uma aplicação em: Delphi 7 + DBEXPRESS + Firebird 1.5

  Os componentes de acesso ao banco estão dispostos da seguinte maneira : 
SQLConnection+SqlQuery+DataSetProvider+ClientDataSet

  Aqui na minha máquina (WINDOWS 2000 SERVER), o programa funciona normalmente, 
sem problema nenhum, mais qdo eu instalei no servidor do Cliente

  ele apresenta o seguinte erro: Operation Not aplicable

  Pelo o que eu constatei, No servidor do cliente (WINDOWS 2000 - SERVER), tem 
um programa de uma outra empresa que utiliza SQLServer e justamente aonde tem 

  este programa instalado o meu programa não funciona... 

  Com algumas validações e teste usando o showmessage, eu constatei que o erro 
se dá justamente qdo eu abro qualquer ClientDataSet dentro do meu sistema.

  Gostaria de saber se alguém já passou por este tipo de problema, se puderem 
me dar uma dica de como eu posso contornar este problema.




  Atenciosamente

  André de Araujo Garcia





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




   

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 

Re: [delphi-br] Erro no DBExpress

[JJW Informática Ltda . - Roberto]

Faça o seguinte... execute o regsvr32 -u midas.dll para desregistrar a classe 
activex da midas. Agora, copie a midas de um dos computadores que funciona o 
seu sistema e coloca junto com o executável da sua aplicação...
  - Original Message - 
  From: Logos 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, August 18, 2006 2:03 PM
  Subject: Re: [delphi-br] Erro no DBExpress


  andre, tenho a vaga lembrança que isso ja aconteceu comigo. e tenho a vaga 
lembrança que tinha alguma coisa a ver com as dll do dbexpress e midas. tenta 
remover elas e reinstalar novamente.
- Original Message - 
From: André de Araujo Garcia 
To: delphi-br@yahoogrupos.com.br 
Sent: Friday, August 18, 2006 11:07 AM
Subject: Re: [delphi-br] Erro no DBExpress


Obrigado Logos e Roberto pela a atenção, 
eu já tinha feito isto, e também naum surtou efeito

Já tinha ate trocado a porta do servidor firebird, alterado no SQLConnecton 
a propriedade VendorLib de gds32 para FBclient.dll e nada!

  - Original Message - 
  From: JJW Informática Ltda. - Roberto 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, August 18, 2006 10:33 AM
  Subject: Re: [delphi-br] Erro no DBExpress


  Use o seguinte comando

  regsvr32 -u C:\ONDE_ESTA_SUA_MIDAS_DLL\midas.dll
  regsvr32 C:\ONDE_ESTA_SUA_MIDAS_DLL\midas.dll

  Deve resolver...
- Original Message - 
From: André de Araujo Garcia 
To: Delphi - BR 
Sent: Friday, August 18, 2006 9:00 AM
Subject: [delphi-br] Erro no DBExpress


Bom dia, pessoal.
Se puderem me dar uma dica no problema abaixo:

Estou desenvolvendo uma aplicação em: Delphi 7 + DBEXPRESS + Firebird 
1.5

Os componentes de acesso ao banco estão dispostos da seguinte maneira : 
SQLConnection+SqlQuery+DataSetProvider+ClientDataSet

Aqui na minha máquina (WINDOWS 2000 SERVER), o programa funciona 
normalmente, sem problema nenhum, mais qdo eu instalei no servidor do Cliente

ele apresenta o seguinte erro: Operation Not aplicable

Pelo o que eu constatei, No servidor do cliente (WINDOWS 2000 - 
SERVER), tem um programa de uma outra empresa que utiliza SQLServer e 
justamente aonde tem 

este programa instalado o meu programa não funciona... 

Com algumas validações e teste usando o showmessage, eu constatei que o 
erro se dá justamente qdo eu abro qualquer ClientDataSet dentro do meu sistema.

Gostaria de saber se alguém já passou por este tipo de problema, se 
puderem me dar uma dica de como eu posso contornar este problema.




Atenciosamente

André de Araujo Garcia





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




 

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

   


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




 


  --


No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.405 / Virus Database: 268.11.2/422 - Release Date: 17/08/2006


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

   

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 

Re: [delphi-br] Resolvido problema de e-mail HTML e anexos

[JJW Informática Ltda . - Roberto]

ixx, vc deveria ter dito que estava querendo enviar direto o email, esse código 
eu já tinha, só não passei pq pensei que vc queria que o email abrisse pronto 
com o cliente de email padrão do windows...

  - Original Message - 
  From: Francisco Carlos Andrade 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, August 18, 2006 2:26 PM
  Subject: [delphi-br] Resolvido problema de e-mail HTML e anexos


  Ola pessoal, estou colocando aqui a forma como eu consegui resolver o
  problema de enviar e-mail em formato html com uma imagem no inicio da
  mensagem e colocando arquivos em anexo, espero que essa rotina ajude as
  pessoas que estao com esse problema 
  a rotina foi feita usando componentes indy e o delphi7 
  Coloquei 1 componente TIdmessage e 1 componente TIDSmtp 
  VarNewText:TIdText; 
NewAttach:TIdAttachment; 
  begin 
Msg.Clear; 
Msg.Body.Clear; 
NewText := TIdText.Create(msg.MessageParts); 
NewText.ContentType:='text/HTML; 
NewText.Body.Add('HTMLBODY'); 
NewText.Body.Add('img src=http://www.caminho da imagem/imagem.JPG
  ALIGN=LEFT WIDTH=800 HEIGHT=130'); 
NewText.Body.Add('DIV DIV'); 
NewText.Body.Add('DIV DIV'); 
NewText.Body.Add('BRBR'); 
NewText.Body.Add('BRBR'); 
NewText.Body.Add('BRBR'); 
NewText.Body.Add('BRBR'); 
For x := 0 to memomensagem.Lines.Count do 
 NewText.Body.Add('DIVSTRONGFONT face=Times New Roman
  +memomensagem.Lines[x]+'/FONT/STRONG/DIV'); 

NewText.Body.Add('BRBR'); 
NewText.Body.Add('BRBR'); 
NewText.Body.Add('/BODYHTML'); 
  // Anexa a imagem ao corpo do email 
NewText := TIdText.Create(msg.MessageParts); 
NewText.ContentType := 'text/plain'; 
NewAttach := TIdAttachment.Create(msg.MessageParts,'c:\caminhoimagem\acao3
  jpg'); 
NewAttach.ExtraHeaders.Values['Content-ID'] := 'imagemfundo'; ; 

Msg.From.Text := editemail.Text; // e-mail de origem 
Msg.From.Name := editde.Text; //nome que aparecerá no provedor quando o
  destinatário verificar o e-mail 
Msg.Recipients.EMailAddresses := editdestino.Text; //e-mail destinatário 
Msg.Subject:= editassunto.Text; // assunto do e-mail 
Msg.CCList.EMailAddresses :=  editcopias.Text;// endereço que também
  receberá o e-mail; 
Msg.ReceiptRecipient.Text := msg.From.Text;  // auto resposta 
Idsmtp1.Host := 'smtp.'+ editprovedor.Text + '.com.BR;// seu provedor ex:
  terra 
Idsmtp1.Port := 25; //porta padrão para o envio de e-mail (SMTP) - Não
  mudar 
Idsmtp1.Username := editusername.Text;// Seu username 
Idsmtp1.Password := editsenha.Text;//Sua senha 
//Prioridade da mensagem 
Case comboprioridade.ItemIndex of 
  0: msg.Priority := mpHigh;  // Alta 
  1: msg.Priority := mpNormal; //Normal 
  2: msg.Priority := mpLow; //Baixa 
End; 

 //Envio de arquivos anexos 

For xAnexo := 0 to ListBoxanexos.Items.Count -1 do 
 Tidattachment.Create(msg.MessageParts , Tfilename(listboxanexos.Items
  Strings [xanexo])); 

Idsmtp1.Connect; 
Try 
  Idsmtp1.Send(msg); 
Finally 
  Idsmtp1.Disconnect; 
End; 

  Com essa rotina esta tudo de acordo com o que eu quero, se alguem puder
  analisar e melhorar a funcao, pois alem de colocar o caminho da imagem, aqui
  comigo somente funcionou qdo eu coloquei tambem em anexo a imagem, se eu
  tirar qualquer uma das 2 ocorre erro qdo recebo a mensagem. 
  Agradeco a todos os que me orientaram nessa jornada 

  - 
  Francisco Carlos de Andrade 
  [EMAIL PROTECTED] 
  [EMAIL PROTECTED] 
  [EMAIL PROTECTED] 
  [EMAIL PROTECTED]

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



   

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 

Re: [delphi-br] Re: Ponteiro de Interface?? [RESOLVIDO]

[JJW Informática Ltda . - Roberto]

Só outra dica sobre interfaces:

Eu tive esse problema, caso vc coloque uma variável no private, public, etc, de 
um TForm, TDataModule, é necessário no Destroy atribuir NIL para a variável, se 
não fizer, podem ocorrer na finalização do sistema, será que é BUG?

Exemplo:


TForm1 = class(TForm)
  procedure Form1Create(Sender: TObject);
  procedure Form1Destroy(Sender: TObject);
private 
  FInt: IMyInterface;
end;

implementation

procedure TForm1.Form1Create(Sender: TObject);
begin
  Fint := MeuObjetoComAInterface;
end;

procedure TForm1.Form1Destroy(Sender: TObject);
begin
  FInt := nil; // evita dor de cabeças, apesar de parecer inútil
end;

  - Original Message - 
  From: Filipe Belchior 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, August 15, 2006 6:08 PM
  Subject: [delphi-br] Re: Ponteiro de Interface?? [RESOLVIDO]


  blz galera, eis o acerto..


  PMinhaInterface = ^IMinhaInterface

  OutraInterface: IMinhaInterface

  OutraInterface := PMinhaInterface(ponteiro)^

  OutraInterface.UmMetodoDaInterface //CORRETO!



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



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





   

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 

Re: [delphi-br] Arquivo FTP!

[JJW Informática Ltda . - Roberto]

Por favor pessoal, delphi já vem com os componentes INDY, pra que baixar outros?
Cara, de uma olhada no componente IdFTPClient da palleta Indy Clients.

Existe um demo de Cliente de FTP da indy, caso vc não tenha os demos da INDY em 
%DELPHI%\Demos\indy entre no site www.nevrona.com/indy e baixe os demos da 
versão 9 que é do delphi.

Att.
  - Original Message - 
  From: Douglas Uesato - Depto de Informática 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, August 15, 2006 6:24 PM
  Subject: RES: [delphi-br] Arquivo FTP!


Há um excelente conjunto de Units freeware que vai te ajudar.
  Trata-se das units Synapse http://www.ararat.cz/synapse/ . 
Lá você vai encontrar o componente ftpsend, que apesar do nome ser
  meio contraditório ele também faz download dos arquivos, conforme pode ser
  visto neste link http://www.ararat.cz/synapse/docs/help/index.html .

  Atenciosamente,
  Douglas Uesato

  
  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
  nome de nunodetorres
  Enviada em: terça-feira, 15 de agosto de 2006 17:05
  Para: delphi-br@yahoogrupos.com.br
  Assunto: [delphi-br] Arquivo FTP!

  Olá!
  Aqui na nossa empresa temos sistema de palm que envia as suas 
  informações por ftp dentro de um pasta ftp://ftp.brturbo.com.br/OutBox/
  Gostaria de saber de um componente em dephi e seus funcionamentos para 
  acessar essa pasta e trazer para meu computador para dai então jogar 
  para meu banco de Dados essa informações...

  Valeu.






   

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 

Re: [delphi-br] Arquivo FTP!

[JJW Informática Ltda . - Roberto]

Falou bem, questão de gosto, vc pode citar X questões de prós e contras, mais 
isso muda de pessoa para pessoa. Synapse também utilizei, tanto ela como indy 
são bons, simplemente axo mais fácil utilizar Indy do que Synapse...

 Original Message - 
  From: Douglas Uesato - Depto de Informática 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, August 16, 2006 9:09 AM
  Subject: RES: [delphi-br] Arquivo FTP!


  Roberto,

Na boa cara, eu já usei muito a biblioteca Indy (versão 10) até eu
  conhecer a Synapse. Apesar da biblioteca Indy fazer o que ela se propõem,
  ela deixa muito a desejar em alguns quesitos:
  1- A versão que já vem instalado no Delphi, já é uma versão desatualizada;
  2- Para utilizar os componentes você obrigatoriamente tem estudar o Help e
  os Demos. Ele não possui uma interface nem um pouco intuitiva; 
  3- Ele instala 200 componentes e você utiliza apenas 1.

Na verdade é tudo uma questão de gosto, eu gosto muito do Synapse
  por ser uma unit simples, você declara e usa como qualquer outra unit de
  funções do Delphi.


  Atenciosamente,
  Douglas Uesato

  
  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
  nome de JJW Informática Ltda. - Roberto
  Enviada em: quarta-feira, 16 de agosto de 2006 07:31
  Para: delphi-br@yahoogrupos.com.br
  Assunto: Re: [delphi-br] Arquivo FTP!

  Por favor pessoal, delphi já vem com os componentes INDY, pra que baixar
  outros?
  Cara, de uma olhada no componente IdFTPClient da palleta Indy Clients.

  Existe um demo de Cliente de FTP da indy, caso vc não tenha os demos da INDY
  em 
  %DELPHI%\Demos\indy entre no site www.nevrona.com/indy e baixe os demos da
  versão 9 que é do delphi.

  Att.
- Original Message - 
From: Douglas Uesato - Depto de Informática 
To: delphi-br@yahoogrupos.com.br 
Sent: Tuesday, August 15, 2006 6:24 PM
Subject: RES: [delphi-br] Arquivo FTP!


  Há um excelente conjunto de Units freeware que vai te ajudar.
Trata-se das units Synapse http://www.ararat.cz/synapse/ . 
  Lá você vai encontrar o componente ftpsend, que apesar do nome ser
meio contraditório ele também faz download dos arquivos, conforme pode ser
visto neste link http://www.ararat.cz/synapse/docs/help/index.html .

Atenciosamente,
Douglas Uesato


De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de nunodetorres
Enviada em: terça-feira, 15 de agosto de 2006 17:05
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Arquivo FTP!

Olá!
Aqui na nossa empresa temos sistema de palm que envia as suas 
informações por ftp dentro de um pasta ftp://ftp.brturbo.com.br/OutBox/
Gostaria de saber de um componente em dephi e seus funcionamentos para 
acessar essa pasta e trazer para meu computador para dai então jogar 
para meu banco de Dados essa informações...

Valeu.






 

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



   

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 

Re: [delphi-br] Transação IBX x DBX

[JJW Informática Ltda . - Roberto]

Com DBX vc não controla a transação, quem faz esse controle é o ClientDataSet. 

No caso de um SQLDataSet.ExecSQL, o mesmo starteia e comita a transação ou da o 
rollback caso um erro ocorra.

Para utilizar master-detail com DBX, é necessário utilizar ninhagem de 
datasets, procure no Borland Developer Network sobre NestedDatasets

Att.
  - Original Message - 
  From: fabio_giro 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, August 16, 2006 10:02 AM
  Subject: [delphi-br] Transação IBX x DBX


  Usando D7 + FB 1.5.2 . Sei que quando se faz algum acesso ao banco é
  aberta uma transação. Usando query+datasetprovider+clientdataset. Se
  uso IBX, faço o seguinte:
ClientDataSet2.close;
ClientDataSet2.Open;
if IBQuery1.Transaction.InTransaction then
 begin
   showmessage('aberta');   -- sempre passa aqui
   IBQuery1.Transaction.Commit;
 end
else
   showmessage('fechada');

  Mas se usar DBX, como saber se a transação está aberta ou fechada?
ClientDataSet1.close;
ClientDataSet1.Open;
if SQLQuery1. ???
  E se usar SQLQuery1.ExecSql? 

  Obrigado.







   

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 

Re: [delphi-br] evento show

[JJW Informática Ltda . - Roberto]

Coloque um timer com Interval = 10 e com o enabled = TRUE e no código coloque

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := False;
  // Seu código
end;
  - Original Message - 
  From: Logos 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, August 16, 2006 2:38 PM
  Subject: Re: [delphi-br] evento show


  pois e, fiz o teste tambem neste evento. ele executa antes do form abrir, e 
depois do form abrir. por isso nao to usando ele.
- Original Message - 
From: Fabiano Frizzo 
To: delphi-br@yahoogrupos.com.br 
Sent: Wednesday, August 16, 2006 2:33 PM
Subject: Re: [delphi-br] evento show


no OnActivate ele é executado a hora que o form ja foi aberto
  - Original Message - 
  From: Francisco - Mol 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, August 16, 2006 1:56 PM
  Subject: [delphi-br] evento show


  pessoal, tenho um processo que executo no evento onshow do form, assim 
que o processo termina o form e aberto, teria como executar o processo depois 
que o form abrir?


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

   

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

 


  --


No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.405 / Virus Database: 268.10.10/419 - Release Date: 15/08/2006


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

   

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 

Re: [delphi-br] Erro - File not found:'Word2000.dcu'

[JJW Informática Ltda . - Roberto]

Cara, provavelmente vc andou utilizando componentes de terceiros... vc tem que 
procurar pela net o que essa unit Word2000 é... ou talvez na hora da instalação 
do delphi não instalou os pacotes corretamente...
  - Original Message - 
  From: Joaquim Macedo 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, August 16, 2006 3:21 PM
  Subject: [delphi-br] Erro - File not found:'Word2000.dcu'


  Olá a todos.


  Utilizo o Delphi 5 Enterprise, o BDE com MS Access.

  O disco rigido do computador onde tinha o Delphi morreu. Instalei o 
  Delphi noutra máquina, mas agora ao compilar a aplicação, obtenho o 
  seguinte erro:

  File not found:'Word2000.dcu'


  Alguém pode-me ajudar?


  Desde já o meu muito obrigado.


  Cumprimentos,
  Joaquim.





   

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 

Re: [delphi-br] qual o nome de um bom gerador de relatórios?

[JJW Informática Ltda . - Roberto]

Fast Report 3 - faz relatório para impressão gráfica e matricial, muito útil

 Original Message - 
  From: Alfeu Marcatto 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, August 14, 2006 2:20 PM
  Subject: Re: [delphi-br] qual o nome de um bom gerador de relatórios?


  Report Manager: http://reportman.sourceforge.net/

  Free, a partir do Delphi 4 (usando Active X),  Delphi 5 usando VCL), 
  DOT.Net, Mono.
  Uso-o até com xHarbour compilando Clipper.
  Windows e Linux.

  Alfeu




   

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 

Re: [delphi-br] Data e hora, coportamento extranho

[JJW Informática Ltda . - Roberto]

Cara , seguinte, em SQL vc usa a data assim:

select
  CAMPO
from
  TABELA
where
  CAMPO_DATA = '2006-12-31';

-MM-dd

Se não quiser usar assim, utilize via parâmetro...

:DATA
  - Original Message - 
  From: Andrei Luís 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, August 15, 2006 3:37 PM
  Subject: Re: [delphi-br] Data e hora, coportamento extranho


  No Firebird isso acontece também:

  qrTmp.ParamByName('wdata').asDate := Date;

  Neste caso você já está informando que o parâmetro é data, e está
  passando um parâmetro data e o BD trata corretamente.

  Não tem nada a ver com você ter o Firebird instalado na máquina, deve
  ser padrão do SQL.

  []
  Andrei

  Em 15/08/06, Luis Carlos Quinhone[EMAIL PROTECTED] escreveu:
   Realmente era isso, mas me tire uma dúvida. Pq quando eu passo a data como 
parâmetro a consulta aceita dd/mm/ e quando eu passo sem parâmento ele não 
aceita?
  
   Será que é pq eu estou com o Firebird instalado na máquina? Pq isso nunca 
tinha me acontecido antes... r
  
  
   Att
  
   Luis Carlos
  
  
  
 - Original Message -
 From: Andrei Luís
 To: delphi-br@yahoogrupos.com.br
 Sent: Tuesday, August 15, 2006 8:58 AM
 Subject: Re: [delphi-br] Data e hora, coportamento extranho
  
  
 Luis,
  
 Em Firebird, o separador de data deve ser . para que a data seja
 reconhecida como dd.mm., se usar / o Firebird entende que você
 está passando mm/dd/, veja se este comportamento não é o mesmo no
 Paradox.
  
 []
 Andrei
  
 Em 14/08/06, Luis Carlos Quinhone[EMAIL PROTECTED] escreveu:
  Pessoal, estou fazendo uma consulta SQL entre duas datas, assim:
 
  select * from tbfluxo where  Flu_Placa = 'JYB8947' AND Flu_Motorista = 
'14' AND Flu_Fornecedor = '12'  AND Flu_DataLanc BETWEEN  '01/06/2006'  AND 
'01/08/2006' AND Flu_Tipo = '1'
 
  Mas estou tendo um problema, a data no paradox está salva no formato 
dd/mm/ nos dbgrid mostra dd/mm/yyy mas quando é feito a consulta, dá erro, 
descobri que não está aceitando o formato que está sendo informado, só aceita 
se estiver nesse formato mm/dd/ olhei o sistema e o formato está correto 
dd/mm/, onde eu posso arrumar isso?
 
 
  Att
 
  Luis 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]
 
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] TNotifyEvent

[JJW Informática Ltda . - Roberto]

DLL's são Dynamic Link Library e não multi-plataforma...

Multi plataforma significa que roda em qualquer plataforma (MAC, Windows, 
Linux...)

Se vc quiser passar Objetos para um método em um pacote à parte do seu sistema, 
recomendo vc utilizar packages.
Para passar métodos para uma DLL, então sim vc pode utilizar DLL's pois o que 
será feito é nada mais que um CALLBACK da DLL, mais atenção, o TNotifyEvent é 
um procedimento de um objeto então deve cuidar pois vc já estará trabalhando 
com Objectos. Para vc utilizar isso corretamente, um exemplo:

Digamos que vc necessite executar um código da DLL e ele irá executar o click 
do Button1:

procedure CallBack_Dll;
begin
  Form1.Button1Click(nil);
end;


procedure TForm1.Button2Click(Sender : TObject);
var
  Dll: Cardinal;
  MetodoDaDll: procedure (X, Y: Integer; Callback: Pointer); stdcall;
begin
  Dll := LoadLibrary('sua.dll');
  @MetodoDaDll := GetProcAddress(Dll, 'NomeDoMetodoDaDll');
  MetodoDaDll(1, 1, @CallBack_Dll);
end;

O código acima então irá fazer:

1 - Carregar a DLL 
2 - Pegar o método da DLL
3 - Charmar o método da DLL passando 2 parâmetros quaisquer e o pointeiro para 
o método que será chamado pela DLL
4 - O método da DLL dispara o procedimento da sua aplicação que por sua vez 
dispara o click do button 1

Se quiser saber mais, mande um email em PVT que te faço um exemplo

  - Original Message - 
  From: Marcos Douglas 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, August 14, 2006 9:43 AM
  Subject: Re: [delphi-br] TNotifyEvent


  Anderson,
  Se me permite, gostaria de dar um conselho. Vc não deveria criar DLLs que
  funciona em somente uma linguagem. DLLs são, por natureza, multi-plataforma.
  Como o próprio nome diz, são bibliotecas que podem ser utilizadas por qq
  outro programa. Acho que vc deveria reescrever a DLL para que funcione em qq
  outra linguagem e não obrigar os outros a programar em Delphi (acredite, eles
  não irão fazê-lo).

  Abraços,

  --
  Marcos Douglas
  [EMAIL PROTECTED]

   Mensagem Original 
  From: Desenvolvimento \(Anderson\) [EMAIL PROTECTED]
  To: delphi-br@yahoogrupos.com.br
  Sent: Seg, Agosto 14, 2006 9:38 am
  Subject: Re: [delphi-br] TNotifyEvent

   é... o tempo é curto e a procura é pequena...
   logo, vou ter q obrigar a quem for usar a dll, a escrever em delphi...
   essa dll eu fiz pra meu proprio uso, pois estava cansado de copiar o mesmo
   código em várias aplicações...
   daí, se precisasse mudar... vc imaginar, né!
  
   com essas novas dlls q fiz, minha vida facilitou muito, e meu trabalho tem
   rendido mais.
  
   Valeu!
  
  
 - Original Message -
 From: Walter Alves Chagas Junior
 To: 'delphi-br@yahoogrupos.com.br'
 Sent: Monday, August 14, 2006 9:00 AM
 Subject: RES: [delphi-br] TNotifyEvent
  
  
 Anderson,
  
 A bem da verdade, o NotifyEvent é uma classe, que faz uso de API´s e
 Mensagens internas do Windows, e que  tornam viavel ao Delphi fazer uso
 daquele recurso.
  
 Para implementar este mesmo recurso visando sua portabilidade para outras
 linguagens/Ferramentas, o primeiro passo seria abrir uma investigação
   sobre
 quais API´s e Mensagens ele faz uso e interage. Uma vez obtida estas
 informações, você teria que implementar métodos que tornassem estas
   chamadas
 independentes da linguagem ou da ferramenta. Sei lá. Ao meu ver é muito
 trabalho pra pouco tempo possívelmente disponível pra isto.
  
 Uma dica interessante para você buscar o caminho das pedras, é pesquisar
   por
 exemplo, a existencia de Alguma MFC (Microsoft Fundation Class) que trate
 disto. Se tiver, dá pra implementar algo do tipo no Visual Studio.
  
 []s
  
 Walter Alves Chagas Junior
 Projeto e desenvolvimento de sistemas
 Telemont Engenharia de telecomunicações S/A
 Belo Horizonte - MG - Brasil
 [EMAIL PROTECTED]
 Fone: (31) 3389-8215 Fax: (31) 3389-8200
  
 Parabens Telemont - Somos a 8ª maior empresa do Brasil no segmento de
 construção!!
  
  
 -Mensagem original-
 De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
 nome de Desenvolvimento (Anderson)
 Enviada em: segunda-feira, 14 de agosto de 2006 08:29
 Para: Grupo Yahoo (Delphi)
 Assunto: [delphi-br] TNotifyEvent
  
  
 Bom dia,
  
 há certo tempo atrás, enviei uma questão sobre o Tnotifyevent, para poder
 gerar uma DLL.
 Bem, me enviaram um modelo, que deu tudo certo.
 Agora, eu distribuí a dll e tem gente em outras linguagens me perguntando
 como colocar a dll funcionando na linguagens deles.
 Pergunta: Será q esse TNotifyEvent é compatível em outras linguagens?
  
 Obrigado.
  
 Anderson
  
 [As partes desta mensagem que não continham texto foram removidas]
  
  
  
 --
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
  
  
  
 Links do Yahoo! Grupos
  
  
  
  
  
  
  
  
  
 [As partes desta mensagem que 

Re: [delphi-br] EMAIL COM ANEXO (Ultima vez)

[JJW Informática Ltda . - Roberto]

Cara seguinte, o INDY utiliza MIME para codificar, por sua vez nem todos os 
clientes de emails abrem emails MIME, um grande exemplo é o Microsoft Outlook.

No windows existe uma API chamada MAPI que tem fins de criar um email com o 
cliente de email padrão instalado (incredimail, outlook express, microsoft 
outlook, eudora, thunderbird..).

Mapi tem uma limitação que é o seguinte:
Não é possível criar emails com o corpo da mensagem em HTML e anexos ou vc cria 
um email com corpo HTML e sem anexos ou cria um email SEM FORMATAÇÃO com X 
anexos.

Bem, existe um site na net que ensina tudo sobre MAPI, pois vc pode fazer tudo 
via MAPI (acessar os contatos, enviar emails, logar e listar os emails, etc... 

Bem, vamos ao que interessa, entre no site WWW.TORRY.NET no lado direito existe 
um campo para pesquisa, nele digite MAPICONTROL e tecle enter. a consulta irá 
retornar um componente chamato TMapiControl, free e opensource, baixe ele, 
analize e altere algo se precisar, mais esse cara faz o que vc quer, CRIA 
EMAILS COM O CLIENTE DE EMAILS PADRÃO DO SEU WINDOWS.

Ps.: para criar um email com corpo HTML, basta deixar o corpo (body) sem texto, 
e anexar um arquivo HTML ao email. Assim quando o MAPI criar o email, se 
existir somente 1 anexo e ele for um HTML, esse anexo se torna o corpo da 
mesagem.

Espero ter ajudado, outro jeito, lhe garanto que GENERICAMENTE, não tem como! 
Ou vc usa MAPI ou estuda o maior número de clientes de emails para fazer a 
particularidade de cada um.
Eu mesmo pedir 2 semanas cassando na internet, foruns da borland entre outros, 
e foi o máximo que consegui fazer...

Att.
Roberto

  - Original Message - 
  From: Gabriel Herdt 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, August 14, 2006 1:45 PM
  Subject: [delphi-br] EMAIL COM ANEXO (Ultima vez)


  Como eu posso mandar email com ANEXO no DELPHI 2005 usando INDY 10.


  Observação: Algumas Funções do indy 9 são diferentes do indy 10,
  aqui esta minha dificuldade. Eu consegui mandar aquivos anexo só que
  o anexo chega em modo texto( Exemplo:

  This is a multi-part message in MIME format --
  DqBGwUtIiYFDepKCf=_kjY1lKRxJm7jSL6 Content-Type: text/plain Content-
  Transfer-Encoding: 7bit fdafaefc 2r 2rcrfe wef eger qg --
  DqBGwUtIiYFDepKCf=_kjY1lKRxJm7jSL6 Content-Type: application/octet-
  stream; name=SiteSql.txt Content-Transfer-Encoding: base64 Content-
  Disposition: attachment; filename=SiteSql.txt
  aHR0cDovL3d3dy5saWIuc2V2ZW4uY29tLmJyL2FtcGxpYXIuYXNwP2NvZGFydGlnbz04O
  DU= --DqBGwUtIiYFDepKCf=_kjY1lKRxJm7jSL6--
  )

  Observação: Já Olhei o Site do Clube Delphi entre outros mas todos
  sao para o Indy 9 e delphi 7.


  Desde Já Grato


  Ps: Repeti a mensagem pois ainda não foi encontrada a solução e para 
  deixar bem claro.




   

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 

Re: [delphi-br] criar DLL

[JJW Informática Ltda . - Roberto]

File - New - Other...Aba AtiveX - ActiveX Library...

Agora vá em 
File - New - Other...Aba Multitier - Remote Data Module...

Pronto, de um nome a sua classe CO, configure as consultas e conexão dos dados, 
compile.

Para testar vc deve usar a linha de comando:

C:\windows\system32\regsvr32.exe SeuArquivo.dll
e
C:\windows\system32\regsvr32.exe -u SeuArquivo.dll para desregistrar sua DLL.

O resto basta utilizar normalmente... deduzo que vc sabe criar uma aplicação 
servidora.

O que vc deve estar querendo fazer é transformar uma applicação 2 camandas para 
3 camandas, não é? E está querendo utilizar uma DLL ao invés de um executável.

Att.
Maiores informações, PVT!
  - Original Message - 
  From: Angelo Zanini Paim 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, August 14, 2006 1:52 PM
  Subject: [delphi-br] criar DLL


  Estou criando um programa de banco de dados do tipo cliente/servidor.
  Coloquei em meu servidor um programa rodando, fornecendo os dados aos
  clientes. Funciona muito bem até aí. Mas agora, decidí converter esse
  programa que roda no servidor em uma dll. Acredito que funcione da
  mesma forma. Os clientes irão se conectar ao servidor e a dll será
  executada fornecendo os dados através de DataSetProviders.
  Minha pergunta é: Como eu crio essa DLL? não sei como criar dlls.

  Obrigado a todos.



   

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 

Re: [delphi-br] Error loading Midas.dll

[JJW Informática Ltda . - Roberto]

Não basta só isso não!
Caso tenha sido usado o comando regsvr32.exe midas.dll que é o servidor de 
registro do windows vc tem que antes rodar o seguinte comando

regsvr32 -u c:\windows\system32\midas.dll

assim vc poderá utilizar a sua midas..

Isso me aconteceu uma vez, exista uma midas.dll dentro de um programa que era 
mais antiga que a minha, coloquei a minha no system e nada, dp fui descobrir 
que tinha que executar esse comando.
  - Original Message - 
  From: BrancoRP2000 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, August 04, 2006 11:41 AM
  Subject: Re: [delphi-br] Error loading Midas.dll


  Se for XP, basta copiar o midas.dll para c:\windows\system32

  Atenciosamente,

  Émerson R. Cavallari
  Analista de Sistemas
  Chefe da Seção Técnica de Informática
  PCARP / USP
- Original Message - 
From: Alisson Yahoo 
To: delphi-br@yahoogrupos.com.br 
Sent: Thursday, August 03, 2006 3:47 PM
Subject: [delphi-br] Error loading Midas.dll


Estou usando ClientDataSet no Delphi 5. Em alguns computadores funciona
normalmente, mas em outros dá esse erro. Não adianta colocar a unit Midas no
uses do projeto, nem copiar o dll para a pasta do Windows. E agora?


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



 

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

   

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





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 

Re: [delphi-br] Cor quando receber focus

[JJW Informática Ltda . - Roberto]

Coloque um timer no seu form principal com interval 100 e enabled em FALSE:


TForm1 = class(TForm)
...
private
  FLastControl: TWinControl;
end;

procedure TForm1.Form1Create(Sender: TObject);
begin
  FLastControl := nil;
  Timer1.Enabled := True; 
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  try
if Screen.ActiveControl  FLastControl then
begin
  try
SetOrdProp(FLastControl, 'Color', clBtnFace);
  except end;

  FLastControl := Screen.ActiveControl;
  try
SetOrdProp(FLastControl, 'Color', clYellow);
  except end; 
end; 
  except
// ignorar erros 
  end;
end;


  - Original Message - 
  From: André Luis de Oliveira 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, August 01, 2006 8:03 AM
  Subject: Re: [delphi-br] Cor quando receber focus


  Onde posso achar este componente?

- Original Message - 
From: Fabiano Frizzo 
To: delphi-br@yahoogrupos.com.br 
Sent: Monday, July 31, 2006 11:33 PM
Subject: Re: [delphi-br] Cor quando receber focus


Amigo Tenho um Componente Chamado SSCompXP ele Faz isso Automatico Para vc 
..

Se vc quiser me mande e-mail em PVT que te envio Ok
  - Original Message - 
  From: Karin Schiochet 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, July 31, 2006 6:22 PM
  Subject: Re: [delphi-br] Cor quando receber focus


  Bem eu fiz da segunte forma em um programa que estou
  fazerdo.

  Criei uma Unit com nome Unitfunção e nela coloco os
  procedimentos e funções de uso mais comuns.
  Ex.

  // Declaração dos procedimentos
  procedure CorEntrada(Sender: TObject);
  procedure CorSaida(Sender: TObject);

  Implementation

  Uses DB;

  procedure CorEntrada(Serder: TObject);
  Begin
   if (Sender id TEdit) then
  (Sender as TEdit).Color:= clActiveCaption
  else if (Sender is TMaskEdit) then
  (Sender as TMaskEdit).Color:=
  clActiveCaption
  else if (Sender is TMemo) then
  (Sender as TMemo).Color:=
  clActiveCaption
  else if (Sender is TDBEdit) then
  (Sender as TDBEdit).Color:=
  clActiveCaption
  else if (Sender is TDBMemo) then
  (Sender as TDBMemo).Color:=
  clActiveCaption

  Fazendo a mesma coisa para a procedure CorSaida, e
  depois basta colocar nos eventos OnEnter e OnExit
  a chamada para essas procedures. Ex.
  CorEntrada(Sender);

  Espero ter ajudado, 
  Karin Klayton


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

   
   



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

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

 

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

   

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





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

 

[delphi-br] Local ou remoto ?

[JJW Informática Ltda. - Roberto]

Pessoas, boa tarde!!!

Gostaria de saber 1 coisa...

Como posso saber se é máquina é local passando o IP ou Nome da máquina?

Tp...

192.168.15.1 =  Minha Máquina, então é local
127.0.0.1 = local
PCROBERTO = local
PCANDRE = micro da rede, não é local
192.168.5.2 = micro da rede, não é local

Preciso fazer uma função para que eu passe um endereço qualquer, ele 
identifique se o endereço é da minha local ou uma outra qualquer da rede...

Preciso disso que tenho um programa de backup que restaura bases 
Firebird, e se o ServerName for local, preciso excluir o
FDB antes de restaurar.

Espero que fui claro!
Obrigado.





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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