Re: [delphi-br] Duvida Excel
Alexandre,
Segue abaixo a rotina que faz isso sem o componente excel.aplication:
procedure TForm1.Button1Click(Sender: TObject);
Var Meu_excel: Variant;
Path,
NOME: String;
I: Integer;
begin
Path := ExtractFilePath(Application.ExeName)+'Pasta1.xls';
Meu_excel := CreateOleObject('Excel.Application');
Meu_excel.Visible := True;
Meu_excel.Workbooks.Open(Path);
ListBox1.Items.Clear;
For I:= 1 to Meu_excel.Workbooks[1].sheets.Count do
Begin
NOME:= MEU_Excel.WorkBooks[1].Sheets[I].Name;
ListBox1.Items.Add(Nome);
End;
end;
Na dúvida vou enviar este exemplo em PVT,
Qualquer coisa pergunte.
Boa sorte!
Claudio H.Binaghi
[EMAIL PROTECTED]
Al. Ribeirão Preto, 266
Fone: (11) 3288-4840
Original Message -
From: "Alexandre - Yahoo" <[EMAIL PROTECTED]>
To:
Sent: Friday, August 19, 2005 10:33 AM
Subject: [delphi-br] Duvida Excel
Alguem sabe como faço para listar todas as planilhas de um arquivo excel
usando a variante excel.aplication?
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.338 / Virus Database: 267.10.12/77 - Release Date: 18/08/2005
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Exportação para Excel
Vicente, Boa tarde! O que você esta vendo na Excel é pura ilusão idiotica, finja que não viu nada e continue a sua vida feliz e alegre. (eheh brincadeirinha) Na verdade é uma simples formatação cientifica! O valor do número não muda em nada isto é usado para compactar o número de forma a visualizar num espaço menor, então se você formatar a célula para numero sem casas decimais você tera o seu número da forma original, como fazer? Selection.NumberFormat = "0" // Zero é o numero de casas decimais que você queira Caso tenha dúvida, diga que ajudamos. Boa sorte. Claudio H.Binaghi [EMAIL PROTECTED] Al. Ribeirão Preto, 266 Fone: (11) 3288-4840 - Original Message - From: "Vicente Lima" <[EMAIL PROTECTED]> To: "Delphi-br" Sent: Thursday, August 18, 2005 4:19 PM Subject: [delphi-br] Exportação para Excel Amigos, Estou gerando uma planilha no Excel obtendo os dados de uma tabela, ate ai tudo bem, só que quando exporto um campo string preenchido com números, é gerado no Excel uma coluna numérica com um valor convertido. Exemplo: Campo: Reservista Valor : 123456789134 Resultado no Excel: 123085+8675^3 (não exatamente isto mas algo parecido) Há solução para este problema ? Vicente Lima [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.338 / Virus Database: 267.10.12/75 - Release Date: 17/08/2005 -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Como salvar um relatório e poder abr i-lo no word???
Não sei se é isso mesmo que você precisa, mas de qualquer forma lá vai: Arquivos txt tabulado, só mantem o tamanho das colunas (de acordo com a tabulação) Veja este exemplo; 1º Assinalo o arquivo. 2º Abro para escrita. 3º Vou gravando linha a linha com as colunas separadas por um tab (#9). 4º fecho o arquivo. Procedure GravarTXT; Var Arq: TextFile; Str, Nome: String; L: Integer; Begin Nome:=C:\MeuPath\Teste.txt; AssignFile(Arq,Nome); ReWrite(Arq); WriteLN(Arq,Str); For L:= 1 to StrGrid2.Rowcount-1 do Begin Str := StrGrid2.Cells[2,L]+#9+StrGrid2.Cells[3,L]+#9+StrGrid2.Cells[4,L]; WriteLN(Arq,Str); End; CloseFile(Arq); End; Faça o teste e veja se esta de acordo com o que você precisa, caso contrário me dê um alo e vamos implementar a gravação em rtf ou fazer o relatório em word. Você já tem este relatório implementado em QuickReport? At+ Claudio H.Binaghi [EMAIL PROTECTED] Al. Ribeirão Preto, 266 Fone: (11) 3288-4840 - Original Message - From: "Susan Lima Feitosa" <[EMAIL PROTECTED]> To: Sent: Friday, August 12, 2005 3:29 PM Subject: Re: [delphi-br] Como salvar um relatório e poder abri-lo no word??? > Voce pode m explicar como salvar em txt tabulado, eu > ja salvei ele em txt mas ele perde as configurações > ... obrigada > --- "Claudio H.Binaghi" <[EMAIL PROTECTED]> > escreveu: > > > Boa tarde! > > > > Existe três opções: > > > > 1ª e a mais simples, gravar um arquivo txt tabulado. > > 2ª Gravar um arquivo rtf.(é uma boa opção dá +ou- > > trabalho) > > 3ª Abrir o Word via Ole e desenvolver o relatório > > dentro do Word > > controlando font, alinhamento é a opção que fica > > melhor, mais também > > dá mais trabalho. > > > > No quickreport você tem a opção de salvar como rtf. > > > > Qualquer coisa fale. > > > > Boa sorte. > > > > Claudio H.Binaghi > > [EMAIL PROTECTED] > > > > Al. Ribeirão Preto, 266 > > Fone: (11) 3288-4840 > > > > > > > > - Original Message - > > From: "Susan Lima Feitosa" > > <[EMAIL PROTECTED]> > > To: > > Sent: Friday, August 12, 2005 3:05 PM > > Subject: [delphi-br] Como salvar um relatório e > > poder abri-lo no word??? > > > > > > > Gostaria de saber como eu faço para passar um > > > relatório para o word sem q ele perca as suas > > > formatações, sei salvá-lo como txt mas não resolve > > o > > > meu problema já que qdo o abro com o word ele fica > > > totalmente desconfigurado. > > > > > > > > > > > > > > > > > > > > > > > > ___ > > > Yahoo! Acesso Grátis - Internet rápida e grátis. > > > Instale o discador agora! > > http://br.acesso.yahoo.com/ > > > > > > > > > -- > > > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA > > MENSAGEM >>>>> > > > > > > Para ver as mensagens antigas, acesse: > > > > > http://br.groups.yahoo.com/group/delphi-br/messages > > > > > > Para falar com o moderador, envie um e-mail para: > > > [EMAIL PROTECTED] ou > > [EMAIL PROTECTED] > > > > > > Links do Yahoo! Grupos > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > -- > > > No virus found in this incoming message. > > > Checked by AVG Anti-Virus. > > > Version: 7.0.338 / Virus Database: 267.10.7/70 - > > Release Date: 11/08/2005 > > > > > > > > > > > > > > -- > > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA > > MENSAGEM >>>>> > > > > Para ver as mensagens antigas, acesse: > > http://br.groups.yahoo.com/group/delphi-br/messages > > > > Para falar com o moderador, envie um e-mail para: > > [EMAIL PROTECTED] ou > > [EMAIL PROTECTED] > > > > Links do Yahoo! Grupos > > > > > > > > http://br.yahoo.com/info/utos.html > > > > > > > > > > > > > > > > > ___ > Yahoo! Acesso Grátis - Internet rápida e grátis. > Instale o discador agora! http://br.acesso.yahoo.com/ > > > -- > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > Para ver as mensagens antigas, acesse: > http://br.groups.yahoo.com/group/delphi-br/messages > > Para falar com o moderador, envie um e-mail para: > [EMAIL PROTECTED] ou [EMAIL PROTECTED] > > Links do Yahoo! Grupos > > > > > > > > > > > -- > No virus found in this incoming message. > Checked by AVG Anti-Virus. > Version: 7.0.338 / Virus Database: 267.10.7/70 - Release Date: 11/08/2005 > > -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Como salvar um relatório e poder abr i-lo no word???
Boa tarde! Existe três opções: 1ª e a mais simples, gravar um arquivo txt tabulado. 2ª Gravar um arquivo rtf.(é uma boa opção dá +ou- trabalho) 3ª Abrir o Word via Ole e desenvolver o relatório dentro do Word controlando font, alinhamento é a opção que fica melhor, mais também dá mais trabalho. No quickreport você tem a opção de salvar como rtf. Qualquer coisa fale. Boa sorte. Claudio H.Binaghi [EMAIL PROTECTED] Al. Ribeirão Preto, 266 Fone: (11) 3288-4840 - Original Message - From: "Susan Lima Feitosa" <[EMAIL PROTECTED]> To: Sent: Friday, August 12, 2005 3:05 PM Subject: [delphi-br] Como salvar um relatório e poder abri-lo no word??? > Gostaria de saber como eu faço para passar um > relatório para o word sem q ele perca as suas > formatações, sei salvá-lo como txt mas não resolve o > meu problema já que qdo o abro com o word ele fica > totalmente desconfigurado. > > > > > > > ___ > Yahoo! Acesso Grátis - Internet rápida e grátis. > Instale o discador agora! http://br.acesso.yahoo.com/ > > > -- > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > Para ver as mensagens antigas, acesse: > http://br.groups.yahoo.com/group/delphi-br/messages > > Para falar com o moderador, envie um e-mail para: > [EMAIL PROTECTED] ou [EMAIL PROTECTED] > > Links do Yahoo! Grupos > > > > > > > > > > > -- > No virus found in this incoming message. > Checked by AVG Anti-Virus. > Version: 7.0.338 / Virus Database: 267.10.7/70 - Release Date: 11/08/2005 > > -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Tabela de População do Brasl
Eduardo, Você encontra isso ou no IBGE ou no TRE de cada estado tipo: http://www.tre-al.gov.br/ Este é o tre de Alagoas. At+ Claudio H.Binaghi [EMAIL PROTECTED] Al. Ribeirão Preto, 266 Fone: (11) 3288-4840 - Original Message - From: "Eduardo Silva ®" <[EMAIL PROTECTED]> To: "Grupo Delphi-br" Sent: Monday, August 01, 2005 9:47 AM Subject: [delphi-br] Tabela de População do Brasl > Galera, alguém tem uma tabela com a população de cada município do Brasil ? > > ~\\|//~ > -(o o)- > o--oOOOo--(_)--oOOOo-o > || > | Eduardo de Almeida Silva | > | Câmara Municipal de Lençóis Paulista | > | [EMAIL PROTECTED] - (14)3263-0326 | > || > |.oooO Oooo. | > o( )---( )---o > \ ( ) / >\_) (_/ > > > > -- > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > Para ver as mensagens antigas, acesse: > http://br.groups.yahoo.com/group/delphi-br/messages > > Para falar com o moderador, envie um e-mail para: > [EMAIL PROTECTED] ou [EMAIL PROTECTED] > > Links do Yahoo! Grupos > > > > > > > > > > > > -- > No virus found in this incoming message. > Checked by AVG Anti-Virus. > Version: 7.0.338 / Virus Database: 267.9.7/60 - Release Date: 28/07/2005 > > -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Tabela x Word
Paulo, Bom dia! Acabei de enviar em PVT um exemplo de como fazer isto no Word. At+ Claudio H.Binaghi [EMAIL PROTECTED] Al. Ribeirão Preto, 266 Fone: (11) 3288-4840 - Original Message - From: "Info Desenvolvimento" <[EMAIL PROTECTED]> To: Sent: Tuesday, July 19, 2005 9:27 AM Subject: [delphi-br] Tabela x Word Alguém já gerou dados de uma tabela paradox em um documento Word? PAULO FERNANDES [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.323 / Virus Database: 267.9.1/51 - Release Date: 18/07/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.323 / Virus Database: 267.9.1/51 - Release Date: 18/07/2005 -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] formatar celula do excel via prog
Para formatar células:
1º você formata depois coloca o conteúdo, é + fácil.
2º formate assim...
Range("C5").Select
Selection.NumberFormat = "0.00"
ou
Cells(11, 3).Select
Selection.NumberFormat = "0.00"
ou
Range("C7").Select
Selection.NumberFormat = "m/d/yy"
Boa sorte e At+
Claudio H.Binaghi
[EMAIL PROTECTED]
Al. Ribeirão Preto, 266
Fone: (11) 3288-4840
- Original Message -
From: "bene20032004" <[EMAIL PROTECTED]>
To:
Sent: Wednesday, June 08, 2005 6:28 PM
Subject: [delphi-br] formatar celula do excel via prog
Ola pessoal !
Alguém poderia me dizer como formatar celulas do execl via
programação ?
Estou mandando dados do delphi para ele mas o valor sai inteiro e a
data sai sem formatar...
ex:
excel := CreateOleObject('\excel.application\');
Excel.Application.Visible := true;
Excel.WorkBooks.Add;
Excel.Cells[1,1] := data1.date';
Excel.Cells[1,2] := valor.value';
Obrigado por enquanto !
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.323 / Virus Database: 267.6.5 - Release Date: 07/06/2005
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.323 / Virus Database: 267.6.5 - Release Date: 07/06/2005
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Executar outro aplicativo
Rodrigo, Bom dia!
-
Só executar:
(caso o arquivo já seja reconhecido pelo sistema como rtf, exls, doc, html)
ARQ := Estudo_path+ARQ;
CH := Pchar(ARQ);
ShellExecute(handle,'open',CH,pchar('NULL'),pchar(Estudo_path)
,SW_MAXIMIZE);
-
Controlar o aplicativo é diferente!
Caso seja esta a sua finalidade,
você tem que especificar o aplicativo que deseja controlar,
Se estiver ao meu alcanse te explico como e até mando um exemplo.
Boa sorte e At+
Claudio H.Binaghi
[EMAIL PROTECTED]
Al. Ribeirão Preto, 266
Fone: (11) 3288-4840
Cel: 8207-8255
- Original Message -
From: "rtognin" <[EMAIL PROTECTED]>
To:
Sent: Thursday, May 19, 2005 8:51 AM
Subject: [delphi-br] Executar outro aplicativo
Como eu faço para executar outros aplicativos (Word, por exemplo)
dentro de meu programa?
Rodrigo
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.322 / Virus Database: 266.11.12 - Release Date: 17/05/2005
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.322 / Virus Database: 266.11.12 - Release Date: 17/05/2005
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Como acessar via Delphi uma base de dados na Internet?
Troque no seu componente de acesso de dados tipo TTable o path local pelo path da base no servidor com o IP do Servidor na frente, ex: http://200.XXX.XX.XX.../C:\\Base_de_dados.db At+ Claudio H.Binaghi [EMAIL PROTECTED] Al. Ribeirão Preto, 266 Fone: (011) 3288-4840 - Original Message - From: "Eduardo Paci Galvão" <[EMAIL PROTECTED]> To: "Lista Delphi" Sent: Sunday, May 15, 2005 7:51 AM Subject: [delphi-br] Como acessar via Delphi uma base de dados na Internet? Pessoal, Qual a forma mais prática de acessar, via Delphi, um banco de dados que se encontra em um servidor na Internet? Um cliente possui uma página vinculada a um banco de dados em SQLServer e outra com Firebird. Preciso consultar, incluir registros, etc, a partir de um programa em Delphi. Qualquer dica será muito bem-vinda! Saudações, Eduardo Paci Galvão Engenheiro Eletricista UFMG 1990 www.egalvao.com.br MSN: [EMAIL PROTECTED] -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.11.10 - Release Date: 13/05/2005 [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.11.9 - Release Date: 12/05/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.11.9 - Release Date: 12/05/2005 -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Código de barras
Artur, Tenho dois componentes free mas, que eu saiba, o Gmail não recebe arquivos atachados zip, se você tiver outro e-mail te envio, Um destes componentes se chama fbarcode. Você também pode baixar no próprio site do clube do delphi ou no delphi-br achoque la também tem, esses componentes são bem comuns e tem de monte. At+ Claudio H.Binaghi [EMAIL PROTECTED] Fone: (011) 3289.3525 / 3289.0075 - Original Message - From: "Artur Guerra" <[EMAIL PROTECTED]> To: Sent: Thursday, April 21, 2005 3:40 PM Subject: Re: [delphi-br] Código de barras Qual delhpi vc usa ?? On 4/20/05, Fernando <[EMAIL PROTECTED]> wrote: > > > Boa tarde pessoal. > > Estou precisando emitir umas etiquetas de produtos com código de barras (EAN-13 e/ou EAN-14). > Gostaria de saber se alguém tem conhecimento de algum componente bom e FREE, que possa utilizar no QuickReport para implementar a emissão destas etiquetas. > Grato pela atençao. > > Atenciosamente, > Fernando. > -- > > No virus found in this outgoing message. > Checked by AVG Anti-Virus. > Version: 7.0.308 / Virus Database: 266.10.1 - Release Date: 20/04/05 > > [As partes desta mensagem que não continham texto foram removidas] > > -- > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > Para ver as mensagens antigas, acesse: > http://br.groups.yahoo.com/group/delphi-br/messages > > Para falar com o moderador, envie um e-mail para: > [EMAIL PROTECTED] ou [EMAIL PROTECTED] > > Links do Yahoo! Grupos > > > > > -- Artur Rodrigo Guerra mail: [EMAIL PROTECTED] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.9.18 - Release Date: 19/04/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.9.18 - Release Date: 19/04/2005 -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Zipar sem ZipMaster
VCLZIP Muito bom. At+ Claudio H.Binaghi [EMAIL PROTECTED] Fone: (011) 3289.3525 / 3289.0075 - Original Message - From: "Alan Vieceli" <[EMAIL PROTECTED]> To: Sent: Friday, April 08, 2005 1:20 PM Subject: [delphi-br] Zipar sem ZipMaster Alguem pode me dizer algum outro componente q pra compactar arquivos q não seja o ZipMaster??? Pq esse precisa das dll's e queria uma q não tivesse necessitasse de nenhum outro arquivo... Se algum souver Alan Vieceli [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.9.5 - Release Date: 07/04/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.9.5 - Release Date: 07/04/2005 -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Gravando dados binarios no registro do windows
Fernando, Bom dia!
Quando você declara:
> dado: string[69];
Esta variável fica definida como ShortString,
você deve declarar
dado: String;
Acho que com esta alteração vai da certo.
Boa sorte.
At+
Claudio H.Binaghi
[EMAIL PROTECTED]
Fone: (011) 3289.3525 / 3289.0075
- Original Message -
From: "Fernando Faria Mariano" <[EMAIL PROTECTED]>
To: "Lista grupo Delphi"
Sent: Thursday, April 07, 2005 7:34 PM
Subject: [delphi-br] Gravando dados binarios no registro do windows
>
> Olá pessoal tudo bem?
>
> Estou tentando gravar um dado binario no registro do windows. O código é
> o que segue abaixo:
>
> procedure TForm1.Button2Click(Sender: TObject);
> var
> reg: TRegistry;
> dado: string[69];
> begin
> reg:=TRegistry.Create;
>
dado:='00,00,00,00,00,00,00,00,03,00,00,00,00,00,5b,e0,00,00,5c,e0,\00,00,00
';
> reg.RootKey:=HKEY_LOCAL_MACHINE;
> reg.OpenKey('\Software\Teste',true);
> reg.WriteBinaryData('Dados',dado,Sizeof(dado));
>
> Ele está dando a seguinte mensagem de erro na hora da compilação:
>
> Imcompatibles types: 'Tbytes' and 'ShorString'
>
> Agradeço desde ja a atenção de todos.
> --
> Fernando Faria Mariano
> [EMAIL PROTECTED]
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>
>
>
>
> --
> No virus found in this incoming message.
> Checked by AVG Anti-Virus.
> Version: 7.0.308 / Virus Database: 266.9.4 - Release Date: 06/04/2005
>
>
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.9.4 - Release Date: 06/04/2005
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] [OFF TOPIC] Compactador
Clayton, Boa tarde! Use a VCLZIP, Ela é free e vem com exemplos bons que você, com pequenas alterações podera aproveitar. At+ Claudio H.Binaghi [EMAIL PROTECTED] Fone: (011) 3289.3525 / 3289.0075 - Original Message - From: "Clayton Bonelli" <[EMAIL PROTECTED]> To: Sent: Thursday, April 07, 2005 12:43 PM Subject: [delphi-br] [OFF TOPIC] Compactador Pessoal, Preciso compactar, no formato ZIP, um determinado arquivo criado pelo meu programa Delphi 6. Esta compactacao deve ser feita de forma transparente para o usuario. Alguem sugere algum programa de compactacao freeware que possa ser ativado por um porgrama delphi? Tentei usar o PKZip, mas ele nao trabalha com nomes de arquivos com mais de 8 caracters. obrigado [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.9.4 - Release Date: 06/04/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.9.4 - Release Date: 06/04/2005 -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Delphi com Word
Já enviei, At+ Claudio H.Binaghi [EMAIL PROTECTED] Fone: (011) 3289.3525 / 3289.0075 - Original Message - From: "Alex Leão" <[EMAIL PROTECTED]> To: Sent: Tuesday, April 05, 2005 10:50 AM Subject: Re: [delphi-br] Delphi com Word Claudio, Também gostaria de receber este material. Obrigado, Alex leão - Original Message - From: Claudio H.Binaghi To: delphi-br@yahoogrupos.com.br Sent: Tuesday, April 05, 2005 10:11 AM Subject: Re: [delphi-br] Delphi com Word André, bom dia! Estou enviando um exemplo em PVT. At+ Claudio H.Binaghi [EMAIL PROTECTED] Fone: (011) 3289.3525 / 3289.0075 - Original Message - From: "Andre - Yahoo" <[EMAIL PROTECTED]> To: Sent: Tuesday, April 05, 2005 8:10 AM Subject: [delphi-br] Delphi com Word Bom dia pessoal, gostaria de saber se algum dos amigos tem algum material sobre integração do Delphi com Word. Preciso criar uma declaração no word e subtituir os campos de mala direta por uma pesquisa feita no delphi usando Adoquery e banco de dados SQL Server 2000. Desde já agradeço... André Luis da Silveira Laticínios Morrinhos Ind Com Ltda Desenvolvedor [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.9.2 - Release Date: 05/04/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.9.2 - Release Date: 05/04/2005 -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.9.2 - Release Date: 05/04/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.9.2 - Release Date: 05/04/2005 -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Delphi com Word
André, bom dia! Estou enviando um exemplo em PVT. At+ Claudio H.Binaghi [EMAIL PROTECTED] Fone: (011) 3289.3525 / 3289.0075 - Original Message - From: "Andre - Yahoo" <[EMAIL PROTECTED]> To: Sent: Tuesday, April 05, 2005 8:10 AM Subject: [delphi-br] Delphi com Word Bom dia pessoal, gostaria de saber se algum dos amigos tem algum material sobre integração do Delphi com Word. Preciso criar uma declaração no word e subtituir os campos de mala direta por uma pesquisa feita no delphi usando Adoquery e banco de dados SQL Server 2000. Desde já agradeço... André Luis da Silveira Laticínios Morrinhos Ind Com Ltda Desenvolvedor [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.9.2 - Release Date: 05/04/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.9.2 - Release Date: 05/04/2005 -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Sobre Driver para Paradox
PessoALL, Boa tarde! Fiz um aplicativo que contem uma banco Paradox, Não tem como eu só levar a DLL para ler o arquivo .DB? Tem outro jeito que não o de instalar a BDE? Qualquer ajuda agradeço. At+ Claudio H.Binaghi [EMAIL PROTECTED] Fone: (011) 3289.3525 / 3289.0075 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.8.5 - Release Date: 29/03/2005 -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Erro Interbase : I/O Error for file "C:\Windows\Temp\ib_sort_a00216"
Bom dia! O erro de I/O é um erro de Input e Output, leitura e escrita do arquivo, pode ocorrer quando o arquivo que você quer ler já esta sendo usado por outro aplicativo, tipo uma tabela que já esta sendo utilizada por Objeto do Tipo TTable (se este estiver ativo=true) ou pode ocorrer por que você esta tentando ler o arquivo mais ainda não abriu o mesmo. Espero ter ajudado. At+ Claudio H.Binaghi [EMAIL PROTECTED] Fone: (011) 3289.3525 / 3289.0075 - Original Message - From: "Rodrigo Brunelli Riguetto" <[EMAIL PROTECTED]> To: Sent: Tuesday, March 29, 2005 11:37 PM Subject: [delphi-br] Erro Interbase : I/O Error for file "C:\Windows\Temp\ib_sort_a00216" Caros amigos .. de uns dias pra quando os PC´s clientes vão acessar o Servidor Interbase pra gerar um determinado relatório, aparece o seguinte erro: I/O Error for file "C:\Windows\Temp\ib_sort_a00216" Error While Trying To Open File Os dados são inválidos. Quando uso o sistema no próprio servidor não acontece erro algum, agora se testo nos clientes ( Win95 e Win98 ) acontece esse erro. Atenciosamente __ Converse com seus amigos em tempo real com o Yahoo! Messenger http://br.download.yahoo.com/messenger/ [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.8.5 - Release Date: 29/03/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.8.5 - Release Date: 29/03/2005 -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] ComboBox
Coloque um ComboBox num form e mude o estilo para ... Style:=csDropDownList; Depois use os procedimentos descritos abaixo. Boa sorte; Claudio H.Binaghi [EMAIL PROTECTED] Fone: (011) 3289.3525 / 3289.0075 -- Function TForm1.Procura(S:TStrings;K:Integer):Integer; Var N: TStringList; I: Integer; C: String; Begin N := TStringList.Create; For I:= 0 to S.Count-1 do N.Add(S.Strings[I]); C := UpperCase(Char(K)); IF N.Find(C,I) Then Result:=I else Result:=-1; End; -- procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin ComboBox1.ItemIndex:=Procura(ComboBox1.Items,Key); end; -- - Original Message - From: "Info Desenvolvimento" <[EMAIL PROTECTED]> To: Sent: Tuesday, March 29, 2005 11:52 AM Subject: [delphi-br] ComboBox Alguém sabe como faço para que um ComboBox mesmo que tenha em seus items S ou N, para sim ou não. Ao digitar s passe para S e n para N. Já testei nos eventos onKeyDown e onExit, o seguinte: if Key = VK_RETURN then Perform(Wm_NextDlgCtl,0,0); Não funcionou, o que devo fazer? [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.8.4 - Release Date: 27/03/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.8.4 - Release Date: 27/03/2005 -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Como substituir strings no Word?
Me envia o seu e-mail em PVT que te envio um exemplo. At+ Claudio H.Binaghi [EMAIL PROTECTED] Fone: (011) 3289.3525 / 3289.0075 > - Original Message - > From: "Rodrigo Othavio Farias" <[EMAIL PROTECTED]> > To: > Sent: Tuesday, March 29, 2005 10:25 AM > Subject: Re: [delphi-br] Como substituir strings no Word? > > > > > > Qual word que vc usa? Esses componentes da palheta Automation foram feitos > > pra word 97, pode ter mudado a sintaxe do comando em versoes novas do > word, > > recomendo que vc leia o help do VBA do Word instalado na sua maquina e > > confira se os parametros sao os mesmos > > > > > > []´s > > Rodrigo O. Farias > > > > > > - Original Message - > > From: Eduardo Gomes > > To: delphi-br@yahoogrupos.com.br > > Sent: Tuesday, March 29, 2005 10:21 AM > > Subject: [delphi-br] Como substituir strings no Word? > > > > > > Bom dia pessoal, > > > > Estou com um problema ao tentar substituir strings no Word. Tenho o código > > abaixo que quando executa a linha "WordDocument.Range.Find.Execute" gera > uma > > exceção com a seguinte mensagem: "The stub received bad data." > > > > Este código funcionava para um sistema antigo, mas agora nada está > > funcionando... Estou precisando de uma dica e/ou um tutorial falando dos > > componentes TWordDocument e TWordApplication... > > > > Alguém pode me ajudar? Desde já agradeço a atenção... > > > > > //- > > procedure TLaudo.ReplaceAll(FindText, ReplaceWith: String); > > var > > xFindText, xMatchCase, xMatchWholeWord, xMatchWildCards, > xMatchSoundsLike, > > xMatchAllWordForms, xForward, xWrap, xFormat, xReplaceWith, xReplace, > > xMatchKashida, xMatchDiacritics, xMatchAlefHamza, xMatchControl: > > OleVariant; > > begin > > xFindText := FindText; > > xMatchCase := False; > > xMatchWholeWord:= True; > > xMatchWildCards:= False; > > xMatchSoundsLike := False; > > xMatchAllWordForms := False; > > xForward := True; > > xWrap := wdFindStop; > > xFormat:= False; > > xReplaceWith := ReplaceWith; > > xReplace := True; > > while WordDocument.Range.Find.Execute( > > xFindText, xMatchCase, xMatchWholeWord, > > xMatchWildCards, xMatchSoundsLike, xMatchAllWordForms, xForward, > > xWrap, xFormat, xReplaceWith, xReplace, xMatchKashida, > > xMatchDiacritics, xMatchAlefHamza, xMatchControl) do ; > > end; > > > > > //- > > > > > > > > - > > Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora! > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > > -- > > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > > > Para ver as mensagens antigas, acesse: > > http://br.groups.yahoo.com/group/delphi-br/messages > > > > Para falar com o moderador, envie um e-mail para: > > [EMAIL PROTECTED] ou [EMAIL PROTECTED] > > > > > > > > Yahoo! Grupos, um serviço oferecido por: > > > > > > > > > > > > > > > > > > Links do Yahoo! Grupos > > > > Para visitar o site do seu grupo na web, acesse: > > http://br.groups.yahoo.com/group/delphi-br/ > > > > Para sair deste grupo, envie um e-mail para: > > [EMAIL PROTECTED] > > > > O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do > > Yahoo!. > > > > > > > > -- > > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > > > Para ver as mensagens antigas, acesse: > > http://br.groups.yahoo.com/group/delphi-br/messages > > > > Para falar com o moderador, envie um e-mail para: > > [EMAIL PROTECTED] ou [EMAIL PROTECTED] > > > > Links do Yahoo! Grupos > > > > > > > > > > > > > > > > > > > > > > > > -- > > No virus found in this incoming message. > > Checked by AVG Anti-Virus. > > Version: 7.0.308 / Virus Database: 266.8.4 - Release Date: 27/03/2005 > > > > > > > > -- > No virus found in this outgoing message. > Checked by AVG Ant
Re: [delphi-br] Como substituir strings no Word?
Me envia o seu e-mail em PVT que te envio um exemplo. At+ Claudio H.Binaghi [EMAIL PROTECTED] Fone: (011) 3289.3525 / 3289.0075 - Original Message - From: "Rodrigo Othavio Farias" <[EMAIL PROTECTED]> To: Sent: Tuesday, March 29, 2005 10:25 AM Subject: Re: [delphi-br] Como substituir strings no Word? > > Qual word que vc usa? Esses componentes da palheta Automation foram feitos > pra word 97, pode ter mudado a sintaxe do comando em versoes novas do word, > recomendo que vc leia o help do VBA do Word instalado na sua maquina e > confira se os parametros sao os mesmos > > > []´s > Rodrigo O. Farias > > > - Original Message - > From: Eduardo Gomes > To: delphi-br@yahoogrupos.com.br > Sent: Tuesday, March 29, 2005 10:21 AM > Subject: [delphi-br] Como substituir strings no Word? > > > Bom dia pessoal, > > Estou com um problema ao tentar substituir strings no Word. Tenho o código > abaixo que quando executa a linha "WordDocument.Range.Find.Execute" gera uma > exceção com a seguinte mensagem: "The stub received bad data." > > Este código funcionava para um sistema antigo, mas agora nada está > funcionando... Estou precisando de uma dica e/ou um tutorial falando dos > componentes TWordDocument e TWordApplication... > > Alguém pode me ajudar? Desde já agradeço a atenção... > > //- > procedure TLaudo.ReplaceAll(FindText, ReplaceWith: String); > var > xFindText, xMatchCase, xMatchWholeWord, xMatchWildCards, xMatchSoundsLike, > xMatchAllWordForms, xForward, xWrap, xFormat, xReplaceWith, xReplace, > xMatchKashida, xMatchDiacritics, xMatchAlefHamza, xMatchControl: > OleVariant; > begin > xFindText := FindText; > xMatchCase := False; > xMatchWholeWord:= True; > xMatchWildCards:= False; > xMatchSoundsLike := False; > xMatchAllWordForms := False; > xForward := True; > xWrap := wdFindStop; > xFormat:= False; > xReplaceWith := ReplaceWith; > xReplace := True; > while WordDocument.Range.Find.Execute( > xFindText, xMatchCase, xMatchWholeWord, > xMatchWildCards, xMatchSoundsLike, xMatchAllWordForms, xForward, > xWrap, xFormat, xReplaceWith, xReplace, xMatchKashida, > xMatchDiacritics, xMatchAlefHamza, xMatchControl) do ; > end; > > //- > > > > - > Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora! > > [As partes desta mensagem que não continham texto foram removidas] > > > > -- > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > Para ver as mensagens antigas, acesse: > http://br.groups.yahoo.com/group/delphi-br/messages > > Para falar com o moderador, envie um e-mail para: > [EMAIL PROTECTED] ou [EMAIL PROTECTED] > > > > Yahoo! Grupos, um serviço oferecido por: > > > > > > > > > Links do Yahoo! Grupos > > Para visitar o site do seu grupo na web, acesse: > http://br.groups.yahoo.com/group/delphi-br/ > > Para sair deste grupo, envie um e-mail para: > [EMAIL PROTECTED] > > O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do > Yahoo!. > > > > -- > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > Para ver as mensagens antigas, acesse: > http://br.groups.yahoo.com/group/delphi-br/messages > > Para falar com o moderador, envie um e-mail para: > [EMAIL PROTECTED] ou [EMAIL PROTECTED] > > Links do Yahoo! Grupos > > > > > > > > > > > > -- > No virus found in this incoming message. > Checked by AVG Anti-Virus. > Version: 7.0.308 / Virus Database: 266.8.4 - Release Date: 27/03/2005 > > -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.8.4 - Release Date: 27/03/2005 -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Transformar % em Fatorial
Ai esta a função que você precisa. // para fazer um teste coloque num forma um Button e um Edit: procedure TForm1.Button1Click(Sender: TObject); Var R: Double; I: Integer; begin I:= StrToInt(Edit1.Text); R:= fatorial(I); ShowMessage(FloatToStr(R)); end; function TForm1.fatorial(valor: integer): double; var I: Integer; R: Double; begin R := Valor; For I := 2 to Valor do R := R * Valor; Result := R; end; At+ Boa sorte. Claudio H.Binaghi [EMAIL PROTECTED] Fone: (011) 3289.3525 / 3289.0075 - Original Message - From: "alisson_livros" <[EMAIL PROTECTED]> To: Sent: Thursday, March 24, 2005 11:24 AM Subject: [delphi-br] Transformar % em Fatorial Salve programadores da lista estou com um problema. Eu estou desenvolvendo uma aplicação e nela estou fazendo o valor de custo e de venda e tenho um campo que eu coloco a % e outro que eu posso colocar o fatorial (seria o valor referente a %), mais estou com um problema eu naum estou conseguindo fazer isso... Gostaria de saber se alguém poderia me ajudar nisso Assim que eu sair do campo de % ele tem que converter o valor em fatorial... para o campo fatorial Alguém.. poderia me ajudar -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.8.1 - Release Date: 23/03/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.8.1 - Release Date: 23/03/2005 -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] *** PRECISO DE AJUDA
Ricardo, Bom dia! Achei que já tínhamos resolvido esta sua dúvida através do exemplo que enviei. Você ainda ficou com dúvida? Ou meus últimos comentários não chegaram a você? Claudio H.Binaghi [EMAIL PROTECTED] Fone: (011) 3289.3525 / 3289.0075 - Original Message - From: "pimentaricardo" <[EMAIL PROTECTED]> To: Sent: Tuesday, March 22, 2005 8:39 AM Subject: [delphi-br] *** PRECISO DE AJUDA Salve! O que eu preciso, para alguns desta lista, pode ser uma coisa muito facil. Ate agora somente consegui fazer um simples cadastro de clientes. Veja o que eu quero: = Um form que tenha uma palavra que seja um link (do lado esquerdo) que quando clicado chama um texto feito em .RTF ou .DOC apenas para visualizaçao (do lado direito). = Alguem poderia me dar uma força? Grato! Ricardo -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.8.0 - Release Date: 21/03/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.8.0 - Release Date: 21/03/2005 -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Encriptador / Decriptador
Bom Tarde! Segue um código simples: Você deve ao gravar encriptar o conteúdo do campo, com uma função simples de criptografia, exemplo: (esta função Encripta e Desencripta dependendo do valor da Boolean Codifica) function Tansforma(sTexto:String; bCodifica: Boolean; iChave: Integer):String; var I: Integer; sTextoEncriptado: String; Begin sTextoEncriptado := ''; if bCodifica then for I := 1 to Length(sTexto) do sTextoEncriptado := Char(Ord(sTexto[I])+iChave) + sTextoEncriptado else for I := 1 to Length(sTexto) do sTextoEncriptado:=Char(Ord(sTexto[I])- iChave )+sTextoEncriptado; Result := sTextoEncriptado; end; Dever ser usada assim: Valor_encriptado:= Tansforma(Texto,True,66); Valor_desencriptado:= Tansforma(Texto,False,66); Depois você grava normalmente no seu banco; Qualquer necessidade fale. Boa sorte. Claudio H.Binaghi [EMAIL PROTECTED] Fone: (011) 3289.3525 / 3289.0075 - Original Message - From: "Mauro Pena" <[EMAIL PROTECTED]> To: Sent: Friday, March 18, 2005 4:52 PM Subject: [delphi-br] Encriptador / Decriptador Alguem tem alguma boa rotina de encriptar e decriptar pra me enviar?? Obrigado. -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.7.3 - Release Date: 15/03/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.7.3 - Release Date: 15/03/2005 -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Sobrescrendo em Stringlist
Leandro, Você deve: 1º escrever o novo conteúdo do arquivo num arquivo temporário tipo Arq.tmp 2º depois de gravar tudo no Arq.tmp feche-o e delete o arquivo origem 3º renomei o Arq.tmp com o nome do arquivo origem. Qualquer coisa fale, Boa sorte. Claudio H.Binaghi [EMAIL PROTECTED] Fone: (011) 3289.3525 / 3289.0075 - Original Message - From: "Leandro Ferreira" <[EMAIL PROTECTED]> To: Sent: Tuesday, March 15, 2005 11:09 AM Subject: [delphi-br] Sobrescrendo em Stringlist > > Olá Pessoal, > > Estou tendo um problema que acredito ser de lógica. > > Tenho um arquivo texto que jogo seu conteúdo para uma stringlist e > fazendo algumas verificações jogo algumas linhas para alguns campos edit > e outros para campos do tipo Memo. Até ai +- blz. > > O meu problema é que qdo vou gravar algumas linhas que não estavam no > arquivo ele está apagando(escrevendo por cima) das linhas que já estavam > lá. > > Se alguém puder me dar uma idéia de como implementar isso, pois já estou > ficando de cabelo branco. > > Obrigado desde já pela ajuda, > > -- > Leandro Ferreira > Desenvolvedor - Tecnologia > Tel/Fax: +55 48 2106-5698 > ICQ# 147470848 > http://www.nexxera.com > NEXXERA Tecnologia e Serviços S.A. > "Seu Ambiente Eletrônico de Negócios" > > > > > -- > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > Para ver as mensagens antigas, acesse: > http://br.groups.yahoo.com/group/delphi-br/messages > > Para falar com o moderador, envie um e-mail para: > [EMAIL PROTECTED] ou [EMAIL PROTECTED] > > Links do Yahoo! Grupos > > > > > > > > > > > > -- > No virus found in this incoming message. > Checked by AVG Anti-Virus. > Version: 7.0.308 / Virus Database: 266.7.2 - Release Date: 11/03/2005 > > -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.7.2 - Release Date: 11/03/2005 -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Criptografai de senha
Bom dia! Já que ninguém respondeu até o momento, vou dar o meu palpite. Você deve ao gravar encriptar o conteúdo do campo, com uma função simples de criptografia, exemplo: (esta função Encripta e Desencripta dependendo do valor da Boolean Codifica) function Tansforma(sTexto:String; bCodifica: Boolean; iChave: Integer):String; var I: Integer; sTextoEncriptado: String; Begin sTextoEncriptado := ''; if bCodifica then for I := 1 to Length(sTexto) do sTextoEncriptado := Char(Ord(sTexto[I])+iChave) + sTextoEncriptado else for I := 1 to Length(sTexto) do sTextoEncriptado:=Char(Ord(sTexto[I])- iChave )+sTextoEncriptado; Result := sTextoEncriptado; end; Dever ser usada assim: Valor_encriptado:= Tansforma(Texto,True,66); Valor_desencriptado:= Tansforma(Texto,False,66); Depois você grava normalmente no seu banco; Qualquer necessidade fale. Boa sorte. Claudio H.Binaghi [EMAIL PROTECTED] Fone: (011) 3289.3525 / 3289.0075 - Original Message - From: "Wenceslau Miranda" <[EMAIL PROTECTED]> To: "Delphi" <[EMAIL PROTECTED]>; "Delphi no Brasil" <[EMAIL PROTECTED]>; "Delphi-BR" Sent: Tuesday, March 15, 2005 9:05 AM Subject: [delphi-br] Criptografai de senha Amigos da lista, Mais uam vez venho recorrer a vocês. Estou usando o Firebir como meu SGBD só qeu como todos sabem a seguraça do mesmo em relação à senha é muito pequena, pois qualquer um poderia copiar a base de dados e abrir em outro computador com a senha padrão do banco. Sendo assim gostaria pelo menos de criptografar a senha dos usuários do sistema em minha base de dados. Alguem poderia me ajudar a gravar e ler no banco as senhas criptografadas. Alguém teria uma exemplo de como isso é feito. Desde já agradeço. [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.7.2 - Release Date: 11/03/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.7.2 - Release Date: 11/03/2005 -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Criptografai de senha
Bom dia! Já que ninguém respondeu até o momento, vou dar o meu palpite. Você deve ao gravar encriptar o conteúdo do campo, com uma função simples de criptografia, exemplo: (esta função Encripta e Desencripta dependendo do valor da Boolean Codifica) function Tansforma(sTexto:String; bCodifica: Boolean; iChave: Integer):String; var I: Integer; sTextoEncriptado: String; Begin sTextoEncriptado := ''; if bCodifica then for I := 1 to Length(sTexto) do sTextoEncriptado := Char(Ord(sTexto[I])+iChave) + sTextoEncriptado else for I := 1 to Length(sTexto) do sTextoEncriptado:=Char(Ord(sTexto[I])- iChave )+sTextoEncriptado; Result := sTextoEncriptado; end; Dever ser usada assim: Valor_encriptado:= Tansforma(Texto,True,66); Valor_desencriptado:= Tansforma(Texto,False,66); Depois você grava normalmente no seu banco; Qualquer necessidade fale. Boa sorte. Claudio H.Binaghi [EMAIL PROTECTED] Fone: (011) 3289.3525 / 3289.0075 - Original Message - From: "Wenceslau Miranda" <[EMAIL PROTECTED]> To: "Delphi" <[EMAIL PROTECTED]>; "Delphi no Brasil" <[EMAIL PROTECTED]>; "Delphi-BR" Sent: Tuesday, March 15, 2005 9:05 AM Subject: [delphi-br] Criptografai de senha Amigos da lista, Mais uam vez venho recorrer a vocês. Estou usando o Firebir como meu SGBD só qeu como todos sabem a seguraça do mesmo em relação à senha é muito pequena, pois qualquer um poderia copiar a base de dados e abrir em outro computador com a senha padrão do banco. Sendo assim gostaria pelo menos de criptografar a senha dos usuários do sistema em minha base de dados. Alguem poderia me ajudar a gravar e ler no banco as senhas criptografadas. Alguém teria uma exemplo de como isso é feito. Desde já agradeço. [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.7.2 - Release Date: 11/03/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.7.2 - Release Date: 11/03/2005 -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Delphi com Excel (Integração)!
Ai vai uma Função que Abre ou se Liga na Excel que esta ativa.
Boa Sorte.
Function GetOrCreateObject (const ClassName: string): IDispatch;
var ClassID: TGUID;
Unknown: IUnknown;
begin
ClassID := ProgIDToClassID (ClassName);
if Succeeded (GetActiveObject(ClassID, nil, Unknown)) then
OleCheck (Unknown.QueryInterface (IDispatch, Result))
else
Result := CreateOleObject (ClassName);
end;
- Original Message -
From: "Leonardo Lemos" <[EMAIL PROTECTED]>
To:
Sent: Thursday, March 03, 2005 4:52 PM
Subject: [delphi-br] Delphi com Excel (Integração)!
Utilizo o Delphi 5 e estou necessitando realizar algumas integrações entre o
Delphi e o Excel. Segue abaixo um pedaço do código fonte:
try
h := FindWindow(nil, PChar('Microsoft Excel -
RelatorioGraficos.xls'));
if h = 0 then // Arquivo nao esta aberto
begin
XLApp:= CreateOleObject('Excel.Application');
XLApp.Visible := True;
Planilha := XLApp.Workbooks.Open('RelatorioGraficos);
end
else
begin // Arquivo está aberto
XLApp := GetObject('Excel.Application');
Planilha := XLApp.Workbooks.Add['RelatorioGraficos.xls'];
end;
except // Caso arquivo não exista
XLApp.Visible := True;
Planilha :=
XLApp.Workbooks.open('Planilhas\RelatorioGraficos.xls');
end;
Estou tendo o seguinte erro, quando o arquivo está aberto o delphi não
possui a função GetObject e eu não estou conseguindo atribuir em XLApp o
Excel aberto.
Obrigado pelo auxilio,
Leonardo Lemos
[As partes desta mensagem que não continham texto foram removidas]
--
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.6.0 - Release Date: 02/03/2005
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.6.0 - Release Date: 02/03/2005
--
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Erro em OLE - 'Uma chamada externa não pode ser feita porque o aplicativo está distribuindo numa chamada de entrada síncrona'
Boa tarde a todos! Estou tendo dificuldade com o meu aplicativo. HISTORICO: 1º eu me conecto a um Chat da Rede para envio e recebimento de msg internas do programa. 2º Eu tento me conectar a excel e ela da a seguinte mensagem: Raised exception class EOleSysError with message 'Uma chamada externa não pode ser feita porque o aplicativo está distribuindo numa chamada de entrada síncrona' Alguém tem alguma idéia/ experiencia de como resolver esta questão?? Se puder ajudar agradeço muito!! Claudio H.Binaghi [EMAIL PROTECTED] Fone: (011) 3289.3525 / 3289.0075 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.6.13 - Release Date: 16/01/2005 -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Como tirar um cópia da Tela de uma máquina na Rede?
Sávio,
Obrigado pela sua ajuda,
Mas como citou o Rodrigo
realmente eu não fui nada especifico quanto a minha dúvida.
Estou criando um aplicativo que monitora uma determinada rede com n
atendentes, a idéia é que o supervisor possa acompanhar na tela o
preenchimento do formulário/questionário/banco...
Para esta operação imagino:
Solução A
1º me ligo ao aplicativo (que é meu) via Socket.
2º capturo a tela através do aplicativo local
3º através da conecção envio uma cópia da tela.
Ao meu ver é uma solução meia boca, mas é o que consigo pensar em alguns
minutos!!!
Lógico que meus amigos de lista tem uma solução melhor,
se puderem compartilhar, agradeço muito.
At+
PS.
Rodrigo a sua solução foi muito boa (rsrs) só faltou você dizer como
implementar.
Claudio H.Binaghi
[EMAIL PROTECTED]
Fone: (011) 3289.3525 / 3289.0075
- Original Message -
From: "Sávio Cler" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, December 09, 2004 2:07 PM
Subject: Re: [delphi-br] Como tirar um cópia da Tela de uma máquina na Rede?
>
> procedure TFPrintScreen.Copiar_Converter;
>
> var
>
> Temp_BMP: TBitmap;
>
> Temp_JPG: TJPEGImage;
>
> begin
>
> keybd_event(VK_SNAPSHOT,1,0,0);
>
> Temp_BMP := TBitmap.Create;
>
> Temp_BMP.Assign(Clipboard);
>
> Temp_JPG := TJPEGImage.Create;
>
> Temp_JPG.Assign(Temp_BMP);
>
> Temp_JPG.SaveToFile('C:\Imagem.jpg');
>
> Temp_JPG.Free;
>
> Temp_BMP.Free;
>
> end;
>
>
>
> Sávio Cler
> ICQ 142428832
> WWW www.stc.eti.br
> MSN [EMAIL PROTECTED]
> Sto A. de Pádua - Rio de Janeiro
> Contato Pessoal: (22)9812-0656
>
> ~ ~
> ( @ @ )
> ---o0Oo-(_)-oO0o---
> Precisando de dicas?
>www.deephi.rg3.net
> ---
> Mais de 3 downloads
> -ooO---Ooo-
> - Original Message -
> From: "Rodrigo Americo" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Thursday, December 09, 2004 11:30 AM
> Subject: Re: [delphi-br] Como tirar um cópia da Tela de uma máquina na
Rede?
>
>
> Cláudio,
>
> Aperte a tecla PrintScreen e cole o resultado em algum programa. Depois
> envie.
>
> É claro que é uma brincadeira de mau gosto. Todavia, vou usar sua
> mensagem para fazer um pedido à lista:
>
> Por favor, sejam mais específicos ao pedir ajuda sobre questões como
> esta, não custa fazer uma pequena descrição do escopo do que se quer
> fazer. Não dá para ficar bancando o advinho e sugerindo um milhão de
> coisas.
>
> Tento ajudar, mas assim fica difícil.
>
> > Tenho a seguinte tarefa e estou com alguma dificuldade:
> >
> > Como tirar uma cópia da tela de uma máquina que esta conectada a rede
para
> > que o supervisor consiga visualizar a tela do atendente.
> >
>
> [ ]s
> --
> Rodrigo Américo Cunha de Souza
> [EMAIL PROTECTED]
> Skype: rodrigoamerico
> ICQ# 4270625
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
>
>
> Yahoo! Grupos, um serviço oferecido por:
>
>
>
>
>
>
>
> --
--
>
> Links do Yahoo! Grupos
>
> a.. Para visitar o site do seu grupo na web, acesse:
> http://br.groups.yahoo.com/group/delphi-br/
>
> b.. Para sair deste grupo, envie um e-mail para:
> [EMAIL PROTECTED]
>
> c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço
> do Yahoo!.
>
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>
>
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Como tirar um cópia da Tela de uma máquina na Rede?
Lista, Boa tarde! Tenho a seguinte tarefa e estou com alguma dificuldade: Como tirar uma cópia da tela de uma máquina que esta conectada a rede para que o supervisor consiga visualizar a tela do atendente. Qualquer dica agradeço. At+ Claudio H.Binaghi [EMAIL PROTECTED] Fone: (011) 3289.3525 / 3289.0075 -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Excel e Delphi
Veja este código enviado por um
AMIGO DA LISTA:
unit Uextotais;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, Buttons, StdCtrls, Mask, ToolEdit, Db, IBCustomDataSet, IBQuery,
Grids, DBGrids, OleServer, Excel97, RXDBCtrl;
type
TFRMExTotais = class(TForm)
ExcelWorksheet1: TExcelWorksheet;
ExcelApplication1: TExcelApplication;
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
SpeedButton1: TSpeedButton;
Label3: TLabel;
Label4: TLabel;
Edit1: TEdit;
DateEdit1: TDateEdit;
DateEdit2: TDateEdit;
BTNIniciar: TBitBtn;
procedure Titulos;
procedure SpeedButton1Click(Sender: TObject);
procedure BTNIniciarClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FRMExTotais: TFRMExTotais;
implementation
uses udata, ubusfor;
{$R *.DFM}
procedure TFRMExTotais.Titulos;
begin
ExcelWorksheet1.Range['A1','A1'].Value:='Nº do Item';
ExcelWorksheet1.Range['B1','B1'].Value:='Quant. Pedida';
ExcelWorksheet1.Range['C1','C1'].Value:='Custo Total';
ExcelWorksheet1.Range['D1','D1'].Value:='Det.';
ExcelWorksheet1.Range['E1','E1'].Value:='Nº da Conta';
ExcelWorksheet1.Range['F1','F1'].Value:='Uni. Neg.';
ExcelWorksheet1.Range['G1','G1'].Value:='Cta. Obj.';
ExcelWorksheet1.Range['H1','H1'].Value:='ID Ativo';
end;
procedure TFRMExTotais.SpeedButton1Click(Sender: TObject);
begin
Fbusfor.showmodal;
Edit1.Text:=dmcf.qemp1EMPCOD.AsString;
end;
procedure TFRMExTotais.BTNIniciarClick(Sender: TObject);
var lcid,linha:integer;
WkBk:_Workbook;
begin
begin
dmcf.IBQExTotais.Close;
dmcf.IBQExTotais.SQL.Clear;
dmcf.IBQExTotais.SQL.Add('select iteijd,sum(conqtd) as
quantidade,sum(convlu*conqtd) as valor, veiune,itegru,veiida as ID_ATIVO
from consumo,item,veiculo');
dmcf.IBQExTotais.SQL.Add('where conite=itecod and conplc=veiplc and
conemp=:posto and condte>=:dtini and condte<=:dtfin');
dmcf.IBQExTotais.SQL.Add('group by
conite,conplc,itegru,itecod,iteijd,veiida,veiune');
dmcf.IBQExTotais.Params[0].AsString:=Edit1.Text;
dmcf.IBQExTotais.Params[1].AsDate:=DateEdit1.Date;
dmcf.IBQExTotais.Params[2].AsDate:=DateEdit2.Date;
dmcf.IBQExTotais.Open;
if dmcf.IBQExTotais.RecordCount<>0 then
begin
lcid := GetUserDefaultLCID;
ExcelApplication1.Visible[lcid] := true;
WkBk:=ExcelApplication1.Workbooks.Add(EmptyParam, lcid);
ExcelWorksheet1.ConnectTo(WkBk.Worksheets[1] as _Worksheet);
ExcelWorksheet1.Activate(LCID);
ExcelApplication1.ScreenUpdating[lcid]:=true;
ExcelWorksheet1.Name := 'Relatórios via Excel';
Titulos;
linha:=2;
dmcf.IBQExTotais.First;
while dmcf.IBQExTotais.Eof=false do
begin
ExcelWorksheet1.Range['A'+IntToStr(linha),'A'+IntToStr(linha)].Value:=dmcf.I
BQExTotaisITEIJD.AsString;
ExcelWorksheet1.Range['B'+IntToStr(linha),'B'+IntToStr(linha)].Value:=dmcf.I
BQExTotaisQUANTIDADE.AsFloat;
ExcelWorksheet1.Range['C'+IntToStr(linha),'C'+IntToStr(linha)].Value:=dmcf.I
BQExTotaisVALOR.AsFloat;
ExcelWorksheet1.Range['D'+IntToStr(linha),'D'+IntToStr(linha)].Value:=dmcf.I
BQExTotaisID_ATIVO.AsString;
ExcelWorksheet1.Range['E'+IntToStr(linha),'E'+IntToStr(linha)].Value:=dmcf.I
BQExTotaisVEIUNE.AsString+'.'+dmcf.IBQExTotaisITEGRU.AsString+'.'+dmcf.IBQEx
TotaisID_ATIVO.AsString;
ExcelWorksheet1.Range['F'+IntToStr(linha),'F'+IntToStr(linha)].Value:=dmcf.I
BQExTotaisVEIUNE.AsString;
ExcelWorksheet1.Range['G'+IntToStr(linha),'G'+IntToStr(linha)].Value:=dmcf.I
BQExTotaisITEGRU.AsString;
ExcelWorksheet1.Range['H'+IntToStr(linha),'H'+IntToStr(linha)].Value:=dmcf.I
BQExTotaisID_ATIVO.AsString;
dmcf.IBQExTotais.Next;
linha:=linha+1;
end;
Edit1.Clear;
DateEdit1.Clear;
DateEdit2.Clear;
end
else
MessageDlg('Nenhum registro
encontrado',mtInformation,[mbok],0);
end;
end;
end.
Boa sorte!
Claudio H.Binaghi
[EMAIL PROTECTED]
Fone: (011) 3289.3525 / 3289.0075
- Original Message -
From: "CPD Trianon" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, December 09, 2004 9:15 AM
Subject: [delphi-br] Excel e Delphi
>
> Olá pessoal, bom dia...preciso de ajuda, algum exemplo sobre como importar
> os dados de uma planilha do excel para uma tabela ou clientdataset..
&g
[delphi-br] Ref. Formato de arquivo Multipunch
A todos da Lista, Boa tarde! Alguém tem alguma documentação sobre o formato de arquivo Multipunch? Preciso estudar/entender este formato para exortar/gravar meus dados neste formato. Qualquer ajuda agradeço. Claudio H.Binaghi [EMAIL PROTECTED] Fone: (011) 289.3525 / 289.0075 [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Ligação via ComObj com a Excel 2002 e da pau
Luciano,( Danilo talvez isto te ajude, não sei se é por ai, mas talvez seja um inicio a se pesquisar ) Só Completando, Já que levantei a lebre, Pesquisei e encontrei o que queria vou disponibilizar para toda lista. 1º Quando você esta trabalhando num servidor XP ele tem vários níveis de segurança. Um destes níveis não permite o acesso (via programação ao projeto VBA) 2º Se Você tiver uma assinatura digital/ certificado/ outras formas de autenticação, perfeito, pode continuar com este nível de segurança. 3º Se você não tiver alguma destas formas de autenticação você tem duas opções. a-criar uma assinatura digital com um Sof.da Microsoft. b-diminuir o grau de segurança. ( Por enquanto eu aderi a segunda opção ) dentro de opção: OPÇÕES DE SEGURANÇA, você tem o item: Objetos do Sistema: Restringir permissões padrão de objetos do sistema interno (por exemplo ligações simbólicas) ( normalmente ela vem ATIVA, você só DESATIVA ela ) O a excel voltou a funcionar parece mágica. Qualquer problema contem comigo Obrigado. Claudio H.Binaghi [EMAIL PROTECTED] Fone: (011) 289.3525 / 289.0075 - Original Message - From: "Claudio H.Binaghi" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Monday, September 13, 2004 7:42 PM Subject: Re: [delphi-br] Ligação via ComObj com a Excel 2002 e da pau > Luciano, > Acho que você ainda não entendeu. > Eu já programo e muito com o pacote office. > > Descobri hoje: > > 1º No XP Profissional com o Pacote Office 2002 Profissional existem > comandos que eu estava acostumado a trabalhar como por exemplo > inserir uma macro VBA dentro da planilha, ou deletar um módulo... > > Estas operações estão proibidas aparece uma caixa de dialogo com o texto > " O Acesso de programação ao projeto do Visual Basic não é confiavel !!" > > Qualquer luz agradeço. > > PS Estou numa boa... > > > > > - Original Message - > From: "Luciano R. Machado" <[EMAIL PROTECTED]> > To: <[EMAIL PROTECTED]> > Sent: Monday, September 13, 2004 6:10 PM > Subject: Re: [delphi-br] Ligação via ComObj com a Excel 2002 e da pau > > > Boa tarde Claudio, > > Sinceramente tive essa impressão, principalmente devido ao fato de > que um colega aqui já respondeu. Ficar re-postando a mesma pergunta > está longe da boa conduta em listas de discussão. > > Levando em conta a grande boa vontade dos participantes dessa lista, > posso te garantir que se poucos respondem é porque poucos realmente têm > a resposta. > > Fica de boa, estou falando isso para o seu bem. > > -- > Luciano Rodrigues Machado > Programador - Ribeirão Preto-SP > > Claudio H.Binaghi wrote: > > > Luciano, Boa tarde! > > > > Para você pode ser até uma pergunta simples. > > Mas no momento para mim é uma pergunta séria! > > > > Eu desenvolvendo mexendo com o pacote Office a +ou- 4 anos. > > Faço Gráficos / Todos tipo de tabela / controlo todas as funções da Excel. > > Crio macros em VBA, links e outras cositas mais. > > > > Como você pode perceber não sou tão desligado do assunto assim. > > > > Caso você tenha algo para acrescentar, > > vou agradecer muito, caso contrário não pense que a gente fica aqui > mandando > > mensagem só para provocar você. > > > > At+ > > > > > > > -- > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > Para ver as mensagens antigas, acesse: > http://br.groups.yahoo.com/group/delphi-br/messages > > Para falar com o moderador, envie um e-mail para: > [EMAIL PROTECTED] ou [EMAIL PROTECTED] > > Links do Yahoo! Grupos > > > > > > > > > > -- > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > Para ver as mensagens antigas, acesse: > http://br.groups.yahoo.com/group/delphi-br/messages > > Para falar com o moderador, envie um e-mail para: > [EMAIL PROTECTED] ou [EMAIL PROTECTED] > > Links do Yahoo! Grupos > > > > > > > -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Ligação via ComObj com a Excel 2002 e da pau
Luciano, Acho que você ainda não entendeu. Eu já programo e muito com o pacote office. Descobri hoje: 1º No XP Profissional com o Pacote Office 2002 Profissional existem comandos que eu estava acostumado a trabalhar como por exemplo inserir uma macro VBA dentro da planilha, ou deletar um módulo... Estas operações estão proibidas aparece uma caixa de dialogo com o texto " O Acesso de programação ao projeto do Visual Basic não é confiavel !!" Qualquer luz agradeço. PS Estou numa boa... - Original Message - From: "Luciano R. Machado" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Monday, September 13, 2004 6:10 PM Subject: Re: [delphi-br] Ligação via ComObj com a Excel 2002 e da pau Boa tarde Claudio, Sinceramente tive essa impressão, principalmente devido ao fato de que um colega aqui já respondeu. Ficar re-postando a mesma pergunta está longe da boa conduta em listas de discussão. Levando em conta a grande boa vontade dos participantes dessa lista, posso te garantir que se poucos respondem é porque poucos realmente têm a resposta. Fica de boa, estou falando isso para o seu bem. -- Luciano Rodrigues Machado Programador - Ribeirão Preto-SP Claudio H.Binaghi wrote: > Luciano, Boa tarde! > > Para você pode ser até uma pergunta simples. > Mas no momento para mim é uma pergunta séria! > > Eu desenvolvendo mexendo com o pacote Office a +ou- 4 anos. > Faço Gráficos / Todos tipo de tabela / controlo todas as funções da Excel. > Crio macros em VBA, links e outras cositas mais. > > Como você pode perceber não sou tão desligado do assunto assim. > > Caso você tenha algo para acrescentar, > vou agradecer muito, caso contrário não pense que a gente fica aqui mandando > mensagem só para provocar você. > > At+ > -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Ligação via ComObj com a Excel 2002 e da pau
Desculpe Eduardo, pois desconheço este esquema de ID. Eu uso o agrupamento de mensagens, porém são feitas em cima do Subject(Assunto) e não em cima deste tal ID???. De qualquer forma prefiro ser tratado como EU trato as pessoas, Cordialmente. []'s. - Original Message - From: "Eduardo Jedliczka" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Monday, September 13, 2004 6:03 PM Subject: Re: [delphi-br] Ligação via ComObj com a Excel 2002 e da pau Cláudio acho que o Luciano não teve o objetivo de lhe ofender... mas é que você escreveu seu e-mail em cima de "outra mensagem" (enviada pelo Fabiano, com o título: Ip da internet), portanto ela possui o mesmo ID, e para aqueles que usam a opção de agrupamento de e-mail, isto gera uma grande confusão, pois há dois assuntos diferentes agrupados juntos. Sugirdo que da próxima vez, "envie" uma mensagem, ao invés de responder outra qualquer, e quem sabe assim consiga a resposta ao seus problemas... [s] = Eduardo Jedliczka GeraSoft Informática Apucarana - PR ===== - Original Message - From: Claudio H.Binaghi To: [EMAIL PROTECTED] Sent: Monday, September 13, 2004 5:10 PM Subject: Re: [delphi-br] Ligação via ComObj com a Excel 2002 e da pau Boa tarde a todos! Tenho um sistema desenvolvido em Delphi 5 e estou passando para o XP. Estou com problemas na minha ligação com a excel. Antes funcionava belezinha agora da pau, a Excel instalada é 2002. Alguém tem alguma informação sobre esta atualização de versão. Desde já agradeço. Claudio H.Binaghi [EMAIL PROTECTED] Fone: (011) 289.3525 / 289.0075 - Original Message - From: "Fabiano Yahoo" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Monday, September 13, 2004 4:45 PM Subject: [delphi-br] Ip da internet > Como faco para pegar o ip de conecção com a internet? > alguem tem uma funcao ou um exemplo que possa me ajudar? > > Ate + > > > > -- > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > Para ver as mensagens antigas, acesse: > http://br.groups.yahoo.com/group/delphi-br/messages > > Para falar com o moderador, envie um e-mail para: > [EMAIL PROTECTED] ou [EMAIL PROTECTED] > > Links do Yahoo! Grupos > > > > > > > -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Ligação via ComObj com a Excel 2002 e da pau
Luciano, Boa tarde! Para você pode ser até uma pergunta simples. Mas no momento para mim é uma pergunta séria! Eu desenvolvendo mexendo com o pacote Office a +ou- 4 anos. Faço Gráficos / Todos tipo de tabela / controlo todas as funções da Excel. Crio macros em VBA, links e outras cositas mais. Como você pode perceber não sou tão desligado do assunto assim. Caso você tenha algo para acrescentar, vou agradecer muito, caso contrário não pense que a gente fica aqui mandando mensagem só para provocar você. At+ - Original Message - From: "Luciano R. Machado" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Monday, September 13, 2004 5:38 PM Subject: Re: [delphi-br] Ligação via ComObj com a Excel 2002 e da pau Isso é algum tipo de Auto-Envio ou é provocação mesmo? -- Luciano Rodrigues Machado Programador - Ribeirão Preto-SP Claudio H.Binaghi wrote: > Boa tarde a todos! > > Tenho um sistema desenvolvido em Delphi 5 > e estou passando para o XP. > > Estou com problemas na minha ligação com a excel. > Antes funcionava belezinha agora da pau, > a Excel instalada é 2002. > > Alguém tem alguma informação sobre esta atualização de versão. > > Desde já agradeço. > > Claudio H.Binaghi > [EMAIL PROTECTED] > Fone: (011) 289.3525 / 289.0075 > > -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Ligação via ComObj com a Excel 2002 e da pau
Boa tarde a todos! Tenho um sistema desenvolvido em Delphi 5 e estou passando para o XP. Estou com problemas na minha ligação com a excel. Antes funcionava belezinha agora da pau, a Excel instalada é 2002. Alguém tem alguma informação sobre esta atualização de versão. Desde já agradeço. Claudio H.Binaghi [EMAIL PROTECTED] Fone: (011) 289.3525 / 289.0075 - Original Message - From: "Fabiano Yahoo" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Monday, September 13, 2004 4:45 PM Subject: [delphi-br] Ip da internet > Como faco para pegar o ip de conecção com a internet? > alguem tem uma funcao ou um exemplo que possa me ajudar? > > Ate + > > > > -- > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > Para ver as mensagens antigas, acesse: > http://br.groups.yahoo.com/group/delphi-br/messages > > Para falar com o moderador, envie um e-mail para: > [EMAIL PROTECTED] ou [EMAIL PROTECTED] > > Links do Yahoo! Grupos > > > > > > > -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Como Trabalhar com Programadores????
Boa tarde a todos! Quero compartilhar algumas experiências minhas com a lista! Sou empresário do ramo de informática e todos os meus funcionários são programadores. Todo mundo aqui é de confiança "total". A funcionária mais nova tem quatro anos e a mais velha quinze. Nem por isso durmo no Ponto! Pois a oportunidade / Necessidade faz o lad.. Digo isso pois se alguém perguntar para quem você puxa a sardinha, na hora da necessidade, sua família ou seus amigos/patrão...Vou dar razão a quem disser que precisa manter a sua família.(mas não a qualquer custo...) Por este motivo tenho uma Unit de segurança que só eu mexo/desenvolvo, com todos os meus macetes e mumunhas, que só eu sei, compilo e depois só disponibilizo a DCU para a liberação dos aplicativos. Desta forma consigo ter um bom relacionamento com todos sem ter que me preocupar com a questão da segurança. Acho que se você faz coisas muito simples, ai você tem que se preocupar com duas coisas: 1º Se é muito simples qualquer um copia, rouba, faz engenharia reversa (Não tem jeito, quando o cara quer ninguém segura! ) 2º Você tem que começar a estudar mais para desenvolver coisas melhores, mas significativas (então p/ quem tem medo VAI ESTUDAR que é a única coisa que te garante!) Se você desenvolve coisas boas, ai meu amigo, ninguém consegue te copiar. Se conseguem é por mérito o cara manja tanto que deveria ter desenvolvido o dele, invés disto fica perdendo tempo suando a camisa para quebrar a segurança dos outros... Acho que o bom empresário só tem tempo para pensar no que quer/pode melhorar, pois isso é que da camisa para os empreendedores e não ficar de olho no funcionário se ele pega uma graninha da caixinha para comprar cigarro... ( Eu prefiro contar que a minha empresa existe só para me dar lucro, mas sim para dar uma boa vida a todos que nela trabalham, com isso e deixo uma grana para estas ocasiões, para o lanche das 17:00, que tomamos todos juntos com pão, manteiga, quentinho da padaria ... olha ai um bom exemplo) Prefiro me preocupar em ganhar $$ do que ficar olhando para a desgraça dos outros. Um abraço a todos. Claudio H.Binaghi [EMAIL PROTECTED] Fone: (011) 289.3525 / 289.0075 - Original Message - From: "Eliel Regis de Lima" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Sunday, September 12, 2004 4:43 PM Subject: Re: [delphi-br] Como Trabalhar com Programadores > Boa tarde, > > Tenho uma pequena empresa e desenvolvemos softwares. > Posso dizer com toda a segurança, a empresa depende tanto dos > funcionários (no meu caso os programadores) quanto eles dependem da empresa. > A relação entre patrão e funcionário não pode ser essa animalidade que o > colega escreveu. O funcionário, seja o faxineiro ou o gerente, é gente > igual ao dono, muitas vezes tem até mais conhecimento que o dono da > empresa, merece respeito e um tratamento digno. > E faz diferença no desenvolvimento da empresa o relacionamento entre o > patrão e os funcionários. > É claro que existem bons e maus funcionários, assim como maus patrões, > mas o patrão tem que ter competência para selecionar os bons > funcionários, tratá-los com respeito e dignidade, com amizade, confiança > e honestidade. > A liberdade com confiança e responsabilidade é um bom insentivo à > produção e ao crescimento profissional de qualquer ser humano. > > Trate seu funcionário como um amigo, respeitando os direitos e deveres > de cada um. > > Recompense os funcionários sempre que seu faturamento superar as > expectativas, pois eles são co-responsáveis pelo seu lucro ou prejuizo. > > Um abraço a todos. > > Eliel Regis de Lima. > > Ricardo wrote: > > Faz assim o cara exige que o programador tenha net em casa e manda ele levar > > o papel higienico de casa tambem pra vc nao ficar revoltadinho a toa. > > Trata ele como vc acredita que ele eh : safado, malandro e desonesto. Por > > que vc acreditando nisso se sente mais a vontade em pagar uma miseria, > > desviar os direitos trabalhistas dele e tentar manter ele sob seu dominio > > usando taticas neo-nazistas afinal ele eh nao vale nada mesmo e merece tudo > > isso. > > > > Engracado neh que todo santo dia milhares de programadores dao o seu recado > > e produzem muitas coisas pelo mundo enquanto gerentes de quinta que > > proliferam nesse pais de merda botam anuncio em jornal querendo programador > > com experiencia, estudo (tudo trazido de casa eh claro, porque investir em > > um programdor desonesto eh desperdicio) Porque sera hein que tem tanto > > anuncio por ai contratando essa escoria chamada programador meu deus nao > > entendo como pode. > > > > > > > > - Original Message - > > From: "www.labsoftnet.com.br (Mateus)" <[EMAIL PROTECTED]> > > To: <[EMAIL
Re: [delphi-br] Delphi 5 no XP
Bom dia a todos! Alguém sabe se o Delphi 5 pode ser instalado no XP? Roda Bem? Obrigado! Claudio H.Binaghi [EMAIL PROTECTED] Fone: (011) 289.3525 / 289.0075 -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
