RES: [delphi-br] [off topic] PHP ou Java?

2010-06-22 Por tôpico Reinaldo Aparecido Pereira
É impossível responder essa pergunta sem dados do projeto. Se não for
detalhado exatamente o que precisa ser feito, qualquer resposta é em vão.
Qual o servidor web? Terceirizado ou próprio? 
Qual o servidor de banco de dados?
Qual a quantidade de conexões?
Qual número de transações?
Enfim, existem muito e muitas questões que precisam ser respondidas antes
que alguém possa arriscar uma resposta séria para essa pergunta.

[]'s

Reinaldo


-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Marcos Bernardo
Enviada em: terça-feira, 22 de junho de 2010 15:17
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] [off topic] PHP ou Java?

Opa...

Acho o Java uma puta ferramenta, ainda mais se falando de multi-plataforma..
etc...

Agora... PHP... muito material, muitos Frameworks Free...to achando bacana!
Inicie no final do ano passado em PHP.. e achei bem tranquilo..

de uma olhada:
spaghettiphp.org
http://www.nosqlbr.com.br

http://bagusconsultoria.wordpress.com/2010/02/10/re-iniciando-na-web-phpmysq
l/

abraço
Marcos Bernardo

Em 22 de junho de 2010 14:46, Walter Chagas (Bol)
wchag...@bol.com.brescreveu:



 Eu também vou de PHP. Muito mais pratico e robusto tendo a vantagem de que
 pode rodar no Linux, desta feita então voce pode montar um servidor WEB lá
 em Linux e o troço roda a vida inteira sem dar pau.


 []s


 Walter Alves Chagas Junior
 Belo Horizonte - MG - Brazil
 wchag...@bol.com.br wchagasj%40bol.com.br
 http://delphitocorporerm.blogspot.com/
 http://twitter.com/wchagas
 MSN: whitesock...@hotmail.com whitesockets%40hotmail.com
 SKYPE: WalterChagasJr


 - Original Message -
 From: Dirlei
 To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Sent: Monday, June 07, 2010 11:13 AM
 Subject: Re: [delphi-br] [off topic] PHP ou Java?

 Para este caso, entre PHP e Java, fico com o PHP. Usar Java seria um
 overhead desnecessário.

 PS: sou programador certificado em Java, mas não puxo a sardinha pro
 lado dele quando não vale a pena.

 --
 Dirlei Dionísio
 http://MaisQueBomCodigo.blogspot.com

 Em Seg, 2010-06-07 às 09:47 -0300, Ralp Alves Bezerra escreveu:
 
  Venho aqui mais uma vez solicitar a opinião dos nobres colegas.
 
  Já trabalho há alguns anos com delphi e não pretendo larga-lo tão
  cedo.
 
  Porém, aqui em nossa empresa surgiu à necessidade de migrar um de
  nossos
  sistemas que é desk para a web. (sistema de gestão escolar com
  controle de
  merenda escolar e outros).
 
  Minha dúvida seria qual a linguagem mais adequada a ser utilizada? PHP
  ou
  Java?
 
  Espero contar com a sugestão dos nobres colegas.
 
  Abraço.
 
  Ralp Alves
 

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

  




-- 
Marcos A. de A. Bernardo
xmarcos@gmail.com
11 - 9462-2657 / 11- 3205-1499
http://bagusconsultoria.wordpress.com/


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





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 






RES: [delphi-br] (unknown)

2010-06-09 Por tôpico Reinaldo Aparecido Pereira
DB é Paradox, o Excel e o Access abre.

 

Reinaldo Aparecido Pereira

(  +55(45) 8426-4522

*mailto:reinaldoapere...@yahoo.com.br
reinaldoapere...@yahoo.com.br

Skype:  reinaldoapereira

Msn: lista_discus...@msn.com.br

 

Ciscopar Consórcio Intermunicipal de Saúde Costa Oeste

Analista de Sistemas   

( +55(45) 3252-3524

Fag – Faculdade Assis Gurgacz 

Professor de Graduação

( +55(45) 3321-3900

América Latina Tecnologia e Mercado 

Gerente Comercial

( +55(45) 3222-0631

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Rick Benedet Miranda
Enviada em: quarta-feira, 9 de junho de 2010 17:15
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] (unknown)

 

  

Boa tarde aos membros da lista. Quero tirar uma duvida com vcs. Seguinte:
tenho um arquivo de dados de extensão .db e o sistema ao qual ele pertence
foi desenvolvido em Delphi. Contudo não sei em que banco ele foi
desenvolvido. Ja tentei visualizar o arquivo pelo Database Desktop mas não
obtive sucesso. Será que alguém pode me dar uma luz a esse respeito?

Grato - Rick

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





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



[delphi-br] Tratamento de imagens - algumas dúvidas

2010-05-25 Por tôpico Reinaldo Aparecido Pereira
Olá gigantes!,

Estou comparando duas imagens byte a byte. 

Existe uma forma mais rápida de realizar esse processo? 

De uma imagem grande, desejo usar apenas parte da imagem. Isso é simples,
mais preciso  saber se é possível  estabelecer relação entre uma subimagem
com sua imagem original. Ou seja, preciso saber de qual imagem foi extraído
uma parte. Alguém tem idéia de como fazer isso?

Duas imagens idênticas podem por algum motivo serem diferentes se comparado
byte a byte?

Alguém conhece material compreensivo sobre check sum de imagem?

Grato,

 

Reinaldo Aparecido Pereira

(  +55(45) 8426-4522

*mailto:reinaldoapere...@yahoo.com.br
reinaldoapere...@yahoo.com.br

Skype:  reinaldoapereira

Msn: lista_discus...@msn.com.br

 

Ciscopar Consórcio Intermunicipal de Saúde Costa Oeste

Analista de Sistemas   

( +55(45) 3252-3524

Fag – Faculdade Assis Gurgacz 

Professor de Graduação

( +55(45) 3321-3900

América Latina Tecnologia e Mercado 

Gerente Comercial

( +55(45) 3222-0631

 



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



RES: [delphi-br] :::: Instalação Jedi x Delphi 201 0 ::::

2010-05-25 Por tôpico Reinaldo Aparecido Pereira
Eu fiz a instalação e mesmo com essa mensagem de essa instalou corretamente.

 

Reinaldo Aparecido Pereira

(  +55(45) 8426-4522

*mailto:reinaldoapere...@yahoo.com.br
reinaldoapere...@yahoo.com.br

Skype:  reinaldoapereira

Msn: lista_discus...@msn.com.br

 

Ciscopar Consórcio Intermunicipal de Saúde Costa Oeste

Analista de Sistemas   

( +55(45) 3252-3524

Fag – Faculdade Assis Gurgacz 

Professor de Graduação

( +55(45) 3321-3900

América Latina Tecnologia e Mercado 

Gerente Comercial

( +55(45) 3222-0631

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de ## André ##
Enviada em: terça-feira, 25 de maio de 2010 16:11
Para: delphi-br@yahoogrupos.com.br; lista-del...@yahoogrupos.com.br
Assunto: [delphi-br]  Instalação Jedi x Delphi 2010 

 

  

Olá pessoal.

Estou tentando instalar o Jedi (JVCL338CompleteJCL201-Build3449) no delphi
2010.

Primeiro fui instalar o JCL

Logo após a pergunta “Do you want to keep JCL expert settings” clicando em
sim ou não, tanto faz, dá o erro Range Check Error.

Alguém já passou por isso, tem alguma idéia de como resolver?

Obrigado

[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] Out off memory - Socorro

2010-05-03 Por tôpico Reinaldo Aparecido Pereira
Os arquivos tem todos aproximadamente 20k.
Note que estou acompanhando o uso de memória tanto do meu programa quanto do
interbase e nenhum apresenta aumento significativo de uso de memória.
A memória do computador (acompanhando pelo gerenciador de tarefas) não
ultrapassou 60% da disponível.

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Leandro Augusto Soares
Enviada em: domingo, 2 de maio de 2010 17:26
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Out off memory - Socorro

Qual os tamanhos dos aquivos?

[]s
Leandro

Em 2 de maio de 2010 10:29, Reinaldo Aparecido Pereira 
ctocv...@yahoo.com.br escreveu:



 Fiz o teste comitando a cada arquivo importado. Também não funcionou.

 Note que fiz a leitura do arquivo num TSTringlist (stlArquivo).

 Só para ter certeza absoluta, em cada interação do for liberei stlArquivo
 mais ainda assim continua o OUT OF MEMORY.

 Tá difícil descobrir o que é.


 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 Murilo Cunha
 Enviada em: sexta-feira, 30 de abril de 2010 10:34

 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Assunto: Re: [delphi-br] Out off memory - Socorro

 Reinaldo,

 Acho que vc poderia COMMITAR a cada 100 arquivos importados.
 Acho q eh esse o problema... estouro de transacao!

 Obrigado
 MuriloCunha

 On 30/04/2010 10:26, Reinaldo Aparecido Pereira wrote:
  Amigos,
 
  Não entendo de gerenciamento de memória e o que tenho lido não resolveu
 meu
  problema. Estou com a rotina abaixo que importa o conteúdo de 1000
 arquivos
  para um banco Firebird. Lá pelo arquivo 600 a aplicação trava e dá OUT
 OFF
  MEMORY. O executável é muito pequeno e acompanhando o processo não
parece
  ocupar quase nada de memória.
 
  O que acontece afinal?
 
  Como posso resolver isso?
 
  Grato..
 
 
 
 
 
  for i := 0 to Arquivos.Count - 1 do
 
  begin
 
  ProgressBar1.Position := i;
 
  Arquivos.ItemIndex := i;
 
  stlArquivo.Clear;
 
  stlArquivo.LoadFromFile(Arquivos.Items[Arquivos.ItemIndex]);
 
  for x := 0 to stlArquivo.Count - 1 do
 
  begin
 
  //tblArtigos.Active := true;
 
  tblArtigos.Append;
 
  tblArtigos.FieldByName('ANO').Text := cbAno.Text;
 
  tblArtigos.FieldByName('NUM_LINHA').Value := x;
 
  tblArtigos.FieldByName('PK_ARQUIVO').Text :=
  Trim(Arquivos.Items[Arquivos.ItemIndex]);
 
  tblArtigos.FieldByName('LINHA').Text :=
  Copy(Trim(stlArquivo[x]), 0, 999);
 
  tblArtigos.Post;
 
  end;
 
  end;
 
 
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 
  
 
 

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

  



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





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 






RES: [delphi-br] Out off memory - Socorro

2010-05-03 Por tôpico Reinaldo Aparecido Pereira
Testado. Sem sucesso.

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Dirlei Dionísio
Enviada em: domingo, 2 de maio de 2010 15:20
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Out off memory - Socorro

 

  

Reinaldo,

Suspeito que seu tblArtigos esteja acumulando todos os registros em memória.
Como você também carrega cada arquivo inteiro para a memória, parece que
esses dois fatores consomem todos os recursos disponíveis na RAM.

Minha sugestão é realizar a importação usando SQL num componente como o
TQuery ou... se você quiser dar uma de Programador Cowboy, pode
simplesmente adicionar um filtro ao TTable que faça-o retornar sempre FALSE
(ex: Filter='1=2').

[ ]'s
Dirlei.

Em 2 de maio de 2010 10:26, Reinaldo Aparecido Pereira  escreveu:



 É do tipo TTable.

 De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
delphi-br%40yahoogrupos.com.br [mailto:
 delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
delphi-br%40yahoogrupos.com.br] Em nome de
 Marcos Alexandre Lemos Rodrigues
 Enviada em: sexta-feira, 30 de abril de 2010 15:38

 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
delphi-br%40yahoogrupos.com.br
 Assunto: Re: [delphi-br] Out off memory - Socorro

 A tblArquivos é um tipo TTable, TQSLTable ou um ClientDataSet?

 Em 30 de abril de 2010 10:26, Reinaldo Aparecido Pereira  escreveu:


 
 
  Amigos,
 
  Não entendo de gerenciamento de memória e o que tenho lido não resolveu
 meu
  problema. Estou com a rotina abaixo que importa o conteúdo de 1000
 arquivos
  para um banco Firebird. Lá pelo arquivo 600 a aplicação trava e dá OUT
 OFF
  MEMORY. O executável é muito pequeno e acompanhando o processo não
parece
  ocupar quase nada de memória.
 
  O que acontece afinal?
 
  Como posso resolver isso?
 
  Grato..
 
  for i := 0 to Arquivos.Count - 1 do
 
  begin
 
  ProgressBar1.Position := i;
 
  Arquivos.ItemIndex := i;
 
  stlArquivo.Clear;
 
  stlArquivo.LoadFromFile(Arquivos.Items[Arquivos.ItemIndex]);
 
  for x := 0 to stlArquivo.Count - 1 do
 
  begin
 
  //tblArtigos.Active := true;
 
  tblArtigos.Append;
 
  tblArtigos.FieldByName('ANO').Text := cbAno.Text;
 
  tblArtigos.FieldByName('NUM_LINHA').Value := x;
 
  tblArtigos.FieldByName('PK_ARQUIVO').Text :=
  Trim(Arquivos.Items[Arquivos.ItemIndex]);
 
  tblArtigos.FieldByName('LINHA').Text :=
  Copy(Trim(stlArquivo[x]), 0, 999);
 
  tblArtigos.Post;
 
  end;
 
  end;


[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] Out off memory - Socorro

2010-05-02 Por tôpico Reinaldo Aparecido Pereira
É do tipo TTable. 

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome 
de Marcos Alexandre Lemos Rodrigues
Enviada em: sexta-feira, 30 de abril de 2010 15:38
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Out off memory - Socorro

 

  

A tblArquivos é um tipo TTable, TQSLTable ou um ClientDataSet?

Em 30 de abril de 2010 10:26, Reinaldo Aparecido Pereira 
ctocv...@yahoo.com.br mailto:ctocvl_1%40yahoo.com.br  escreveu:



 Amigos,

 Não entendo de gerenciamento de memória e o que tenho lido não resolveu meu
 problema. Estou com a rotina abaixo que importa o conteúdo de 1000 arquivos
 para um banco Firebird. Lá pelo arquivo 600 a aplicação trava e dá OUT OFF
 MEMORY. O executável é muito pequeno e acompanhando o processo não parece
 ocupar quase nada de memória.

 O que acontece afinal?

 Como posso resolver isso?

 Grato..

 for i := 0 to Arquivos.Count - 1 do

 begin

 ProgressBar1.Position := i;

 Arquivos.ItemIndex := i;

 stlArquivo.Clear;

 stlArquivo.LoadFromFile(Arquivos.Items[Arquivos.ItemIndex]);

 for x := 0 to stlArquivo.Count - 1 do

 begin

 //tblArtigos.Active := true;

 tblArtigos.Append;

 tblArtigos.FieldByName('ANO').Text := cbAno.Text;

 tblArtigos.FieldByName('NUM_LINHA').Value := x;

 tblArtigos.FieldByName('PK_ARQUIVO').Text :=
 Trim(Arquivos.Items[Arquivos.ItemIndex]);

 tblArtigos.FieldByName('LINHA').Text :=
 Copy(Trim(stlArquivo[x]), 0, 999);

 tblArtigos.Post;

 end;

 end;

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



RES: [delphi-br] Out off memory - Socorro

2010-05-02 Por tôpico Reinaldo Aparecido Pereira
Fiz o teste comitando a cada arquivo importado. Também não funcionou.

Note que fiz a leitura do arquivo num TSTringlist (stlArquivo). 

Só para ter certeza absoluta, em cada interação do for liberei stlArquivo
mais ainda assim continua o OUT OF MEMORY.

Tá difícil descobrir o que é.

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Murilo Cunha
Enviada em: sexta-feira, 30 de abril de 2010 10:34
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Out off memory - Socorro

 

  

Reinaldo,

Acho que vc poderia COMMITAR a cada 100 arquivos importados.
Acho q eh esse o problema... estouro de transacao!

Obrigado
MuriloCunha

On 30/04/2010 10:26, Reinaldo Aparecido Pereira wrote:
 Amigos,

 Não entendo de gerenciamento de memória e o que tenho lido não resolveu
meu
 problema. Estou com a rotina abaixo que importa o conteúdo de 1000
arquivos
 para um banco Firebird. Lá pelo arquivo 600 a aplicação trava e dá OUT OFF
 MEMORY. O executável é muito pequeno e acompanhando o processo não parece
 ocupar quase nada de memória.

 O que acontece afinal?

 Como posso resolver isso?

 Grato..





 for i := 0 to Arquivos.Count - 1 do

 begin

 ProgressBar1.Position := i;

 Arquivos.ItemIndex := i;

 stlArquivo.Clear;

 stlArquivo.LoadFromFile(Arquivos.Items[Arquivos.ItemIndex]);

 for x := 0 to stlArquivo.Count - 1 do

 begin

 //tblArtigos.Active := true;

 tblArtigos.Append;

 tblArtigos.FieldByName('ANO').Text := cbAno.Text;

 tblArtigos.FieldByName('NUM_LINHA').Value := x;

 tblArtigos.FieldByName('PK_ARQUIVO').Text :=
 Trim(Arquivos.Items[Arquivos.ItemIndex]);

 tblArtigos.FieldByName('LINHA').Text :=
 Copy(Trim(stlArquivo[x]), 0, 999);

 tblArtigos.Post;

 end;

 end;



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



 

 





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



[delphi-br] Out off memory - Socorro

2010-04-30 Por tôpico Reinaldo Aparecido Pereira
Amigos,

Não entendo de gerenciamento de memória e o que tenho lido não resolveu meu
problema. Estou com a  rotina abaixo que importa o conteúdo de 1000 arquivos
para um banco Firebird. Lá pelo arquivo 600 a aplicação trava e dá OUT OFF
MEMORY. O executável é muito pequeno e acompanhando o processo não parece
ocupar quase nada de memória.

O que acontece afinal?

Como posso resolver isso?

Grato..

 

 

 for i := 0 to Arquivos.Count - 1 do

 begin

  ProgressBar1.Position := i;

  Arquivos.ItemIndex  := i;

  stlArquivo.Clear;

  stlArquivo.LoadFromFile(Arquivos.Items[Arquivos.ItemIndex]);

  for x := 0 to stlArquivo.Count - 1 do

  begin

   //tblArtigos.Active := true;

   tblArtigos.Append;

   tblArtigos.FieldByName('ANO').Text := cbAno.Text;

   tblArtigos.FieldByName('NUM_LINHA').Value := x;

   tblArtigos.FieldByName('PK_ARQUIVO').Text :=
Trim(Arquivos.Items[Arquivos.ItemIndex]);

   tblArtigos.FieldByName('LINHA').Text :=
Copy(Trim(stlArquivo[x]), 0, 999);

   tblArtigos.Post;

  end;

 end;



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



[delphi-br] Abstract error

2010-02-23 Por tôpico Reinaldo Aparecido Pereira
Deve ser fácil mais por favor socorro. Estou tendo um Abstract erro no
código abaixo. O que pode ser?

 

procedure TForm4.ArquivosClick(Sender: TObject);

var Links: TStrings;

 i: integer;

begin

 Links := TStrings.Create;

 mmArquivo.Lines.Clear;

 mmArquivo.Lines.LoadFromFile(Arquivos.FileName);

 i := ExtractHtmlTagValues(mmArquivo.Text, 'A', 'HREF', Links);

 Showmessage(Links.Text);

end;

 

 

 function ExtractHtmlTagValues(const HtmlText: string; TagName,
AttribName:string; var Values: TStrings): integer;

 

 



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



[delphi-br] Socorro - Pegar parte de uma imagem

2010-01-23 Por tôpico Reinaldo Aparecido Pereira
Senhores,

 

Tenho uma imagem (JPEG) 199x57 de dimensão e preciso criar uma nova imagem
com parte apenas dessa primeira com a dimensão de 12x57, ou seja, preciso só
do início da imagem.

 

Tentei o seguinte:

Li a imagem num Timage de 12x57 sem streck e autosize e a imagem aparece na
tela exatamente como quero.

O problema é que quando salvo a imagem, mesmo ela sendo apresentada em parte
na tela, toda a figura é salva.

Alguma dica?



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



[delphi-br] Delphi 2010 - Help e autocompletar não funcionam

2010-01-22 Por tôpico Reinaldo Aparecido Pereira
Estou usando o Delphi 2010 Architect Trial no Windows 7 Professional
original e o inicialmente o help não funcionava. Ao acionar o ajuda aparecia
a mensagem: O OBJETO NÃO FOI INICIADO CORRETAMENTE.

 

Agora o recurso de autocompletar também parou de funcionar.

 

Alguém sabe como eu resolvo isso?



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



RES: [delphi-br] Enviar mensagem via rede

2010-01-11 Por tôpico Reinaldo Aparecido Pereira
Segue um código abaixo retirando de um site de dicas, mas nunca tentei.

 

 

641 - Como enviar mensagem para todos que estão conectados na REDE WinNT

function NetSend(dest, source, msg: string): longint; 

type

  TNetMessageBufferSendFunction = function(servername, msgname, fromname:

  PWideChar; buf: PWideChar; buflen: Cardinal): longint; stdcall;

var

  NetMessageBufferSend: TNetMessageBufferSendFunction;

  SourceWideChar: PWideChar;

  DestWideChar: PWideChar;

  MessagetextWideChar: PWideChar;

  Handle: THandle;

begin

 

  Handle := LoadLibrary('NETAPI32.DLL');

  if Handle = 0 then

  begin

  Result := GetLastError;

  exit;

  end;

 

  @NetMessageBufferSend := GetProcAddress(Handle, 'NetMessageBufferSend');

  if @NetMessageBufferSend = nil then

  begin

  Result := GetLastError;

  exit;

  end;

 

  MessagetextWideChar := nil;

  SourceWideChar := nil;

  DestWideChar := nil;

 

  try

  GetMem(MessagetextWideChar, Length(msg) * SizeOf(WideChar) + 1);

  GetMem(DestWideChar, 20 * SizeOf(WideChar) + 1);

  StringToWideChar(msg, MessagetextWideChar, Length(msg) *

  SizeOf(WideChar) + 1);

  StringToWideChar(Dest, DestWideChar, 20 * SizeOf(WideChar) + 1);

  if source = '' then

  result := NetMessageBufferSend(nil, DestWideChar, nil,

  MessagetextWideChar, Length(msg) * SizeOf(WideChar) + 1)

  else

  begin

  GetMem(SourceWideChar, 20 * SizeOf(WideChar) + 1);

  StringToWideChar(source, SourceWideChar, 20 * SizeOf(WideChar) + 1);

  result := NetMessageBufferSend(nil, DestWideChar, SourceWideChar,

  MessagetextWideChar, Length(msg) * SizeOf(WideChar) + 1);

  freemem(SourceWideChar);

  end;

  finally

  FreeMem(MessagetextWideChar);

  FreeLibrary(Handle);

  end;

end; 

 

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Heraldo Andrade
Enviada em: segunda-feira, 11 de janeiro de 2010 15:17
Para: Grupo Delphi
Assunto: [delphi-br] Enviar mensagem via rede

 

  

Ola pessoal
Gostaria de saber se algum colega ja fez alguma aplicacao que possa enviar
mensagens entre os que estao na rede via programa, gostaria de uma dica

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

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





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



RES: [delphi-br] Select em campo BLOB

2010-01-03 Por tôpico Reinaldo Aparecido Pereira
Perdoe-me, mais o termo checksum é novo para mim.
O que fiz foi gravar todo o conteúdo da imagem em um campo memo.
Não sei se é possível comparações de campo memo.
Pode me dar mais orientações sobre sua dica.

Abçs, Reinaldo

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Dirlei Dionísio
Enviada em: domingo, 3 de janeiro de 2010 00:12
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Select em campo BLOB

Você pode ter um campo para guardar o checksum da imagem, além do binário
dela. Na hora de verificar se a imagem existe, faça a busca pelo checksum.

Um dos algoritmos de checksum mais conhecidos é o MD5.

[ ]'s
Dirlei.

2010/1/1 Reinaldo Aparecido Pereira ctocv...@yahoo.com.br



 Senhores,

 No Access ou no Interbase, é possível fazer select em campos tipo Blob.

 Explico melhor.

 Tenho uma foto e desejo saber se ela já cadastrada em uma tabela no meu
 banco de dados.

 Alguma dica de como eu faço isso?

 Abçs, Reinaldo


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

  



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





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 






[delphi-br] Select em campo BLOB

2010-01-01 Por tôpico Reinaldo Aparecido Pereira
Senhores,

 

No Access ou no Interbase, é possível fazer select em campos tipo Blob.

Explico melhor.

Tenho uma foto e desejo saber se ela já cadastrada em uma tabela no meu
banco de dados.

Alguma dica de como eu faço isso?

 

Abçs, Reinaldo



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



[delphi-br] Winpopup

2009-11-20 Por tôpico Reinaldo Aparecido Pereira
Alguém já desenvolveu algo do tipo Winpopup para envio de mensagens
instantâneas em redes Windows?

Preciso achar algo pronto ou criar algo novo para usar na rede que trabalho.

 

Grato,

 

Reinaldo



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



[delphi-br] Captcha - imagem de controles

2009-11-04 Por tôpico Reinaldo Aparecido Pereira - Listas de discussão
Olá amigos,

 

Alguém já burlou  com sucesso um captcha?

 

Abçs, Reinaldo 



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



[delphi-br] Preenchimento - SOCORRO

2009-09-30 Por tôpico Reinaldo Aparecido Pereira
Amigos,

 

Estou tentando preencher automaticamente  o formulário on-line:

http://www.correios.com.br/servicos/agencias/ag_endereco.cfm?uf=%226%3ED%20%
0A

 

A idéia é apenas selecionar uma cidade. Estou usando o seguinte código:

 

procedure TForm1.Button1Click(Sender: TObject);

var

 document: IHTMLDocument2;

 docAll: IHTMLElementCollection;

 Elementos: iDispatch;

 O_Elemento: IHTMLElement;

 x : longint;

 y : integer;

 theForm: IHTMLFormElement; 

begin

 y := 0;

 document := WebCidades.Document as IHTMLDocument2;

 ListaCidades.Items.Clear;

 if Assigned(document) then

 begin

  docAll := document.all;

  x := 0;

  while x  DocAll.length do

  begin

   Elementos := DocAll.Item(x,'');

   O_Elemento := Elementos as IHTMLElement;

   if O_Elemento.TagName = 'OPTION' then

   begin

if y = 1 then

 ListaCidades.Items.Add(O_Elemento.InnerText);

if O_Elemento.innerText = 'Escolha um Município' then

 y := 1;

   end;

   inc(x);

  end;

 end;

 // algoritmo para baixar os detalhes de cada cidade

 ListaCidades.ItemIndex := 0;

 theForm := GetFormByNumber(document,2);

 SetFieldValue(theForm,'uf','PR');

 
SetFieldValue(theForm,'municipio',Trim(ListaCidades.Items[ListaCidades.ItemI
ndex]));

// TheForm.submit;

 

end;

 

 

Quando executo o código o combobox fica em branco e não aparece a cidade que
eu desejo. Algúem me socorra!!!

 

O código HTML da página está abaixo.

 

 

 

form name=form_uf action=/servicos/agencias/Endereco_Resultado.cfm
method=post

input type=Hidden name=uf value=PR 

table border=0 width=100% cellpadding=3 cellspacing=0

tr

td width=20%bMuniciacute;pio:/b/td

td

select name=municipio

option value=0Escolha um Municiacute;pio/option

 

option value=4O CENTENARIO4O CENTENARIO/option

 

option value=ABATIA   ABATIA   /option

 

option value=ADRIANOPOLIS ADRIANOPOLIS /option

 

option value=AGUDOS DO SULAGUDOS DO SUL/option

 

option value=ALMIRANTE TAMANDARE  ALMIRANTE TAMANDARE  /option

 

 



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



RES: [delphi-br] DBGrid

2009-06-23 Por tôpico Reinaldo Aparecido Pereira
Use no dbgrid o evento dbGradeDrawColumnCell para desenhar o visto, ou
qualquer outra imagem que desejar.

Use a variável Datacol para saber quando deve desenhar no canvas a imagem.

A variável Rect contém os limites da coluna que está sendo impressa, logo,
use xxx para posicionar onde desejar desenhar a imagem.

Aí é só desenhar o que você quiser.  

 

procedure TfrmHome.dbGradeDrawColumnCell(Sender: TObject; const Rect: TRect;

  DataCol: Integer; Column: TColumn; State: TGridDrawState);

Begin

 If DataCol = 2 then

begin

if
dbGrade.DataSource.DataSet.FieldByName('nome do campo').Value ue then

Draw(Rect.Left+xxx,
Rect.Top+xxx, CheckOn.Picture.Bitmap)

else   

Draw(Rect.Left+xxx,
Rect.Top+xxx, CheckOff.Picture.Bitmap);

end;

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de EmbarcaDelphi
Enviada em: terça-feira, 23 de junho de 2009 19:45
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] DBGrid

 






Estou utilizando o CheckListBox da JEDI que tem esta propriedade, Creio 
que existe esta propriedade para Bancos de Dados como o DBGrid, alguém 
que usa pode saber disso...

Blz.

Bollasette escreveu:


 Eu indico o wwDbGrid da Infopower (pago).

 - Original Message -
 From: stainle2003 stainle2...@yahoo.com.br
mailto:stainle2003%40yahoo.com.br  
 mailto:stainle2003%40yahoo.com.br
 To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
 Sent: Tuesday, June 23, 2009 5:44 PM
 Subject: [delphi-br] DBGrid

 Gostaria de trocar o valor True de um campo no DBGrid por um visto 
 ou seja
 aquela imagem que significa OK ou ticado, coisa assim.
 uso o Delphi 7.
 conto com a ajuda de vocês.
 grato.
 Stainle

 .

 





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



RES: [delphi-br] visualizar tabela de 10 em 10 minutos

2009-06-23 Por tôpico Reinaldo Aparecido Pereira
A pergunta foi mau formulada mas vamos lá:

 

- se desejar consultar horários cadastrados de 10 em 10 minutos, aí é usar
select normal.

- se desejar que o sistema faça consultas automaticamente a cada 10 minutos
passados, aí use o objeto Timer na palheta system (senão me engano).

 

Abçs, Reinaldo

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Leandro
Enviada em: terça-feira, 23 de junho de 2009 19:09
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] visualizar tabela de 10 em 10 minutos

 






rubem acho q ele quiz dizer horarios cadastrados num periodo de 10 em 10 min
tipo trazer soh os cadastrados de 10:00:00 as 10:10:00, foi isso alex?

2009/6/23 Rubem Rocha rubem.ro...@dtmanaus.com.br
mailto:rubem.rocha%40dtmanaus.com.br 



 Não existe SELECT temporizado via SQL. Essa idéia é equivocada. Você tem
 que
 implementar isso na sua camada front-end, ou seja, na sua aplicação. Isso,
 a
 grosso modo, seria um timer que, de tempos em tempos, abriria e fecharia
um
 componente de consulta definido por você

 Boa sorte.

 Sds.

 De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
delphi-br%40yahoogrupos.com.br [mailto:
 delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
delphi-br%40yahoogrupos.com.br] Em
 nome de asandro1501
 Enviada em: terça-feira, 23 de junho de 2009 10:35
 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
delphi-br%40yahoogrupos.com.br
 Assunto: [delphi-br] visualizar tabela de 10 em 10 minutos


 Olá Pessoal

 Tenho uma tabela de horários onde tenho horários cadastrados minuto a
 minuto. Alguém sabe alguma instrução sql para visualizar os horários
 separados a cada 10 minutos?

 Deus abençoe

 Alex Silva
 msn:lekinh...@hotmail.com mailto:lekinhors%40hotmail.com
lekinhors%40hotmail.com mailto:
 lekinhors%40hotmail.com lekinhors%2540hotmail.com

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

 


-- 
Leandro, MuTukA

[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] pdf no delphi

2009-06-22 Por tôpico Reinaldo Aparecido Pereira
Se você tiver o Adobe Acrobat instalado na sua máquina, vá em
Component-Import ActiveX Control e você terá as funcionalidade de pdf
dentro do Delphi.

 

Daí é só procurar na rede que tem documentação desse ActiveX. Eu mesmo já
usei esse componente pra isso mas confesso que não tenho mais a documentação
do componente,

 

Abçs, Reinaldo

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Felipe de Araújo Lopes
Enviada em: segunda-feira, 22 de junho de 2009 09:05
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] pdf no delphi

 






Galera, bom dia
Estou com um problema.
Preciso desenvolver um programa que leia um arquivo pdf e salve o conteudo
desse arquivo em pdf. Preciso também identificar a pagina no pdf.
Estava usando uma dll PDFtext.dll de uma empresa. So que é muito falha.
Alguém pode me ajudar.





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



RES: RES: [delphi-br] OFF TOPIC: Mega Projeto

2009-06-17 Por tôpico Reinaldo Aparecido Pereira
Alô todos,

 

Criei uma conta no Google Docs e deixei 02 arquivos à disposição.

Um explica o que será feito e detalhes sobre legalidade e tudo mais.

O outro é uma lista de adesão para quem desejar fazer o teste.

Fiquem à vontade para entrar, deixar comentários.

E claro, por favor não apaguem nem troquem a senha.

Vamos tentar focar nossa discussão lá para não comprometer a qualidade da
lista que é focada em Delphi

 

http://docs.google.com/

login: mega.proj...@yahoo.com.br

senha: mega1234

 

Grato à todos,

 

Reinaldo 

 

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Luiz Escobar
Enviada em: terça-feira, 16 de junho de 2009 00:37
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] OFF TOPIC: Mega Projeto

 






se for legal, to dentro...
[]s
Luiz Escobar

From: Valfrid-Ly Silva Couto 
Sent: Monday, June 15, 2009 10:26 PM
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br  
Subject: Re: RES: [delphi-br] OFF TOPIC: Mega Projeto

Isso é legal?!

--- Em seg, 15/6/09, Reinaldo Aparecido Pereira ctocv...@yahoo.com.br
mailto:ctocvl_1%40yahoo.com.br  escreveu:

De: Reinaldo Aparecido Pereira ctocv...@yahoo.com.br
mailto:ctocvl_1%40yahoo.com.br 
Assunto: RES: [delphi-br] OFF TOPIC: Mega Projeto
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br 
Data: Segunda-feira, 15 de Junho de 2009, 12:58

Caros,

Estou preparando um documento detalhado para explicar o projeto e
encaminharei à todos os interessados.

Mas adianto, a base que desejo extrair é a de veículos do Detran-PR.

http://celepar7.pr.gov.br/mtm/servicos/cons_multa.asp

Essa base pode ser usada para uma infinidade de coisas. Alguns dados da
base:

- VEICULO

- MARCA

- MODELO

- PLACA

- RENAVAM

- CHASSIS

- SITUACAO (SE ESTÁ FINANCIADO, SE TEM BUSCA E APREENSÃO)

- MULTA, (SE TEM MULTAS E QUAIS).

Nem preciso dizer que isso tem um valor incalculável.

Eu desejo usá-la para um site que logo concluirei de contestação de multas.

A base será usada para que a partir de um placa eu consiga o Renavam.

Em breve enviarei informações detalhadas.

Assim que todos os interessados se manifestarem, envio os detalhe.

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 EmbarcaDelphi
Enviada em: segunda-feira, 15 de junho de 2009 10:50
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br 
Assunto: Re: [delphi-br] OFF TOPIC: Mega Projeto

Quem quer ser laranjas? A Base de Dados são informações de contas 
bancárias, hehehe (brincadeira)
Estou aguadando mais informações sobre esse seu Mega Projeto

Reginaldo escreveu:


 Meu pc de casa fica ligado 24 hs, posso contribuir, mas poderia dar 
 mais detalhes do que contem essa base de dados ?

 Reginaldo

 - Original Message -
 From: Reinaldo Aparecido Pereira
 To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
 Sent: Monday, June 15, 2009 8:56 AM
 Subject: [delphi-br] OFF TOPIC: Mega Projeto

 Olá amigos,

 Preciso de 300 voluntários para a execução de um projeto bem simples.
 Trata-se de um robô que irá baixar uma base de dados de 5 milhões de 
 linhas.

 Para baixar usando apenas meu computador, segundo alguns cálculos 
 levarei 1
 ano.

 Dessa forma, estou convidando-os para uma grande desafio. Preciso de 
 300 pcs
 rodando um aplicativo para baixar a base. Acredito que um dia à um dia e
 meio de processamento está resolvido.

 A base tem um valor enorme e depois de integrada, envio a cópia dela para
 cada um que participou do processo.

 Quaisquer dúvidas estou à total disposição.

 Grato,

 Reinaldo


 

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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





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



RES: RES: [delphi-br] OFF TOPIC: Mega Projeto

2009-06-17 Por tôpico Reinaldo Aparecido Pereira
Alô todos,

 

Criei uma conta no Google Docs e deixei 02 arquivos à disposição.

Um explica o que será feito e detalhes sobre legalidade e tudo mais.

O outro é uma lista de adesão para quem desejar fazer o teste.

Fiquem à vontade para entrar, deixar comentários.

E claro, por favor não apaguem nem troquem a senha.

Vamos tentar focar nossa discussão lá para não comprometer a qualidade da
lista que é focada em Delphi

 

http://docs.google.com/

login: mega.proj...@yahoo.com.br

senha: mega1234

 

Grato à todos,

 

Reinaldo 

 

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Alexandre Peçanha
Enviada em: segunda-feira, 15 de junho de 2009 15:21
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] OFF TOPIC: Mega Projeto

 






Olá Reinaldo,
Já participei de um projeto parecido, e gostaria apenas de dar uns toques
relativos a potenciais problemas de ordem prática nesse tipo de iniciativa.

Supondo que o dono da base (Detran-PR) tenha se preocupado com a segurança
da informação, consultas massivas tendem a ter o seguinte tratamento:

a. 1 IP faz uma consulta massiva e torna o serviço lento - isso é facilmente
detectavel e o procedimento padrão é colocar esse IP numa blacklist e
proibir seu acesso ao serviço.

b. Vários IP´s fazem consultas massivas. O mais comum é tirar o serviço do
ar. Isso certamente será enxergado (pelo sistema) como um ataque do tipo
negação de serviço, e os ip´s serão igualmente postos numa blacklist, e por
se tratar de um sistema do governo, isso pode desencadear algum tipo de
processo - (vi acontecer exatamente essa situação num projeto que tentava
buscar a base de regiões de exploração de minerais no site www.dnpm.gov.br).
As implicações são consideráveis para a empresa patrocinadora da atividade.
No caso de pessoas físicas, não faço idéia das medidas adotadas (se
houverem).

Para este tipo de extração, é preciso cuidado para não gerar uma fila de
espera no serviço, ou seja, o aplicativo gerado, deve proporcionar um
intervalo entre consultas, e dependendo da quantidade de pessoas envolvidas
nessa extração, esse tempo deve ser bastante grande (tipo 10 a 15 segundos
entre consultas de um mesmo cliente), pois aumentos de demanda nesse tipo de
serviço sempre chamam a atenção dos administradores do sistema.

E esse tipo de extração, deve ocorrer num período razoávelmente curto, pois
assim que os administradores detectarem a consulta automatizada, tenha
certeza de que eles irão adotar o captcha para voltar aos níveis normais de
serviço.

... não quero jogar água fria no projeto, só quero alertá-los para os
cuidados necessários...

[]´s

Alexandre Peçanha
alexpeca...@gmail.com mailto:alexpecanha%40gmail.com 

2009/6/15 Reinaldo Aparecido Pereira ctocv...@yahoo.com.br
mailto:ctocvl_1%40yahoo.com.br 



 Esta base está on-line, é pública e sem captcha.

 Juridicamente poderei acessar a base sim. Isso de acordo com uma
 jurisprudência de outubro do ano passado.

 Veja o caso da base de CPF da Receita Federal.

 A consulta é publica, mas existe o captcha que impede a automação das
 pesquisas.

 Mas isso não impede que qualquer empresa contrate muitas pessoas que
fiquem
 o dia inteiro digitando e consultando.

 Segundo um caso ocorrido no passado, a venda dessa informação é proibida
 mas o uso não.

 De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
delphi-br%40yahoogrupos.com.br [mailto:
 delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
delphi-br%40yahoogrupos.com.br] Em nome de
 Fernando de Laurentiis
 Enviada em: segunda-feira, 15 de junho de 2009 13:39

 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
delphi-br%40yahoogrupos.com.br
 Assunto: Re: RES: [delphi-br] OFF TOPIC: Mega Projeto
 Prioridade: Alta

 E essa base, ela é legal??
 Vc poderia ter acesso a esse tipo de informações??

 []'sss

 Em 15/06/2009 12:58, Reinaldo Aparecido Pereira lt; ctocv...@yahoo.com.br
mailto:ctocvl_1%40yahoo.com.br ctocvl_1%40yahoo.com.brmailto:
 ctocvl_1%40yahoo.com.br ctocvl_1%2540yahoo.com.br gt; escreveu:

 Caros,

 Estou preparando um documento detalhado para explicar o projeto e
 encaminharei à todos os interessados.

 Mas adianto, a base que desejo extrair é a de veículos do Detran-PR.

 http://celepar7.pr.gov.br/mtm/servicos/cons_multa.asp

 Essa base pode ser usada para uma infinidade de coisas. Alguns dados da
 base:

 - VEICULO

 - MARCA

 - MODELO

 - PLACA

 - RENAVAM

 - CHASSIS

 - SITUACAO (SE ESTÁ FINANCIADO, SE TEM BUSCA E APREENSÃO)

 - MULTA, (SE TEM MULTAS E QUAIS).

 Nem preciso dizer que isso tem um valor incalculável.

 Eu desejo usá-la para um site que logo concluirei de contestação de
multas.

 A base será usada para que a partir de um placa eu consiga o Renavam.

 Em breve enviarei informações detalhadas.

 Assim que todos os interessados se manifestarem, envio os detalhe.

 De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
delphi-br

RES: RES: [delphi-br] OFF TOPIC: Mega Projeto

2009-06-17 Por tôpico Reinaldo Aparecido Pereira
Alô todos,

 

Criei uma conta no Google Docs e deixei 02 arquivos à disposição.

Um explica o que será feito e detalhes sobre legalidade e tudo mais.

O outro é uma lista de adesão para quem desejar fazer o teste.

Fiquem à vontade para entrar, deixar comentários.

E claro, por favor não apaguem nem troquem a senha.

Vamos tentar focar nossa discussão lá para não comprometer a qualidade da
lista que é focada em Delphi

 

http://docs.google.com/

login: mega.proj...@yahoo.com.br

senha: mega1234

 

Grato à todos,

 

Reinaldo 

 

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de TI - Metalurgica Jano
Enviada em: terça-feira, 16 de junho de 2009 07:13
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: RES: [delphi-br] OFF TOPIC: Mega Projeto

 






Estou dentro amigo.

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 Luiz Escobar
Enviada em: terça-feira, 16 de junho de 2009 00:37
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br 
Assunto: Re: RES: [delphi-br] OFF TOPIC: Mega Projeto

se for legal, to dentro...
[]s
Luiz Escobar

From: Valfrid-Ly Silva Couto 
Sent: Monday, June 15, 2009 10:26 PM
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br 
Subject: Re: RES: [delphi-br] OFF TOPIC: Mega Projeto

Isso é legal?!

--- Em seg, 15/6/09, Reinaldo Aparecido Pereira ctocv...@yahoo.com.br
mailto:ctocvl_1%40yahoo.com.br 
mailto:ctocvl_1%40yahoo.com.br  escreveu:

De: Reinaldo Aparecido Pereira ctocv...@yahoo.com.br
mailto:ctocvl_1%40yahoo.com.br 
mailto:ctocvl_1%40yahoo.com.br 
Assunto: RES: [delphi-br] OFF TOPIC: Mega Projeto
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br 
Data: Segunda-feira, 15 de Junho de 2009, 12:58

Caros,

Estou preparando um documento detalhado para explicar o projeto e
encaminharei à todos os interessados.

Mas adianto, a base que desejo extrair é a de veículos do Detran-PR.

http://celepar7.pr.gov.br/mtm/servicos/cons_multa.asp

Essa base pode ser usada para uma infinidade de coisas. Alguns dados da
base:

- VEICULO

- MARCA

- MODELO

- PLACA

- RENAVAM

- CHASSIS

- SITUACAO (SE ESTÁ FINANCIADO, SE TEM BUSCA E APREENSÃO)

- MULTA, (SE TEM MULTAS E QUAIS).

Nem preciso dizer que isso tem um valor incalculável.

Eu desejo usá-la para um site que logo concluirei de contestação de multas.

A base será usada para que a partir de um placa eu consiga o Renavam.

Em breve enviarei informações detalhadas.

Assim que todos os interessados se manifestarem, envio os detalhe.

De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
[mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
] Em
nome de EmbarcaDelphi
Enviada em: segunda-feira, 15 de junho de 2009 10:50
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br 
Assunto: Re: [delphi-br] OFF TOPIC: Mega Projeto

Quem quer ser laranjas? A Base de Dados são informações de contas 
bancárias, hehehe (brincadeira)
Estou aguadando mais informações sobre esse seu Mega Projeto

Reginaldo escreveu:


 Meu pc de casa fica ligado 24 hs, posso contribuir, mas poderia dar 
 mais detalhes do que contem essa base de dados ?

 Reginaldo

 - Original Message -
 From: Reinaldo Aparecido Pereira
 To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
 Sent: Monday, June 15, 2009 8:56 AM
 Subject: [delphi-br] OFF TOPIC: Mega Projeto

 Olá amigos,

 Preciso de 300 voluntários para a execução de um projeto bem simples.
 Trata-se de um robô que irá baixar uma base de dados de 5 milhões de 
 linhas.

 Para baixar usando apenas meu computador, segundo alguns cálculos 
 levarei 1
 ano.

 Dessa forma, estou convidando-os para uma grande desafio. Preciso de 
 300 pcs
 rodando um aplicativo para baixar a base. Acredito que um dia à um dia e
 meio de processamento está resolvido.

 A base tem um valor enorme e depois de integrada, envio a cópia dela para
 cada um que participou do processo.

 Quaisquer dúvidas estou à total disposição.

 Grato,

 Reinaldo


 

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

[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

RES: RES: [delphi-br] OFF TOPIC: Mega Projeto

2009-06-16 Por tôpico Reinaldo Aparecido Pereira
Já respondido.

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Valfrid-Ly Silva Couto
Enviada em: segunda-feira, 15 de junho de 2009 22:26
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] OFF TOPIC: Mega Projeto

 






Isso é legal?!

--- Em seg, 15/6/09, Reinaldo Aparecido Pereira ctocv...@yahoo.com.br
mailto:ctocvl_1%40yahoo.com.br  escreveu:

De: Reinaldo Aparecido Pereira ctocv...@yahoo.com.br
mailto:ctocvl_1%40yahoo.com.br 
Assunto: RES: [delphi-br] OFF TOPIC: Mega Projeto
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br 
Data: Segunda-feira, 15 de Junho de 2009, 12:58

Caros,

Estou preparando um documento detalhado para explicar o projeto e
encaminharei à todos os interessados.

Mas adianto, a base que desejo extrair é a de veículos do Detran-PR.

http://celepar7.pr.gov.br/mtm/servicos/cons_multa.asp

Essa base pode ser usada para uma infinidade de coisas. Alguns dados da
base:

- VEICULO

- MARCA

- MODELO

- PLACA

- RENAVAM

- CHASSIS

- SITUACAO (SE ESTÁ FINANCIADO, SE TEM BUSCA E APREENSÃO)

- MULTA, (SE TEM MULTAS E QUAIS).

Nem preciso dizer que isso tem um valor incalculável.

Eu desejo usá-la para um site que logo concluirei de contestação de multas.

A base será usada para que a partir de um placa eu consiga o Renavam.

Em breve enviarei informações detalhadas.

Assim que todos os interessados se manifestarem, envio os detalhe.

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 EmbarcaDelphi
Enviada em: segunda-feira, 15 de junho de 2009 10:50
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br 
Assunto: Re: [delphi-br] OFF TOPIC: Mega Projeto

Quem quer ser laranjas? A Base de Dados são informações de contas 
bancárias, hehehe (brincadeira)
Estou aguadando mais informações sobre esse seu Mega Projeto

Reginaldo escreveu:


 Meu pc de casa fica ligado 24 hs, posso contribuir, mas poderia dar 
 mais detalhes do que contem essa base de dados ?

 Reginaldo

 - Original Message -
 From: Reinaldo Aparecido Pereira
 To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
 Sent: Monday, June 15, 2009 8:56 AM
 Subject: [delphi-br] OFF TOPIC: Mega Projeto

 Olá amigos,

 Preciso de 300 voluntários para a execução de um projeto bem simples.
 Trata-se de um robô que irá baixar uma base de dados de 5 milhões de 
 linhas.

 Para baixar usando apenas meu computador, segundo alguns cálculos 
 levarei 1
 ano.

 Dessa forma, estou convidando-os para uma grande desafio. Preciso de 
 300 pcs
 rodando um aplicativo para baixar a base. Acredito que um dia à um dia e
 meio de processamento está resolvido.

 A base tem um valor enorme e depois de integrada, envio a cópia dela para
 cada um que participou do processo.

 Quaisquer dúvidas estou à total disposição.

 Grato,

 Reinaldo


 

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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





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



[delphi-br] OFF TOPIC: Mega Projeto

2009-06-15 Por tôpico Reinaldo Aparecido Pereira
Olá amigos,

Preciso de 300 voluntários para a execução de um projeto bem simples.
Trata-se de um robô que irá baixar uma base de dados de 5 milhões de linhas.


Para baixar usando apenas meu computador, segundo alguns cálculos levarei 1
ano. 

Dessa forma, estou convidando-os para uma grande desafio. Preciso de 300 pcs
rodando um aplicativo para baixar a base. Acredito que um dia à um dia e
meio de processamento está resolvido.

A base tem um valor enorme e depois de integrada, envio a cópia dela para
cada um que participou do processo.

Quaisquer dúvidas estou à total disposição.

Grato,

 

Reinaldo



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



RES: [delphi-br] OFF TOPIC: Mega Projeto

2009-06-15 Por tôpico Reinaldo Aparecido Pereira
Caros,

Estou preparando um documento detalhado para explicar o projeto e
encaminharei à todos os interessados.

Mas adianto, a base que desejo extrair é a de veículos do Detran-PR.

http://celepar7.pr.gov.br/mtm/servicos/cons_multa.asp

Essa base pode ser usada para uma infinidade de coisas. Alguns dados da
base:

 - VEICULO

 - MARCA

- MODELO

- PLACA

- RENAVAM

- CHASSIS

- SITUACAO (SE ESTÁ FINANCIADO, SE TEM BUSCA E APREENSÃO)

- MULTA, (SE TEM MULTAS E QUAIS).

Nem preciso dizer que isso tem um valor incalculável.

Eu desejo usá-la para um site que logo concluirei de contestação de multas.

A base será usada para que a partir de um placa eu consiga o Renavam.

Em breve enviarei informações detalhadas.

Assim que todos os interessados se manifestarem, envio os detalhe.

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de EmbarcaDelphi
Enviada em: segunda-feira, 15 de junho de 2009 10:50
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] OFF TOPIC: Mega Projeto

 







Quem quer ser laranjas? A Base de Dados são informações de contas 
bancárias, hehehe (brincadeira)
Estou aguadando mais informações sobre esse seu Mega Projeto

Reginaldo escreveu:


 Meu pc de casa fica ligado 24 hs, posso contribuir, mas poderia dar 
 mais detalhes do que contem essa base de dados ?

 Reginaldo

 - Original Message -
 From: Reinaldo Aparecido Pereira
 To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
 Sent: Monday, June 15, 2009 8:56 AM
 Subject: [delphi-br] OFF TOPIC: Mega Projeto

 Olá amigos,

 Preciso de 300 voluntários para a execução de um projeto bem simples.
 Trata-se de um robô que irá baixar uma base de dados de 5 milhões de 
 linhas.

 Para baixar usando apenas meu computador, segundo alguns cálculos 
 levarei 1
 ano.

 Dessa forma, estou convidando-os para uma grande desafio. Preciso de 
 300 pcs
 rodando um aplicativo para baixar a base. Acredito que um dia à um dia e
 meio de processamento está resolvido.

 A base tem um valor enorme e depois de integrada, envio a cópia dela para
 cada um que participou do processo.

 Quaisquer dúvidas estou à total disposição.

 Grato,

 Reinaldo


 





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



RES: RES: [delphi-br] OFF TOPIC: Mega Projeto

2009-06-15 Por tôpico Reinaldo Aparecido Pereira
Esta base está on-line, é pública e sem captcha.

Juridicamente poderei acessar a base sim. Isso de acordo com uma jurisprudência 
de outubro do ano passado.

Veja o caso da base de CPF da Receita Federal.

A consulta é publica, mas existe o captcha que impede a automação das pesquisas.

Mas isso não impede que qualquer empresa contrate muitas pessoas que fiquem o 
dia inteiro digitando e consultando.

Segundo um caso ocorrido no passado, a venda dessa informação é proibida mas o 
uso não.

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome 
de Fernando de Laurentiis
Enviada em: segunda-feira, 15 de junho de 2009 13:39
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] OFF TOPIC: Mega Projeto
Prioridade: Alta

 






E essa base, ela é legal??
Vc poderia ter acesso a esse tipo de informações??

[]'sss

Em 15/06/2009 12:58, Reinaldo Aparecido Pereira lt; ctocv...@yahoo.com.br 
mailto:ctocvl_1%40yahoo.com.br  gt; escreveu:

Caros,

Estou preparando um documento detalhado para explicar o projeto e
encaminharei à todos os interessados.

Mas adianto, a base que desejo extrair é a de veículos do Detran-PR.

http://celepar7.pr.gov.br/mtm/servicos/cons_multa.asp

Essa base pode ser usada para uma infinidade de coisas. Alguns dados da
base:

- VEICULO

- MARCA

- MODELO

- PLACA

- RENAVAM

- CHASSIS

- SITUACAO (SE ESTÁ FINANCIADO, SE TEM BUSCA E APREENSÃO)

- MULTA, (SE TEM MULTAS E QUAIS).

Nem preciso dizer que isso tem um valor incalculável.

Eu desejo usá-la para um site que logo concluirei de contestação de multas.

A base será usada para que a partir de um placa eu consiga o Renavam.

Em breve enviarei informações detalhadas.

Assim que todos os interessados se manifestarem, envio os detalhe.

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 EmbarcaDelphi
Enviada em: segunda-feira, 15 de junho de 2009 10:50
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br 
Assunto: Re: [delphi-br] OFF TOPIC: Mega Projeto

Quem quer ser laranjas? A Base de Dados são informações de contas 
bancárias, hehehe (brincadeira)
Estou aguadando mais informações sobre esse seu Mega Projeto

Reginaldo escreveu:
gt;
gt;
gt; Meu pc de casa fica ligado 24 hs, posso contribuir, mas poderia dar 
gt; mais detalhes do que contem essa base de dados ?
gt;
gt; Reginaldo
gt;
gt; - Original Message -
gt; From: Reinaldo Aparecido Pereira
gt; To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br  
br%40yahoogrupos.com.brgt;
br%40yahoogrupos.com.brgt;
gt; Sent: Monday, June 15, 2009 8:56 AM
gt; Subject: [delphi-br] OFF TOPIC: Mega Projeto
gt;
gt; Olá amigos,
gt;
gt; Preciso de 300 voluntários para a execução de um projeto bem simples.
gt; Trata-se de um robô que irá baixar uma base de dados de 5 milhões de 
gt; linhas.
gt;
gt; Para baixar usando apenas meu computador, segundo alguns cálculos 
gt; levarei 1
gt; ano.
gt;
gt; Dessa forma, estou convidando-os para uma grande desafio. Preciso de 
gt; 300 pcs
gt; rodando um aplicativo para baixar a base. Acredito que um dia à um dia e
gt; meio de processamento está resolvido.
gt;
gt; A base tem um valor enorme e depois de integrada, envio a cópia dela para
gt; cada um que participou do processo.
gt;
gt; Quaisquer dúvidas estou à total disposição.
gt;
gt; Grato,
gt;
gt; Reinaldo
gt;
gt;
gt; 

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





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



RES: RES: [delphi-br] OFF TOPIC: Mega Projeto

2009-06-15 Por tôpico Reinaldo Aparecido Pereira
Confesso que também me preocupo com esses problemas.

Já fiz um teste com 30 horas consecutivas de mineração e não tive problemas.

Note que o campo de entrada é o RENAVAM que não tem um número de seqüência,
logo, antes do programa realizar a consulta ele precisar gerar um RENAVAM e
testar se é válido.

Isso já garante um delay em cada consulta e, pelas informações que tenho
sobre o acesso à base, aparentemente, vários ips (200) consultando essa base
não traria sobrecarga ao sistema.

O servidor que está hospedado essa base tem vários outros sistemas e
aproximadamente 20 milhões de acessos diários.

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Alexandre Peçanha
Enviada em: segunda-feira, 15 de junho de 2009 15:21
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] OFF TOPIC: Mega Projeto

 






Olá Reinaldo,
Já participei de um projeto parecido, e gostaria apenas de dar uns toques
relativos a potenciais problemas de ordem prática nesse tipo de iniciativa.

Supondo que o dono da base (Detran-PR) tenha se preocupado com a segurança
da informação, consultas massivas tendem a ter o seguinte tratamento:

a. 1 IP faz uma consulta massiva e torna o serviço lento - isso é facilmente
detectavel e o procedimento padrão é colocar esse IP numa blacklist e
proibir seu acesso ao serviço.

b. Vários IP´s fazem consultas massivas. O mais comum é tirar o serviço do
ar. Isso certamente será enxergado (pelo sistema) como um ataque do tipo
negação de serviço, e os ip´s serão igualmente postos numa blacklist, e por
se tratar de um sistema do governo, isso pode desencadear algum tipo de
processo - (vi acontecer exatamente essa situação num projeto que tentava
buscar a base de regiões de exploração de minerais no site www.dnpm.gov.br).
As implicações são consideráveis para a empresa patrocinadora da atividade.
No caso de pessoas físicas, não faço idéia das medidas adotadas (se
houverem).

Para este tipo de extração, é preciso cuidado para não gerar uma fila de
espera no serviço, ou seja, o aplicativo gerado, deve proporcionar um
intervalo entre consultas, e dependendo da quantidade de pessoas envolvidas
nessa extração, esse tempo deve ser bastante grande (tipo 10 a 15 segundos
entre consultas de um mesmo cliente), pois aumentos de demanda nesse tipo de
serviço sempre chamam a atenção dos administradores do sistema.

E esse tipo de extração, deve ocorrer num período razoávelmente curto, pois
assim que os administradores detectarem a consulta automatizada, tenha
certeza de que eles irão adotar o captcha para voltar aos níveis normais de
serviço.

... não quero jogar água fria no projeto, só quero alertá-los para os
cuidados necessários...

[]´s

Alexandre Peçanha
alexpeca...@gmail.com mailto:alexpecanha%40gmail.com 

2009/6/15 Reinaldo Aparecido Pereira ctocv...@yahoo.com.br
mailto:ctocvl_1%40yahoo.com.br 



 Esta base está on-line, é pública e sem captcha.

 Juridicamente poderei acessar a base sim. Isso de acordo com uma
 jurisprudência de outubro do ano passado.

 Veja o caso da base de CPF da Receita Federal.

 A consulta é publica, mas existe o captcha que impede a automação das
 pesquisas.

 Mas isso não impede que qualquer empresa contrate muitas pessoas que
fiquem
 o dia inteiro digitando e consultando.

 Segundo um caso ocorrido no passado, a venda dessa informação é proibida
 mas o uso não.

 De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
delphi-br%40yahoogrupos.com.br [mailto:
 delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
delphi-br%40yahoogrupos.com.br] Em nome de
 Fernando de Laurentiis
 Enviada em: segunda-feira, 15 de junho de 2009 13:39

 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
delphi-br%40yahoogrupos.com.br
 Assunto: Re: RES: [delphi-br] OFF TOPIC: Mega Projeto
 Prioridade: Alta

 E essa base, ela é legal??
 Vc poderia ter acesso a esse tipo de informações??

 []'sss

 Em 15/06/2009 12:58, Reinaldo Aparecido Pereira lt; ctocv...@yahoo.com.br
mailto:ctocvl_1%40yahoo.com.br ctocvl_1%40yahoo.com.brmailto:
 ctocvl_1%40yahoo.com.br ctocvl_1%2540yahoo.com.br gt; escreveu:

 Caros,

 Estou preparando um documento detalhado para explicar o projeto e
 encaminharei à todos os interessados.

 Mas adianto, a base que desejo extrair é a de veículos do Detran-PR.

 http://celepar7.pr.gov.br/mtm/servicos/cons_multa.asp

 Essa base pode ser usada para uma infinidade de coisas. Alguns dados da
 base:

 - VEICULO

 - MARCA

 - MODELO

 - PLACA

 - RENAVAM

 - CHASSIS

 - SITUACAO (SE ESTÁ FINANCIADO, SE TEM BUSCA E APREENSÃO)

 - MULTA, (SE TEM MULTAS E QUAIS).

 Nem preciso dizer que isso tem um valor incalculável.

 Eu desejo usá-la para um site que logo concluirei de contestação de
multas.

 A base será usada para que a partir de um placa eu consiga o Renavam.

 Em breve enviarei informações detalhadas.

 Assim que todos os interessados se manifestarem, envio os detalhe.

 De: delphi-br

RES: [delphi-br] Re: Ajustar coluna(urgente)

2009-06-10 Por tôpico Reinaldo Aparecido Pereira
595 - Como fazer para largura do display do campo de um dbgrid fique igual
ao seu próprio tamanho na tabela

procedure TForm1.btnTestClick(Sender: TObject);

var i: integer;

begin

  for i:= 0 to Table1.FieldCount-1 do

  Table1.Fields[i].DisplayWidth:= Length(Table1.Fields[i].DisplayLabel);

end; 

 

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de nilmahtavares
Enviada em: terça-feira, 9 de junho de 2009 22:30
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Re: Ajustar coluna(urgente)

 






Obrigada Ricardo,

vc realmente me ajudou muito, e tambem e muito paciencioso
com quem esta comencando.

--- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
, Ricardo César Cardoso ricardo_engs...@... escreveu

 Você já perguntou isso ontem, mas vá lá... 
 
 Quando você se refere a tamanho o que exatamente quer dizer? Tamanho
físico ou apenas o visual da tabela? Se for apenas o visual, bastaria
procurar alguma rotina que automaticamente regule a largura das colunas de
um DBGrid. Existem dicas para isso.
 
 Agora se for no tamanho fisíco, ou seja, um campo que deveria armazenar
200 caracteres, por exemplo, mas está truncando com por exemplo 100
caracteres, aí seria o caso de verificar a configuração dos componentes que
refletem a tabela (ADOTable, ADOQuery por exemplo)
 
 []'s
 Ricardo
 
 1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS.
 
 2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor
compreendida.
 
 3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!
 
 --- Em ter, 9/6/09, nilmahtavares nilmahtava...@... escreveu:
 
 
 
 
 
 
 
 
 
 
 
 
 
 bom dia pessoal !!!
 
 
 
 estou fazendo uma importacao de dados do excel usando o Adoconnection,
Adoquery e dbgrid, a planilha excel ja abre no dbgrid, mas as colunas 
 
 do dbgrid tem tamanho maior do que a planilha excel, alguem saberia me
dizer como resolver esse problema.
 
 
 
 obrigada
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 Veja quais são os assuntos do momento no Yahoo! +Buscados
 http://br.maisbuscados.yahoo.com
 
 [As partes desta mensagem que não continham texto foram removidas]






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



[delphi-br] Baixar e ler pdf

2009-06-08 Por tôpico Reinaldo Aparecido Pereira
Olá amigos,

 

http://publicacoes.abepro.org.br/index.asp?pchave=
http://publicacoes.abepro.org.br/index.asp?pchave=ano=2006x=13y=14
ano=2006x=13y=14

 

Este link aí acima é de um site para se consultar artigos on-line no formato
pdf.

 

2 perguntas básicas?

 

Primeira: como fazer para fazer o download automaticamente um arquivo pdf?
(gravar o arquivo no disco)

 

Segunda: Como faço para ler os atributos do pdf? Note que não é o arquivo
que eu quero ler e sim aquele atributos que são colocados num pdf (autor,
keywords, data criação,...)

 

Muito grato,

 

Reinaldo - Cascavel-PR

 

 



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



[delphi-br] Bluetooth+msn (programação pesada)

2009-05-15 Por tôpico Reinaldo Aparecido Pereira
Olá amigos,

 

Será que seria possível implementar em Delphi uma aplicação para usar
telefones celular como microfone para o MSN?

A idéia é que através do Bluetooth, pudéssemos substituir o microfone e
alto-falante do PC por celulares em conversas no MSN?

Trata-se apenas de uma idéia e gostaria de ouvi-los sobre a possibilidade de
implementar isso.

 

Abçs, Reinaldo

 



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



RES: [delphi-br] Mostrar uma imagem no dbgrid conforme o conteudo de um campo...

2009-05-15 Por tôpico Reinaldo Aparecido Pereira
Olha ai embaixo um exemplo bem detalhado que além de coloca uma imagem.

 

 

 

 

 

procedure TfrmHome.dbGradeDrawColumnCell(Sender: TObject;

  const Rect: TRect; DataCol: Integer; Column: TColumn;

  State: TGridDrawState);

var  NewRect : TRect;

 Texto: string;

 CorFundo : TColor;

begin

 if (gdSelected in State) or (gdFocused in State)  then

 begin

  CorFundo := $00FFF9EA;

  dbGrade.Canvas.Brush.Color := CorFundo;

  NewRect.Left := Rect.Left+40;

  NewRect.Top := Rect.Top+10;

  NewRect.Right := Rect.Right;

  NewRect.Bottom := Rect.Bottom;

  dbGrade.Canvas.FillRect(NewRect);

 end

 else

 begin

  CorFundo := clWhite;

 end;

 with dbGrade.Canvas do

 begin

  Font.Color := clBlack;

  Font.Name := 'Calibri';

  Font.Size := 9;

  Font.Style := [fsBold];

  Brush.Color := $00E6E6E6;

  NewRect.Left := Rect.Left;

  NewRect.Top := Rect.Top+4;

  NewRect.Right := Rect.Right;

  NewRect.Bottom := Rect.Top+20;

  FillRect(NewRect);

  Texto := DataSource1.DataSet.FieldByName('RAZAO').Text;

  TextOut(Rect.Left+40, Rect.Top+5, Texto);

  Texto := DataSource1.DataSet.FieldByName('CNPJN').Text;

  TextOut(dbGrade.Width-110, Rect.Top+5, Texto);

  Font.Name := 'Calibri';

  Font.Size := 9;

  Font.Style := [];

  Brush.Color := CorFundo;

  Texto := DataSource1.DataSet.FieldByName('FANTA').Text;

  TextOut(Rect.Left+40, Rect.Top+19, Texto);

  Texto := DataSource1.DataSet.FieldByName('ENDER').Text;

  TextOut(Rect.Left+40, Rect.Top+34, Texto);

  Texto := DataSource1.DataSet.FieldByName('EMAIL').Text;

  TextOut(Rect.Left+600, Rect.Top+34, Texto);

  Texto := 'Bairro:';

  TextOut(Rect.Left+340, Rect.Top+34, Texto);

  Texto := DataSource1.DataSet.FieldByName('BAIRR').Text;

  TextOut(Rect.Left+380, Rect.Top+34, Texto);

  Texto := DataSource1.DataSet.FieldByName('HOMEP').Text;

  TextOut(Rect.Left+600, Rect.Top+49, Texto);

  Font.Style := [fsBold];

  Texto := DataSource1.DataSet.FieldByName('CIDAD').Text;

  TextOut(Rect.Left+40, Rect.Top+49, Texto);

  Font.Style := [];

  Texto := 'Cep:';

  TextOut(Rect.Left+340, Rect.Top+49, Texto);

  Texto := DataSource1.DataSet.FieldByName('CEPNU').Text;

  TextOut(Rect.Left+380, Rect.Top+49, Texto);

  Font.Style := [];

  Font.Size := 9;

  Texto := 'Fone:';

  TextOut(Rect.Left+40, Rect.Top+64, Texto);

  Font.Size := 9;

  Texto := DataSource1.DataSet.FieldByName('TELEF').Text;

  TextOut(Rect.Left+70, Rect.Top+64, Texto);

  Texto := 'Fax:';

  TextOut(Rect.Left+340, Rect.Top+64, Texto);

  Font.Size := 9;

  Texto := DataSource1.DataSet.FieldByName('FAXNU').Text;

  TextOut(Rect.Left+380, Rect.Top+64, Texto);

  Font.Style := [fsItalic];

  Font.Color := $00804000;

  Texto := DataSource1.DataSet.FieldByName('PRODU').Text;

  TextOut(Rect.Left+40, Rect.Top+94, Texto);

  Texto := DataSource1.DataSet.FieldByName('SETOR').Text;

  TextOut(Rect.Left+40, Rect.Top+79, Texto);

  Font.Style := [];

  Font.Color := clBlack;

  Texto := 'Importadora';

  TextOut(Rect.Left+600, Rect.Top+64, Texto);

  Texto := 'Exportadora';

  TextOut(Rect.Left+870, Rect.Top+64, Texto);

  Font.Style := [fsBold];

  Texto := 'N. Funcionários:';

  TextOut(Rect.Left+850, Rect.Top+34, Texto);

  Texto := DataSource1.DataSet.FieldByName('EMPRE').Text;

  TextOut(Rect.Left+938, Rect.Top+34, Texto);

  Draw(Rect.Left, Rect.Top+1, imgFicha.Picture.Bitmap);

  Draw(Rect.Left+580, Rect.Top+36, imgMail.Picture.Bitmap);

  if DataSource1.DataSet.FieldByName('IMPOR').Text = 'S' then

   Draw(Rect.Left+580, Rect.Top+66, imgChecked.Picture.Bitmap)

  else

   Draw(Rect.Left+580, Rect.Top+66,
imgUnChecked.Picture.Bitmap);

  if DataSource1.DataSet.FieldByName('EXPOR').Text = 'S' then

   Draw(Rect.Left+850, Rect.Top+66, imgChecked.Picture.Bitmap)

  else

   Draw(Rect.Left+850, Rect.Top+66,
imgUnChecked.Picture.Bitmap);

 end;

end;

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Ricardo César Cardoso
Enviada em: quinta-feira, 14 de maio de 2009 13:59
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Mostrar uma imagem no dbgrid conforme o conteudo de
um campo...

 






Cara... precisei disso tempos atrás e não lembro exatamente onde achei...
mas vc vai ter que usar o evento OnDrawCell (?) do/no DBGrid.

Dá 

RES: [delphi-br] Bluetooth+msn (programação pe sada)

2009-05-15 Por tôpico Reinaldo Aparecido Pereira
O que eu quero á apenas substituir o microfone e auto-falante por celular.
Num primeiro momento.

Não desejo ficar preso à uma marca de telefone.

Depois, lá no futuro, penso em fazer o celular manipular o MSN do PC. 

 

 

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Ricardo César Cardoso
Enviada em: sexta-feira, 15 de maio de 2009 11:04
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Bluetooth+msn (programação pesada)

 






Deixa eu pensar mais quebradinho e relacionar o que eu já vi/ouvi falar
por alto:

1) Fazer um computador interpretar e representar a fala: possível, mas não
sei quais as limitações, nível de reconhecimento etc. Deve ser possível
aplicar usando Delphi, teria que pesquisar mais a fundo. 

2) Comunicação por Bluetooth (a partir do PC): possível, porém não me lembro
de nenhuma implementação gratuita para Delphi. Todas que lembro são
proprietárias e nada baratas.

3) Desenvolver uma aplicação para celulares: possível. Há quem concorde, há
quem discorde.O ponto fundamental é o dispositivo. Celulares em geral não
tem o mesmo poder de processamento de um desktop e nem o mesmo um SO como o
de um desktop. Se estiver falando de um PDA, se esse PDA usar Windows CE /
Mobile é possível. Um celular como um Motorola V555 ou um Motorola K1 por
exemplo, só rodam aplicações em Java. 

4) Colocar tudo isso junto: quase impossível. Considerando o número de
barreiras que vc tem aí no meio (o celular é a maior delas) dá pra dizer que
sem um bom suporte ($$$) provido por alguém interessado, é muito difícil,
quase impossível. 

Veja bem: este é o MEU ponto de vista. Pode ser que eu esteja altamente
equivocado, e já exista até esse tipo de integração. Até porque desconfio
que haja muita pesquisa para ter um produto / serviço similar a este que vc
propõe.

[]'s
Ricardo.

Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!

--- Em sex, 15/5/09, Reinaldo Aparecido Pereira ctocv...@yahoo.com.br
mailto:ctocvl_1%40yahoo.com.br  escreveu:

De: Reinaldo Aparecido Pereira ctocv...@yahoo.com.br
mailto:ctocvl_1%40yahoo.com.br 
Assunto: [delphi-br] Bluetooth+msn (programação pesada)
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br 
Data: Sexta-feira, 15 de Maio de 2009, 8:22

Olá amigos,

Será que seria possível implementar em Delphi uma aplicação para usar

telefones celular como microfone para o MSN?

A idéia é que através do Bluetooth, pudéssemos substituir o microfone e

alto-falante do PC por celulares em conversas no MSN?

Trata-se apenas de uma idéia e gostaria de ouvi-los sobre a possibilidade de

implementar isso.

Abçs, Reinaldo

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











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

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





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



RES: [delphi-br] Bluetooth+msn (programação pe sada)

2009-05-15 Por tôpico Reinaldo Aparecido Pereira
Testarei a solução neste final de semana.

Só funciona para aparelhos Nokia?

 

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Paulo Coutinho
Enviada em: sexta-feira, 15 de maio de 2009 12:35
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Bluetooth+msn (programação pesada)

 






Bom, a solução que te lhe atende perfeitamente,

Se você quiser tentar algo em j2me eu não sei nem por onde começar e nem sei
se ele tem poder para isso ou até mesmo permissão.

2009/5/15 Reinaldo Aparecido Pereira ctocv...@yahoo.com.br
mailto:ctocvl_1%40yahoo.com.br 



 O que eu quero á apenas substituir o microfone e auto-falante por celular.
 Num primeiro momento.

 Não desejo ficar preso à uma marca de telefone.

 Depois, lá no futuro, penso em fazer o celular manipular o MSN do PC.

 De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
delphi-br%40yahoogrupos.com.br [mailto:
 delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
delphi-br%40yahoogrupos.com.br] Em
 nome de Ricardo César Cardoso
 Enviada em: sexta-feira, 15 de maio de 2009 11:04

 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
delphi-br%40yahoogrupos.com.br
 Assunto: Re: [delphi-br] Bluetooth+msn (programação pesada)


 Deixa eu pensar mais quebradinho e relacionar o que eu já vi/ouvi falar
 por alto:

 1) Fazer um computador interpretar e representar a fala: possível, mas não
 sei quais as limitações, nível de reconhecimento etc. Deve ser possível
 aplicar usando Delphi, teria que pesquisar mais a fundo.

 2) Comunicação por Bluetooth (a partir do PC): possível, porém não me
 lembro
 de nenhuma implementação gratuita para Delphi. Todas que lembro são
 proprietárias e nada baratas.

 3) Desenvolver uma aplicação para celulares: possível. Há quem concorde,
há
 quem discorde.O ponto fundamental é o dispositivo. Celulares em geral não
 tem o mesmo poder de processamento de um desktop e nem o mesmo um SO como
o
 de um desktop. Se estiver falando de um PDA, se esse PDA usar Windows CE /
 Mobile é possível. Um celular como um Motorola V555 ou um Motorola K1 por
 exemplo, só rodam aplicações em Java.

 4) Colocar tudo isso junto: quase impossível. Considerando o número de
 barreiras que vc tem aí no meio (o celular é a maior delas) dá pra dizer
 que
 sem um bom suporte ($$$) provido por alguém interessado, é muito difícil,
 quase impossível.

 Veja bem: este é o MEU ponto de vista. Pode ser que eu esteja altamente
 equivocado, e já exista até esse tipo de integração. Até porque desconfio
 que haja muita pesquisa para ter um produto / serviço similar a este que
vc
 propõe.

 []'s
 Ricardo.

 Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!

 --- Em sex, 15/5/09, Reinaldo Aparecido Pereira ctocv...@yahoo.com.br
mailto:ctocvl_1%40yahoo.com.br ctocvl_1%40yahoo.com.br
 mailto:ctocvl_1%40yahoo.com.br ctocvl_1%2540yahoo.com.br  escreveu:

 De: Reinaldo Aparecido Pereira ctocv...@yahoo.com.br
mailto:ctocvl_1%40yahoo.com.br ctocvl_1%40yahoo.com.br
 mailto:ctocvl_1%40yahoo.com.br ctocvl_1%2540yahoo.com.br 
 Assunto: [delphi-br] Bluetooth+msn (programação pesada)
 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
delphi-br%40yahoogrupos.com.brmailto:
 delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br
 Data: Sexta-feira, 15 de Maio de 2009, 8:22

 Olá amigos,

 Será que seria possível implementar em Delphi uma aplicação para usar

 telefones celular como microfone para o MSN?

 A idéia é que através do Bluetooth, pudéssemos substituir o microfone e

 alto-falante do PC por celulares em conversas no MSN?

 Trata-se apenas de uma idéia e gostaria de ouvi-los sobre a possibilidade
 de

 implementar isso.

 Abçs, Reinaldo

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

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

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

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

 


-- 
Atenciosamente,
Paulo Coutinho.
Blog: www.prsolucoes.com/blog
Site: www.prsolucoes.com
Msn: pa...@prsolucoes.com mailto:paulo%40prsolucoes.com 

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





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



[delphi-br] Webbrowser - Firefox

2009-05-04 Por tôpico Reinaldo Aparecido Pereira
Amigos,

 

Como faço para instalar o TWEBBROWSER do Firefox?

Se souberem onde encontro documentação desse componente, por favor me
ajudem.

 

Abçs,

 

Reinaldo



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



[delphi-br] XML ou Access ou qual?

2009-04-28 Por tôpico Reinaldo Aparecido Pereira
Amigos,

Eu produzo um catálogo digital e até o momento usava XML para distribuir a
aplicação porque a quantidade de registros era pequena e não era preciso
instalar nada na máquina do cliente.

Como quantidade de registros agora vai crescer muito, to me vendo na
necessidade de usar um banco de dados.

Se usar Paradox (é apenas uma tabela então não precisa ser um banco parrudo)
precisarei instalar o BDE. E aí tem toda aquela coisa de conflito com
configurações de bde e tudo mais. 

Se eu usar o Access, aí tem o problema de licenciamento do Access na máquina
do cliente. Além do mais, o que a minha aplicação terá que instalar na
máquina do cliente para funcionar bem?

Se eu usar o firebird, o que minha aplicação deverá instalar?

Minha base tem uma tabela com 60 mil linhas onde só faço seleção. Não
atualizo e nem excluo.

Qual tecnologia devo usar?

 

Abçs,

 

Reinaldo

 



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



[delphi-br] Programa congelando na execução

2009-04-27 Por tôpico Reinaldo Aparecido Pereira
Amigos,

 

Fiz aqui um pequeno aplicativo para automação do envio de e-mails e quando
executo do Shell do Delphi, ele roda sem problema, mas se executo direto do
Windows, ele congela (programa não está respondendo).

Como as vezes ao enviar um e-mail da erro (e-mail pode estar errado,
servidor pode recusar), se executo do Delphi aparece a mensagem de depuração
e eu tenho que interferir para o reinício da execução,  e se executo do
Windows ele executa sem minha interação, mas depois de um pouco de uso
congela.

Como resolvo esse problema?

Fiz as rotinas de tratamento de erros.

O programa usa recursividade.

 

Grato,

 

Reinaldo



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



[delphi-br] Fixar exe num panel

2009-04-20 Por tôpico Reinaldo Aparecido Pereira
Existe como fixar um executável num tpanel. O executável é um formulário em
Delphi e o objetivo é modularizar o programa.

 

Abçs, 

 

Reinaldo



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



RES: [delphi-br] Criar Add-in no Excel com o Delphi

2009-04-17 Por tôpico Reinaldo Aparecido Pereira
Eu havia encontrado esse site sim.

Na verdade, existe pouca coisa sobre o assunto e quando há, custa muito
caro.

Isso é muito bom, porque indica que um especialista do assunto vai ganhar
uma grana boa.

Eu gosto muito do assunto, mas tem aquele problema grave do tempo pra se
dedicar.

Aos pouco vou lendo algo e testando coisas.

Quando tiver algo mais concreto, envio pra você.

Dos links que te passei no e-mail anterior, de atenção especial à um que tem
um exemplo de addin completo pra Outlook.

 

Abçs, Reinaldo

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Edelson Regis de Lima
Enviada em: quinta-feira, 16 de abril de 2009 09:51
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Criar Add-in no Excel com o Delphi

 






Olá Reinaldo!

Realmente não existe literatura sobre isso, o que dificulta muito as coisas.
Mas voce chegou a dar uma olhada no link que eu passei? http://www.add-in
-express.com/downloads/adxvcl.php
É de uma empresa que criou os componentes que fazem exatamente o que eu
quero, tem até algumas imagens lá mostrando, tutoriais sobre os componentes,
etc., dá pra fazer coisas bem bacanas e personalizadas, e isso programando
tudo em delphi!
Só que é de $ 400 para cima, o que daria cerca de R$ 1.000,00... aí que
complica, rs... e isso pra uma licença só se eu não me engano.

Eu achei um outro artigo também (em inglês), que o cara diz que cria os
add-ins para excel em C/C++ e Delphi.
Eu peguei um paragrafo e joquei no tradutor do google, que diz o seguinte:
*
Uma das características menos conhecida Excel são os add-ins. Embora você
possa criá-los com o VBA, você também pode escrever add-in Dlls em C + + e
Delphi. Aqueles fazendo graves desenvolvimento tem de comprar o Excel 97
Developer's Kit (ISBN 1-57231-498-2) (EDK) livro, mas é claro que é C / C +
+ orientado, e há algumas armadilhas para o programador Delphi. Neste artigo
eu irei mostrar o suficiente para que você caminhe. Como um desenvolvedor em
um ambiente de trabalho Excel tenho desenvolvido com sucesso muitos add-ins
com Delphi 3, e eu sei que ninguém mais está fazendo isso. Existe Financeiro
CAD, uma empresa canadiana que os suplementos podem ser utilizados a partir
do Delphi, mas acho que eles estão escritas em C + +. Ei, eu poderia ser a
única pessoa no mundo a fazer isto!*

Isso mostra que é um recurso pouco explorado, mas que também não é um bicho
de 7 cabeças... o problema é saber por onde começar.
No artigo desse cara ele mostra como dar os primeiros passos, só que
infelizmente em C, e não em delphi.
Derrepente, daria pra seguir os passos e tentar escrever os códigos em
delphi.
Caso voce queira dar uma olhada no artigo, segue o link:
http://www.aspfree.com/c/a/Windows-Scripting/Writing-Excel-Addons/

Abraços,

Edelson.

2009/4/15 Reinaldo Aparecido Pereira ctocv...@yahoo.com.br
mailto:ctocvl_1%40yahoo.com.br 



 Olha amigo,

 Não quero te desanimar, mas precisei fazer algo parecido para o Outlook e
 desisti. (Outlook, Excel e Word é bem parecido. Apredeu a fazer pra um é
 fácil fazer noutro).

 Creio que para fazer algo assim em Delphi é muito difícil porque não
existe
 literatura, mas principalmente porque o Delphi não é ferramenta para isso.
 Vb sim é a ferramenta correta nesse caso.

 O que você quer fazer é fácil usando macros do Excel ou talvez usando um
 pouco de Vba, mas posso afirmar que em Delphi é um buraco negro e, sem
 querer te desmotivar, sugiro não perder tempo com o assunto.

 Ainda assim se quiser se arriscar por esse terreno desconhecido, , existe
 um
 livro especifico para programação de add-ins para Office em inglês. Foi a
 única literatura que encontrei e pra piorar, todos os códigos de exemplos
 estão escritos em VB.

 Ah, antes de qualquer coisa, entre no Shell de programação do Excel, lá
 onde
 você escreve códigos para as planilhas e leia no help tudo sobre os
objetos
 vba.

 Me mantenha informado sobre sua evolução.

 Abaixo alguns links que podem te ajudar:

 http://dimastr.com/babelfish/ - exemplo de desenvolvimento de de um addin
 para Outlook.

 http://www.swissdelphicenter.com/en/objekte.php

 http://www.swissdelphicenter.ch/en/showcode.php?id=881

 http://edn.embarcadero.com/search?q=outlook
 http://edn.embarcadero.com/search?q=outlook
http://edn.embarcadero.com/search?q=outlookallsites=yallwords=y
allsites=yallwords=y
 allsites=yallwords=y

 http://www.delphikb.com/Default.aspx?db=122111
 http://www.delphikb.com/Default.aspx?db=122111
http://www.delphikb.com/Default.aspx?db=122111cat=0 cat=0\43\46
cat=0\43\46

 http://www.djpate.freeserve.co.uk/AutoOutl.htm#ComposeEmail



http://www.imibo.com/imidev/delphi/les/index_3.html#Demo_Extended_MAPI_in_De
 lphi_projects

 http://www.borlandtalk.com/re-how-to-automate-outlook-vt56175.html

 http://msdn.microsoft.com/en-us/library/bb277365.aspx



http://www.tech-archive.net/Archive/Development/microsoft.public.win32.progr
 ammer.messaging/2004-07/

 Abçs, Reinaldo

 De: delphi-br@yahoogrupos.com.br

RES: [delphi-br] Criar Add-in no Excel com o Delphi

2009-04-15 Por tôpico Reinaldo Aparecido Pereira
Olha amigo,

 

Não quero te desanimar, mas precisei fazer algo parecido para o Outlook e
desisti. (Outlook, Excel e Word é bem parecido. Apredeu a fazer pra um é
fácil fazer noutro).

Creio que para fazer algo assim em Delphi é muito difícil porque não existe
literatura, mas principalmente porque o Delphi não é ferramenta para isso.
Vb sim é a ferramenta correta nesse caso.

O que você quer fazer é fácil usando macros do Excel ou talvez usando um
pouco de Vba, mas posso afirmar que em Delphi é um buraco negro e, sem
querer te desmotivar, sugiro não perder tempo com o assunto.

Ainda assim se quiser se arriscar por esse terreno desconhecido, , existe um
livro especifico para programação de add-ins para Office em inglês. Foi a
única literatura que encontrei e pra piorar, todos os códigos de exemplos
estão escritos em VB.

Ah, antes de qualquer coisa, entre no Shell de programação do Excel, lá onde
você escreve códigos para as planilhas e leia no help tudo sobre os objetos
vba.

Me mantenha informado sobre sua evolução.

Abaixo alguns links que podem te ajudar:

 

http://dimastr.com/babelfish/- exemplo de desenvolvimento de de um addin
para Outlook.

 

http://www.swissdelphicenter.com/en/objekte.php

 

http://www.swissdelphicenter.ch/en/showcode.php?id=881

 

http://edn.embarcadero.com/search?q=outlook
http://edn.embarcadero.com/search?q=outlookallsites=yallwords=y
allsites=yallwords=y

 

http://www.delphikb.com/Default.aspx?db=122111
http://www.delphikb.com/Default.aspx?db=122111cat=0\43\46 cat=0\43\46

 

http://www.djpate.freeserve.co.uk/AutoOutl.htm#ComposeEmail

 

http://www.imibo.com/imidev/delphi/les/index_3.html#Demo_Extended_MAPI_in_De
lphi_projects

 

http://www.borlandtalk.com/re-how-to-automate-outlook-vt56175.html

 

http://msdn.microsoft.com/en-us/library/bb277365.aspx

 

http://www.tech-archive.net/Archive/Development/microsoft.public.win32.progr
ammer.messaging/2004-07/

 

 

Abçs, Reinaldo

 

 

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Edelson Regis de Lima
Enviada em: quarta-feira, 15 de abril de 2009 14:13
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Criar Add-in no Excel com o Delphi

 






Olá pessoal!

Eu postei essa pergunta há umas duas semanas, e como não obtive respostas
vou tentar a sorte novamente... rs
Derrepente alguém que manja do assunto não viu a mensagem anterior, e talvez
veja essa nova.

Preciso criar com o Delphi, um Add-in no Excel (um ítem personalizado no
menu do Excel), que executa alguma rotina qualquer.

Detalhe: não é exportar dados para o excel, é criar um ítem no menu do
excel, onde eu possa extrair dados da minha aplicação, como por exemplo
trazer a quantidade de produtos vendidos no mês. Essa rotina seria toda
escrita no delphi, compilada, e executada nesse add-in criado no excel.

Exemplo: estou digitando minha planilha no excel normalmente, e derrepente
eu preciso do valor total das vendas de um determinado período. Vou lá no
meu menu personalizado dentro do próprio Excel (add-in), e chamo essa
rotina. Pode ser um form que me peça para selecionar o período, sei lá...
Depois de selecionado o período, esse add-in busca na base de dados do meu
sistema a informação necessária, que no caso é o total das vendas do período
escolhido.

Sei que isso é possível, inclusive tem um pacote de componentes pagos que
faz algo assim, é o Add-in Express for Delphi VCL (http://www.add-in
-express.com/downloads/adxvcl.php)
Só que é meio salgadinho $$$ rs

Se alguém tiver uma luz...

Abraços,

Edelson.

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





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



[delphi-br] [OFF-TOPIC]

2009-04-12 Por tôpico Reinaldo Aparecido Pereira
Olá amigos,

 

Alguém da lista é dono ou está ligado à sites ou portais comerciais onde a
audiência é importante para rentabilidade?

 

Abçs,

 

Reinaldo



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



[delphi-br] [OFF-TOPIC] Criar mailing com Delphi

2009-04-01 Por tôpico Reinaldo Aparecido Pereira
Amigos,

 

Tenho um software que enviar e-mail (Indy) usando contas do Yahoo. No Yahoo,
é possível enviar 100 e-mails por dias. Além disso, o provedor bloqueia afim
de evitar spam.

 

Minha dúvida é a seguinte:

 

Se eu tiver 100 contas de e-mail no Yahoo e minha aplicação enviar 100
correspondências por cada conta por dia, o provedor vai me bloquear?

 

Serei considerado spammer?

 

Entrarei na lista negra?

 

As pessoas que receberão os e-mails estão cientes (são associados de um time
de futebol) e autorizam o envio das mensagens. O problema é que tenho que
usar provedor gratuito.

 

Quem conhece bem isso?

 

Grato,

 

Reinaldo

 



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



[delphi-br] Webbrowser - Documento completo

2009-02-16 Por tôpico Reinaldo Aparecido Pereira
Olá amigos,

 

Meu problema é tratar documentos carregado no Webbrowser. Meu programa faz o
seguinte:

 

Num twebbrowser chamo o seguinte link:

 

procedure TfrmFilha.FormShow(Sender: TObject);

var

 Link:  string;

begin

 Link := 'http://celepar7.pr.gov.br/mtm/servicos/cons_multa.asp';

 Web.Navigate(Link);

end;

 

Aí, uso o evento WebDocumentComplete para preencher o formulário quando o
webbrowser carregar a página.

 

procedure TfrmFilha.WebDocumentComplete(Sender: TObject;

  const pDisp: IDispatch; var URL: OleVariant);

var

 document: IHTMLDocument2;

 theForm: IHTMLFormElement;

 index: integer;

begin

 document := Web.Document as IHTMLDocument2;

 theForm := GetFormByNumber(document,0);

 SetFieldValue(theForm,'renavam','768861314');

 theForm.submit;

 

 

O problema é que tenho que usar o WebDocumentComplete para tratar o
resultado e não consigo descobrir quando o Webbrowser  leu o primeiro e o
segundo documento HTML.

Ou sejam, carrego 2 html no webbrowser e tenho que executar código
diferentes pra cada um.

 

Pensei no método Webbrowser.LacationName e Webbrowser.LocationUrl mas ambos
retornam o mesmo valor e não servem para identificar.

 

Alguém tem uma solução pra esse problema?

 

Grato,

 

Reinaldo

 



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



[delphi-br] Tamanho da linha do Listview

2009-01-09 Por tôpico Reinaldo Aparecido Pereira
Amigos,

 

Como faço para alterar a altura das linhas de um listview?

Já vasculhei a internet e não achei.

 

Grato,

 

Reinaldo



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



[delphi-br] DbCtrlGrid

2009-01-03 Por tôpico Reinaldo Aparecido Pereira
Amigos,

 

Já vasculhei na net e não descobrir como esconder os scrollsbar desse
componente.

Alguém sabe como fazer?

 

 

Abçs, Reinaldo



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



[delphi-br] Smtp e Dns

2008-12-12 Por tôpico Reinaldo Aparecido Pereira
Amigos,

 

Tem literatura que fala sobre envio de e-mails através de servidos DNS. Como
é possível criar um servidor de e-mails DNS no Delphi?

 

Sabem onde tem literatura para eu me aprofundar em DNS e Smtp no Delphi?

 

Grato,

 

 

Reinaldo 



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



[delphi-br] Primeiro Post

2008-12-05 Por tôpico Reinaldo Aparecido Pereira
Olá amigos,

 

Essa é minha primeira mensagem posta. No passado, faz um bom tempo já
participei.

 

E pra começar vai uma daquelas muito bombásticas:

 

- Como configurar contas no Outlook pelo Delphi? (desejo configurar
automaticamente uma conta do Yahoo no Outlook)

 

- Ao enviar um e-mail pelo Outlook, como fazer para selecionar o perfil e a
conta padrão de envio?

 

Amigos,

 

Preciso enviar aproximadamente 4.000 mensagens a cada 3 dias (trata-se de
inscritos em um blog) e minha tática para resolver o problema de limite de
mensagens do Yahoo é criar várias contas e enviar de 10 em 10 mensagens por
conta. Minha lógica está certo? Não se trata de spam.

 

Preciso usar e-mails gratuitos.

 

Muito obrigado à todos

 

 

 



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