exportar relatorio com figuras

Delphi

07/03/2012

bom dia pessoal, estou precisando de uma ajuda de voces, e o seguinte, eu tenho que exportar um relatorio feito em rave reports para html, ate ai tudo bem so que na hora de visualizar o relatorio ele nao aparece as imagens, o que sera que esta aconttecendo, programo em delphi 2010 e banco firebird ai vai a rotina que estou utilizando !!!

procedure TfrmOrcamento.BitBtn2Click(Sender: TObject);
begin
with busca_imagem do
begin
Close;
sql.clear;
sql.Add(select hoteis.foto_hotel,hoteis.servicos_hotel,hoteis.formapag,hoteis.conheca_hotel,hoteis.obs from hoteis where nome_hotel = :hotel);
ParamByName(hotel).Value := cbbHotel1.Text;
Open;
end;
frmRelatorios.Relatorios.SetParam(foto_hotel,busca_imagemFOTO_HOTEL.Text);
frmrelatorios.relatorios.SetParam(hotel,cbbHotel1.Text);
frmrelatorios.relatorios.SetParam(entrada,dataExtenso(StrToDate(edtentrada.Text)));
frmrelatorios.relatorios.SetParam(saida,dataExtenso(StrToDate(edtSaida.Text)));
frmrelatorios.relatorios.SetParam(noites,edtNoites.Text);
frmrelatorios.relatorios.SetParam(single,edtSingle.Text);
frmrelatorios.relatorios.SetParam(ad_adulto,edtAdulto.Text);
frmrelatorios.relatorios.SetParam(inclui,busca_imagemSERVICOS_HOTEL.Text);
frmrelatorios.relatorios.SetParam(formapag,busca_imagemFORMAPAG.Text);
frmrelatorios.relatorios.SetParam(conheca_hotel,busca_imagemCONHECA_HOTEL.Text);
frmrelatorios.relatorios.SetParam(obs,busca_imagemOBS.Text);
frmrelatorios.relatorios.SetParam(total_pag,FormatFloat(R$ #,##0.00,StrToFloat(edtTotal.Text)));
frmrelatorios.relatorios.ExecuteReport(orcamento);
frmRelatorios.Relatorios.Close;

//Exportando o Relatorio

frmrelatorios.RvSystem1.DoNativeOutput := False;
frmrelatorios.RvSystem1.RenderObject := FrmRelatorios.RvRenderHTML1;
frmrelatorios.RvSystem1.OutputFileName := C:\orcamento.HTML;
frmrelatorios.relatorios.ExecuteReport(orcamento);

end;

se alguem puder me ajudar ficarei grato !!!!
Willian Bento

Willian Bento

Curtidas 0
POSTAR