Dicas - Salvando páginas HTML como MHTML

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Veja a dica de como salvar o conteúdo de um arquivo HTML em MHTML.

Salvando páginas HTML como MHTML

 

Como faço para salvar o conteúdo de um arquivo HTML para MHTML?

 

function SaveToMHT(const AUrl, AFileName: string; AShowErrorMessage: Boolean = False): Boolean;

var

  oMSG, oConfig: OleVariant;

  sFileName: string;

  Retvar: Boolean;

begin

  sFileName := ChangeFileExt(AFileName, '.mht');

  DeleteFile(PAnsiChar(sFileName));  

  try

    oConfig := CreateOleObject('CDO.Configuration');

    oMSG := CreateOleObject('CDO.Message');

    oMSG.Configuration := oConfig;

    oMSG.CreateMHTMLBody(AUrl);

    oMSG.GetStream.SaveToFile(sFileName);

    Retvar := True;

  except

    on E: Exception do

    begin

      if AShowErrorMessage then

        MessageDlg(E.Message, mtError, [mbOK], 0);

      Retvar := False;

    end;

  end;  

  oMSG := VarNull;

  oConfig := VarNull;  

  Result := Retvar;

end;

 

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?