Re: [delphi-br] Compara OnClick com NIL

2006-12-08 Por tôpico Leodinei Bielak
Eu tentei com o componente também. Mas não funcionou.
É estranho que eu consiga fazer o evento receber nil mas não comparar.

On 12/7/06, Alcir - Listas [EMAIL PROTECTED] wrote:

   Faltou o componente.

 if Componente.OnClick = nil then

 t+

 Alcir

 Leodinei Bielak escreveu:
  Olá.
  Tem como eu checar se o evento OnClick é nulo?
  Eu tentei
 
  if OnClick = nil then
 
  e está dando a mensagem de Not Enough Actual Parameters.
  Valeu
 
  




-- 
Leodinei Bielak

In theory, there is no difference between theory and practice.

In practice, however..


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



[delphi-br] OPORTUNIDADES!!!!

2006-12-08 Por tôpico Vanessa
Srs., Bom Dia!

 

Estamos precisando de um profissional para ocupar de imediato as
oportunidades listadas abaixo.

 

Solicitamos sua divulgação junto aos amigos/contatos.

 

Aos interessados solicitamos o CV atualizado, remuneração (CLT e PJ) e
disponibilidade.





 

 

 

 

 

 

 

 

 


 

 

 

 

 

 

 

 

 


 

 

17 anos - Tecnologia de Informação com Qualidade 


 

 

 

 

 

 

 

 

 


PROFISSIONAL

MÓDULO

NÍVEL

IDIOMA

QTDE

LOCAL

DATAS PREVISTAS

OBSERVAÇÃO


 

 

EXPER.

 

 

PROJETO

INÍCIO

DURAÇÃO

 


 

 

 

 

 

 

 

 

 


Analista Programador

VB/Asp /Net

PL

 

1

Rio de Janeiro

Imediato

Indeterminado

 


 

 

 

 

 

 

 

 

 


Analista de Storage

MVS Storage

JR

Inglês avançado

2

SP/RJ/MG/DF ou Home office

Dezembro

1 ano, podendo ser estendido 

Experiência em: HSM/SMS, ABAR's backup jobs (especially VSAM), SMA ACS
routines, STOPX37, DASD management.


Analista de Storage

MVS Storage

PL/SR

Inglês avançado

5

SP/RJ/MG/DF ou Home office

Dezembro

1 ano, podendo ser estendido 

Experiência em: HSM/SMS, ABAR's backup jobs (especially VSAM), SMA ACS
routines, STOPX37, DASD management.


 

 

 

 

 

 

 

 

 


Desenvolvedor

JAVA

PL/SR

Inglês avançado

30

SP/RJ/MG/DF ou Home office

Dezembro

1 ano, podendo ser estendido 

Um dos 3 perfis:1 - Java (J2EE) + Banco de Dados relacional
(DB2, Oracle) ou;
2 - Java (J2EE) + Banco de Dados relacional (DB2, Oracle) + Websphere
(WSAD/WAS/Portal) ou;
3 - Java (J2EE) + Banco de Dados relacional (DB2, Oracle) +
Eclipse/Weblogic.


Desenvolvedor

COBOL  CICSPL-1REXX

PL/SR

Inglês avançado

20

SP/RJ/MG/DF ou Home office

Dezembro

1 ano, podendo ser estendido 

Um dos 3 perfis:  1 - MVS + COBOL/CICS + Banco de Dados
relacional (DB2, Oracle) ou;
2 - MVS + PL-1/CICS + Banco de Dados relacional (DB2, Oracle) ou;
3 - VM + REXX + Banco de Dados relacional (DB2).


Desenvolvedor

LOTUS NOTES

PL/SR

Inglês avançado

20

SP/RJ/MG/DF ou Home office

Dezembro

1 ano, podendo ser estendido 

Um dos 2 perfis: 1- Lotus Notes/Domino + Banco de Dados
relacional (DB2, Oracle)
2- Java (J2EE/Javascript)+ Lotus Notes/Domino + Banco de Dados relacional
(DB2, Oracle)


 

 

 

 

 

 

 

 

 


DBA

Banco de dados TERADATA

SR

Inglês avançado

1

Hortolândia - SP

Novembro

1 ano, podendo ser estendido 

 


 

 

 

 

 

 

 

 

 


Analista de sistema

WEB (Java)

SR

 

3

São Paulo

Novembro

1 ano

Com experiência em projetos para clientes bancários. 


 

 

 

 

 

 

 

 

 


Analista de Suporte

TWS (TIVOLI)

SR

Inglês fluente

5

São Paulo/ Rio de Janeiro

Novembro

Indeterminada

Ambiente: Mainframe, Tivoli (OPC, Control-M). Primeiros 6 meses em São
Paulo.


Analista de Produção

TWS (TIVOLI)

SR

Inglês fluente

5

São Paulo/ Rio de Janeiro

Novembro

Indeterminada

Ambiente: Mainframe, Tivoli (OPC, Control-M). Primeiros 6 meses em São
Paulo.


 

 

 

 

 

 

 

 

 


Consultor de Negócio

Setor elétrico. Sistema GIS

SR

 

1

São Paulo Zona Sul

Imediato

Indeterminada

Experiência em implantação de projetos, com conhecimentos de PL/SQL e
solução SmallWorld. Formação: Engenharia Elétrica. Escopo: Atuar como
consultor de negócio para o setor elétrico identificando as necessidades do
cliente


 

 

 

 

 

 

 

 

 

 

 

 

 

Atenciosamente,

 

Vanessa Souza

CTT Integration Group

Tel.: (55 21) 2258-8694

Fax: (55 21) 3879-5595

 



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



RES: [delphi-br] Compara OnClick com NIL

2006-12-08 Por tôpico Elazar Dornelles Ceza
Pra isso voce pode usar o Assigned

Ex.

If Assigned(Button1.OnClick) then begin
  ...
End;

Aten
Elazar
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de Leodinei Bielak
Enviada em: sexta-feira, 8 de dezembro de 2006 08:06
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Compara OnClick com NIL


Eu tentei com o componente também. Mas não funcionou.
É estranho que eu consiga fazer o evento receber nil mas não comparar.

On 12/7/06, Alcir - Listas [EMAIL PROTECTED] wrote:

 Faltou o componente.

 if Componente.OnClick = nil then

 t+

 Alcir

 Leodinei Bielak escreveu:
  Olá.
  Tem como eu checar se o evento OnClick é nulo?
  Eu tentei
 
  if OnClick = nil then
 
  e está dando a mensagem de Not Enough Actual Parameters.
  Valeu
 
 


-- 
Leodinei Bielak

In theory, there is no difference between theory and practice.

In practice, however..

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


 



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


[delphi-br] Quebrar linha no DBGRID

2006-12-08 Por tôpico Dimas Fernando
Pessoal,,, 

Como posso mostrar uma linha de 160 char, 
em duas de 80 ou algo parecido,
dentro de um DBGRID ??? 
 
CODIGO , NOME , OBSERVACAO (80)
OBSERVACAO (80)
--
CODIGO, NOME  , OBSERVACAO (80)
OBSERVACAO (80)
 
 
Obrigado




[delphi-br] Migração IB para FB

2006-12-08 Por tôpico Giovanny Carvalho
Bom dia a todos

Venho mais uma vez recorrer aos senhores.

Meus sistemas foram feitos em Delphi 6 e estão usando o InterBase
(aqueva versão que vem no CD), mas agora eu estou pensando em migrar
para o FB 1.5. Gostaria de saber se será necessário muita alteração
nos sistemas e na programação no Banco de Dados (uso muita Procedure e
algumas triggers com os generators). Os componentes que eu estou
usando são da paleta Interbase (TIBQuery, TIBStoredProc,
TIBTransaction, TIBDatabase).

Obrigado,
Giovanny




Re: [delphi-br] ERRO

2006-12-08 Por tôpico Eduardo Silva dos Santos
mas você tentou executar o gfix?

se mesmo com o gfix não deu certo.. so com um backup mesmo.

ou então da uma procurada no google por dicas de como recuperar um banco.

obs: o pessoal que defende o firebird que me desculpe, mas por essas e
outras que eu uso MySQL. uso ha 3 anos e nunca tive problema algum com
nenhum banco.  mySQL + InnoDB é muito bom.


2006/12/7, Ana Amélia Souza Pereira [EMAIL PROTECTED]:

   Oi Eduardo,

 O problema realmente era com meu banco e foi pra o espaço.
 Criei um novo, como passo as informações para ele?

 Ana

 2006/12/7, Eduardo Silva dos Santos [EMAIL 
 PROTECTED]eduardo.drd%40gmail.com
 :
 
  Oi Ana, da uma olhada na pasta bin do Firebird, la tem o gfix.exe, ele é
  um
  utilitário de linha do comando
  va ao prompt e execute o Gfix e veja quais os parametros ele requer.
 
  deve ser algo tipo Gfix -f SEUBANCO.FDB , vai ser algo desse tipo;
 
  2006/12/7, Ana Amélia Souza Pereira [EMAIL 
  PROTECTED]aamelia.mg%40gmail.com
 aamelia.mg%40gmail.com
  :
  
   Bom dia!
   É o Interbase.
  
   2006/12/7, Eduardo Silva dos Santos [EMAIL 
   PROTECTED]eduardo.drd%40gmail.com
 eduardo.drd%40gmail.com
  eduardo.drd%40gmail.com
   :
   
se for Firebird tem que usar o GFix para corrigir a corrupção no
  arquivo
do
banco.
   
se não der certo espero que vc tenha um backup.
   
Em 06/12/06, Luiz Escobar [EMAIL 
PROTECTED]escobar%40megasistema.com.br
 escobar%40megasistema.com.br
  escobar%40megasistema.com.br
   escobar%40megasistema.com.br
escreveu:


 Bom pela mensagem para FIREBIRD pois já vi algo assim no grupo
   deles...
 pelo que lembro tam um tal de DATAPUMP/DATADUMP e/ou GFIX e/ou
 GBAK,
  e
se
 caso nenhum der certo, começa a procurar os backup´s...

 Não sei nada sobre FIREBIRD apenas acompanho o grupo... e é mais
 ou
menos
 isso que lembro no momento...

 Luiz Escobar

 - Segue mensagem original! -

 De: Ana Amélia Souza Pereira [EMAIL 
 PROTECTED]aamelia.mg%40gmail.com
 aamelia.mg%40gmail.com
  aamelia.mg%40gmail.com
   aamelia.mg%40gmail.com
aamelia.mg%40gmail.com
 
 Data: Wed, 6 Dec 2006 22:38:47 -0200
 Para: 
 delphi-br@yahoogrupos.com.brdelphi-br%40yahoogrupos.com.brdelphi-br%40yahoog
 rupos.com.brdelphi-br%40yahoog
  rupos.com.brdelphi-br%40yahoog
   rupos.com.brdelphi-br%40yahoog
rupos.com.br
 Assunto: [delphi-br] ERRO

 Olá,

 Alguém pode me ajudar com este erro:

 database file appears corrupt{}
 bad checksum
 checksum error on database page 290.

 O que devo fazer para resolver.

 Ana Amélia

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



   
--
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com eduardo.drd%
 40gmail.com eduardo.drd%
  40gmail.com eduardo.drd%
   40gmail.com
Site: http://www.drdsistemas.com/
   
[As partes desta mensagem que não continham texto foram removidas]
   
   
   
  
   [As partes desta mensagem que não continham texto foram removidas]
  
  
  
 
  --
  Eduardo Silva dos Santos
  DRD Sistemas.
  (27) 3218-4201
  MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com eduardo.drd%
 40gmail.com
  Site: http://www.drdsistemas.com/
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 

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

 




-- 
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com/


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



Re: [delphi-br] Gostaria da opnião do pessoal que já usou ou ainda usa a VCL_Skin.

2006-12-08 Por tôpico Eduardo Silva dos Santos
Com VCL Skin o programa fica lindo, MAS.. dependendo da máquina fica muito
lento, dando erros inesperados,
sugiro que vc use um esquema de cores ou algo assim para refinar o visual, e
deixa o vcl skin pra lá..


2006/12/7, Leonardo Quinino [EMAIL PROTECTED]:

   É recomendada ? percebi em alguns testes preliminares que o programa
 ficou quase 5 megas, maior só porque compilei junto o componente.

 --
 Leonardo Quinino
 




-- 
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com/


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



Re: [delphi-br] Como enviar e-mail com arquivo atachado atraves do Outlook Express

2006-12-08 Por tôpico FireredBox
Pessoal, aproveitando o assunto
alguem sabe como mandar email como compromisso no microsoft outlook pelo indy 
de outra forma seja qual for?

grato.

  - Original Message - 
  From: Andrei Luís 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, December 07, 2006 9:36 AM
  Subject: Re: [delphi-br] Como enviar e-mail com arquivo atachado atraves do 
Outlook Express


  Bom dia Paulo,

  Eu utilizo a função abaixo, testada e funcionando no Delphi 4 e BDS 2006:

  uses MAPI;

  function EnviarEMail(const De, Para,CC, Assunto, Texto, Arquivo:
  string; Confirma: Boolean): Integer;
  var
  Msg: TMapiMessage;
  lpSender, lpRecepient, lpComCopia: TMapiRecipDesc;
  FileAttach: TMapiFileDesc;
  SM: TFNMapiSendMail;
  MAPIModule: HModule;
  Flags: Cardinal;
  begin
  // cria propriedades da mensagem
  FillChar(Msg, SizeOf(Msg), 0);
  with Msg do
  begin
  if (Assunto  '') then
  lpszSubject := PChar(Assunto);

  if (Texto  '') then
  lpszNoteText := PChar(Texto); //Corpo da Mensagem

  // remetente
  if (De  '') then
  begin
  lpSender.ulRecipClass := MAPI_ORIG;
  lpSender.lpszName := PChar(De);
  lpSender.lpszAddress := PChar(De);
  lpSender.ulReserved := 0;
  lpSender.ulEIDSize := 0;
  lpSender.lpEntryID := nil;
  lpOriginator := @lpSender;
  end;

  // destinatário
  if (Para  '') then
  begin
  lpRecepient.ulRecipClass := MAPI_TO;
  lpRecepient.lpszName := PChar(Para);
  lpRecepient.lpszAddress := PChar(Para);
  lpRecepient.ulReserved := 0;
  lpRecepient.ulEIDSize := 0;
  lpRecepient.lpEntryID := nil;
  nRecipCount := 1;
  lpRecips := @lpRecepient;
  end
  else
  if (CC  '') then
  begin
  lpComCopia.ulRecipClass := MAPI_CC;
  lpComCopia.lpszName := PChar(CC);
  lpComCopia.lpszAddress := PChar(CC);
  lpComCopia.ulReserved := 0;
  lpComCopia.ulEIDSize := 0;
  lpComCopia.lpEntryID := nil;
  nRecipCount := 1;
  lpRecips := @lpComCopia;
  end
  else
  lpRecips := nil;

  // arquivo anexo
  if (Arquivo = '') then
  begin
  nFileCount := 0;
  lpFiles := nil;
  end
  else
  begin
  FillChar(FileAttach, SizeOf(FileAttach), 0);
  FileAttach.nPosition := Cardinal($);
  FileAttach.lpszPathName := PChar(Arquivo);
  nFileCount := 1;
  lpFiles := @FileAttach;
  end;
  end;

  // carrega dll e o método para envio do email
  MAPIModule := LoadLibrary(PChar(MAPIDLL));
  if MAPIModule = 0 then
  Result := -1
  else
  try
  if Confirma then
  Flags := MAPI_DIALOG or MAPI_LOGON_UI
  else
  Flags := 0;
  @SM := GetProcAddress(MAPIModule, 'MAPISendMail');
  if @SM  nil then
  Result := SM(0, Application.Handle, Msg, Flags, 0)
  else
  Result := 1;
  finally
  FreeLibrary(MAPIModule);
  end;
  end;

  []
  Andrei

  Em 06/12/06, Paulo Sérgio Dias[EMAIL PROTECTED] escreveu:
   Pessoal:
  
   Alguem tem alguma rotina que, a partir de um programa Delphi 7
   (ou D2006) chame o Outlook Express e monte um e-mail com um
   arquivo atachado ?
  
   Encontrei algumas rotinas na Internet, mas as que funcionam
   nao permitem atachar arquivos, e as que permitem atachar arquivos
   nao funcionam direito.
  
   Obs.: Tem de ser pelo Outlook Express ou pelo leitor de e-mail padrao
   do usuario. So' nao posso enviar diretamente (motivos especificos dos
   meus usuarios). Por isso nao estou usando componentes para envio
   de e-mail.
  
   Grato pela atencao de todos
   Paulo


   

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



[delphi-br] Destruir o form...

2006-12-08 Por tôpico Doretto
Bom dia...

Tem como tirar da memoria um programa em execucao via programacao ?

Ex:

WinExec('Prod.Exe',0)
Entrada:=Tentrada.Create(Self);
Entrada.ShowModal;
Entrada.Release;
Destruir o prod.exe ou seja tirar de execucao..

tem como ?

Abraço.


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



[delphi-br] Baixar arquivo

2006-12-08 Por tôpico willer
Alguém sabe alguma forma de baixar um arquivo da internet? Eu precisaria fazer 
com que meu programa fosse atualizado automaticamente sempre que eu atualizasse 
um arquivo que ficará armazenado em servidor de hospedagem. Teria alguma forma 
de fazer com que o meu programa baixe um arquivo da internet?

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



Re: [delphi-br] Baixar arquivo

2006-12-08 Por tôpico Eduardo Silva dos Santos
acho que a forma + simples é com a função abaixo, so que ainda não testei

Declare a unit Urlmon na clausula Uses;

// if DownloadFile ('http://www.sitedodowload.com/nomedoarquivo.extensão',
'c:\nomedoarquivo.extensão') then ...
function DownloadFile(Source, Dest: string): Boolean;
begin
   try
Result := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) =
0;
   except
Result := False;
   end;

end;



Em 08/12/06, willer [EMAIL PROTECTED] escreveu:

   Alguém sabe alguma forma de baixar um arquivo da internet? Eu precisaria
 fazer com que meu programa fosse atualizado automaticamente sempre que eu
 atualizasse um arquivo que ficará armazenado em servidor de hospedagem.
 Teria alguma forma de fazer com que o meu programa baixe um arquivo da
 internet?

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

 




-- 
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com/


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



[delphi-br] Palindromes - Palindromo

2006-12-08 Por tôpico jscoutinho1
Bom dia a todos,
Palindromes (ARARA, AVIVA, ATOYOTA, 12321, 2A3IEAS), então eu sei o
que e um palindrome, so que eu não estou conseguindo fazer esse
programa para comparação de palindrome.
Eu ate fiz a logica são que não esta rodando em fonte...
(Console do Delphi) 
Gostaria saber quem poderia me ajudar.



program Polindromes;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
 n1 :integer;
 n2 :integer;
begin
 Writeln('Digite dois números de até 3 digitos');
 Readln(n1,n2);
 if (n1  1000) and (n2  1000)
   then
if (n1  100) and (n2  100)
 then
   if
(n1 / 100 = n2 mod 10)
 then
  begin
   n1 := (n1 / 100);
   n2 := n2 mod 10;
   if (n1 / 10 = n2 mod 10) and (n1 mod 10 = n2 / 10)
then
 Writeln('Os numeros são palindromes')
  else
   Writeln('Os numeros não são palindromes')
end

 else
  writeln('Os numeros não são palindromes')
  end

 else
  if (n1  10) and (n2  10) and (n2  100)
   then
if (n1 / 10 = n2 mod 10) and (n1 mod 10 = n2 / 10)
 then
  writeln('os numeros são palindromes')
   else
writeln('Os numeors não são palindromes');
 end

   else
writeln('Os numeros não são palindromes');
 end
 end
   end

end.



Re: [delphi-br] Compara OnClick com NIL

2006-12-08 Por tôpico Leodinei Bielak
Funcionou. Valeu.

On 12/8/06, Elazar Dornelles Ceza [EMAIL PROTECTED] wrote:
 Pra isso voce pode usar o Assigned

  Ex.

  If Assigned(Button1.OnClick) then begin
...
  End;

  Aten
  Elazar


[delphi-br] Destruir um EXE da memoria

2006-12-08 Por tôpico Doretto
Bom dia...

Tem como tirar da memoria um programa em execucao via programacao ?

Ex:

WinExec('Prod.Exe',0)
Entrada:=Tentrada.Create(Self);
Entrada.ShowModal;
Entrada.Release;
Destruir o prod.exe ou seja tirar de execucao..

Abraço

Doretto.


tem como ?

Abraço.

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



Re: [delphi-br] Destruir um EXE da memoria

2006-12-08 Por tôpico Henrique Netzka \(Vetor Sistemas\)
Opa!

Tem sim.. procure por como usar a função TerminateProcess.

Abraços,
Henrique Netzka

  - Original Message - 
  From: Doretto 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, December 08, 2006 11:54 AM
  Subject: [delphi-br] Destruir um EXE da memoria


  Bom dia...

  Tem como tirar da memoria um programa em execucao via programacao ?

  Ex:

  WinExec('Prod.Exe',0)
  Entrada:=Tentrada.Create(Self);
  Entrada.ShowModal;
  Entrada.Release;
  Destruir o prod.exe ou seja tirar de execucao..

  Abraço

  Doretto.

  tem como ?

  Abraço.

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



   

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



Re: [delphi-br] Compara OnClick com NIL

2006-12-08 Por tôpico Campus
Já tentou com o Assigned ?


- Original Message - 
From: Leodinei Bielak [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Friday, December 08, 2006 8:05 AM
Subject: Re: [delphi-br] Compara OnClick com NIL


Eu tentei com o componente também. Mas não funcionou.
É estranho que eu consiga fazer o evento receber nil mas não comparar.

On 12/7/06, Alcir - Listas [EMAIL PROTECTED] wrote:

   Faltou o componente.

 if Componente.OnClick = nil then

 t+

 Alcir

 Leodinei Bielak escreveu:
  Olá.
  Tem como eu checar se o evento OnClick é nulo?
  Eu tentei
 
  if OnClick = nil then
 
  e está dando a mensagem de Not Enough Actual Parameters.
  Valeu
 





-- 
Leodinei Bielak

In theory, there is no difference between theory and practice.

In practice, however..


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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Links do Yahoo! Grupos




-- 
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.432 / Virus Database: 268.15.14/578 - Release Date: 07/12/2006
01:27




[delphi-br] Re: Destruir um EXE da memoria

2006-12-08 Por tôpico jscoutinho1
E so colocar esse codigo   FreeAndNil(Prod.exe); 




--- Em delphi-br@yahoogrupos.com.br, Doretto [EMAIL PROTECTED] escreveu

 Bom dia...
 
 Tem como tirar da memoria um programa em execucao via programacao ?
 
 Ex:
 
 WinExec('Prod.Exe',0)
 Entrada:=Tentrada.Create(Self);
 Entrada.ShowModal;
 Entrada.Release;
 Destruir o prod.exe ou seja tirar de execucao..
 
 Abraço
 
 Doretto.
 
 
 tem como ?
 
 Abraço.
 
 [As partes desta mensagem que não continham texto foram removidas]





Re: [delphi-br] Re: Destruir um EXE da memoria

2006-12-08 Por tôpico Eric D.
Heim? o.O

O programa não é uma variável da aplicação dele. Ele mandou o windows executar 
e agora quer mandar o win finalizar a tarefa...

Utilize a função TerminateProcess do win32sdk:

BOOL TerminateProcess(
HANDLE hProcess, // handle to the process 
UINT uExitCode  // exit code for the process  
   );

[]'s

Eric D. - Desenvolvimento e Soluções de Tecnologia 
[EMAIL PROTECTED] 
Talk is cheap, show me the code... 
  - Original Message - 
  From: jscoutinho1 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, December 08, 2006 11:25 AM
  Subject: [delphi-br] Re: Destruir um EXE da memoria


  E so colocar esse codigo FreeAndNil(Prod.exe); 

  --- Em delphi-br@yahoogrupos.com.br, Doretto [EMAIL PROTECTED] escreveu
  
   Bom dia...
   
   Tem como tirar da memoria um programa em execucao via programacao ?
   
   Ex:
   
   WinExec('Prod.Exe',0)
   Entrada:=Tentrada.Create(Self);
   Entrada.ShowModal;
   Entrada.Release;
   Destruir o prod.exe ou seja tirar de execucao..
   
   Abraço
   
   Doretto.
   
   
   tem como ?
   
   Abraço.
   
   [As partes desta mensagem que não continham texto foram removidas]
  



   

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



[delphi-br] Atualização automática

2006-12-08 Por tôpico willer
Como faço para fechar o meu programa após ter aberto outro?
Estou implementando uma rotina de atualização automáticxa que deverá fzer isso, 
baixa um arquivo(.exe), abre um programa auxiliar e fecha. O programa auxiliar 
exclui o antigo, e renomeia o novo, abre-o e fecha-se;

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



[delphi-br] Licença do IBO

2006-12-08 Por tôpico Visão On-Line - Jones Kleber
Olá Grupo,

Alguém do grupo poderia me fornecer o texto solicitando a licença 
trustware do IBO.  O meu inglês não é tão bom assim.

Obrigado

Jones Kleber

---
spam free by www.SafestMail.com.br



Re: [delphi-br] Licença do IBO

2006-12-08 Por tôpico Eduardo
Não é perfeito mais vai t ajudar !!!

http://translate.google.com/translate_t

Eduardo

Visão On-Line - Jones Kleber escreveu:

 Olá Grupo,

 Alguém do grupo poderia me fornecer o texto solicitando a licença
 trustware do IBO. O meu inglês não é tão bom assim.

 Obrigado

 Jones Kleber

 ---
 spam free by www.SafestMail.com.br

  



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



Re: [delphi-br] Re: Destruir um EXE da memoria

2006-12-08 Por tôpico Doretto
No exemplo que eu te passei como eu acharia qual e o meu hProcesse e o outro 
parâmetro. Você conseguiria exemplificar melhor...

Obr.


  - Original Message - 
  From: Eric D. 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, December 08, 2006 2:01 PM
  Subject: Re: [delphi-br] Re: Destruir um EXE da memoria


  Heim? o.O

  O programa não é uma variável da aplicação dele. Ele mandou o windows 
executar e agora quer mandar o win finalizar a tarefa...

  Utilize a função TerminateProcess do win32sdk:

  BOOL TerminateProcess(
  HANDLE hProcess, // handle to the process 
  UINT uExitCode // exit code for the process 
  );

  []'s

  Eric D. - Desenvolvimento e Soluções de Tecnologia 
  [EMAIL PROTECTED] 
  Talk is cheap, show me the code... 
  - Original Message - 
  From: jscoutinho1 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, December 08, 2006 11:25 AM
  Subject: [delphi-br] Re: Destruir um EXE da memoria

  E so colocar esse codigo FreeAndNil(Prod.exe); 

  --- Em delphi-br@yahoogrupos.com.br, Doretto [EMAIL PROTECTED] escreveu
  
   Bom dia...
   
   Tem como tirar da memoria um programa em execucao via programacao ?
   
   Ex:
   
   WinExec('Prod.Exe',0)
   Entrada:=Tentrada.Create(Self);
   Entrada.ShowModal;
   Entrada.Release;
   Destruir o prod.exe ou seja tirar de execucao..
   
   Abraço
   
   Doretto.
   
   
   tem como ?
   
   Abraço.
   
   [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]



[delphi-br] Duvida no cadastro de produtos pereciveis

2006-12-08 Por tôpico Celio Ricardo
Oi, pessoal.

Estou fazendo um servico para uma distribuidora de alimentos 
e tenho a seguinte duvida, preciso cadastrar produtos pereciveis, 
o mesmo produto vem com validades diferentes.
Como voces fazem para cadastrar esses produtos, 
pois nao vejo maneira simples para facilitar a saida do produto.

Obrigado

Celio Ricardo
[EMAIL PROTECTED]



RES: [delphi-br] Atualização automática

2006-12-08 Por tôpico Marcelo Hoepfner \(SI\)
Cara eu fiz um sistema desses, caso você tenha interesse podemos negociar.

 

Marcelo Hoepfner

msn: [EMAIL PROTECTED]

 

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Andrei 
Luís
Enviada em: sexta-feira, 8 de dezembro de 2006 13:22
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Atualização automática

 

Willer,

Uma idéia seria você utilizar no seu sistema 2 executáveis: 1 pequeno,
que será executado através de ícones na área de trabalho, etc, que faz
a atualização quando necessário e chama o 2º executável que é o
sistema em si.

[]
Andrei

Em 08/12/06, willer[EMAIL PROTECTED] mailto:willer%40personalcom.com.br  
escreveu:
 Como faço para fechar o meu programa após ter aberto outro?
 Estou implementando uma rotina de atualização automáticxa que deverá fzer 
 isso, baixa um arquivo(.exe), abre um programa auxiliar e fecha. O programa 
 auxiliar exclui o antigo, e renomeia o novo, abre-o e fecha-se;


 



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



Re: [delphi-br] Licença do IBO

2006-12-08 Por tôpico Visão On-Line - Jones Kleber
Valeu Eduardo.

Jones Kleber

---
spam free by www.SafestMail.com.br



Re: [delphi-br] Re: Destruir um EXE da memoria

2006-12-08 Por tôpico Eric D.
Olhe nestes links tem dois exemplos distintos do que vc precisa:
http://www.activedelphi.com.br/print.php?sid=369
http://www.swissdelphicenter.ch/torry/showcode.php?id=266

E se me permite dar uma dica: estes links foram encontrados a partir do Google 
(http://www.google.com.br/search?hl=pt-BRsa=Xoi=spellresnum=0ct=resultcd=1q=terminateprocess+%2Bdelphispell=1).
 Eu e outro colega indicamos o nome da função que vc deveria utilizar. Agora é 
com vc procurar a sintaxe e como implementar isso em sua aplicação.

Boa sorte ;)

Eric D. - Desenvolvimento e Soluções de Tecnologia 
[EMAIL PROTECTED] 
Talk is cheap, show me the code... 
  - Original Message - 
  From: Doretto 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, December 08, 2006 1:08 PM
  Subject: Re: [delphi-br] Re: Destruir um EXE da memoria


  No exemplo que eu te passei como eu acharia qual e o meu hProcesse e o outro 
parâmetro. Você conseguiria exemplificar melhor...

  Obr.

  - Original Message - 
  From: Eric D. 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, December 08, 2006 2:01 PM
  Subject: Re: [delphi-br] Re: Destruir um EXE da memoria

  Heim? o.O

  O programa não é uma variável da aplicação dele. Ele mandou o windows 
executar e agora quer mandar o win finalizar a tarefa...

  Utilize a função TerminateProcess do win32sdk:

  BOOL TerminateProcess(
  HANDLE hProcess, // handle to the process 
  UINT uExitCode // exit code for the process 
  );

  []'s

  Eric D. - Desenvolvimento e Soluções de Tecnologia 
  [EMAIL PROTECTED] 
  Talk is cheap, show me the code... 
  - Original Message - 
  From: jscoutinho1 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, December 08, 2006 11:25 AM
  Subject: [delphi-br] Re: Destruir um EXE da memoria

  E so colocar esse codigo FreeAndNil(Prod.exe); 

  --- Em delphi-br@yahoogrupos.com.br, Doretto [EMAIL PROTECTED] escreveu
  
   Bom dia...
   
   Tem como tirar da memoria um programa em execucao via programacao ?
   
   Ex:
   
   WinExec('Prod.Exe',0)
   Entrada:=Tentrada.Create(Self);
   Entrada.ShowModal;
   Entrada.Release;
   Destruir o prod.exe ou seja tirar de execucao..
   
   Abraço
   
   Doretto.
   
   
   tem como ?
   
   Abraço.
   
   [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]



[delphi-br] Verdade sobre fieldbyname

2006-12-08 Por tôpico Marcelo
AMigos da lista, gostaria de saber da experiencia de vcs

Vi em uma lista de discussão que o FieldByName deixa o tráfeco mais 
lento. Isso é verdade?

Desde já agradeço a todos


Re: [delphi-br] Duvida no cadastro de produtos pereciveis

2006-12-08 Por tôpico Eric D.
Vc pode montar em sua aplicação, um módulo de rastreio de validade dos 
produtos, classificados por lote ou por qualquer outro fator que vc desejar. 
Basta criar em seu banco de dados, uma tabela filha da sua tabela de produtos, 
então vc vai poder realizar lançamentos de datas de validades diferentes, para 
diferentes lotes em diferentes grupos de transporte/entrega para um mesmo 
produto.

Espero ter ajudado.

[]'s

Eric D. - Desenvolvimento e Soluções de Tecnologia 
[EMAIL PROTECTED] 
Talk is cheap, show me the code... 
  - Original Message - 
  From: Celio Ricardo 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, December 08, 2006 1:39 PM
  Subject: [delphi-br] Duvida no cadastro de produtos pereciveis


  Oi, pessoal.

  Estou fazendo um servico para uma distribuidora de alimentos 
  e tenho a seguinte duvida, preciso cadastrar produtos pereciveis, 
  o mesmo produto vem com validades diferentes.
  Como voces fazem para cadastrar esses produtos, 
  pois nao vejo maneira simples para facilitar a saida do produto.

  Obrigado

  Celio Ricardo
  [EMAIL PROTECTED]



   

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



Re: [delphi-br] Atualização automática

2006-12-08 Por tôpico willer
Só tenho dúvida na lógica.
Já consigo verificar se há atualização e até baixar os novos arquivos, só não 
estou conseguindo fechar o executável e abró-lo novamente com a nova versão.


  - Original Message - 
  From: Marcelo Hoepfner (SI) 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, December 08, 2006 1:57 PM
  Subject: RES: [delphi-br] Atualização automática


  Cara eu fiz um sistema desses, caso você tenha interesse podemos negociar.

  Marcelo Hoepfner

  msn: [EMAIL PROTECTED]

  _ 

  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Andrei 
Luís
  Enviada em: sexta-feira, 8 de dezembro de 2006 13:22
  Para: delphi-br@yahoogrupos.com.br
  Assunto: Re: [delphi-br] Atualização automática

  Willer,

  Uma idéia seria você utilizar no seu sistema 2 executáveis: 1 pequeno,
  que será executado através de ícones na área de trabalho, etc, que faz
  a atualização quando necessário e chama o 2º executável que é o
  sistema em si.

  []
  Andrei

  Em 08/12/06, willer[EMAIL PROTECTED] mailto:willer%40personalcom.com.br  
escreveu:
   Como faço para fechar o meu programa após ter aberto outro?
   Estou implementando uma rotina de atualização automáticxa que deverá fzer 
isso, baixa um arquivo(.exe), abre um programa auxiliar e fecha. O programa 
auxiliar exclui o antigo, e renomeia o novo, abre-o e fecha-se;
  

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



   

  __ Informação do NOD32 IMON 1910 (20061208) __

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


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



[delphi-br] Antivírus de email, como eles fazem?

2006-12-08 Por tôpico Fellipe Henrique
Olá amigos, estou querendo fazer um sistema parecido com um antivirus..
seguinte.. meu programa ficará residente na memória e quando o usuário abrir
seu outlook express ou qualquer outro, e mandar baixar os emails, meu
programa entra em ação.

Identifica o email, e se for um pedido, automaticamente cadastra na base de
dados.

o meu problema está na primeira parte, como interceptar os emails como um
antivirus faz? alguem tem alguma idéia?


Desde já agradeço.
[]s

-- 
_
Fellipe Henrique
[EMAIL PROTECTED]


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


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



Re: [delphi-br] Duvida no cadastro de produtos pereciveis

2006-12-08 Por tôpico Marivaldo Silva
Acho que a duvida dele é como fazer no checkout para definir.

Pois se for colocar para o operador escolher dentre os lotes existente causaria 
probabilidade de erro.

Uma hipótese seria gerar um código de barras para estes produtos e por meio do 
código de barras a aplicação identificar a qual lote pertence e baixar.

Outra é gerenciar para na área de vendas tenha apenas sempre um único lote e 
assim baixar por este.

E outra é sempre baixar aleatoriamente pelo ultimo e não controlar via sistema.

Alguém teria alguma outra sugestão ou qual seria a melhor dentre estas para ser 
seguida ?

Atenciosamente,


Marivaldo Silva 
Total Informática - www.infototal.com.br 
Fone: (75) 3623-9318 - Feira de Santana - BA 
E-mail / MSN - [EMAIL PROTECTED]
  - Original Message - 
  From: Eric D. 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, December 08, 2006 3:15 PM
  Subject: Re: [delphi-br] Duvida no cadastro de produtos pereciveis


  Vc pode montar em sua aplicação, um módulo de rastreio de validade dos 
produtos, classificados por lote ou por qualquer outro fator que vc desejar. 
Basta criar em seu banco de dados, uma tabela filha da sua tabela de produtos, 
então vc vai poder realizar lançamentos de datas de validades diferentes, para 
diferentes lotes em diferentes grupos de transporte/entrega para um mesmo 
produto.

  Espero ter ajudado.

  []'s

  Eric D. - Desenvolvimento e Soluções de Tecnologia 
  [EMAIL PROTECTED] 
  Talk is cheap, show me the code... 
  - Original Message - 
  From: Celio Ricardo 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, December 08, 2006 1:39 PM
  Subject: [delphi-br] Duvida no cadastro de produtos pereciveis

  Oi, pessoal.

  Estou fazendo um servico para uma distribuidora de alimentos 
  e tenho a seguinte duvida, preciso cadastrar produtos pereciveis, 
  o mesmo produto vem com validades diferentes.
  Como voces fazem para cadastrar esses produtos, 
  pois nao vejo maneira simples para facilitar a saida do produto.

  Obrigado

  Celio Ricardo
  [EMAIL PROTECTED]

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



   

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



RES: [delphi-br] Duvida no cadastro de produtos pereciveis

2006-12-08 Por tôpico Tatu-yahoogrupos
gera lotes de entrada para cada entrada x produto...O unico que problema que
vejo, caso na mesma compra os produtos tenham validade diferentes...nesse
caso, acredito que terá que gerarlotes manualmente, quando vc entra os
lotes, teu estoque aumenta, quando vc vai utilizando os lotes, teu estoque
diminui. Tenho feito alguma coisa nesse sentido, nao por causa dos prazos de
validade e sim apenas por norma, para que o primeiro em entrar na firma seja
o primeiro em sair. O controle disso, he meio chato, mas nada que um bom
banco de dados nao seja capaz de administrar. Utilizo o posgresql e faço
estas administrações diretamente no banco de dados...

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Celio Ricardo
Enviada em: sexta-feira, 8 de dezembro de 2006 13:39
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Duvida no cadastro de produtos pereciveis



Oi, pessoal.

Estou fazendo um servico para uma distribuidora de alimentos 
e tenho a seguinte duvida, preciso cadastrar produtos pereciveis, 
o mesmo produto vem com validades diferentes.
Como voces fazem para cadastrar esses produtos, 
pois nao vejo maneira simples para facilitar a saida do produto.

Obrigado

Celio Ricardo
[EMAIL PROTECTED] mailto:ricknetbr%40yahoo.com.br com.br



 



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



Re: [delphi-br] Componente - Urgente!

2006-12-08 Por tôpico Ricardo Cesar Cardoso
Puxa Luiz!

Fiquei surpreso, já que nunca tinha reparado nestes componentes. Vou testar 
aqui tb pq eles me deram uma idéias...

Valeu pela dica!

Grato,
Ricardo

Luiz Escobar [EMAIL PROTECTED] escreveu:  Te 
tem e FREE... procura sobre delphi modem VML no google ou no emule...
 a versão era: vml1.0.4 (acho...) (creio que esse seja o melhor para o que vc 
 quer...)
 TModemLogFile
 TModemPort
 TModemProfile
 TNoModem
 TVoiceModem
 entre outros
 mas creio que ele vai te ajudar...  mas que vai dar trabalho à isso vai 
 ;-)
 
 agora acho que tem também o tmsgvoc e commdrv32_261a esse ultimo não sei se 
 vai servir pra isso que vc quer
 
 Luiz Escobar
 Analista/Desenvolvedor:
 WEB - HTML/JavaScript/PHP/MySQL
 WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase
 DOS - Clipper/Assembler xBase
 SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k
 LINUX - LAZARUS/Kylix/MySQL;
 http://www.megasistema.com.br
 
 - Original Message - 
 From: Ricardo Cesar Cardoso
 To: delphi-br@yahoogrupos.com.br
 Sent: Thursday, December 07, 2006 4:51 PM
 Subject: Res: [delphi-br] Componente - Urgente!
 
 Olha, sem querer desanimar, mas é bastante coisa pra ser desenvolvida. 
 Duvido muito que tenha componente pra estas funções e se tiver vai ser pago 
 e vai custar caro. Mas dá uma procurada por componentes de telefonia em 
 sites como o Torry.net ou Delphi Super Page.
 
 Abraços e sucesso,
 Ricardo.
 
 - Mensagem original 
 De: fpsp2000 [EMAIL PROTECTED]
 Para: delphi-br@yahoogrupos.com.br
 Enviadas: Quinta-feira, 7 de Dezembro de 2006 15:48:50
 Assunto: [delphi-br] Componente - Urgente!
 
 Ola!
 
 Preciso desenvolver um sistema de telemarkting, onde o operador
 
 disque pelo sistema e use headset para falar com o cliente, e que o
 
 mesmo sistema seja capaz de disparar uma mensagem gravada.
 
 Alguem conhece algum componente que tenha essas funções.
 
 Fernanda de Paula
 
 !--
 
 #ygrp-mlmsg {font-size:13px;font-family:arial,helvetica,clean,sans-serif;}
 #ygrp-mlmsg table {font-size:inherit;font:100%;}
 #ygrp-mlmsg select, input, textarea {font:99% 
 arial,helvetica,clean,sans-serif;}
 #ygrp-mlmsg pre, code {font:115% monospace;}
 #ygrp-mlmsg * {line-height:1.22em;}
 #ygrp-text{
 font-family:Georgia;
 }
 #ygrp-text p{
 margin:0 0 1em 0;
 }
 #ygrp-tpmsgs{
 font-family:Arial;
 clear:both;
 }
 #ygrp-vitnav{
 padding-top:10px;
 font-family:Verdana;
 font-size:77%;
 margin:0;
 }
 #ygrp-vitnav a{
 padding:0 1px;
 }
 #ygrp-actbar{
 clear:both;
 margin:25px 0;
 white-space:nowrap;
 color:#666;
 text-align:right;
 }
 #ygrp-actbar .left{
 float:left;
 white-space:nowrap;
 }
 .bld{font-weight:bold;}
 #ygrp-grft{
 font-family:Verdana;
 font-size:77%;
 padding:15px 0;
 }
 #ygrp-ft{
 font-family:verdana;
 font-size:77%;
 border-top:1px solid #666;
 padding:5px 0;
 }
 #ygrp-mlmsg #logo{
 padding-bottom:10px;
 }
 
 #ygrp-vital{
 background-color:#e0ecee;
 margin-bottom:20px;
 padding:2px 0 8px 8px;
 }
 #ygrp-vital #vithd{
 font-size:77%;
 font-family:Verdana;
 font-weight:bold;
 color:#333;
 text-transform:uppercase;
 }
 #ygrp-vital ul{
 padding:0;
 margin:2px 0;
 }
 #ygrp-vital ul li{
 list-style-type:none;
 clear:both;
 border:1px solid #e0ecee;
 }
 #ygrp-vital ul li .ct{
 font-weight:bold;
 color:#ff7900;
 float:right;
 width:2em;
 text-align:right;
 padding-right:.5em;
 }
 #ygrp-vital ul li .cat{
 font-weight:bold;
 }
 #ygrp-vital a {
 text-decoration:none;
 }
 
 #ygrp-vital a:hover{
 text-decoration:underline;
 }
 
 #ygrp-sponsor #hd{
 color:#999;
 font-size:77%;
 }
 #ygrp-sponsor #ov{
 padding:6px 13px;
 background-color:#e0ecee;
 margin-bottom:20px;
 }
 #ygrp-sponsor #ov ul{
 padding:0 0 0 8px;
 margin:0;
 }
 #ygrp-sponsor #ov li{
 list-style-type:square;
 padding:6px 0;
 font-size:77%;
 }
 #ygrp-sponsor #ov li a{
 text-decoration:none;
 font-size:130%;
 }
 #ygrp-sponsor #nc {
 background-color:#eee;
 margin-bottom:20px;
 padding:0 8px;
 }
 #ygrp-sponsor .ad{
 padding:8px 0;
 }
 #ygrp-sponsor .ad #hd1{
 font-family:Arial;
 font-weight:bold;
 color:#628c2a;
 font-size:100%;
 line-height:122%;
 }
 #ygrp-sponsor .ad a{
 text-decoration:none;
 }
 #ygrp-sponsor .ad a:hover{
 text-decoration:underline;
 }
 #ygrp-sponsor .ad p{
 margin:0;
 }
 o {font-size:0;}
 .MsoNormal {
 margin:0 0 0 0;
 }
 #ygrp-text tt{
 font-size:120%;
 }
 blockquote{margin:0 0 0 4px;}
 .replbq {margin:4;}
 --
 
 ___
 Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. 
 Registre seu aparelho agora!
 http://br.mobile.yahoo.com/mailalertas/
 
 [As partes desta mensagem que não continham texto foram removidas]
 
 
 
   


-
 Yahoo! Search
 Música para ver e ouvir: You're Beautiful, do James Blunt

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



[delphi-br] Enviar e-mail

2006-12-08 Por tôpico Igor Alexandre
Como posso enviar um e-mail diretamente pelo delphi com um arquivo HTML
no corpo da mensagem, ou até mesmo abrir o outlook já com o HTML no corpo da
mensagem.

-- 


 Um Abraço.
 Igor Alexandre.


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



[delphi-br] Conecta a um banco de dados onLine

2006-12-08 Por tôpico willer
Alguém sabe se é possível fazer com que um aplicativo se comunique com um banco 
de dados onLine, banco de dados MySql.?

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



Re: [delphi-br] Duvida no cadastro de produtos pereciveis

2006-12-08 Por tôpico Campus
Eu uso a própria nota de entrada para isso, coloco a data de validade do
produto no momento da entrada, e vou baixando cfe a saida. Basta criar 2
campos, um com o saldo e outro com a data de validade.

Se vc tiver controle de estoque integrado fica fácil de implementar.

- Original Message - 
From: Eric D. [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Friday, December 08, 2006 4:15 PM
Subject: Re: [delphi-br] Duvida no cadastro de produtos pereciveis


Vc pode montar em sua aplicação, um módulo de rastreio de validade dos
produtos, classificados por lote ou por qualquer outro fator que vc desejar.
Basta criar em seu banco de dados, uma tabela filha da sua tabela de
produtos, então vc vai poder realizar lançamentos de datas de validades
diferentes, para diferentes lotes em diferentes grupos de transporte/entrega
para um mesmo produto.

Espero ter ajudado.

[]'s

Eric D. - Desenvolvimento e Soluções de Tecnologia
[EMAIL PROTECTED]
Talk is cheap, show me the code...
  - Original Message - 
  From: Celio Ricardo
  To: delphi-br@yahoogrupos.com.br
  Sent: Friday, December 08, 2006 1:39 PM
  Subject: [delphi-br] Duvida no cadastro de produtos pereciveis


  Oi, pessoal.

  Estou fazendo um servico para uma distribuidora de alimentos
  e tenho a seguinte duvida, preciso cadastrar produtos pereciveis,
  o mesmo produto vem com validades diferentes.
  Como voces fazem para cadastrar esses produtos,
  pois nao vejo maneira simples para facilitar a saida do produto.

  Obrigado

  Celio Ricardo
  [EMAIL PROTECTED]





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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Links do Yahoo! Grupos




-- 
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.432 / Virus Database: 268.15.14/578 - Release Date: 07/12/2006
01:27




Re: [delphi-br] Verdade sobre fieldbyname

2006-12-08 Por tôpico Luiz Escobar
ah, desculpa não seria nem trafeco e sim tráfico...  foi maus...

agora veja bem durante um importação:  
500.000 registros com 50 campos na tabela iria demorar +/- uns 25 segundos à 
mais.. ;-)
mas numa tabela de 50 campos, onde a importação tem que ser feita usando algum 
tipo de converção/calculo/analise/filtro/etc... eu usaria fieldbyname, o 
usuario que espera neste caso +25 segundos...  (e olha que fica olhando 25 
segundos pra tela não é facil não...) agora se for um importação dequelas tipo 
cópia daqui-pra-li os campos na mesma sequencia tipo xerox um banco do 
outro vai de fields[] mesmo
faço um FOR e poucas linhas eu alimento o outro banco... tipo:

while not t1.eof() do begin
t2.insert;
for x := 0 to t1.fieldcount do 
   t2.fields[x].asvalue := t1.fields[x].asvalue;
t2.post;
t1.next;
end;

Luiz Escobar
Analista/Desenvolvedor:
WEB - HTML/JavaScript/PHP/MySQL 
WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase
DOS - Clipper/Assembler xBase
SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k
LINUX - LAZARUS/Kylix/MySQL;
http://www.megasistema.com.br

  - Original Message - 
  From: Marcelo 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, December 08, 2006 2:48 PM
  Subject: [delphi-br] Verdade sobre fieldbyname


  AMigos da lista, gostaria de saber da experiencia de vcs

  Vi em uma lista de discussão que o FieldByName deixa o tráfeco mais 
  lento. Isso é verdade?

  Desde já agradeço a todos


   

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



Re: [delphi-br] Atualização automática

2006-12-08 Por tôpico Luiz Escobar
Bom na logica, antes de fechar,copiar,abrir o executavel, é melhor vc fazer a 
perguntinha basica pro usuario, vc tem uma atualziação para este software, 
deseja fazer agora ? e que a pargunta se repita tipo a cada 30 minutos, se não 
o usuário vai querer te matar... ehhehehe
quanto a uma aplicação fechar outra, sei que tem jeito, mas de cabeça agora não 
lembro desculpe...

Luiz Escobar
Analista/Desenvolvedor:
WEB - HTML/JavaScript/PHP/MySQL 
WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase
DOS - Clipper/Assembler xBase
SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k
LINUX - LAZARUS/Kylix/MySQL;
http://www.megasistema.com.br


  - Original Message - 
  From: willer 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, December 08, 2006 3:22 PM
  Subject: Re: [delphi-br] Atualização automática


  Só tenho dúvida na lógica.
  Já consigo verificar se há atualização e até baixar os novos arquivos, só não 
estou conseguindo fechar o executável e abró-lo novamente com a nova versão.

  - Original Message - 
  From: Marcelo Hoepfner (SI) 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, December 08, 2006 1:57 PM
  Subject: RES: [delphi-br] Atualização automática

  Cara eu fiz um sistema desses, caso você tenha interesse podemos negociar.

  Marcelo Hoepfner

  msn: [EMAIL PROTECTED]

  _ 

  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Andrei 
Luís
  Enviada em: sexta-feira, 8 de dezembro de 2006 13:22
  Para: delphi-br@yahoogrupos.com.br
  Assunto: Re: [delphi-br] Atualização automática

  Willer,

  Uma idéia seria você utilizar no seu sistema 2 executáveis: 1 pequeno,
  que será executado através de ícones na área de trabalho, etc, que faz
  a atualização quando necessário e chama o 2º executável que é o
  sistema em si.

  []
  Andrei

  Em 08/12/06, willer[EMAIL PROTECTED] mailto:willer%40personalcom.com.br  
escreveu:
   Como faço para fechar o meu programa após ter aberto outro?
   Estou implementando uma rotina de atualização automáticxa que deverá fzer 
isso, baixa um arquivo(.exe), abre um programa auxiliar e fecha. O programa 
auxiliar exclui o antigo, e renomeia o novo, abre-o e fecha-se;
  

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

  __ Informação do NOD32 IMON 1910 (20061208) __

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

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



   

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



Re: [delphi-br] Verdade sobre fieldbyname

2006-12-08 Por tôpico Luiz Escobar
o trafeco ? bom depende, se for de droga e for passar pela alfandega pode 
demorar um pouco sim, agora se for o trafego, bem não vai influenciar muito 
não... o que fica  lento  é o seguinte... (lento esta entre  pois não acho 
significativo não)

quando vc usa  table1.fieldbyname('blablabla').asstring ao invez de 
table1.fields[ 01 ].asstring
é que o primeiro vai ter que procurar na tabela dos campos da table1 qual a 
posição dele para depois retornar o seu valor o segundo já retorna na hora, 
ficando assim a EXECUÇÃO bem mais rápida, MAS, EU!!!... particularmente uso o 
fieldbyname... fica mais facil a leitura/compreenção do programa... 

agora faz um teste ai vc, o meu teste deu isso ai abaixo 1.000.000x dá +/- 
1 segundo de diferença... isso em um P4-1.7Ghz, 748MB-ram, windows-XP-PRO 
mas lembre-se 1 milhão de vezes

var
   t1, t2 : tdatetime;
   x : integer;

procedure TForm1.Button1Click(Sender: TObject);
begin
label1.caption := '';
t1 := now;
for x := 1 to 100 do 
   label1.caption :=  VT1.Fieldbyname('field0').asstring;
t2 := now;
label1.caption := timetostr( t2 - t1 ); // 00:00:04
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
label2.caption := '';
t1 := now;
for x := 1 to 100 do 
   label2.caption :=  VT1.Fields[0].asstring;
t2 := now;
label2.caption := timetostr( t2 - t1 ); // 00:00:03
end;

e veja a diferença de tempo entre eles em micros mais modestos...

Luiz Escobar
Analista/Desenvolvedor:
WEB - HTML/JavaScript/PHP/MySQL 
WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase
DOS - Clipper/Assembler xBase
SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k
LINUX - LAZARUS/Kylix/MySQL;
http://www.megasistema.com.br

  - Original Message - 
  From: Marcelo 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, December 08, 2006 2:48 PM
  Subject: [delphi-br] Verdade sobre fieldbyname


  AMigos da lista, gostaria de saber da experiencia de vcs

  Vi em uma lista de discussão que o FieldByName deixa o tráfeco mais 
  lento. Isso é verdade?

  Desde já agradeço a todos


   

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



Re: [delphi-br] Verdade sobre fieldbyname

2006-12-08 Por tôpico Fellipe Henrique
Olá Luiz, na verdade seria Trafego, pois tráfico é crime organizado... :-)

Na verdade, o FieldByName, nao gera peso sobre o trafego na rede, e sim de
processamento, quando voce informa FieldByName, o delphi percorre todos os
campos até achar o que você quer, já você informando o Fields[x] o delphi já
vai direto nele.

Ou seja, o trafego é de processamento e nao de rede.


[]s

Em 08/12/06, Luiz Escobar [EMAIL PROTECTED] escreveu:

   ah, desculpa não seria nem trafeco e sim tráfico... foi maus...

 agora veja bem durante um importação:
 500.000 registros com 50 campos na tabela iria demorar +/- uns 25 segundos
 à mais.. ;-)
 mas numa tabela de 50 campos, onde a importação tem que ser feita usando
 algum tipo de converção/calculo/analise/filtro/etc... eu usaria fieldbyname,
 o usuario que espera neste caso +25 segundos... (e olha que fica olhando 25
 segundos pra tela não é facil não...) agora se for um importação dequelas
 tipo cópia daqui-pra-li os campos na mesma sequencia tipo xerox um banco do
 outro vai de fields[] mesmo
 faço um FOR e poucas linhas eu alimento o outro banco... tipo:

 while not t1.eof() do begin
 t2.insert;
 for x := 0 to t1.fieldcount do
 t2.fields[x].asvalue := t1.fields[x].asvalue;
 t2.post;
 t1.next;
 end;

 Luiz Escobar
 Analista/Desenvolvedor:
 WEB - HTML/JavaScript/PHP/MySQL
 WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase
 DOS - Clipper/Assembler xBase
 SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k
 LINUX - LAZARUS/Kylix/MySQL;
 http://www.megasistema.com.br

 - Original Message -
 From: Marcelo
 To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Sent: Friday, December 08, 2006 2:48 PM
 Subject: [delphi-br] Verdade sobre fieldbyname

 AMigos da lista, gostaria de saber da experiencia de vcs

 Vi em uma lista de discussão que o FieldByName deixa o tráfeco mais
 lento. Isso é verdade?

 Desde já agradeço a todos

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

  




-- 
_
Fellipe Henrique
[EMAIL PROTECTED]


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


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



Re: [delphi-br] Enviar e-mail

2006-12-08 Por tôpico Marcos Bernardo
Salve Igor

então amigo vc quer fazer isso usando o Win32 ou .NET ???

tenho dois exemplos mais não estou aqui comigo...
o .NET ta em C# mas eh muito facil...

caso queira me envio um email em PVT que disponibilizo para vc

mas no historico da lista  com certeza deve ter alguma coisa


abraço

Marcos Bernardo


2006/12/8, Igor Alexandre [EMAIL PROTECTED]:

   Como posso enviar um e-mail diretamente pelo delphi com um arquivo HTML
 no corpo da mensagem, ou até mesmo abrir o outlook já com o HTML no corpo
 da
 mensagem.

 --

 Um Abraço.
 Igor Alexandre.

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

 



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



RES: [delphi-br] Antivírus de email, como eles f azem?

2006-12-08 Por tôpico Marcelo Hoepfner \(SI\)
Voce poderia utilizar um endereço de email, 

 

Neste caso você conectaria ao server e verificaria se existem novos pedidos.

 

Por exemplo se os pedidos vem de pessoas de fora da empresa e esta indo pra um 
email que não é esse vc orienta a todos os usuários que quando quiserem efetuar 
pedidos que encaminhem para o email tal.

 

É uma solução bem eficiente, bom você consegue trabalha com o sistema que lê os 
email de forma mais ágil, pois saberá que todos os emails que caem lá são 
pedidos.

 

 

Marcelo Hoepfner

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Fellipe 
Henrique
Enviada em: sexta-feira, 8 de dezembro de 2006 15:34
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Antivírus de email, como eles fazem?

 

Olá amigos, estou querendo fazer um sistema parecido com um antivirus..
seguinte.. meu programa ficará residente na memória e quando o usuário abrir
seu outlook express ou qualquer outro, e mandar baixar os emails, meu
programa entra em ação.

Identifica o email, e se for um pedido, automaticamente cadastra na base de
dados.

o meu problema está na primeira parte, como interceptar os emails como um
antivirus faz? alguem tem alguma idéia?

Desde já agradeço.
[]s

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

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

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

 



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



Re: [delphi-br] Antivírus de email, como eles fazem?

2006-12-08 Por tôpico Fellipe Henrique
Olá Marcelo, obrigado pela resposta,

porém o pedido foi um exemplo, não posso ter apenas uma conta... seria como
se fosse um anti-spam... se o email tem uma determinada caracteristica
(palavra ou frase), vai pra uma tabela e por aí vai.

O que eu precisaria seria mesmo, um anti-spam, porem sem deletar o email...
:-)

[]s


Em 08/12/06, Marcelo Hoepfner (SI) [EMAIL PROTECTED] escreveu:

   Voce poderia utilizar um endereço de email,

 Neste caso você conectaria ao server e verificaria se existem novos
 pedidos.

 Por exemplo se os pedidos vem de pessoas de fora da empresa e esta indo
 pra um email que não é esse vc orienta a todos os usuários que quando
 quiserem efetuar pedidos que encaminhem para o email tal.

 É uma solução bem eficiente, bom você consegue trabalha com o sistema que
 lê os email de forma mais ágil, pois saberá que todos os emails que caem lá
 são pedidos.

 Marcelo Hoepfner

 _

 De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto:
 delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de
 Fellipe Henrique
 Enviada em: sexta-feira, 8 de dezembro de 2006 15:34
 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Assunto: [delphi-br] Antivírus de email, como eles fazem?

 Olá amigos, estou querendo fazer um sistema parecido com um antivirus..
 seguinte.. meu programa ficará residente na memória e quando o usuário
 abrir
 seu outlook express ou qualquer outro, e mandar baixar os emails, meu
 programa entra em ação.

 Identifica o email, e se for um pedido, automaticamente cadastra na base
 de
 dados.

 o meu problema está na primeira parte, como interceptar os emails como um
 antivirus faz? alguem tem alguma idéia?

 Desde já agradeço.
 []s

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

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

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

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

  




-- 
_
Fellipe Henrique
[EMAIL PROTECTED]


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


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



Re: [delphi-br] Atualização automática

2006-12-08 Por tôpico willer
Valeu pela dica. Vou fazer desse jeito. E é usuário quem fecharia o programa 
par que a atualização fosse feita. Gostei da idéia, vou implelentar.


  - Original Message - 
  From: Luiz Escobar 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, December 08, 2006 4:35 PM
  Subject: Re: [delphi-br] Atualização automática


  Bom na logica, antes de fechar,copiar,abrir o executavel, é melhor vc fazer a 
perguntinha basica pro usuario, vc tem uma atualziação para este software, 
deseja fazer agora ? e que a pargunta se repita tipo a cada 30 minutos, se não 
o usuário vai querer te matar... ehhehehe
  quanto a uma aplicação fechar outra, sei que tem jeito, mas de cabeça agora 
não lembro desculpe...

  Luiz Escobar
  Analista/Desenvolvedor:
  WEB - HTML/JavaScript/PHP/MySQL 
  WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase
  DOS - Clipper/Assembler xBase
  SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k
  LINUX - LAZARUS/Kylix/MySQL;
  http://www.megasistema.com.br

  - Original Message - 
  From: willer 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, December 08, 2006 3:22 PM
  Subject: Re: [delphi-br] Atualização automática

  Só tenho dúvida na lógica.
  Já consigo verificar se há atualização e até baixar os novos arquivos, só não 
estou conseguindo fechar o executável e abró-lo novamente com a nova versão.

  - Original Message - 
  From: Marcelo Hoepfner (SI) 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, December 08, 2006 1:57 PM
  Subject: RES: [delphi-br] Atualização automática

  Cara eu fiz um sistema desses, caso você tenha interesse podemos negociar.

  Marcelo Hoepfner

  msn: [EMAIL PROTECTED]

  _ 

  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Andrei 
Luís
  Enviada em: sexta-feira, 8 de dezembro de 2006 13:22
  Para: delphi-br@yahoogrupos.com.br
  Assunto: Re: [delphi-br] Atualização automática

  Willer,

  Uma idéia seria você utilizar no seu sistema 2 executáveis: 1 pequeno,
  que será executado através de ícones na área de trabalho, etc, que faz
  a atualização quando necessário e chama o 2º executável que é o
  sistema em si.

  []
  Andrei

  Em 08/12/06, willer[EMAIL PROTECTED] mailto:willer%40personalcom.com.br  
escreveu:
   Como faço para fechar o meu programa após ter aberto outro?
   Estou implementando uma rotina de atualização automáticxa que deverá fzer 
isso, baixa um arquivo(.exe), abre um programa auxiliar e fecha. O programa 
auxiliar exclui o antigo, e renomeia o novo, abre-o e fecha-se;
  

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

  __ Informação do NOD32 IMON 1910 (20061208) __

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

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

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



   

  __ Informação do NOD32 IMON 1911 (20061208) __

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


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



Re: [delphi-br] Verdade sobre fieldbyname

2006-12-08 Por tôpico Desenvolvimento \(Anderson\)
rsrsrsrsr

como diz o prof pasquale
trafico de q
nesse caso, o certo é dizer: tráfego


  - Original Message - 
  From: Luiz Escobar 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, December 08, 2006 4:26 PM
  Subject: Re: [delphi-br] Verdade sobre fieldbyname


  ah, desculpa não seria nem trafeco e sim tráfico... foi maus...

  agora veja bem durante um importação: 
  500.000 registros com 50 campos na tabela iria demorar +/- uns 25 segundos à 
mais.. ;-)
  mas numa tabela de 50 campos, onde a importação tem que ser feita usando 
algum tipo de converção/calculo/analise/filtro/etc... eu usaria fieldbyname, o 
usuario que espera neste caso +25 segundos... (e olha que fica olhando 25 
segundos pra tela não é facil não...) agora se for um importação dequelas tipo 
cópia daqui-pra-li os campos na mesma sequencia tipo xerox um banco do 
outro vai de fields[] mesmo
  faço um FOR e poucas linhas eu alimento o outro banco... tipo:

  while not t1.eof() do begin
  t2.insert;
  for x := 0 to t1.fieldcount do 
  t2.fields[x].asvalue := t1.fields[x].asvalue;
  t2.post;
  t1.next;
  end;

  Luiz Escobar
  Analista/Desenvolvedor:
  WEB - HTML/JavaScript/PHP/MySQL 
  WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase
  DOS - Clipper/Assembler xBase
  SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k
  LINUX - LAZARUS/Kylix/MySQL;
  http://www.megasistema.com.br

  - Original Message - 
  From: Marcelo 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, December 08, 2006 2:48 PM
  Subject: [delphi-br] Verdade sobre fieldbyname

  AMigos da lista, gostaria de saber da experiencia de vcs

  Vi em uma lista de discussão que o FieldByName deixa o tráfeco mais 
  lento. Isso é verdade?

  Desde já agradeço a todos

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



   

  __ Informação do NOD32 IMON 1911 (20061208) __

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


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



[delphi-br] Firebird no Windows Vista

2006-12-08 Por tôpico Marckson Sousa
Prezados(as) Senhores(as),

Estou tentando realizar a instalação do Firebird no Windows Vista, 
porém sem grandes sucessos. Consigo instalar sem problemas a versão Classic, 
mas não consigo conectar com o banco de dados.

Alguém já teve sucesso na instalação? Caso afirmativo, poderia 
compartilhar o processo que foi seguido?

Fico aguardando comentários sobre o assunto.

Atenciosamente,

Marckson


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



Re: [delphi-br] Palindromes - Palindromo

2006-12-08 Por tôpico Valfrid-Ly Silva Couto
Cara,

Não acompanhei todo o seu raciocínio mas o mais fácil para comparar palídromes 
é trabalhar com Strings.

Ex: 

Function IsPalimdrome(strFirst, strSecond: String) : Boolean
Var strComp: String;
I : Integer;
Begin
  strFirst := Replace(strFirst, ' ', '');
  strSecond := Replace(strFirst, ' ', '');
  strComp := '';

  //Aqui você vai inverter a segunda string
  For i:= 1 to Length(strSecond) Do
 strComp := strComp + strSecond[i];

  // se ambas as strings foram iguais a palavra é palíndroma
  Result := (strFirst = strComp);
End;

jscoutinho1 [EMAIL PROTECTED] escreveu: Bom dia a todos,
Palindromes (ARARA, AVIVA, ATOYOTA, 12321, 2A3IEAS), então eu sei o
que e um palindrome, so que eu não estou conseguindo fazer esse
programa para comparação de palindrome.
Eu ate fiz a logica são que não esta rodando em fonte...
(Console do Delphi) 
Gostaria saber quem poderia me ajudar.



program Polindromes;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
 n1 :integer;
 n2 :integer;
begin
 Writeln('Digite dois números de até 3 digitos');
 Readln(n1,n2);
 if (n1  1000) and (n2  1000)
   then
if (n1  100) and (n2  100)
 then
   if
(n1 / 100 = n2 mod 10)
 then
  begin
   n1 := (n1 / 100);
   n2 := n2 mod 10;
   if (n1 / 10 = n2 mod 10) and (n1 mod 10 = n2 / 10)
then
 Writeln('Os numeros são palindromes')
  else
   Writeln('Os numeros não são palindromes')
end

 else
  writeln('Os numeros não são palindromes')
  end

 else
  if (n1  10) and (n2  10) and (n2  100)
   then
if (n1 / 10 = n2 mod 10) and (n1 mod 10 = n2 / 10)
 then
  writeln('os numeros são palindromes')
   else
writeln('Os numeors não são palindromes');
 end

   else
writeln('Os numeros não são palindromes');
 end
 end
   end

end.



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Links do Yahoo! Grupos

 



Valfrid-Ly Silva Couto
[EMAIL PROTECTED]
[EMAIL PROTECTED]
[EMAIL PROTECTED]
ICQ 15114646

-
 Você quer respostas para suas perguntas? Ou você sabe muito e quer 
compartilhar seu conhecimento? Experimente o Yahoo! Respostas!

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



[delphi-br] Criar Função

2006-12-08 Por tôpico Fabiana
Boa tarde para todos...

Como faço para criar uma função onde o paramentro seja do tipo objeto?




Fabiana


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



[delphi-br] Bloquear alteracao do dia/hora no pc

2006-12-08 Por tôpico Licerio Neto
Alguem sabe como pelo Delphi eu bloqueio o acesso ao relogio do windows ???
   
  Grato


-
 Você quer respostas para suas perguntas? Ou você sabe muito e quer 
compartilhar seu conhecimento? Experimente o Yahoo! Respostas!

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



Re: [delphi-br] Componente - Urgente!

2006-12-08 Por tôpico Andre Veloso de Mesquita
A melhor forma é você montar um servidor Linux com o Asterisk.

A parte to telemarketing funciona igual a equipamentos Lucent, com a 
vantagem de ser muitíssimo mais barato. Para isso você só precisa de uma boa 
máquina e uma placa Digium (é o único custo). De resto é só instalar o 
Asterisk. Você também terá o custo do PAP. Quanto ao PAP, sugiro você 
procurar no site da Lynksys. Existe um PAP que para cada ponto de rede você 
coloca 2 terminais. O monitoramento é feito por telnet (criei até um objeto 
em delphi para uma empresa que captura esses dados). Vale cada centavo.

[ ]'s

- Original Message - 
From: Ricardo Cesar Cardoso [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Friday, December 08, 2006 3:48 PM
Subject: Re: [delphi-br] Componente - Urgente!


Puxa Luiz!

Fiquei surpreso, já que nunca tinha reparado nestes componentes. Vou testar 
aqui tb pq eles me deram uma idéias...

Valeu pela dica!

Grato,
Ricardo

Luiz Escobar [EMAIL PROTECTED] escreveu: 
Te tem e FREE... procura sobre delphi modem VML no google ou no emule...
 a versão era: vml1.0.4 (acho...) (creio que esse seja o melhor para o que 
vc
 quer...)
 TModemLogFile
 TModemPort
 TModemProfile
 TNoModem
 TVoiceModem
 entre outros
 mas creio que ele vai te ajudar...  mas que vai dar trabalho à isso vai
 ;-)

 agora acho que tem também o tmsgvoc e commdrv32_261a esse ultimo não sei se
 vai servir pra isso que vc quer

 Luiz Escobar
 Analista/Desenvolvedor:
 WEB - HTML/JavaScript/PHP/MySQL
 WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase
 DOS - Clipper/Assembler xBase
 SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k
 LINUX - LAZARUS/Kylix/MySQL;
 http://www.megasistema.com.br

 - Original Message - 
 From: Ricardo Cesar Cardoso
 To: delphi-br@yahoogrupos.com.br
 Sent: Thursday, December 07, 2006 4:51 PM
 Subject: Res: [delphi-br] Componente - Urgente!

 Olha, sem querer desanimar, mas é bastante coisa pra ser desenvolvida.
 Duvido muito que tenha componente pra estas funções e se tiver vai ser pago
 e vai custar caro. Mas dá uma procurada por componentes de telefonia em
 sites como o Torry.net ou Delphi Super Page.

 Abraços e sucesso,
 Ricardo.

 - Mensagem original 
 De: fpsp2000 [EMAIL PROTECTED]
 Para: delphi-br@yahoogrupos.com.br
 Enviadas: Quinta-feira, 7 de Dezembro de 2006 15:48:50
 Assunto: [delphi-br] Componente - Urgente!

 Ola!

 Preciso desenvolver um sistema de telemarkting, onde o operador

 disque pelo sistema e use headset para falar com o cliente, e que o

 mesmo sistema seja capaz de disparar uma mensagem gravada.

 Alguem conhece algum componente que tenha essas funções.

 Fernanda de Paula

 !--

 #ygrp-mlmsg {font-size:13px;font-family:arial,helvetica,clean,sans-serif;}
 #ygrp-mlmsg table {font-size:inherit;font:100%;}
 #ygrp-mlmsg select, input, textarea {font:99%
 arial,helvetica,clean,sans-serif;}
 #ygrp-mlmsg pre, code {font:115% monospace;}
 #ygrp-mlmsg * {line-height:1.22em;}
 #ygrp-text{
 font-family:Georgia;
 }
 #ygrp-text p{
 margin:0 0 1em 0;
 }
 #ygrp-tpmsgs{
 font-family:Arial;
 clear:both;
 }
 #ygrp-vitnav{
 padding-top:10px;
 font-family:Verdana;
 font-size:77%;
 margin:0;
 }
 #ygrp-vitnav a{
 padding:0 1px;
 }
 #ygrp-actbar{
 clear:both;
 margin:25px 0;
 white-space:nowrap;
 color:#666;
 text-align:right;
 }
 #ygrp-actbar .left{
 float:left;
 white-space:nowrap;
 }
 .bld{font-weight:bold;}
 #ygrp-grft{
 font-family:Verdana;
 font-size:77%;
 padding:15px 0;
 }
 #ygrp-ft{
 font-family:verdana;
 font-size:77%;
 border-top:1px solid #666;
 padding:5px 0;
 }
 #ygrp-mlmsg #logo{
 padding-bottom:10px;
 }

 #ygrp-vital{
 background-color:#e0ecee;
 margin-bottom:20px;
 padding:2px 0 8px 8px;
 }
 #ygrp-vital #vithd{
 font-size:77%;
 font-family:Verdana;
 font-weight:bold;
 color:#333;
 text-transform:uppercase;
 }
 #ygrp-vital ul{
 padding:0;
 margin:2px 0;
 }
 #ygrp-vital ul li{
 list-style-type:none;
 clear:both;
 border:1px solid #e0ecee;
 }
 #ygrp-vital ul li .ct{
 font-weight:bold;
 color:#ff7900;
 float:right;
 width:2em;
 text-align:right;
 padding-right:.5em;
 }
 #ygrp-vital ul li .cat{
 font-weight:bold;
 }
 #ygrp-vital a {
 text-decoration:none;
 }

 #ygrp-vital a:hover{
 text-decoration:underline;
 }

 #ygrp-sponsor #hd{
 color:#999;
 font-size:77%;
 }
 #ygrp-sponsor #ov{
 padding:6px 13px;
 background-color:#e0ecee;
 margin-bottom:20px;
 }
 #ygrp-sponsor #ov ul{
 padding:0 0 0 8px;
 margin:0;
 }
 #ygrp-sponsor #ov li{
 list-style-type:square;
 padding:6px 0;
 font-size:77%;
 }
 #ygrp-sponsor #ov li a{
 text-decoration:none;
 font-size:130%;
 }
 #ygrp-sponsor #nc {
 background-color:#eee;
 margin-bottom:20px;
 padding:0 8px;
 }
 #ygrp-sponsor .ad{
 padding:8px 0;
 }
 #ygrp-sponsor .ad #hd1{
 font-family:Arial;
 font-weight:bold;
 color:#628c2a;
 font-size:100%;
 line-height:122%;
 }
 #ygrp-sponsor .ad a{
 text-decoration:none;
 }
 #ygrp-sponsor .ad a:hover{
 text-decoration:underline;
 }
 #ygrp-sponsor .ad p{
 margin:0;
 }
 o {font-size:0;}
 .MsoNormal {
 

[delphi-br] Listbox

2006-12-08 Por tôpico Renato Lorandi
Ola Pessoal!

Galera seguinte, to tentando criar as colunas dinamicamente assim que houver 
necessidade em meu listbox desse jeito..

  IF ListBox1.Items.Count = 10 Then
begin
  ListBox1.Columns:= +1;
  ListBox1.Items.Add('teste');
end
  else
ListBox1.Items.Add('teste');


quero que cada coluna me mostre 10 items, quando chegar a dez ele testa e 
adiciona uma nova coluna, funciona legal.

só tem um único problema, quando adiciona a coluna ele ja cria a barra de 
rolagem em baixo, so que tem espaço para ele me mostrar a duas ate três colunas 
sem eu mover a barra so que não acontece isso, para eu ver a outra coluna tenho 
que mover a barra, gostaria de fazer algo que nem no msn que quando acaba uma 
coluna ele crie outra logo do lado, a minha ocupa toda a area de 
visualização.

OBS. se eu criar as colunas e colocar dados staticos ele funciona desse jeito, 
tem algo para fazer nesse caso de diminuir o tamanho da coluna de acordo com os 
items.


qualquer coisa se não fui bem claro me questionem ok...


abraço.



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



Re: [delphi-br] Verdade sobre fieldbyname

2006-12-08 Por tôpico Campus
 Só para constar, fiz um teste.

 Usando uma tabela Paradox com:
 Total de registros: 202015
 Total de Campos...: 94

 Instruções 18.989.410
 Inicio FieldByName:  16:40:09
 Final  FieldByName:  16:40:23
 Tempo total 14 segundos

 Instruções 202015
 Inicio FieldIndex:  16:40:23
 Final  FieldIndex:  16:40:29
 Tempo total 6 segundos

 Usando um
 Select Sum(campo) levou 6 segundos.

- Original Message - 
From: Fellipe Henrique [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Friday, December 08, 2006 4:39 PM
Subject: Re: [delphi-br] Verdade sobre fieldbyname


Olá Luiz, na verdade seria Trafego, pois tráfico é crime organizado... :-)

Na verdade, o FieldByName, nao gera peso sobre o trafego na rede, e sim de
processamento, quando voce informa FieldByName, o delphi percorre todos os
campos até achar o que você quer, já você informando o Fields[x] o delphi já
vai direto nele.

Ou seja, o trafego é de processamento e nao de rede.


[]s

Em 08/12/06, Luiz Escobar [EMAIL PROTECTED] escreveu:

   ah, desculpa não seria nem trafeco e sim tráfico... foi maus...

 agora veja bem durante um importação:
 500.000 registros com 50 campos na tabela iria demorar +/- uns 25 segundos
 à mais.. ;-)
 mas numa tabela de 50 campos, onde a importação tem que ser feita usando
 algum tipo de converção/calculo/analise/filtro/etc... eu usaria
fieldbyname,
 o usuario que espera neste caso +25 segundos... (e olha que fica olhando
25
 segundos pra tela não é facil não...) agora se for um importação dequelas
 tipo cópia daqui-pra-li os campos na mesma sequencia tipo xerox um banco
do
 outro vai de fields[] mesmo
 faço um FOR e poucas linhas eu alimento o outro banco... tipo:

 while not t1.eof() do begin
 t2.insert;
 for x := 0 to t1.fieldcount do
 t2.fields[x].asvalue := t1.fields[x].asvalue;
 t2.post;
 t1.next;
 end;

 Luiz Escobar
 Analista/Desenvolvedor:
 WEB - HTML/JavaScript/PHP/MySQL
 WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase
 DOS - Clipper/Assembler xBase
 SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k
 LINUX - LAZARUS/Kylix/MySQL;
 http://www.megasistema.com.br

 - Original Message -
 From: Marcelo
 To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Sent: Friday, December 08, 2006 2:48 PM
 Subject: [delphi-br] Verdade sobre fieldbyname

 AMigos da lista, gostaria de saber da experiencia de vcs

 Vi em uma lista de discussão que o FieldByName deixa o tráfeco mais
 lento. Isso é verdade?

 Desde já agradeço a todos

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






-- 
_
Fellipe Henrique
[EMAIL PROTECTED]


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


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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Links do Yahoo! Grupos




-- 
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.432 / Virus Database: 268.15.14/578 - Release Date: 07/12/2006
01:27




Re: [delphi-br] Bloquear alteracao do dia/hora no pc

2006-12-08 Por tôpico Maira LRB
Bloquear como?
O que você quer fazer?


Em 08/12/06, Licerio Neto [EMAIL PROTECTED] escreveu:

   Alguem sabe como pelo Delphi eu bloqueio o acesso ao relogio do windows
 ???

 Grato


 -
 Você quer respostas para suas perguntas? Ou você sabe muito e quer
 compartilhar seu conhecimento? Experimente o Yahoo! Respostas!

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

 




-- 
By
Maira_LRB


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



Re: [delphi-br] Verdade sobre fieldbyname

2006-12-08 Por tôpico Luiz Escobar
VC leu meus outros emails ???  hehehehe
é eu sei... mas vc viu o tempo ???  não acho que compense em um aplicação usar 
fields[] ao inves de fieldbyname o que facilita durante a programação  
é como eu disse se vc for fazer um programa para processar em LOTE, varios 
registros de um vez.. etc...  ai TALVEZ, dependendo da maquina que vai 
executar isso, compence usar fields[] (eca...), mas para à aplicação do 
dia-a-dia, cadastros, views/dbgrid, relatórios, edição, etc fieldbyname é o 
melhor

e os certos são...
tráfico de traficante, drogas, animais, etc.. 
tráfego de trafegar, trafego de automovel de bicicleta, etc...
trafeco ?? bem ai num sei não  hehhee

abraços...

Luiz Escobar
Analista/Desenvolvedor:

  - Original Message - 
  From: Fellipe Henrique 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, December 08, 2006 4:39 PM
  Subject: Re: [delphi-br] Verdade sobre fieldbyname


  Olá Luiz, na verdade seria Trafego, pois tráfico é crime organizado... :-)

  Na verdade, o FieldByName, nao gera peso sobre o trafego na rede, e sim de
  processamento, quando voce informa FieldByName, o delphi percorre todos os
  campos até achar o que você quer, já você informando o Fields[x] o delphi já
  vai direto nele.

  Ou seja, o trafego é de processamento e nao de rede.

  []s

  Em 08/12/06, Luiz Escobar [EMAIL PROTECTED] escreveu:
  
   ah, desculpa não seria nem trafeco e sim tráfico... foi maus...
  
   agora veja bem durante um importação:
   500.000 registros com 50 campos na tabela iria demorar +/- uns 25 segundos
   à mais.. ;-)
   mas numa tabela de 50 campos, onde a importação tem que ser feita usando
   algum tipo de converção/calculo/analise/filtro/etc... eu usaria fieldbyname,
   o usuario que espera neste caso +25 segundos... (e olha que fica olhando 25
   segundos pra tela não é facil não...) agora se for um importação dequelas
   tipo cópia daqui-pra-li os campos na mesma sequencia tipo xerox um banco do
   outro vai de fields[] mesmo
   faço um FOR e poucas linhas eu alimento o outro banco... tipo:
  
   while not t1.eof() do begin
   t2.insert;
   for x := 0 to t1.fieldcount do
   t2.fields[x].asvalue := t1.fields[x].asvalue;
   t2.post;
   t1.next;
   end;
  
   Luiz Escobar
   Analista/Desenvolvedor:
   WEB - HTML/JavaScript/PHP/MySQL
   WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase
   DOS - Clipper/Assembler xBase
   SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k
   LINUX - LAZARUS/Kylix/MySQL;
   http://www.megasistema.com.br
  
   - Original Message -
   From: Marcelo
   To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
   Sent: Friday, December 08, 2006 2:48 PM
   Subject: [delphi-br] Verdade sobre fieldbyname
  
   AMigos da lista, gostaria de saber da experiencia de vcs
  
   Vi em uma lista de discussão que o FieldByName deixa o tráfeco mais
   lento. Isso é verdade?
  
   Desde já agradeço a todos
  
   [As partes desta mensagem que não continham texto foram removidas]
  
   
  

  -- 
  _
  Fellipe Henrique
  [EMAIL PROTECTED]

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

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



   

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



RE: [delphi-br] Compara OnClick com NIL

2006-12-08 Por tôpico Rubem Nascimento da Rocha
Sim, mas o mais importante vc num mencionou. Esse erro acontece quando 
compila o projeto ou só na hora que executa? Pq pra essa mensagem num tem 
nada haver com esse teste que vc tá fazendo!

Sds.


From: Leodinei Bielak [EMAIL PROTECTED]
Reply-To: delphi-br@yahoogrupos.com.br
To: delphi-br delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Compara OnClick com NIL
Date: Thu, 7 Dec 2006 16:10:28 -0200

Olá.
Tem como eu checar se o evento OnClick é nulo?
Eu tentei

if OnClick = nil  then

e está dando a mensagem de Not Enough Actual Parameters.
Valeu

--
Leodinei Bielak

In theory, there is no difference between theory and practice.

In practice, however..

_
MSN Busca: fácil, rápido, direto ao ponto.  http://search.msn.com.br



RES: [delphi-br] Atualização automática

2006-12-08 Por tôpico WELLINGTON

 
Para fechar o programa tente desta forma.
 
HNDMens := FindWindowEx(0,0,nil,PChar(fPrograma));
If Not isWindow(HNDMens) then
Begin //Senão esta em Execução
  WinExec(Pchar(fPath+'\'+fPrograma+'.EXE'),0);
End Else
Begin //Em Execução
  //FINALIZA PROGRAMA
  PostMessage(HNDMens,WM_QUIT,0,0);
  Sleep(1000);
  Application.ProcessMessages;
End;




De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de willer
Enviada em: sexta-feira, 8 de dezembro de 2006 17:16
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Atualização automática



Valeu pela dica. Vou fazer desse jeito. E é usuário quem fecharia o programa 
par que a atualização fosse feita. Gostei da idéia, vou implelentar.

- Original Message - 
From: Luiz Escobar 
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br  
Sent: Friday, December 08, 2006 4:35 PM
Subject: Re: [delphi-br] Atualização automática

Bom na logica, antes de fechar,copiar,abrir o executavel, é melhor vc fazer a 
perguntinha basica pro usuario, vc tem uma atualziação para este software, 
deseja fazer agora ? e que a pargunta se repita tipo a cada 30 minutos, se não 
o usuário vai querer te matar... ehhehehe
quanto a uma aplicação fechar outra, sei que tem jeito, mas de cabeça agora não 
lembro desculpe...

Luiz Escobar
Analista/Desenvolvedor:
WEB - HTML/JavaScript/PHP/MySQL 
WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase
DOS - Clipper/Assembler xBase
SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k
LINUX - LAZARUS/Kylix/MySQL;
http://www.megasistema.com.br http://www.megasistema.com.br 

- Original Message - 
From: willer 
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br  
Sent: Friday, December 08, 2006 3:22 PM
Subject: Re: [delphi-br] Atualização automática

Só tenho dúvida na lógica.
Já consigo verificar se há atualização e até baixar os novos arquivos, só não 
estou conseguindo fechar o executável e abró-lo novamente com a nova versão.

- Original Message - 
From: Marcelo Hoepfner (SI) 
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br  
Sent: Friday, December 08, 2006 1:57 PM
Subject: RES: [delphi-br] Atualização automática

Cara eu fiz um sistema desses, caso você tenha interesse podemos negociar.

Marcelo Hoepfner

msn: [EMAIL PROTECTED] mailto:mehvsc%40hotmail.com 

_ 

De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br  
[mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] 
Em nome de Andrei Luís
Enviada em: sexta-feira, 8 de dezembro de 2006 13:22
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br 
Assunto: Re: [delphi-br] Atualização automática

Willer,

Uma idéia seria você utilizar no seu sistema 2 executáveis: 1 pequeno,
que será executado através de ícones na área de trabalho, etc, que faz
a atualização quando necessário e chama o 2º executável que é o
sistema em si.

[]
Andrei

Em 08/12/06, willer[EMAIL PROTECTED] mailto:willer%40personalcom.com.br  
mailto:willer%40personalcom.com.br  escreveu:
 Como faço para fechar o meu programa após ter aberto outro?
 Estou implementando uma rotina de atualização automáticxa que deverá fzer 
 isso, baixa um arquivo(.exe), abre um programa auxiliar e fecha. O programa 
 auxiliar exclui o antigo, e renomeia o novo, abre-o e fecha-se;


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

__ Informação do NOD32 IMON 1910 (20061208) __

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

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

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

__ Informação do NOD32 IMON 1911 (20061208) __

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

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



 


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



[delphi-br] Livro de Multicamada c/ Delphi

2006-12-08 Por tôpico Vantuil de Araujo Amante Amante
Pessoal, 
   
  Alguém sabe alguma livraria que ainda tem o livro abaixo para vender. Já 
procurei na internet e não encontrei nada, ou então um outro livro similar para 
que eu possa começar desenvolver um sistema nesse novo conceito de multicamada.
   
  Obrigado a todos,
   
  Vantuil.
   
   
  Livro: Sistemas Multicamadas com Delphi( DataSnap e dbExpress) 
Conceitos, Implementação e Macetes 

Autor: Anderson Haertel Rodrigues 
Editora: Visual Books 



-
 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] Aplicação dxGrid para cxGrid

2006-12-08 Por tôpico Eric D.
Pessoal, gostaria de perguntar a todos, se alguém da lista já criou algum 
programa para varrer os DFMs de uma aplicação para converter o dxGrid para 
cxGrid da Developer Express. Pra ser mais específico: alguém já fez isso alguma 
vez e tem isso pronto?

A empresa aqui possui um ERP muito grande (é modular e tem mais de 100 bpls), e 
já adianto o seguinte: Migrar manualmente é impossível, o custo não seria 
suportado pelos clientes. Pretendemos migrar dos grids DX para os grids CX 
devido a uma atualização comprada da DevX recentemente.

Então a idéia seria que uma aplicação trocasse os componentes nos forms e 
somente os métodos e outros itens mais difíceis de rastrear seriam feitos 
manualmente mesmo.

[]'s a todos

Eric D. - Desenvolvimento e Soluções de Tecnologia 
[EMAIL PROTECTED] 
Talk is cheap, show me the code... 

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



RE: [delphi-br] Criar Função

2006-12-08 Por tôpico Rubem Nascimento da Rocha

Ora, simples:

function NomeDaFuncao(ParamObjeto: TObject): TipoDoRetorno;

Sds.

From: Fabiana [EMAIL PROTECTED]
Reply-To: delphi-br@yahoogrupos.com.br
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Criar Função
Date: Fri, 8 Dec 2006 13:19:42 -0200

Boa tarde para todos...

Como faço para criar uma função onde o paramentro seja do tipo objeto?




Fabiana


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


_
MSN Busca: fácil, rápido, direto ao ponto.  http://search.msn.com.br



Re: [delphi-br] Aplicação dxGrid para cxGrid

2006-12-08 Por tôpico Eduardo Silva dos Santos
Procure pela Ferramento  Gexperts, ela faz isso pra vc num piscar de olhos.

Em 08/12/06, Eric D. [EMAIL PROTECTED] escreveu:

   Pessoal, gostaria de perguntar a todos, se alguém da lista já criou
 algum programa para varrer os DFMs de uma aplicação para converter o dxGrid
 para cxGrid da Developer Express. Pra ser mais específico: alguém já fez
 isso alguma vez e tem isso pronto?

 A empresa aqui possui um ERP muito grande (é modular e tem mais de 100
 bpls), e já adianto o seguinte: Migrar manualmente é impossível, o custo não
 seria suportado pelos clientes. Pretendemos migrar dos grids DX para os
 grids CX devido a uma atualização comprada da DevX recentemente.

 Então a idéia seria que uma aplicação trocasse os componentes nos forms e
 somente os métodos e outros itens mais difíceis de rastrear seriam feitos
 manualmente mesmo.

 []'s a todos

 Eric D. - Desenvolvimento e Soluções de Tecnologia
 [EMAIL PROTECTED] ericdesenv%40yahoo.com.br
 Talk is cheap, show me the code...

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

 




-- 
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com/


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



Re: [delphi-br] Palindromes - Palindromo

2006-12-08 Por tôpico Juliano Carvalho - Folhamatic
Vc tem que fazer um loop que inverta a string, manja?
Vai dando Copy() comecando do fim até o inicio e montando outra frase
Ao fim do loop vc vai ter uma string examente ao inverso da original
Compara as duas e se for igual é palindromo

  - Original Message - 
  From: jscoutinho1 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, December 08, 2006 10:44 AM
  Subject: [delphi-br] Palindromes - Palindromo


  Bom dia a todos,
  Palindromes (ARARA, AVIVA, ATOYOTA, 12321, 2A3IEAS), então eu sei o
  que e um palindrome, so que eu não estou conseguindo fazer esse
  programa para comparação de palindrome.
  Eu ate fiz a logica são que não esta rodando em fonte...
  (Console do Delphi) 
  Gostaria saber quem poderia me ajudar.

  program Polindromes;

  {$APPTYPE CONSOLE}

  uses
  SysUtils;

  var
  n1 :integer;
  n2 :integer;
  begin
  Writeln('Digite dois números de até 3 digitos');
  Readln(n1,n2);
  if (n1  1000) and (n2  1000)
  then
  if (n1  100) and (n2  100)
  then
  if
  (n1 / 100 = n2 mod 10)
  then
  begin
  n1 := (n1 / 100);
  n2 := n2 mod 10;
  if (n1 / 10 = n2 mod 10) and (n1 mod 10 = n2 / 10)
  then
  Writeln('Os numeros são palindromes')
  else
  Writeln('Os numeros não são palindromes')
  end

  else
  writeln('Os numeros não são palindromes')
  end

  else
  if (n1  10) and (n2  10) and (n2  100)
  then
  if (n1 / 10 = n2 mod 10) and (n1 mod 10 = n2 / 10)
  then
  writeln('os numeros são palindromes')
  else
  writeln('Os numeors não são palindromes');
  end

  else
  writeln('Os numeros não são palindromes');
  end
  end
  end

  end.



   

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



RES: [delphi-br] Bloquear alteracao do dia/hora no pc

2006-12-08 Por tôpico Rodrigo Mota
Vc naum folow a versão….do windows..mais isso vc faz com police….

GPO..na que o adm da sua rede não possa fazer...

 

Windows 2000 e XP tem um utilitário chamado GPEDIT.MSC vai no executar e
digita isso ai

Tome cuidado...

 

Vc pode fazer via AD- Active Directory

 

 

Abs,

 

 

Rodrigo Mota.

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Licerio Neto
Enviada em: sexta-feira, 8 de dezembro de 2006 15:55
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Bloquear alteracao do dia/hora no pc

 

Alguem sabe como pelo Delphi eu bloqueio o acesso ao relogio do windows ???

Grato


-
Você quer respostas para suas perguntas? Ou você sabe muito e quer
compartilhar seu conhecimento? Experimente o Yahoo! Respostas!

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

 



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



Re: [delphi-br] Conecta a um banco de dados onLine

2006-12-08 Por tôpico willer
Que componente(s) eu usaria para fazer a conexão?



  - Original Message - 
  From: Eduardo Silva dos Santos 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, December 08, 2006 6:41 PM
  Subject: Re: [delphi-br] Conecta a um banco de dados onLine


  é perfeitamento possível, e te adianto que mysql funciona muuuito rapido em
  conexões via internet.
  de mais detalhes que eu te ajudo.

  Em 08/12/06, willer [EMAIL PROTECTED] escreveu:
  
   Alguém sabe se é possível fazer com que um aplicativo se comunique com
   um banco de dados onLine, banco de dados MySql.?
  
   [As partes desta mensagem que não continham texto foram removidas]
  
   
  

  -- 
  Eduardo Silva dos Santos
  DRD Sistemas.
  (27) 3218-4201
  MSN: [EMAIL PROTECTED]
  Site: http://www.drdsistemas.com/

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



   

  __ Informação do NOD32 IMON 1911 (20061208) __

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


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



Re: [delphi-br] Verdade sobre fieldbyname

2006-12-08 Por tôpico Welson Avelar
--- Luiz Escobar escreveu:
 ah, desculpa não seria nem trafeco e sim tráfico...  foi maus...
 (...)
[--x--]

[Welson] Ehehehe... a emenda saiu pior do que o soneto.

XD


=
'O que me preocupa não é o grito dos maus. É o silêncio dos bons.'
Martin Luther King.
=
Welson de Avelar Soares Filho
Analista/Programador Delphi
Gemini Sistemas
www.geminisistemas.com.br
Juiz de Fora - Minas Gerais
=








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


Re: [delphi-br] Conecta a um banco de dados onLine

2006-12-08 Por tôpico Eduardo Silva dos Santos
Qualquer um, a conexão é feita igual à na rede local.

eu uso myDAC www.crlab.com  mas também ja usei ZEOS.


Em 08/12/06, willer [EMAIL PROTECTED] escreveu:

   Que componente(s) eu usaria para fazer a conexão?

 - Original Message -
 From: Eduardo Silva dos Santos
 To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Sent: Friday, December 08, 2006 6:41 PM
 Subject: Re: [delphi-br] Conecta a um banco de dados onLine

 é perfeitamento possível, e te adianto que mysql funciona muuuito rapido
 em
 conexões via internet.
 de mais detalhes que eu te ajudo.

 Em 08/12/06, willer [EMAIL PROTECTED]willer%40personalcom.com.br
 escreveu:
 
  Alguém sabe se é possível fazer com que um aplicativo se comunique com
  um banco de dados onLine, banco de dados MySql.?
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 

 --
 Eduardo Silva dos Santos
 DRD Sistemas.
 (27) 3218-4201
 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com
 Site: http://www.drdsistemas.com/

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

 __ Informação do NOD32 IMON 1911 (20061208) __

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

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

 




-- 
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com/


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



Re: [delphi-br] Re: Usar ou não usar DBWar es? Eis a questão!

2006-12-08 Por tôpico Welson Avelar
--- mrbar2000 escreveu:
 Oi bruno concordo contigo. Dephi é RAD, ó OO, é Fantásticô!!! :)
 
 O problema nao é o delphi ou a borland, nao me entenda mal, o problema
 foi que apesar de poder trabalhar delphi OO dificilmente vemos
 literatura mostrando o uso puramente OO. Seria legal se vc pudesse
 montar um exemplozinho de como vc tá fazendo ai uma simples
 agendazinha (pessoa - agenda - compromisso), utilizando os recursos de
 OO e o RAD do delphi.
 
 Será que vc poderia postar este pequeno exemplo para poder a galera
 começar a ver isso de perto?
[--x--]

[Welson] Bom, você pode partir pra dois caminhos: um é debulhar material sobre
OO e ler no help do Delphi como ele implementa a OO (através de diretivas e
outras coisas).
Ou debulhar material sobre modelagem de sistemas e a partir dos diagramas em
mãos, implementar no Delphi (invariavelmente usando OO).
Bom, acaba que no final das contas, esses dois caminhos na verdade formam um
mesmo caminho.

Cabe aqui uma observação minha: eu acho a implementação de POO muito mais
facilitada no Java. Ainda não peguei C#, mas dizem que também é traquilo.


[]s.

=
'O que me preocupa não é o grito dos maus. É o silêncio dos bons.'
Martin Luther King.
=
Welson de Avelar Soares Filho
Analista/Programador Delphi
Gemini Sistemas
www.geminisistemas.com.br
Juiz de Fora - Minas Gerais
=








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


Re: [delphi-br] Criar Função

2006-12-08 Por tôpico Luiz Escobar


uma function ou procedure  ???  

procedure TForm1.Button1Click(Sender: TObject);

   procedure blabla ( obj1 : tedit; obj2 : tlabel );
   begin
   obj2.Caption := obj1.Text;
   end;

begin
 blabla( edit1, label1 );  // é igual à label1.caption := edit1.text;
end;

Luiz Escobar


- Segue mensagem original! -

De: Fabiana [EMAIL PROTECTED]
Data: Fri, 8 Dec 2006 13:19:42 -0200
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Criar Função

Boa tarde para todos...

Como faço para criar uma função onde o paramentro seja do tipo objeto?

Fabiana

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




[delphi-br] Busca por data

2006-12-08 Por tôpico Marciot2
ola pessoal

Estou tentando fazer uma bucar por data mais da o seguinte erro 

  conversion error from string 0  



alguem saber como posso tratar deste erro, abaixo vai a procedure de busca

 
 DM.CDSAgendamento.Close;
 DM.QryAgendamento.SQL.Clear; //
 DM.QryAgendamento.SQL.Text:='SELECT * FROM AGENDAMENTO WHERE COD_ALUNO = 
'+pcod+
 ' and DATA Between '+DateToStr(pdtini)+
 ' and '+DateToStr(pdtfim)+'';

DM.CDSAgendamento.Open;

---
no delphi compilando passo a passo ele encontra-se desse jeito
DM.QryAgendamento.SQL.Text:='SELECT * FROM AGENDAMENTO WHERE COD_ALUNO = 50 and 
DATA between (12/06/2006)  and (31/12/2006)'

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