Mario Lopes
-
Total de itens
136 -
Registro em
-
Última visita
Tudo que Mario Lopes postou
-
Enviar email em html com um anexo em pdf
pergunta respondeu ao Mario Lopes de Mario Lopes em Delphi, Kylix
Boa noite Jhonas Na verdade eu já tinha pesquisado, mas sem sorte. O problema é que quando envio uma mensagem com pdf obtenho algo como This is a multi-part message in MIME format --63FEEhaiYJN2CCws=_LGaGNjr7kudkN8xX Content-Type: text/plain; charset="ISO-8859-1" Content-Transfer-Encoding: quoted-printable Content-Disposition: inline Teste ao Envio Este =E9 um teste ao envio --63FEEhaiYJN2CCws=_LGaGNjr7kudkN8xX Content-Type: application/pdf; name="1Janeiro.pdf" Content-Transfer-Encoding: base64 Content-Disposition: attachment; filename="1Janeiro.pdf" JVBERi0xLjMNCjEgMCBvYmoNCjw8IC9DcmVhdG9yIDw+DQovQ3JlYXRpb25EYXRlIDw0NDNhMzIz MDMxMzMzMDM5MzIzMzMyMzMzMDM1MzMzOT4NCi9UaXRsZSA8Pg0KL0F1dGhvciA8Pg0KL1Byb2R1 Y2VyIDw1MjY1NzA2ZjcyNzQ0Mjc1Njk2YzY0NjU3Mj4NCi9LZXl3b3JkcyA8Pg0KL1N1YmplY3Qg PD4gPj4NCmVuZG9iag0KMiAwIG9iag0KWy9QREYgL1RleHQgL0ltYWdlQiAvSW1hZ2VDXQ0KZW5k b2JqDQozIDAgb2JqDQo8PCAvVHlwZSAvRXh0R1N0YXRlDQovU0EgdHJ1ZQ0KPj4NCmVuZG9iag0K NCAwIG9iag0KPDwgL1R5cGUgL0NhdGFsb2cNCi9QYWdlcyA1IDAgUg0KPj4NCmVuZG9iag0KNiAw O meu código é: var IdAttachmentFile : TIdAttachmentFile; begin idMessage1.CharSet := 'ISO-8859-1' ; idmessage1.ContentType:='text/html' ; IdSMTP1.Username := 'xxxx'; IdSMTP1.Password := 'xxxxx'; IdSMTP1.Connect; IdSMTP1.Authenticate; IdMessage1.From.Address := 'xxxxx'; IdMessage1.From.Name := 'Escolinha'; IdMessage1.Recipients.Clear; IdMessage1.Recipients.EMailAddresses := 'xxxxx'; IdMessage1.Subject := 'A Escolinha - Recibo do Mês '; IdMessage1.Body.Assign( memo1.Lines ); with IdAttachmentFile do begin IdAttachmentFile := TIdAttachmentFile.Create(IdMessage1.MessageParts, label2.Caption); IdAttachmentFile.ContentType:= 'application/pdf;'; end; Application.ProcessMessages; IdSMTP1.Send (idMessage1); idmessage1.Clear; idsmtp1.Disconnect(); A resposta mais próxima que obtive foi http://www.devmedia.com.br/forum/envio-de-email-com-anexos-indy-delphi-2007/410819 mas obtive erro. Não reconhece idMessage1.Encoding:=meUU; mas reconhece IdMessage1.Encoding := meMIME; Como sair desta? Delphi 2010 e Indy 10 -
Boa tarde Estou a usar um código delphi para enviar uma mensagem mas gostaria de enviar o texto em html com um anexo em pdf. Não consigo. A mensagem aparece formatada em html mas o anexo que é pdf vem com uma série de letras e números. Em resumo como colocar a mensagem em html e o anexo em pdf? (no Indy 10 como funciona o contentType?) Eis o código. //idmessage1.ContentType:='text/html' ; idMessage1.CharSet := 'ISO-8859-1' ; label4.Caption:=query1.FieldByName('numero_recibo').AsString ; IdSMTP1.Username := 'xxxx@dsdsd'; IdSMTP1.Password := 'xxxxx'; IdSMTP1.Connect; IdSMTP1.Authenticate; IdMessage1.From.Address := 'xxxx.x@sdsd'; IdMessage1.From.Name := 'Escolinha'; IdMessage1.Recipients.Clear; IdMessage1.Recipients.EMailAddresses := 'xxx@xxx'; IdMessage1.Subject := 'A Escolinha - Recibo do Mês '; IdMessage1.Body.Text :='<html><br>ola<br>está tudo bem ou não?<b>tudo ok</b></html>'; TIdAttachmentFile.Create(idmessage1.MessageParts, label2.caption); IdSMTP1.Send (idMessage1); idmessage1.Clear; idsmtp1.Disconnect(); Alguém ajuda? Cumprimentos. Mário
-
Sei que o problema reside em O que se passa em Asstring no delphi 10 que é diferente no delphi 7?
-
Tenho um projeto em delphi7. Abri o mesmo em delphi 2010 onde irei continuá-lo e o seguinte código funciona em delphi 7 e não em delphi 10. Alguém sabe porquê? query4.close; query4.sql.clear; query4.sql.add('select * from recibos where mes=:mes and ano=:ano'); query4.Params[0].AsString:=combobox1.Text; query4.Params[1].asinteger:=strtoint(label3.Caption); query4.Open;
-
(Resolvido) Enviar email, onde está Indy?
pergunta respondeu ao Mario Lopes de Mario Lopes em Delphi, Kylix
Obrigado Jhonas O primeiro link está ok -
Boa noite Uso delphi 7 , e pretendo enviar email usando uma conta gmail com o me programa. Pelo que percebi necessito dos componentes Indy. Qual a versão do Indy a instalar e já agora onde posso descarregá-la? Cumprimentos Mário Lopes
-
Diferente muito estranho em select
pergunta respondeu ao Mario Lopes de Mario Lopes em Delphi, Kylix
Na verdade campo nome_grupo é nulo Jhonas. Se eu preencher com qualquer valor a assim já funciona. Penso que é isso que irei fazer. -
Olá Amigos Estou a fazer o seguinte código: query3.close; query3.sql.Clear; query3.SQL.Add('select * from custos where grupo <> :grupos'); query3.Params[0].asstring:=table1.fieldbyname('nome_grupo').AsString; query3.open; estranhamente o resultado apresentado é nulo, isto é não aparece nenhum registo. Alguém sabe porquê?
-
O cd tem o Install Shield Express Borland limited edition version 3.5 Agora não sei se será esta a versão que refere porque não é muito fácil perceber como instalar o BDE com ela. Parece-me limitada (limited edition version). Será esta a versão do install Shield que resolverá o meu problema? Esta pergunta não é nada fácil de responder porque já lá vão uns anos, não é? Vou tentar o Inno Setup, se calhar é mais fácil. Abraço Mário
-
Boa tarde Qual o programa de instalação de aplicativos delphi que é mais interessante de usar? Necessito de instalar BDE e usava o express 2 to Delphi, mas julgo que este programa é de 16 bits e não consigo fazer instalações para 64 bits. Em suma : qual o melhor programa para instalar uma aplicação delphi com BDE. Aguardo a vossa ajuda Mário Lopes
-
Obrigado amigo É sempre bom poder contar consigo Abraço
-
Se assim for que banco de dados (gratuito) devo usar? Aguardo a sua opinião Abraço Mário Lopes
-
Obrigado Jhonas O meu problema é o seguinte: programo em delphi 7 e BDE. Sinto que necessito de sair do BDE porque foi descontinuado etc. mas a pergunta é ir para onde? dbexpress? É por aí? Aguardo a sua opinião Abraço Mário Lopes
-
Boa noite Tenho um programa desenvolvido em Delphi 7, 32 bits. Como posso criar o mesmo programa para 64 bits? Basta ter um pc, 64 bits, com o delphi 7 instalado e a partir daí a aplicação produzida é de 64 bits? É só? Abraço Mário
-
Ok Jhonas Peço desculpa, a sua resposta diz tudo. Pura e simples distracção minha.
-
Boa tarde amigos Porque o código seguinte não funciona para comprar datas. Isto é o resultado é nulo e não devia ser. var data:Tdatetime; var compoedata:string; begin compoedata:='01'+'-'+inttostr(combobox1.ItemIndex+1)+'-'+edit1.Text; data:=strtodate(compoedata); //------------procurar apenas os contrato validos Queryg.SQL.Clear; Queryg.SQL.Add('SELECT *'); Queryg.SQL.Add('FROM contrato'); Queryg.SQL.Add('WHERE data_inicio>=:a' ); Queryg.SQL.Add('and data_fim <= :a'); queryg.Params[0].AsDate:=data; queryg.Params[1].asdate:=data; queryg.Open;
-
(Resolvido) Como saber? Cor de uma célula stringgrid?
pergunta respondeu ao Mario Lopes de Mario Lopes em Delphi, Kylix
Valeu amigo, abraço -
(Resolvido) Como saber? Cor de uma célula stringgrid?
pergunta respondeu ao Mario Lopes de Mario Lopes em Delphi, Kylix
Não é fácil amigo Veja a minha situação: function GetCorCell(calendarGrid: TStringGrid; Coluna, Linha: Integer): TColor; var R : TRect; Cor : TColor; begin R := calendargrid.CellRect(Coluna, Linha); Result := calendargrid.Canvas.Pixels[R.Left + 2, R.Top + 2]; showmessage(colortostring(result)); end; Agora no evento selectcell chamo getcorcell(calendargrid,acol,arow); A minha grid chama-se calendargrid mas obtenho sempre o mesmo resultado clwhite e uma das células onde clico está com cor vermelha. -
Boa noite Como posso saber a cor de uma célula numa stringgrid onde cliquei com o rato? A cor da fonte ou a cor da célula. Obrigado
-
(Resolvido) Abortar a abertura de um formulário
pergunta respondeu ao Mario Lopes de Mario Lopes em Delphi, Kylix
Obrigado amigo -
Boa noite Tenho um formulário que abre e oncreate tenho o seguinte código opcao:=MessageBox(Application.Handle , 'Esta Opção Fecha o Ano. Quer continuar?' , 'Explicações SL' , MB_YESNO + MB_ICONQUESTION ); if opcao<>6 then begin Preciso de fechar o formulário, como fazer? end; Como posso fechar o formulário? Obrigado
-
Olá Amigo Possivelmente não me expliquei bem. O que necessitava era que quando colocasse o recibo como anulado a dbgrid fizesse um refresh que obrigasse a executar o DBGrid1DrawColumnCell para que a cor ficasse actualizada. Abraço
-
Olá amigos Para colorir uma linha de uma dbgrid uso o seguinte código Agora necessito que quando mudo o estado para A o drawcolumncell(..) seja executado para que a linha fique logo com as definições descritas. Como fazê-lo?
-
Sim, eu conhecço os componentes mas não os tenho instalado no Delphi. A minha pergunta é de onde posso fazer o download dos mesmos?
-
Boas Estou a necessitar enviar emails através do meu programa delphi mas necessito para isso dos componentes Indy. Procurei esses componentes mas não os consegui descarregar. Onde estão disponíveis ? Uso o delphi 7 Obrigado