Re: [delphi-br] Re: PDT para TX T em Delphi, alguém conhece alguma maneir a de fazer ?
Netto, De uma olhada no FoxIt, ele transforma de pdf em texto. www.foxitsoftware.com [ ]´s Moacir netto35 escreveu: --- Em delphi-br@yahoogrupos.com.br, Gerson Machado [EMAIL PROTECTED] escreveu Preciso ler um arquivo PDF e transforma-lo em arquivo TXT para leitura e atualização de uma tabela, alguém poderia dar um dica de como fazer ? Obrigado. __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] *** Minha primeira ajuda aqui não vai te realizar, trabalho com saude, com laudos e fichas de historicos de pacientes, alguns pedem a impressão em pdf porque não da para fazer nada, apenas visualizar. Recebi esses dias tabelas do sus, (infelizmente comprei), mas ninguém me disse que era pdf, infelizmente acho qu sem chance. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] OFF-TOPIC - Registro na SICAF
Pessoal, Estou fazendo o registro da minha empresa no SICAF, para receber pagtos. via união e participar de licitações. Alguém já fez? Sabe se o processo é demorado? Em quanto tempo, em média? Saudações, Eduardo Paci Galvão Bacharel em Engenharia Elétrica - UFMG Analista de Sistemas www.egalvao.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Duvida simples DBCtrlGrid
Fabricio, Faça um Append e não um Insert. [ ]´s Moacir Fabricio Venancio escreveu: Ola amigos Não achei na doc. a propriedade que eu altero pra, ao inserir um registro, sempre criar a linha no fim do grid... Parece-me que o default é logo acima da linha corrente...alguem sabe onde mudar? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Erro em DBGrid - Undeclared Identifier: TField
Bom dia João, e obrigado pela resposta. Felizmente (ou infelizmente) eu sei que TField está declarada em DB e eu declarei a Unit. Agora me responda: por que o Delphi continuou não reconhecendo TField mesmo depois de declarar a Unit? Sds, Ricardo. PS: já consegui resolver este problema, mas gostaria continuar o desafio. Joao Morais [EMAIL PROTECTED] escreveu: Ricardo César Cardoso wrote: porém qual não foi a minha surpresa ao implementar o código abaixo e o compilador não reconhecer o TField que ele mesmo exige na sintaxe da procedure. Se alguém já passou por isso, por favor me diga como proceder. Estou usando o Delphi 2005 com Update 2. TField está declarado na unit Db. -- Joao Morais __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
RE: RES: [delphi-br] Apagar master-detail
Mas é claro que tem como apagar os registros Detail sem usar o OnDelete do banco... Se vc associou um CDS master a um CDS detail, no evento BeforeDelete do CDS master vc manda apagar os registros do Detail. Eu tenho um exemplo, mas está no meu material em casa... se ninguém te passar nada, amanhã posso te passar exatamente como fazer isso, o evento e o código necessário. Sds, Ricardo. Magnun Oliveira [EMAIL PROTECTED] escreveu: OK a duvida era realmente essa, se tem como apagar os detail's automaticamente quando excluir o registro master no cds SEM usar o On delete cascade no banco. Mas como nao rola, vou ter q fazer no braço msm ... vlw. Original Message Follows From: Walter Alves Chagas Junior [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: RES: [delphi-br] Apagar master-detail Date: Mon, 7 May 2007 15:41:17 -0300 Magnum, Você não pode apagar o registro master se ele tiver registros detail. Para fazer isto automaticamente, você tem que mudar a chave estrangeira nas tabelas detail adicionando a cláusula On Delete Cascade nelas []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] Fone: (31) 3389-8217 Fax: (31) 3389-8215 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Magnun Oliveira Enviada em: segunda-feira, 7 de maio de 2007 11:53 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Apagar master-detail Fiz um master detail com CDS, inserção e alteração dah tudo certo, porem, se eu for apagar um registro master com no minimo 1 detail dah esse erro: 'cannot delete master records with details' se eu apagar um registro master sem nenhum detail funciona ... Alguma saca como resolver? vlw ... __ MSN Hotmail, o maior webmail do Brasil. http://www.hotmail.com -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos __ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] algúem sabe usar XML em memória?
Vou explicar melhor: No Flex, crio um cara mais ou menos assim (supondo um cadastro de bancos): DadosEnvio := BAN_CODIGO28/BAN_CODIGO BAN_NOMEBRADESCO/BAN_NOME Envio essa string para o WebService. Lá faço o seguinte: Var abyte : array of byte; XMLFILE : Stream; Begin DadosEnvio := '?xml version=1.0 encoding=UTF-8?' +DadosEnvio; abyte := System.Text.Encoding.UTF8.GetBytes(sStr); XMLFILE := System.IO.MemoryStream.Create(abyte); DataSet1.ReadXml(XMLFILE); Pronto, já posso trabalhar com o DataSet. A pergunta é a seguinte, tem como eu trabalhar com esse XML na memória? Acessando os nodes e tudo mais? Ou tem uma maneira mais fácil de fazer isso? Obrigado. - Original Message - From: Adriano Santos To: delphi-br@yahoogrupos.com.br Sent: Monday, May 07, 2007 6:37 PM Subject: Re: [delphi-br] algúem sabe usar XML em memória? Você vai gerar localmente o xml e enviar para o servidor webservice? Num entendi direito. Adriano Santos Desenvolvedor Delphi desde 1998. Professor e programador PHP. Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP. Colunista e Comissão Editorial da revista ClubeDelphi. Respondam minhas enquetes: Qual banco você utiliza? Qual Delphi você utiliza? Blog: http://www.delphitodelphi.blogspot.com Alberto respondeu: Olá delphianos Tenho um sistema desenvolvido em Flex Builder que consome webservices desenvolvidos em Delphi.NET. Estou precisando enviar para o WebService um XML. Já faço isso em alguns casos, mas estou sempre dependendo de um DataSet, gostaria de saber se alguém sabe usar um XML em memória (lembre-se que estou em um servidor e não tem como usar tabelas temporárias). [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.467 / Virus Database: 269.6.2/787 - Release Date: 3/5/2007 14:11 -- [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Mudar .ico do atalho no desktop?? como?
Atividade nos últimos dias
a.. 12Novos usuários
Visite seu Grupo
Yahoo! Mail
Conecte-se ao mundo
Proteção anti-spam
Muito mais espaço
Yahoo! Barra
Instale grátis
Buscar sites na web
Checar seus e-mails .
Yahoo! Grupos
Crie seu próprio grupo
A melhor forma de comunicação
.Bom dia galera, olhem o comando que eu usei para criar o ícone (já está
funcionando):
procedure TFrmAtuMain.CreateShortcut (FileName : String);
var
MyObject : IUnknown;
MySLink : IShellLink;
MyPFile : IPersistFile;
Directory : String;
WFileName : WideString;
MyReg : TRegIniFile;
ShortcutName : String;
InitialDir : String;
begin
ShortcutName := 'Gestão';
InitialDir := 'C:\INFOR';
MyObject := CreateComObject(CLSID_ShellLink);
MySLink := MyObject as IShellLink;
MyPFile := MyObject as IPersistFile;
with MySLink do
begin
SetArguments('');
SetPath(PChar(FileName));
SetWorkingDirectory(PChar(InitialDir));
end;
MyReg :=
TRegIniFile.Create('Software\MicroSoft\Windows\CurrentVersion\Explorer');
Directory := MyReg.ReadString ('Shell Folders','Desktop','');
WFileName := Directory + '\' + ShortcutName + '.lnk';
MyPFile.Save (PWChar (WFileName), False);
MyReg.Free;
end;
Agora a duvida é:
ao criar o ícone, ele cria com um ícone PADRÃO, eu gostaria de escolher um
.gif ou .bmp para ser a figura do ícone
alguém sabe se posso implementar usando este código ou preciso de outra
procedure???
obrigado!
[As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Apagar master-detail
Uma pergunta .. qual banco vc esta usando Firebird/Interbase ??? Wesley - Original Message - From: Ricardo César Cardoso To: delphi-br@yahoogrupos.com.br Sent: Tuesday, May 08, 2007 8:38 AM Subject: RE: RES: [delphi-br] Apagar master-detail Mas é claro que tem como apagar os registros Detail sem usar o OnDelete do banco... Se vc associou um CDS master a um CDS detail, no evento BeforeDelete do CDS master vc manda apagar os registros do Detail. Eu tenho um exemplo, mas está no meu material em casa... se ninguém te passar nada, amanhã posso te passar exatamente como fazer isso, o evento e o código necessário. Sds, Ricardo. Magnun Oliveira [EMAIL PROTECTED] escreveu: OK a duvida era realmente essa, se tem como apagar os detail's automaticamente quando excluir o registro master no cds SEM usar o On delete cascade no banco. Mas como nao rola, vou ter q fazer no braço msm ... vlw. Original Message Follows From: Walter Alves Chagas Junior [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: RES: [delphi-br] Apagar master-detail Date: Mon, 7 May 2007 15:41:17 -0300 Magnum, Você não pode apagar o registro master se ele tiver registros detail. Para fazer isto automaticamente, você tem que mudar a chave estrangeira nas tabelas detail adicionando a cláusula On Delete Cascade nelas []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] Fone: (31) 3389-8217 Fax: (31) 3389-8215 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Magnun Oliveira Enviada em: segunda-feira, 7 de maio de 2007 11:53 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Apagar master-detail Fiz um master detail com CDS, inserção e alteração dah tudo certo, porem, se eu for apagar um registro master com no minimo 1 detail dah esse erro: 'cannot delete master records with details' se eu apagar um registro master sem nenhum detail funciona ... Alguma saca como resolver? vlw ... __ MSN Hotmail, o maior webmail do Brasil. http://www.hotmail.com -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos __ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.467 / Virus Database: 269.6.5/793 - Release Date: 7/5/2007 14:55 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] arquivo INIFile
Ola amigos tb com vcs eu estou presiando da ajuda de vcs hj. Tenho um programa q estou desenvolvendo na empresa q eu trabalha e o sistema faz a capitura de imagem com web can e salva a imagem na minha maquina, ele pega o caminha onde eu sauvel a imagem e salvo tb em um Banco de dado. Oque estou precisando é de um arquivo INIFile para q eu não precise endicar todo o caminho em q eu salvo somento o nome do arquivo e fazendo um arquivo INI para q eu possa salvar a imagem e colocar o nome sem problema de colocar o caminho pois isto acarreta em um caminho muito londo para gravar uma imagem. Alguem poderia me ajudar em??? Alguem poderia fazr um programa em Delhpi e fazeru um iniFile de exxemplho de como eu salvo uma imagem utilizando iniFile com base de dado SQL Server
[delphi-br] Reconhecimento de códigos de barras
Bom dia!!! Alguem poderia dar alguma dica de como fazer o reconhecimento de um código de barras em uma imagem? já pesquisei na net e só encontro programas já prontos. vlw Heitor [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] arquivo INIFile
Alan, Dê uma estudada no help do Delphi sobre TIniFiles - ReadString. [] Andrei Em 08/05/07, alan_adolfo[EMAIL PROTECTED] escreveu: Ola amigos tb com vcs eu estou presiando da ajuda de vcs hj. Tenho um programa q estou desenvolvendo na empresa q eu trabalha e o sistema faz a capitura de imagem com web can e salva a imagem na minha maquina, ele pega o caminha onde eu sauvel a imagem e salvo tb em um Banco de dado. Oque estou precisando é de um arquivo INIFile para q eu não precise endicar todo o caminho em q eu salvo somento o nome do arquivo e fazendo um arquivo INI para q eu possa salvar a imagem e colocar o nome sem problema de colocar o caminho pois isto acarreta em um caminho muito londo para gravar uma imagem. Alguem poderia me ajudar em??? Alguem poderia fazr um programa em Delhpi e fazeru um iniFile de exxemplho de como eu salvo uma imagem utilizando iniFile com base de dado SQL Server
Re: [delphi-br] Executar Banco em CDROM
De uma olhada no site firebase que mostra como rodar banco de dados
embarcado e o DB fica no cd mesmo.
so nao vai poder gravar é claro.
Em 05/05/07, Berdam Cavaletti [EMAIL PROTECTED] escreveu:
É pq o cd não possui modo de escrita, coloque o banco em um pen drive
que resolve.
As vezes copiando um arquivo do cd para o pc, as permissões de leitura e
escrita são herdadas e acontece que mesmo na máquina o banco ficam em modo
apenas de leitura, para resolver vá no arquivo em propriedades e desmarque
as opções.
- Mensagem original
De: Eduardo Silva dos Santos [EMAIL PROTECTED]eduardo.drd%40gmail.com
Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Enviadas: Sexta-feira, 4 de Maio de 2007 22:09:37
Assunto: Re: [delphi-br] Executar Banco em CDROM
pra rodar no CD tem que ta embarcado..
no FireBase mostra como fazer.
Em 04/05/07, Tiago de Assis Pimenta tiagopimenta82@ yahoo.com. br
escreveu:
Galera, amanha vou apresentar um sistema e preciso que o banco de dados
rode
no cd-rom.
O problema que ele da o seguinte erro
- --
SCC - Sistema de Controle de Crédiario - Pes Cia
- --
no permission for read-write access to database F:\BD\DADOS. FDB.
- --
OK
- --
Alguem sabe como fazer ele ser executado simplesmente como leitura. Não
vou
precisar gravar nada no cd-rom, simplesmente mostrar os dados já
cadastrados
...
Grato
Tiago de Assis Pimenta
MSN: mailto:tiagopimenta@ hotmail.com tiagopimenta% 40hotmail. com
tiagopimenta@ hotmail.com tiagopimenta% 40hotmail. com
SKYPE: tiagopimenta_ skype
GTalk: mailto:tiagopimenta@ gmail.com tiagopimenta% 40gmail.com
tiagopimenta@ gmail.com tiagopimenta% 40gmail.com
[As partes desta mensagem que não continham texto foram removidas]
--
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: eduardo.drd@ gmail.com
Site: http://www.drdsiste mas.com/
[As partes desta mensagem que não continham texto foram removidas]
!--
#ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean,
sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean,
sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;}
#ygrp-vitnav{
padding-top:10px;font-family:Verdana;font-size:77%;margin:0;}
#ygrp-vitnav a{
padding:0 1px;}
#ygrp-actbar{
clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;}
#ygrp-actbar .left{
float:left;white-space:nowrap;}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;font-size:77%;padding:15px 0;}
#ygrp-ft{
font-family:verdana;font-size:77%;border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;}
#ygrp-vital{
background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;}
#ygrp-vital #vithd{
font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;}
#ygrp-vital ul{
padding:0;margin:2px 0;}
#ygrp-vital ul li{
list-style-type:none;clear:both;border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;}
#ygrp-vital ul li .cat{
font-weight:bold;}
#ygrp-vital a {
text-decoration:none;}
#ygrp-vital a:hover{
text-decoration:underline;}
#ygrp-sponsor #hd{
color:#999;font-size:77%;}
#ygrp-sponsor #ov{
padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;margin:0;}
#ygrp-sponsor #ov li{
list-style-type:square;padding:6px 0;font-size:77%;}
#ygrp-sponsor #ov li a{
text-decoration:none;font-size:130%;}
#ygrp-sponsor #nc {
background-color:#eee;margin-bottom:20px;padding:0 8px;}
#ygrp-sponsor .ad{
padding:8px 0;}
#ygrp-sponsor .ad #hd1{
font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;}
#ygrp-sponsor .ad a{
text-decoration:none;}
#ygrp-sponsor .ad a:hover{
text-decoration:underline;}
#ygrp-sponsor .ad p{
margin:0;}
o {font-size:0;}
.MsoNormal {
margin:0 0 0 0;}
#ygrp-text tt{
font-size:120%;}
blockquote{margin:0 0 0 4px;}
.replbq {margin:4;}
--
__
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
--
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com/
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Salvar JPEG no Firebird
Amigos, uma curiosidade, o que é PVT?
Igor Alexandre.
Em 05/05/07, Jefferson - Fórum [EMAIL PROTECTED] escreveu:
Já lhe enviei!
- Original Message -
From: Marcelo
To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Sent: Friday, May 04, 2007 4:06 PM
Subject: Re: [delphi-br] Salvar JPEG no Firebird
OK.Jefferson vou querer sim, já mandei em PVT.
Abraço.
Jefferson - Fórum escreveu:
Marcelo, tenho essa rotina funcionando em um sistema.
Se quiser, me contate em pvt que te mando essa parte do código.
Valeu!
Jefferson
- Original Message -
From: Marcelo
To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto:
delphi-br%40yahoogrupos.com.br
Sent: Friday, May 04, 2007 8:22 AM
Subject: Re: [delphi-br] Salvar JPEG no Firebird
Olá Moacir, muito obrigado pela dica.
Mas já fiz isso e tb continua dando o erro.
Obrigado.
Moacir - Prisma escreveu:
Marcelo,
Coloque a unit jpeg na clausula 'uses' do form
[ ]´s
Moacir
Marcelo escreveu:
Amigos da lista, venho, desesperadamente, solicitar a ajuda de vcs.
Estou tentando salvar um JPEG no Firebird + está dando o seguinte
erro:
Bitmap image is not valid
O código como base que peguei está em:
http://www.delphi.eti.br/ver_dica.php?id=6672
http://www.delphi.eti.br/ver_dica.php?id=6672
http://www.delphi.eti.br/ver_dica.php?id=6672
http://www.delphi.eti.br/ver_dica.php?id=6672
Na nossa lista, eu achei assuntos referente, peguei os exemplos mas
também deu o mesmo erro. Por isso estou vindo até os amigos da
lista. Se
alguém puder me ajudar eu agradeço.
Estou usando o Firebird 1.5 - IBO 4.2.Ga http://4.2.ga/ - Delphi 6
Professional
O campo no banco de dados está como Blob - Binary
O campo na Query está como: BlobType - ftParadoxOle
segue abaixo o código:
const
OffsetMemoryStream : Int64 = 0;
para abrir e salvar a foto:
var jpg1 : TJpegImage;
if OPPicture.execute then
image1.Picture.LoadFromFile(OPPicture.FileName);
if OPPicture.FileName '' then
begin
jpg1 := TJpegImage.Create;
jpg1.LoadFromFile(OPPicture.FileName);
Dm1.TbPro.FieldByName('FotoPro').Assign(jpg1);
jpg1.Free;
end;
para carregar a foto:
var MemoryStream: TMemoryStream;
Jpg: TJpegImage;
if not(Dm1.TbPro.IsEmpty) and
not((Dm1.TbPro.FieldByName('FotoPro') as TBlobField).IsNull) then
try
MemoryStream:= TMemoryStream.Create;
Jpg := TJpegImage.Create;
(Dm1.TbPro.FieldByName('FotoPro') as
TBlobField).SaveToStream(MemoryStream);
MemoryStream.Position := OffsetMemoryStream;
Jpg.LoadFromStream(MemoryStream);
Image1.Picture.Assign(Jpg);
finally
// Jpg.Free;
MemoryStream.Free;
end
else
Image1.Picture := Nil;
end;
Desde já agradeço a todos.
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
Igor Alexandre.
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [Off] Pesquisa no meu blog
Pessoal, Estou fazendo duas pesquisas no meu blog. Quem puder responder eu agradeço. Perguntas: Qual banco de dados você utiliza? Qual Delphi você utiliza? As enquetes estão à direita do meu blog. Só votar. Vlw, abs. Blog: http://www.delphitodelphi.blogspot.com -- Adriano Santos Desenvolvedor Delphi desde 1998. Professor e programador PHP. Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP. Colunista e Comissão Editorial da revista ClubeDelphi. Respondam minhas enquetes: Qual banco você utiliza? Qual Delphi você utiliza? Blog: http://www.delphitodelphi.blogspot.com
[delphi-br] SQL que retorna Mês
Bom dia pessoal. Alguem sabe me dizer qual comando SQL eu utilizo pra pegar apenas o mês de um lançamento? Utilizo Delphi 7 com IB 6.5 sds Bender Desenvolvimento de Sistemas e Serviços Contábeis (Régis) (51) 98470699 Novo Hamburgo/RS MSN: [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Colocar MainMenu1 nos botões.
Pessoal, como faço para colocar MainMenu1 nos boto~es, exemplo qdo eu click num botão ele abri o menu. desde já Agradeço Mario Lucio [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Colocar MainMenu1 nos botões.
PopupMenu. Coloca um PopupMenu na tela, inclui os itens nele, codifica e tals. Depois vai na propriedade PopupMenu do Botao e vincula ele no popup que vc criou. Já era. Adriano Santos Desenvolvedor Delphi desde 1998. Professor e programador PHP. Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP. Colunista e Comissão Editorial da revista ClubeDelphi. Respondam minhas enquetes: Qual banco você utiliza? Qual Delphi você utiliza? Blog: http://www.delphitodelphi.blogspot.com Mario Lucio respondeu: Pessoal, como faço para colocar MainMenu1 nos boto~es, exemplo qdo eu click num botão ele abri o menu. desde já Agradeço Mario Lucio [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.467 / Virus Database: 269.6.5/793 - Release Date: 7/5/2007 14:55 -- *Adriano Santos*
Re: [delphi-br] Colocar MainMenu1 nos botões.
Adriano Santos, tudo bem só quero que funciona com um click no mauso normal. e o PopupMenu funciona dando um click no direito. - Original Message - From: Adriano Santos To: delphi-br@yahoogrupos.com.br Sent: Tuesday, May 08, 2007 9:49 AM Subject: Re: [delphi-br] Colocar MainMenu1 nos botões. PopupMenu. Coloca um PopupMenu na tela, inclui os itens nele, codifica e tals. Depois vai na propriedade PopupMenu do Botao e vincula ele no popup que vc criou. Já era. Adriano Santos Desenvolvedor Delphi desde 1998. Professor e programador PHP. Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP. Colunista e Comissão Editorial da revista ClubeDelphi. Respondam minhas enquetes: Qual banco você utiliza? Qual Delphi você utiliza? Blog: http://www.delphitodelphi.blogspot.com Mario Lucio respondeu: Pessoal, como faço para colocar MainMenu1 nos boto~es, exemplo qdo eu click num botão ele abri o menu. desde já Agradeço Mario Lucio [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.467 / Virus Database: 269.6.5/793 - Release Date: 7/5/2007 14:55 -- -- *Adriano Santos* [As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] Apagar master-detail
Graaande Ricardão, o homem que mora nos armarios do quarto de mulher casada Mas o que ele nao quer, é implementar codigo. E, do jeito que voce propos, ele vai ter que implementar isto do mesmo jeito :) Ai não adianta rs []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] Fone: (31) 3389-8217 Fax: (31) 3389-8215 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Ricardo César Cardoso Enviada em: terça-feira, 8 de maio de 2007 08:39 Para: delphi-br@yahoogrupos.com.br Assunto: RE: RES: [delphi-br] Apagar master-detail Mas é claro que tem como apagar os registros Detail sem usar o OnDelete do banco... Se vc associou um CDS master a um CDS detail, no evento BeforeDelete do CDS master vc manda apagar os registros do Detail. Eu tenho um exemplo, mas está no meu material em casa... se ninguém te passar nada, amanhã posso te passar exatamente como fazer isso, o evento e o código necessário. Sds, Ricardo. Magnun Oliveira [EMAIL PROTECTED] escreveu: OK a duvida era realmente essa, se tem como apagar os detail's automaticamente quando excluir o registro master no cds SEM usar o On delete cascade no banco. Mas como nao rola, vou ter q fazer no braço msm ... vlw. Original Message Follows From: Walter Alves Chagas Junior [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: RES: [delphi-br] Apagar master-detail Date: Mon, 7 May 2007 15:41:17 -0300 Magnum, Você não pode apagar o registro master se ele tiver registros detail. Para fazer isto automaticamente, você tem que mudar a chave estrangeira nas tabelas detail adicionando a cláusula On Delete Cascade nelas []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] Fone: (31) 3389-8217 Fax: (31) 3389-8215 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Magnun Oliveira Enviada em: segunda-feira, 7 de maio de 2007 11:53 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Apagar master-detail Fiz um master detail com CDS, inserção e alteração dah tudo certo, porem, se eu for apagar um registro master com no minimo 1 detail dah esse erro: 'cannot delete master records with details' se eu apagar um registro master sem nenhum detail funciona ... Alguma saca como resolver? vlw ... __ MSN Hotmail, o maior webmail do Brasil. http://www.hotmail.com -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos __ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos
[delphi-br] OFF-TOPIC Ajuda com Stored Procedure
Bom dia Senhores, Tenho a seguinte situação: preciso pegar dos dados da tabela de nota fiscal e item de nota e dar um insert em uma outra tabela, seguindo o mesmo esquema, os dados da nota e seus itens. Fiz uma procedure para fazer esse insert para mim, porém não estou conseguindo fazer o loop nas tabelas em questão. Consigo inserir somente o primeiro registro que é retornado pelo select, tanto da capa da nota quanto dos itens. A estrutura da procedure segue abaixo: CREATE PROCEDURE ATUALIZA_NOTA_ENTRADA AS BEGIN DECLARE ... . . . BEGIN FOR SELECT ... FROM TAB_NOTA_FISCAL WHERE ... INTO ... DO BEGIN INSERT INTO TAB_NOTA_ENTRADA(...) VALUES(...) FOR SELECT ... FROM TAB_ITEM_NOTA_FISCAL TI INNER JOIN TAB_NOTA_FISCAL TN ON TI.COD_NF = TN.CODNF WHERE ... INTO ... BEGIN INSERT INTO TAB_ITEM_NOTA_ENTRADA(...) VALUES(...) SUSPEND; END SUSPEND; END END; Alguém poderia dizer o que estou fazendo de errado?? Utilizo Firebird 1.5.3. Muito obrigado, Rodrigo de Moura [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] arquivo INIFile
Declare a unit IniFiles no uses.
Var
ArqIni : TIniFile;
sSeuCaminho : String;
begin
ArqIni := TIniFile.Create(ExtractFilePath(Application.ExeName)+'nome do
arquivo ini');
sSeuCaminho := ArqIni.ReadString('CAMINHOBANCO', 'LOCAL', '');
ArqIni.Free;
end;
seu ini deve estar assim
[LOCAL]
CAMINHOBANCO=C:\?\BLABLABLA
Espero ter ajudado.
- Original Message -
From: alan_adolfo
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, May 08, 2007 9:03 AM
Subject: [delphi-br] arquivo INIFile
Ola amigos tb com vcs eu estou presiando da ajuda de vcs hj.
Tenho um programa q estou desenvolvendo na empresa q eu trabalha
e o sistema faz a capitura de imagem com web can e salva a imagem na
minha maquina, ele pega o caminha onde eu sauvel a imagem e salvo tb
em um Banco de dado. Oque estou precisando é de um arquivo INIFile
para q eu não precise endicar todo o caminho em q eu salvo somento o
nome do arquivo e fazendo um arquivo INI para q eu possa salvar a
imagem e colocar o nome sem problema de colocar o caminho pois isto
acarreta em um caminho muito londo para gravar uma imagem.
Alguem poderia me ajudar em???
Alguem poderia fazr um programa em Delhpi e fazeru um iniFile de
exxemplho de como eu salvo uma imagem utilizando iniFile com base de
dado SQL Server
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] arquivo INIFile
Vc poderia fazer o seguinte gravar as informções fdo caminho no banco de dados... como parametro. Eu por exemplo qualquer sistema q desenvolvo.. crio uma tabela só para parametros do sistema... por exemplo.. tenho um cadastro de cliente.. e existem os tipos de clientes... por exemplo... E=Especial, F=Fiel... exemplo... depois o cliente me pede para incluir o tipo de cliente A=Anonimo... eu apenas cadastro na tabela de parametros acho que seria este o caminho ficaria mais fácil e poderia alterar sem problema... o Ini eu uso apenas para configurar a conexão com o Banco... ai vc colocaria o nome do Arquivo apenas e pronto... qq coisa me contata em PVT que te ajudo a fazer isso... Wesley - Original Message - From: alan_adolfo To: delphi-br@yahoogrupos.com.br Sent: Tuesday, May 08, 2007 9:03 AM Subject: [delphi-br] arquivo INIFile Ola amigos tb com vcs eu estou presiando da ajuda de vcs hj. Tenho um programa q estou desenvolvendo na empresa q eu trabalha e o sistema faz a capitura de imagem com web can e salva a imagem na minha maquina, ele pega o caminha onde eu sauvel a imagem e salvo tb em um Banco de dado. Oque estou precisando é de um arquivo INIFile para q eu não precise endicar todo o caminho em q eu salvo somento o nome do arquivo e fazendo um arquivo INI para q eu possa salvar a imagem e colocar o nome sem problema de colocar o caminho pois isto acarreta em um caminho muito londo para gravar uma imagem. Alguem poderia me ajudar em??? Alguem poderia fazr um programa em Delhpi e fazeru um iniFile de exxemplho de como eu salvo uma imagem utilizando iniFile com base de dado SQL Server -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.467 / Virus Database: 269.6.5/793 - Release Date: 7/5/2007 14:55 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] ExecSQL
Senhores, Tenho uma aplicação muito simples que necessita de um update de um campo (toda a tabela). Dentro do IBquery = update lancamentos set envioseap ='S' Há uma transação também..mas quando eu debugo literalmente para no .execSQL Algum colega já passou por isso? Saudações -- Mauro Paes Corrêa www.gnx.com.br
Re: [delphi-br] ExecSQL
Nao falta a clausula Where? Ele deve estar atualizando todos os registros por isso demora... ps: jah passei por isso sim... hehe Marcelo Hörlle [EMAIL PROTECTED] - Original Message - From: Mauro Paes Corrêa [EMAIL PROTECTED], @hostlivre.com To: delphi-br@yahoogrupos.com.br Sent: Tuesday, May 08, 2007 10:55 AM Subject: [delphi-br] ExecSQL Senhores, Tenho uma aplicação muito simples que necessita de um update de um campo (toda a tabela). Dentro do IBquery = update lancamentos set envioseap ='S' Há uma transação também..mas quando eu debugo literalmente para no .execSQL Algum colega já passou por isso? Saudações -- Mauro Paes Corrêa www.gnx.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [ERRO Quich Report]
Socorro !!! Oi Pessoal estou tendo dificuldades em visualizar um relatorio no Quick Report. em determinados computadores , ocorre o seguinte erro : Acces Violation at Addres 0001 read of addres 001 ou Cannot create file !! Porque isso ??? Marcio. Blumenau -SC [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ExecSQL
Grande Marcelo, obrigado pela preciosa ajuda. Testarei agora. Saudações Mauro Paes Correa www.gnx.com.br On Tue, 8 May 2007 11:16:48 -0300, Marcelo - Kappesberg [EMAIL PROTECTED] wrote: Nao falta a clausula Where? Ele deve estar atualizando todos os registros por isso demora... ps: jah passei por isso sim... hehe Marcelo Hörlle [EMAIL PROTECTED] - Original Message - From: Mauro Paes Corrêa [EMAIL PROTECTED], @hostlivre.com To: delphi-br@yahoogrupos.com.br Sent: Tuesday, May 08, 2007 10:55 AM Subject: [delphi-br] ExecSQL Senhores, Tenho uma aplicação muito simples que necessita de um update de um campo (toda a tabela). Dentro do IBquery = update lancamentos set envioseap ='S' Há uma transação também..mas quando eu debugo literalmente para no .execSQL Algum colega já passou por isso? Saudações -- Mauro Paes Corrêa
Re: [delphi-br] SQL que retorna Mês
tente fazer assim: select extract (month from data) as mes from tabela nunca testei no IB6, mas deve funcionar. []'s Ezequiel Régis Bender escreveu: Bom dia pessoal. Alguem sabe me dizer qual comando SQL eu utilizo pra pegar apenas o mês de um lançamento? Utilizo Delphi 7 com IB 6.5 sds Bender Desenvolvimento de Sistemas e Serviços Contábeis (Régis) (51) 98470699 Novo Hamburgo/RS MSN: [EMAIL PROTECTED] mailto:regissk8%40terra.com.br [As partes desta mensagem que não continham texto foram removidas] Mensagens neste tópico http://br.groups.yahoo.com/group/delphi-br/message/171416;_ylc=X3oDMTM4ZGMzZ203BF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BG1zZ0lkAzE3MTQxNgRzZWMDZnRyBHNsawN2dHBjBHN0aW1lAzExNzg2MjgxOTMEdHBjSWQDMTcxNDE2 (1) Responder (através da web) http://br.groups.yahoo.com/group/delphi-br/post;_ylc=X3oDMTJydWRuanQ3BF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BG1zZ0lkAzE3MTQxNgRzZWMDZnRyBHNsawNycGx5BHN0aW1lAzExNzg2MjgxOTM-?act=replymessageNum=171416 | Adicionar um novo tópico http://br.groups.yahoo.com/group/delphi-br/post;_ylc=X3oDMTJlZW9jMnRuBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA250cGMEc3RpbWUDMTE3ODYyODE5Mw-- Mensagens http://br.groups.yahoo.com/group/delphi-br/messages;_ylc=X3oDMTJlZWZ2dTJiBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA21zZ3MEc3RpbWUDMTE3ODYyODE5Mw-- | Arquivos http://br.groups.yahoo.com/group/delphi-br/files;_ylc=X3oDMTJmY2U2ZmplBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA2ZpbGVzBHN0aW1lAzExNzg2MjgxOTM- | Fotos http://br.groups.yahoo.com/group/delphi-br/photos;_ylc=X3oDMTJlbjFtODIyBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA3Bob3QEc3RpbWUDMTE3ODYyODE5Mw-- | Links http://br.groups.yahoo.com/group/delphi-br/links;_ylc=X3oDMTJmdWdsNTgxBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA2xpbmtzBHN0aW1lAzExNzg2MjgxOTM- | Banco de dados http://br.groups.yahoo.com/group/delphi-br/database;_ylc=X3oDMTJjOWlsbnA5BF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA2RiBHN0aW1lAzExNzg2MjgxOTM-
[delphi-br] Uso do TIdSMTP
Bom dia! Estou implementando um Serviço Windows que enviará um e-mail de tempos em tempos com algumas informações coletadas Em uma unit, tenho 2 objetos do tipo TIdSMTP e TidMessage. O problema é que quando o objeto smtp tenta conectar-se ao servidor, ocorre um erro: Socket Error # 10061 Connection refused.. Detalhes: . O objeto é criado 'na mão' pois nao existe um form na aplicação . Quanto testado em uma aplicação com um form o código abaixo funciona, só não é necessário o Create. Alguém poderia me dar uma luz? Abaixo trechos do código: function TThreadRealIP.Send_Email(aFrom, aText, aSubject: string): Boolean; var Sent: Boolean; begin try Sent := False; IdSMTP1 := TIdSMTP.Create(Nil); IdSMTP1.ASCIIFilter := False; IdSMTP1.BoundPort := 0; IdSMTP1.ReadTimeout := 0; IdSMTP1.UseEhlo := True; IdSMTP1.AuthenticationType := atLogin; IdSMTP1.Host := 'smtp.mail.yahoo.com.br'; IdSMTP1.Port := 25; IdSMTP1.Username := 'usuario'; IdSMTP1.Password := 'senha'; IdSMTP1.Connect(3000); if IdSMTP1.Connected then begin ... IdSMTP1.Send(IdMessage1); } Sent := True; IdSMTP1.Disconnect; end; except on e: exception do begin self.gera_log(e.Message); Sent := false; end; end; IdSMTP1.Free; Result := Sent; end; Obrigado! -- Dimitri Campana Project Management Professional - PMP Microsoft Certified Solution Developer - MCSD Microsoft Certified Professional - MCP e-mail: [EMAIL PROTECTED] celular (mobile): +55.48.9911.6119 skype: dimitri.campana MSN (IM): [EMAIL PROTECTED] Profile: www.linkedin.com/in/dimitricampana DSOFT SISTEMAS Rua Desembargador Vitor Lima, 260 - Edifício Madison Center - Sala 504 Bairro: Trindade, 88.040-400, Florianópolis/SC [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Apagar master-detail
Só pra complementar... a maneira que eu citei acaba sendo meio que no braço, mesmo, já que vc vai ter que listar (identificar) cada detail existente e daí apagá-lo. Sds, Ricardo. BandaLemuel [EMAIL PROTECTED] escreveu: Uma pergunta .. qual banco vc esta usando Firebird/Interbase ??? Wesley - Original Message - From: Ricardo César Cardoso To: delphi-br@yahoogrupos.com.br Sent: Tuesday, May 08, 2007 8:38 AM Subject: RE: RES: [delphi-br] Apagar master-detail Mas é claro que tem como apagar os registros Detail sem usar o OnDelete do banco... Se vc associou um CDS master a um CDS detail, no evento BeforeDelete do CDS master vc manda apagar os registros do Detail. Eu tenho um exemplo, mas está no meu material em casa... se ninguém te passar nada, amanhã posso te passar exatamente como fazer isso, o evento e o código necessário. Sds, Ricardo. Magnun Oliveira [EMAIL PROTECTED] escreveu: OK a duvida era realmente essa, se tem como apagar os detail's automaticamente quando excluir o registro master no cds SEM usar o On delete cascade no banco. Mas como nao rola, vou ter q fazer no braço msm ... vlw. Original Message Follows From: Walter Alves Chagas Junior [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: RES: [delphi-br] Apagar master-detail Date: Mon, 7 May 2007 15:41:17 -0300 Magnum, Você não pode apagar o registro master se ele tiver registros detail. Para fazer isto automaticamente, você tem que mudar a chave estrangeira nas tabelas detail adicionando a cláusula On Delete Cascade nelas []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] Fone: (31) 3389-8217 Fax: (31) 3389-8215 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Magnun Oliveira Enviada em: segunda-feira, 7 de maio de 2007 11:53 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Apagar master-detail Fiz um master detail com CDS, inserção e alteração dah tudo certo, porem, se eu for apagar um registro master com no minimo 1 detail dah esse erro: 'cannot delete master records with details' se eu apagar um registro master sem nenhum detail funciona ... Alguma saca como resolver? vlw ... __ MSN Hotmail, o maior webmail do Brasil. http://www.hotmail.com -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos __ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.467 / Virus Database: 269.6.5/793 - Release Date: 7/5/2007 14:55 [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [ERRO Quich Report]
Em alguns casos, qdo não há nenhuma impressora instalada no computador, o QuickReport apresenta alguns erros estranhos. Verifique se existe alguma impressora instalada nesse computador, e se for impressora de rede se está configurada corretamente, pois quando está configurada para trabalhar offline, tbm ocorre alguns erros. - Original Message - From: Marcio [EMAIL PROTECTED] To: Recipient list suppressed Sent: Tuesday, May 08, 2007 11:36 AM Subject: [delphi-br] [ERRO Quich Report] Socorro !!! Oi Pessoal estou tendo dificuldades em visualizar um relatorio no Quick Report. em determinados computadores , ocorre o seguinte erro : Acces Violation at Addres 0001 read of addres 001 ou Cannot create file !! Porque isso ??? Marcio. Blumenau -SC [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos
Re: [delphi-br] Mudar .ico do atalho no desktop?? como?
Vc vai ter que lançar mão de uma rotina que converta a imagem selecionada para
ICO. E lembre-se que esta imagem deverá ser redimensionada antes, caso esteja
fora das dimensões normais para um arquivo .ICO.
Sds,
Ricardo.
Yahoo - André J. J [EMAIL PROTECTED] escreveu:
Atividade nos últimos dias
a.. 12Novos usuários
Visite seu Grupo
Yahoo! Mail
Conecte-se ao mundo
Proteção anti-spam
Muito mais espaço
Yahoo! Barra
Instale grátis
Buscar sites na web
Checar seus e-mails .
Yahoo! Grupos
Crie seu próprio grupo
A melhor forma de comunicação
.Bom dia galera, olhem o comando que eu usei para criar o ícone (já está
funcionando):
procedure TFrmAtuMain.CreateShortcut (FileName : String);
var
MyObject : IUnknown;
MySLink : IShellLink;
MyPFile : IPersistFile;
Directory : String;
WFileName : WideString;
MyReg : TRegIniFile;
ShortcutName : String;
InitialDir : String;
begin
ShortcutName := 'Gestão';
InitialDir := 'C:\INFOR';
MyObject := CreateComObject(CLSID_ShellLink);
MySLink := MyObject as IShellLink;
MyPFile := MyObject as IPersistFile;
with MySLink do
begin
SetArguments('');
SetPath(PChar(FileName));
SetWorkingDirectory(PChar(InitialDir));
end;
MyReg :=
TRegIniFile.Create('Software\MicroSoft\Windows\CurrentVersion\Explorer');
Directory := MyReg.ReadString ('Shell Folders','Desktop','');
WFileName := Directory + '\' + ShortcutName + '.lnk';
MyPFile.Save (PWChar (WFileName), False);
MyReg.Free;
end;
Agora a duvida é:
ao criar o ícone, ele cria com um ícone PADRÃO, eu gostaria de escolher um
.gif ou .bmp para ser a figura do ícone
alguém sabe se posso implementar usando este código ou preciso de outra
procedure???
obrigado!
[As partes desta mensagem que não continham texto foram removidas]
__
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] OFF-TOPIC - Pedido de Fonte
http://www.google.com.br/search?hl=pt-BRclient=firefox-arls=org.mozilla%3Apt-BR%3Aofficialhs=h67q=font+PiccadillybtnG=Pesquisarmeta= Em 07/05/07, galvao_em [EMAIL PROTECTED] escreveu: Pessoal, preciso da fonte Piccadilly, se alguém tiver favor me enviar, é para um projeto antigo no Corel Draw, eu tinha ela mas formatei o micro e perdi. Desde já agradeço a todos. Att. Rodrigo ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [OFF] BPM - Business Process Management
Pessoal, tenho um trabalho acadêmico sobre BPM.. presquisei, mas o pouco do material que achei não tem muito conteúdo. por isso se alguém puder me ajudar com a vivência relacionada ao BPM agradeço muito! Thiago Filiano 55-11-8288-4402
[delphi-br] AJUDA! Mudar .ico do atalho no desktop?? como?
ninguém sabe alguma dica? meu projeto está parado, estou procurando no google e
nao acho nada :(
olhem o comando que eu usei para criar o ícone (já está funcionando):
procedure TFrmAtuMain.CreateShortcut (FileName : String);
var
MyObject : IUnknown;
MySLink : IShellLink;
MyPFile : IPersistFile;
Directory : String;
WFileName : WideString;
MyReg : TRegIniFile;
ShortcutName : String;
InitialDir : String;
begin
ShortcutName := 'Gestão';
InitialDir := 'C:\INFOR';
MyObject := CreateComObject(CLSID_ShellLink);
MySLink := MyObject as IShellLink;
MyPFile := MyObject as IPersistFile;
with MySLink do
begin
SetArguments('');
SetPath(PChar(FileName));
SetWorkingDirectory(PChar(InitialDir));
end;
MyReg :=
TRegIniFile.Create('Software\MicroSoft\Windows\CurrentVersion\Explorer');
Directory := MyReg.ReadString ('Shell Folders','Desktop','');
WFileName := Directory + '\' + ShortcutName + '.lnk';
MyPFile.Save (PWChar (WFileName), False);
MyReg.Free;
end;
Agora a duvida é:
ao criar o ícone, ele cria com um ícone PADRÃO, eu gostaria de escolher um .gif
ou .bmp para ser a figura do ícone
alguém sabe se posso implementar usando este código ou preciso de outra
procedure???
obrigado!
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Duvida Select
boa tarde
tenho uma tela , na qual, tem 2 campos o tipo(DBLookupComboBox1) e o
modelo(DBLookupComboBox2)
seleciono o tipo e quando for selecionar o modelo teria que listar
apenas os modelos do tipo escolhido
então estava tentando colocar um select no evento Onenter do
(DBLookupComboBox2)
adoconmaterial.active := false;
adoconmaterial.SQL.Clear;
adoconmaterial.SQL.Add ('select * from material where codtipo=
'DBLookupComboBox1.KeyValue')';
adoconmaterial.active := true;
mas não funciona o select está errado alguém poderia me ajudar?
--
Att,
Rodrigo Brito
Microsoft Certified Professional
Informática
Franco e Barbosa Advogados
Av. Rio Branco n.º 103, 19º e 20º andares
Rio de Janeiro, RJ - Brasil
Tel (+55 21) 2122-8300
Fax (+55 21) 2122-8613
[EMAIL PROTECTED]
Re: [delphi-br] Erro em DBGrid - Undeclared Identifier: TField
Ricardo César Cardoso wrote: Felizmente (ou infelizmente) eu sei que TField está declarada em DB e eu declarei a Unit. Agora me responda: por que o Delphi continuou não reconhecendo TField mesmo depois de declarar a Unit? Mistério. Parece daquelas coisas que FechaDelphi + del *.dcu + ProjectBuildAll resolvem. Como você resolveu? -- Joao Morais
Re: [delphi-br] Uso do TIdSMTP
Tenta assim
//Envia Email
//--
procedure EnviaEmail( Obs : String ; Mensagem : String ; Host : String ;
Usuario : String ; Senha : String ; Assunto : String );
var
Mail : TIdSMTP ;
MailMensagem : TIdMessage ;
begin
//--
//Cria a MEnsagem
//--
Mail := TIdSMTP.Create( Nil );
MailMensagem := TIdMessage.Create( Nil );
//--
//-
//Configura a Mensagem
//-
With MailMensagem do
begin
From.Name := De;
ReplyTo.EMailAddresses:= Destinatario ;
Recipients.EMailAddresses := Destinatario ;
Subject := Assunto ;
Body.Add( Mensagem + #13 + #13 ); //Mensgaem que vc quer enviar
MessageParts.Clear;
//--
//-
//Configura a Conta para Enviar
//-
Mail.Host := Host ;
Mail.Username := Usuario ;
Mail.Password := Senha ;
Mail.AuthenticationType := atLogin ;
Mail.Connect() ;
//Verifica se Conctou
if Mail.Connected then
begin
Mail.Send( MailMensagem );
Mail.Disconnect;
Mail.Free;
Application.MessageBox('Email enviado com Sucesso!' , 'Mail' , 0
);
end
else
begin
Raise Exception.Create( 'Não foi possivel conectar ao Servidor' );
Mail.Free;
end;
end;
//--
Espero ter ajudado Wesley
- Original Message -
From: Dimitri Campana
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, May 08, 2007 11:37 AM
Subject: [delphi-br] Uso do TIdSMTP
Bom dia!
Estou implementando um Serviço Windows que enviará um e-mail de tempos em
tempos com algumas informações coletadas
Em uma unit, tenho 2 objetos do tipo TIdSMTP e TidMessage. O problema é
que quando o objeto smtp tenta conectar-se ao servidor, ocorre um erro:
Socket Error # 10061 Connection refused..
Detalhes:
. O objeto é criado 'na mão' pois nao existe um form na aplicação
. Quanto testado em uma aplicação com um form o código abaixo funciona, só
não é necessário o Create.
Alguém poderia me dar uma luz?
Abaixo trechos do código:
function TThreadRealIP.Send_Email(aFrom, aText, aSubject: string): Boolean;
var
Sent: Boolean;
begin
try
Sent := False;
IdSMTP1 := TIdSMTP.Create(Nil);
IdSMTP1.ASCIIFilter := False;
IdSMTP1.BoundPort := 0;
IdSMTP1.ReadTimeout := 0;
IdSMTP1.UseEhlo := True;
IdSMTP1.AuthenticationType := atLogin;
IdSMTP1.Host := 'smtp.mail.yahoo.com.br';
IdSMTP1.Port := 25;
IdSMTP1.Username := 'usuario';
IdSMTP1.Password := 'senha';
IdSMTP1.Connect(3000);
if IdSMTP1.Connected then
begin
...
IdSMTP1.Send(IdMessage1); }
Sent := True;
IdSMTP1.Disconnect;
end;
except
on e: exception do
begin
self.gera_log(e.Message);
Sent := false;
end;
end;
IdSMTP1.Free;
Result := Sent;
end;
Obrigado!
--
Dimitri Campana
Project Management Professional - PMP
Microsoft Certified Solution Developer - MCSD
Microsoft Certified Professional - MCP
e-mail: [EMAIL PROTECTED]
celular (mobile): +55.48.9911.6119
skype: dimitri.campana
MSN (IM): [EMAIL PROTECTED]
Profile: www.linkedin.com/in/dimitricampana
DSOFT SISTEMAS
Rua Desembargador Vitor Lima, 260 - Edifício Madison Center - Sala 504
Bairro: Trindade, 88.040-400, Florianópolis/SC
[As partes desta mensagem que não continham texto foram removidas]
--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.467 / Virus Database: 269.6.5/793 - Release Date: 7/5/2007 14:55
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Duvida Select
boa tarde
tenho uma tela , na qual, tem 2 campos o tipo(DBLookupComboBox1) e o
modelo(DBLookupComboBox2)
seleciono o tipo e quando for selecionar o modelo teria que listar
apenas os modelos do tipo escolhido
então estava tentando colocar um select no evento Onenter do
(DBLookupComboBox2)
adoconmaterial.active := false;
adoconmaterial.SQL.Clear;
adoconmaterial.SQL.Add ('select * from material where codtipo=
'DBLookupComboBox1.KeyValue')';
adoconmaterial.active := true;
mas não funciona o select está errado alguém poderia me ajudar?
--
Att,
Rodrigo Brito
Microsoft Certified Professional
Informática
Franco e Barbosa Advogados
Av. Rio Branco n.º 103, 19º e 20º andares
Rio de Janeiro, RJ - Brasil
Tel (+55 21) 2122-8300
Fax (+55 21) 2122-8613
[EMAIL PROTECTED] mailto:rbrito%40francoebarbosa.com.br
--
Att,
Rodrigo Brito
Microsoft Certified Professional
Informática
Franco e Barbosa Advogados
Av. Rio Branco n.º 103, 19º e 20º andares
Rio de Janeiro, RJ - Brasil
Tel (+55 21) 2122-8300
Fax (+55 21) 2122-8613
[EMAIL PROTECTED]
Re: [delphi-br] Mudar .ico do atalho no desktop?? como?
Ok, mas qual rotina devo usar?? vc tem alguma ai ou algum link para me basear?
dai apenas faço as modificações necessárias
que rotina é essa?
não tem como o ícone já ser criado no inicio com o .ico que eu quero?
e se não puder, este arquivo padrao .ico é padrao em todos os windows? 98, xp
etc?
esta rotina abaixo eu peguei de um colega aqui da lista.. foi muito util
obrigado =)
- Original Message -
From: Ricardo César Cardoso
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, May 08, 2007 1:16 PM
Subject: Re: [delphi-br] Mudar .ico do atalho no desktop?? como?
Vc vai ter que lançar mão de uma rotina que converta a imagem selecionada
para ICO. E lembre-se que esta imagem deverá ser redimensionada antes, caso
esteja fora das dimensões normais para um arquivo .ICO.
Sds,
Ricardo.
Yahoo - André J. J [EMAIL PROTECTED] escreveu:
Atividade nos últimos dias
a.. 12Novos usuários
Visite seu Grupo
Yahoo! Mail
Conecte-se ao mundo
Proteção anti-spam
Muito mais espaço
Yahoo! Barra
Instale grátis
Buscar sites na web
Checar seus e-mails .
Yahoo! Grupos
Crie seu próprio grupo
A melhor forma de comunicação
.Bom dia galera, olhem o comando que eu usei para criar o ícone (já está
funcionando):
procedure TFrmAtuMain.CreateShortcut (FileName : String);
var
MyObject : IUnknown;
MySLink : IShellLink;
MyPFile : IPersistFile;
Directory : String;
WFileName : WideString;
MyReg : TRegIniFile;
ShortcutName : String;
InitialDir : String;
begin
ShortcutName := 'Gestão';
InitialDir := 'C:\INFOR';
MyObject := CreateComObject(CLSID_ShellLink);
MySLink := MyObject as IShellLink;
MyPFile := MyObject as IPersistFile;
with MySLink do
begin
SetArguments('');
SetPath(PChar(FileName));
SetWorkingDirectory(PChar(InitialDir));
end;
MyReg :=
TRegIniFile.Create('Software\MicroSoft\Windows\CurrentVersion\Explorer');
Directory := MyReg.ReadString ('Shell Folders','Desktop','');
WFileName := Directory + '\' + ShortcutName + '.lnk';
MyPFile.Save (PWChar (WFileName), False);
MyReg.Free;
end;
Agora a duvida é:
ao criar o ícone, ele cria com um ícone PADRÃO, eu gostaria de escolher um
.gif ou .bmp para ser a figura do ícone
alguém sabe se posso implementar usando este código ou preciso de outra
procedure???
obrigado!
[As partes desta mensagem que não continham texto foram removidas]
__
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Duvida Select
Use assim...
adoconmaterial.active := false;
adoconmaterial.SQL.Clear;
adoconmaterial.SQL.Add ('select * from material where codtipo= :COD' ;
adoconmaterial.ParamByName('COD').asinteger :=
DBLookupComboBox1.KeyValue ;
adoconmaterial.active := true;
deve funcionar... Wesley
- Original Message -
From: Rodrigo Brito
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, May 08, 2007 2:18 PM
Subject: [delphi-br] Duvida Select
boa tarde
tenho uma tela , na qual, tem 2 campos o tipo(DBLookupComboBox1) e o
modelo(DBLookupComboBox2)
seleciono o tipo e quando for selecionar o modelo teria que listar
apenas os modelos do tipo escolhido
então estava tentando colocar um select no evento Onenter do
(DBLookupComboBox2)
adoconmaterial.active := false;
adoconmaterial.SQL.Clear;
adoconmaterial.SQL.Add ('select * from material where codtipo=
'DBLookupComboBox1.KeyValue')';
adoconmaterial.active := true;
mas não funciona o select está errado alguém poderia me ajudar?
--
Att,
Rodrigo Brito
Microsoft Certified Professional
Informática
Franco e Barbosa Advogados
Av. Rio Branco n.º 103, 19º e 20º andares
Rio de Janeiro, RJ - Brasil
Tel (+55 21) 2122-8300
Fax (+55 21) 2122-8613
[EMAIL PROTECTED]
--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.467 / Virus Database: 269.6.5/793 - Release Date: 7/5/2007 14:55
[As partes desta mensagem que não continham texto foram removidas]
Re: RES: RES: [delphi-br] Apagar master-detail
Pois é Walter... milagre o Delphi ainda não faz... Walter Alves Chagas Junior [EMAIL PROTECTED] escreveu: Graaande Ricardão, o homem que mora nos armarios do quarto de mulher casada Mas o que ele nao quer, é implementar codigo. E, do jeito que voce propos, ele vai ter que implementar isto do mesmo jeito :) Ai não adianta rs []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] Fone: (31) 3389-8217 Fax: (31) 3389-8215 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Ricardo César Cardoso Enviada em: terça-feira, 8 de maio de 2007 08:39 Para: delphi-br@yahoogrupos.com.br Assunto: RE: RES: [delphi-br] Apagar master-detail Mas é claro que tem como apagar os registros Detail sem usar o OnDelete do banco... Se vc associou um CDS master a um CDS detail, no evento BeforeDelete do CDS master vc manda apagar os registros do Detail. Eu tenho um exemplo, mas está no meu material em casa... se ninguém te passar nada, amanhã posso te passar exatamente como fazer isso, o evento e o código necessário. Sds, Ricardo. Magnun Oliveira [EMAIL PROTECTED] escreveu: OK a duvida era realmente essa, se tem como apagar os detail's automaticamente quando excluir o registro master no cds SEM usar o On delete cascade no banco. Mas como nao rola, vou ter q fazer no braço msm ... vlw. Original Message Follows From: Walter Alves Chagas Junior [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: RES: [delphi-br] Apagar master-detail Date: Mon, 7 May 2007 15:41:17 -0300 Magnum, Você não pode apagar o registro master se ele tiver registros detail. Para fazer isto automaticamente, você tem que mudar a chave estrangeira nas tabelas detail adicionando a cláusula On Delete Cascade nelas []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] Fone: (31) 3389-8217 Fax: (31) 3389-8215 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Magnun Oliveira Enviada em: segunda-feira, 7 de maio de 2007 11:53 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Apagar master-detail Fiz um master detail com CDS, inserção e alteração dah tudo certo, porem, se eu for apagar um registro master com no minimo 1 detail dah esse erro: 'cannot delete master records with details' se eu apagar um registro master sem nenhum detail funciona ... Alguma saca como resolver? vlw ... __ MSN Hotmail, o maior webmail do Brasil. http://www.hotmail.com -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos __ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Salvar JPEG no Firebird
PVT - Private, ou seja, mensagem privada (enviada somente para o seu
email e não para o email da lista de discussão)
Mani
--- Em delphi-br@yahoogrupos.com.br, Igor Alexandre
[EMAIL PROTECTED] escreveu
Amigos, uma curiosidade, o que é PVT?
Igor Alexandre.
Em 05/05/07, Jefferson - Fórum [EMAIL PROTECTED] escreveu:
Já lhe enviei!
- Original Message -
From: Marcelo
To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Sent: Friday, May 04, 2007 4:06 PM
Subject: Re: [delphi-br] Salvar JPEG no Firebird
OK.Jefferson vou querer sim, já mandei em PVT.
Abraço.
Jefferson - Fórum escreveu:
Marcelo, tenho essa rotina funcionando em um sistema.
Se quiser, me contate em pvt que te mando essa parte do código.
Valeu!
Jefferson
- Original Message -
From: Marcelo
To: delphi-br@yahoogrupos.com.br delphi-br%
40yahoogrupos.com.brmailto:
delphi-br%40yahoogrupos.com.br
Sent: Friday, May 04, 2007 8:22 AM
Subject: Re: [delphi-br] Salvar JPEG no Firebird
Olá Moacir, muito obrigado pela dica.
Mas já fiz isso e tb continua dando o erro.
Obrigado.
Moacir - Prisma escreveu:
Marcelo,
Coloque a unit jpeg na clausula 'uses' do form
[ ]´s
Moacir
Marcelo escreveu:
Amigos da lista, venho, desesperadamente, solicitar a
ajuda de vcs.
Estou tentando salvar um JPEG no Firebird + está dando o
seguinte
erro:
Bitmap image is not valid
O código como base que peguei está em:
http://www.delphi.eti.br/ver_dica.php?id=6672
http://www.delphi.eti.br/ver_dica.php?id=6672
http://www.delphi.eti.br/ver_dica.php?id=6672
http://www.delphi.eti.br/ver_dica.php?id=6672
Na nossa lista, eu achei assuntos referente, peguei os
exemplos mas
também deu o mesmo erro. Por isso estou vindo até os
amigos da
lista. Se
alguém puder me ajudar eu agradeço.
Estou usando o Firebird 1.5 - IBO 4.2.Ga http://4.2.ga/ -
Delphi 6
Professional
O campo no banco de dados está como Blob - Binary
O campo na Query está como: BlobType - ftParadoxOle
segue abaixo o código:
const
OffsetMemoryStream : Int64 = 0;
para abrir e salvar a foto:
var jpg1 : TJpegImage;
if OPPicture.execute then
image1.Picture.LoadFromFile(OPPicture.FileName);
if OPPicture.FileName '' then
begin
jpg1 := TJpegImage.Create;
jpg1.LoadFromFile(OPPicture.FileName);
Dm1.TbPro.FieldByName('FotoPro').Assign(jpg1);
jpg1.Free;
end;
para carregar a foto:
var MemoryStream: TMemoryStream;
Jpg: TJpegImage;
if not(Dm1.TbPro.IsEmpty) and
not((Dm1.TbPro.FieldByName('FotoPro') as
TBlobField).IsNull) then
try
MemoryStream:= TMemoryStream.Create;
Jpg := TJpegImage.Create;
(Dm1.TbPro.FieldByName('FotoPro') as
TBlobField).SaveToStream(MemoryStream);
MemoryStream.Position := OffsetMemoryStream;
Jpg.LoadFromStream(MemoryStream);
Image1.Picture.Assign(Jpg);
finally
// Jpg.Free;
MemoryStream.Free;
end
else
Image1.Picture := Nil;
end;
Desde já agradeço a todos.
[As partes desta mensagem que não continham texto foram
removidas]
[As partes desta mensagem que não continham texto foram
removidas]
--
Igor Alexandre.
[As partes desta mensagem que não continham texto foram removidas]
Re: RES: RES: [delphi-br] Apagar master-detail
opa antes de mais nada naum se trata de não querer, tipo preguiça hehe Como existe OnCascadeDelete no Provider quando se usa cascade no banco, simplesmente perguntei se existia uma configuração q fizesse o tal, sem o cascade, para nao ficar reinventando roda. Mas como informaram q nao existe fiz algumas alterações em umas telas aqui e coloquei o cascade no banco msm. Ricardo, fique a vontade se quizer mandar o exemplo, pq msm naum servindo pra mim, pode vir a servir pra alguem aqui. Vlw. Original Message Follows From: Ricardo César Cardoso [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: Re: RES: RES: [delphi-br] Apagar master-detail Date: Tue, 8 May 2007 16:51:13 -0300 (ART) Pois é Walter... milagre o Delphi ainda não faz... Walter Alves Chagas Junior [EMAIL PROTECTED] escreveu: Graaande Ricardão, o homem que mora nos armarios do quarto de mulher casada Mas o que ele nao quer, é implementar codigo. E, do jeito que voce propos, ele vai ter que implementar isto do mesmo jeito :) Ai não adianta rs []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] Fone: (31) 3389-8217 Fax: (31) 3389-8215 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Ricardo César Cardoso Enviada em: terça-feira, 8 de maio de 2007 08:39 Para: delphi-br@yahoogrupos.com.br Assunto: RE: RES: [delphi-br] Apagar master-detail Mas é claro que tem como apagar os registros Detail sem usar o OnDelete do banco... Se vc associou um CDS master a um CDS detail, no evento BeforeDelete do CDS master vc manda apagar os registros do Detail. Eu tenho um exemplo, mas está no meu material em casa... se ninguém te passar nada, amanhã posso te passar exatamente como fazer isso, o evento e o código necessário. Sds, Ricardo. Magnun Oliveira [EMAIL PROTECTED] escreveu: OK a duvida era realmente essa, se tem como apagar os detail's automaticamente quando excluir o registro master no cds SEM usar o On delete cascade no banco. Mas como nao rola, vou ter q fazer no braço msm ... vlw. Original Message Follows From: Walter Alves Chagas Junior [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: RES: [delphi-br] Apagar master-detail Date: Mon, 7 May 2007 15:41:17 -0300 Magnum, Você não pode apagar o registro master se ele tiver registros detail. Para fazer isto automaticamente, você tem que mudar a chave estrangeira nas tabelas detail adicionando a cláusula On Delete Cascade nelas []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] Fone: (31) 3389-8217 Fax: (31) 3389-8215 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Magnun Oliveira Enviada em: segunda-feira, 7 de maio de 2007 11:53 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Apagar master-detail Fiz um master detail com CDS, inserção e alteração dah tudo certo, porem, se eu for apagar um registro master com no minimo 1 detail dah esse erro: 'cannot delete master records with details' se eu apagar um registro master sem nenhum detail funciona ... Alguma saca como resolver? vlw ... __ MSN Hotmail, o maior webmail do Brasil. http://www.hotmail.com -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos __ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] _ MSN Hotmail, o maior webmail do Brasil. http://www.hotmail.com
[delphi-br] [oferta de emprego] Desenvolvedor/Analista - DELPHI - RIO DE JANEIRO
Galera Segue abaixo algumas oportunidades RIO DE JANEIRO * DESENVOLVEDOR DELPHI (5 VAGAS) Experiência mínima de 3 anos com desenvolvimento DELPHI SQL SERVER Experiência em suporte a clientes, investigação e resolução de problemas. Local: CENTRO (RJ) Currículo urgente com a experiência exigida e pretensão salarial para [EMAIL PROTECTED]mailto:[EMAIL PROTECTED] com o nome da vaga no campo assunto do e-mail DELPHI-RJ . * ANALISTA DE SISTEMAS (5 VAGAS) Mínimo de 2 anos de experiência com Análise de Sistemas Experiência com Levantamento e Especificação de Sistemas (Funcional e Técnica) Experiência com UML (Casos de Uso, Diagramas de Classes, Diagrama de Seqüência) e Design Patterns Experiência com Documentação de Sistemas Desejável : Delphi / SQL Server) CURRICULO COM PRETENSÃO SALARIAL E A EXPERIENCIA PARA [EMAIL PROTECTED]mailto:[EMAIL PROTECTED] COM O NOME DA VAGA NO CAMPO ASSUNTO ANALISTA - RJ Brigadim :) Bianca Teixeira [EMAIL PROTECTED]mailto:[EMAIL PROTECTED] __ SP +55(11)5507-5756 RJ +55(21)4501-1000 Recursos Humanos Imago IT Solutions - www.imago.com.brhttp://www.imago.com.br/ Esta mensagem, incluindo quaisquer anexos, é dirigida apenas ao seu destinatário e pode conter informação confidencial e/ou privilegiada e não passível de divulgação nos termos da legislação em vigor. Se você não for o destinatário ou a pessoa autorizada a receber esta mensagem, não poderá usar, copiar ou divulgar as informações nela contidas ou tomar qualquer ação baseada nessas informações. Se você recebeu esta mensagem por engano, por favor avise imediatamente o remetente, respondendo o e-mail, ou notifique a IMAGO IT Solutions através do telefone (21) 4501-1000, e em seguida apague a mensagem e quaisquer anexos. Agradecemos sua cooperação. [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Uso do TIdSMTP
Valeu Wesley. Acabei descobrindo neste meio tempo..
Meu anti-vírus da McAfee estava com uma regra ativa que bloqueava o envio do
e-mail: Impedir que worms de e-mail em massa enviem mensagens
Outra correção foi a porta SMTP do Yahoo que não é a 25 mas a 587.
Obrigado!
Dimitri
_
From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On
Behalf Of BandaLemuel
Sent: terça-feira, 8 de maio de 2007 15:18
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] Uso do TIdSMTP
Tenta assim
//Envia Email
//--
procedure EnviaEmail( Obs : String ; Mensagem : String ; Host : String ;
Usuario : String ; Senha : String ; Assunto : String );
var
Mail : TIdSMTP ;
MailMensagem : TIdMessage ;
begin
//--
//Cria a MEnsagem
//--
Mail := TIdSMTP.Create( Nil );
MailMensagem := TIdMessage.Create( Nil );
//--
//-
//Configura a Mensagem
//-
With MailMensagem do
begin
From.Name := De;
ReplyTo.EMailAddresses := Destinatario ;
Recipients.EMailAddresses := Destinatario ;
Subject := Assunto ;
Body.Add( Mensagem + #13 + #13 ); //Mensgaem que vc quer enviar
MessageParts.Clear;
//--
//-
//Configura a Conta para Enviar
//-
Mail.Host := Host ;
Mail.Username := Usuario ;
Mail.Password := Senha ;
Mail.AuthenticationType := atLogin ;
Mail.Connect() ;
//Verifica se Conctou
if Mail.Connected then
begin
Mail.Send( MailMensagem );
Mail.Disconnect;
Mail.Free;
Application.MessageBox('Email enviado com Sucesso!' , 'Mail' , 0 );
end
else
begin
Raise Exception.Create( 'Não foi possivel conectar ao Servidor' );
Mail.Free;
end;
end;
//--
Espero ter ajudado Wesley
- Original Message -
From: Dimitri Campana
To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Sent: Tuesday, May 08, 2007 11:37 AM
Subject: [delphi-br] Uso do TIdSMTP
Bom dia!
Estou implementando um Serviço Windows que enviará um e-mail de tempos em
tempos com algumas informações coletadas
Em uma unit, tenho 2 objetos do tipo TIdSMTP e TidMessage. O problema é
que quando o objeto smtp tenta conectar-se ao servidor, ocorre um erro:
Socket Error # 10061 Connection refused..
Detalhes:
. O objeto é criado 'na mão' pois nao existe um form na aplicação
. Quanto testado em uma aplicação com um form o código abaixo funciona, só
não é necessário o Create.
Alguém poderia me dar uma luz?
Abaixo trechos do código:
function TThreadRealIP.Send_Email(aFrom, aText, aSubject: string): Boolean;
var
Sent: Boolean;
begin
try
Sent := False;
IdSMTP1 := TIdSMTP.Create(Nil);
IdSMTP1.ASCIIFilter := False;
IdSMTP1.BoundPort := 0;
IdSMTP1.ReadTimeout := 0;
IdSMTP1.UseEhlo := True;
IdSMTP1.AuthenticationType := atLogin;
IdSMTP1.Host := 'smtp.mail.yahoo.com.br';
IdSMTP1.Port := 25;
IdSMTP1.Username := 'usuario';
IdSMTP1.Password := 'senha';
IdSMTP1.Connect(3000);
if IdSMTP1.Connected then
begin
...
IdSMTP1.Send(IdMessage1); }
Sent := True;
IdSMTP1.Disconnect;
end;
except
on e: exception do
begin
self.gera_log(e.Message);
Sent := false;
end;
end;
IdSMTP1.Free;
Result := Sent;
end;
Obrigado!
--
Dimitri Campana
Project Management Professional - PMP
Microsoft Certified Solution Developer - MCSD
Microsoft Certified Professional - MCP
e-mail: dimitri.campana@ mailto:dimitri.campana%40gmail.com gmail.com
celular (mobile): +55.48.9911.6119
skype: dimitri.campana
MSN (IM): dimitricampana@ mailto:dimitricampana%40hotmail.com hotmail.com
Profile: www.linkedin.com/in/dimitricampana
DSOFT SISTEMAS
Rua Desembargador Vitor Lima, 260 - Edifício Madison Center - Sala 504
Bairro: Trindade, 88.040-400, Florianópolis/SC
[As partes desta mensagem que não continham texto foram removidas]
--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.467 / Virus Database: 269.6.5/793 - Release Date: 7/5/2007
14:55
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Gerar instalação
Marcelo, Uma boa prática seria você usar VM (Máquina Virtuais com apenas o sistema operacional), assim você terá um ambiente de teste ideal (como no cliente), já que na máquina onde está seu delphi não é bom pra teste, pois tem todos os arquivos com path configurados. Dessa forma, você irá incluir apenas os arquivos necessários para sua aplicação dentro do seu instalador. Em 04/05/07, Marcelo Miranda Silva [EMAIL PROTECTED] escreveu: Estou usando firebird. Marcelo Miranda Silva Divisão de Banco de Dados Departamento de Produção Tribunal de Justiça do Estado do Rio de Janeiro Tel.: (0XX21) 3133-3417 / 1814 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 Ricardo César Cardoso Enviada em: sexta-feira, 4 de maio de 2007 13:08 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Gerar instalação Para isso é preciso saber q banco de dados vc está usando para a sua aplicação. Sds, Ricardo. Marcelo Miranda Silva [EMAIL PROTECTED] mmiranda%40tj.rj.gov.brmailto: mmiranda% mmiranda%2540tj.rj.gov.br escreveu: Dei uma olhada o InnoSetup e é bem facil a utilização, mas não sei quais arquivos adicionar no projeto. Alguém tem a relação dos arquivos necessários? Marcelo Miranda De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto: delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.brdelphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br ] Em nome de Bruno Sanson Enviada em: sexta-feira, 4 de maio de 2007 00:32 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Gerar instalação Pesquise por InnoSetup. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] _ __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Atenciosamente, Bruno Sanson Cadena Sistemas 19 3468-3368 / 19 8145-2024 Skype: brunosanson [As partes desta mensagem que não continham texto foram removidas]
