ActiveDelphi

[claudiojose]

Ola pessoal,

Já postei algo sobre este assunto, mas ainda não consegui resolver

Seria enviar um email de um relatório gerado no fortes reporter, clicando no
botão enviar do próprio fortes

Eu tenho um que funciona perfeitamente no Delphi 7 (sendemail)
mas tentando utilizar no Delphi 10, não funciona

Grato

Claudio

[strak2012]

Basta prestar atenção no unicode das string e tudo se resolve.
Num passado tive o mesmo problema.
_________________
Tudo podemos quando tudo sabemos!

[claudiojose]

Obrigado Pela colaboração

Consegui acertar em partes
Só que quando clico em enviar, abre o OutLook e após o envio,
me da um erro de invalid point operation

E até agora não consegui resolver isso.
Att

Claudio

[leo_cj]

Chegou a Debuggar pra ver em qual trecho ocorre o erro?

[claudiojose]

Aparece o erro invalid point operation na linha sinalizada.


with TFormSendMailOptions.Create(nil) do
try
Pages:=aPages;
// EditAssunto.Text:=Pages.Title;
// procura no diretório corrente
GetDir(0,s);
preview:=IncludeTrailingBackslash(s)+SelfFileName;
// se não achar procura no diretório do executável
if not FileExists(preview) then
preview:=IncludeTrailingBackslash(ExtractFilePath(Application.ExeName))+SelfFileName;
// valida os filtros
pdf:=SaveFilterByFileName('.pdf');
rtf:=SaveFilterByFileName('.rtf');
htm:=SaveFilterByFileName('.htm');
// habilita botões
RadioButtonEXE.Enabled:=FileExists(preview);
RadioButtonPDF.Enabled:=(pdf<>nil);
RadioButtonRTF.Enabled:=(rtf<>nil);
RadioButtonHTM.Enabled:=(htm<>nil);
// seta filtro default
if not RadioButtonEXE.Enabled then
begin
if RadioButtonPDF.Enabled then
RadioButtonPDF.Checked:=True
else if RadioButtonRTF.Enabled then
RadioButtonRTF.Checked:=True
else if RadioButtonHTM.Enabled then
RadioButtonHTM.Checked:=True
else
RadioButtonEXE.Checked:=False;
end;
//
go:=(ShowModal=mrOk);
if not go then
Exit;
// seleciona filtro
if RadioButtonPDF.Checked then
ftr:=pdf
else if RadioButtonRTF.Checked then
ftr:=rtf
else if RadioButtonHTM.Checked then
ftr:=htm
else if RadioButtonEXE.Checked then
ftr:=nil
else
Exit;
if ftr=nil then
tmpext:='.exe'
else
tmpext:=ftr.DefaultExt;
//
tmpfile:=ExpandFileName(ChangeFileExt(EditAssunto.Text+'.',tmpext));
try
// faz selfprint
if ftr=nil then
MakeSelfPrint(preview,tmpfile,Pages)
else
begin
// filtra
ftr.FileName:=tmpfile;
//// FilterPages(Pages,ftr);
/// FilterPages(Pages,ftr,0,999,'',0);
filterpages(pages,ftr,1,999,'',0);
end;
with TSendMail.Create(nil) do
try
Subject:=EditAssunto.Text;
Body :='';
s:=EditDestinatarios.Text;
while s<>'' do
begin
i:=Pos(';',s);
if i=0 then
i:=Length(s)+1;
Recipients.Add(Copy(s,1,i-1));
Delete(s,1,i);
end;
Attachments.Add(tmpfile);
EditDialog:=CheckBoxAbrir.Checked;
Send;
finally
Free;
end;

finally
SysUtils.DeleteFile(tmpfile);
end;
finally
free ; <-------------- aqui acontece o erro acima mencionado.
end;

[leo_cj]

Não sei se vai resolver, mas tenta trocar o Free onde ocorre o erro por FreeAndNil

[strak2012]

[claudiojose]

Obrigado pelo tempo dispensado, para me ajudar

mas poderia me dizer como converter estar duas linhas abaixo para o
Delphi 2010 no 7 funciona perfeitamente

Grato

Claudio



att^[i].lpszPathName:=StrPCopy(new(TlpszPathname)^,Attachments[i]);
att^[i].lpszFileName:=StrPCopy(new(TlpszFileName)^,ExtractFileName(Attachments[i]));

[claudiojose]

Acredito que consegui resolver

Obrigado pela diga strak2012

Att

Claudio