Re: [delphi-br] [MEIO OFF-TOPIC] - DELPHI FOR PHP
Valeu Andreano!!! Andreano Lanusse escreveu: [EMAIL PROTECTED] mailto:delphi_php_oficial%40yahoogrupos.com.br From: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br] On Behalf Of Coutinho - Yahoo Sent: Friday, September 26, 2008 4:01 PM To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Subject: Re: [delphi-br] [MEIO OFF-TOPIC] - DELPHI FOR PHP Valeu Hudson... Só achei que tem pouca gente no forum... vc faz parte? Sds Emanuel Coutinho Hudson Dias escreveu: www.delphisophp.com - Original Message - From: Coutinho - Yahoo To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.brmailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, September 26, 2008 2:43 PM Subject: [delphi-br] [MEIO OFF-TOPIC] - DELPHI FOR PHP Colegas, Estou procurando um grupo que possa abordar sobre Delphi for PHP... Algum colega saberia indicar? Desde já agradeço!!! Emanuel Coutinho [As partes desta mensagem que não continham texto foram removidas] CONFIDENTIALITY NOTICE: This email message is for the sole use of the intended recipient(s) and may contain confidential and privileged information. Any unauthorized review, use, disclosure or distribution is prohibited. If you are not the intended recipient, please contact the sender by reply email and destroy all copies of the original message. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Parametros no TSQLDataSet
Alexandro... Cada parâmetro deve ser usado para estabelecer um filtro... e assim, estabelecer uma comparação com o conteúdo de um campo especificamente Diria: Select clientes.nome, clientes.sobrenome1, clientes.sobrenome3, clientes.telefone, clientes.email, clientes.mes_nascimento, clientes.dianascimento, clientes.sexo, clientes. from clientes where (cidade = :pmcidade) and (clientes.mes_nascimento = :pmmesnascimento) and ( sexo = :pmsexo) order by clientes.nome, clientes.sobrenome1, clientes.sobrenome3 Alexsandro Machado escreveu: Bom dia pessoal ! Minha duvida é a seguinte : Normalmente quando passa um parametro para uma consulta no DataSete é: Select * From cliente where codigo = :parametro1... dai vc carrega no seu fonte um codigo qualquer no parametro, parametro1 := 3 por exemplo. Até ai tudo bem..mas quando vc tem alguma coisa desse tipo: Select * From cliente where codigo = :parametro1... :parametro2 :parametro3 sendo: :parametro2 := 'and idade = 20' :parametro3 := 'and endereco = Rua A' pois os paramentro 2 e 3 são filtros que poderão ser ou não selecionados pelo usuario...como configurar os parametros para que não de erro quando não selecionados pelo usuario ? tem como fazer com TSQLDataSet? Obrigado, Alex [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Usando dbExpress No Delphi 6 - Login Prompt
Já viu a propriedade loginprompt do sqlconnection? Olhe também se tem algum sqlconnection/dataset/query abertos em tempo de designer, se tiver feche a conexão de todos. Luciano Calenzani Simões - Mensagem original De: Coutinho - Yahoo [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 29 de Setembro de 2008 1:03:27 Assunto: [delphi-br] Usando dbExpress No Delphi 6 - Login Prompt Pessoal Estou usando o DBExpress com banco de dados firebird. Estou querendo qque o sistema abra uma tabela de configuração do meu programa, e para isso tem de conectar no banco. Só que peço que o componente sqlConection deixe a conexão sem efetuar login... conecte diretamente. Na conexão já tem o usuário Sysdba e senma masterkey... só que não quero que faça o login, pois vou validar os usuários no sistema, e não no banco. Alguém sabe o porquê de o banco ficar pedindo senha para conexão? Já fui no IBExpress e verifiquei, e não consigo achar uma ração... no Delphi 2006 funciona... faz a conexão no mesmo banco sem problemas... Alguém tem como me ajudar? É bug do dbExpress? Agradeço desde já. Sds Emanuel Coutinho Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Enviar e-mail pelo sistema
Luciano, Valeu mas eu uso ainda o Delphi 5. - Original Message - From: Luciano Calenzani Simões To: delphi-br@yahoogrupos.com.br Sent: Sunday, September 28, 2008 4:35 PM Subject: Res: [delphi-br] Enviar e-mail pelo sistema Anexe o arquivo ao e-mail. Use como exemplo o artigo http://www.activedelphi.com.br/print.php?sid=187 Luciano Calenzani Simões - Mensagem original De: Alex Leão [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Domingo, 28 de Setembro de 2008 13:42:44 Assunto: [delphi-br] Enviar e-mail pelo sistema Pessoal, Preciso que meu sistema envie relatórios por e-mail. A parte de gerar e salvar o relatótio eu já fiz, mas a parte de enviar o e-mail tá lenha ... Alguém tem alguma rotina para me ajudar? Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [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] Usando dbExpress No Delphi 6 - Login Prompt
verifique se a propriedade LoginPrompt do sqlconnection está como True, Caso esteja mude para False. - Mensagem original De: Coutinho - Yahoo [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 29 de Setembro de 2008 1:03:27 Assunto: [delphi-br] Usando dbExpress No Delphi 6 - Login Prompt Pessoal Estou usando o DBExpress com banco de dados firebird. Estou querendo qque o sistema abra uma tabela de configuração do meu programa, e para isso tem de conectar no banco. Só que peço que o componente sqlConection deixe a conexão sem efetuar login... conecte diretamente. Na conexão já tem o usuário Sysdba e senma masterkey... só que não quero que faça o login, pois vou validar os usuários no sistema, e não no banco. Alguém sabe o porquê de o banco ficar pedindo senha para conexão? Já fui no IBExpress e verifiquei, e não consigo achar uma ração... no Delphi 2006 funciona... faz a conexão no mesmo banco sem problemas... Alguém tem como me ajudar? É bug do dbExpress? Agradeço desde já. Sds Emanuel Coutinho Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] emails em delphi
Eu uso esta função function TEnviaEmail.EnviarEmail(Assunto,Destinatario, Anexo, De: String; Mensagem: TMemo): Boolean; var Mail : TIDSmtp ; MailMensagem : TIDMessage ; begin { Cria Mensagem } Mail:= TIdSMTP.Create( Nil ); MailMensagem:= TIdMessage.Create( Nil ); { Configura a mensagem } with MailMensagem do begin { Destinatario } From.Address := Destinatario ; { Nome de quem esta envianbdo } From.Name := De ; { Copia } ReplyTo.EMailAddresses:= Destinatario; { Manda } Recipients.EMailAddresses := Destinatario; { Assunto } Subject := Assunto ; { Tipo do Email } ContentType := 'text/html'; { Mensagem Mesmo } Body.Text := Mensagem.Text; { Encode para ficar em html } IsEncoded := true ; { Limpa o Anexo } MessageParts.Clear; { Adidiona de Tiver } if Anexo '' then begin { verifica se tem o Arquivo } if FileExists( Anexo ) then begin TIdAttachment.Create( MessageParts , Anexo ); end end end; { Configura Email para Envio } Mail.Host := ServidorSMTP ; Mail.Username := Usuario ; Mail.Password := Senha ; Mail.AuthenticationType := atLogin ; { Cnecta } mail.Connect(); { Verifica se conectou } if Mail.Connected then begin { Envia } Mail.Send( MailMensagem ); Mail.Disconnect ; Mail.Free ; Result := true ; end else begin { Limpa } Mail.Free ; Result := False ; end; end; Wesley From: Jackson Gomes - ToolsComps Sent: Friday, September 26, 2008 2:36 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] emails em delphi tenho um BD de clientes em DBIsam ... e um dos campos é email do cliente gostaria de montar uma rotina para encaminhar um email para todos os endereços cadastrados ... http://www.google.com.br/search?hl=pt-BRq=Send+e-Mail+DelphibtnG=Pesquisarmeta= Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] Fone: 27 3389 1138 - 8811 0324 -- Devhost - Webhost para desenvolvedores Delphi http://www.devhost.com.br [EMAIL PROTECTED] __ Information from ESET NOD32 Antivirus, version of virus signature database 3479 (20080929) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] RE: [NDDV] Re: Primeiro Bug no Del phi 2009 - NÃO É BUG
Adriano, só por curiosidade, adquirimos uma lincença do Delphi 2007este ano, e vc disse que tal bug(no Object Inspector) foi corrigido no Delphi 2009, este erro será corrigido no Delphi 2007 também ? Pois não iremos lincenciar o Delphi 2009 já, por razões já citadas. Obrigado Vinicius dos Santos http://www.msisolucoes.com.br -Mensagem Original- De: Andreano Lanusse Para: [EMAIL PROTECTED] ; delphi-br@yahoogrupos.com.br ; [EMAIL PROTECTED] ; [EMAIL PROTECTED] Enviada em: domingo, 28 de setembro de 2008 11:47 Assunto: [delphi-br] RE: [NDDV] Re: Primeiro Bug no Delphi 2009 - NÃO É BUG Eduardo, É brincadeira ler um email desses, ainda mais vindo de você. Você não está sabendo usar o Ribbon, primeira a mensagem que você diz ser uma exception é bem clara, diz que você não pode adicionar um TBitBtn no Ribbon e está correto. Todo o Ribbon é baseado em Actions, ou seja, tem que usar o ActionManager para adicionar os botões e outras coisas mais, você pode usar alguns outros componentes dentro do Ribbon, não todos, pois o Ribbon requer Themes. Vai no diretório C:\Users\Public\Documents\RAD Studio\6.0\Demos\DelphiWin32\VCLWin32\RibbonControls\Ribbon Demo e abre o demo que tem lá, assim você irá entender como funcionar. Sobre o refresh no seu Tool Pallete, está claro que é um problema na sua máquina, seria muita irresponsabilidade nossa liberar um produto que não fizesse refresh na página, você não acha? Vamos tentar identificar a razão do problema, preciso saber: 1 - Qual o build que você está utilizando? Menu Help -- About 2 - Qual a configuração da sua máquina? 3 - Isso acontece quando você não está usando o Camtasia? O Camtasia muda as configurações de vídeo durante a gravação 4 - Existem componentes de terceiro instalado? O que você se refere ao Refresh do Object Inspector no Delphi 2007, foi corrigido no Delphi 2009. []'s Andreano Lanusse Embarcadero Product Line Manager and Techinical Lead Evangelist Latin America Caribbean http://blogs.codegear.com/andreanolanusse From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Eduardo Silva dos Santos Sent: Friday, September 26, 2008 9:26 PM To: delphi-br@yahoogrupos.com.br; [EMAIL PROTECTED]; [EMAIL PROTECTED]; [EMAIL PROTECTED] Subject: [NDDV] Re: Primeiro Bug no Delphi 2009 Outra forma de reproduzir o bug, vejam o video: http://www.drdsistemas.com.br/util/media/D2009.html 2008/9/26 Eduardo Silva dos Santos [EMAIL PROTECTED]mailto:[EMAIL PROTECTED] Porque só acontece comigo!! Baixei o trial Delphi 2009, comecei a testar, e me deparo com o 1º Bug - Falta de Refresh na Tool Pallete como Reproduzir: Inicie uma nova aplicação Adicione um TRibbon Adicione duas Tabs ao TRibbon Adicione um Group à Tab Criada tente colocar um TBitbtn no Gropu Criado, A ide vai gerar uma exception informando que so ribbons groups podem ser inseridos em Ribbons Page.. Normal.. Execute o projeto e feche, quase todas as fezes ao voltar para a IDE a Tool Palette não estava desenhada. é brincadeira, no Delphi 2007 é o Bug no Object Inspector (eu ate gravei um vídeo ) agora no 2009 é na Tool Pallet. como o Andreano Falou isso é coisa simples é só um refresh, mas gente pelo amor de Deus né... o do Delphi 2007 era simples e eu duvido que vai ser corrigido. caso não consigam reproduzir vou gravar outro vídeo. -- ... Eduardo Silva dos Santos DRD SISTEMAS MSN: [EMAIL PROTECTED]mailto:[EMAIL PROTECTED] Site: http://www.drdsistemas.com.br/ ... -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 MSN: [EMAIL PROTECTED]mailto:[EMAIL PROTECTED] Site: http://www.drdsistemas.com.br/ ... CONFIDENTIALITY NOTICE: This email message is for the sole use of the intended recipient(s) and may contain confidential and privileged information. Any unauthorized review, use, disclosure or distribution is prohibited. If you are not the intended recipient, please contact the sender by reply email and destroy all copies of the original message. [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: [NDDV] Re: Primeiro Bug no Delphi 2009 - NÃO É BUG
Acredito que como um bom comerciante, eles não vão soltar update pro 2007, pois é mais rentável pra eles, você pagar o 2009... tomara que esteja errado.. mas... negócios são negócios, infelizmente... Só pra por um ponto, esses erros, bugs, citados, até o momento não consegui faze-los aqui na minha maquina... :o) ainda bem... hehehe já fiz o que tem no video e nada... continua numa boa... []s 2008/9/29 Vinicius Santos - MSI [EMAIL PROTECTED] Adriano, só por curiosidade, adquirimos uma lincença do Delphi 2007este ano, e vc disse que tal bug(no Object Inspector) foi corrigido no Delphi 2009, este erro será corrigido no Delphi 2007 também ? Pois não iremos lincenciar o Delphi 2009 já, por razões já citadas. Obrigado Vinicius dos Santos http://www.msisolucoes.com.br -Mensagem Original- De: Andreano Lanusse Para: [EMAIL PROTECTED] NDDV%40yahoogrupos.com.br ; delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br ; [EMAIL PROTECTED] delphi-total%40yahoogrupos.com.br ; [EMAIL PROTECTED]delphi-br-especialistas%40yahoogrupos.com.br Enviada em: domingo, 28 de setembro de 2008 11:47 Assunto: [delphi-br] RE: [NDDV] Re: Primeiro Bug no Delphi 2009 - NÃO É BUG Eduardo, É brincadeira ler um email desses, ainda mais vindo de você. Você não está sabendo usar o Ribbon, primeira a mensagem que você diz ser uma exception é bem clara, diz que você não pode adicionar um TBitBtn no Ribbon e está correto. Todo o Ribbon é baseado em Actions, ou seja, tem que usar o ActionManager para adicionar os botões e outras coisas mais, você pode usar alguns outros componentes dentro do Ribbon, não todos, pois o Ribbon requer Themes. Vai no diretório C:\Users\Public\Documents\RAD Studio\6.0\Demos\DelphiWin32\VCLWin32\RibbonControls\Ribbon Demo e abre o demo que tem lá, assim você irá entender como funcionar. Sobre o refresh no seu Tool Pallete, está claro que é um problema na sua máquina, seria muita irresponsabilidade nossa liberar um produto que não fizesse refresh na página, você não acha? Vamos tentar identificar a razão do problema, preciso saber: 1 - Qual o build que você está utilizando? Menu Help -- About 2 - Qual a configuração da sua máquina? 3 - Isso acontece quando você não está usando o Camtasia? O Camtasia muda as configurações de vídeo durante a gravação 4 - Existem componentes de terceiro instalado? O que você se refere ao Refresh do Object Inspector no Delphi 2007, foi corrigido no Delphi 2009. []'s Andreano Lanusse Embarcadero Product Line Manager and Techinical Lead Evangelist Latin America Caribbean http://blogs.codegear.com/andreanolanusse From: [EMAIL PROTECTED] NDDV%40yahoogrupos.com.br [mailto: [EMAIL PROTECTED] NDDV%40yahoogrupos.com.br] On Behalf Of Eduardo Silva dos Santos Sent: Friday, September 26, 2008 9:26 PM To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br; [EMAIL PROTECTED] nddv%40yahoogrupos.com.br; [EMAIL PROTECTED] delphi-total%40yahoogrupos.com.br; [EMAIL PROTECTED]delphi-br-especialistas%40yahoogrupos.com.br Subject: [NDDV] Re: Primeiro Bug no Delphi 2009 Outra forma de reproduzir o bug, vejam o video: http://www.drdsistemas.com.br/util/media/D2009.html 2008/9/26 Eduardo Silva dos Santos [EMAIL PROTECTED] eduardo.drd%40gmail.commailto: [EMAIL PROTECTED] eduardo.drd%40gmail.com Porque só acontece comigo!! Baixei o trial Delphi 2009, comecei a testar, e me deparo com o 1º Bug - Falta de Refresh na Tool Pallete como Reproduzir: Inicie uma nova aplicação Adicione um TRibbon Adicione duas Tabs ao TRibbon Adicione um Group à Tab Criada tente colocar um TBitbtn no Gropu Criado, A ide vai gerar uma exception informando que so ribbons groups podem ser inseridos em Ribbons Page.. Normal.. Execute o projeto e feche, quase todas as fezes ao voltar para a IDE a Tool Palette não estava desenhada. é brincadeira, no Delphi 2007 é o Bug no Object Inspector (eu ate gravei um vídeo ) agora no 2009 é na Tool Pallet. como o Andreano Falou isso é coisa simples é só um refresh, mas gente pelo amor de Deus né... o do Delphi 2007 era simples e eu duvido que vai ser corrigido. caso não consigam reproduzir vou gravar outro vídeo. -- ... Eduardo Silva dos Santos DRD SISTEMAS MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.commailto: [EMAIL PROTECTED] eduardo.drd%40gmail.com Site: http://www.drdsistemas.com.br/ ... -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.commailto: [EMAIL PROTECTED] eduardo.drd%40gmail.com Site: http://www.drdsistemas.com.br/ ... CONFIDENTIALITY NOTICE: This email message is for the sole use of the intended recipient(s) and may contain confidential and privileged information. Any unauthorized
Re: [delphi-br] Parametros no TSQLDataSet
Rubem, muito obrigado era isso mesmo que queria fazer... []'s Alex - Original Message - From: Rubem Nascimento da Rocha To: delphi-br@yahoogrupos.com.br Sent: Sunday, September 28, 2008 4:02 PM Subject: RE: [delphi-br] Parametros no TSQLDataSet Eu não costumo usar parâmetros, seja qual for a camada de dados que use (BDE, ADO/dbGo, dbExpress, etc.) Ao invés diss, prefiro fazer substituições de strings, ou seja, coloco marcações especiais em um esqueleto de uma consulta e depois vou substituindo essas marcações de acordo com filtros que eu queira fazer. Exemplo (baseado no seu SQL): select * from cliente where codigo 0 _filtro1 _filtro2 _filtro3 Faço assim: SQLDataSet1.CommandType := ctQuery; SQLDataSet1.CommandText := 'select * from cliente where codigo 0'; SQLDataSet1.CommandText := SQLDataSet1.CommandText + ' _filtro1 _filtro2 _filtro3'; // Edit1.Text - edit com uma sigla de estado para usar em um filtro if Boolean(Length(Trim(Edit1.Text))) then SQLDataSet1.CommandText := StringReplace(SQLDataSet1.CommandText, '_filtro1', Format('and UF = ''%s''', [Edit1.Text]), []); else SQLDataSet.CommandText := StringReplace(SQLDataSet1.CommandText, '_filtro1', EmptyStr, []); // Edit2.Text - edit com uma cidade para pesquisar if Boolean(Length(Trim(Edit2.Text))) then SQLDataSet1.CommandText := StringReplace(SQLDataSet1.CommandText, '_filtro2', Format('and Cidade like ''%%%s%%''', [Edit2.Text]), []); else SQLDataSet.CommandText := StringReplace(SQLDataSet1.CommandText, '_filtro2', EmptyStr, []); // Edit3.Text - edit com um bairro para pesquisar if Boolean(Length(Trim(Edit3.Text))) then SQLDataSet1.CommandText := StringReplace(SQLDataSet1.CommandText, '_filtro3', Format('and Bairro like ''%%%s%%''', [Edit3.Text]), []); else SQLDataSet.CommandText := StringReplace(SQLDataSet1.CommandText, '_filtro3', EmptyStr, []); Pra mim, é bem mais prático deste jeito, pois vc praticamente define os filtros se eles forem requisitados, adicionando ou não tais filtros ao SQL! Dúvidas no uso da função Format(), sugiro dirimí-las no próprio help do Delphi. Boa sorte. Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Sat, 27 Sep 2008 11:12:49 -0300 Subject: [delphi-br] Parametros no TSQLDataSet Bom dia pessoal ! Minha duvida é a seguinte : Normalmente quando passa um parametro para uma consulta no DataSete é: Select * From cliente where codigo = :parametro1... dai vc carrega no seu fonte um codigo qualquer no parametro, parametro1 := 3 por exemplo. Até ai tudo bem..mas quando vc tem alguma coisa desse tipo: Select * From cliente where codigo = :parametro1... :parametro2 :parametro3 sendo: :parametro2 := 'and idade = 20' :parametro3 := 'and endereco = Rua A' pois os paramentro 2 e 3 são filtros que poderão ser ou não selecionados pelo usuario...como configurar os parametros para que não de erro quando não selecionados pelo usuario ? tem como fazer com TSQLDataSet? Obrigado, Alex __ Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger! http://www.amigosdomessenger.com.br/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Criar Receituário Médico
Bom dia galera, Tenho uma duvida e gostaria da ajuda de vcs Estou terminando um sistema de clinica odontologicae agora preciso gerar o receituario automatico A duvida é o seguinte... Eu tenho os dados da receita...nome do paciente, medicamento, dose, posologia...etc... E quero que ao selecionar um medicamento ele monte um preview da receita antes de gera-la para impressão porém eu tenho na receita o meio de administração do medicamento e eles tem que ser agrupados conforme a administração... Ex.: Uso Interno: Medicamento x - 1cx Uso Externo: Medicamento x y - - 2 cps Uso Interno Medicamento x - 1cx Além dissovamos colocar que o dentista adicionou um medicamento erradopreciso deletar esse medicamento do receituario. Uso D7 e firebird... Att.: Ricardo Mendes Departamento de Informática Tel. (41) 2109-7716 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Query dinâmica
Galera, tenho um problema bobo aqui, eu tinha várias Tsqlquery no meu formulário, para diminuir o código e tbm o número de componentes na tela, resolvi criar e executar essas querys dinamicamente. Fiz o seguinte código procedure ExecutaQuerys(query: TSQLQuery; sqla: String); begin if not Assigned(query) then query := TSQLQuery.Create(nil); query.Close; try query.SQLConnection := dmCnx.cnSinpdados; with query do begin sql.Clear; sql.Add(sqla); Open(); end except on E:Exception do MessageDlg('Erro criando query. Causa : '+E.Message + ''+sqla, mtError, [mbOK], 0); end; end; end. dai depois, eu chamo essa procedure ExecutaQuerys(nomedaquery,sql); Quando tento acessar os valores depois de executar o comando acima, acontece AcessViolation, esse erro eu sei que acontece quando tento acessar uma objeto não criado, não deveria este objeto já estar criado na memória, pois ali em cima eu testo se ele está ou não criado. Alguém pode me ajudar??? O que acontece é que logo depois do open da query, se eu Uberdam Cavaletti Formado em Tecnologia da Informação - Unoesc - Xxe Pós-graduado em desenvolvimento Java - Unoesc - Xxe http://www.curricular.com.br/berdam Visite http://passandoveneno.blogspot.com Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Query dinâmica
tente passa por referencia procedure ExecutaQuerys(var query: TSQLQuery; sqla: String); dai vc pode acessar fora da procedure ... ExecutaQuerys() xxx.FieldByName('CAMPO').AsString Rodrigo ®¿® - Mensagem original De: Berdam [EMAIL PROTECTED] Para: Delphi delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 29 de Setembro de 2008 9:43:37 Assunto: [delphi-br] Query dinâmica Galera, tenho um problema bobo aqui, eu tinha várias Tsqlquery no meu formulário, para diminuir o código e tbm o número de componentes na tela, resolvi criar e executar essas querys dinamicamente. Fiz o seguinte código procedure ExecutaQuerys(query: TSQLQuery; sqla: String); begin if not Assigned(query) then query := TSQLQuery.Create(nil); query.Close; try query.SQLConnection := dmCnx.cnSinpdados; with query do begin sql.Clear; sql.Add(sqla); Open(); end except on E:Exception do MessageDlg('Erro criando query. Causa : '+E.Message + ''+sqla, mtError, [mbOK], 0); end; end; end. dai depois, eu chamo essa procedure ExecutaQuerys(nomedaquery,sql); Quando tento acessar os valores depois de executar o comando acima, acontece AcessViolation, esse erro eu sei que acontece quando tento acessar uma objeto não criado, não deveria este objeto já estar criado na memória, pois ali em cima eu testo se ele está ou não criado. Alguém pode me ajudar??? O que acontece é que logo depois do open da query, se eu Uberdam Cavaletti Formado em Tecnologia da Informação - Unoesc - Xxe Pós-graduado em desenvolvimento Java - Unoesc - Xxe http://www.curricular.com.br/berdam Visite http://passandoveneno.blogspot.com Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Gerador de aplicacao
De uma pesquisada sobre Genexus. []’s Topolniak. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Wainer Enviada em: domingo, 28 de setembro de 2008 16:43 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Gerador de aplicacao Amigos A empresa onde trabalho, esta querendo utilizar algum gerador de aplicacao (speedcase,maker,etc), para ter um padrao de aplicativo e um reducao de tempo de programacao. ai vem a pergunta alguem aqui utiliza um gerador deste tipo? quais sao os pros e contras? existe um best of the best ou segue a maxima de qual voce se adpata melhor aqui o pessoal esta muito tendencioso para o spedcase. obrigado Wainer 16--6697 16-9101-1757 Wisa soft 16-3721-7187 o[|||]o ▓-o---▓ CJ3A - 49 [As partes desta mensagem que não continham texto foram removidas]
RE: RES: [delphi-br] Gerador de aplicacao
Se tiver gente na equipe de desenvolvimento com experiência em Visual FoxPro, VB ou Java, pode usar o Genexus. Eu já vi ele rodando, e ele o cão chupando manga! Mas, infelizmente, não gera sistemas para Delphi. :( Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Mon, 29 Sep 2008 09:04:41 -0300 Subject: RES: [delphi-br] Gerador de aplicacao De uma pesquisada sobre Genexus. []’s Topolniak. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Wainer Enviada em: domingo, 28 de setembro de 2008 16:43 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Gerador de aplicacao Amigos A empresa onde trabalho, esta querendo utilizar algum gerador de aplicacao (speedcase,maker,etc), para ter um padrao de aplicativo e um reducao de tempo de programacao. ai vem a pergunta alguem aqui utiliza um gerador deste tipo? quais sao os pros e contras? existe um best of the best ou segue a maxima de qual voce se adpata melhor aqui o pessoal esta muito tendencioso para o spedcase. obrigado Wainer 16--6697 16-9101-1757 Wisa soft 16-3721-7187 o[|||]o ▓-o---▓ CJ3A - 49 _ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br
Re: Res: [delphi-br] Query dinâmica
valeu ai pela ajuda, rodrigo, acho que isso se chama variável por referência, já tinha visto, mas n sabia muito bem como se aplicava, valeu pela ajuda Uberdam Cavaletti Formado em Tecnologia da Informação - Unoesc - Xxe Pós-graduado em desenvolvimento Java - Unoesc - Xxe http://www.curricular.com.br/berdam Visite http://passandoveneno.blogspot.com --- Em seg, 29/9/08, Rodrigo Bevilacqua Marcondes [EMAIL PROTECTED] escreveu: De: Rodrigo Bevilacqua Marcondes [EMAIL PROTECTED] Assunto: Res: [delphi-br] Query dinâmica Para: delphi-br@yahoogrupos.com.br Data: Segunda-feira, 29 de Setembro de 2008, 10:10 tente passa por referencia procedure ExecutaQuerys( var query: TSQLQuery; sqla: String); dai vc pode acessar fora da procedure ... ExecutaQuerys( ) xxx.FieldByName( 'CAMPO'). AsString Rodrigo ®¿® - Mensagem original De: Berdam berdamzinho@ yahoo.com. br Para: Delphi [EMAIL PROTECTED] os.com.br Enviadas: Segunda-feira, 29 de Setembro de 2008 9:43:37 Assunto: [delphi-br] Query dinâmica Galera, tenho um problema bobo aqui, eu tinha várias Tsqlquery no meu formulário, para diminuir o código e tbm o número de componentes na tela, resolvi criar e executar essas querys dinamicamente. Fiz o seguinte código procedure ExecutaQuerys( query: TSQLQuery; sqla: String); begin if not Assigned(query) then query := TSQLQuery.Create( nil); query.Close; try query.SQLConnection := dmCnx.cnSinpdados; with query do begin sql.Clear; sql.Add(sqla) ; Open(); end except on E:Exception do MessageDlg(' Erro criando query. Causa : '+E.Message + ''+sqla, mtError, [mbOK], 0); end; end; end. dai depois, eu chamo essa procedure ExecutaQuerys( nomedaquery, sql); Quando tento acessar os valores depois de executar o comando acima, acontece AcessViolation, esse erro eu sei que acontece quando tento acessar uma objeto não criado, não deveria este objeto já estar criado na memória, pois ali em cima eu testo se ele está ou não criado. Alguém pode me ajudar??? O que acontece é que logo depois do open da query, se eu - - - - - - Uberdam Cavaletti Formado em Tecnologia da Informação - Unoesc - Xxe Pós-graduado em desenvolvimento Java - Unoesc - Xxe http://www.curricul ar.com.br/ berdam Visite http://passandovene no.blogspot. com - - - - - - Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail. com. http://br.new. mail.yahoo. com/addresses [As partes desta mensagem que não continham texto foram removidas] - - -- -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail. com. http://br.new. mail.yahoo. com/addresses [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Criar Receituário Médico
SELECT nome do paciente, medicamento, dose, posologia, RR.meio de administração do medicamento FROM dados da receita INNER JOIN receita RR ON(RR.CAMPO=CAMPO) GROUP BY RR.meio de administração do medicamento ORDER BY RR.meio de administração do medicamento - Rodrigo ®¿® - Mensagem original De: Rick - Gmail [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 29 de Setembro de 2008 9:32:41 Assunto: [delphi-br] Criar Receituário Médico Bom dia galera, Tenho uma duvida e gostaria da ajuda de vcs Estou terminando um sistema de clinica odontologicae agora preciso gerar o receituario automatico A duvida é o seguinte... Eu tenho os dados da receita...nome do paciente, medicamento, dose, posologia...etc... E quero que ao selecionar um medicamento ele monte um preview da receita antes de gera-la para impressão porém eu tenho na receita o meio de administração do medicamento e eles tem que ser agrupados conforme a administração... Ex.: Uso Interno: Medicamento x - 1cx Uso Externo: Medicamento x y - - 2 cps Uso Interno Medicamento x - 1cx Além dissovamos colocar que o dentista adicionou um medicamento erradopreciso deletar esse medicamento do receituario. Uso D7 e firebird... Att.: Ricardo Mendes Departamento de Informática Tel. (41) 2109-7716 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Criar Receituário Médico
SELECT nome do paciente, medicamento, dose, posologia, RR.meio de administração do medicamento FROM dados da receita INNER JOIN receita RR ON(RR.CAMPO=CAMPO) GROUP BY RR.meio de administração do medicamento ORDER BY RR.meio de administração do medicamento - Rodrigo ®¿® - Mensagem original De: Rick - Gmail [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 29 de Setembro de 2008 9:32:41 Assunto: [delphi-br] Criar Receituário Médico Bom dia galera, Tenho uma duvida e gostaria da ajuda de vcs Estou terminando um sistema de clinica odontologicae agora preciso gerar o receituario automatico A duvida é o seguinte... Eu tenho os dados da receita...nome do paciente, medicamento, dose, posologia...etc... E quero que ao selecionar um medicamento ele monte um preview da receita antes de gera-la para impressão porém eu tenho na receita o meio de administração do medicamento e eles tem que ser agrupados conforme a administração... Ex.: Uso Interno: Medicamento x - 1cx Uso Externo: Medicamento x y - - 2 cps Uso Interno Medicamento x - 1cx Além dissovamos colocar que o dentista adicionou um medicamento erradopreciso deletar esse medicamento do receituario. Uso D7 e firebird... Att.: Ricardo Mendes Departamento de Informática Tel. (41) 2109-7716 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Core Lab
Alguem tem crack dos drives de Sql Server do Core Lab para dbExpress? Parte superior do formulário Parte inferior do formulário Parte superior do formulário _ Atenciosamente, http://www.vienasistemas.com.br/assinatura.png Pedro Henrique Gomes Projetos e Desenvolvimento ( MG (37) 3213-4855 * mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] 8 http://www.vilesoft.com.br/ www.vilesoft.com.br http://www.vienasistemas.com.br/images/bn_franquia_pegn.gif Parte inferior do formulário Parte superior do formulário O emitente desta mensagem é responsável por seu conteúdo e endereçamento. Cabe ao destinatário cuidar quanto ao tratamento adequado. Sem a devida autorização, a divulgação, a reprodução, a distribuição ou qualquer outra ação em desconformidade com as normas internas da Vilesoft são proibidas e passíveis de sanção disciplinar, cível e criminal. The sender of this message is responsible for its content and addressing. The receiver shall take proper care of it. Without due authorization, the publication, reproduction, distribution or the performance of any other action not conforming to Vilesoft internal policies and procedures is forbidden and liable to disciplinary, civil or criminal sanctions. El emisor de este mensaje es responsable por su contenido y direccionamiento. Cabe al destinatario darle el tratamiento adecuado. Sin la debida autorización, su divulgación, reproducción, distribución o cualquier otra acción no conforme a las normas internas de Vilesoft están prohibidas y serán pasibles de sanción disciplinaria, civil y penal. Parte inferior do formulário [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Criar metodo para controle de produção e consumo.
Já tenho um esquema de entrada de notas fiscais, gerando sintegra e tudo mais. a minha dúvida é... Qual a melhor maneira de criar um novo esquema de entradas de forma que controle produtos para insumo, (produção), e consumo e como isso será mostrado no sintegra depois. ? Como baixar o estoque de pó de café (por exemplo) de um restaurante, (sendo que o café não é vendido) apenas é brinde da casa para depois do almoço ? -- Leonardo Quinino [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Core Lab
que pena foi banido. O cara num sabe nem ler as regras de uma lista, que ser programador, realmente vou vender coco na praia que deve ter menos gente. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Core Lab
que pena foi banido. O cara num sabe nem ler as regras de uma lista, que ser programador, realmente vou vender coco na praia que deve ter menos gente. Acho que não precisava banir de cara, mas uma advertência seria o ideal caso seja a primeira vez... Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] Fone: 27 3389 1138 - 8811 0324 Devhost - Webhost para desenvolvedores Delphi http://www.devhost.com.br [EMAIL PROTECTED]
RE: [delphi-br] Primeiro Bug no Delphi 2009 - NÃO É BU G - É BUG SIM...
Eduardo, Se você identificar uma forma de como reproduzir o problema, será corrigido, agora sem isso é um problema. Entendo que sua intenção e ajudar, o problema é que muitos se aproveitam da boa vontade dos outros para nos prejudicar. Estou vendo o que pode estar acontecendo, a partir destas informações. O vídeo irá ajudar. []'s Andreano -Original Message- From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of Eduardo Silva dos Santos Sent: Sunday, September 28, 2008 11:38 PM To: delphi-br@yahoogrupos.com.br; [EMAIL PROTECTED]; [EMAIL PROTECTED] Subject: [delphi-br] Primeiro Bug no Delphi 2009 - NÃO É BUG - É BUG SIM... Olá Andreano, vamos lá;; Eduardo, É brincadeira ler um email desses, ainda mais vindo de você. Você não está sabendo usar o Ribbon, primeira a mensagem que você diz ser uma exception é bem clara, diz que você não pode adicionar um TBitBtn no Ribbon e está correto. *R: se você verificar o vídeo que gravei vai ver que o problema acontece em outras situações, a questão do Ribbon foi a primeira na qual vi o problema, da uma olhada no video que você vai ver, a questão não é não poder adicionar o TBitBtn, a questão é o refresh ao fechar o projeto em execução.* *Perca 2 minutos do seu tempo e veja o vídeo: http://www.drdsistemas.com.br/util/media/D2009.html* Todo o Ribbon é baseado em Actions, ou seja, tem que usar o ActionManager para adicionar os botões e outras coisas mais, você pode usar alguns outros componentes dentro do Ribbon, não todos, pois o Ribbon requer Themes. Vai no diretório C:\Users\Public\Documents\RAD Studio\6.0\Demos\DelphiWin32\VCLWin32\RibbonControls\Ribbon Demo e abre o demo que tem lá, assim você irá entender como funcionar. *R: Entendi perfeitamente o funcionamento do Ribbon, mais uma vez.. veja ** http://www.drdsistemas.com.br/util/media/D2009.html* Sobre o refresh no seu Tool Pallete, está claro que é um problema na sua máquina, seria muita irresponsabilidade nossa liberar um produto que não fizesse refresh na página, você não acha? Vamos tentar identificar a razão do problema, preciso saber: *R: Ta certo, realmente deve ser um problema na minha máquina, o mesmo problema que causou o BUG, ops, digo, comportamento indesejado no Object Inspector no Delphi 2007, por favor não insulte a minha inteligência.* 1 - Qual o build que você está utilizando? Menu Help à About *R: Versão Trial: CodeGear(tm) Delphi(R) 2009 Version 12.0.3170.16989* 2 - Qual a configuração da sua máquina? *R: Processador Intel Dual Core E2160 1.8 GHZ, 2GB RAM DDR2, HD 250GB, Windows XP Professional SP2.* 3 - Isso acontece quando você não está usando o Camtasia? O Camtasia muda as configurações de vídeo durante a gravação *R: O problema acontece a qualquer momento*. 4 - Existem componentes de terceiro instalado? *R: Não, nenhum* O que você se refere ao Refresh do Object Inspector no Delphi 2007, foi corrigido no Delphi 2009. *R: Ok, muito bom, espero que este problema no refresh do tool pallete seja resolvido antes de Delphi 2010.* Andreano e todos, eu quero deixar claro que minha intenção não é atacar ninguem muito menos o Delphi.. afinal é com ele que pago minhas contas, só quero registrar o acontecido e de alguma forma tentar ajudar no crecimento da ferramenta, assim que possível vou postar o problema no Quality Central. att, -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com.br/ ... 2008/9/28 Andreano Lanusse [EMAIL PROTECTED] Eduardo, É brincadeira ler um email desses, ainda mais vindo de você. Você não está sabendo usar o Ribbon, primeira a mensagem que você diz ser uma exception é bem clara, diz que você não pode adicionar um TBitBtn no Ribbon e está correto. Todo o Ribbon é baseado em Actions, ou seja, tem que usar o ActionManager para adicionar os botões e outras coisas mais, você pode usar alguns outros componentes dentro do Ribbon, não todos, pois o Ribbon requer Themes. Vai no diretório C:\Users\Public\Documents\RAD Studio\6.0\Demos\DelphiWin32\VCLWin32\RibbonControls\Ribbon Demo e abre o demo que tem lá, assim você irá entender como funcionar. Sobre o refresh no seu Tool Pallete, está claro que é um problema na sua máquina, seria muita irresponsabilidade nossa liberar um produto que não fizesse refresh na página, você não acha? Vamos tentar identificar a razão do problema, preciso saber: 1 - Qual o build que você está utilizando? Menu Help à About 2 - Qual a configuração da sua máquina? 3 - Isso acontece quando você não está usando o Camtasia? O Camtasia muda as configurações de vídeo durante a gravação 4 - Existem componentes de terceiro instalado? O que você se refere ao Refresh do Object Inspector no Delphi 2007, foi corrigido no Delphi 2009. []'s *Andreano Lanusse* *Embarcadero Product Line
Re: [delphi-br] Core Lab
Já sou mais radical, uma pessoa que pede serial é a mesma coisa que um que rouva, sendo assim quem rouba pela primeira vez não merece ser preso ? Errou tem que pagar pelo erro. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] TAxTaskDialog - v.1.9 (9x, XP, Vista) - D4-D2009 + Código Fonte
Pessoal disponibilizei o código fonte do componente TAxTaskDialog que criei. baixe em http://cc.codegear.com/Item/25725 Abraço Isaque Pinheiro
[delphi-br] Conexão MS-SQL 2005 super lenta..
Boa tarde, Tentei um select usando ADO. Tem alguma configuração especial? Estou usando Delphi 7. Chegou a travar. Grato, José Maria -- Esta mensagem foi verificada pelo sistema de antivírus e acredita-se estar livre de perigo. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] TAxTaskDialog - v.1.9 (9x, XP, Vista) - D4-D2009 + C�digo Fonte
Pessoal disponibilizei o código fonte do componente TAxTaskDialog que criei. Muito legal o seu trabalho. Parabéns mesmo. Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] Fone: 27 3389 1138 - 8811 0324 Devhost - Webhost para desenvolvedores Delphi http://www.devhost.com.br [EMAIL PROTECTED]
[delphi-br] Gif animado X Delphi 2007
É possível usar GIF animado com o Delphi 2007 ou tem-se que ainda apelar para componentes de 3º? -- José Mário Silva Guedes Analista Programador Delphi http://pgviavel.blogspot.com/ [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Gif animado X Delphi 2007
A segunda opção! Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Mon, 29 Sep 2008 13:40:18 -0200 Subject: [delphi-br] Gif animado X Delphi 2007 É possível usar GIF animado com o Delphi 2007 ou tem-se que ainda apelar para componentes de 3º? -- José Mário Silva Guedes Analista Programador Delphi http://pgviavel.blogspot.com/ _ Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas e muito mais no MSN Video! http://video.msn.com/?mkt=pt-br
Re: [delphi-br] Core Lab
Vai preso, mas sai com fiança por ser reu primário.. isso é a base de qualquer constituição em qualquer país, quem nunca fez nada tem o direito de errar pela primeira vez.. []s 2008/9/29 André Yahoo [EMAIL PROTECTED] Já sou mais radical, uma pessoa que pede serial é a mesma coisa que um que rouva, sendo assim quem rouba pela primeira vez não merece ser preso ? Errou tem que pagar pelo erro. [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique --- CAMPANHA POR UMA INTERNET SEGURA Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar mensagens use SEMPRE o Cco (cópia oculta). Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar um e-mail, delete todas as informações que apareçam no corpo do e-mail e que possam ser usadas por hackers. ### [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] TAxTaskDialog - v.1.9 (9x, XP, Vista) - D4-D2009 + Código Fonte
Olá pessoal, Isaque, você está de parabéns! Corrigi erros simples listados abaixo: [Pascal Hint] AX_TaskButton.pas(36): H2219 Private symbol 'GradHorizontal' declared but never used [Pascal Warning] AX_TaskDialog.pas(1600): W1036 Variable 'objCbx' might not have been initialized [Pascal Hint] AX_TaskDialog.pas(1710): H2077 Value assigned to 'TskDlg' never used [Pascal Hint] AX_TaskDialog.pas(1727): H2077 Value assigned to 'TskDlg' never used Eu uso o BDS2006, e vou descrever o que fiz caso alguém tenha o mesmo problema: De: procedure TaskShowMessage(const Msg: string); var TskDlg: TAxTaskDialog; begin TskDlg := TAxTaskDialog.Create(nil); TskDlg.Caption := Application.Title; TskDlg.Text := Msg; TskDlg.CommonButtons := [tcbOk]; TskDlg.MainIcon := tdiInformation; try TskDlg.Execute; finally TskDlg.Free; TskDlg := nil; end; end; Para: procedure TaskShowMessage(const Msg: string); var TskDlg: TAxTaskDialog; begin TskDlg := TAxTaskDialog.Create(nil); TskDlg.Caption := Application.Title; TskDlg.Text := Msg; TskDlg.CommonButtons := [tcbOk]; TskDlg.MainIcon := tdiInformation; try TskDlg.Execute; finally TskDlg := nil; // Correction TskDlg.Free; end; end; De: function TaskMessageBox(const Msg, Title: string; Buttons: TAxTaskDialogCommonButtons; Icon: TAxTaskDialogIcon): TModalResult; var TskDlg: TAxTaskDialog; begin TskDlg := TAxTaskDialog.Create(nil); TskDlg.Caption := Title; TskDlg.Text := Msg; TskDlg.CommonButtons := Buttons; TskDlg.MainIcon := Icon; try Result := TskDlg.Execute; finally TskDlg.Free; TskDlg := nil; end; end; Para: function TaskMessageBox(const Msg, Title: string; Buttons: TAxTaskDialogCommonButtons; Icon: TAxTaskDialogIcon): TModalResult; var TskDlg: TAxTaskDialog; begin TskDlg := TAxTaskDialog.Create(nil); TskDlg.Caption := Title; TskDlg.Text := Msg; TskDlg.CommonButtons := Buttons; TskDlg.MainIcon := Icon; try Result := TskDlg.Execute; finally TskDlg := nil; // Correction TskDlg.Free; end; end; Comentei o procedimento: procedure GradHorizontal(Canvas: TCanvas; Rect: TRect; FromColor, ToColor: TColor); Na função function TAxCustomTaskDialog.DoExecute: TModalResult; fiz o seguinte: De: if objCbx nil then objCbx.Free; Para: FreeAndNil(objCbx); No demo troquei de: procedure TForm2.Button11Click(Sender: TObject); begin LB.Items.Clear; if MessageBox('O conteúdo do texto para a tarefa do diálogo é mostrado aqui, o texto será mostrado automaticamente conforme necessário.', 'TaskDialog', [tcbYes, tcbNo], tdiQuestion) = mrYES then begin LB.Items.Add('ModalResult = mrYes') end else LB.Items.Add('ModalResult = mrNo'); end; Para: procedure TForm2.Button11Click(Sender: TObject); begin LB.Items.Clear; if TaskMessageBox('O conteúdo do texto para a tarefa do diálogo é mostrado aqui, o texto será mostrado automaticamente conforme necessário.', 'TaskDialog', [tcbYes, tcbNo], tdiQuestion) = mrYES then begin LB.Items.Add('ModalResult = mrYes') end else LB.Items.Add('ModalResult = mrNo'); end; Depois disso rodou tranqüilo no BDS2006, agradeço a sua excelente colaboração! Um abraço a todos! Silvio Clécio - Mensagem original De: Isaque Pinheiro [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 29 de Setembro de 2008 11:58:42 Assunto: [delphi-br] TAxTaskDialog - v.1.9 (9x, XP, Vista) - D4-D2009 + Código Fonte Pessoal disponibilizei o código fonte do componente TAxTaskDialog que criei. baixe em http://cc.codegear. com/Item/ 25725 Abraço Isaque Pinheiro Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [DELPHI-Total] RE: [delphi-br] Primeiro Bug no Delphi 2009 - NÃO É BUG - É BUG SIM...
Ok, Andreano, vou tentar descobrir uma forma de reproduzir o ocorrido, assim como fiz em relação do Object Inspector do Delphi 2007. já te adianto que é intermitente, hoje mesmo as poucas vezes que testei não aconteceu, qualquer novidade eu entro em contato com você. E na próxima vez terei mais cuidado afim de evitar que pessoas mal intensionadas usem de qualquer oportunidade para prejudicar a vc's e ao Delphi. um abraço, -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com.br/ ... 2008/9/29 Andreano Lanusse [EMAIL PROTECTED] Eduardo, Se você identificar uma forma de como reproduzir o problema, será corrigido, agora sem isso é um problema. Entendo que sua intenção e ajudar, o problema é que muitos se aproveitam da boa vontade dos outros para nos prejudicar. Estou vendo o que pode estar acontecendo, a partir destas informações. O vídeo irá ajudar. []'s Andreano -Original Message- From: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br[mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] On Behalf Of Eduardo Silva dos Santos Sent: Sunday, September 28, 2008 11:38 PM To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br; [EMAIL PROTECTED] delphi-total%40yahoogrupos.com.br; [EMAIL PROTECTED]delphi-br-especialistas%40yahoogrupos.com.br Subject: [delphi-br] Primeiro Bug no Delphi 2009 - NÃO É BUG - É BUG SIM... Olá Andreano, vamos lá;; Eduardo, É brincadeira ler um email desses, ainda mais vindo de você. Você não está sabendo usar o Ribbon, primeira a mensagem que você diz ser uma exception é bem clara, diz que você não pode adicionar um TBitBtn no Ribbon e está correto. *R: se você verificar o vídeo que gravei vai ver que o problema acontece em outras situações, a questão do Ribbon foi a primeira na qual vi o problema, da uma olhada no video que você vai ver, a questão não é não poder adicionar o TBitBtn, a questão é o refresh ao fechar o projeto em execução.* *Perca 2 minutos do seu tempo e veja o vídeo: http://www.drdsistemas.com.br/util/media/D2009.html* Todo o Ribbon é baseado em Actions, ou seja, tem que usar o ActionManager para adicionar os botões e outras coisas mais, você pode usar alguns outros componentes dentro do Ribbon, não todos, pois o Ribbon requer Themes. Vai no diretório C:\Users\Public\Documents\RAD Studio\6.0\Demos\DelphiWin32\VCLWin32\RibbonControls\Ribbon Demo e abre o demo que tem lá, assim você irá entender como funcionar. *R: Entendi perfeitamente o funcionamento do Ribbon, mais uma vez.. veja ** http://www.drdsistemas.com.br/util/media/D2009.html* Sobre o refresh no seu Tool Pallete, está claro que é um problema na sua máquina, seria muita irresponsabilidade nossa liberar um produto que não fizesse refresh na página, você não acha? Vamos tentar identificar a razão do problema, preciso saber: *R: Ta certo, realmente deve ser um problema na minha máquina, o mesmo problema que causou o BUG, ops, digo, comportamento indesejado no Object Inspector no Delphi 2007, por favor não insulte a minha inteligência.* 1 - Qual o build que você está utilizando? Menu Help à About *R: Versão Trial: CodeGear(tm) Delphi(R) 2009 Version 12.0.3170.16989* 2 - Qual a configuração da sua máquina? *R: Processador Intel Dual Core E2160 1.8 GHZ, 2GB RAM DDR2, HD 250GB, Windows XP Professional SP2.* 3 - Isso acontece quando você não está usando o Camtasia? O Camtasia muda as configurações de vídeo durante a gravação *R: O problema acontece a qualquer momento*. 4 - Existem componentes de terceiro instalado? *R: Não, nenhum* O que você se refere ao Refresh do Object Inspector no Delphi 2007, foi corrigido no Delphi 2009. *R: Ok, muito bom, espero que este problema no refresh do tool pallete seja resolvido antes de Delphi 2010.* Andreano e todos, eu quero deixar claro que minha intenção não é atacar ninguem muito menos o Delphi.. afinal é com ele que pago minhas contas, só quero registrar o acontecido e de alguma forma tentar ajudar no crecimento da ferramenta, assim que possível vou postar o problema no Quality Central. att, -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com Site: http://www.drdsistemas.com.br/ ... 2008/9/28 Andreano Lanusse [EMAIL PROTECTED]andreano.lanusse%40codegear.com Eduardo, É brincadeira ler um email desses, ainda mais vindo de você. Você não está sabendo usar o Ribbon, primeira a mensagem que você diz ser uma exception é bem clara, diz que você não pode adicionar um TBitBtn no Ribbon e está correto. Todo o Ribbon é baseado em Actions, ou seja, tem que usar o ActionManager
Re: [delphi-br] Core Lab
Amigo, compra o Driver aqui: http://devart.com/dbx/ordering.html 2008/9/29 Pedro Henrique [EMAIL PROTECTED] Alguem tem crack dos drives de Sql Server do Core Lab para dbExpress? Parte superior do formulário Parte inferior do formulário Parte superior do formulário _ Atenciosamente, http://www.vienasistemas.com.br/assinatura.png Pedro Henrique Gomes Projetos e Desenvolvimento ( MG (37) 3213-4855 * mailto:[EMAIL PROTECTED] pedro%40vilesoft.com.br [EMAIL PROTECTED] pedro%40vilesoft.com.br 8 http://www.vilesoft.com.br/ www.vilesoft.com.br http://www.vienasistemas.com.br/images/bn_franquia_pegn.gif Parte inferior do formulário Parte superior do formulário O emitente desta mensagem é responsável por seu conteúdo e endereçamento. Cabe ao destinatário cuidar quanto ao tratamento adequado. Sem a devida autorização, a divulgação, a reprodução, a distribuição ou qualquer outra ação em desconformidade com as normas internas da Vilesoft são proibidas e passíveis de sanção disciplinar, cível e criminal. The sender of this message is responsible for its content and addressing. The receiver shall take proper care of it. Without due authorization, the publication, reproduction, distribution or the performance of any other action not conforming to Vilesoft internal policies and procedures is forbidden and liable to disciplinary, civil or criminal sanctions. El emisor de este mensaje es responsable por su contenido y direccionamiento. Cabe al destinatario darle el tratamiento adecuado. Sin la debida autorización, su divulgación, reproducción, distribución o cualquier otra acción no conforme a las normas internas de Vilesoft están prohibidas y serán pasibles de sanción disciplinaria, civil y penal. Parte inferior do formulário [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.br/ ... [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Core Lab
Desculpa aí foi mal esquici desta parta das regras É que a minha licença Trial venceu e estou precisando de usar o sistema, heheh Agora caso alguém saiba de algum drive gratuito que implemente o mapeamento do campo NVACHAR no Oracle e SQL Server para String e não WideString como o Delphi 2007 faz vou ser grato. Parte superior do formulário Parte inferior do formulário Parte superior do formulário _ Atenciosamente, http://www.vienasistemas.com.br/assinatura.png Pedro Henrique Gomes Projetos e Desenvolvimento ( MG (37) 3213-4855 * mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] 8 http://www.vilesoft.com.br/ www.vilesoft.com.br http://www.vienasistemas.com.br/images/bn_franquia_pegn.gif Parte inferior do formulário Parte superior do formulário O emitente desta mensagem é responsável por seu conteúdo e endereçamento. Cabe ao destinatário cuidar quanto ao tratamento adequado. Sem a devida autorização, a divulgação, a reprodução, a distribuição ou qualquer outra ação em desconformidade com as normas internas da Vilesoft são proibidas e passíveis de sanção disciplinar, cível e criminal. The sender of this message is responsible for its content and addressing. The receiver shall take proper care of it. Without due authorization, the publication, reproduction, distribution or the performance of any other action not conforming to Vilesoft internal policies and procedures is forbidden and liable to disciplinary, civil or criminal sanctions. El emisor de este mensaje es responsable por su contenido y direccionamiento. Cabe al destinatario darle el tratamiento adecuado. Sin la debida autorización, su divulgación, reproducción, distribución o cualquier otra acción no conforme a las normas internas de Vilesoft están prohibidas y serán pasibles de sanción disciplinaria, civil y penal. Parte inferior do formulário De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Fellipe Henrique Enviada em: 29 de setembro de 2008 13:07 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Core Lab Vai preso, mas sai com fiança por ser reu primário.. isso é a base de qualquer constituição em qualquer país, quem nunca fez nada tem o direito de errar pela primeira vez.. []s 2008/9/29 André Yahoo [EMAIL PROTECTED] mailto:gyncowboy%40yahoo.com.br Já sou mais radical, uma pessoa que pede serial é a mesma coisa que um que rouva, sendo assim quem rouba pela primeira vez não merece ser preso ? Errou tem que pagar pelo erro. [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique -- CAMPANHA POR UMA INTERNET SEGURA Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar mensagens use SEMPRE o Cco (cópia oculta). Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar um e-mail, delete todas as informações que apareçam no corpo do e-mail e que possam ser usadas por hackers. ### [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Diferença entre datas
Boa tarde a todos. Gostaria de saber se usando PARADOX tem como eu obter a diferença de dias entre duas datas. Se possível, qual o comando? SELECT (DATAATUAL - Data_Vencimento) AS Diferença Eu pesquisei na internet e encontrei a instrução SELECT DATEDIFF(NOW(); Data_Vencimento) porém não funciona. Recebo a mensagem: CAPABILITY NOT SUPPORTED. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] TAxTaskDialog - v.1.9 (9x, XP, Vista) - D4-D2009 + C�digo Fonte
try TskDlg.Execute; finally TskDlg := nil; // Correction TskDlg.Free; end; Acho que isso vai dar erro. O correto seria usar FreeAndNil, como vc usou em outra parte. Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] Fone: 27 3389 1138 - 8811 0324 Devhost - Webhost para desenvolvedores Delphi http://www.devhost.com.br [EMAIL PROTECTED]
Res: [delphi-br] TAxTaskDialog - v.1.9 (9x, XP, Vista) - D4-D2009 + Código Fonte
Olá pessoal, Não deu erro não, coloquei um timer para fechar a aplicação de uma forma forçada (para provocar um erro), usando o ReportMemoryLeaksOnShutdown e não deu problema, mas por via das dúvidas vou usar o FreeAndNil, porque testei com ele e não deu nenhum erro também. Mais uma vês, valeu pela colaboração, posso colocar no link: http://www.4shared.com/dir/5679510/48848609/Uploads.html? Um abraço a todos! Silvio Clécio - Mensagem original De: Jackson Gomes - ToolsComps [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 29 de Setembro de 2008 13:13:01 Assunto: Re: [delphi-br] TAxTaskDialog - v.1.9 (9x, XP, Vista) - D4-D2009 + Código Fonte try TskDlg.Execute; finally TskDlg := nil; // Correction TskDlg.Free; end; Acho que isso vai dar erro. O correto seria usar FreeAndNil, como vc usou em outra parte. Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsand comps.com Nosso Fórum: http://groups. yahoo.com/ group/toolsandco mps e-mail: [EMAIL PROTECTED] ps.com Fone: 27 3389 1138 - 8811 0324 - - - - - - Devhost - Webhost para desenvolvedores Delphi http://www.devhost. com.br [EMAIL PROTECTED] com.br . Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] TAxTaskDialog - v.1.9 (9x, XP, Vista) - D4-D2009 + Código Fonte
Parabéns amigo, temos que incentivar ações assim. []s 2008/9/29 Isaque Pinheiro [EMAIL PROTECTED] Pessoal disponibilizei o código fonte do componente TAxTaskDialog que criei. baixe em http://cc.codegear.com/Item/25725 Abraço Isaque Pinheiro -- _ T.·.F.·.A.·. Fellipe Henrique --- CAMPANHA POR UMA INTERNET SEGURA Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar mensagens use SEMPRE o Cco (cópia oculta). Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar um e-mail, delete todas as informações que apareçam no corpo do e-mail e que possam ser usadas por hackers. ### [As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] Gerador de aplicacao
É, não gera pra Delphi mesmo não... Gera VB, C# win, asp.net, Java win e web, cobol, fox pro…SGDBs, Oracle, sql server, Mysql, Postgree, e Access para testes mais simples... e isso na versão 9.0. Para a versão 10, .net/java win/web e ruby. Ferramenta com bom tempo de estrada, produção muito rápida, não é difícil de aprendertem vários vídeosum homem consegue produzir por 3 a 5. Bem, baixe o Trial, faça uns testes e veja vc mesmose quer produção, é uma excelente ferramenta. Existem Tb o maker e o speedcase, mas estas eu não conheço, portando não posso comentar sobre. []’s Topolniak. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rubem Nascimento da Rocha Enviada em: segunda-feira, 29 de setembro de 2008 10:17 Para: delphi-br@yahoogrupos.com.br Assunto: RE: RES: [delphi-br] Gerador de aplicacao Prioridade: Alta Se tiver gente na equipe de desenvolvimento com experiência em Visual FoxPro, VB ou Java, pode usar o Genexus. Eu já vi ele rodando, e ele o cão chupando manga! Mas, infelizmente, não gera sistemas para Delphi. :( Sds. To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br From: [EMAIL PROTECTED] mailto:topolniak%40bol.com.br Date: Mon, 29 Sep 2008 09:04:41 -0300 Subject: RES: [delphi-br] Gerador de aplicacao De uma pesquisada sobre Genexus. []’s Topolniak. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Wainer Enviada em: domingo, 28 de setembro de 2008 16:43 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] Gerador de aplicacao Amigos A empresa onde trabalho, esta querendo utilizar algum gerador de aplicacao (speedcase,maker,etc), para ter um padrao de aplicativo e um reducao de tempo de programacao. ai vem a pergunta alguem aqui utiliza um gerador deste tipo? quais sao os pros e contras? existe um best of the best ou segue a maxima de qual voce se adpata melhor aqui o pessoal esta muito tendencioso para o spedcase. obrigado Wainer 16--6697 16-9101-1757 Wisa soft 16-3721-7187 o[|||]o ▓-o---▓ CJ3A - 49 __ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] RE: [NDDV] Re: Primeiro Bug no Del phi 2009 - NÃO É BUG
Quando fui instalar o D7 (Delphi SETE) no VISTA... Logo no começo ja fala que é imcopativel e tem problemas, nem liguei... Bom assim mesmo mandei correr a instalação... Quando fui abrir o D7 a mesma mensagem, agora fui verificar, e vi q ela falava que ja tinha solução... tipo: CLIQUE AQUI PARA VER A SOLUÇÃO do problema... Cliquei e.. cai na pagina de entrada da BORLAND kk Já pensei, tão malucos... EU!? ATUALIZA!? ta sei... vamos ver o que pode ser O Problema´é a falta do WINHLP.EXE no VISTA só procurar no google, que ele ja´acha o caminho na microsoft, vc faz o download, e blz.. 100%... af, tavam de brincadeira. tira meu D7 para colocar um D2kX? ALIAS queria saber... se tem jeito de copiar meu D7 que esta no XP e colocar no VISTA... sem ter que instalar TUDO novamente.. PQ na realidade é o seguinte.. Numa mesma maquina com 2 HD´s, um com XP outro (agora) com VISTA, estou migrando gradativamente para o VISTA. então já queria passar o DELPHI com todos os componentes ja instalados. (são tantos...), todos componentes de terceiros, ficam no DRIVE D:, JVCL, MyDAC, etc. etc.. etc..., então agora q ja instalei o D7 no VISTA, queria compiar do XP, no VISTA porem sei que tem uns lances do registro, alguem sabe onde estão estas chaves, nem vo pedi pro ADREANO e pro BRUNO, que sei q não vão passar mesmo Assim já libero o XP, e posso formatar a area dele pq todos os outros programas para serem instalados no VISTA, já ficam no DRIVE D: também, e ja instalei todos... só falta migrar esse ADD´s do DELPHI, mas é um saco fica compila, instalar, etc. etc.. etc... se alguem ja fez e tiver a receita do bolo. blz. também acho que pode ser bem mais trabalhoso, deste jeito. se o delphi tiver varias entradas no regsitro. se for um entrada unica, seria só salvar de um e jogar no outro.. se não for, ai ferrouuu, vou ter que ir nos ADDs um à um mesmo.. faze o que.. AH! não to indo pro VISTA pq eu quero. e sim pq eu preciso, alguns programas meus (de audio) se mostraram incompativeis ao VISTA e vou ter que arrumar.por isso acabei comprando um copia do VISTA e to tento que migrar de um pro outro(faze o q, acabam sempre vencendo pelo cansaço) []s Luiz Escobar - Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/ASSEMBLY/MySQL/xBase SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse11), Windows 2K/XP HARBOUR -- Borland C++ 5.5.1 (32 bit) Harbour 1.0.0 Intl. (Rev. 9175) xHarbour Compile build 1.1.0 (Simplex) Harbour MiniGUI 1.5 Extended Edition (Build 55) - 2008.08.26 --- From: Fellipe Henrique Sent: Monday, September 29, 2008 8:46 AM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] RE: [NDDV] Re: Primeiro Bug no Delphi 2009 - NÃO É BUG Acredito que como um bom comerciante, eles não vão soltar update pro 2007, pois é mais rentável pra eles, você pagar o 2009... tomara que esteja errado.. mas... negócios são negócios, infelizmente... Só pra por um ponto, esses erros, bugs, citados, até o momento não consegui faze-los aqui na minha maquina... :o) ainda bem... hehehe já fiz o que tem no video e nada... continua numa boa... []s 2008/9/29 Vinicius Santos - MSI [EMAIL PROTECTED] Adriano, só por curiosidade, adquirimos uma lincença do Delphi 2007este ano, e vc disse que tal bug(no Object Inspector) foi corrigido no Delphi 2009, este erro será corrigido no Delphi 2007 também ? Pois não iremos lincenciar o Delphi 2009 já, por razões já citadas. Obrigado Vinicius dos Santos http://www.msisolucoes.com.br -Mensagem Original- De: Andreano Lanusse Para: [EMAIL PROTECTED] NDDV%40yahoogrupos.com.br ; delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br ; [EMAIL PROTECTED] delphi-total%40yahoogrupos.com.br ; [EMAIL PROTECTED]delphi-br-especialistas%40yahoogrupos.com.br Enviada em: domingo, 28 de setembro de 2008 11:47 Assunto: [delphi-br] RE: [NDDV] Re: Primeiro Bug no Delphi 2009 - NÃO É BUG Eduardo, É brincadeira ler um email desses, ainda mais vindo de você. Você não está sabendo usar o Ribbon, primeira a mensagem que você diz ser uma exception é bem clara, diz que você não pode adicionar um TBitBtn no Ribbon e está correto. Todo o Ribbon é baseado em Actions, ou seja, tem que usar o ActionManager para adicionar os botões e outras coisas mais, você pode usar alguns outros componentes dentro do Ribbon, não todos, pois o Ribbon requer Themes. Vai no diretório C:\Users\Public\Documents\RAD Studio\6.0\Demos\DelphiWin32\VCLWin32\RibbonControls\Ribbon Demo e abre o demo que tem lá, assim você irá entender como funcionar. Sobre o refresh no seu Tool Pallete, está claro que é um
[delphi-br] Componente
Lista Estou criando um componente que vai ser responsavel por configurar o banco de dados do Cliente atraves de um arquivo ini, e neste componente quero colocar um formulario para a configuração , caso não consiga conexão... e esta dando erro quando ele vai puxar o formulario responsável pela configuração segue o codigo que chama o formulario { Mostra a tela de Configuração } procedure TConfigbanco.MostraTelaConfiguracao; var Tela : TFrmConfiguraBanco ; begin if Tela = nil then begin Tela := TFrmConfiguraBanco.Create( nil ); Tela.ShowModal ; end else Tela.ShowModal; end; O TFrmConfiguraBanco é um formulakrio que criei no componente, como devo chama-lo é assim mesmo ??? Obrigado... Wesley [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Core Lab
Parceiro. Isso é proibido na lista.! Wagner De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Pedro Henrique Enviada em: segunda-feira, 29 de setembro de 2008 11:11 Para: [EMAIL PROTECTED]; delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Core Lab Alguem tem crack dos drives de Sql Server do Core Lab para dbExpress? Parte superior do formulário Parte inferior do formulário Parte superior do formulário _ Atenciosamente, http://www.vienasistemas.com.br/assinatura.png Pedro Henrique Gomes Projetos e Desenvolvimento ( MG (37) 3213-4855 * mailto:[EMAIL PROTECTED] mailto:pedro%40vilesoft.com.br [EMAIL PROTECTED] mailto:pedro%40vilesoft.com.br 8 http://www.vilesoft.com.br/ www.vilesoft.com.br http://www.vienasistemas.com.br/images/bn_franquia_pegn.gif Parte inferior do formulário Parte superior do formulário O emitente desta mensagem é responsável por seu conteúdo e endereçamento. Cabe ao destinatário cuidar quanto ao tratamento adequado. Sem a devida autorização, a divulgação, a reprodução, a distribuição ou qualquer outra ação em desconformidade com as normas internas da Vilesoft são proibidas e passíveis de sanção disciplinar, cível e criminal. The sender of this message is responsible for its content and addressing. The receiver shall take proper care of it. Without due authorization, the publication, reproduction, distribution or the performance of any other action not conforming to Vilesoft internal policies and procedures is forbidden and liable to disciplinary, civil or criminal sanctions. El emisor de este mensaje es responsable por su contenido y direccionamiento. Cabe al destinatario darle el tratamiento adecuado. Sin la debida autorización, su divulgación, reproducción, distribución o cualquier otra acción no conforme a las normas internas de Vilesoft están prohibidas y serán pasibles de sanción disciplinaria, civil y penal. Parte inferior do formulário [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] Primeiro Bug no Delphi 2009 - NÃO É BUG
Tenho o D7, D2006 e trial do D2009 na mesma máquina com Windows Vista Business SP1, e todos funcionam normalmente. E minha máquina não é lá grande coisa em termos de hardware. O mesmo ocorre em máquinas com Windows XP Prof SP3, tudo funciona. Tem uma que tem até o D3 também. Luciano Calenzani Simões - Mensagem original De: Luiz ESCobar [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 29 de Setembro de 2008 14:29:03 Assunto: Re: [delphi-br] RE: [NDDV] Re: Primeiro Bug no Delphi 2009 - NÃO É BUG Quando fui instalar o D7 (Delphi SETE) no VISTA... Logo no começo ja fala que é imcopativel e tem problemas, nem liguei.. . Bom assim mesmo mandei correr a instalação ... Quando fui abrir o D7 a mesma mensagem, agora fui verificar, e vi q ela falava que ja tinha solução... tipo: CLIQUE AQUI PARA VER A SOLUÇÃO do problema ... Cliquei e.. cai na pagina de entrada da BORLAND kk Já pensei, tão malucos... EU!? ATUALIZA!? ta sei... vamos ver o que pode ser O Problema´é a falta do WINHLP.EXE no VISTA... . só procurar no google, que ele ja´acha o caminho na microsoft, vc faz o download, e blz.. 100%... af, tavam de brincadeira. tira meu D7 para colocar um D2kX? Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Componente
Pessoal Achei a solução... { Mostra a tela de Configuração } procedure TConfigbanco.MostraTelaConfiguracao; begin if FrmConfiguraBanco = nil then begin Application.CreateForm( TFrmConfiguraBanco , FrmConfiguraBanco ); FrmConfiguraBanco.ShowModal ; end else FrmConfiguraBanco.ShowModal ; end; vlw... Wesley From: BandaLemuel Sent: Monday, September 29, 2008 2:53 PM To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Componente Lista Estou criando um componente que vai ser responsavel por configurar o banco de dados do Cliente atraves de um arquivo ini, e neste componente quero colocar um formulario para a configuração , caso não consiga conexão... e esta dando erro quando ele vai puxar o formulario responsável pela configuração segue o codigo que chama o formulario { Mostra a tela de Configuração } procedure TConfigbanco.MostraTelaConfiguracao; var Tela : TFrmConfiguraBanco ; begin if Tela = nil then begin Tela := TFrmConfiguraBanco.Create( nil ); Tela.ShowModal ; end else Tela.ShowModal; end; O TFrmConfiguraBanco é um formulakrio que criei no componente, como devo chama-lo é assim mesmo ??? Obrigado... Wesley [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 3480 (20080929) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] duvida sobre querys
gostaria de saber se existe alguma maneira de eu inserir os campos de uma tabela numa query em tempo de execução -- Leonardo Carlos Baldino - The Highlander
Re: [delphi-br] Criar Receituário Médico
Obrigado as respostas, mas acho que a galera não entedeu o que eu quis dizer Meu problema não é em SQL... o que eu quero é o seguinte(hipotse) eu selecionar os medicamentos e ir adicionando em um TStringList conforme for sendo incluido, porem agrupados e se for apertado deleteapagar... eu pensei em criar o preview como um formulario usando algo parecido com o DBCtrlGrid Eu vou tentar terminar de montar o layout da tela e disponibilizar aki para ver se fica mais claro... Mas obrigado pela colaboração Att.: Ricardo Mendes Departamento de Informática Tel. (41) 2109-7716 - Original Message - From: Rodrigo Bevilacqua Marcondes To: delphi-br@yahoogrupos.com.br Sent: Monday, September 29, 2008 11:10 AM Subject: Res: [delphi-br] Criar Receituário Médico SELECT nome do paciente, medicamento, dose, posologia, RR.meio de administração do medicamento FROM dados da receita INNER JOIN receita RR ON(RR.CAMPO=CAMPO) GROUP BY RR.meio de administração do medicamento ORDER BY RR.meio de administração do medicamento - Rodrigo ®¿® - Mensagem original De: Rick - Gmail [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 29 de Setembro de 2008 9:32:41 Assunto: [delphi-br] Criar Receituário Médico Bom dia galera, Tenho uma duvida e gostaria da ajuda de vcs Estou terminando um sistema de clinica odontologicae agora preciso gerar o receituario automatico A duvida é o seguinte... Eu tenho os dados da receita...nome do paciente, medicamento, dose, posologia...etc... E quero que ao selecionar um medicamento ele monte um preview da receita antes de gera-la para impressão porém eu tenho na receita o meio de administração do medicamento e eles tem que ser agrupados conforme a administração... Ex.: Uso Interno: Medicamento x - 1cx Uso Externo: Medicamento x y - - 2 cps Uso Interno Medicamento x - 1cx Além dissovamos colocar que o dentista adicionou um medicamento erradopreciso deletar esse medicamento do receituario. Uso D7 e firebird... Att.: Ricardo Mendes Departamento de Informática Tel. (41) 2109-7716 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Gerar Arquivo Texto
Pessoal Preciso gerar um arquivo texto para importação em outro sistema, como um arquivo que a linha é muito grande, tenho que saber se a informação está sendo gerada na posição/coluna correta, qual programa vocês utilizam para verificar posicionamento de colunas em um arquivo texto, pelo Edit do MS-DOS não está dando mais... rsrsrrs? att. Juliano [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Qual melhor gerador de relatórios free?
Gostaria de saber qual o melhor gerador de relatórios gratuito, Que envie email, e exporte para excell,pdf e etc... [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Gerar Arquivo Texto
eu uso o NotePad ++ e tem conttxt se não me engano... de uma olhada são Free abraço 2008/9/29 Juliano Silva - Yahoo [EMAIL PROTECTED] Pessoal Preciso gerar um arquivo texto para importação em outro sistema, como um arquivo que a linha é muito grande, tenho que saber se a informação está sendo gerada na posição/coluna correta, qual programa vocês utilizam para verificar posicionamento de colunas em um arquivo texto, pelo Edit do MS-DOS não está dando mais... rsrsrrs? att. Juliano [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] Gerar Arquivo Texto
bloco de notas do windows - Original Message - From: Juliano Silva - Yahoo To: delphi-br@yahoogrupos.com.br Sent: Monday, September 29, 2008 3:11 PM Subject: [delphi-br] Gerar Arquivo Texto Pessoal Preciso gerar um arquivo texto para importação em outro sistema, como um arquivo que a linha é muito grande, tenho que saber se a informação está sendo gerada na posição/coluna correta, qual programa vocês utilizam para verificar posicionamento de colunas em um arquivo texto, pelo Edit do MS-DOS não está dando mais... rsrsrrs? att. Juliano [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG - http://www.avg.com Version: 8.0.169 / Virus Database: 270.7.5/1697 - Release Date: 29/9/2008 07:40 [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Gerar Arquivo Texto
Notepad++ Luciano Calenzani Simões - Mensagem original De: Juliano Silva - Yahoo [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 29 de Setembro de 2008 15:11:30 Assunto: [delphi-br] Gerar Arquivo Texto Pessoal Preciso gerar um arquivo texto para importação em outro sistema, como um arquivo que a linha é muito grande, tenho que saber se a informação está sendo gerada na posição/coluna correta, qual programa vocês utilizam para verificar posicionamento de colunas em um arquivo texto, pelo Edit do MS-DOS não está dando mais... rsrsrrs? att. Juliano Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Enviar e-mail pelo sistema
O Delphi 5 não tem a aba Fastnet? Creio que sim... Use o componente SMTP dela... e vc consegue anexar arquivos. Só não conseguirá fazer conexão segura ao servidor, eu acho... tem de ver... mas acho que os componentes Indy têm instalação para o D5, ou não? Sds Emanuel Alex Leão escreveu: Luciano, Valeu mas eu uso ainda o Delphi 5. - Original Message - From: Luciano Calenzani Simões To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Sunday, September 28, 2008 4:35 PM Subject: Res: [delphi-br] Enviar e-mail pelo sistema Anexe o arquivo ao e-mail. Use como exemplo o artigo http://www.activedelphi.com.br/print.php?sid=187 http://www.activedelphi.com.br/print.php?sid=187 Luciano Calenzani Simões - Mensagem original De: Alex Leão [EMAIL PROTECTED] mailto:alex_fib%40yahoo.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Domingo, 28 de Setembro de 2008 13:42:44 Assunto: [delphi-br] Enviar e-mail pelo sistema Pessoal, Preciso que meu sistema envie relatórios por e-mail. A parte de gerar e salvar o relatótio eu já fiz, mas a parte de enviar o e-mail tá lenha ... Alguém tem alguma rotina para me ajudar? Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Usando dbExpress No Delphi 6 - Login Prompt
Engraçado... Tinha usado a opção Login prompt False... já... aí, o que aconteceu... Peguei um ClientDataset da Paleta data access, fiz a conexão com o Dataset provider, e um sqlQuery.. e funcionou... Quando voltei a usar o componente ClientDataset do dbExpress não pediu + o login na conexão... Abrí para testeum arquqivo, coloquei num grid... e bingo... Rodou xupeta!!! Valeu pessoal... Obrigado!!! carlos eduardo pacheco menezes escreveu: verifique se a propriedade LoginPrompt do sqlconnection está como True, Caso esteja mude para False. - Mensagem original De: Coutinho - Yahoo [EMAIL PROTECTED] mailto:emanuelcoutinho%40yahoo.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Segunda-feira, 29 de Setembro de 2008 1:03:27 Assunto: [delphi-br] Usando dbExpress No Delphi 6 - Login Prompt Pessoal Estou usando o DBExpress com banco de dados firebird. Estou querendo qque o sistema abra uma tabela de configuração do meu programa, e para isso tem de conectar no banco. Só que peço que o componente sqlConection deixe a conexão sem efetuar login... conecte diretamente. Na conexão já tem o usuário Sysdba e senma masterkey... só que não quero que faça o login, pois vou validar os usuários no sistema, e não no banco. Alguém sabe o porquê de o banco ficar pedindo senha para conexão? Já fui no IBExpress e verifiquei, e não consigo achar uma ração... no Delphi 2006 funciona... faz a conexão no mesmo banco sem problemas... Alguém tem como me ajudar? É bug do dbExpress? Agradeço desde já. Sds Emanuel Coutinho Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Gerar Arquivo Texto
Valew a todos pelas indicações, obrigado... De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Luciano Calenzani Simões Enviada em: segunda-feira, 29 de setembro de 2008 15:27 Para: delphi-br@yahoogrupos.com.br Assunto: Res: [delphi-br] Gerar Arquivo Texto Notepad++ Luciano Calenzani Simões - Mensagem original De: Juliano Silva - Yahoo [EMAIL PROTECTED] mailto:smjjuliano%40yahoo.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Segunda-feira, 29 de Setembro de 2008 15:11:30 Assunto: [delphi-br] Gerar Arquivo Texto Pessoal Preciso gerar um arquivo texto para importação em outro sistema, como um arquivo que a linha é muito grande, tenho que saber se a informação está sendo gerada na posição/coluna correta, qual programa vocês utilizam para verificar posicionamento de colunas em um arquivo texto, pelo Edit do MS-DOS não está dando mais... rsrsrrs? att. Juliano Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 3480 (20080929) __ 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] Enviar e-mail pelo sistema
Coutinho - Yahoo wrote: O Delphi 5 não tem a aba Fastnet? Creio que sim... Use o componente SMTP dela... e vc consegue anexar arquivos. Só não conseguirá fazer conexão segura ao servidor, eu acho... tem de ver... Parece que não tem mesmo, o que torna o componente inútil nos dias de hoje. mas acho que os componentes Indy têm instalação para o D5, ou não? Tem sim. Indy9 e D5 vão que é uma beleza. E com autenticação smtp. Joao Morais
Re: [delphi-br] Componente
no lugar do if do nil vc pode usar not assigned Uberdam Cavaletti Formado em Tecnologia da Informação - Unoesc - Xxe Pós-graduado em desenvolvimento Java - Unoesc - Xxe http://www.curricular.com.br/berdam Visite http://passandoveneno.blogspot.com --- Em seg, 29/9/08, BandaLemuel [EMAIL PROTECTED] escreveu: De: BandaLemuel [EMAIL PROTECTED] Assunto: Re: [delphi-br] Componente Para: delphi-br@yahoogrupos.com.br Data: Segunda-feira, 29 de Setembro de 2008, 15:03 Pessoal Achei a solução... { Mostra a tela de Configuração } procedure TConfigbanco. MostraTelaConfig uracao; begin if FrmConfiguraBanco = nil then begin Application. CreateForm( TFrmConfiguraBanco , FrmConfiguraBanco ); FrmConfiguraBanco. ShowModal ; end else FrmConfiguraBanco. ShowModal ; end; vlw... Wesley From: BandaLemuel Sent: Monday, September 29, 2008 2:53 PM To: [EMAIL PROTECTED] os.com.br Subject: [delphi-br] Componente Lista Estou criando um componente que vai ser responsavel por configurar o banco de dados do Cliente atraves de um arquivo ini, e neste componente quero colocar um formulario para a configuração , caso não consiga conexão... e esta dando erro quando ele vai puxar o formulario responsável pela configuração segue o codigo que chama o formulario.. .. { Mostra a tela de Configuração } procedure TConfigbanco. MostraTelaConfig uracao; var Tela : TFrmConfiguraBanco ; begin if Tela = nil then begin Tela := TFrmConfiguraBanco. Create( nil ); Tela.ShowModal ; end else Tela.ShowModal; end; O TFrmConfiguraBanco é um formulakrio que criei no componente, como devo chama-lo é assim mesmo ??? Obrigado... Wesley [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 3480 (20080929) __ The message was checked by ESET NOD32 Antivirus. http://www.eset. com [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Necessito urgente de um sistema completo de Controle de Ponto e Frequencia
Boa tarde pessoal, Surgiu uma demanda urgente para levantamento de requisitos de um sistema de ponto e freqüência e eu gostaria de saber quem tem algum sistema funcional em Delphi ou PHP que queira negociar os fontes. Lembrando que será apenas para levantamento de requisitos, ou seja, as funcionalidades seram incorporadas no meu sistema de igreja que já está em funcionamento, mas o meu cliente necessita dessa funcionalidade incorporada no mesmo. Eu infelizmente não tenho tempo para desenvolver algo do zero e/ou levantar os requisitos e todas as necessidades básicas, mas necessito de algo que já esteja em funcionamento com pelo menos as funções básica de um controle de ponto. Obs.: Já desenvolvi a plataforma que captura o ponto do funcionário através de um leitor biométrico (FingKey Hamster I), mas as funcionalidades de controle e gerenciamento eu necessito com certa urgência pois tenho prazo para colocar no ar. Obrigado antecipado amigos, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF
Re: [delphi-br] Componente
Uma pergunta.. Como crio eventos que mostrem no object inpector... ??? Wesley From: BandaLemuel Sent: Monday, September 29, 2008 3:03 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Componente Pessoal Achei a solução... { Mostra a tela de Configuração } procedure TConfigbanco.MostraTelaConfiguracao; begin if FrmConfiguraBanco = nil then begin Application.CreateForm( TFrmConfiguraBanco , FrmConfiguraBanco ); FrmConfiguraBanco.ShowModal ; end else FrmConfiguraBanco.ShowModal ; end; vlw... Wesley From: BandaLemuel Sent: Monday, September 29, 2008 2:53 PM To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Componente Lista Estou criando um componente que vai ser responsavel por configurar o banco de dados do Cliente atraves de um arquivo ini, e neste componente quero colocar um formulario para a configuração , caso não consiga conexão... e esta dando erro quando ele vai puxar o formulario responsável pela configuração segue o codigo que chama o formulario { Mostra a tela de Configuração } procedure TConfigbanco.MostraTelaConfiguracao; var Tela : TFrmConfiguraBanco ; begin if Tela = nil then begin Tela := TFrmConfiguraBanco.Create( nil ); Tela.ShowModal ; end else Tela.ShowModal; end; O TFrmConfiguraBanco é um formulakrio que criei no componente, como devo chama-lo é assim mesmo ??? Obrigado... Wesley [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 3480 (20080929) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 3480 (20080929) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Enviar e-mail pelo sistema
Alex, A rotina abaixo gera uma nova msg no cliente de e-mail default do windows. Se passar o parâmetro confirma como false, ele envia a msg automaticamente, se passar como true o e-mail é mostrado em tela, com tudo pronto, destinatario, assunto, corpo e anexo, só faltando clicar no botão enviar. [] Andrei function EnviarEMail(const De, Para, CC, Assunto, Texto, Arquivo:string; Confirma: Boolean): Integer; var Msg: TMapiMessage; lpSender, lpRecepient, lpComCopia: TMapiRecipDesc; FileAttach: TMapiFileDesc; SM: TFNMapiSendMail; MAPIModule: HModule; Flags: Cardinal; begin // cria propriedades da mensagem FillChar(Msg, SizeOf(Msg), 0); with Msg do begin if (Assunto '') then lpszSubject := PChar(Assunto); if (Texto '') then lpszNoteText := PChar(Texto);//Corpo da Mensagem // remetente if (De '') then begin lpSender.ulRecipClass := MAPI_ORIG; lpSender.lpszName := PChar(De); lpSender.lpszAddress := PChar(De); lpSender.ulReserved := 0; lpSender.ulEIDSize := 0; lpSender.lpEntryID := nil; lpOriginator := @lpSender; end; // destinatário if (Para '') then begin lpRecepient.ulRecipClass := MAPI_TO; lpRecepient.lpszName := PChar(Para); lpRecepient.lpszAddress := PChar(Para); lpRecepient.ulReserved := 0; lpRecepient.ulEIDSize := 0; lpRecepient.lpEntryID := nil; nRecipCount := 1; lpRecips := @lpRecepient; end else lpRecips := nil; if (CC '') then begin lpComCopia.ulRecipClass := MAPI_CC; lpComCopia.lpszName := PChar(CC); lpComCopia.lpszAddress := PChar(CC); lpComCopia.ulReserved := 0; lpComCopia.ulEIDSize := 0; lpComCopia.lpEntryID := nil; nRecipCount := 2; lpRecips := @lpComCopia; end; // else // lpRecips := nil; // arquivo anexo if (Arquivo = '') then begin nFileCount := 0; lpFiles := nil; end else begin FillChar(FileAttach, SizeOf(FileAttach), 0); FileAttach.nPosition := Cardinal($); FileAttach.lpszPathName := PChar(Arquivo); nFileCount := 1; lpFiles := @FileAttach; end; end; // carrega dll e o método para envio do email MAPIModule := LoadLibrary(PChar(MAPIDLL)); if MAPIModule = 0 then Result := -1 else try if Confirma then Flags := MAPI_DIALOG or MAPI_LOGON_UI else Flags := 0; @SM := GetProcAddress(MAPIModule, 'MAPISendMail'); if @SM nil then Result := SM(0, Application.Handle, Msg, Flags, 0) else Result := 1; finally FreeLibrary(MAPIModule); end; end; 2008/9/28 Alex Leão [EMAIL PROTECTED] Pessoal, Preciso que meu sistema envie relatórios por e-mail. A parte de gerar e salvar o relatótio eu já fiz, mas a parte de enviar o e-mail tá lenha ... Alguém tem alguma rotina para me ajudar? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Core Lab
Fellipe Henrique wrote: Vai preso, mas sai com fiança por ser reu primário.. isso é a base de qualquer constituição em qualquer país, quem nunca fez nada tem o direito de errar pela primeira vez.. Por este motivo é que o usuário foi banido. Os moderadores da Delphi-BR, no entanto, não deixam de ouvir reivindicações de membros da lista através do email apropriado, e geralmente acatam seus pedidos. -- Joao Morais []s 2008/9/29 André Yahoo [EMAIL PROTECTED] Já sou mais radical, uma pessoa que pede serial é a mesma coisa que um que rouva, sendo assim quem rouba pela primeira vez não merece ser preso ? Errou tem que pagar pelo erro. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Core Lab
Justo João, concordo com você, o que quis dizer não foi no caso da pirataria, foi respondendo o email de um amigo indagando sobre o tal crime... :o) Além do que, se vocês não fizerem este trabalho de coibir pirataria, pode sobrar pra vocês.. hehe []s 2008/9/29 Joao Morais [EMAIL PROTECTED] Fellipe Henrique wrote: Vai preso, mas sai com fiança por ser reu primário.. isso é a base de qualquer constituição em qualquer país, quem nunca fez nada tem o direito de errar pela primeira vez.. Por este motivo é que o usuário foi banido. Os moderadores da Delphi-BR, no entanto, não deixam de ouvir reivindicações de membros da lista através do email apropriado, e geralmente acatam seus pedidos. -- Joao Morais []s 2008/9/29 André Yahoo [EMAIL PROTECTED] gyncowboy%40yahoo.com.br Já sou mais radical, uma pessoa que pede serial é a mesma coisa que um que rouva, sendo assim quem rouba pela primeira vez não merece ser preso ? Errou tem que pagar pelo erro. [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique --- CAMPANHA POR UMA INTERNET SEGURA Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar mensagens use SEMPRE o Cco (cópia oculta). Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar um e-mail, delete todas as informações que apareçam no corpo do e-mail e que possam ser usadas por hackers. ### [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Qual melhor gerador de relatórios free?
Fortes report é muito bom. http://www.google.com.br/search?hl=pt-BR http://www.google.com.br/search?hl=pt-BRq=fortes+reportbtnG=Pesquisa+Goog lemeta q=fortes+reportbtnG=Pesquisa+Googlemeta= []s Topolniak. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de TI - METALURGICA JANO Enviada em: segunda-feira, 29 de setembro de 2008 15:18 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Qual melhor gerador de relatórios free? Gostaria de saber qual o melhor gerador de relatórios gratuito, Que envie email, e exporte para excell,pdf e etc... [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] Componente
Exemplo de como fazer TNotifyEvent = procedure(Sender: TObject) of object; TMeuComponente = class(TComponente) private FOnChange: TNotifyEvent; published property OnChange: TNotifyEvent read FOnChange write FOnChange; end; 2008/9/29 BandaLemuel [EMAIL PROTECTED] Uma pergunta.. Como crio eventos que mostrem no object inpector... ??? Wesley From: BandaLemuel Sent: Monday, September 29, 2008 3:03 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Componente Pessoal Achei a solução... { Mostra a tela de Configuração } procedure TConfigbanco.MostraTelaConfiguracao; begin if FrmConfiguraBanco = nil then begin Application.CreateForm( TFrmConfiguraBanco , FrmConfiguraBanco ); FrmConfiguraBanco.ShowModal ; end else FrmConfiguraBanco.ShowModal ; end; vlw... Wesley From: BandaLemuel Sent: Monday, September 29, 2008 2:53 PM To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Componente Lista Estou criando um componente que vai ser responsavel por configurar o banco de dados do Cliente atraves de um arquivo ini, e neste componente quero colocar um formulario para a configuração , caso não consiga conexão... e esta dando erro quando ele vai puxar o formulario responsável pela configuração segue o codigo que chama o formulario { Mostra a tela de Configuração } procedure TConfigbanco.MostraTelaConfiguracao; var Tela : TFrmConfiguraBanco ; begin if Tela = nil then begin Tela := TFrmConfiguraBanco.Create( nil ); Tela.ShowModal ; end else Tela.ShowModal; end; O TFrmConfiguraBanco é um formulakrio que criei no componente, como devo chama-lo é assim mesmo ??? Obrigado... Wesley [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 3480 (20080929) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 3480 (20080929) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- Abs Daniel A. Bastos [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [Meio-OFF] Impressora de Cheque - DP-20
Boa tarde senhores!!! Tenho uma impressão em feita pelo sistema e vai tudo normal! Mas esta sendo feita no win98 e por necessidade temos que trocar a maquina e colocar WinXP e com isso a impressora parou de imprimir... Quando direciono para a COM1 o retorno é 0 ( zero ); caso direciono na LPT1 o retorno é -3 Baixei a DLL 1.2.2 - BEMADP32.dll Utilizo o Delphi5 segue codigo /***/; function ImprimeCheque(porta, banco, valor, cidade, favorecido, data, msg: string): boolean; var iRetorno : integer; begin Result := false; //Abre a porta de comunicacao. Esta instrucao eh OBRIGATORIA. iRetorno := Bematech_DP_IniciaPorta(pchar(porta)); if iRetorno = 0 then MessageDlg('Erro ao abrir a porta de comunicação...',mtError,[mbOk],0) else begin // imprime iRetorno := Bematech_DP_ImprimeCheque(Pchar(banco), PChar(valor), Pchar(favorecido), Pchar(cidade), PChar(data), PChar('')); if iRetorno = 0 then MessageDlg('Erro de Comunicação com a Impressora. Verifique.', mtInformation, [mbOk], 0); if iRetorno = -2 then MessageDlg('Parâmetro Inválido. Verifique.', mtInformation, [mbOk], 0); if iRetorno = -3 then MessageDlg('Banco não encontrado no arquivo de bancos. Verifique.', mtInformation, [mbOk], 0); // conseguiu imprimir - agora imprime o verso se tiver if iRetorno = 1 then begin Result := true; //MessageDlg('Os dados foram enviados com sucesso.', mtInformation, [mbOk], 0); if msg '' then begin ShowMessage('Vire o cheque e pressione OK para imprimir o texto no verso...'); Bematech_DP_ImprimeTexto(msg, 1); end; end; // Finaliza a comunicacao com a impressora. Esta instrucao eh OBRIGATORIA iRetorno := Bematech_DP_FechaPorta(); if iRetorno = 0 then MessageDlg('Erro ao fechar a porta de comunicação...',mtInformation,[mbOk],0); end; end; // a declaração das funções estão na mesma unit! //Função para abrir a porta de comunicação function Bematech_DP_IniciaPorta(Porta: string): integer; stdcall; far; external 'BemaDP32.dll'; //Função para fechar a porta de comunicação function Bematech_DP_FechaPorta: integer; stdcall; far; external 'BemaDP32.dll'; //Função para imprimir o cheque normal function Bematech_DP_ImprimeCheque(Banco: string; Valor: string; Favorecido: string; Cidade: string; Data: string; Mensagem: string): integer; stdcall; far; external 'BemaDP32.dll'; //Função para travar o documento function Bematech_DP_TravaDocumento(Trava: integer): integer; stdcall; far; external 'BemaDP32.dll'; //Função para imprimir texto sem formatação function Bematech_DP_ImprimeTexto(Texto: string; AvancaLinha: integer): integer; stdcall; far; external 'BemaDP32.dll'; //Função para enviar comandos para a impressora function Bematech_DP_EnviaComando(Comando: string): integer; stdcall; far; external 'BemaDP32.dll'; function ImprimeCheque(porta, banco, valor, cidade, favorecido, data, msg: string): boolean; Alguem ja pssou por isso??? qualquer ajuda será bem vinda Obrigado Marcos Bernardo [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Necessito urgente de um sistema completo de Controle de Ponto e Frequencia
Ola Jorge, Boa Tarde... Tenho um sistema de cartao de ponto desenvolvido em delphi 6 e firebird... Porem a leitura é feita atraves do leitor de codigo de barras, que é atraves do cpf do funcionario.. Se quiser posso encaminhar pra voce o executavel do sistema com o banco de dados pra realizar testes, caso interesse podemos negociar o fonte. Obrigado Gustavo Pereira [EMAIL PROTECTED] 2008/9/29 Jorge Ericsson [EMAIL PROTECTED]: Boa tarde pessoal, Surgiu uma demanda urgente para levantamento de requisitos de um sistema de ponto e freqüência e eu gostaria de saber quem tem algum sistema funcional em Delphi ou PHP que queira negociar os fontes. Lembrando que será apenas para levantamento de requisitos, ou seja, as funcionalidades seram incorporadas no meu sistema de igreja que já está em funcionamento, mas o meu cliente necessita dessa funcionalidade incorporada no mesmo. Eu infelizmente não tenho tempo para desenvolver algo do zero e/ou levantar os requisitos e todas as necessidades básicas, mas necessito de algo que já esteja em funcionamento com pelo menos as funções básica de um controle de ponto. Obs.: Já desenvolvi a plataforma que captura o ponto do funcionário através de um leitor biométrico (FingKey Hamster I), mas as funcionalidades de controle e gerenciamento eu necessito com certa urgência pois tenho prazo para colocar no ar. Obrigado antecipado amigos, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF
Re: Res: [delphi-br] TAxTaskDialog - v.1.9 (9x, XP, Vista) - D4-D200 9 + Código Fonte
Só uma sugestão. Poderia colocar uma característica importante, um TTimer para fechar o form automático. Onjahyr Silvio Clécio escreveu: Olá pessoal, Não deu erro não, coloquei um timer para fechar a aplicação de uma forma forçada (para provocar um erro), usando o ReportMemoryLeaksOnShutdown e não deu problema, mas por via das dúvidas vou usar o FreeAndNil, porque testei com ele e não deu nenhum erro também. Mais uma vês, valeu pela colaboração, posso colocar no link: http://www.4shared.com/dir/5679510/48848609/Uploads.html? http://www.4shared.com/dir/5679510/48848609/Uploads.html? Um abraço a todos! Silvio Clécio - Mensagem original De: Jackson Gomes - ToolsComps [EMAIL PROTECTED] mailto:jackson%40toolsandcomps.com Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Segunda-feira, 29 de Setembro de 2008 13:13:01 Assunto: Re: [delphi-br] TAxTaskDialog - v.1.9 (9x, XP, Vista) - D4-D2009 + Código Fonte try TskDlg.Execute; finally TskDlg := nil; // Correction TskDlg.Free; end; Acho que isso vai dar erro. O correto seria usar FreeAndNil, como vc usou em outra parte. Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsand comps.com Nosso Fórum: http://groups. yahoo.com/ group/toolsandco mps e-mail: [EMAIL PROTECTED] ps.com Fone: 27 3389 1138 - 8811 0324 - - - - - - Devhost - Webhost para desenvolvedores Delphi http://www.devhost. com.br [EMAIL PROTECTED] com.br . Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] TAxTaskDialog - v.1.9 (9x, XP, Vista) - D4-D2009 + Código Fonte
Olá pessoal, Jackson, posso colocar o pacote no link: (http://www.4shared.com/dir/5679510/48848609/Uploads.html)? Um abraço a todos! Silvio Clécio Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] TAxTaskDialog - v.1.9 (9x, XP, Vista) - D4-D2009 + Código Fonte
Acredito que vc quis dizer Isaque... hehehe Sim pode sem problema. Isaque Pinheiro --- Em delphi-br@yahoogrupos.com.br, Silvio Clécio [EMAIL PROTECTED] escreveu Olá pessoal, Jackson, posso colocar o pacote no link: (http://www.4shared.com/dir/5679510/48848609/Uploads.html)? Um abraço a todos! Silvio Clécio Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Res: Res: [delphi-br] TAxTaskDialog - v.1.9 (9x, XP, Vista) - D4-D2009 + Código Fonte
Olá pessoal, Ô cara com certeza, desculpe-me, rsrsrsrsrsrsrs. Hoje o dia foi bem puxado, acho que se eu trabalhasse mais trocaria até o meu próprio nome, rsrsrsrsrs. Obrigado Isaque Pinheiro, agora sim! rsrsrsrsr. Vou inserir no link. Um abraço a todos! Silvio Clécio - Mensagem original De: Isaque Pinheiro [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 29 de Setembro de 2008 20:22:45 Assunto: Re: Res: [delphi-br] TAxTaskDialog - v.1.9 (9x, XP, Vista) - D4-D2009 + Código Fonte Acredito que vc quis dizer Isaque... hehehe Sim pode sem problema. Isaque Pinheiro --- Em [EMAIL PROTECTED] os.com.br, Silvio Clécio silvioprog@ ... escreveu Olá pessoal, Jackson, posso colocar o pacote no link: (http://www.4shared. com/dir/5679510/ 48848609/ Uploads.html)? Um abraço a todos! Silvio Clécio Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail. com. http://br.new. mail.yahoo. com/addresses [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Exportar dados do select
Olá Pessoal Estou precisando fazer um select que retorne os dados para mim em um arquivo padrão DBF, se alguém puder ajudar agradeço. No Postgres eu faço exportando para TXT. copy from (select * from tabela) to E'\\Temp\\arquivo.txt' Só que a data vem no formato 2008-09-29 os traços separadores atrapalham. Preciso que a data venha apenas os números 20080929, os traços prejudicam minha importação. Qualquer ajuda será bem vinda. Obrigado! Adilson Nunes [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] duvida sobre querys
Objetos TField ligados a um dataset que está consultando dados diretamente de um SGBD¹ devem, obrigatoriamente, ter seus respectivos campos fisicamente já definidos em tabelas do banco de dados. Para este tipo de dados, o máximo q vc pode fazer é criar um campo calculado (tipo fkCalculated) e definir um evento no seu formulário/data module para tratar tais campos. Mas a criação de campos calculados só deve acontecer com o dataset fechado. Procure que vc vai achar exemplos na Internet de como criar campos calculados. Agora, se o seu caso é criar campos temporários em um dataset, faça isso em um ClientDataSet, criando campos do tipo ftInternalCalc e configurando-os adequadamente para que, em uma atualização em um SGBD, as atualizações em tais campos não sejam aplicados ao banco de dados, pois tais campos no banco de dados realmente não existem. Se vc nunca usou ClientDataSet, eis uma boa oportunidade. Tem material a botão na Internet relacionado com este componente. Boa sorte. Sds. P.S.: (1) SGBD - Sistema Gerenciador de Banco de Dados To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Mon, 29 Sep 2008 15:04:44 -0300 Subject: [delphi-br] duvida sobre querys gostaria de saber se existe alguma maneira de eu inserir os campos de uma tabela numa query em tempo de execução -- Leonardo Carlos Baldino - The Highlander _ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br
Re: [delphi-br] Enviar e-mail pelo sistema
Se usa delphi 5 ou 6 e deseja usar o cliente default do windows, pode ainda usar o Mail a biblioteca Jedi que envia inclusive em modo silent!!! [] Emanuel Andrei Luís escreveu: Alex, A rotina abaixo gera uma nova msg no cliente de e-mail default do windows. Se passar o parâmetro confirma como false, ele envia a msg automaticamente, se passar como true o e-mail é mostrado em tela, com tudo pronto, destinatario, assunto, corpo e anexo, só faltando clicar no botão enviar. [] Andrei function EnviarEMail(const De, Para, CC, Assunto, Texto, Arquivo:string; Confirma: Boolean): Integer; var Msg: TMapiMessage; lpSender, lpRecepient, lpComCopia: TMapiRecipDesc; FileAttach: TMapiFileDesc; SM: TFNMapiSendMail; MAPIModule: HModule; Flags: Cardinal; begin // cria propriedades da mensagem FillChar(Msg, SizeOf(Msg), 0); with Msg do begin if (Assunto '') then lpszSubject := PChar(Assunto); if (Texto '') then lpszNoteText := PChar(Texto); //Corpo da Mensagem // remetente if (De '') then begin lpSender.ulRecipClass := MAPI_ORIG; lpSender.lpszName := PChar(De); lpSender.lpszAddress := PChar(De); lpSender.ulReserved := 0; lpSender.ulEIDSize := 0; lpSender.lpEntryID := nil; lpOriginator := @lpSender; end; // destinatário if (Para '') then begin lpRecepient.ulRecipClass := MAPI_TO; lpRecepient.lpszName := PChar(Para); lpRecepient.lpszAddress := PChar(Para); lpRecepient.ulReserved := 0; lpRecepient.ulEIDSize := 0; lpRecepient.lpEntryID := nil; nRecipCount := 1; lpRecips := @lpRecepient; end else lpRecips := nil; if (CC '') then begin lpComCopia.ulRecipClass := MAPI_CC; lpComCopia.lpszName := PChar(CC); lpComCopia.lpszAddress := PChar(CC); lpComCopia.ulReserved := 0; lpComCopia.ulEIDSize := 0; lpComCopia.lpEntryID := nil; nRecipCount := 2; lpRecips := @lpComCopia; end; // else // lpRecips := nil; // arquivo anexo if (Arquivo = '') then begin nFileCount := 0; lpFiles := nil; end else begin FillChar(FileAttach, SizeOf(FileAttach), 0); FileAttach.nPosition := Cardinal($); FileAttach.lpszPathName := PChar(Arquivo); nFileCount := 1; lpFiles := @FileAttach; end; end; // carrega dll e o método para envio do email MAPIModule := LoadLibrary(PChar(MAPIDLL)); if MAPIModule = 0 then Result := -1 else try if Confirma then Flags := MAPI_DIALOG or MAPI_LOGON_UI else Flags := 0; @SM := GetProcAddress(MAPIModule, 'MAPISendMail'); if @SM nil then Result := SM(0, Application.Handle, Msg, Flags, 0) else Result := 1; finally FreeLibrary(MAPIModule); end; end; 2008/9/28 Alex Leão [EMAIL PROTECTED] mailto:alex_fib%40yahoo.com.br Pessoal, Preciso que meu sistema envie relatórios por e-mail. A parte de gerar e salvar o relatótio eu já fiz, mas a parte de enviar o e-mail tá lenha ... Alguém tem alguma rotina para me ajudar? [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Gerar Arquivo Texto
Colega... Você está trabalhando com o padrão CNAB400? Os editores de texto tipo o Notepad, etc, pode te ajudar nisso, Quem sabe o xEdit, ou o Notepad++ [] Emauel Coutinho Luciano Calenzani Simões escreveu: Notepad++ Luciano Calenzani Simões - Mensagem original De: Juliano Silva - Yahoo [EMAIL PROTECTED] mailto:smjjuliano%40yahoo.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Segunda-feira, 29 de Setembro de 2008 15:11:30 Assunto: [delphi-br] Gerar Arquivo Texto Pessoal Preciso gerar um arquivo texto para importação em outro sistema, como um arquivo que a linha é muito grande, tenho que saber se a informação está sendo gerada na posição/coluna correta, qual programa vocês utilizam para verificar posicionamento de colunas em um arquivo texto, pelo Edit do MS-DOS não está dando mais... rsrsrrs? att. Juliano Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Campos Auto-incremento e dbExpress
Pessoal. Estou usando umas tabelas Firebird, acessando pelo dbExpress... ClientDataset... Tenho uns campos PrimaryKey, que são auto-incremento... Quando insiro novo registro está me pedindo o conteúdo pois é um campo required... retirei as cláusulas required dos campos, e não funcionaou... tirei da opção Required nos fieldDefs,,, enão funcionou... Passei o valor -1 para o campo no before post (lí algum tempo atrás que fazendo-se isso burlava-se o required, e o banco criaria o auto-incremento pois não poderia ser numero negativo...), e não funcionou... alguem me dá uma luz, pls? Agradeço desde já!!! Emanuel
Re: RES: [delphi-br] Qual melho r gerador de relatórios free?
Também uso o Fortes Reports e Gosto demais!!! Luciano Topolniak escreveu: Fortes report é muito bom. http://www.google.com.br/search?hl=pt-BR http://www.google.com.br/search?hl=pt-BR http://www.google.com.br/search?hl=pt-BRq=fortes+reportbtnG=Pesquisa+Goog http://www.google.com.br/search?hl=pt-BRq=fortes+reportbtnG=Pesquisa+Goog lemeta q=fortes+reportbtnG=Pesquisa+Googlemeta= []’s Topolniak. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br] Em nome de TI - METALURGICA JANO Enviada em: segunda-feira, 29 de setembro de 2008 15:18 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] Qual melhor gerador de relatórios free? Gostaria de saber qual o melhor gerador de relatórios gratuito, Que envie email, e exporte para excell,pdf e etc... [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * 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] 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