Передача готового отчета

Pablito

Подскажите, пожалуйста, как поступить. Есть отчет на одном компьютере. Он там формируется. И мне затем необходимо передать готовый сформированный отчет на другой компьютер и там его отобразить. Как лучше поступить?!

gelios

сохраняешь его в формате frf, а на друном компе открываешь. можешь даже написать небольшую утилитку, или поищи в нете, уже есть готовые

Pablito

Это и данные передаются и структура?

Pablito

Я пробовал frReport1.LoadFromFile('c:\....frp');
но отчет не открывается.

Pablito

И так пробовал

var
comp:string;

function ComponentToString(Component: TComponent): string;
var
ms: TMemoryStream;
ss: TStringStream;
begin
ss := TStringStream.Create(' ');
ms := TMemoryStream.Create;
try
ms.WriteComponent(Component);
ms.position := 0;
ObjectBinaryToText(ms, ss);
ss.position := 0;
Result := ss.DataString;
finally
ms.Free;
ss.free;
end;
end;

procedure TForm1.frReport1EndDoc;
begin
comp:=ComponentToString(frReport3);
end;

procedure StringToComponent(Component: TComponent; Value: string);
var
StrStream:TStringStream;
ms: TMemoryStream;
begin
try
StrStream := TStringStream.Create(Value);
try
ms := TMemoryStream.Create;
try
ObjectTextToBinary(StrStream, ms);
ms.position := 0;
ms.ReadComponent(Component);
finally
ms.Free;
end;
finally
StrStream.Free;
end;
except
showException(ExceptObject,ExceptAddr);
end;
end;
.....................................................
другая форма

var
fr: TfrReport;
.............
if Assigned(fr)then
begin
fr.Free;
fr := nil;
end;
fr:= TfrReport.Create(self);
fr.Name:='frReport1';
fr.Pages.Clear;
fr.Pages.Add;
if fr.Pages[0] <> nil then
StringToComponent(fr,comp);
fmFastreport.frCompositeReport1.Reports.Clear;
fmFastreport.frCompositeReport1.Reports.Add(fr);
fmFastreport.frCompositeReport1.ShowPreparedReport;

никакой вариант не работает!!!

Vano

2 Pablito:

1. Сохраняешь ГОТОВЫЙ (который уже вышел на просмотр) отчёт в файл с расширением FRP (в окне просмотра есть кнопочка с дискетой).
2. Для просмотра FRP пишешь небольшую прогу: на форму кладёшь TfrReport, OpenDialog (через который ты будешь выбирать FRP). После выбора нужного файла жмёшь кнопу:

begin
  if frReport1.LoadPreparedReport(FileName) then
    frReport1.ShowPreparedReport
  else
    MessageDlg('Не могу зогрузить файл '+FIleName,mtError,[mbOk],0);
end;

Pablito

Спасибо огромное!
Вы мне здорово помогли!!!