[delphi-br] Delphi , Terminal Service e BDE
Olá. A empresa onde trabalho adquiriu um software desenvolvido em Delphi/Oracle com BDE. Como existe mais de uma unidade remota que necessita acessar os dados, todas estas unidades estão utilizando o Terminal Service. O BDE está configurado com o LOCAL SHARE = TRUE, e normalmente os usuários conseguem trabalhar normalmente. Só que em determinada hora, não sei se é devido a quantidade de pessoas acessando ao mesmo tempo, ocorre o erro de violação de compartilhamento que não deveria estar ocorrendo. (Não são todas as máquinas, tão pouco, todos os usuários, mas que o erro está ocorrendo, ta.) Se alguém tiver alguma idéia. Grato, Marcos Esteves Simão Programador de Computador - Unimed Vitória [EMAIL PROTECTED] GERIN - CODES [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Delphi , Terminal Service e BDE
Paulo, O problema é que hoje com o LOCAL SHARE = TRUE, eu posso criar apenas alguns poucos usuários de rede, apenas para gerenciar a impressão, pois em alguns módulos, a impressão é enviada diretamente para a impressora padrão. Caso eu recorra a esse artifício, além de terem de ser criados aproximadamente 150 logins no TS, sendo que num total de 118MB de executáveis, faria com que eu necessitasse de aproximadamente 15GB de espaço. Isso ficaria inviável. Grato, Marcos Esteves Simão Programador de Computador - Unimed Vitória [EMAIL PROTECTED] GERIN - CODES -Mensagem original- De: Paulo Santana (Terra) [mailto:[EMAIL PROTECTED] Enviada em: segunda-feira, 30 de maio de 2005 17:19 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Delphi , Terminal Service e BDE Sei que é uma solução tosca, mas com o BDE talvez seja a unica forma, passe o BDE para LOCAL SHARE = FALSE, no perfil de cada usuário crie uma pasta com os executáveis do sistema, para que o Terminal Server considere cada perfil como uma máquina virtual, com isso os arquivos gerados pelo BDE ficam restritos ao perfil de cada usuário. E corrija os perfis para buscar os novos executáveis ao inves de todos buscando num mesmo diretório. Marcos Esteves Simao (GERIN) escreveu: Olá. A empresa onde trabalho adquiriu um software desenvolvido em Delphi/Oracle com BDE. Como existe mais de uma unidade remota que necessita acessar os dados, todas estas unidades estão utilizando o Terminal Service. O BDE está configurado com o LOCAL SHARE = TRUE, e normalmente os usuários conseguem trabalhar normalmente. Só que em determinada hora, não sei se é devido a quantidade de pessoas acessando ao mesmo tempo, ocorre o erro de violação de compartilhamento que não deveria estar ocorrendo. (Não são todas as máquinas, tão pouco, todos os usuários, mas que o erro está ocorrendo, ta.) Se alguém tiver alguma idéia. Grato, Marcos Esteves Simão Programador de Computador - Unimed Vitória [EMAIL PROTECTED] GERIN - CODES [As partes desta mensagem que não continham texto foram removidas] --- avast! Antivirus: Outbound message clean. Virus Database (VPS): 0522-0, 30/05/2005 Tested on: 30/5/2005 17:18:55 avast! - copyright (c) 2000-2004 ALWIL Software. http://www.avast.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 -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: RES: [delphi-br] Delphi , Terminal Service e BDE
Alguém saberia dizer se existe algum limite dos arquivos temporários que são criados. Porque o erro não acontece com todas as máquinas. Grato, Marcos Esteves Simão Programador de Computador - Unimed Vitória [EMAIL PROTECTED] GERIN - CODES -Mensagem original- De: Paulo Santana (Terra) [mailto:[EMAIL PROTECTED] Enviada em: segunda-feira, 30 de maio de 2005 18:06 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Delphi , Terminal Service e BDE O problema é o BDE, por isso removi ele de meus aplicativos. O BDE tem um gerenciamento tosco, e pra ajudar o Windows não colabora muito, provocando travamentos nos arquivos de controle de acesso do BDE (.NET E .LCK) devido a diversos usuários estarem setados para o mesmo arquivo. Infelizmente desconheço outra forma de ajuda-lo, a não ser tratando cada usuário como uma máquina virtual. Marcos Esteves Simao (GERIN) escreveu: Paulo, O problema é que hoje com o LOCAL SHARE = TRUE, eu posso criar apenas alguns poucos usuários de rede, apenas para gerenciar a impressão, pois em alguns módulos, a impressão é enviada diretamente para a impressora padrão. Caso eu recorra a esse artifício, além de terem de ser criados aproximadamente 150 logins no TS, sendo que num total de 118MB de executáveis, faria com que eu necessitasse de aproximadamente 15GB de espaço. Isso ficaria inviável. Grato, Marcos Esteves Simão Programador de Computador - Unimed Vitória [EMAIL PROTECTED] GERIN - CODES -Mensagem original- De: Paulo Santana (Terra) [mailto:[EMAIL PROTECTED] Enviada em: segunda-feira, 30 de maio de 2005 17:19 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Delphi , Terminal Service e BDE Sei que é uma solução tosca, mas com o BDE talvez seja a unica forma, passe o BDE para LOCAL SHARE = FALSE, no perfil de cada usuário crie uma pasta com os executáveis do sistema, para que o Terminal Server considere cada perfil como uma máquina virtual, com isso os arquivos gerados pelo BDE ficam restritos ao perfil de cada usuário. E corrija os perfis para buscar os novos executáveis ao inves de todos buscando num mesmo diretório. Marcos Esteves Simao (GERIN) escreveu: Olá. A empresa onde trabalho adquiriu um software desenvolvido em Delphi/Oracle com BDE. Como existe mais de uma unidade remota que necessita acessar os dados, todas estas unidades estão utilizando o Terminal Service. O BDE está configurado com o LOCAL SHARE = TRUE, e normalmente os usuários conseguem trabalhar normalmente. Só que em determinada hora, não sei se é devido a quantidade de pessoas acessando ao mesmo tempo, ocorre o erro de violação de compartilhamento que não deveria estar ocorrendo. (Não são todas as máquinas, tão pouco, todos os usuários, mas que o erro está ocorrendo, ta.) Se alguém tiver alguma idéia. Grato, Marcos Esteves Simão Programador de Computador - Unimed Vitória [EMAIL PROTECTED] GERIN - CODES [As partes desta mensagem que não continham texto foram removidas] --- avast! Antivirus: Outbound message clean. Virus Database (VPS): 0522-0, 30/05/2005 Tested on: 30/5/2005 17:18:55 avast! - copyright (c) 2000-2004 ALWIL Software. http://www.avast.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 --- avast! Antivirus: Outbound message clean. Virus Database (VPS): 0522-0, 30/05/2005 Tested on: 30/5/2005 18:05:44 avast! - copyright (c) 2000-2004 ALWIL Software. http://www.avast.com [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Delphi , Terminal Service e BDE
Olá. A empresa onde trabalho adquiriu um software desenvolvido em Delphi/Oracle com BDE. Como existe mais de uma unidade remota que necessita acessar os dados, todas estas unidades estão utilizando o Terminal Service. O BDE está configurado com o LOCAL SHARE = TRUE, e normalmente os usuários conseguem trabalhar normalmente. Só que em determinada hora, não sei se é devido a quantidade de pessoas acessando ao mesmo tempo, ocorre o erro de violação de compartilhamento que não deveria estar ocorrendo. (Não são todas as máquinas, tão pouco, todos os usuários, mas que o erro está ocorrendo, ta.) Se alguém tiver alguma idéia. Grato, Marcos Esteves Simão Programador de Computador - Unimed Vitória [EMAIL PROTECTED] GERIN - CODES [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Copiando arquivos pelo Delphi.
Boa Tarde, Se executo esta linha no prompt : xcopy T:\Origem\*.* C:\destino\ /e /d /y , irá copiar todos os arquivos, diretórios e subdiretórios que estiverem mais atualizados. Necessito executar uma cópia de arquivos pelo delphi com essas mesmas características de comando.. e os exemplos que vi na Net não satisfizeram. Alguém tem alguma sugestão? Atenciosamente, Marcos Esteves Simão Programador de Computador - Unimed Vitória [EMAIL PROTECTED] GERIN - CODES -- 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] OFF Topic: Quick report
Boa tarde!! Alguém sabe se é possível no Qreport, imprimir uma página Fixa antes dos dados, como uma folha de abertura de livro de registros. Tipo assim... Quero imprimir na primeira folha o termo de abertura de um livro de registros, após a 1a página, imprimir as folhas com os detalhes (dados), e seguidamente imprimir uma folha com o termo de encerramento do livro. Alguém sabe se tem como fazer isso no Quick. Obs: Tem que ser no QR, pois é manutenção em sistema de terceiro que utiliza esta ferramenta. D5 + QR Grato, Marcos Esteves Simão Programador de Computador - Unimed Vitória [EMAIL PROTECTED] GERIN - CODES -- 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] Digitação em TEdit
Pessoal, Tem como em um componente do tipo Tedit, inverter a ordem de exibição dos dados da hora da digitação. Explicando melhor: Originalmente ao preencher um Edit, ele é preenchido da esquerda para direita. O que quero é que sejam exibidos da direita para esquerda, como fazem os sites de bancos para campos de valor numérico. Grato, Marcos Esteves Simão Programador de Computador - Unimed Vitória [EMAIL PROTECTED] GERIN - CODES -- 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] Digitação em TEdit
Pessoal, Tem como em um componente do tipo Tedit, inverter a ordem de exibição dos dados da hora da digitação. Explicando melhor: Originalmente ao preencher um Edit, ele é preenchido da esquerda para direita. O que quero é que sejam exibidos da esquerda para direita, como fazem os sites de bancos para campos de valor numérico. Grato, Marcos Esteves Simão Programador de Computador - Unimed Vitória [EMAIL PROTECTED] GERIN - CODES -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Incluir anexo no e-mail????
Tenta assim... procedure TForm1.Button1Click(Sender: TObject); var pEMail: String; begin pEMail:= 'mailto:[EMAIL PROTECTED]C:\sqlnet.log'; ShellExecute(0, nil, pchar(pemail), nil, nil, sw_showmaximized); end; Marcos Esteves Simão Programador de Computador - Unimed Vitória [EMAIL PROTECTED] GERIN - CODES -Mensagem original- De: Rodrigo Ferreira [mailto:[EMAIL PROTECTED] Enviada em: segunda-feira, 28 de fevereiro de 2005 13:56 Para: delphi-br@yahoogrupos.com.br Cc: [EMAIL PROTECTED]; [EMAIL PROTECTED] Assunto: [delphi-br] Incluir anexo no e-mail Boa pessoal tenho esse pegueno script que abre o OutLock Express com um e-mail porem estou com um dificuldade em implementar a parte que anexa um arquivo ao email. Se alguem souber como eu faco para implementar nesse codigo a opcao de incluir o anexo por favor me de um help agradeco a colaboracao. procedure TForm1.Button1Click(Sender: TObject); var email: string; begin email := 'mailto:[EMAIL PROTECTED]'; email := email + '?subject=' + 'Solicitação Orçamento do Catalogo'; email := email + 'body='+'Dpto. Compras' #13+ ' * A/C Sr. Augusto Fernando'; ShellExecute(0, nil, pchar(email), nil, nil, sw_showmaximized); end; end. Atenciosamente Rodrigo Ferreira [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: RES: [delphi-br] Revista sobre delphi
Não querendo alongar, acho que ultimamente o grande problema é querer falar de 250 coisas ao mesmo tempo e por questão, de como eles mesmo falam de espaço para limitar a revista em 50 páginas ficar disponibilizando as listagens somente para download. Eu compro uma revista para ler. mas aí não quando estou no meio de um artigo e quando o assunto começa a ficar interessante e penso que vou ver como foi a implementação, pronto, vem a tal observação: por restiçoes de espaço, foi omitida a listagemfaça o download. ou seja, esse negócio de baixar pronto...pra mim o interessante é fazer, entender o significado. Exemplos prontos tem um monte na Net. Atenciosamente, Marcos Esteves -Mensagem original- De: Alexandre Oliveira [mailto:[EMAIL PROTECTED] Enviada em: sexta-feira, 14 de janeiro de 2005 10:47 Para: delphi-br@yahoogrupos.com.br Assunto: RES: RES: [delphi-br] Revista sobre delphi Ol=E1, S=F3 pra deixar meu coment=E1rio, a revista =E9 excelente mas o = atendimento para assinantes =E9 ruim. Alexandre=20 -Mensagem original- De: Bruno Lichot - Micrologos [mailto:[EMAIL PROTECTED] Enviada em: sexta-feira, 14 de janeiro de 2005 08:39 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Revista sobre delphi Qdo publicamos os artigos sobre D2005 em primeira m=E3o, queriamos = prestigiar nosso leitores com a nova vers=E3o do ambiente de desenvolvimento que utilizamos e j=E1 abrir portas par a pr=F3xima etapa. Nenhuma outra = publica=E7=E3o teve exclusividade e acesso para trazer em primeira m=E3o o q havia de = melhor. Por decidimos fazer uma edi=E7=E3o para q nngu=E9m tivesse q pagar apor = uma publica=E7=E3o especial caso quizesse saber sobre D2005. Mas de qq forma ser=E1 uma sugest=E3o q vou levar a coordena=E7=E3o da = revista. Muito boa coloca=E7=E3o pois achavamos q estavamos fazendo o melhor. Sempre as ordens. []=B4s Bruno Lichot Gerente de Novas Tecnologias - Micrologos Equipe ClubeDelphi.NET = DevMedia Group =20 www.micrologos.com.br - www.clubedelphi.net - www.delphirio.assespro-rj.org.br www.sqlmagazine.com.br - www.neoficio.com.br/msdn - www.javamagazine.com.br www.portalwebmobile.com.br - www.heobott.com =20 --=20 No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.6.11 - Release Date: 12/01/2005 =20 -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Pressionamento de Teclas
Boa tarde, Quero capturar o pressionamento de teclas, Por exemplo: pressionar a tecla F11 utilizo no KeyDown do Form If Key = VK_F11 then O que quero fazer. Porém não estou conseguindo capturar o presionamento de Alt + F12. Alguém sabe como fazer? Grato. Marcos Esteves Simão Programador de Computador - Unimed Vitória [EMAIL PROTECTED] GERIN - CODES [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Mudar o tamanho de um componente automaticamente ...
Altere os itens da propriedade Anchors do Objeto - akRight e akBotton para True Marcos Esteves Simão Programador de Computador - Unimed Vitória [EMAIL PROTECTED] GERIN - CODES -Mensagem original- De: Juao Igor [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 1 de dezembro de 2004 15:57 Para: [EMAIL PROTECTED] Assunto: [delphi-br] Mudar o tamanho de um componente automaticamente... Eu gostaria de saber como fazer com que um componente(memo, tchart, etc..) mude de tamanho qndo eu mudar o tamanho do form... 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 -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Enviar e-mail com anexo via programacao
Creio que deva declarar a unit ShellAPI procedure Tfrm_RCP.btn_EnviaEMAIL(Sender: TObject); var pEMail: String; begin pEMail:= 'mailto:[EMAIL PROTECTED] da mensagemCAMINHO e NOME Arquivo Anexo ' {$ifdef win32} ShellExecute(Handle,'Open',pChar(pEmail),nil,nil,sw_Show); {$endif} end; Marcos Esteves Simão Programador de Computador - Unimed Vitória [EMAIL PROTECTED] GERIN - CODES -Mensagem original- De: Vanderlei [mailto:[EMAIL PROTECTED] Enviada em: quinta-feira, 25 de novembro de 2004 09:24 Para: [EMAIL PROTECTED] Assunto: [delphi-br] Enviar e-mail com anexo via programacao Pessoal, Preciso enviar um e-mail com anexo via programação, mas nao estou encontrando uma rotina q faça isso, alguem teria isso pra me enviar? no aguardo Vanderlei [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Enviar e-mail com anexo via programacao
Comigo funciona perfeitamente. O nome do arquivo anexo deve existir e estar entre aspas duplas procedure TForm1.ButtonEMAILClick(Sender: TObject); var pEMail: String; begin pEMail:= 'mailto:[EMAIL PROTECTED] - G:\Gestao\RCPs\0001.doc'; {$ifdef win32} ShellExecute(Handle,'Open',pChar(pEmail),nil,nil,sw_Show); {$endif} end; Marcos Esteves Simão Programador de Computador - Unimed Vitória [EMAIL PROTECTED] GERIN - CODES -Mensagem original- De: Marcello [mailto:[EMAIL PROTECTED] Enviada em: quinta-feira, 25 de novembro de 2004 14:53 Para: [EMAIL PROTECTED] Assunto: RES: [delphi-br] Enviar e-mail com anexo via programacao essa rotina não funcionou comigo, alguém conseguiu usa-la _ De: Marcos Esteves Simao (GERIN) [mailto:[EMAIL PROTECTED] Enviada em: quinta-feira, 25 de novembro de 2004 10:41 Para: '[EMAIL PROTECTED]' Assunto: RES: [delphi-br] Enviar e-mail com anexo via programacao Creio que deva declarar a unit ShellAPI procedure Tfrm_RCP.btn_EnviaEMAIL(Sender: TObject); var pEMail: String; begin pEMail:= 'mailto:[EMAIL PROTECTED] da mensagemCAMINHO e NOME Arquivo Anexo ' {$ifdef win32} ShellExecute(Handle,'Open',pChar(pEmail),nil,nil,sw_Show); {$endif} end; Marcos Esteves Simão Programador de Computador - Unimed Vitória [EMAIL PROTECTED] GERIN - CODES -Mensagem original- De: Vanderlei [mailto:[EMAIL PROTECTED] Enviada em: quinta-feira, 25 de novembro de 2004 09:24 Para: [EMAIL PROTECTED] Assunto: [delphi-br] Enviar e-mail com anexo via programacao Pessoal, Preciso enviar um e-mail com anexo via programação, mas nao estou encontrando uma rotina q faça isso, alguem teria isso pra me enviar? no aguardo Vanderlei [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE http://br.rd.yahoo.com/SIG=12aemeni1/M=264379.5078783.6203979.1588051/D=brc lubs/S=2137111264:HM/EXP=1101472872/A=2332652/R=0/id=noscript/SIG=119058f8i/ *http://br.download.yahoo.com/messenger/ _ 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] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [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