Как сохранить fr3 в BL

edited 8:26PM in FastReport 4.0
Сохраняю файл fr3 в БД Firbird 1.5
procedure TForm1.Button1Click(Sender: TObject);
var
memStream:TMemoryStream;
begin
if OpenDialog1.Execute then
try
memStream:=TMemoryStream.Create;
frxReport1.LoadFromFile(OpenDialog1.FileName);
frxReport1.SaveToStream(memStream);
memStream.Position:=0;
IBDataSet1.Edit;
IBDataSet1U_NAME.AsString:=ExtractFileName(OpenDialog1.FileName);
IBDataSet1WWWW.LoadFromStream(memStream);
IBDataSet1.Post;
finally
memStream.Free;
end;
end;

затем пытаюсь загрузить его :
procedure TForm1.Button3Click(Sender: TObject);
var
memStream:TMemoryStream;
begin
try
memStream:=TMemoryStream.Create;
IBDataSet1WWWW.SaveToStream(memStream);
memStream.Position:=0;
frxReport1.LoadFromStream(memStream);
frxReport1.ShowReport();
finally
memStream.Free;
end;
end;

и получаю ошибку : Invalid File Format

Поле в БД BLOB SUB_TYPE 0 SEGMENT SIZE 80
что не так делаю?

Leave a Comment

Rich Text Editor. To edit a paragraph's style, hit tab to get to the paragraph menu. From there you will be able to pick one style. Nothing defaults to paragraph. An inline formatting menu will show up when you select text. Hit tab to get into that menu. Some elements, such as rich link embeds, images, loading indicators, and error messages may get inserted into the editor. You may navigate to these using the arrow keys inside of the editor and delete them with the delete or backspace key.