Проблемы LoadFromStream
Есть у меня файл на FTP, готовый frp (Сохраненный отчет FastReport 2.47)
Короче говоря, я его пишу с FTP в поток, а потом хочу выдать на экран.
Все это получаеться, кроме последнего.
Т.е.
frReport1.LoadFromStream(S);
frReport1.ShowpreparedReport;
не работает.
Попробовал для 3 FastReport? тоже не сработало, пока не написал:
FrxReport1.PreviewPages.LoadFromStream(s);
FrxReport1.ShowPreparedReport;
Но в 2.47 нет .PreviewPages...
Но в документации нашел StreamMode(smFrf,SmFrp) и не знаю куда применить, но похоже это то что мне необходимо!
Помогите плиз!
procedure TForm1.Button1Click(Sender: TObject);
begin
S:=TStringStream.Create('');
fils:='RAPORT\kremn.frp';
With IdFtp1 do begin
User:= 'anonymous';
Password := 'user';
Host :='10.7.0.4';
Connect;
Get(fils,S);
S.Position:=0;
Quit;
end;
frReport1.Clear;
frReport1.LoadFromStream(S);
//FrxReport1.PreviewPages.LoadFromStream(s); для fr3
frReport1.LoadFromStream(S);
frReport1.ShowPreparedReport;
s.Free;
end;
Короче говоря, я его пишу с FTP в поток, а потом хочу выдать на экран.
Все это получаеться, кроме последнего.
Т.е.
frReport1.LoadFromStream(S);
frReport1.ShowpreparedReport;
не работает.
Попробовал для 3 FastReport? тоже не сработало, пока не написал:
FrxReport1.PreviewPages.LoadFromStream(s);
FrxReport1.ShowPreparedReport;
Но в 2.47 нет .PreviewPages...
Но в документации нашел StreamMode(smFrf,SmFrp) и не знаю куда применить, но похоже это то что мне необходимо!
Помогите плиз!
procedure TForm1.Button1Click(Sender: TObject);
begin
S:=TStringStream.Create('');
fils:='RAPORT\kremn.frp';
With IdFtp1 do begin
User:= 'anonymous';
Password := 'user';
Host :='10.7.0.4';
Connect;
Get(fils,S);
S.Position:=0;
Quit;
end;
frReport1.Clear;
frReport1.LoadFromStream(S);
//FrxReport1.PreviewPages.LoadFromStream(s); для fr3
frReport1.LoadFromStream(S);
frReport1.ShowPreparedReport;
s.Free;
end;
Комментарии
Не хватало строчки fReport1.EMFPages.LoadFromStream(s);
Это вместо fReport1.LoadFromStream(s);
В итоге получилось:
// Загрузка в FastReport 2.47
frReport1.EMFPages.LoadFromStream(s); // Загружаем из потока
frReport1.ShowPreparedReport; // Показываем