[delphi-br] Delphi 5 - Breakpoints.
Ao fechar um projeto com vários breakpoints, como mantê-los para a próxima vez que reabrir o sistema? Domingos Neto [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Dúvida com StringGrid
Ok, funcionou Muito obrigado Fabrício e os demais []'s Em 14 de julho de 2010 14:16, Fabricio Colombo fabricio.colombo@gmail.com escreveu: crie um método conforme abaixo, e associe ao stringgrid dinamicamente procedure TForm1.StringGridDrawCell(Sender: TObject; ACol, ARow: Integer;Rect: TRect; State: TGridDrawState); begin with TStringGrid(Sender) do begin if (ACol FixedCols-1) and (ARow FixedRows-1) then begin if Odd(ARow) then Canvas.Brush.Color := clYellow else Canvas.Brush.Color := clWhite; Canvas.FillRect(Rect); end; end; end; var vStringGrid: TStringGrid; begin vStringGrid := TStringGrid.Create(Self); vStringGrid.Parent := Self; vStringGrid.OnDrawCell := StringGridDrawCell; Em 14 de julho de 2010 10:06, Domingos domingosp...@gmail.com escreveu: É verdade, havia me esquecido de Parent da classe TComponent, né? Funcionou tudo bem, agora aproveitar a deixa, vocês sabem uma maneira eficiente de zebrar os Grids criados em tempo de execução? Em 13 de julho de 2010 22:21, Fabricio Colombo fabricio.colombo@gmail.com fabricio.colombo.mva%40gmail.com escreveu: Vc tem que definir o Parent do TStringGrid criado. Em 13 de julho de 2010 10:32, Domingos domingosp...@gmail.com domingospawn%40gmail.com escreveu: Olá, bom dia a todos Estou com a seguinte dúvida, preciso criar dinamicamente StringGrids em um form, eu consigo criar um Array de StringGrids e setando o tamanho executar o Create da classe TStringGrid, porém eles não são exibidos no form, alguém pode me ajudar? Eu utilizo Delphi 6 Obrigado -- Att, Domingos J. M. de Souza GTalk / MSN: domingosp...@gmail.com domingospawn%40gmail.com domingospawn% 40gmail.com Skype: domingospawn Imagination is more important than knowledge. - Albert Einstein [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 -- Att, Domingos J. M. de Souza GTalk / MSN: domingosp...@gmail.com domingospawn%40gmail.com Skype: domingospawn Imagination is more important than knowledge. - Albert Einstein [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 -- Att, Domingos J. M. de Souza GTalk / MSN: domingosp...@gmail.com Skype: domingospawn Imagination is more important than knowledge. - Albert Einstein [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Dúvida com StringGrid
É verdade, havia me esquecido de Parent da classe TComponent, né? Funcionou tudo bem, agora aproveitar a deixa, vocês sabem uma maneira eficiente de zebrar os Grids criados em tempo de execução? Em 13 de julho de 2010 22:21, Fabricio Colombo fabricio.colombo@gmail.com escreveu: Vc tem que definir o Parent do TStringGrid criado. Em 13 de julho de 2010 10:32, Domingos domingosp...@gmail.com escreveu: Olá, bom dia a todos Estou com a seguinte dúvida, preciso criar dinamicamente StringGrids em um form, eu consigo criar um Array de StringGrids e setando o tamanho executar o Create da classe TStringGrid, porém eles não são exibidos no form, alguém pode me ajudar? Eu utilizo Delphi 6 Obrigado -- Att, Domingos J. M. de Souza GTalk / MSN: domingosp...@gmail.com domingospawn%40gmail.com Skype: domingospawn Imagination is more important than knowledge. - Albert Einstein [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 -- Att, Domingos J. M. de Souza GTalk / MSN: domingosp...@gmail.com Skype: domingospawn Imagination is more important than knowledge. - Albert Einstein [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Dúvida com StringGrid
Olá, bom dia a todos Estou com a seguinte dúvida, preciso criar dinamicamente StringGrids em um form, eu consigo criar um Array de StringGrids e setando o tamanho executar o Create da classe TStringGrid, porém eles não são exibidos no form, alguém pode me ajudar? Eu utilizo Delphi 6 Obrigado -- Att, Domingos J. M. de Souza GTalk / MSN: domingosp...@gmail.com Skype: domingospawn Imagination is more important than knowledge. - Albert Einstein [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [off topic] PHP ou Java?
ESTA PARTE AO RESPONDER ESTA MENSAGEM -- Att, Domingos J. M. de Souza GTalk / MSN: domingosp...@gmail.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi 7 x Windows 7 x 64 bits
Usando alguma atualização? Instalou na boa? Em 27 de maio de 2010 13:31, Renato Spiandorello da Cunha spiandore...@gmail.com escreveu: Olha estou usando o Windows 7 64 Bits com Delphi 7 e tudo roda aqui perfeitamente. -Mensagem original- De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Adriano Santos Enviada em: quinta-feira, 27 de maio de 2010 13:31 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Delphi 7 x Windows 7 x 64 bits Posso estar errado, mas até onde sei não roda o D7 em 64 Bits Adriano Santos Vendo Sony Vaio http://bit.ly/aWrKyW http://twitter.com/asrsantos http://delphitodelphi.blogspot.com 2010/5/27 stainle2003 stainle2...@yahoo.com.brstainle2003%40yahoo.com.br Boa Tarde, instalei o delphi 7 num notebook que acabei de comprar, fui rodar e me fala que não consegue achar uma tal pasta ou arquivo x86; o que terei que fazer para que o Delphi funciona nesta máquina que é 64 bits grato Stainle -- Adriano Santos http://twitter.com/asrsantos www.delphitodelphi.blogspot.com [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- Att, Domingos J. M. de Souza GTalk / MSN: domingosp...@gmail.com [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br 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: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Vírus na compilação D7
Eu também tenho vários componentes de terceiros, e um dos módulos que eu gero está sendo reconhecido como vírus, um amigo meu me disse que isso pode ser um vírus que afeta os arquivos do próprio Delphi, agora não sei dizer se isso é verdade, até por que só um dos módulos está com problemas, ainda não averiguei a fundo, mas se alguém tiver informações ajuda bastante. Meu Delphi é o 6 []'s Em 13 de abril de 2010 05:39, Bollasette bollase...@yahoo.com.br escreveu: Tenho muitos componentes no D7 .. - Original Message - From: Ricardo Augusto ricardo250...@yahoo.com.brricardo250175%40yahoo.com.br To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Monday, April 12, 2010 8:46 PM Subject: Re: [delphi-br] Vírus na compilação D7 Vc está usando algum componente de terceiros? Pq na empresa que trabalho usamos o Delphi 7 e nunca tivemos esse problema em nenhum cliente. Em 12 de abril de 2010 19:59, Bollasette bollase...@yahoo.com.brbollasette%40yahoo.com.br escreveu: Olá, saudações a todos. Só o que faltava !!! Pessoal, estou com um problema e gostaria de saber se alguém da lista passou por isso. Compilei um exemplo em D7 e mandei prá um amigo e o mesmo me reportou a presença de um vírus. Enviei o arquivo para análise no virustotal.com e foi confirmado um vírus: (Sus/BancDl-A). Não encontrei nennhuma vacina free para a correção. Já escaneei o PC com o avast, AVG, spybot, comodo e nada, e lá se vão quinze dias perdidos. [ ]sss [As partes desta mensagem que não continham texto foram removidas] -- _ Ricardo Augusto Muitos dos problemas do mundo devem-se ao fato de que os ignorantes estão completamente seguros e os inteligentes cheios de dúvidas (Bertrand Russel) [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [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: delphi-br-ow...@yahoogrupos.com.br 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: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Relatório Mestre/Detalhe.
Olá, Alguém conhece algum livro, link, apostila ou qualquer material que mostre passo a passo a construção de um relatório mestre-detalhe? Grato pela atenção, Domingos Neto Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Programa compilado no Windows 7 est á lento
Então Ricardo, o problema seria realmente em nosso projeto, no entando eu peguei esse projeto agora, e ele é bem extenso, e tenho que mante-lo, você tem alguma sugestão do que possa estar ocorrendo? Se bem que essa pergunta é bem abstrata né? Pode ser vários fatores, mas já posso considerar isoladamente que o problema é no projeto, correto? Se for já mando outra dúvida, se eu formatar o computador, durante um período de umas três semanas o Delphi funciona normalmente, depois o mesmo problema ocorre... Só mais uma observação uso Delphi 6 e fiz o downgrade do Win7 ao WinXP Muito obrigado Em 24 de fevereiro de 2010 12:08, Ricardo César Cardoso ricardo_engs...@yahoo.com.br escreveu: Pequeno detalhe: a mensagem original se refere ao EXECUTÁVEL gerado no Windows 7, não ao Delphi 7. Ademais, isso por si só não é sintoma de nada... Tem que ver o que o programa faz. Atte, Ricardo. 1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS. 2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor compreendida. 3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em qua, 24/2/10, Rodinei Amorim rodinei_amo...@hotmail.comrodinei_amorim%40hotmail.com escreveu: De: Rodinei Amorim rodinei_amo...@hotmail.comrodinei_amorim%40hotmail.com Assunto: Re: [delphi-br] Programa compilado no Windows 7 está lento Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Data: Quarta-feira, 24 de Fevereiro de 2010, 8:33 Felipe, meu D7, também continua em perfeito estado. rsrs.. e sucesso a todos. Rodinei Amorim Programador Freelancer Desenvolvimento de Sistemas (11) 8208-9503 rodinei.amorim@ terra.com. br - rodinei_amorim@ hotmail.com. br From: Moacir - GMAIL Sent: Wednesday, February 24, 2010 8:11 AM To: delphi...@yahoogrup os.com.br Subject: Re: [delphi-br] Programa compilado no Windows 7 está lento Fellipe, Humm.. Meu D7 ainda não foi notificado disto ou esqueceu de ler o blog do Andreano, pois funciona PERFEITAMENTE no W7 32 e 64 bits. Sucesso ! Moacir Em 23/02/2010 20:25, Fellipe Henrique escreveu: Bom amigos é o seguinte, como o próprio Andreano já disse, o único delphi compativel com a Win7 é o 2010... o resto é rodado meia-boca ou com alguns macetes... Eu mesmo estou tendo problemas com o Delphi 2007.. já consegui arrumar o bug do debug que ele tinha... mas ainda assim nao funciona direito.. Infelizmente esta mensagem é mais pra desanimar do que pra dar solução... rsrs.. mas a Borland poderia soltar algum patch pra nós né?!? Att Em 25 de janeiro de 2010 07:38, wrafhaelwrafh...@yahoo. com.br escreveu: [As partes desta mensagem que não continham texto foram removidas] __ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] -- Domingos José Martins de Souza [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: delphi-br-ow...@yahoogrupos.com.br 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: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Programa compilado no Windows 7 est á lento
Pior que não cara, por que no nosso caso esse problema de lentidão está relacionado ao projeto, e não o Delphi em si, essa questão de compatibilidade, aliada a atualização resolveu um problema de um erro que dava sempre quando eu abrir ou fechava o Delphi, mas o problema agora acho que está relacionado ao projeto. Em 24 de fevereiro de 2010 08:05, Marcelo Luiz Onhate marc...@systempro.com.br escreveu: Não funcionaria será, clicar com o direito do mouse no atalho ir em Compatibilidade e rodar como vista, xp? Sei lá, pode ser... -- Domingos José Martins de Souza [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: delphi-br-ow...@yahoogrupos.com.br 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: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Programa compilado no Windows 7 est á lento
Então quer dizer que no nosso caso a solução seria migrar de versão? Em 24 de fevereiro de 2010 08:57, Eduardo Silva dos Santos eduardo@gmail.com escreveu: Fellipe, é mais fácil eu e você acertarmos na mega-sena que a Embarcadero soltar algum path para o Delphi 2007. O bug irritante do object inspector ta lá até o hoje e vai continuar sempre, senão, o que motivaria a pessoa que pagou caro pela licença a fazer um upgrade. Em 23 de fevereiro de 2010 20:25, Fellipe Henrique felli...@gmail.comfellipeh%40gmail.com escreveu: Bom amigos é o seguinte, como o próprio Andreano já disse, o único delphi compativel com a Win7 é o 2010... o resto é rodado meia-boca ou com alguns macetes... Eu mesmo estou tendo problemas com o Delphi 2007.. já consegui arrumar o bug do debug que ele tinha... mas ainda assim nao funciona direito.. Infelizmente esta mensagem é mais pra desanimar do que pra dar solução... rsrs.. mas a Borland poderia soltar algum patch pra nós né?!? Att Em 25 de janeiro de 2010 07:38, wrafhael wrafh...@yahoo.com.brwrafhael%40yahoo.com.br escreveu: Bom dia a todos! Estou utilizando o Delphi 6 no Windows 7, e quando rodo o programa (F9) ele executa alguns processos simples muito lentamente. Somente ao rodar o executável por fora do Delphi é que ele funciona normal. Alguém já teve algum problema parecido ou sabe o motivo?? Abraço! -- _ 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] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas] -- Domingos José Martins de Souza [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: delphi-br-ow...@yahoogrupos.com.br 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: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Programa compilado no Windows 7 est á lento
Ela soltou algumas atualizações para o Delphi 6, agora dispinível no site da Embarcadero http://edn.embarcadero.com/article/38607 Resolveu em partes, mas determinados projetos continuam muito lentos, e olha que até downgrade para o Windos XP eu fiz, e nada, meus projetos continuam lentos*,* se eu abrir um novo projeto, funfa beleza, mas os que eu realmente preciso estão muito lentos, o que fazer? Migrar para Delphi 2010? rs Em 23 de fevereiro de 2010 20:25, Fellipe Henrique felli...@gmail.comescreveu: Bom amigos é o seguinte, como o próprio Andreano já disse, o único delphi compativel com a Win7 é o 2010... o resto é rodado meia-boca ou com alguns macetes... Eu mesmo estou tendo problemas com o Delphi 2007.. já consegui arrumar o bug do debug que ele tinha... mas ainda assim nao funciona direito.. Infelizmente esta mensagem é mais pra desanimar do que pra dar solução... rsrs.. mas a Borland poderia soltar algum patch pra nós né?!? Att Em 25 de janeiro de 2010 07:38, wrafhael wrafh...@yahoo.com.br escreveu: Bom dia a todos! Estou utilizando o Delphi 6 no Windows 7, e quando rodo o programa (F9) ele executa alguns processos simples muito lentamente. Somente ao rodar o executável por fora do Delphi é que ele funciona normal. Alguém já teve algum problema parecido ou sabe o motivo?? Abraço! -- _ 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] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- Domingos José Martins de Souza [As partes desta mensagem que não continham texto foram removidas]
[Delphi-br] Delph 6 lento
Bom dia a todos, estou com um problema pra lidar com um sistema legado, eu instalo e configuro o Delphi 6 com todos os componentes, no entando com o passar do tempo o Delphi fica muito lento, leva minutos para abrir um projetos, abrir forms, fazer consultas e tal, e é apenas nesse projeto legado, computador é formatado e instalado, funciona perfeitamente só que com o passar do tempo o Delphi vai se tornando muito lento, já fiz as atualizações até o Runtime Library Update 3, e nada, fica a mesma coisa, será que alguém poderia me ajudar? Obrigado -- Domingos José Martins de Souza [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda...Atualização de Software
Estou com a mesma dúvida, para o executável eu uso FTP, mas e para o banco? Você usa o Database Comparer do IBExpert? Em 8 de fevereiro de 2010 16:13, snakesjb robsontazina...@hotmail.comescreveu: Tenho um sistema feito em Delphi 2007 e banco de dados firebird...Como o sistema ja fooi instalado em alguns clientes e o mesmo ainda está em fase de testes, MAS EM USO, quase toda semana tenho que atualizar o executável...alguem tem alguma idéia??? Tava pensando em colocar o sistema em um ftp e criar um sistema para download apresentando os arquivos para download...Alguem tem algum exemplo para me ajudar??? -- Domingos José Martins de Souza [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: delphi-br-ow...@yahoogrupos.com.br 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: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Migração
Galera boa tarde, gostaria de esclarecer umas dúvidas, na empresa onde eu trabalho tem um sistema ERP desenvolvido em Delphi 6 + DBExpress + ACBr e estamos tendo problemas com o windows 7, gostaria de saber dos senhores, como se faz para migrar para alguma versão mais nova do Delphi, até por questão de suporte e licenciamento, essa migração dá pra ser feita? tipo do Delphi 6 para o 2010? Alguém já passou por isso? -- Domingos José Martins de Souza [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda...Atualização de Software
Samuel, boa noite Cara gostei muito da sua idéia, poderia explicar melhor? O usuário executa esse sistema para ver se existe atualização? Esse seu executável acessa um serviço de FTP pra baixar o arquivo? Como você faz atualização do executável? Ou ele baixa outro arquivo? e a parte de atualização do banco de dados, você faz como o database comparer? Obrigado, []'s Em 8 de fevereiro de 2010 23:00, Samuel M. Basso samuelba...@yahoo.com.brescreveu: Eu fiz um executavel a parte que quando executado ele verifica no site onde hospedo as atualizacoes se existe atualizacao mais recente e consequentemente ele baixa a atualização. Junto com a atualizacao eu tenho os scripts que ele executa para atualizar a base de dados, porem tenho um problema que ainda nao resolvi no scripts, quando tento criar foreign key nunca da certo, sempre da erro que tal campo esta em uso e nao consegue prosseguir, mesmo ninguem executando o sistema ele da esse erro so consigo executar reininciando o serviço do firebird que ate entao nao tive ideias. mas é assim que faço atualizacoes. 2010/2/8 snakesjb robsontazina...@hotmail.com Tenho um sistema feito em Delphi 2007 e banco de dados firebird...Como o sistema ja fooi instalado em alguns clientes e o mesmo ainda está em fase de testes, MAS EM USO, quase toda semana tenho que atualizar o executável...alguem tem alguma idéia??? Tava pensando em colocar o sistema em um ftp e criar um sistema para download apresentando os arquivos para download...Alguem tem algum exemplo para me ajudar??? -- Atenciosamente, Samuel M. Basso Cel: (54) 8135-3723 Skype: samuelbasso E-mail/MSN: samuelba...@gmail.com Web site: www.samuelbasso.com [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- Domingos José Martins de Souza [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Arquivo modelo
Uberdam, Você poderia criar um campo identificador na tabela de cliente, relacionado com o layout desejado. Como está sendo definido esse layout? É um procedimento, um arquivo? Domingos Neto De: berdam berdamzi...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 25 de Maio de 2009 23:22:33 Assunto: [delphi-br] Arquivo modelo Galera, tenho o seguinte problema, tenho uma aplicação que gera um arquivo dos produtos, acontece que cada cliente quer um determinado layout de arquivo. Toda vez que precisa de uma alteração nos clientes, eu tenho que mudar um por um. Eu gostaria de saber se existe alguma forma de fazer com que a questão de layout do arquivo ficasse de acordo com a vontade do cliente,, e eu apenas me preocuparia com a inserção dos dados nesse arquivo. Estive pesquisando em XML, mas n encontrei algo que realmente me ajudasse. Alguém sugere algo??? -- - - - - - Uberdam Cavaletti Formado em Tecnologia da informação - Unoesc - Xxe Pós graduado em Desenvolvimento Java - Unoesc - Xxe Acesse http://www.curricul ar.com.br/ berdam Acesse http://passandovene no.blogspot. com - - - - - Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: Res: Res: [delphi-br] Arquivo modelo
Você poderia criar vários arquivos do word com os layouts possíveis, e de acordo com o cliente o programa escolher o layout desejado? Para isso, criaria um campo na tabela de clientes, para indicar o layout de preferência. Domingos Neto De: Berdam berdamzi...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 26 de Maio de 2009 8:00:58 Assunto: Res: Res: [delphi-br] Arquivo modelo na verdade é um arquivo de word que é criado, lá no código eu pego o nome da empresa e através dele eu mudo o layout, mas é um parto - - - - - - 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 - - - - - - _ _ __ De: Domingos Neto domingosafn@ yahoo.com. br Para: delphi...@yahoogrup os.com.br Enviadas: Terça-feira, 26 de Maio de 2009 0:42:05 Assunto: Res: [delphi-br] Arquivo modelo Uberdam, Você poderia criar um campo identificador na tabela de cliente, relacionado com o layout desejado. Como está sendo definido esse layout? É um procedimento, um arquivo? Domingos Neto _ _ __ De: berdam berdamzinho@ yahoo.com. br Para: delphi...@yahoogrup os.com.br Enviadas: Segunda-feira, 25 de Maio de 2009 23:22:33 Assunto: [delphi-br] Arquivo modelo Galera, tenho o seguinte problema, tenho uma aplicação que gera um arquivo dos produtos, acontece que cada cliente quer um determinado layout de arquivo. Toda vez que precisa de uma alteração nos clientes, eu tenho que mudar um por um. Eu gostaria de saber se existe alguma forma de fazer com que a questão de layout do arquivo ficasse de acordo com a vontade do cliente,, e eu apenas me preocuparia com a inserção dos dados nesse arquivo. Estive pesquisando em XML, mas n encontrei algo que realmente me ajudasse. Alguém sugere algo??? -- - - - - - Uberdam Cavaletti Formado em Tecnologia da informação - Unoesc - Xxe Pós graduado em Desenvolvimento Java - Unoesc - Xxe Acesse http://www.curricul ar.com.br/ berdam Acesse http://passandovene no.blogspot. com - - - - - Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Delphi e OPenGL.
Oi pessoal, Alguém usa, ou trabalha com Delphi juntamente com OpenGL? Domingos Neto [EMAIL PROTECTED] 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] FindFirst.
Oi pessoal, Como funciona a função FindFirst? Ela traz a lista de todos os arquivos de um diretório (dir *.*, esses arquivos são temporariamente locados?) e depois retorna o primeiro arquivo (de acordo com os parâmetros passados)? Valeu! Domingos Neto [EMAIL PROTECTED] 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] Aplicativo Ftp.
Olá pessoal, Tenho um programinha ftp, que envia arquivos txt de um determinadodiretório local. A todo momento chegam arquivos na pasta, e aquantidade é muito grande, mais que dez mil. Coloquei um TRichEdit,para ir mostrando à medida que forem enviados os arquivos. O problema é que o TRichEdit não consegue mostrar, pois o fluxo dearquivos é muito grande, e por serem pequenos, a velocidade de enviotambém. O programa roda, mas o aplicativo não consegue atualizar atela. Tem alguma maneira de fazer com que esse log seja exibido? Agradeço desde já, Domingos Neto [EMAIL PROTECTED] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] QrChart.
Oi pessoal, Tenho um relatório que muda de tabela, de acordo com o que é pedido. Como fazer para adicionar dados das tabelas dinamicamente, em um QrChart? Antecipadamente agradeço, Domingos Neto [EMAIL PROTECTED] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br..mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] TRichEdit
Bom dia, boa tarde ou boa noite! :-) Caros, 1) Como pegar cada linha de um TRichEdit? É que preciso passar o que lá está escrito para um arquivo texto. 2) Usando a propriedade GetTextLen, consigo saber o tamanho do conteúdo escrito, considerando que um caractere equivale a um byte? Obrigado, Domingos Neto [EMAIL PROTECTED] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Programa com parâmetros, linha de comando.
Olá pessoal, Como fazer um programa no delphi que execute na linha de comando, passando dois parâmetros? Grato pela atenção, Domingos Neto Programador Jr. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Threads.
Olá pessoal, Consigo através de uma thread, definí-la como pai, e herdar várias subthreads filhas? Grato pela atenção, Domingos Neto Programador Jr. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Thread.
Gostaria de saber se com uma thread, consigo gerar mais threads, herdando da primeira. Grato pela atenção, Domingos Neto Programador Jr. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Thread.
Olá, Gostaria de saber se com uma thread, consigo gerar mais threads, herdando da primeira. Grato pela atenção, Domingos Neto Programador Jr. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Componente para manipulação de imagens.
Bom dia, pessoal. Alguém conhece algum componente que manipule imagens, como no Photoshop? Grato pela atenção, Domingos Neto Programador Jr. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] TidFtp - Enviar arquivos para Linux
Oi pessoal, boa semana a todos! Bom, estou usando o componente TidFtp para enviar arquivos, para uma máquina remota, usando o método TiDFtp.Put. Ao enviar o arquivo de uma máquina com Windows, para outra com o mesmo sistema operacional, é criado os diretórios e os arquivos copiados com sucesso. Mas, quando enviei de uma máquina windows para linux, ao invés de criar os diretórios e copiar dentro deles, os arquivos são copiados no diretório raiz, e com um nome gigante, contendo todo o path para onde ele seria copiado. Peço ajuda, e antecipadamente agradeço. Domingos Neto [EMAIL PROTECTED] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Componente TIdFTP (Indy Cliente), diretório remoto .
Oi, pessoal. Vocês sabem como verificar se existe um diretório remoto, no servidor de ftp? Preciso transferir uns arquivos, e devo verificar a existência do diretório, para criá-lo ou não. Agradeço, desde já. Domingos Neto [EMAIL PROTECTED] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] OFF-TOPIC Coletor de dados CPT8000
Bom dia Alguém já instalou este coletor USB no XP? Instalo o berço de comunicação, porem quando vou passar a lista de dados ele dá erro? Coletor de dados portáteis CPT 8000 ChiperLab Elcio Domingos Ramos Demag Cranes Components Ltda. Depto. Informatica Fone: xx (11) 2145-7929 [EMAIL PROTECTED] www.demagcranes.com.br [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] DBexpress e Firebird
Tinha este problema no SQL Server descobri que era o índice de chave primaria. Usei a propriedade IndexFieldName do clienteDataset. Elcio Domingos Ramos Demag Cranes Components Ltda. Depto. de Engenharia Fone: xx (11) 2145-7823 [EMAIL PROTECTED] www.demagcranes.com.br De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Marcelo Mendes de Oliveira Enviada em: quarta-feira, 3 de outubro de 2007 13:14 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] DBexpress e Firebird Boa Tarde Pessoal, Gostaria de saber se algum amigo sabe o que acontece quando o client Dataset trás os dados desordenados, tipo ele traz assim 40, 41, 42, 43, 50, 44, 45, 46, 51, 47, 48, 49 e não na ordem como está na base de dados, ai para que ele ordene eu tenho que dar um order by no SQLDataSet. Alguém sabe como resolver isto?? Obrigado pela ajuda Marcelo Mendes de Oliveira Analista de Informática Tel.: + 49 3551-0177 Fax: + 49 3541-0423 IGUAÇU - celulose, papel s.a www.iguacucelulose.com.br http://www.iguacucelulose.com.br/ http://www.iguacucelulose.com.br/ P Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO AMBIENTE! Before printing this document, think about your responsibility and care for the ENVIRONMENT! [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] OFF-TOPIC - Codigo de barras
Alguem poderia me dar uma força? Estou discutindo com um amigo o desenvolvimento de um software para um mercadinho. Ele esta adquirindo um leitor de código de barras porem foi informado que o modelo CCD não lê código de barra em curva. Pelo que eu saíba o único problema do CCD e o alcance. Isto é valido? Já programei utilizando leitores de código de barras CCD ligados no teclado para lerem fichas de producao, (achei muito pratico não precisa de driver não precisa configurar nada no micro), nunca usei o serial. Existe alguma diferença na instalação, programação etc? Elcio Domingos Ramos [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Erro ao pegar data de um DBEdit
Provavelmente, o formato da data no banco foi gravado com 6 digitos (dd/mm/yy) por isso 1907 tive este problema na conversão de uma base de dados em 2001. Tente pegar a data acessando o Campo DBEdit4.Field.asDateTime estou sem o delphi aqui. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Interbrasileira Enviada em: domingo, 23 de setembro de 2007 10:17 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Erro ao pegar data de um DBEdit Prezados, estou a tentar fazer algo assim: procedure TDados.FormShow(Sender: TObject); Begin If StrToDate(DBEdit4.Text) = 09/10/2007 Then BitBtn4.Visible := false; end; Ou seja, se a data é anterior a X, torna o botão invisível o caso é que tá me retornando msg de errro assim: digamos que a data do registro constante no DBEdit fosse 21.08.2007 então dá o seguinte erro: project inter.exe raised exception class EconvertError with message 21.08.1907' is not a valid date'. Process stopped...etc etc ou seja, a data fica sem formato,, alem de diminur 100 anos... o DBEdit nesse caso, está pegando a data de uma tabela paradox... já alterei a máscara no datafield de diversas formas, mas não deu certo... agradeço qualquer dica do fundo do coração Abraços. Fernando. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos
RES: [delphi-br] Email para celular com o Indy
Durante uns testes que fiz hoje tive de incluir o DDI tente assim [EMAIL PROTECTED] De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo Enviada em: sexta-feira, 21 de setembro de 2007 11:46 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Email para celular com o Indy Pessoal, Estou desenvolvendo uma aplicação em Delphi 2006 que deve enviar avisos via email e para isso uso o Indy 10.1.5. Tudo funciona bem se o email do destinatário é um email comum, como gmail, yahoo ou UOL por exemplo, porém, o email não é enviado caso o destinatário seja um celular. Não recebo nenhuma mensagem de erro, ele finge que enviou normalmente e no email que uso como remetente não recebo nenhuma mensagem de erro, ou seja, o email não está voltando. O celular usado para testes recebe emails no formato [EMAIL PROTECTED] mailto:211234%40clarotorpedo.com.br , por exemplo, e se eu envio um email para este endereço usando o Eudora ou o Outlook e tendo como remetente exatamente a mesma conta de SMTP usada na aplicação, o email vai para o celular sem problemas, em forma de SMS. Será que alguém já passou por isso e tem a solução? Desde já agradeço. Um abraço, Eduardo. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] OFF Topic - Software para farmacia
Tenho um colega que esta precisando de um software para farmácia. Alguém tem algum pronto? [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Usar o botão Cancel do InputBox
Testa se a variável do inputBox e igual a '' (vazio) se for ele cancelou. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de pcinfowave Enviada em: segunda-feira, 14 de maio de 2007 13:04 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Usar o botão Cancel do InputBox Olá... Como usar o botão Cancel do InputBox, de modo a abortar um processo e emitir uma mensagem de que a operação foi cancelada, pois quando eu teclo o referido botão, não armazeno a string que foi pedido para digitar, mas no entanto o fluxo do programa segue, e, no meu caso, dando um erro. No meu caso, eu preciso que seja digitado um numero inteiro, porem se for clicado em cancelar, o sistema deve interromper o processo ou pedir q o usuário tente novamente, mas nao quero fazer isso com repeat, pois quero informar ao usuário. Qualquer ajuda será válida! []´s Paulo [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Re: [OFF-TOPIC] - Totalme nte OFF -Problema na gravação de dados no CDR
Já tive alguns problemas de gravação de CD. Foram solucionados com a atualização da firmware. Elcio Domingos Ramos DEMAG Cranes Components Ltda. www.demagcranes.com.br [EMAIL PROTECTED] Fone: 55 11 2145-7823 De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Leonardo Enviada em: quarta-feira, 11 de abril de 2007 13:57 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: [OFF-TOPIC] - Totalmente OFF -Problema na gravação de dados no CDR Obrigado pela resposta , mas quando se grava cd de Audio em com uma txa alta geralmente os aparelhos mais antigos , falo de apenas um ano atraz , geralemnte nao fazem a leitura da midia Eu gravei com uma taxa de 16x e nao roda de forma alguma. so quando gravo a 4x ou a 8x que ele lê. A gravação realmente é binaria mas a velocidade interfere nao queima do CD interfirindo na leitura dos CDs Hoje os leitores são mais sensiveis e conseguem ler os cds mesmo com uma queima da imagem mais superficial Grato Leonardo Luiz --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br , Ulisses [EMAIL PROTECTED] escreveu Boa tarde! Qual a vantagem de reduzir a velocidade de gravação? Se levar em conta que o sistema de gravação de um CD e DVD é digital, ou seja, é 0 e 1, ou melhor ainda, área queimada e área não queimada, assim sendo, reduzir a velocidade de gravação não traz benefício algum. Quando se utiliza um CD-R 52x, quer dizer que o material com que é feito o CD, tem a sensibilidade para até essa velocidade. A evolução das mídias de CD/DVD foi a evolução do material utilizado. O que tem que ser observado é se o HD do computador, tem um velocidade de leitura superior a taxa de gravação do gravador de CD/DVD. Compre mídia de boa qualidade e específica para a finalidade e, com certeza, vai poder ganhar tempo na gravação e obter um material com qualidade igual o superior ao gravado em velocidade reduzida. Boa sorte. Ulisses - Original Message - From: Leonardo To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Wednesday, April 11, 2007 10:25 AM Subject: [delphi-br] [OFF-TOPIC] - Totalmente OFF -Problema na gravação de dados no CDR Desculpa postar isto mas ja tem uma semana que vasculho na Net a procura de uma resposata e nao encontro nada concreto. Adquiri um PC , e para minha surpresa fui gravar alguns dados (musica) no CD com o Nero e nao consegui diminuir a velocidade de gravação. No WinXP propriedade do CDRW consigo colocar uma txa de gravação de ate 2x mas no Nero so grava com + 16x . No windos MediaPlay ocorre o mesmo problema ele grava sempre com uma taxa alta. Ja gravei em uma outra midia com uma velocidade de 8x portanto nao é o Drive Ja li algo que a midia tem uma taxa minima de gravação assim como uma taxa maxima , isto é real? Alguem tem uma ideia? Agradeço desde ja [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] Urgente TLP 2742
Espero que ajude TLP2742/2844
{Modo formulário
N
O
FK0002
FK0002
FK*
FS0002
V00,29,N,Nome
V01,06,N,NrPedido
V02,13,N,NrPack
V03,30,N,Descricao
V04,10,N,Quant
V05,05,N,Local
V06,14,N,Nrident
V07,16,N,Codigo
V08,29,N,Nome
V09,06,N,NrPedido
V10,13,N,NrPack
V11,30,N,Descricao
V12,10,N,Quant
V13,05,N,Local
V14,14,N,Nrident
V15,16,N,Codigo
q800
Q800,24+0
S2
D8
ZT
TTh:m
TDy2.mn.dd
LO036,041,314,006
LO432,037,314,006
A164,134,0,1,1,1,N,PACK
A560,130,0,1,1,1,N,PACK
A036,134,0,1,1,1,N,QTD
A432,130,0,1,1,1,N,QTD
A034,215,0,1,1,1,N,PD NR
A430,215,0,1,1,1,N,PD NR
A036,014,0,4,2,1,N,V06
A432,010,0,4,2,1,N,V14
B036,051,0,1,2,2,47,N,V07
B432,047,0,1,2,2,47,N,V15
A034,110,0,1,1,1,N,V03
A430,106,0,1,1,1,N,V11
A365,211,3,2,2,3,N,V05
A761,207,3,2,2,3,N,V13
A034,148,0,2,1,2,N,V04
A430,144,0,2,1,2,N,V12
A097,185,0,4,1,2,N,V01
A493,185,0,4,1,2,N,V09
A207,195,0,2,1,2,N,V00
A605,195,0,2,1,2,N,V08
A162,148,0,2,1,2,N,V02
A558,144,0,2,1,2,N,V10
FE
FR0002
?
JATOSTEEL
125952
21525-001 $$
PINO ELASTICO DIAM 5 X 32 55SI
1,
1EN13
34503199
34503199PD125952
JATOSTEEL
125952
21525-001 $$
PINO ELASTICO DIAM 5 X 32 55SI
1,
1EN13
34503199
34503199PD125952
P1,1
}
{Modo direto
N
O
FK*
q800
Q240,24+0
S2
D8
ZT
TTh:m
TDy2.mn.dd
A022,6,0,4,2,2,N,267.469.57
A428,4,0,4,2,2,N,267.469.57
B022,67,0,1,2,2,65,B,26746957OP498651
B428,67,0,1,2,2,57,B,26746957OP498651
LO022,55,314,6
LO428,55,322,6
A022,171,0,2,1,1,N,CDL FRT DFW160
A428,171,0,2,1,1,N,CDL FRT DFW160
A022,193,0,2,2,2,N,ALM 1EA26
A428,193,0,2,2,2,N,ALM 1EA26
P1,01
}
Elcio Domingos Ramos
DEMAG Cranes Components Ltda.
www.demagcranes.com.br
[EMAIL PROTECTED]
Fone: 55 11 2145-7823
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de
softarthelp
Enviada em: quinta-feira, 15 de fevereiro de 2007 17:04
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Urgente TLP 2742
Pessoal, estou com problemas e pouco tempo, alguem tem um exmplo de
impressao de etiquetas (pode ser so codigo(texto)) na impressora TLP
2743. Se tiver o fonte melhor ainda.
Estou tentando com o zebradesigner e nao ta dando certo (sao 4
etiqueas na linha 2 X 1,2), impreme uma linha e para e a luz vermelha
ascende.
Agradeço muito
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Delphi .NET
Olá pessoal, estou com um tremendo problema: Estou desenvolvendo uma aplicaçãozinha em ASP.NET do Delphi 2006. Localmente consigo manipular normalmente o Banco de dados (Access) porém, quando procurei um seridor para hospedar a aplicação, nenhum dá suporte ao Access e o mais barato que achei só dá suporte ao MySQL. Tentei migrar para utilização do MySQL mas não consegui. Alguém teria uma receita de bolo pra eu utilizar o MySQL e conhece algum servidor em que possa hospedar minha aplicação? Obrigado!
RES: [delphi-br] Tecla F10
Não sei se é o seu caso no meu a tecla F10 aciona o Menu principal independente da configuração. mailto:[EMAIL PROTECTED] Elcio Domingos Ramos DEMAG Cranes http://www.demagcranes.com.br/ Components Ltda. Deptº Tempos Metodos. Fone: (11)2145-7823 - Fax : (11)2145-7910 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de RD Sistemas Enviada em: sexta-feira, 7 de julho de 2006 10:55 Para: Delphi BR Assunto: [delphi-br] Tecla F10 Nobres Colegas Esta ocorrente o seguinte problema comigo: Tenho em meu form de cadastro no evento KeyDown o seguinte: If (key=vk_F7) then PageControl3.ActivePage:=TabSheet3; If (key=vk_F8) then PageControl3.ActivePage:=TabSheet4; If (key=vk_F9) then PageControl3.ActivePage:=TabSheet7; If (key=vk_F10) then PageControl3.ActivePage:=TabSheet12; If (key=vk_F11) then PageControl3.ActivePage:=TabSheet13; Quando executo e vou testar ao chegar na TabSheet12 (Tecla F10) e ao pressionar as outras teclas de função o mesmo não muda de TabSheet. Notei que pressionando a tecla F10 2 vezes o mesmo aceita a mudança. Quando pressiono uma só vez, noto que o mesmo perde o foco. Pressionando novamente retorna o foco. Alguém já viu isto? Nota: Troquei o vk_F10 por vk_F12 e o mesmo funcionou normalmente. Utilizo Delphi 7 com Windows XP Professional Gratos. --- avast! Antivirus: Mensagem livre de virus. Virus Database (VPS): 0627-2, 06/07/2006 Testado em: 07/07/2006 10:56:12 avast! - copyright (c) 1988-2006 ALWIL Software. [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
RES: [delphi-br] Codificação do Botão Sai r
Tenta assim
If TbSupSetor.State = dsEdit Then
...
Elcio Domingos Ramos
DEMAG Cranes Components Ltda.
Deptº Tempos Metodos.
Fone: (11)2145-7823 - Fax : (11)2145-7910
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Moked - Tamara (Brazil)
Enviada em: terça-feira, 2 de maio de 2006 14:35
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Codificação do Botão Sair
Onde esta dando erro? na pergunta? ou compila certinho e o problema esta em realemente estar em edit?
Eu ñ entendi direito o problema, embora pareça ser simples. Fale qual o erro, qual a situação, dai quem sabe posso ajudar...
Obrigada,
Tamara Clemente - Suporte Técnico
Moked do Brasil - Consultoria de Segurança Empresarial
Divisão MokInf de Informática
PABX: (55-11) 5071-2748
[EMAIL PROTECTED] mailto:[EMAIL PROTECTED]
www.moked.com.br http://www.moked.com.br/
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de hebervan
Enviada em: terça-feira, 2 de maio de 2006 14:17
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Codificação do Botão Sair
Olá pessoal, sou iniciante e estou fazendo um software de cadastro e
agora apareceu uma dúvida na codificação do botão Sair. Eu quero que
ele verifique antes se a tabela está em modo de edição. O que eu fiz
até agora está assim, mas só dá erro. Alguém pode me dar uma dica?
Obrigado!
procedure TfCadSupSetor.BitBtnSairClick(Sender: TObject);
begin
If TbSupSetor.Edit Then
ShowMessage('Cancele a operação antes de fechar o programa.')
else
close
end
end;
--
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]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
Links do Yahoo! Grupos
Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.
Re: [delphi-br] URGENTE!!!!
Moura - Recife/PE - Brasil 379 - Gustavo Augusto de Souza Sequeira Olinda/PE - Brasil 380 - Domingos Machado - São Luís - MA. -- Att. Gustavo Sequeira Respondeu-lhe Yaohushua: Eu sou o caminho, e a verdade, e a vida; ninguém vem ao Pai, senão por mim. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos - Yahoo! Acesso Grátis Internet rápida e grátis. Instale o discador agora! [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Selecionar só o diretório
Tenta assim. if openDlgBD.execute then begin ArquivoSelfoto := trim(OpenDlgBD.FileName); edpathfoto.Text := ExtractFilePath(OpenDlgBD.FileName); end; end; Elcio Domingos Ramos DEMAG Cranes Components Ltda. Deptº Tempos Metodos. Fone: (11)2145-7823 - Fax : (11)2145-7910 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Cícero Enviada em: sexta-feira, 21 de outubro de 2005 10:40 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Selecionar só o diretório Ninguém respondeu ainda... -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Cícero Enviada em: quinta-feira, 20 de outubro de 2005 17:01 Para: Listadelphi (E-mail) Assunto: [delphi-br] Selecionar só o diretório Fiz esta rotina que está funcionando maravilhosamente, porém, no ARQUIVOSELFOTO, eu só quero o diretório e não diretório e arquivo.jpg o que está faltando? begin openDlgBD.Filter := 'Bases de Dados Access|*.jpg;*.gif;*.jpeg'; openDlgBD.Title := 'Seleção do banco de dados do sistema'; DirExe := ExtractFilePath(ParamStr(0)); openDlgBD.InitialDir := DirExe; if openDlgBD.execute then begin ArquivoSelfoto := trim(OpenDlgBD.FileName); edpathfoto.Text := trim(OpenDlgBD.FileName); end; end; -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Messages
Uso esta para verificar se a aplicação sem uso ai tem as teclas que você quer procedure TfrmPrincipal.eventosMessage(var Msg: tagMSG; var Handled: Boolean); var ONumero: SmallInt; begin inherited; case MSg.message of WM_MOUSEWHEEL: begin FContador := 0.00; Msg.message := WM_KEYDOWN; Msg.lparam := 0; ONumero := HiWord(Msg.wParam); if ONumero 0 then Msg.wParam := VK_UP else Msg.wParam := VK_DOWN; Handled := False; end; WM_MOUSEFIRST: begin if (FMouseY Msg.pt.Y) and (FMouseX Msg.pt.X) then begin FMouseY := Msg.pt.Y; FMouseX := Msg.pt.X; FContador := 0.00; Handled := False; end; end; WM_KEYFIRST..WM_KEYLAST, WM_LBUTTONDOWN, WM_RBUTTONDOWN: begin FContador := 0.00; Handled := False; end; end; end; Elcio Domingos Ramos DEMAG Cranes Components Ltda. Deptº Tempos Metodos. Fone: (11)2145-7823 - Fax : (11)2145-7910 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de ArbSis Enviada em: terça-feira, 29 de novembro de 2005 23:02 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Messages procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean); begin Case Msg.message of WM_SETTEXT :Timer1.Enabled := False; end; end; Pessoal alguem sabe qual é a TMsg que diz que alguma tecla foi pressionada... eu sei quais são do mouse, mas do teclado eu não sei preciso saber pois irei fazer um descanso de tela para meu soft valeu ___ Yahoo! doce lar. Faça do Yahoo! sua homepage. http://br.yahoo.com/homepageset.html -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Desligar o Windows 2000 Professional
Tenta essa
procedure TfrmPrincipal.MenuDesligarClick(Sender: TObject);
var
pid, hToken: THANDLE;
tkp, tpkNewButIgnored: TOKEN_PRIVILEGES;
tmpLuid: TLUIDAndAttributes;
BufLen: DWORD;
begin
if Mensagens([MbYes, MBNo], 'Desligar o Computador ?') = IDYes then
begin
Pid := GetCurrentProcess;
OpenProcessToken(Pid, TOKEN_ADJUST_PRIVILEGES + TOKEN_QUERY, hToken);
LookUpPrivilegeValue(nil, 'SeShutdownPrivilege', tmpLUID.LUID);
with tkp do
begin
PrivilegeCount := 1;
Privileges[0].Luid := tmpLUID.LUID;
Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
end;
AdjustTokenPrivileges(hToken, False, tkp,
sizeof(tpkNewButIgnored), tpkNewButIgnored, BufLen);
if not ExitWindowsEx(EWX_FORCE + EWX_POWEROFF, 0) then { POWEROFF }
ExitWindowsEx(EWX_FORCE + EWX_LOGOFF, 0); { LOGOFF }
Close;
end;
end;
Elcio Domingos Ramos
DEMAG Cranes Components Ltda.
Deptº Tempos Metodos.
Fone: (11)2145-7823 - Fax : (11)2145-7910
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Rogério
Enviada em: segunda-feira, 21 de novembro de 2005 13:56
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Desligar o Windows 2000 Professional
Alguém sabe como desligar o WIndows 2000 professional, via código delphi ??
Tenho um exemplo, mas só funciona para Win 98 !
Vejam abaixo o ex. para Win98 :
-
uses Shellapi;
{$R *.DFM}
procedure desliga;
begin
ExitWindowsEx(EWX_SHUTDOWN+EWX_FORCE, 0);
end;
-
Alguém sabe ?
[ ]'s
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Links do Yahoo! Grupos
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
RES: [delphi-br] Campo Agregado - Esta está Difí cil
Bom Dia Tenta assim DBEDITTOTAL.asString := DBEDITSUBTOTAL.DisplayText Elcio Domingos Ramos DEMAG Cranes Components Ltda. Deptº Tempos Metodos. Fone: (11)2145-7823 - Fax : (11)2145-7910 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Cristiano Rodrigo Gomes Enviada em: quarta-feira, 5 de outubro de 2005 08:06 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Campo Agregado - Esta está Difícil Bom dia a todos, estou com problemas na utilização de campos agregados, bem vamos lá. Estou utilizando um componente chamado RXMEMORYDATA, que simula um DataSet, porém com os dados apenas em memória e eles estão interligados em um Data Module da Seguinte Forma: RXMEMORYDAT - DATASETPROVIDER - CLIENTDATASET - DATASOURCE No CLIENTDATASET criei um campo AGREGADO para relizar a soma dos campos, e este campo AGREGADO está ligado a um DBEDDIT, que exite a soma NORMALMENTE. Aí que vem o problema. A exibição deste campo está OK, porém não consigo pegar o conteúdo deste DBEDIT ligado ao CAMPO AGREGADO e levar para outro DBEDIT. tipo assim mesmo: DBEDITTOTAL.AsFloat := DBEDITSUBTOTAL.AsFloat O campo DBEDITSUBTOTAL é o campo agregado. Se alguém puder me ajudar. Uso Delphi 7 e Firebird. _ MSN Messenger: converse com os seus amigos online. http://messenger.msn.com.br -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Não permitir Acentuação
Bom Dia Tenta Assim No evento onKeyPress if not (Key in ['A'..'Z']) then Key := #0; -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de jmourajr2000 Enviada em: quarta-feira, 28 de setembro de 2005 22:04 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Não permitir Acentuação Caros amigos boa noite! Para permitir que em um TEdit ou TDBEdit sejam digitados somente caracteres numericos eu estou conseguindo, mas como posso fazer com que estes mesmos componentes Não permitam o usuário digitar acentos (^,~,´,`) e ou palavras acentuadas e também o Ç(C cedilha). To ficando pinel. Agradeço de ante-mão quem puder ajudar. Grande abraço a todos José de Moura -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Enviar E-Mails Outlook - Segurança
Bom Dia Srs.
Estou tendo prolemas quando envio E-Mails pelo OutLook. Ao enviar aparece uma
de tela de seguranca do outlook pedindo para confirmar o envio! Alguem sabe com
evitar esta tela.
try
OutlookApp := GetActiveOleObject('Outlook.Application');
except
OutlookApp := CreateOleObject('Outlook.Application');
end;
{}
try
MailItem :=
OutlookApp.CreateItem(olMailItem);
{}
try
{}
MailItem.Importance := 2;
MailItem.Subject := Titulo;
MailItem. to := Para;
MailItem.Bcc := Copia; {Copia Oculta}
{MailItem.CC := Copia;}
{}
if de '' then
MailItem.SentOnBehalfOfName := de;
{}
if bHTML then
MailItem.HTMLBody := Descr
else
MailItem.Body := Descr;
{}
if FileExists(Arq) then
MailItem.Attachments.Add(Arq, olByValue, 1, ExtractFileName(Arq));
if FileExists(JpgLogo) then
MailItem.Attachments.Add(JpgLogo, olByValue, 1,
ExtractFileName(jpgLogo));
{}
MailItem.Save; {Guarda na pasta rascunhos}
Application.ProcessMessages;
if bSend then
MailItem.Send {Envia}; AQUI ELE GERA A TELA DE SEGURANCA
Elcio Domingos Ramos
[EMAIL PROTECTED]
Deptº Tempos e Metodos.
DEMAG Cranes Components Ltda.
Equipamentos de movimentação de carga.
Fone: (11) 2145-7823 Fax: (11) 2145-7910
-
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
RES: [delphi-br] Enviar E-Mails Outlook - Segura nça
Boa tarde Srs.
Estou tendo problemas quando envio E-Mails pelo OutLook. Ao enviar aparece uma
de tela de seguranca do outlook pedindo para confirmar o envio! Alguem sabe com
evitar esta tela.
try
OutlookApp := GetActiveOleObject('Outlook.Application');
except
OutlookApp := CreateOleObject('Outlook.Application');
end;
{}
try
MailItem :=
OutlookApp.CreateItem(olMailItem);
{}
try
{}
MailItem.Importance := 2;
MailItem.Subject := Titulo;
MailItem. to := Para;
MailItem.Bcc := Copia; {Copia Oculta}
{MailItem.CC := Copia;}
{}
if de '' then
MailItem.SentOnBehalfOfName := de;
{}
if bHTML then
MailItem.HTMLBody := Descr
else
MailItem.Body := Descr;
{}
if FileExists(Arq) then
MailItem.Attachments.Add(Arq, olByValue, 1, ExtractFileName(Arq));
if FileExists(JpgLogo) then
MailItem.Attachments.Add(JpgLogo, olByValue, 1,
ExtractFileName(jpgLogo));
{}
MailItem.Save; {Guarda na pasta rascunhos}
Application.ProcessMessages;
if bSend then
MailItem.Send {Envia}; AQUI ELE GERA A TELA DE SEGURANCA
elcio Domingos Ramos
[EMAIL PROTECTED]
Deptº Tempos e Metodos.
DEMAG Cranes Components Ltda.
Equipamentos de movimentação de carga.
Fone: (11) 2145-7823 Fax: (11) 2145-7910
-
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
RES: [delphi-br] Re: Enviando e-mail
Anexe a Imagem, Attachments.Add('c:\tagai.gif');
e coloque sem o C:\ src=tagai.gif
Elcio Domingos Ramos
[EMAIL PROTECTED]
Deptº Tempos e Metodos
DEMAG Cranes Components Ltda.
Equipamentos de movimentação de carga.
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Cleudes
Enviada em: segunda-feira, 30 de maio de 2005 17:43
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Re: Enviando e-mail
Pessoal, consegui enviar o e-mail, mais não estou conseguindo anviar
com uma imagem .GIF estou usando esse comando,...
NMSMTP1.PostMessage.Body.Clear;
NMSMTP1.PostMessage.Body.Add('META content=MSHTML 6.00.2800.1458
name=GENERATOR');
NMSMTP1.PostMessage.Body.Add('STYLE/STYLE');
NMSMTP1.PostMessage.Body.Add('/HEAD');
NMSMTP1.PostMessage.Body.Add('BODY bgColor=#ff');
NMSMTP1.PostMessage.Body.Add('DIVFONT face=Arial size=2Verificar
o código fonte./FONT/DIV');
NMSMTP1.PostMessage.Body.Add('DIVFONT face=Arial
size=2/FONTnbsp;/DIV');
NMSMTP1.PostMessage.Body.Add('DIVIMG alt= hspace=0
src=C:\tagai.gif align=baseline border=0/DIV');
// Corpo do email
NMSMTP1.SendMail; // Envia o email
alguem poderia me ajudar por favor
--- Em delphi-br@yahoogrupos.com.br, Cleudes [EMAIL PROTECTED] escreveu
olá a Todos.
Estou necessitando uma ajuda, tenho um programa em delphi
que
envia e-mail ou deveria enviar,...o que acontece não está
enviando,
segui passo-a-passo e nada, o fonte é esse:
procedure TForm1.Button1Click(Sender: TObject);
begin
{ Host do servidor de e-mail }
NMSMTP1.Host := 'mail.servidor.com.br';
NMSMTP1.Port := 25;
{ Nome de login do usuário }
NMSMTP1.UserID := 'nome-do-usuario';
NMSMTP1.Connect;
if not NMSMTP1.Connected then
raise Exception.Create('Erro de conexão');
with NMSMTP1.PostMessage do begin
{ E-mail do remetente }
FromAddress := '[EMAIL PROTECTED]';
{ Nome do remetente }
FromName := 'Nome';
{ E-mail do destinatário }
ToAddress.Clear;
ToAddress.Add('[EMAIL PROTECTED]');
Subject := 'Assunto da mensagem';
{ Corpo da mensagem }
Body.Clear;
Body.Add('Primeira linha da mensagem');
Body.Add('Segunda linha da mensagem');
Body.Add(''); { Linha em branco }
Body.Add('Última linha da mensagem');
{ Anexar arquivos }
Attachments.Clear;
Attachments.Add('c:\diretorio\arquivo.ext');
end;
NMSMTP1.SendMail;
NMSMTP1.Disconnect;
end;
quando chega no comando SendMail parece que não envia, ou melhor e
nao recebo. alguem pode me ajudar ou se alguem já fez um programa
que envie e-mail.
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
_
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED] mailto:[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo! http://br.yahoo.com/info/utos.html .
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
RES: [delphi-br] Trabalhando com TRichEdit
Não sei se da certo no PostgreSQL 8 mas tente salvar como Arquivo texto. Antes de Gravar RichEdit1.PlainText := True Elcio Domingos Ramos [EMAIL PROTECTED] Deptº Tempos e Metodos DEMAG Cranes Components Ltda. Equipamentos de movimentação de carga. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Osmar de Souza Júnior Enviada em: segunda-feira, 30 de maio de 2005 17:39 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Trabalhando com TRichEdit Estou trabalhando com um TRichEdit. Consigo formatar o texto em negrito, itálico ou sublinhado. Mas quando o texto é salvo no banco (PostgreSQL 8), ele fica como texto comum. Como faço para gravar a formatação do texto junto ??? Eu usei o campo do tipo TEXT, do Postgres. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] AJUDA - SQL
Tente Assim e vê se funciona. Os campos string tem de estar em ou '' SQL.Text := 'Select A.COD_PRODUTO, A.DESCRICAO, A.VALOR, C.NOME From PRODUTOS A, FORNECEDOR C Where (C.NOME = ' + QuotedStr(LPesquisar.Text) + ' or A.DESCRICAO= ' + QuotedStr(descricao.Text) + ' or A.COD_PRODUTO =' + QuotedStr(cod_produto.Text) + ') and A.COD_FORNECEDOR = C.COD_FORNECEDOR'; Elcio Domingos Ramos mailto:[EMAIL PROTECTED] DEMAG Cranes Components Ltda. Planejamento Industrial Fone: (11)2145-7823 - Fax : (11)2145-7910 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de T a t y S a n t a n a Enviada em: terça-feira, 10 de maio de 2005 13:11 Para: Grupo de Delphi Assunto: [delphi-br] AJUDA - SQL Olá pessoal, olha como ficou minha SQL agora: With DM.QPesquisar do Begin SQL.Clear; SQL.Text := 'Select A.COD_PRODUTO, A.DESCRICAO, A.VALOR, C.NOME From PRODUTOS A, FORNECEDOR C Where (C.NOME = '+LPesquisar.Text+' or A.DESCRICAO= '+descricao.Text+' or A.COD_PRODUTO ='+cod_produto.Text+') and A.COD_FORNECEDOR = C.COD_FORNECEDOR'; Open; End; e o erro agora, é o seguinte: ERRO: Conversion error from String. Definitivamente não funciona, não sei o que fazer mais. Taty Santana - Original Message - From: Anderson Quandt Venancio To: delphi-br@yahoogrupos.com.br Sent: Tuesday, May 10, 2005 10:28 AM Subject: Re: [delphi-br] AJUDA - SQL Primeiro, você tem que 'isolar' as condições do WHERE, pois senão ele vai se perder. O correto seria assim: SQL.Text := 'Select A.Cod_produto, A.Descricao, A.valor, C.NOME From PRODUTOS A, FORNECEDOR C Where (C.NOME = '+LPesquisar.Text+' or A.Descricao= '+descricao.Text+' or A.Cod_Produto ='+cod_produto.Text+ ') and A.COD_FORNECEDOR = C.COD_FORNECEDOR Ou seja, as condições OR devem ficar dentro de parêntesis e a outra condição (And) fora de parêntesis. Em segundo lugar, referente ao erro -104, dá uma conferida no nome das tabelas e colunas que você colocou no SQL, prá ver se está igual na sua base de dados, pois normalmente este erro ocorre quando foi informada uma tabela/coluna que não existe. sds Anderson Olá pessoal bom dia, será que alguém poderia me ajudar. To terminando meu projeto de fim de curso e to fazendo as consultas. Utilizei um Query pra fazê-las, só que não dá certo. Preciso pesquisar um produto pelo código dele, pelo nome e pelo fornecedor daquele produto. Construí a seguinte rotina. With DM.QPesquisar do Begin SQL.Clear; SQL.Text := 'Select A.Cod_produto, A.Descricao, A.valor, C.NOME From PRODUTOS A, FORNECEDOR C Where C.NOME = '+LPesquisar.Text+' or A.Descricao= '+descricao.Text+' or A.Cod_Produto ='+cod_produto.Text+ ' and A.COD_FORNECEDOR = C.COD_FORNECEDOR'; Open; End; Não mudei de linha no código SQL aqui é porque não cabe. Aí quando se vai pra execução quando eu clico no botão onde programei esse SQL ele dá o seguinte erro. DYNAMIC SQL ERROR SQL ERRO COD = - 104 TOKEN UNKNOWN - LINE 1, CHAR 148 END. Nem sei mais o q testar. Já mudei diversas vezes e nada. Se alguém tiver uma idéia. Obrigada.. Taty Santana [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE http://br.rd.yahoo.com/SIG=12a8a3bli/M=264379.5078783.6203979.1588051/D=brclubs/S=2137111264:HM/EXP=1115750080/A=2332652/R=0/id=noscript/SIG=119058f8i/*http://br.download.yahoo.com/messenger/ _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http
RES: [delphi-br] Impressora USB
E ai tudo bem Vê se este exemplo lhe serve http://www.swissdelphicenter.ch/en/showcode.php?id=716 Outra forma se possível e colocar a impressora compartilhada em rede e acessa-la pela \\Servidor\Impressora USB Elcio Domingos Ramos mailto:[EMAIL PROTECTED] DEMAG Cranes Components Ltda. Planejamento Industrial Fone: (11)2145-7823 - Fax : (11)2145-7910 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Levi Tancredo Enviada em: quarta-feira, 27 de abril de 2005 14:40 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Impressora USB Pessoal, estou imprimindo para a porta LPT1, usando um comando de copiar arquivo, exemplo copy arquivo.txt lpt1 Ele funciona muito bem, mas atualmente existem essas impressoas USB como faço para imprimir em uma porta dessa? já tentei copy arquivo.txt USB e não funciona. Alguem tem alguma solução? Já pesquisei sobre o assunto e até agora nada. Agraço a atenção dos amigos. Levi. Levi Tancredo FLEX Soluções Ltda. http://www.flexsolucoes.com.br/ http://www.flexsolucoes.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: http://br.rd.yahoo.com/SIG=12a29o30a/M=264379.5078783.6203979.1588051/D=brclubs/S=2137111264:HM/EXP=1114630892/A=2191897/R=0/SIG=10vqa2grn/*http://br.diversao.yahoo.com/ http://br.rd.yahoo.com/SIG=12a29o30a/M=264379.5078783.6203979.1588051/D=brclubs/S=2137111264:HM/EXP=1114630892/A=2191897/R=1/SIG=10vqa2grn/*http://br.diversao.yahoo.com/ São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do http://br.yahoo.com/info/utos.html Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Abrir .RTF Delphi - Word
E ai tudo bem
Tenho esta rotina para converter um modelo RTF feito no Word.
Carrego o documento no RICHEDIT com a propriedade PLAINTEXT = TRUE e VISIBLE =
FALSE depois passo o RICHEDIT, TAG e o TEXTO para a procedure.
Depois salvo e abro no Word para impressão e ou envio por EMAIL.
Não testei com TSTRINGLIST, pois uso o RICHEDIT para outras rotinas, mas acho
que deve funcionar tambem.
procedure Converte(Rich: TRichedit; Tag, Texto: string; Final: Integer = 0);
var
Inicio: Integer;
begin
if Pos(Tag, Rich.Text) = 0 then
raise exception.Create('Tag não encontrada!'#13 + Tag);
while Pos(Tag, Rich.Text) 0 do
begin
{}
Inicio := Pos(Tag, Rich.Text) - 1;
Rich.SelStart := Inicio;
Rich.SelLength := Length(Tag);
{}
Rich.SelText := Texto;
{}
if Final 1 then
begin
if (Tag = 'A1') or (Tag = 'A2') or (Tag = 'A3') or
(Tag = 'A4') or (Tag = 'A5') or (Tag = 'A6') or
(Tag = 'A7') or (Tag = 'A8') or (Tag = 'A9') or
(Tag = 'A9') or (Tag = 'A10') or (Tag = 'A11') or
(Tag = 'A12') or (Tag = 'A13') or (Tag = 'B1') or
(Tag = 'B2') or (Tag = 'B3') or (Tag = 'B4') or
(Tag = 'B5') or (Tag = 'B6') or (Tag = 'B7') or
(Tag = 'B8') or (Tag = 'B9') then
begin
Exit;
end;
end;
end;
end;
Elcio Domingos Ramos mailto:[EMAIL PROTECTED]
DEMAG Cranes Components Ltda.
Planejamento Industrial
Fone: (11)2145-7823 - Fax : (11)2145-7910
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Dimas
Enviada em: sábado, 23 de abril de 2005 09:28
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Abrir .RTF Delphi - Word
Mais uma duvida (Uso Delphi 7)
Preciso abrir um arquivo MODELO.RTF com o Word (mas sem mostrar o
Word sendo aberto)
Neste arquivo, preciso localizar as palavras
xxNOME e trocar por Nome do Cliente
xxRGe trocar pelo numero do RG do cliente
Salvar o arquivo como CARTA.RTF ou CARTA.DOC
Pesquisei mas só achei exemplos em como Criar um
novo documento.. e nao como Abrir um ja existente.
Obrigado
Dimas Fernando
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
http://br.rd.yahoo.com/SIG=12a28vpuq/M=264379.5078783.6203979.1588051/D=brclubs/S=2137111264:HM/EXP=1114266553/A=2191897/R=0/SIG=10vqa2grn/*http://br.diversao.yahoo.com/
http://br.rd.yahoo.com/SIG=12a28vpuq/M=264379.5078783.6203979.1588051/D=brclubs/S=2137111264:HM/EXP=1114266553/A=2191897/R=1/SIG=10vqa2grn/*http://br.diversao.yahoo.com/
São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília
_
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED] mailto:[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
http://br.yahoo.com/info/utos.html Serviço do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
RES: [delphi-br] Imprimindo textos - Não tão simples quanto parece
Vê se isto lhe atende http://www.swissdelphicenter.ch/en/showcode.php?id=716 Elcio Domingos Ramos mailto:[EMAIL PROTECTED] DEMAG Cranes Components Ltda. Planejamento Industrial Fone: (11)2145-7823 - Fax : (11)2145-7910 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Eduardo E. J. Menoncello Enviada em: terça-feira, 19 de abril de 2005 08:38 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Imprimindo textos - Não tão simples quanto parece Caros Colegas, Eu estou com um pequeno grande problema. Eu tenho um texto em TStringList, e preciso imprimir em forma de texto, procurando na net, só encontrei imprimindo como se imprimia no Turbo Pascal, mas ele só imprime pra porta LPT, gostaria que ele fosse direto pra impressora padrão. Utilizando o TPrinter, só imprime o que estiver no Canvas, então não imprime em texto, e sim em imagem. Grato por qualquer ajuda Eduardo [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE http://br.rd.yahoo.com/SIG=12amqg5n7/M=264379.5078783.6203979.1588051/D=brclubs/S=2137111264:HM/EXP=1113917959/A=2332652/R=0/id=noscript/SIG=119058f8i/*http://br.download.yahoo.com/messenger/ _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do http://br.yahoo.com/info/utos.html Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Enviar E-Mail Formatado
Peguei esta função na net consigo enviar os e-mails normalmente porem não
consigo envia-los em formato HTML no M$ Outlook.
Alguém sabe se tem como?
//função para abrir Outlook Express e enviar dados para o mesmo
function SendEMail(Handle: THandle; Mail: TStrings): Cardinal;
type
TAttachAccessArray = array[0..1] of TMapiFileDesc;
PAttachAccessArray = ^TAttachAccessArray;
var
MapiMessage: TMapiMessage;
Receip: TMapiRecipDesc;
Attachments: PAttachAccessArray;
AttachCount: Integer;
i1: integer;
FileName: string;
dwRet: Cardinal;
MAPI_Session: Cardinal;
WndList: Pointer;
begin
Result := MAPI_E_USER_ABORT;
{}
dwRet := MapiLogon(Handle, PChar(''), PChar(''), MAPI_LOGON_UI or
MAPI_USE_DEFAULT, 0, @MAPI_Session);
if (dwRet SUCCESS_SUCCESS) then
begin
MessageBox(Handle, PChar('Erro tentando mandar E-Mail...'),
PChar('Error'),
MB_ICONERROR or MB_OK);
end
else
begin
FillChar(MapiMessage, SizeOf(MapiMessage), #0);
Attachments := nil;
FillChar(Receip, SizeOf(Receip), #0);
if Mail.Values['to'] '' then
begin
Receip.ulReserved := 0;
Receip.ulRecipClass := MAPI_TO;
Receip.lpszName := StrNew(PChar(Mail.Values['to']));
Receip.lpszAddress := StrNew(PChar('SMTP:' + Mail.Values['to']));
Receip.ulEIDSize := 0;
MapiMessage.nRecipCount := 1;
MapiMessage.lpRecips := @Receip;
MapiMessage.lpszDateReceived := nil;
MapiMessage.lpszConversationID := nil;
end;
AttachCount := 0;
for i1 := 0 to MaxInt do
begin
if Mail.Values['attachment' + IntToStr(i1)] = '' then
break;
Inc(AttachCount);
end;
if AttachCount 0 then
begin
GetMem(Attachments, (SizeOf(TMapiFileDesc) * AttachCount));
for i1 := 0 to AttachCount - 1 do
begin
FileName := Mail.Values['attachment' + IntToStr(i1)];
{}
Attachments^[i1].ulReserved := 0;
Attachments^[i1].flFlags := MAPI_OLE_STATIC;
Attachments^[i1].nPosition := Cardinal(-1);
Attachments^[i1].lpszPathName := StrNew(PChar(FileName));
Attachments^[i1].lpszFileName :=
StrNew(PChar(ExtractFileName(FileName)));
Attachments^[i1].lpFileType := nil;
end;
MapiMessage.nFileCount := AttachCount;
MapiMessage.lpFiles := @Attachments^;
MapiMessage.flFlags := MAPI_LONG_MSGID;
end;
{
}
if Mail.Values['subject'] '' then
MapiMessage.lpszSubject := StrNew(PChar(Mail.Values['subject']));
if Mail.Values['body'] '' then
MapiMessage.lpszNoteText := StrNew(PChar(Mail.Values['body']));
WndList := DisableTaskWindows(0);
try
Result := MapiSendMail(MAPI_Session, Handle,
MapiMessage, MAPI_DIALOG, 0);
ShowMessage(IntToStr(Result));
finally
EnableTaskWindows(WndList);
end;
for i1 := 0 to AttachCount - 1 do
begin
StrDispose(Attachments[i1].lpszPathName);
StrDispose(Attachments[i1].lpszFileName);
end;
if Assigned(MapiMessage.lpszSubject) then
StrDispose(MapiMessage.lpszSubject);
if Assigned(MapiMessage.lpszNoteText) then
StrDispose(MapiMessage.lpszNoteText);
if Assigned(Receip.lpszAddress) then
StrDispose(Receip.lpszAddress);
if Assigned(Receip.lpszName) then
StrDispose(Receip.lpszName);
MapiLogOff(MAPI_Session, Handle, 0, 0);
end;
end;
Elcio Domingos Ramos mailto:[EMAIL PROTECTED]
DEMAG Cranes Components Ltda.
Planejamento Industrial
Fone: (11)2145-7823 - Fax : (11)2145-7910
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Enviar Email - com Indy
Boa tarde galera Tenho uma rotina para enviar e-mails com components Indy funciona muito bem para e-mails internos, porem externos não consegue enviar por causa da autenticação, o protocolo aqui e o GSSAPI e pelo que entendi na pagina os componentes Indy não tem suporte para este protocolo. Alguém já passou por isso ou sabe de algum componente FREE que eu possa usar para este protocolo? Elcio Domingos Ramos mailto:[EMAIL PROTECTED] DEMAG Cranes Components Ltda. Planejamento Industrial Fone: (11)2145-7823 - Fax : (11)2145-7910 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Indy - Enviar E-Mail
Boa tarde galera Criei uma rotina com componentes Indy para enviar E-Mail. Bom para E-Mails internos na empresa funciona beleza, mas quando tento enviar um E-mail externo me vem a mensagem 550 5.7.1 UNABLE TO RELAY FOR [EMAIL PROTECTED] Alguém já passou por isso? Elcio Domingos Ramos mailto:[EMAIL PROTECTED] DEMAG Cranes Components Ltda. Planejamento Industrial Fone: (11)2145-7823 - Fax : (11)2145-7910 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Trabalhando com um intervalo de datas
Bom dia Walter
Uso este comando no SQL Server para verificar se um determinado horário esta
entre dois horários no caso Data + Hora
SELECT * FROM Calendário WHERE DATA_INICIO = :DATA_INICIO AND DATA_FIM =
:DATA_FIM
Elcio Domingos Ramos mailto:[EMAIL PROTECTED]
DEMAG Cranes Components Ltda.
Planejamento Industrial
Fone: (11)2145-7823 - Fax : (11)2145-7910
-Mensagem original-
De: Walter Alves Chagas Junior [mailto:[EMAIL PROTECTED]
Enviada em: quarta-feira, 23 de março de 2005 18:56
Assunto: [delphi-br] Trabalhando com um intervalo de datas
Pessoal, pode parecer uma dúvida primária, mas eu preciso saber como ver se
uma determinada data está contida em um intervalo entre duas datas (o
intervalo consistiria da Data inicial e fosse até a data final). Vejam
abaixo como estou fazendo:
Result := (qryAfastado.Eof) or (dDataInicio in
[qryAfastado.FieldByName('DATAFINAL').AsDateTime,
qryAfastado.FieldByName('DATAINICIO').AsDateTime]) then
Mas não está funcionando. O compilador diz que tem que ser um array de tipo
ordinal.
O que eu quero é, por exemplo, que lançada uma data no sistema: 23/03/2005,
o sistema verifique se ela estaria contida em um intervalo que iria do dia
15/03/2005 até o dia 15/04/2005
Alguém teria uma dica para isto (Pode ser em SQL também)?
[]s
Walter Alves Chagas Junior
Projeto e desenvolvimento
Telemont Engenharia de telecomunicações
[EMAIL PROTECTED]
Fone: (31) 3389-8215 Fax: (31) 3389-8200
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
http://br.rd.yahoo.com/SIG=12ah7h1s7/M=264379.5078783.6203979.1588051/D=brclubs/S=2137111264:HM/EXP=701304/A=2191897/R=0/SIG=10vqa2grn/*http://br.diversao.yahoo.com/
http://br.rd.yahoo.com/SIG=12ah7h1s7/M=264379.5078783.6203979.1588051/D=brclubs/S=2137111264:HM/EXP=701304/A=2191897/R=1/SIG=10vqa2grn/*http://br.diversao.yahoo.com/
São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília
_
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED] mailto:[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
http://br.yahoo.com/info/utos.html Serviço do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
RES: [delphi-br] Erro inexplicavel - comonente ADOQuery
Bom Dia
Inverta a ordem da instruções
- Primeiro adicione o comando SQL
Query := 'select nome from cliente,ClienteConta '+
'where Cliente.cdCliente = ClienteConta.cdCliente and '+
'ClienteConta.idCartao = :id';
- Depois teste o Parâmetro ele cria automaticamente
//Adiciona um novo parametro a lista de parametros da query caso nao haja
nenhum
with ModuloDados.DataModulePrototipo.ADOQuery1.Parameters do
begin
if Count = 0 then // Nesse momento o parâmetro já deve existir com as
propriedades já definidas
AddParameter;
end;
//inicializa as variaveis de configuração do novo parametro
with ModuloDados.DataModulePrototipo.ADOQuery1.Parameters.Items[0] do
begin
DataType := ftInteger;
Direction := pdInput;
name:= 'id';
Value:= idCartao;
end;
Elcio Domingos Ramos mailto:[EMAIL PROTECTED]
DEMAG Cranes Components Ltda.
Planejamento Industrial
Fone: (11)2145-7823 - Fax : (11)2145-7910
-Mensagem original-
De: Sinaide Júnior [mailto:[EMAIL PROTECTED]
Enviada em: sexta-feira, 18 de março de 2005 00:08
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Erro inexplicavel - comonente ADOQuery
Caros colegas,
Meu nome é Sinaide Jr. e acabo de ser integrado a lista.
Estou desenvolvendo um pequeno sistema e utilizo componentes ADO para acesso
a banco de dados. Na utilização especificamente do componente ADOQuery tem
acontecido algo que nao consigo entender. Criei um procedimento em que adiciono
(em RunTime) um objeto Parameter na Coleção Parameters do referido Componente e
seto as senguintes propriedades como indicado abaixo:
DataType := ftInteger;
Direction := pdInput;
name:= 'id';
Value:= idCartao;
Em seguida Insiro a String contendo o código SQL (uma consulta) à propriedade
SQL do componente ADOQuery atraves do método append, e em seguida ativo este
componente atraves do metodo open. Feito isso acesso normalmente os campos do
resultSet com os dados resultantes da consulta, faço o que tenho que fazer com
eles, fecho o ADOQuery através do médoto close e em seguida deleto o parametro
da coleção Paramerters (que utilizei na consulta) atraves do método Clear.
Se eu chamar este mesmo procedimento uma segunda vez passando os mesmos valores
como parametro, o ambiente aborta o programa e retorna seguinte mensagem:
Objeto Parameter definido incorretamente. As informações são incosistente ou
incompletas.
É engraçado porque os passos do procedimento são extamente os mesmos e este
funciona na primeira vez em que é chamado mas nao na segunda.
Será que estou fazendo algo errado ou me esquecendo. Se o parametro foi esta
definido incorretamente, porque funciona na primeira vez então? Existe algo que
deve ser destruido, ou desativado para utilizar o objeto ADOQuery mais uma vez?
Para nao deixar duvidas do que estou fazendo, mando o código do famigerado
procedimento abaixo:
Function TPersistencia.makeCliente(var idCartao:integer; var
cliente:TCliente):integer;
var
query:String;
begin
//Adiciona um novo parametro a lista de parametros da query caso nao haja
nenhum
with ModuloDados.DataModulePrototipo.ADOQuery1.Parameters do
begin
if Count = 0 then
AddParameter;
end;
//inicializa as variaveis de configuração do novo parametro
with ModuloDados.DataModulePrototipo.ADOQuery1.Parameters.Items[0] do
begin
DataType := ftInteger;
Direction := pdInput;
name:= 'id';
Value:= idCartao;
end;
Query := 'select nome from cliente,ClienteConta '+
'where Cliente.cdCliente = ClienteConta.cdCliente and '+
'ClienteConta.idCartao = :id';
with ModuloDados.DataModulePrototipo do
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Append(Query); //Adiciona String de consulta
ADOQuery1.Open; //na segunda chamada o programa para aqui!
if ADOQuery1.RecordCount 0 then
ShowMessage('Erro no acesso a query Conta em makeCliente.') //ERRO
else if ADOQuery1.RecordCount = 0 then
Result := 0 //Cliente não encontrado
else begin
Cliente.setNome(ADOQuery1['nome']);
Result := 1;
end;//if
ADOQuery1.Close;
ADOQuery1.Parameters.Clear;
end;//with
end;
Será que alguém pode me ajudar? Estou desesperado com este bug. Desde ja
agradeço a atenção e a ajuda de todos.
Um abraço.
Sinaide Jr.
-
Yahoo! Mail - Com 250MB de espaço. Abra sua conta!
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
http://br.i1.yimg.com/br.yimg.com/i/br/ads4/2309_lrec_yshopping2.gif
http://br.rd.yahoo.com/SIG=12ansofna/M
RES: [delphi-br] Progress
Acessa Aqui na lista eu já vi comentários sobre o assunto e ate algumas dicas. Elcio Domingos Ramos mailto:[EMAIL PROTECTED] DEMAG Cranes Components Ltda. Planejamento Industrial Fone: (11)2145-7823 - Fax : (11)2145-7910 -Mensagem original- De: Geraldo Rego [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 2 de março de 2005 10:59 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Progress Alguém sabe como o DELPHI pode acessar o Progress? -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: http://br.rd.yahoo.com/SIG=12asa43cs/M=264379.5078783.6203979.1588051/D=brclubs/S=2137111264:HM/EXP=1109858538/A=2191897/R=0/SIG=10vqa2grn/*http://br.diversao.yahoo.com/ http://br.rd.yahoo.com/SIG=12asa43cs/M=264379.5078783.6203979.1588051/D=brclubs/S=2137111264:HM/EXP=1109858538/A=2191897/R=1/SIG=10vqa2grn/*http://br.diversao.yahoo.com/ São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do http://br.yahoo.com/info/utos.html Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Pegar Anexo de Email
Boa tarde Alguém tem alguma dica de como fazer um programa que via DRAGDROP receba arquivos anexos de E-mail. Consegui fazer um recebe arquivos do explorer, mas não estou conseguindo pegar anexo de E-mail. Quero arrastar o anexo para o formulário e o programa copia e renomeia ele para uma pasta especifica. Desde já agradeço a atenção Elcio Domingos Ramos mailto:[EMAIL PROTECTED] DEMAG Cranes Components Ltda. Planejamento Industrial Fone: (11)2145-7823 - Fax : (11)2145-7910 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] DbLookUpComboBox
Altere a propriedade ListField com os campos separando com ; Ex. Campo1;Campo2 Altere a Propriedade DropDownWidth para um numero onde apareça os dois campos Ex. 200 Obs. Se não me engano so aparece quando é aberto a lista. Qq coisa e-mail Elcio Domingos Ramos mailto:[EMAIL PROTECTED] DEMAG Cranes Components Ltda. Planejamento Industrial Fone: (11)2145-7823 - Fax : (11)2145-7910 -Mensagem original- De: Edivaldo David [mailto:[EMAIL PROTECTED] Enviada em: terça-feira, 1 de março de 2005 17:19 Para: delphi-br Assunto: [delphi-br] DbLookUpComboBox Como faço para mostrar dois campos no DbLookUpComboBox? - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! agora. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: http://br.i1.yimg.com/br.yimg.com/i/br/ads4/2309_lrec_yshopping2.gif http://br.rd.yahoo.com/SIG=12a9eqghq/M=264105.3931087.6562589.1588051/D=brclubs/S=2137111264:HM/EXP=1109794745/A=2361264/R=6/SIG=10v4acpp0/*http://br.shopping.yahoo.com/ _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do http://br.yahoo.com/info/utos.html Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] off-windows 2000
Crie um arquivo com a extensão Mostrar área de trabalho.scf Inclua as linhas abaixo [Shell] Command=2 IconFile=explorer.exe,3 [Taskbar] Command=ToggleDesktop Elcio Domingos Ramos mailto:[EMAIL PROTECTED] DEMAG Cranes Components Ltda. Planejamento Industrial Fone: (11)2145-7823 - Fax : (11)2145-7910 -Mensagem original- De: Hudson BHTE [mailto:[EMAIL PROTECTED] Enviada em: domingo, 27 de fevereiro de 2005 16:58 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] off-windows 2000 Não e bem isso Na barra de ferramenta do windows do lado de (Iniciar) tem inicilização rapida ( onde fica todos os programa q vc pode dar um click para execultalos). nele tem uma ferramenta q vc click e aparece a area de trabalho.. acho q se chama quick laalgum assim o dificio de agreditar que mandei o tal para lixeira achando q era atalho.. detalhe esvaziei a lixeira.. grato - Original Message - From: Tiago Bittencourt To: delphi-br@yahoogrupos.com.br Sent: Saturday, February 26, 2005 10:52 AM Subject: Re: [delphi-br] off-windows 2000 se eu entendi sua pergunta... entre o CTRL e o ALT tem uma tecla com o simbolo do windows aperte ela e a tecla M - Original Message - From: Hudson BHTE [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Sunday, February 27, 2005 1:23 AM Subject: [delphi-br] off-windows 2000 Galera, fiz besteira no meu win2000, na barra de ferramenta de inicialização rapida. Deletei o programinha Quick q fazer minimizar todos programa aberto que anta q sou.. alguem pode me ajudar? ja tentei buscar no sistema mas ñ existe.foi excluido. grato -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 266.4.0 - Release Date: 22/2/2005 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 266.5.0 - Release Date: 25/2/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 266.5.0 - Release Date: 25/2/2005 -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 266.4.0 - Release Date: 22/2/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 266.4.0 - Release Date: 22/2/2005 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: http://br.rd.yahoo.com/SIG=12al1r6j0/M=264379.5078783.6203979.1588051/D=brclubs/S=2137111264:HM/EXP=1109534358/A=2191897/R=0/SIG=10vqa2grn/*http://br.diversao.yahoo.com/ http://br.rd.yahoo.com/SIG=12al1r6j0/M=264379.5078783.6203979.1588051/D=brclubs/S=2137111264:HM/EXP=1109534358/A=2191897/R=1/SIG=10vqa2grn/*http://br.diversao.yahoo.com/ São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do http://br.yahoo.com/info/utos.html Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER
RES: [delphi-br] Usando o LOCATE
if not cdsFuncionario.Locate(DiaSemana, DayOfWeek(Aponta.Dia), []) then
raise Exception.Create('Dia da semana não cadastrado');
Elcio Domingos Ramos mailto:[EMAIL PROTECTED]
DEMAG Cranes Components Ltda.
Planejamento Industrial
Fone: (11)4615-7823 - Fax : (11)4615-7910
-Mensagem original-
De: Neto [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 24 de fevereiro de 2005 12:45
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Usando o LOCATE
Olá, pessoal!
ALguém poderia me dar um exemplo de como usar o Locate corretamente? Estou
tentando usá-lo com ClientDataset e não estou conseguindo filtrar o Dataset
corretamente. Sempre vem vazio.
Estou usando D6 e InterBase.
Agradeço antecipadamente
Neto
Masterserv Serviços Ltda.
Brasília/DF
visite: www.masterservltda.com.br
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system ( http://www.grisoft.com).
Version: 6.0.856 / Virus Database: 583 - Release Date: 07/02/2005
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
http://br.rd.yahoo.com/SIG=12ashedm6/M=264379.5078783.6203979.1588051/D=brclubs/S=2137111264:HM/EXP=1109433074/A=2332652/R=0/id=noscript/SIG=119058f8i/*http://br.download.yahoo.com/messenger/
_
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED] mailto:[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
http://br.yahoo.com/info/utos.html Serviço do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
RES: [delphi-br] Edição em dbgrid
Verifique a propiedade State do DataSource DBgrid.DataSource.State Você pode controlar via TDataSource no evento onStateChange Elcio Domingos Ramos mailto:[EMAIL PROTECTED] DEMAG Cranes Components Ltda. Planejamento Industrial Fone: (11)4615-7823 - Fax : (11)4615-7910 -Mensagem original- De: Eduardo Galvão [mailto:[EMAIL PROTECTED] Enviada em: sexta-feira, 25 de fevereiro de 2005 14:29 Para: Lista Delphi Assunto: [delphi-br] Edição em dbgrid Pessoal, Tenho um dbgrid. Como saber que o usuário está editando o dbgrid? Tem alguma propriedade que indica isto? Saudações, Eduardo Paci Galvão Engenheiro Eletricista UFMG 1990 www.egalvao.com.br MSN: [EMAIL PROTECTED] Skype: eduardogalvao -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 266.4.0 - Release Date: 22/02/2005 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: http://br.i1.yimg.com/br.yimg.com/i/br/ads4/2309_lrec_yshopping2.gif http://br.rd.yahoo.com/SIG=12ajlf1fa/M=264105.3931087.6562589.1588051/D=brclubs/S=2137111264:HM/EXP=1109439923/A=2361264/R=6/SIG=10v4acpp0/*http://br.shopping.yahoo.com/ _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do http://br.yahoo.com/info/utos.html Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Meio Off, impressora Zebra de cdigo de barras
No sei se o seu caso, mas minhas impressoras so mapeadas, gero os comandos em arquivos TXT e depois envio direto para a impressora usando AssignFile( MyImpressora, \\Servidor\NomeCompartilhado) ... writeLn( MyImpressora, ...) Elcio Domingos Ramos mailto:[EMAIL PROTECTED] DEMAG Cranes Components Ltda. Planejamento Industrial Fone: (11)4615-7823 - Fax : (11)4615-7910 -Mensagem original- De: Rodrigo Othavio Farias [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 16 de fevereiro de 2005 14:43 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Meio Off, impressora Zebra de cdigo de barras Ol, eu fao impresso de cdigos de barra na impressora Zebra, mas estou com dificuldade em enviar impressoes pela rede, eu s consigo mandar a impresso para a porta local, tem como eu mapear uma porta exemplo: LPT4 para uma impressora na rede? []s Rodrigo O. Farias -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um servio oferecido por: http://br.rd.yahoo.com/SIG=12aspr34j/M=264379.5078783.6203979.1588051/D=brclubs/S=2137111264:HM/EXP=1108655042/A=2191897/R=0/SIG=10vqa2grn/*http://br.diversao.yahoo.com/ http://br.rd.yahoo.com/SIG=12aspr34j/M=264379.5078783.6203979.1588051/D=brclubs/S=2137111264:HM/EXP=1108655042/A=2191897/R=1/SIG=10vqa2grn/*http://br.diversao.yahoo.com/ So Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Braslia _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que voc faz do Yahoo! Grupos est sujeito aos Termos do Servio do http://br.yahoo.com/info/utos.html Yahoo!. [As partes desta mensagem que no continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que voc faz do Yahoo! Grupos est sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Tem como pegar o meximento do mouse e teclado ???
Uso esta, descupe-me por falta de comentários e uma parte do meu código
Application.OnMessage = eventosMessage;
procedure TfrmPrincipal.eventosMessage(var Msg: tagMSG; var Handled: Boolean);
var
ONumero: SmallInt;
begin
inherited;
case MSg.message of //Torcar por Seta para Cima e Para Baixo
WM_MOUSEWHEEL:
begin
Msg.message := WM_KEYDOWN;
Msg.lparam := 0;
ONumero := HiWord(Msg.wParam);
if ONumero 0 then
Msg.wParam := VK_UP
else
Msg.wParam := VK_DOWN;
Handled := False;
end;
WM_MOUSEFIRST: // Não descobri o porque mas o evento e executado
continuamente FMouseY e FmouseX Variáveis publicas.
begin
if (FMouseY Msg.pt.Y) and (FMouseX Msg.pt.X) then
begin
{
Pega a posição do mouse.
}
FMouseY := Msg.pt.Y;
FMouseX := Msg.pt.X;
FContador := 0.00; //Variável publica para resetar o contador de
Tempo ocioso
Handled := False;
end;
end;
WM_KEYFIRST..WM_KEYLAST, WM_LBUTTONDOWN, WM_RBUTTONDOWN:
begin
FContador := 0.00; //Variável publica para resetar o contador de Tempo
ocioso
Handled := False;
end;
end;
end;
-Mensagem original-
De: Osmar de Souza Júnior [mailto:[EMAIL PROTECTED]
Enviada em: sexta-feira, 11 de fevereiro de 2005 08:32
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Tem como pegar o meximento do mouse e teclado ???
ai povo...
tem como saber quando o mouse é mexido, ou uma tecla qualquer é
pressionada dentro da aplicação (independente de qual form esteja
ativo) ???
[]s
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
http://br.i1.yimg.com/br.yimg.com/i/br/ads4/2309_lrec_yshopping2.gif
http://br.rd.yahoo.com/SIG=12ag0s5gh/M=264105.3931087.6562589.1588051/D=brclubs/S=2137111264:HM/EXP=1108204334/A=2361264/R=6/SIG=10v4acpp0/*http://br.shopping.yahoo.com/
_
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED] mailto:[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
http://br.yahoo.com/info/utos.html Serviço do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
RES: [delphi-br] Tem como pegar o meximento do mouse e teclado ???
Boa Tarde Walter
Uso esta rotina no evento oncreate do FORM PRINCIPAL pois minha aplicação é
MDI.
Tirei esta rotina do Site Delphi.About -
http://delphi.about.com/cs/adptips2002/a/bltip1102_3.htm
Elcio Domingos Ramos mailto:[EMAIL PROTECTED]
DEMAG Cranes Components Ltda.
Planejamento Industrial
Fone: (11)4615-7823 - Fax : (11)4615-7910
-Mensagem original-
De: Walter Alves Chagas Junior [mailto:[EMAIL PROTECTED]
Enviada em: sexta-feira, 11 de fevereiro de 2005 16:39
Para: 'delphi-br@yahoogrupos.com.br'
Assunto: RES: [delphi-br] Tem como pegar o meximento do mouse e teclado ???
Elcio, esta função funcionou beleza pra habilitar meu projeto a usar a
rodinha do Mouse. Agora eu pergunto, aonde é melhor colocar esta instrução
abaixo:
Application.OnMessage = eventosMessage;
No OnCreate do Form ancestral? Neste caso terei que fazer uma chamada a ela
em todos os forms ancestrais já que os herdeiros irão incorporá-la
automaticamente.
Ou em algum outro lugar?
[]s
Walter Alves Chagas Junior
Projeto e desenvolvimento
Telemont Engenharia de telecomunicações
[EMAIL PROTECTED]
Fone: (31) 3389-8215 Fax: (31) 3389-8200
-Mensagem original-
De: Elcio Domingos Ramos [mailto:[EMAIL PROTECTED]
Enviada em: sexta-feira, 11 de fevereiro de 2005 07:45
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Tem como pegar o meximento do mouse
e teclado
???
Uso esta, descupe-me por falta de comentários e uma parte do
meu código
Application.OnMessage = eventosMessage;
procedure TfrmPrincipal.eventosMessage(var Msg: tagMSG; var
Handled: Boolean);
var
ONumero: SmallInt;
begin
inherited;
case MSg.message of //Torcar por Seta para Cima e Para Baixo
WM_MOUSEWHEEL:
begin
Msg.message := WM_KEYDOWN;
Msg.lparam := 0;
ONumero := HiWord(Msg.wParam);
if ONumero 0 then
Msg.wParam := VK_UP
else
Msg.wParam := VK_DOWN;
Handled := False;
end;
WM_MOUSEFIRST: // Não descobri o porque mas o evento e
executado continuamente FMouseY e FmouseX Variáveis publicas.
begin
if (FMouseY Msg.pt.Y) and (FMouseX Msg.pt.X) then
begin
{
Pega a posição do mouse.
}
FMouseY := Msg.pt.Y;
FMouseX := Msg.pt.X;
FContador := 0.00; //Variável publica para resetar
o contador de Tempo ocioso
Handled := False;
end;
end;
WM_KEYFIRST..WM_KEYLAST, WM_LBUTTONDOWN, WM_RBUTTONDOWN:
begin
FContador := 0.00; //Variável publica para resetar o
contador de Tempo ocioso
Handled := False;
end;
end;
end;
-Mensagem original-
De: Osmar de Souza Júnior [mailto:[EMAIL PROTECTED]
Enviada em: sexta-feira, 11 de fevereiro de 2005 08:32
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Tem como pegar o meximento do mouse e teclado ???
ai povo...
tem como saber quando o mouse é mexido, ou uma tecla qualquer é
pressionada dentro da aplicação (independente de qual form esteja
ativo) ???
[]s
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
http://br.i1.yimg.com/br.yimg.com/i/br/ads4/2309_lrec_yshoppi
ng2.gif
http://br.rd.yahoo.com/SIG=12ag0s5gh/M=264105.3931087.6562589
.1588051/D=brclubs/S=2137111264:HM/EXP=1108204334/A=2361264/R=6/SIG=10v4acpp
0/* http://br.shopping.yahoo.com/
_
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
mailto:[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
http://br.yahoo.com/info/utos.html Serviço do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
http://br.i1.yimg.com/br.yimg.com/i/br/ads4/2309_lrec_yshopping2.gif
http://br.rd.yahoo.com/SIG=12al07091/M=264105.3931087.6562589.1588051/D=brclubs/S=2137111264:HM/EXP=1108229994/A=2361264/R
RES: [delphi-br] URGENTE !!!
Estou usando a dica abaixo do www.delphi.eti.br http://www.delphi.eti.br/ voce precisa se cadastrar Cria um arquivo com os comandos e depois usa o exemplo. ::: Impressão direto pra porta (lpt, usb) ::: http://www.delphi.eti.br/ver_dica.php?id=801 Elcio Domingos Ramos mailto:[EMAIL PROTECTED] DEMAG Cranes Components Ltda. Planejamento Industrial Fone: (11)4615-7823 - Fax : (11)4615-7910 -Mensagem original- De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Enviada em: quinta-feira, 27 de janeiro de 2005 11:46 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] URGENTE !!! Como imprimir em USB usando o WriteLN Valmir Gomes Ribeiro Tecnologia da Informação AUDIFAR Filial - Recife Tel: 81 3472-7447 Cel: 81 9924-4904 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: http://br.i1.yimg.com/br.yimg.com/i/br/ads4/2309_lrec_yshopping2.gif http://br.rd.yahoo.com/SIG=12afr9cpa/M=264105.3931087.6562589.1588051/D=brclubs/S=2137111264:HM/EXP=1106919957/A=2361264/R=6/SIG=10v4acpp0/*http://br.shopping.yahoo.com/ _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do http://br.yahoo.com/info/utos.html Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Impressao em Porta USB - Exemplo que funciona...
Se a impressora estiver compartilhada e possível enviar direto para a
impressora \\MICRO\NOME DO COMPARTILHAMENTO DA IMPRESSORA_USB.
Isto eu estou usando aqui e funciona normal com impressoras ZEBRA (Código de
Barras) o meu problema e que não quero compartilhar a impressora para evitar
problemas.
Estou tentando adaptar a PROCEDURE abaixo para ver se consigo.
Elcio Domingos Ramos mailto:[EMAIL PROTECTED]
DEMAG Cranes Components Ltda.
Planejamento Industrial
Fone: (11)4615-7823 - Fax : (11)4615-7910
-Mensagem original-
De: Rubem Rocha [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 9 de dezembro de 2004 17:31
Para: [EMAIL PROTECTED]
Assunto: RES: [delphi-br] Impressao em Porta USB - Exemplo que funciona...
Prioridade: Alta
Só um detalhe, resta saber se esse mesmo método serve para impressão em uma
impressora compartilhada em rede. Se servir, excelente!
[]s
-Mensagem original-
De: Rubem Rocha [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 9 de dezembro de 2004 15:29
Para: [EMAIL PROTECTED]
Assunto: RES: [delphi-br] Impressao em Porta USB - Exemplo que funciona...
Prioridade: Alta
Não necessariamente, companheiro. Ele não usa os métodos de desenho do Canvas,
e sim o device context (hDC - handle) da impressora para comunicação direta com
a mesma.
[]s
-Mensagem original-
De: Paulo Santana (Terra) [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 9 de dezembro de 2004 16:26
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] Impressao em Porta USB - Exemplo que funciona...
Como disse ainda continua sendo via Canvas (Printer.Canvas)
Eduardo Jedliczka wrote:
Achei um exemplo, que funciona com impressoras locais (paralelas,
seriais e USB) e impressoras de rede:
procedure TForm1.Button1Click(Sender: TObject);
var
Buff : TPrnBuffRec;
testint : Integer;
TmpStr: String;
i : Integer;
begin
printer.BeginDoc;
testint := PASSTHROUGH;
if not Escape(Printer.Handle, QUERYESCSUPPORT,
sizeof(TestInt),@TestInt,
nil) 0 then
begin
ShowMessage('Não foi possível configurar a impressora para impressão
direta');
Exit;
end;
TmpStr := 'Estou imprimindo um texto...'#13#10'diretamente para a
impressora'#13#10'se você desejar formatar este texto,'#13#13'utilize os
comandos como no DOS'#12;
Buff.BuffLength := Length(TmpStr);
for i:=0 to Buff.BuffLength-1 do
Buff.Buffer[i]:=TmpStr[i+1];
Escape(Printer.Canvas.Handle, PASSTHROUGH, 0, @Buff, nil);
Printer.endDoc;
end;
Estou desenvolvendo um componente de preview para ela mas ando sem
tempo...
[s]
=
Eduardo Jedliczka
GeraSoft Informática
Apucarana - PR
=
- Original Message -
From: Eduardo Jedliczka
To: [EMAIL PROTECTED]
Sent: Thursday, December 09, 2004 3:51 PM
Subject: Re: [delphi-br] Impressao em Porta USB
Devo discordar, é possível fazer a impressão para impressoras USB sem
ser via canvas.
Mas é necessário utilizar um monte de ESCapes... ou seja, dá muito
trabalho...
[s]
=
Eduardo Jedliczka
GeraSoft Informática
Apucarana - PR
=
- Original Message -
From: Paulo Santana (Terra)
To: [EMAIL PROTECTED]
Sent: Wednesday, December 08, 2004 9:05 PM
Subject: Re: [delphi-br] Impressao em Porta USB
Impressão em USB somente via Canvas.
Elcio Domingos Ramos wrote:
Como faço para enviar dados para a porta USB001.
Uso assignFile(Imprimi, 'LTP1')
Tentei fazer a mesma coisa com USB001 mas não deu certo.
Já vi este assunto por aqui mas. Não tenho acesso ao site do yahoo aqui
na empresa.
Elcio Domingos Ramos mailto:[EMAIL PROTECTED]
DEMAG Cranes Components Ltda.
Planejamento Industrial
Fone: (11)4615-7823 - Fax : (11)4615-7910
[As partes desta mensagem que não continham texto foram removidas]
---
avast! Antivirus: Outbound message clean.
Virus Database (VPS): 0450-0, 06/12/2004
Tested on: 8/12/2004 20:05:26
avast! - copyright (c) 2000-2004 ALWIL Software.
http://www.avast.com
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos
do Serviço do
RES: [delphi-br] Impressao em Porta USB - Exemplo que funciona...
Rubens vou fazer uns teste aqui na minha rede (WINDOWS 2000).
Minha impressora é uma TLP 2844 ZEBRA (código de barras) aparentemente funciona
normal na rede. Mas como tenho uma proteção para que ela não seja compartilhada
com outras maquinas, não sei como funciona na rede. Amanhã eu testo e posto uma
mensagem se funciona ou não.
Sei que localmente eu Uso assignFile( Impressora, \\Micro\Impressora
file://Micro/Impressora USB) e Funciona perfeitamente.
Ate Amanha
Elcio Domingos Ramos mailto:[EMAIL PROTECTED]
DEMAG Cranes Components Ltda.
Planejamento Industrial
Fone: (11)4615-7823 - Fax : (11)4615-7910
-Mensagem original-
De: Rubem Rocha [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 9 de dezembro de 2004 17:55
Para: [EMAIL PROTECTED]
Assunto: RES: [delphi-br] Impressao em Porta USB - Exemplo que funciona...
Prioridade: Alta
Eu já vi um pessoal em um grupo de Visual FoxPro falar que esse recurso de
compartilhar uma impressora USB não funciona. Seria interessante averiguar se a
dica enviada funciona com impressoras de modo geral, sejam USB ou não,
compartilhadas ou não.
[]s
-Mensagem original-
De: Elcio Domingos Ramos [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 9 de dezembro de 2004 15:51
Para: [EMAIL PROTECTED]
Assunto: RES: [delphi-br] Impressao em Porta USB - Exemplo que funciona...
Se a impressora estiver compartilhada e possível enviar direto para a
impressora \\MICRO\NOME DO COMPARTILHAMENTO DA IMPRESSORA_USB. Isto eu
estou usando aqui e funciona normal com impressoras ZEBRA (Código de Barras) o
meu problema e que não quero compartilhar a impressora para evitar problemas.
Estou tentando adaptar a PROCEDURE abaixo para ver se consigo.
Elcio Domingos Ramos mailto:[EMAIL PROTECTED]
DEMAG Cranes Components Ltda.
Planejamento Industrial
Fone: (11)4615-7823 - Fax : (11)4615-7910
-Mensagem original-
De: Rubem Rocha [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 9 de dezembro de 2004 17:31
Para: [EMAIL PROTECTED]
Assunto: RES: [delphi-br] Impressao em Porta USB - Exemplo que funciona...
Prioridade: Alta
Só um detalhe, resta saber se esse mesmo método serve para impressão em uma
impressora compartilhada em rede. Se servir, excelente! []s
-Mensagem original-
De: Rubem Rocha [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 9 de dezembro de 2004 15:29
Para: [EMAIL PROTECTED]
Assunto: RES: [delphi-br] Impressao em Porta USB - Exemplo que funciona...
Prioridade: Alta
Não necessariamente, companheiro. Ele não usa os métodos de desenho do Canvas,
e sim o device context (hDC - handle) da impressora para comunicação direta com
a mesma.
[]s
-Mensagem original-
De: Paulo Santana (Terra) [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 9 de dezembro de 2004 16:26
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] Impressao em Porta USB - Exemplo que funciona...
Como disse ainda continua sendo via Canvas (Printer.Canvas)
Eduardo Jedliczka wrote:
Achei um exemplo, que funciona com impressoras locais (paralelas,
seriais e USB) e impressoras de rede:
procedure TForm1.Button1Click(Sender: TObject);
var
Buff : TPrnBuffRec;
testint : Integer;
TmpStr: String;
i : Integer;
begin
printer.BeginDoc;
testint := PASSTHROUGH;
if not Escape(Printer.Handle, QUERYESCSUPPORT,
sizeof(TestInt),@TestInt,
nil) 0 then
begin
ShowMessage('Não foi possível configurar a impressora para impressão
direta');
Exit;
end;
TmpStr := 'Estou imprimindo um texto...'#13#10'diretamente para a
impressora'#13#10'se você desejar formatar este texto,'#13#13'utilize os
comandos como no DOS'#12;
Buff.BuffLength := Length(TmpStr);
for i:=0 to Buff.BuffLength-1 do
Buff.Buffer[i]:=TmpStr[i+1];
Escape(Printer.Canvas.Handle, PASSTHROUGH, 0, @Buff, nil);
Printer.endDoc;
end;
Estou desenvolvendo um componente de preview para ela mas ando sem
tempo...
[s]
=
Eduardo Jedliczka
GeraSoft Informática
Apucarana - PR
=
- Original Message -
From: Eduardo Jedliczka
To: [EMAIL PROTECTED]
Sent: Thursday, December 09, 2004 3:51 PM
Subject: Re: [delphi-br] Impressao em Porta USB
Devo discordar, é possível fazer a impressão para impressoras USB sem
ser via canvas.
Mas é necessário utilizar um monte de ESCapes... ou seja, dá muito
trabalho...
[s]
=
Eduardo Jedliczka
GeraSoft Informática
Apucarana - PR
=
- Original Message -
From: Paulo Santana (Terra)
To: [EMAIL PROTECTED]
Sent: Wednesday, December 08, 2004 9:05 PM
Subject: Re: [delphi-br] Impressao em Porta USB
Impressão em USB somente via Canvas.
Elcio Domingos Ramos wrote:
Como faço para enviar dados para a porta USB001.
Uso assignFile(Imprimi, 'LTP1')
Tentei fazer a mesma coisa com USB001 mas não deu certo.
Já vi este assunto por aqui mas. Não
[delphi-br] Impressao em Porta USB
Como faço para enviar dados para a porta USB001. Uso assignFile(Imprimi, 'LTP1') Tentei fazer a mesma coisa com USB001 mas não deu certo. Já vi este assunto por aqui mas. Não tenho acesso ao site do yahoo aqui na empresa. Elcio Domingos Ramos mailto:[EMAIL PROTECTED] DEMAG Cranes Components Ltda. Planejamento Industrial Fone: (11)4615-7823 - Fax : (11)4615-7910 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Desabilitar OnChange ??
Edit1.onchange = nil. Edit1.OnChange = Edit1OnChange; Elcio Domingos Ramos [EMAIL PROTECTED] Deptº Tempos e Metodos DEMAG Cranes Components Ltda. Equipamentos de movimentação de carga. -Mensagem original- De: Licerio Neto [mailto:[EMAIL PROTECTED] Enviada em: quinta-feira, 2 de dezembro de 2004 17:44 Para: delphi-br Cc: delphi-lista; delphi-no-brasil; delphi-total; delphi_linhadecodigo; DELPHI_SOPROGRAMADORES; lista-delphi Assunto: [delphi-br] Desabilitar OnChange ?? Utilizo Delphi 5 Como eu faço para habilitar e desabilitar um evento onchange ??? Grato a todos - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE http://br.rd.yahoo.com/SIG=12a0gutiq/M=264379.5078783.6203979.1588051/D=brclubs/S=2137111264:HM/EXP=1102109550/A=2332652/R=0/id=noscript/SIG=119058f8i/*http://br.download.yahoo.com/messenger/ _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Impressao direta na rede ???
Na rede eu uso assim
AssignFile( IMPRESSORA, \\Delphi\ZEBRAGSU )
Rewrite( IMPRESSORA)
Elcio Domingos Ramos
[EMAIL PROTECTED]
Deptº Tempos e Metodos
DEMAG Cranes Components Ltda.
Equipamentos de movimentação de carga.
-Mensagem original-
De: Licerio Neto [mailto:[EMAIL PROTECTED]
Enviada em: sexta-feira, 3 de dezembro de 2004 14:58
Para: delphi-br
Cc: delphi-lista; delphi-no-brasil; delphi-total; delphi_linhadecodigo;
DELPHI_SOPROGRAMADORES; lista-delphi
Assunto: [delphi-br] Impressao direta na rede ???
Estou fazendo uma impressa direta usando os comandos:
// lpt1: - Poderia ser LPT, COM1,// Servidor/impressora}
AssignFile(IMPRESSORA,'LPT1');
{abre a porta da impressão }
Rewrite(IMPRESSORA);
{envia caractere de controle para comprimir a impressão}
Write(Impressora,#27+'x0');
Write(Impressora,#18);
se a impressora estiver no proprio pc funcina perfeitamente mas nao funcionou
numa impressa de rede localizada em outro computador.. ela foi instala e
captura a porta corretamente.. Alguem sabe pq ???
Grato
-
Yahoo! Mail - Agora com 250MB de espaço gratuito. Abra uma conta agora!
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
http://br.i1.yimg.com/br.yimg.com/i/br/ads4/2309_lrec_yshopping2.gif
http://br.rd.yahoo.com/SIG=12a98tkeh/M=264105.3931087.6562589.1588051/D=brclubs/S=2137111264:HM/EXP=1102181645/A=2361264/R=6/SIG=10v4acpp0/*http://br.shopping.yahoo.com/
_
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED] mailto:[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo! http://br.yahoo.com/info/utos.html .
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* 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
