[delphi-br] Re: Enviar mensagem entre funcionarios dentro da empresa(com anexo)
E como eu poderia fazer isso, adaptando no aplicativo que tenho que envia mensagem através do serviço de mensagem do windows (netapi.dll)? Poderia explicar melhor? Mani --- Em delphi-br@yahoogrupos.com.br, [EMAIL PROTECTED] escreveu Como vc disse de UM SETOR PARA OUTRO pré suponho que seja tudo dentro de uma unica empresa, e que com isso aja um servidor que tenha pelo menos um diretorio que todos compartilhem, bom na propria mensagem vc pode enviar uma TAG, ou varias, indicando que tem um arquivo anexo, bem, mas este arquivo não esta na mensagem e sim no servidor, com nome e ID tudo certim... quando ele quizer abrir o arquivo ele copia do servidor e abre... exemplo: msg bla ble bli blo blu /msg anexo arquivo.ext /anexo anexo arquivo.ext /anexo etc... Um exemplo rapido e pratico, agora claro podemos ver o outro modo também... Afinal cada caso é um caso. bjos... Luiz Escobar - Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/ASSEMBLER/MySQL/xBase SERVIDORES - IntraNetWare4.11, LINUX-RedHat9, Windows - Original Message - From: maniacapordelphi To: delphi-br@yahoogrupos.com.br Sent: Friday, August 24, 2007 2:45 PM Subject: [delphi-br] Enviar mensagem entre funcionarios dentro da empresa(com anexo) Alguém conhece um componente com o qual eu possa enviar uma mensagem intranet com arquivo anexo de um setor da empresa para outro? Sei apenas enviar mensagem pelo Serviço de Mensagem do Windows (NetAPI.dll), mas não sei como anexar arquivo, nem se isso é possivel. Esse serviço precisa ficar dentro do meu aplicativo. Mani [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Enviar mensagem entre funcionarios dentro da empresa(com anexo)
se todas as máquinas têm acesso à net, pq não colocar um cliente de email de verdade? eu criei uma dll q faz isso... olha q interessante: embuti ela nos meus sw... qdo um programa trava com um erro não conhecido ou tratável, ele dispara uma mensagem de email... eu direcionei pra cair no meu celular... dessa forma, qdo bem entender, basta chamar a função da dll... se isso resolver, me fala q mando a dll pra vc... and - Original Message - From: maniacapordelphi To: delphi-br@yahoogrupos.com.br Sent: Monday, August 27, 2007 7:47 AM Subject: [delphi-br] Re: Enviar mensagem entre funcionarios dentro da empresa(com anexo) E como eu poderia fazer isso, adaptando no aplicativo que tenho que envia mensagem através do serviço de mensagem do windows (netapi.dll)? Poderia explicar melhor? Mani --- Em delphi-br@yahoogrupos.com.br, [EMAIL PROTECTED] escreveu Como vc disse de UM SETOR PARA OUTRO pré suponho que seja tudo dentro de uma unica empresa, e que com isso aja um servidor que tenha pelo menos um diretorio que todos compartilhem, bom na propria mensagem vc pode enviar uma TAG, ou varias, indicando que tem um arquivo anexo, bem, mas este arquivo não esta na mensagem e sim no servidor, com nome e ID tudo certim... quando ele quizer abrir o arquivo ele copia do servidor e abre... exemplo: msg bla ble bli blo blu /msg anexo arquivo.ext /anexo anexo arquivo.ext /anexo etc... Um exemplo rapido e pratico, agora claro podemos ver o outro modo também... Afinal cada caso é um caso. bjos... Luiz Escobar - Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/ASSEMBLER/MySQL/xBase SERVIDORES - IntraNetWare4.11, LINUX-RedHat9, Windows - Original Message - From: maniacapordelphi To: delphi-br@yahoogrupos.com.br Sent: Friday, August 24, 2007 2:45 PM Subject: [delphi-br] Enviar mensagem entre funcionarios dentro da empresa(com anexo) Alguém conhece um componente com o qual eu possa enviar uma mensagem intranet com arquivo anexo de um setor da empresa para outro? Sei apenas enviar mensagem pelo Serviço de Mensagem do Windows (NetAPI.dll), mas não sei como anexar arquivo, nem se isso é possivel. Esse serviço precisa ficar dentro do meu aplicativo. Mani [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2485 (20070826) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] TreeView
Caro Davi, Em uma tabela geralmente existe o código e descrição, se vou usar o TreeView para mostrar e recupara dados, eu preciso da chave, que para meu conceito deve ser armazenado no TreeView, para quando eu estive selecionado nele, poder recuperar a minha chave. E como eu poderia fazer isso ??? Só que no TreeView eu não queria mostrar a chave, somente a descrição Grato []'s Satoy On 8/24/07, Davi Eduardo Borges Wall [EMAIL PROTECTED] wrote: Cara, eu nem sabia que existia algum tipo de índice. Eu sempre utilizei TreeView carregada dinamicamente e para salvar dados em um nó eu uso Node.Data Será esse o seu querido índice? De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Satoy Matsuoka Enviada em: sexta-feira, 24 de agosto de 2007 17:38 Para: delphi-br Assunto: [delphi-br] TreeView Bom dia pessoal, Com o componente TreeView, em tempo de desenvolvimento eu consigo colocar um Texto e um Indice ( Um texto e um valor). Em tempo de execução eu não consigo ... ??? (ou não sei como) Pois utilizo TreeView.itens.add( objeto, texto) ou addfirst ou addchild Não vejo ou não sei como colocar um índice !!! Como poderia fazer isso ??? Grato []'s Satoy [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] WebCam Delphi
Olá Delphianos. Bom dia/tarde, Alguém sabe direcionar-me para um componente ou código que me permita usar uma webcam para dispará-la quando necessário. Gostaria de saber se isto é dependente do fabricante da webcam ou não, e outros detalhes necessários. Se alguém tiver um componente, pode me enviar em pvt Uso Delphi 7 Enterprise emails: [EMAIL PROTECTED] Abço. Omar M. Haddad Analista de Sistemas Flickr agora em português. Você clica, todo mundo vê. http://www.flickr.com.br/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] WebCam Delphi
Olá Delphianos. Bom dia/tarde, Alguém sabe direcionar-me para um componente ou código que me permita usar uma webcam para dispará-la quando necessário. Gostaria de saber se isto é dependente do fabricante da webcam ou não, e outros detalhes necessários. Se alguém tiver um componente, pode me enviar em pvt Uso Delphi 7 Enterprise emails: [EMAIL PROTECTED] Abço. Att. Omar M. Haddad Analista de Sistemas Flickr agora em português. Você clica, todo mundo vê. http://www.flickr.com.br/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] WebService (Urgente)!!!!
Olá Pessoal, Estou precisando muito da ajuda do grupo, pois estou com uma certa urgência em utilizar um webservice aqui na empresa. Quando importo o wsdl e tento executa-lo em meu projeto dá um monte de erros na unit que foi gerada. Pelo que vi os erros são com relação ao tipos que não estão sendo reconhecidos. Analisando a unit vi que tem um bloco assim: // ** ** // // The following types, referred to in the WSDL document are not being represented // in this file. They are either [EMAIL PROTECTED] of other types represented or were referred // to but never[!] declared in the document. The types from the latter category // typically map to predefined/known XML or Borland types; however, they could also // indicate incorrect WSDL documents that failed to declare or import a schema type. // ** ** // // !:string - http://www.w3.org/2001/XMLSchema; // !:ExchangeLogData - http://www.w3.org/2001/XMLSchema; // !:LIFNR - http://csn.com.br/xi/CSN/Transportation; // !:NAME1 - http://csn.com.br/xi/CSN/Transportation; // !:PLACACARRETA- http://csn.com.br/xi/CSN/Transportation; // !:PLACACAVALO - http://csn.com.br/xi/CSN/Transportation; // !:UFPLACACAVALO - http://csn.com.br/xi/CSN/Transportation; // !:PLACAVAGAO - http://csn.com.br/xi/CSN/Transportation; // !:PRONTUARIO - http://csn.com.br/xi/CSN/Transportation; // !:VEICULO - http://csn.com.br/xi/CSN/Transportation; // !:date- http://www.w3.org/2001/XMLSchema; // !:time- http://www.w3.org/2001/XMLSchema; // !:NFNUM - http://csn.com.br/xi/CSN/Transportation; // !:SERIES - http://csn.com.br/xi/CSN/Transportation; // !:CTRC- http://www.w3.org/2001/XMLSchema; Se eu estiver certo, na hora de importar esses tipos acimas não foram reconhecidos. Seria isso mesmo??? São justamente os tipos que estão faltando e que o delphi está reclamando... Como resolvo isso Poderiam me ajudar Desde já agredeço a ajuda de todos!!!
RES: [delphi-br] Re: Enviar mensagem entre funcionarios dentro da empresa(com anexo)
Bom dia Anderson Eu gostaria de receber esta DLL também Wandarlei Michelon Equipe MT-SAC [EMAIL PROTECTED] Fone: 55-41-3544-8711 Fax: 55-41-3544-8701 Tree Tools Informática Ltda. Qualidade e Competência a Seu Alcance http://www.treetools.com.br/ http://www.treetools.com.br De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Desenvolvimento (Anderson) Enviada em: segunda-feira, 27 de agosto de 2007 08:34 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Re: Enviar mensagem entre funcionarios dentro da empresa(com anexo) se todas as máquinas têm acesso à net, pq não colocar um cliente de email de verdade? eu criei uma dll q faz isso... olha q interessante: embuti ela nos meus sw... qdo um programa trava com um erro não conhecido ou tratável, ele dispara uma mensagem de email... eu direcionei pra cair no meu celular... dessa forma, qdo bem entender, basta chamar a função da dll... se isso resolver, me fala q mando a dll pra vc... and - Original Message - From: maniacapordelphi To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Monday, August 27, 2007 7:47 AM Subject: [delphi-br] Re: Enviar mensagem entre funcionarios dentro da empresa(com anexo) E como eu poderia fazer isso, adaptando no aplicativo que tenho que envia mensagem através do serviço de mensagem do windows (netapi.dll)? Poderia explicar melhor? Mani --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br , [EMAIL PROTECTED] escreveu Como vc disse de UM SETOR PARA OUTRO pré suponho que seja tudo dentro de uma unica empresa, e que com isso aja um servidor que tenha pelo menos um diretorio que todos compartilhem, bom na propria mensagem vc pode enviar uma TAG, ou varias, indicando que tem um arquivo anexo, bem, mas este arquivo não esta na mensagem e sim no servidor, com nome e ID tudo certim... quando ele quizer abrir o arquivo ele copia do servidor e abre... exemplo: msg bla ble bli blo blu /msg anexo arquivo.ext /anexo anexo arquivo.ext /anexo etc... Um exemplo rapido e pratico, agora claro podemos ver o outro modo também... Afinal cada caso é um caso. bjos... Luiz Escobar - Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/ASSEMBLER/MySQL/xBase SERVIDORES - IntraNetWare4.11, LINUX-RedHat9, Windows - Original Message - From: maniacapordelphi To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, August 24, 2007 2:45 PM Subject: [delphi-br] Enviar mensagem entre funcionarios dentro da empresa(com anexo) Alguém conhece um componente com o qual eu possa enviar uma mensagem intranet com arquivo anexo de um setor da empresa para outro? Sei apenas enviar mensagem pelo Serviço de Mensagem do Windows (NetAPI.dll), mas não sei como anexar arquivo, nem se isso é possivel. Esse serviço precisa ficar dentro do meu aplicativo. Mani [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2485 (20070826) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Re: Enviar mensagem entre funcionarios dentro da empresa(com anexo)
Olá Usar o Serviço de Mensagem do Windows (NetAPI.dll), me permite enviar mensagens para outras estações da rede ou não Abço. Omar M. Haddad Analista de Sistemas - Mensagem original De: Desenvolvimento (Anderson) [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 27 de Agosto de 2007 7:34:22 Assunto: Re: [delphi-br] Re: Enviar mensagem entre funcionarios dentro da empresa(com anexo) se todas as máquinas têm acesso à net, pq não colocar um cliente de email de verdade? eu criei uma dll q faz isso... olha q interessante: embuti ela nos meus sw... qdo um programa trava com um erro não conhecido ou tratável, ele dispara uma mensagem de email... eu direcionei pra cair no meu celular... dessa forma, qdo bem entender, basta chamar a função da dll... se isso resolver, me fala q mando a dll pra vc... and - Original Message - From: maniacapordelphi To: [EMAIL PROTECTED] os.com.br Sent: Monday, August 27, 2007 7:47 AM Subject: [delphi-br] Re: Enviar mensagem entre funcionarios dentro da empresa(com anexo) E como eu poderia fazer isso, adaptando no aplicativo que tenho que envia mensagem através do serviço de mensagem do windows (netapi.dll) ? Poderia explicar melhor? Mani --- Em [EMAIL PROTECTED] os.com.br, [EMAIL PROTECTED] escreveu Como vc disse de UM SETOR PARA OUTRO pré suponho que seja tudo dentro de uma unica empresa, e que com isso aja um servidor que tenha pelo menos um diretorio que todos compartilhem, bom na propria mensagem vc pode enviar uma TAG, ou varias, indicando que tem um arquivo anexo, bem, mas este arquivo não esta na mensagem e sim no servidor, com nome e ID tudo certim... quando ele quizer abrir o arquivo ele copia do servidor e abre... exemplo: msg bla ble bli blo blu /msg anexo arquivo.ext /anexo anexo arquivo.ext /anexo etc... Um exemplo rapido e pratico, agora claro podemos ver o outro modo também... Afinal cada caso é um caso. bjos... Luiz Escobar - Analista/Desenvolve dor: WEB - HTML/JavaScript/ PHP/MySQL WINDOWS - Delphi/ASSEMBLER/ MySQL/xBase SERVIDORES - IntraNetWare4. 11, LINUX-RedHat9, Windows - Original Message - From: maniacapordelphi To: [EMAIL PROTECTED] os.com.br Sent: Friday, August 24, 2007 2:45 PM Subject: [delphi-br] Enviar mensagem entre funcionarios dentro da empresa(com anexo) Alguém conhece um componente com o qual eu possa enviar uma mensagem intranet com arquivo anexo de um setor da empresa para outro? Sei apenas enviar mensagem pelo Serviço de Mensagem do Windows (NetAPI.dll) , mas não sei como anexar arquivo, nem se isso é possivel. Esse serviço precisa ficar dentro do meu aplicativo. Mani [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2485 (20070826) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset. com.br [As partes desta mensagem que não continham texto foram removidas] !-- #ygrp-mkp{ border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;} #ygrp-mkp hr{ border:1px solid #d8d8d8;} #ygrp-mkp #hd{ color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;} #ygrp-mkp #ads{ margin-bottom:10px;} #ygrp-mkp .ad{ padding:0 0;} #ygrp-mkp .ad a{ color:#ff;text-decoration:none;} -- !-- #ygrp-sponsor #ygrp-lc{ font-family:Arial;} #ygrp-sponsor #ygrp-lc #hd{ margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;} #ygrp-sponsor #ygrp-lc .ad{ margin-bottom:10px;padding:0 0;} -- !-- #ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;} #ygrp-mlmsg table {font-size:inherit;font:100%;} #ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean, sans-serif;} #ygrp-mlmsg pre, code {font:115% monospace;} #ygrp-mlmsg * {line-height:1.22em;} #ygrp-text{ font-family:Georgia; } #ygrp-text p{ margin:0 0 1em 0;} #ygrp-tpmsgs{ font-family:Arial; clear:both;} #ygrp-vitnav{ padding-top:10px;font-family:Verdana;font-size:77%;margin:0;} #ygrp-vitnav a{ padding:0 1px;} #ygrp-actbar{ clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;} #ygrp-actbar .left{ float:left;white-space:nowrap;} .bld{font-weight:bold;} #ygrp-grft{ font-family:Verdana;font-size:77%;padding:15px 0;} #ygrp-ft{ font-family:verdana;font-size:77%;border-top:1px solid #666; padding:5px 0; } #ygrp-mlmsg #logo{ padding-bottom:10px;} #ygrp-vital{ background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;} #ygrp-vital #vithd{ font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;} #ygrp-vital ul{ padding:0;margin:2px 0;} #ygrp-vital ul li{ list-style-type:none;clear:both;border:1px solid #e0ecee; }
RES: [delphi-br] Re: Enviar mensagem entre funcionarios dentro da empresa(com anexo)
Vc direciona o erro para o seu celular? Como vc faz isso? De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Desenvolvimento (Anderson) Enviada em: segunda-feira, 27 de agosto de 2007 08:34 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Re: Enviar mensagem entre funcionarios dentro da empresa(com anexo) se todas as máquinas têm acesso à net, pq não colocar um cliente de email de verdade? eu criei uma dll q faz isso... olha q interessante: embuti ela nos meus sw... qdo um programa trava com um erro não conhecido ou tratável, ele dispara uma mensagem de email... eu direcionei pra cair no meu celular... dessa forma, qdo bem entender, basta chamar a função da dll... se isso resolver, me fala q mando a dll pra vc... and - Original Message - From: maniacapordelphi To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Monday, August 27, 2007 7:47 AM Subject: [delphi-br] Re: Enviar mensagem entre funcionarios dentro da empresa(com anexo) E como eu poderia fazer isso, adaptando no aplicativo que tenho que envia mensagem através do serviço de mensagem do windows (netapi.dll)? Poderia explicar melhor? Mani --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br , [EMAIL PROTECTED] escreveu Como vc disse de UM SETOR PARA OUTRO pré suponho que seja tudo dentro de uma unica empresa, e que com isso aja um servidor que tenha pelo menos um diretorio que todos compartilhem, bom na propria mensagem vc pode enviar uma TAG, ou varias, indicando que tem um arquivo anexo, bem, mas este arquivo não esta na mensagem e sim no servidor, com nome e ID tudo certim... quando ele quizer abrir o arquivo ele copia do servidor e abre... exemplo: msg bla ble bli blo blu /msg anexo arquivo.ext /anexo anexo arquivo.ext /anexo etc... Um exemplo rapido e pratico, agora claro podemos ver o outro modo também... Afinal cada caso é um caso. bjos... Luiz Escobar - Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/ASSEMBLER/MySQL/xBase SERVIDORES - IntraNetWare4.11, LINUX-RedHat9, Windows - Original Message - From: maniacapordelphi To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, August 24, 2007 2:45 PM Subject: [delphi-br] Enviar mensagem entre funcionarios dentro da empresa(com anexo) Alguém conhece um componente com o qual eu possa enviar uma mensagem intranet com arquivo anexo de um setor da empresa para outro? Sei apenas enviar mensagem pelo Serviço de Mensagem do Windows (NetAPI.dll), mas não sei como anexar arquivo, nem se isso é possivel. Esse serviço precisa ficar dentro do meu aplicativo. Mani [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2485 (20070826) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2483 (20070824) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] INDY
quando uso a rotina abaixo dá o seguinte erro: [EMAIL PROTECTED]: Recipient address rejected: Access denied o que pode ser ? var smtp : TIdSMTP ; pop : TIDPop3; Mensagem : TIdMessage ; begin smtp := TIdSMTP.Create( Nil ); Pop := TIdPOP3.Create(Nil); Mensagem := TIdMessage.Create( Nil ); pop.Host := 'pop3.uol.com.br'; pop.Username := 'alcistemas'; pop.Password := 'senha' ; pop.Port := 110; pop.Connect() ; pop.Disconnect; // já tentei desconectar somente depois e também não deu certo smtp.Host := 'smtps.uol.com.br'; smtp.Username := 'alcistemas'; smtp.Password := 'senha' ; smtp.Port := 25; smtp.AuthenticationType := atLogin; smtp.Connect() ; mensagem.From.Name := '[EMAIL PROTECTED]'; mensagem.Recipients.EMailAddresses := '[EMAIL PROTECTED]'; mensagem.Subject := 'TESTE DE EMAIL...'; smtp.Send( mensagem ); showmessage('mensagem enviada'); Alcione Guimarães e-mail: [EMAIL PROTECTED] Cel: 11-9515-8707 SIP VOIP: 3301040 SKYPE: alcistemas msn: [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] Internal Virus Database is out-of-date. Checked by AVG Free Edition. Version: 7.5.484 / Virus Database: 269.12.0/959 - Release Date: 17/8/2007 17:43 [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Re: Enviar mensagem entre funcionarios dentro da empresa(com anexo)
Eduardo, Algumas operadoras trabalham com E-Mail direcionado para o celular. A Telemig Celular mesmo é uma. Você habilita sua linha para o pacote iTelemigCelular e pode mandar E-Mail diretamente do seu outlook para o aparelho DESDE QUE A MENSAGEM SEJA TEXTO SEM FORMATAÇÃO E PEQUENA. Ou voce pode usar o SMS também. Mas lembrando que o funcionamento deste recurso está diretamente ligado ao seu aparelho e a sua linha telefonica estarem habilitadas para acessarem a internet ou um serviço de mensagens SMS. Aí o resto você já sabe como faz né. []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] Fone: (31) 3389-8217 Fax: (31) 3389-8215 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Eduardo Silva Enviada em: sábado, 25 de agosto de 2007 03:16 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Re: Enviar mensagem entre funcionarios dentro da empresa(com anexo) Vc direciona o erro para o seu celular? Como vc faz isso? De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Desenvolvimento (Anderson) Enviada em: segunda-feira, 27 de agosto de 2007 08:34 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Re: Enviar mensagem entre funcionarios dentro da empresa(com anexo) se todas as máquinas têm acesso à net, pq não colocar um cliente de email de verdade? eu criei uma dll q faz isso... olha q interessante: embuti ela nos meus sw... qdo um programa trava com um erro não conhecido ou tratável, ele dispara uma mensagem de email... eu direcionei pra cair no meu celular... dessa forma, qdo bem entender, basta chamar a função da dll... se isso resolver, me fala q mando a dll pra vc... and - Original Message - From: maniacapordelphi To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Monday, August 27, 2007 7:47 AM Subject: [delphi-br] Re: Enviar mensagem entre funcionarios dentro da empresa(com anexo) E como eu poderia fazer isso, adaptando no aplicativo que tenho que envia mensagem através do serviço de mensagem do windows (netapi.dll)? Poderia explicar melhor? Mani --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br , [EMAIL PROTECTED] escreveu Como vc disse de UM SETOR PARA OUTRO pré suponho que seja tudo dentro de uma unica empresa, e que com isso aja um servidor que tenha pelo menos um diretorio que todos compartilhem, bom na propria mensagem vc pode enviar uma TAG, ou varias, indicando que tem um arquivo anexo, bem, mas este arquivo não esta na mensagem e sim no servidor, com nome e ID tudo certim... quando ele quizer abrir o arquivo ele copia do servidor e abre... exemplo: msg bla ble bli blo blu /msg anexo arquivo.ext /anexo anexo arquivo.ext /anexo etc... Um exemplo rapido e pratico, agora claro podemos ver o outro modo também... Afinal cada caso é um caso. bjos... Luiz Escobar - Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/ASSEMBLER/MySQL/xBase SERVIDORES - IntraNetWare4.11, LINUX-RedHat9, Windows - Original Message - From: maniacapordelphi To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, August 24, 2007 2:45 PM Subject: [delphi-br] Enviar mensagem entre funcionarios dentro da empresa(com anexo) Alguém conhece um componente com o qual eu possa enviar uma mensagem intranet com arquivo anexo de um setor da empresa para outro? Sei apenas enviar mensagem pelo Serviço de Mensagem do Windows (NetAPI.dll), mas não sei como anexar arquivo, nem se isso é possivel. Esse serviço precisa ficar dentro do meu aplicativo. Mani [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2485 (20070826) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2483 (20070824) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos
RES: [delphi-br] TreeView
Cara jeito bem simples de fazer isso Type TDados = class Public Código: integer; Descrição: string End; Procedure qualquercoisa; Var Node: TNode; Dado: TDados; Begin Node := TreeView.Items.Add(nil, 'descricao do node'); Dado := TDados.Create; Node.data := Pointer(Dado); // seu dado está salvo .. End; De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Satoy Matsuoka Enviada em: segunda-feira, 27 de agosto de 2007 08:45 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] TreeView Caro Davi, Em uma tabela geralmente existe o código e descrição, se vou usar o TreeView para mostrar e recupara dados, eu preciso da chave, que para meu conceito deve ser armazenado no TreeView, para quando eu estive selecionado nele, poder recuperar a minha chave. E como eu poderia fazer isso ??? Só que no TreeView eu não queria mostrar a chave, somente a descrição Grato []'s Satoy On 8/24/07, Davi Eduardo Borges Wall [EMAIL PROTECTED] mailto:davi.wall%40mult.com.br wrote: Cara, eu nem sabia que existia algum tipo de índice. Eu sempre utilizei TreeView carregada dinamicamente e para salvar dados em um nó eu uso Node.Data Será esse o seu querido índice? De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Satoy Matsuoka Enviada em: sexta-feira, 24 de agosto de 2007 17:38 Para: delphi-br Assunto: [delphi-br] TreeView Bom dia pessoal, Com o componente TreeView, em tempo de desenvolvimento eu consigo colocar um Texto e um Indice ( Um texto e um valor). Em tempo de execução eu não consigo ... ??? (ou não sei como) Pois utilizo TreeView.itens.add( objeto, texto) ou addfirst ou addchild Não vejo ou não sei como colocar um índice !!! Como poderia fazer isso ??? Grato []'s Satoy [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Enviar mensagem entre funcionarios dentro da empresa(com anexo)
Na verdade, não são todas as máquinas que terão acesso à internet. O que preciso mesmo é de algo intranet. Mas se você puder me enviar a dll resolve parte de meu problema. Creio que no Delphi deva haver algum componente que faça o que eu preciso, mas Preciso do seguinte: um aplicativo que envia uma mensagem (digita pelo usuário) para outro micro da rede. Isso eu faço. Só que agora preciso enviar um arquivo anexo também. Aí que o bicho pega. Mani --- Em delphi-br@yahoogrupos.com.br, Desenvolvimento \(Anderson\) [EMAIL PROTECTED] escreveu se todas as máquinas têm acesso à net, pq não colocar um cliente de email de verdade? eu criei uma dll q faz isso... olha q interessante: embuti ela nos meus sw... qdo um programa trava com um erro não conhecido ou tratável, ele dispara uma mensagem de email... eu direcionei pra cair no meu celular... dessa forma, qdo bem entender, basta chamar a função da dll... se isso resolver, me fala q mando a dll pra vc... and - Original Message - From: maniacapordelphi To: delphi-br@yahoogrupos.com.br Sent: Monday, August 27, 2007 7:47 AM Subject: [delphi-br] Re: Enviar mensagem entre funcionarios dentro da empresa(com anexo) E como eu poderia fazer isso, adaptando no aplicativo que tenho que envia mensagem através do serviço de mensagem do windows (netapi.dll)? Poderia explicar melhor? Mani --- Em delphi-br@yahoogrupos.com.br, escobar@ escreveu Como vc disse de UM SETOR PARA OUTRO pré suponho que seja tudo dentro de uma unica empresa, e que com isso aja um servidor que tenha pelo menos um diretorio que todos compartilhem, bom na propria mensagem vc pode enviar uma TAG, ou varias, indicando que tem um arquivo anexo, bem, mas este arquivo não esta na mensagem e sim no servidor, com nome e ID tudo certim... quando ele quizer abrir o arquivo ele copia do servidor e abre... exemplo: msg bla ble bli blo blu /msg anexo arquivo.ext /anexo anexo arquivo.ext /anexo etc... Um exemplo rapido e pratico, agora claro podemos ver o outro modo também... Afinal cada caso é um caso. bjos... Luiz Escobar - Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/ASSEMBLER/MySQL/xBase SERVIDORES - IntraNetWare4.11, LINUX-RedHat9, Windows - Original Message - From: maniacapordelphi To: delphi-br@yahoogrupos.com.br Sent: Friday, August 24, 2007 2:45 PM Subject: [delphi-br] Enviar mensagem entre funcionarios dentro da empresa(com anexo) Alguém conhece um componente com o qual eu possa enviar uma mensagem intranet com arquivo anexo de um setor da empresa para outro? Sei apenas enviar mensagem pelo Serviço de Mensagem do Windows (NetAPI.dll), mas não sei como anexar arquivo, nem se isso é possivel. Esse serviço precisa ficar dentro do meu aplicativo. Mani [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2485 (20070826) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Re: Enviar mensagem entre funcionarios dentro da empresa(com anexo)
Vode pode usar o ICQ CORP que ele faz isso, do que vc tentar colocar na sua aplicacao, pois imagine o quanto de banda vc ira pegar para a sua aplicacao, alem do mais, como vc ira saber se o usuario vai estar la para receber, pois ele (o usuario destino) pode estar so logado, ai vc tera que controlar TimeOut, imagine tambem se o usuario mandar um arquivo de 100 MB a coneccao da sua intranet aguenta ? Alem do fato de vc ter que controlar o envio e a continuacao do trabalho do usuario, ou vc ira parar o processamento do usuario para o envio do arquivo ? Reveja melhor esta Melhoria que vc quer fazer no seu sistema. Na minha opiniao e um capricho desnecessario, pois exitem aplicativos que gerenciam melhor como MSN (que vc pode colocar interno se vc tiver o EXCHANGE) e o proprio ICQ (versao corporativa, que controla conforme os seus usuarios de rede, para isso vc tem que ter dominio). Esta e minha opinao. Sd's Dias _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de maniacapordelphi Enviada em: segunda-feira, 27 de agosto de 2007 10:49 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: Enviar mensagem entre funcionarios dentro da empresa(com anexo) Na verdade, não são todas as máquinas que terão acesso à internet. O que preciso mesmo é de algo intranet. Mas se você puder me enviar a dll resolve parte de meu problema. Creio que no Delphi deva haver algum componente que faça o que eu preciso, mas Preciso do seguinte: um aplicativo que envia uma mensagem (digita pelo usuário) para outro micro da rede. Isso eu faço. Só que agora preciso enviar um arquivo anexo também. Aí que o bicho pega. Mani --- Em [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br, Desenvolvimento \(Anderson\) [EMAIL PROTECTED] escreveu se todas as máquinas têm acesso à net, pq não colocar um cliente de email de verdade? eu criei uma dll q faz isso... olha q interessante: embuti ela nos meus sw... qdo um programa trava com um erro não conhecido ou tratável, ele dispara uma mensagem de email... eu direcionei pra cair no meu celular... dessa forma, qdo bem entender, basta chamar a função da dll... se isso resolver, me fala q mando a dll pra vc... and - Original Message - From: maniacapordelphi To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Sent: Monday, August 27, 2007 7:47 AM Subject: [delphi-br] Re: Enviar mensagem entre funcionarios dentro da empresa(com anexo) E como eu poderia fazer isso, adaptando no aplicativo que tenho que envia mensagem através do serviço de mensagem do windows (netapi.dll)? Poderia explicar melhor? Mani --- Em [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br, escobar@ escreveu Como vc disse de UM SETOR PARA OUTRO pré suponho que seja tudo dentro de uma unica empresa, e que com isso aja um servidor que tenha pelo menos um diretorio que todos compartilhem, bom na propria mensagem vc pode enviar uma TAG, ou varias, indicando que tem um arquivo anexo, bem, mas este arquivo não esta na mensagem e sim no servidor, com nome e ID tudo certim... quando ele quizer abrir o arquivo ele copia do servidor e abre... exemplo: msg bla ble bli blo blu /msg anexo arquivo.ext /anexo anexo arquivo.ext /anexo etc... Um exemplo rapido e pratico, agora claro podemos ver o outro modo também... Afinal cada caso é um caso. bjos... Luiz Escobar - Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/ASSEMBLER/MySQL/xBase SERVIDORES - IntraNetWare4.11, LINUX-RedHat9, Windows - Original Message - From: maniacapordelphi To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Sent: Friday, August 24, 2007 2:45 PM Subject: [delphi-br] Enviar mensagem entre funcionarios dentro da empresa(com anexo) Alguém conhece um componente com o qual eu possa enviar uma mensagem intranet com arquivo anexo de um setor da empresa para outro? Sei apenas enviar mensagem pelo Serviço de Mensagem do Windows (NetAPI.dll), mas não sei como anexar arquivo, nem se isso é possivel. Esse serviço precisa ficar dentro do meu aplicativo. Mani [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2485 (20070826) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset. http://www.eset.com.br com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Delphi For PHP + Oracle (Dúvida)
Olá galera... Estou começando a dar uma olhada no Delphi For PHP. Tenho uma base oracle 9i no servidor. Fiz a conexao com um Database, um Table e um DataSource e liguei no DBGrid pra testar. Desabilitei a extension php_oracle.dll no phi.ini.template e copiei o arquivo ntwdblib.dll pro c:\windows\system32 Coloquei um button dando um $this-Database1-Connected = true e $this-Table1-Active = true Quando eu rodo a aplicação aparece o button e o grid vazio. até aí está OK. Mas quando eu clico no botao ele recarrega a pagina mas traz ela em branco.. sem mensagem nenhuma, nem os componentes na tela. Alguém sabe o que pode ser? []'s Adriano [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] dbxconnections.ini
olá eu acho q fiz cáca... aqui na empresa, é utilizado o dbxconnections.ini, e eu entrei na empresa, e nunca mexi com esse arquivo, ja tinha tudo funcional, pois o outro programador era mais experiente q eu ae por um acaso deu um problema no meu usuário windows e tive q recriar outro, e perdi todo meu perfil, e talz os locais do delphi buscar as biblieotecas e talz, ae peguei todos os arquivos q eu deu falta na hora de compilar o projeto e copiei para dentro do bpl.. porém tinha um arquivo dbconnections.ini num diretório chamado c:\flexis e ele pegava desse diretório, e eu ja coloquei # para setar outro bd e naum muda...tem alguma configuração desse tipo?!
RES: [delphi-br] Procurando Serviço
Clovis, aonde você mora ? Madsom. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de [EMAIL PROTECTED] Enviada em: domingo, 26 de agosto de 2007 00:30 Para: [EMAIL PROTECTED] Assunto: [delphi-br] Procurando Serviço Boa noite Pessoal Saudações Clovis Machado Ferreira Nasc: 21/09/1942 Formação Prof: Engenheiro Agrono o - ESALQ 1971 Analise de Sistemas - Autodidata Informática - Basic - DBase - Clipper Summer 87 - Delphi 7 - InterBase/ FireBird Local de Trabalho - Todo o Brasil Tipo de Contrato - CLT, Autonomo, INicio - Imediatamente Obrigado Clovis Clóvis Machado Ferreira Que o GADU nos Ampare Msn-[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.484 / Virus Database: 269.12.9/975 - Release Date: 26/08/2007 21:34 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Procurando Serviço
Moro em Dourado, estado de São Paulo, mas aceito em qualquer lugar do Brasil ou fora Clóvis Machado Ferreira Que o GADU nos Ampare Msn-[EMAIL PROTECTED] - Original Message - From: Madsom Silva To: delphi-br@yahoogrupos.com.br Sent: Monday, August 27, 2007 12:04 PM Subject: RES: [delphi-br] Procurando Serviço Clovis, aonde você mora ? Madsom. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de [EMAIL PROTECTED] Enviada em: domingo, 26 de agosto de 2007 00:30 Para: [EMAIL PROTECTED] Assunto: [delphi-br] Procurando Serviço Boa noite Pessoal Saudações Clovis Machado Ferreira Nasc: 21/09/1942 Formação Prof: Engenheiro Agrono o - ESALQ 1971 Analise de Sistemas - Autodidata Informática - Basic - DBase - Clipper Summer 87 - Delphi 7 - InterBase/ FireBird Local de Trabalho - Todo o Brasil Tipo de Contrato - CLT, Autonomo, INicio - Imediatamente Obrigado Clovis Clóvis Machado Ferreira Que o GADU nos Ampare Msn-[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.484 / Virus Database: 269.12.9/975 - Release Date: 26/08/2007 21:34 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Enviar mensagem entre funcionarios dentro da empresa(com anexo)
pq então vc não cria um servidor de emails interno na rede assim vc cria os emails internos e pode enviar pelo outlook mesmo - Original Message - From: maniacapordelphi To: delphi-br@yahoogrupos.com.br Sent: Monday, August 27, 2007 10:48 AM Subject: [delphi-br] Re: Enviar mensagem entre funcionarios dentro da empresa(com anexo) Na verdade, não são todas as máquinas que terão acesso à internet. O que preciso mesmo é de algo intranet. Mas se você puder me enviar a dll resolve parte de meu problema. Creio que no Delphi deva haver algum componente que faça o que eu preciso, mas Preciso do seguinte: um aplicativo que envia uma mensagem (digita pelo usuário) para outro micro da rede. Isso eu faço. Só que agora preciso enviar um arquivo anexo também. Aí que o bicho pega. Mani --- Em delphi-br@yahoogrupos.com.br, Desenvolvimento \(Anderson\) [EMAIL PROTECTED] escreveu se todas as máquinas têm acesso à net, pq não colocar um cliente de email de verdade? eu criei uma dll q faz isso... olha q interessante: embuti ela nos meus sw... qdo um programa trava com um erro não conhecido ou tratável, ele dispara uma mensagem de email... eu direcionei pra cair no meu celular... dessa forma, qdo bem entender, basta chamar a função da dll... se isso resolver, me fala q mando a dll pra vc... and - Original Message - From: maniacapordelphi To: delphi-br@yahoogrupos.com.br Sent: Monday, August 27, 2007 7:47 AM Subject: [delphi-br] Re: Enviar mensagem entre funcionarios dentro da empresa(com anexo) E como eu poderia fazer isso, adaptando no aplicativo que tenho que envia mensagem através do serviço de mensagem do windows (netapi.dll)? Poderia explicar melhor? Mani --- Em delphi-br@yahoogrupos.com.br, escobar@ escreveu Como vc disse de UM SETOR PARA OUTRO pré suponho que seja tudo dentro de uma unica empresa, e que com isso aja um servidor que tenha pelo menos um diretorio que todos compartilhem, bom na propria mensagem vc pode enviar uma TAG, ou varias, indicando que tem um arquivo anexo, bem, mas este arquivo não esta na mensagem e sim no servidor, com nome e ID tudo certim... quando ele quizer abrir o arquivo ele copia do servidor e abre... exemplo: msg bla ble bli blo blu /msg anexo arquivo.ext /anexo anexo arquivo.ext /anexo etc... Um exemplo rapido e pratico, agora claro podemos ver o outro modo também... Afinal cada caso é um caso. bjos... Luiz Escobar - Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/ASSEMBLER/MySQL/xBase SERVIDORES - IntraNetWare4.11, LINUX-RedHat9, Windows - Original Message - From: maniacapordelphi To: delphi-br@yahoogrupos.com.br Sent: Friday, August 24, 2007 2:45 PM Subject: [delphi-br] Enviar mensagem entre funcionarios dentro da empresa(com anexo) Alguém conhece um componente com o qual eu possa enviar uma mensagem intranet com arquivo anexo de um setor da empresa para outro? Sei apenas enviar mensagem pelo Serviço de Mensagem do Windows (NetAPI.dll), mas não sei como anexar arquivo, nem se isso é possivel. Esse serviço precisa ficar dentro do meu aplicativo. Mani [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2485 (20070826) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2486 (20070827) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Procurando Serviço
Isso não pode ser sério. Em 27/08/07, [EMAIL PROTECTED] [EMAIL PROTECTED] escreveu: Moro em Dourado, estado de São Paulo, mas aceito em qualquer lugar do Brasil ou fora Clóvis Machado Ferreira Que o GADU nos Ampare Msn-[EMAIL PROTECTED] clovito.ferreira%40hotmail.com - Original Message - From: Madsom Silva To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Monday, August 27, 2007 12:04 PM Subject: RES: [delphi-br] Procurando Serviço Clovis, aonde você mora ? Madsom. -Mensagem original- De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br]Em nome de [EMAIL PROTECTED] clovis.machado%40uol.com.br Enviada em: domingo, 26 de agosto de 2007 00:30 Para: [EMAIL PROTECTED] lista-delphi%40yahoogrupos.com.br Assunto: [delphi-br] Procurando Serviço Boa noite Pessoal Saudações Clovis Machado Ferreira Nasc: 21/09/1942 Formação Prof: Engenheiro Agrono o - ESALQ 1971 Analise de Sistemas - Autodidata Informática - Basic - DBase - Clipper Summer 87 - Delphi 7 - InterBase/ FireBird Local de Trabalho - Todo o Brasil Tipo de Contrato - CLT, Autonomo, INicio - Imediatamente Obrigado Clovis Clóvis Machado Ferreira Que o GADU nos Ampare Msn-[EMAIL PROTECTED] clovito.ferreira%40hotmail.com [As partes desta mensagem que não continham texto foram removidas] No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.484 / Virus Database: 269.12.9/975 - Release Date: 26/08/2007 21:34 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Anderson Caco Marques Ferraz 2.º Período de Engenharia da Computação - UEFS A player who makes the team great is more valuable than a great player. Losing yourself in the group, for the good of the group, that's teamwork. (John Wooden) [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Testar Boleto
Olá galera! Existe algum software que podemos ler o codigo de barra ou a linha digitavel de uma boleto e ele verifica se é um boleto valido ou não. Ou melhor ainda, se existe um software que ao passar a linha digitavel ou codigo de barra ele mostra na tela os dados como agencia, codigo, valor boleto, data vencimento... Desde já antecipo meus agradecimentos! Anderson Flickr agora em português. Você clica, todo mundo vê. http://www.flickr.com.br/
[delphi-br] Rolar um RichEdit para a parte inferior
Como eu faço para rolar um RichEdit para a parte inferior?
Re: [delphi-br] Testar Boleto
Anderson, Acredito que basta vc analisar a documentação disponibilzada pelo seu banco ao até esmo pela Febranan para que mates esta charada. /www.*febraban*.org.br http://www.febraban.org.br/Arquivo/Servicos/Downloads/download_lista.asp?id_comissao=4 / Não tem nada de muito dificil não, mas acredito que existam algumas variações de acordo com o banco, no que concerne a calculo de digito verificador, etc.. Mas os dados gerais vc consegue ler sem maiores problemas. [ ]´s Moacir Anderson Furtilho escreveu: Olá galera! Existe algum software que podemos ler o codigo de barra ou a linha digitavel de uma boleto e ele verifica se é um boleto valido ou não. Ou melhor ainda, se existe um software que ao passar a linha digitavel ou codigo de barra ele mostra na tela os dados como agencia, codigo, valor boleto, data vencimento... Desde já antecipo meus agradecimentos! Anderson Flickr agora em português. Você clica, todo mundo vê. http://www.flickr.com.br/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Procurando Serviço
Porque não pode ser sério Anderson? * Thiago Filiano * Anderson Marques Ferraz escreveu: Isso não pode ser sério. Em 27/08/07, [EMAIL PROTECTED] [EMAIL PROTECTED] escreveu: Moro em Dourado, estado de São Paulo, mas aceito em qualquer lugar do Brasil ou fora Clóvis Machado Ferreira Que o GADU nos Ampare Msn-[EMAIL PROTECTED] clovito.ferreira%40hotmail.com - Original Message - From: Madsom Silva To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Monday, August 27, 2007 12:04 PM Subject: RES: [delphi-br] Procurando Serviço Clovis, aonde você mora ? Madsom. -Mensagem original- De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br]Em nome de [EMAIL PROTECTED] clovis.machado%40uol.com.br Enviada em: domingo, 26 de agosto de 2007 00:30 Para: [EMAIL PROTECTED] lista-delphi%40yahoogrupos.com.br Assunto: [delphi-br] Procurando Serviço Boa noite Pessoal Saudações Clovis Machado Ferreira Nasc: 21/09/1942 Formação Prof: Engenheiro Agrono o - ESALQ 1971 Analise de Sistemas - Autodidata Informática - Basic - DBase - Clipper Summer 87 - Delphi 7 - InterBase/ FireBird Local de Trabalho - Todo o Brasil Tipo de Contrato - CLT, Autonomo, INicio - Imediatamente Obrigado Clovis Clóvis Machado Ferreira Que o GADU nos Ampare Msn-[EMAIL PROTECTED] clovito.ferreira%40hotmail.com [As partes desta mensagem que não continham texto foram removidas] No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.484 / Virus Database: 269.12.9/975 - Release Date: 26/08/2007 21:34 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: WebService (Urgente)!!!!
Boa Tarde amigos, será que ninguém pode me ajudar???
[delphi-br] Alterar as configurações Regionais e de Idiomas - Windows - Via Programa
Preciso alterar as configurações regionas e de idiomas do windows , via programa . Meu aplicativo vai fazer uma serie de tarefas, chamar outros programas, imprimir um relatorio, enviar dados pra um determinado arquivo, etc ... e dentre estas tarefas eu preciso mudar a configuração regional de idiomas do Windows ... mudar o simbolo decimal de numeros e valores ... troca-los para o padrão ingles ... Exemplo : 10.000,00 preciso alterar para 10,000.00 Sei que posso formata-los dentro do meu aplicativo ... mas o meu programa vai chamar um segundo programa que só roda corretamente com as configuraçoes regionais setadas pro ingles ... O que preciso fazer eh o seguinte : 1º - quando o programa for executado ele alterar as configuraçoes do windows pra forma do ingles ... isso precisa ser feito no windows 2º - O programa vai chamar outro aplicativo que vai fazer uma determinada tarefa ( neste ponto este aplicativo só roda no padrao ingles) 3º - o programa vai alterar novamente as configuraçoes regionas do windows para o padrão portugues ... Se alguem puder me dar pelo menos uma dica de onde procurar isso infelizmente não consegui achar no google e nem na lista ... (Isso seria feito via API do windows ?) alguma dica onde achar isso ? Fico muito grato Henri V. Alves
[delphi-br] Versao Demo
Boa tarde Pessoal, Gostaria de saber qual a melhor maneira de criar uma aplicação de demonstração. Por exemplo: Seria limitando via codigo a uma quantidade de registros inseridos em uma tabela de venda ou se existe algum instalador que já tenha algum tipo de controle. Eu estou usando D7 com banco de dados Firebird 1.5 e o instalador é o ISTool. Obrigado
Re: [delphi-br] Alterar as configurações Re gionais e de Idiomas - Windows - Via Prog rama
Use as constantes do Delphi: Isso é pra trazer procedure TForm1.Button1Click(Sender: TObject); begin //Separadores de decimais e de milhar respectivamente Edit1.Text := DecimalSeparator; Edit2.Text := ThousandSeparator; //Data Curta e Data Longa respectivamente Edit3.Text := ShortDateFormat; Edit4.Text := LongDateFormat; end; Pra gravar procedure TForm1.Button3Click(Sender: TObject); begin //Separadores de decimais e de milhar respectivamente DecimalSeparator := Edit7.Text; ThousandSeparator := Edit8.Text; //Data Curta e Data Longa respectivamente ShortDateFormat := Edit9.Text; LongDateFormat := Edit10.Text; end; As duas dicas acima são pra usar dentro do seu sistema. Não será alterado no Windows. Pra gravar no Windows use: //Data curta procedure TForm1.Button4Click(Sender: TObject); var vDataCurta : String; begin SetLength(vDataCurta,12); GetLocaleInfo(LOCALE_SYSTEM_DEFAULT,LOCALE_SSHORTDATE,PChar(vDataCurta),12); end; //Data longa procedure TForm1.Button22Click(Sender: TObject); begin SetLocaleInfo(LOCALE_SYSTEM_DEFAULT,LOCALE_SYSTEM_DEFAULT,Pchar(Edit5.Text)); end; //Decimal e milhar procedure TForm1.Button5Click(Sender: TObject); begin SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_STHOUSAND, SeuEdit.Text); SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_SDECIMAL, SeuEdit.Text); end; Da uma estudada legal em SetLocaleInfo e GetLocaleInfo. Abs -- Adriano Santos Desenvolvedor Delphi desde 1998. Professor e programador PHP. Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP. Colunista e Comissão Editorial da revista ClubeDelphi. http://www.delphitodelphi.blogspot.com henrihva respondeu: Preciso alterar as configurações regionas e de idiomas do windows , via programa . Meu aplicativo vai fazer uma serie de tarefas, chamar outros programas, imprimir um relatorio, enviar dados pra um determinado arquivo, etc ... e dentre estas tarefas eu preciso mudar a configuração regional de idiomas do Windows ... mudar o simbolo decimal de numeros e valores ... troca-los para o padrão ingles ... Exemplo : 10.000,00 preciso alterar para 10,000.00 Sei que posso formata-los dentro do meu aplicativo ... mas o meu programa vai chamar um segundo programa que só roda corretamente com as configuraçoes regionais setadas pro ingles ... O que preciso fazer eh o seguinte : 1º - quando o programa for executado ele alterar as configuraçoes do windows pra forma do ingles ... isso precisa ser feito no windows 2º - O programa vai chamar outro aplicativo que vai fazer uma determinada tarefa ( neste ponto este aplicativo só roda no padrao ingles) 3º - o programa vai alterar novamente as configuraçoes regionas do windows para o padrão portugues ... Se alguem puder me dar pelo menos uma dica de onde procurar isso infelizmente não consegui achar no google e nem na lista ... (Isso seria feito via API do windows ?) alguma dica onde achar isso ? Fico muito grato Henri V. Alves No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.484 / Virus Database: 269.12.9/975 - Release Date: 26/8/2007 21:34
Re: [delphi-br] Alterar as configurações Regionais e de Idiomas - Windows - Via Programa
Adriano valeu pela dica ... vou procurar por SetLocaleInfo e GetLocaleInfo e fazer os testes aqui ... Grato Henri Em 27/08/07, Adriano Santos [EMAIL PROTECTED] escreveu: Use as constantes do Delphi: Isso é pra trazer procedure TForm1.Button1Click(Sender: TObject); begin //Separadores de decimais e de milhar respectivamente Edit1.Text := DecimalSeparator; Edit2.Text := ThousandSeparator; //Data Curta e Data Longa respectivamente Edit3.Text := ShortDateFormat; Edit4.Text := LongDateFormat; end; Pra gravar procedure TForm1.Button3Click(Sender: TObject); begin //Separadores de decimais e de milhar respectivamente DecimalSeparator := Edit7.Text; ThousandSeparator := Edit8.Text; //Data Curta e Data Longa respectivamente ShortDateFormat := Edit9.Text; LongDateFormat := Edit10.Text; end; As duas dicas acima são pra usar dentro do seu sistema. Não será alterado no Windows. Pra gravar no Windows use: //Data curta procedure TForm1.Button4Click(Sender: TObject); var vDataCurta : String; begin SetLength(vDataCurta,12); GetLocaleInfo(LOCALE_SYSTEM_DEFAULT,LOCALE_SSHORTDATE,PChar(vDataCurta),12); end; //Data longa procedure TForm1.Button22Click(Sender: TObject); begin SetLocaleInfo(LOCALE_SYSTEM_DEFAULT,LOCALE_SYSTEM_DEFAULT,Pchar(Edit5.Text )); end; //Decimal e milhar procedure TForm1.Button5Click(Sender: TObject); begin SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_STHOUSAND, SeuEdit.Text); SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_SDECIMAL, SeuEdit.Text); end; Da uma estudada legal em SetLocaleInfo e GetLocaleInfo. Abs -- Adriano Santos Desenvolvedor Delphi desde 1998. Professor e programador PHP. Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP. Colunista e Comissão Editorial da revista ClubeDelphi. http://www.delphitodelphi.blogspot.com henrihva respondeu: Preciso alterar as configurações regionas e de idiomas do windows , via programa . Meu aplicativo vai fazer uma serie de tarefas, chamar outros programas, imprimir um relatorio, enviar dados pra um determinado arquivo, etc ... e dentre estas tarefas eu preciso mudar a configuração regional de idiomas do Windows ... mudar o simbolo decimal de numeros e valores ... troca-los para o padrão ingles ... Exemplo : 10.000,00 preciso alterar para 10,000.00 Sei que posso formata-los dentro do meu aplicativo ... mas o meu programa vai chamar um segundo programa que só roda corretamente com as configuraçoes regionais setadas pro ingles ... O que preciso fazer eh o seguinte : 1º - quando o programa for executado ele alterar as configuraçoes do windows pra forma do ingles ... isso precisa ser feito no windows 2º - O programa vai chamar outro aplicativo que vai fazer uma determinada tarefa ( neste ponto este aplicativo só roda no padrao ingles) 3º - o programa vai alterar novamente as configuraçoes regionas do windows para o padrão portugues ... Se alguem puder me dar pelo menos uma dica de onde procurar isso infelizmente não consegui achar no google e nem na lista ... (Isso seria feito via API do windows ?) alguma dica onde achar isso ? Fico muito grato Henri V. Alves -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.484 / Virus Database: 269.12.9/975 - Release Date: 26/8/2007 21:34 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] funcao hexadecimal para inteiro para acima de 7 digitos
Boa tarde pessoal, Estou com dificuldades em converter numeros hexadecimais grandes em decimais. todas as funcoes que peguei na net e que fiz quando tem mais de 7 digitos nao funciona, verifico se esta certo pela calculadora do windows. alguem pode me ajudar estou precisando muito dessa funcao exemplo de uma funcao que peguei aqui no grupo e que nao funcionou com o seguinte numero hexadecimal C5E57F15 o resultado que a funcao retorna e: -974815467 quando a conversao correta e: 3320151829 Um forte abraco a todos Eduardo function TForm1.HexToInt(const HexStr: string): longint; var iNdx: integer; cTmp: Char; begin Result := 0; for iNdx := 1 to Length(HexStr) do begin cTmp := HexStr[iNdx]; case cTmp of '0'..'9': Result := 16 * Result + (Ord(cTmp) - $30); 'A'..'F': Result := 16 * Result + (Ord(cTmp) - $37); 'a'..'f': Result := 16 * Result + (Ord(cTmp) - $57); else raise EConvertError.Create('Illegal character in hex string'); end; end; end;
Re: [delphi-br] funcao hexadecimal para inteiro para acima de 7 digitos
use a função strtoint64... assim: caption := inttostr(strtoint64('$C5E57F15')) - Original Message - From: alineri To: delphi-br@yahoogrupos.com.br Sent: Monday, August 27, 2007 5:35 PM Subject: [delphi-br] funcao hexadecimal para inteiro para acima de 7 digitos Boa tarde pessoal, Estou com dificuldades em converter numeros hexadecimais grandes em decimais. todas as funcoes que peguei na net e que fiz quando tem mais de 7 digitos nao funciona, verifico se esta certo pela calculadora do windows. alguem pode me ajudar estou precisando muito dessa funcao exemplo de uma funcao que peguei aqui no grupo e que nao funcionou com o seguinte numero hexadecimal C5E57F15 o resultado que a funcao retorna e: -974815467 quando a conversao correta e: 3320151829 Um forte abraco a todos Eduardo function TForm1.HexToInt(const HexStr: string): longint; var iNdx: integer; cTmp: Char; begin Result := 0; for iNdx := 1 to Length(HexStr) do begin cTmp := HexStr[iNdx]; case cTmp of '0'..'9': Result := 16 * Result + (Ord(cTmp) - $30); 'A'..'F': Result := 16 * Result + (Ord(cTmp) - $37); 'a'..'f': Result := 16 * Result + (Ord(cTmp) - $57); else raise EConvertError.Create('Illegal character in hex string'); end; end; end; __ Informação do NOD32 IMON 2486 (20070827) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Enviar mensagem entre funcionarios dentro da empresa(com anexo)
Concondo com o José... acho que vc (maniaca) estaria reinventando a roda, teria muito trabalho pra pouco resultado. Ao invés disso, poderia utilizar um dos softwares sugeridos por ele. Se for colocar um servidor de e-mail, com o Indy vc manda fácil fácil uma mensagem de email com anexo. att, Leandro - Original Message - From: Jose Carlos A Dias Filho To: delphi-br@yahoogrupos.com.br Sent: Monday, August 27, 2007 11:11 AM Subject: RES: [delphi-br] Re: Enviar mensagem entre funcionarios dentro da empresa(com anexo) Vode pode usar o ICQ CORP que ele faz isso, do que vc tentar colocar na sua aplicacao, pois imagine o quanto de banda vc ira pegar para a sua aplicacao, alem do mais, como vc ira saber se o usuario vai estar la para receber, pois ele (o usuario destino) pode estar so logado, ai vc tera que controlar TimeOut, imagine tambem se o usuario mandar um arquivo de 100 MB a coneccao da sua intranet aguenta ? Alem do fato de vc ter que controlar o envio e a continuacao do trabalho do usuario, ou vc ira parar o processamento do usuario para o envio do arquivo ? Reveja melhor esta Melhoria que vc quer fazer no seu sistema. Na minha opiniao e um capricho desnecessario, pois exitem aplicativos que gerenciam melhor como MSN (que vc pode colocar interno se vc tiver o EXCHANGE) e o proprio ICQ (versao corporativa, que controla conforme os seus usuarios de rede, para isso vc tem que ter dominio). Esta e minha opinao. Sd's Dias _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de maniacapordelphi Enviada em: segunda-feira, 27 de agosto de 2007 10:49 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: Enviar mensagem entre funcionarios dentro da empresa(com anexo) Na verdade, não são todas as máquinas que terão acesso à internet.. O que preciso mesmo é de algo intranet. Mas se você puder me enviar a dll resolve parte de meu problema. Creio que no Delphi deva haver algum componente que faça o que eu preciso, mas Preciso do seguinte: um aplicativo que envia uma mensagem (digita pelo usuário) para outro micro da rede. Isso eu faço. Só que agora preciso enviar um arquivo anexo também. Aí que o bicho pega. Mani --- Em [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com..br os.com.br, Desenvolvimento \(Anderson\) [EMAIL PROTECTED] escreveu se todas as máquinas têm acesso à net, pq não colocar um cliente de email de verdade? eu criei uma dll q faz isso... olha q interessante: embuti ela nos meus sw... qdo um programa trava com um erro não conhecido ou tratável, ele dispara uma mensagem de email... eu direcionei pra cair no meu celular... dessa forma, qdo bem entender, basta chamar a função da dll... se isso resolver, me fala q mando a dll pra vc... and - Original Message - From: maniacapordelphi To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Sent: Monday, August 27, 2007 7:47 AM Subject: [delphi-br] Re: Enviar mensagem entre funcionarios dentro da empresa(com anexo) E como eu poderia fazer isso, adaptando no aplicativo que tenho que envia mensagem através do serviço de mensagem do windows (netapi.dll)? Poderia explicar melhor? Mani --- Em [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br, escobar@ escreveu Como vc disse de UM SETOR PARA OUTRO pré suponho que seja tudo dentro de uma unica empresa, e que com isso aja um servidor que tenha pelo menos um diretorio que todos compartilhem, bom na propria mensagem vc pode enviar uma TAG, ou varias, indicando que tem um arquivo anexo, bem, mas este arquivo não esta na mensagem e sim no servidor, com nome e ID tudo certim... quando ele quizer abrir o arquivo ele copia do servidor e abre... exemplo: msg bla ble bli blo blu /msg anexo arquivo.ext /anexo anexo arquivo.ext /anexo etc... Um exemplo rapido e pratico, agora claro podemos ver o outro modo também... Afinal cada caso é um caso. bjos... Luiz Escobar - Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/ASSEMBLER/MySQL/xBase SERVIDORES - IntraNetWare4.11, LINUX-RedHat9, Windows - Original Message - From: maniacapordelphi To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Sent: Friday, August 24, 2007 2:45 PM Subject: [delphi-br] Enviar mensagem entre funcionarios dentro da empresa(com anexo) Alguém conhece um componente com o qual eu possa enviar uma mensagem intranet com arquivo anexo de um setor da empresa para outro? Sei apenas enviar mensagem pelo Serviço de Mensagem do Windows (NetAPI.dll), mas não sei como anexar arquivo, nem se isso é possivel. Esse serviço precisa ficar dentro do meu aplicativo.
RES: [delphi-br] Re: Enviar mensagem entre funcionarios dentro da empresa(com anexo)
Aqui na Telemont nós usamos o CIC (Client Intra Chat) que permite além de chat e mensagens rápidas, o envio de arquivos. Funciona dentro da rede mesmo e não necessita de Internet pra tal não. Veja mais detalhes em: www.intrachat.com.br []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] Fone: (31) 3389-8217 Fax: (31) 3389-8215 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de maniacapordelphi Enviada em: segunda-feira, 27 de agosto de 2007 10:49 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: Enviar mensagem entre funcionarios dentro da empresa(com anexo) Na verdade, não são todas as máquinas que terão acesso à internet. O que preciso mesmo é de algo intranet. Mas se você puder me enviar a dll resolve parte de meu problema. Creio que no Delphi deva haver algum componente que faça o que eu preciso, mas Preciso do seguinte: um aplicativo que envia uma mensagem (digita pelo usuário) para outro micro da rede. Isso eu faço. Só que agora preciso enviar um arquivo anexo também. Aí que o bicho pega. Mani --- Em delphi-br@yahoogrupos.com.br, Desenvolvimento \(Anderson\) [EMAIL PROTECTED] escreveu se todas as máquinas têm acesso à net, pq não colocar um cliente de email de verdade? eu criei uma dll q faz isso... olha q interessante: embuti ela nos meus sw... qdo um programa trava com um erro não conhecido ou tratável, ele dispara uma mensagem de email... eu direcionei pra cair no meu celular... dessa forma, qdo bem entender, basta chamar a função da dll... se isso resolver, me fala q mando a dll pra vc... and - Original Message - From: maniacapordelphi To: delphi-br@yahoogrupos.com.br Sent: Monday, August 27, 2007 7:47 AM Subject: [delphi-br] Re: Enviar mensagem entre funcionarios dentro da empresa(com anexo) E como eu poderia fazer isso, adaptando no aplicativo que tenho que envia mensagem através do serviço de mensagem do windows (netapi.dll)? Poderia explicar melhor? Mani --- Em delphi-br@yahoogrupos.com.br, escobar@ escreveu Como vc disse de UM SETOR PARA OUTRO pré suponho que seja tudo dentro de uma unica empresa, e que com isso aja um servidor que tenha pelo menos um diretorio que todos compartilhem, bom na propria mensagem vc pode enviar uma TAG, ou varias, indicando que tem um arquivo anexo, bem, mas este arquivo não esta na mensagem e sim no servidor, com nome e ID tudo certim... quando ele quizer abrir o arquivo ele copia do servidor e abre... exemplo: msg bla ble bli blo blu /msg anexo arquivo.ext /anexo anexo arquivo.ext /anexo etc... Um exemplo rapido e pratico, agora claro podemos ver o outro modo também... Afinal cada caso é um caso. bjos... Luiz Escobar - Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/ASSEMBLER/MySQL/xBase SERVIDORES - IntraNetWare4.11, LINUX-RedHat9, Windows - Original Message - From: maniacapordelphi To: delphi-br@yahoogrupos.com.br Sent: Friday, August 24, 2007 2:45 PM Subject: [delphi-br] Enviar mensagem entre funcionarios dentro da empresa(com anexo) Alguém conhece um componente com o qual eu possa enviar uma mensagem intranet com arquivo anexo de um setor da empresa para outro? Sei apenas enviar mensagem pelo Serviço de Mensagem do Windows (NetAPI.dll), mas não sei como anexar arquivo, nem se isso é possivel. Esse serviço precisa ficar dentro do meu aplicativo. Mani [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2485 (20070826) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos
Re: [delphi-br] funcao hexadecimal para inteiro para acima de 7 digitos
Alineri, Tente com StrToInt ou StrToInt64. Veja no help do Delphi como usa-los com numeros hexadecimais [ ]´s Moacir alineri escreveu: Boa tarde pessoal, Estou com dificuldades em converter numeros hexadecimais grandes em decimais. todas as funcoes que peguei na net e que fiz quando tem mais de 7 digitos nao funciona, verifico se esta certo pela calculadora do windows. alguem pode me ajudar estou precisando muito dessa funcao exemplo de uma funcao que peguei aqui no grupo e que nao funcionou com o seguinte numero hexadecimal C5E57F15 o resultado que a funcao retorna e: -974815467 quando a conversao correta e: 3320151829 Um forte abraco a todos Eduardo function TForm1.HexToInt(const HexStr: string): longint; var iNdx: integer; cTmp: Char; begin Result := 0; for iNdx := 1 to Length(HexStr) do begin cTmp := HexStr[iNdx]; case cTmp of '0'..'9': Result := 16 * Result + (Ord(cTmp) - $30); 'A'..'F': Result := 16 * Result + (Ord(cTmp) - $37); 'a'..'f': Result := 16 * Result + (Ord(cTmp) - $57); else raise EConvertError.Create('Illegal character in hex string'); end; end; end;
Re: [delphi-br] funcao hexadecimal para inteiro para acima de 7 digitos
alineri wrote: Boa tarde pessoal, Estou com dificuldades em converter numeros hexadecimais grandes em decimais. todas as funcoes que peguei na net e que fiz quando tem mais de 7 digitos nao funciona, verifico se esta certo pela calculadora do windows. alguem pode me ajudar estou precisando muito dessa funcao exemplo de uma funcao que peguei aqui no grupo e que nao funcionou com o seguinte numero hexadecimal C5E57F15 o resultado que a funcao retorna e: -974815467 quando a conversao correta e: 3320151829 Mude Longint para Int64. -- Joao Morais
[delphi-br] Off - Programa para conversa via net
Galera, alguem conhece algum programa para conversa (tipo o MSN), mas que seja possível apenas a conversa entre duas pessoas? Pergunto isso pois instalei o MSN na empresa pois necessito contato a todo momento com a pessoa e o cara fica o dia todo no MSN. Queria algo do tipo, eu e o cara, mais ninguém, tem algum programa assim? Ai eu desintalaria o MSN e o meu problema estaria em parte resolvido. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Procurando Serviço
Será que so pessoas jovens tem direito de procurar emprego. Ou é algo excepcional alguem precisar trabalhar Clovis Clóvis Machado Ferreira Que o GADU nos Ampare Msn-[EMAIL PROTECTED] - Original Message - From: Anderson Marques Ferraz To: delphi-br@yahoogrupos.com.br Sent: Monday, August 27, 2007 1:30 PM Subject: Re: [delphi-br] Procurando Serviço Isso não pode ser sério. Em 27/08/07, [EMAIL PROTECTED] [EMAIL PROTECTED] escreveu: Moro em Dourado, estado de São Paulo, mas aceito em qualquer lugar do Brasil ou fora Clóvis Machado Ferreira Que o GADU nos Ampare Msn-[EMAIL PROTECTED] clovito.ferreira%40hotmail.com - Original Message - From: Madsom Silva To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Monday, August 27, 2007 12:04 PM Subject: RES: [delphi-br] Procurando Serviço Clovis, aonde você mora ? Madsom. -Mensagem original- De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br]Em nome de [EMAIL PROTECTED] clovis.machado%40uol.com.br Enviada em: domingo, 26 de agosto de 2007 00:30 Para: [EMAIL PROTECTED] lista-delphi%40yahoogrupos.com.br Assunto: [delphi-br] Procurando Serviço Boa noite Pessoal Saudações Clovis Machado Ferreira Nasc: 21/09/1942 Formação Prof: Engenheiro Agrono o - ESALQ 1971 Analise de Sistemas - Autodidata Informática - Basic - DBase - Clipper Summer 87 - Delphi 7 - InterBase/ FireBird Local de Trabalho - Todo o Brasil Tipo de Contrato - CLT, Autonomo, INicio - Imediatamente Obrigado Clovis Clóvis Machado Ferreira Que o GADU nos Ampare Msn-[EMAIL PROTECTED] clovito.ferreira%40hotmail.com [As partes desta mensagem que não continham texto foram removidas] No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.484 / Virus Database: 269.12.9/975 - Release Date: 26/08/2007 21:34 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Anderson Caco Marques Ferraz 2.º Período de Engenharia da Computação - UEFS A player who makes the team great is more valuable than a great player. Losing yourself in the group, for the good of the group, that's teamwork. (John Wooden) [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] SNGPC - Sistema Nacional de Gerenciamento de Produtos Controlados
Pessoal estou com um problema aqui, eu já montei todo o arquivo do SNGPC, conforme o exquema XML do site da anvisa, mas quando tento enviar ele dá uma mensagem dizendo Arquivo XML não aderente ao Schema SNGPC, porém já conferi o arquivo de ponta a ponta e esta tudo ok, a única diferença que notei foi que quando abro ele pelo NOTEPAD ele é mostrado em uma única linha, o que já não acontece com o arquivo que vem de exemplo da anvisa, alguém já passou por isso, agradeço qualquer ajuda. Sergio Kawahara [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Procurando Serviço
Vc ta certo clovis, tem que correr atraz mesmo.. e quanto a forma de fazer isso, a criatividade é o limite. Em 27/08/07, [EMAIL PROTECTED] [EMAIL PROTECTED] escreveu: Será que so pessoas jovens tem direito de procurar emprego. Ou é algo excepcional alguem precisar trabalhar Clovis Clóvis Machado Ferreira Que o GADU nos Ampare Msn-[EMAIL PROTECTED] clovito.ferreira%40hotmail.com - Original Message - From: Anderson Marques Ferraz To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Monday, August 27, 2007 1:30 PM Subject: Re: [delphi-br] Procurando Serviço Isso não pode ser sério. Em 27/08/07, [EMAIL PROTECTED] clovis.machado%40uol.com.br [EMAIL PROTECTED] clovis.machado%40uol.com.br escreveu: Moro em Dourado, estado de São Paulo, mas aceito em qualquer lugar do Brasil ou fora Clóvis Machado Ferreira Que o GADU nos Ampare Msn-[EMAIL PROTECTED] clovito.ferreira%40hotmail.com clovito.ferreira%40hotmail.com - Original Message - From: Madsom Silva To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%40yahoog rupos.com.br Sent: Monday, August 27, 2007 12:04 PM Subject: RES: [delphi-br] Procurando Serviço Clovis, aonde você mora ? Madsom. -Mensagem original- De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%40yahoog rupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%40yahoog rupos.com.br]Em nome de [EMAIL PROTECTED] clovis.machado%40uol.com.br clovis.machado%40uol.com.br Enviada em: domingo, 26 de agosto de 2007 00:30 Para: [EMAIL PROTECTED]lista-delphi%40yahoogrupos.com.brlista-delphi%40yahoogrupos. com.br Assunto: [delphi-br] Procurando Serviço Boa noite Pessoal Saudações Clovis Machado Ferreira Nasc: 21/09/1942 Formação Prof: Engenheiro Agrono o - ESALQ 1971 Analise de Sistemas - Autodidata Informática - Basic - DBase - Clipper Summer 87 - Delphi 7 - InterBase/ FireBird Local de Trabalho - Todo o Brasil Tipo de Contrato - CLT, Autonomo, INicio - Imediatamente Obrigado Clovis Clóvis Machado Ferreira Que o GADU nos Ampare Msn-[EMAIL PROTECTED] clovito.ferreira%40hotmail.com clovito.ferreira%40hotmail.com [As partes desta mensagem que não continham texto foram removidas] No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.484 / Virus Database: 269.12.9/975 - Release Date: 26/08/2007 21:34 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Anderson Caco Marques Ferraz 2.º Período de Engenharia da Computação - UEFS A player who makes the team great is more valuable than a great player. Losing yourself in the group, for the good of the group, that's teamwork. (John Wooden) [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Procurando Serviço
Obrigado Edu pela força e pela compreensão Clovis Clóvis Machado Ferreira Que o GADU nos Ampare Msn-[EMAIL PROTECTED] - Original Message - From: Eduardo Silva dos Santos To: delphi-br@yahoogrupos.com.br Sent: Monday, August 27, 2007 7:05 PM Subject: Re: [delphi-br] Procurando Serviço Vc ta certo clovis, tem que correr atraz mesmo.. e quanto a forma de fazer isso, a criatividade é o limite. Em 27/08/07, [EMAIL PROTECTED] [EMAIL PROTECTED] escreveu: Será que so pessoas jovens tem direito de procurar emprego. Ou é algo excepcional alguem precisar trabalhar Clovis Clóvis Machado Ferreira Que o GADU nos Ampare Msn-[EMAIL PROTECTED] clovito.ferreira%40hotmail.com - Original Message - From: Anderson Marques Ferraz To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Monday, August 27, 2007 1:30 PM Subject: Re: [delphi-br] Procurando Serviço Isso não pode ser sério. Em 27/08/07, [EMAIL PROTECTED] clovis.machado%40uol.com.br [EMAIL PROTECTED] clovis.machado%40uol.com.br escreveu: Moro em Dourado, estado de São Paulo, mas aceito em qualquer lugar do Brasil ou fora Clóvis Machado Ferreira Que o GADU nos Ampare Msn-[EMAIL PROTECTED] clovito.ferreira%40hotmail.com clovito.ferreira%40hotmail.com - Original Message - From: Madsom Silva To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%40yahoog rupos.com.br Sent: Monday, August 27, 2007 12:04 PM Subject: RES: [delphi-br] Procurando Serviço Clovis, aonde você mora ? Madsom. -Mensagem original- De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%40yahoog rupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%40yahoog rupos.com.br]Em nome de [EMAIL PROTECTED] clovis.machado%40uol.com.br clovis.machado%40uol.com.br Enviada em: domingo, 26 de agosto de 2007 00:30 Para: [EMAIL PROTECTED]lista-delphi%40yahoogrupos.com.brlista-delphi%40yahoogrupos. com.br Assunto: [delphi-br] Procurando Serviço Boa noite Pessoal Saudações Clovis Machado Ferreira Nasc: 21/09/1942 Formação Prof: Engenheiro Agrono o - ESALQ 1971 Analise de Sistemas - Autodidata Informática - Basic - DBase - Clipper Summer 87 - Delphi 7 - InterBase/ FireBird Local de Trabalho - Todo o Brasil Tipo de Contrato - CLT, Autonomo, INicio - Imediatamente Obrigado Clovis Clóvis Machado Ferreira Que o GADU nos Ampare Msn-[EMAIL PROTECTED] clovito.ferreira%40hotmail.com clovito.ferreira%40hotmail.com [As partes desta mensagem que não continham texto foram removidas] No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.484 / Virus Database: 269.12.9/975 - Release Date: 26/08/2007 21:34 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Anderson Caco Marques Ferraz 2.º Período de Engenharia da Computação - UEFS A player who makes the team great is more valuable than a great player. Losing yourself in the group, for the good of the group, that's teamwork. (John Wooden) [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Testar Boleto
Anderson, você pode testar no proprio banco. Gere um boleto de R$ 1,00, envie a remessa para o banco, se o banco aceitar o arquivo esta correto, caso seja rejeitado o banco informa o motivo. Faça as alterações e pague o boleto, assim você testa todo o processo. No inicio do ano desenvolvi uma aplicação para gerar boletos para o Bradesco, Itau, Banco do Brasil, Unibanco e Caixa Economica Federal. O melhor suporte via telefone é o do Itau, mas o arquivo de remessa mais chato é o Bradesco, que te obriga por exemplo a emitir um arquivo para cada conta. Eduardo Moacir - GMail escreveu: Anderson, Acredito que basta vc analisar a documentação disponibilzada pelo seu banco ao até esmo pela Febranan para que mates esta charada. /www.*febraban*.org.br http://www.febraban.org.br/Arquivo/Servicos/Downloads/download_lista.asp?id_comissao=4 http://www.febraban.org.br/Arquivo/Servicos/Downloads/download_lista.asp?id_comissao=4 / Não tem nada de muito dificil não, mas acredito que existam algumas variações de acordo com o banco, no que concerne a calculo de digito verificador, etc.. Mas os dados gerais vc consegue ler sem maiores problemas. [ ]´s Moacir Anderson Furtilho escreveu: Olá galera! Existe algum software que podemos ler o codigo de barra ou a linha digitavel de uma boleto e ele verifica se é um boleto valido ou não. Ou melhor ainda, se existe um software que ao passar a linha digitavel ou codigo de barra ele mostra na tela os dados como agencia, codigo, valor boleto, data vencimento... Desde já antecipo meus agradecimentos! Anderson Flickr agora em português. Você clica, todo mundo vê. http://www.flickr.com.br/ http://www.flickr.com.br/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Procurando Serviço
[EMAIL PROTECTED] wrote: Obrigado Edu pela força e pela compreensão www.ceviu.com.br Preenche um cadastro (é chato pra kct), passa muita oferta de Delphi de todo o Brasil por lá. -- Joao Morais
[delphi-br] Re: funcao hexadecimal para inteiro para acima de 7 digitos FUNCIONOU
Obrigado pessoal utilizei a funcao strtoint64 como descrito abaixo e pronto, funcionou que e uma beleza. E o melhor de tudo com uma linha so. Mais uma vez obrigado e um forte abraco a todos Eduardo --- Em delphi-br@yahoogrupos.com.br, Desenvolvimento \(Anderson\) [EMAIL PROTECTED] escreveu use a função strtoint64... assim: caption := inttostr(strtoint64('$C5E57F15')) - Original Message - From: alineri To: delphi-br@yahoogrupos.com.br Sent: Monday, August 27, 2007 5:35 PM Subject: [delphi-br] funcao hexadecimal para inteiro para acima de 7 digitos Boa tarde pessoal, Estou com dificuldades em converter numeros hexadecimais grandes em decimais. todas as funcoes que peguei na net e que fiz quando tem mais de 7 digitos nao funciona, verifico se esta certo pela calculadora do windows. alguem pode me ajudar estou precisando muito dessa funcao exemplo de uma funcao que peguei aqui no grupo e que nao funcionou com o seguinte numero hexadecimal C5E57F15 o resultado que a funcao retorna e: -974815467 quando a conversao correta e: 3320151829 Um forte abraco a todos Eduardo function TForm1.HexToInt(const HexStr: string): longint; var iNdx: integer; cTmp: Char; begin Result := 0; for iNdx := 1 to Length(HexStr) do begin cTmp := HexStr[iNdx]; case cTmp of '0'..'9': Result := 16 * Result + (Ord(cTmp) - $30); 'A'..'F': Result := 16 * Result + (Ord(cTmp) - $37); 'a'..'f': Result := 16 * Result + (Ord(cTmp) - $57); else raise EConvertError.Create('Illegal character in hex string'); end; end; end; __ Informação do NOD32 IMON 2486 (20070827) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Organizador de código fonte
Olá amigos, Alguém conheci um plug-in do delphi que organiza o código fonte do arquivo .Pas? Eu já utilizei esse plug-in a muito tempo atrás no D6 e gostaria de encontra-lo para o D7, mas nem lembro o nome do mesmo. Valew. Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3965.2992 / 3039.1768 Brasília - DF [As partes desta mensagem que não continham texto foram removidas]