trichview.com

trichview.support




Re: Saving / Loading RTF Tables format changes **** HELP ~***


Return to index


Author

Message

Sergey Tkachenko

Posted: 11/13/2002 23:19:27


Try the following functions:


procedure TRichViewEditEx.WriteData(Stream: TStream);

var StartPos,Size: Integer;

begin

  Size := 0;

  StartPos := Stream.Position;

  Stream.WriteBuffer(Size, SizeOf(Size));

  SaveRVFToStream(Stream, False);

  Size := Stream.Position-SizeOf(Size)-StartPos;

  Stream.Position := StartPos;

  Stream.WriteBuffer(Size, SizeOf(Size));

  Stream.Position := StartPos+SizeOf(Size)+Size;

end;


procedure TRichViewEditEx.ReadData(Stream: TStream);

var Size: Integer;

    MemStream: TMemoryStream;

begin

  MemStream := TMemoryStream.Create;

  try

    Stream.ReadBuffer(Size, SizeOf(Size));

    MemStream.SetSize(Size);

    Stream.ReadBuffer(MemStream.Memory^, Size);

    LoadRVFFromStream(MemStream);

  finally

    MemStream.Free;

  end;

end;




"Mike" <[email protected]> wrote in message

news:[email protected]...

> Hi I am using your control as a back drop of a form designer. Using the

> built in procedures in delphi for dynamically storing the dfm of a file.

> to a database.

>

> So I added this to a new control decended from yours

>

> procedure TRichViewEditEx.DefineProperties(Filer: TFiler);

> begin

>  Filer.DefineBinaryProperty('Data', ReadData, WriteData, True);

> end;

>

> procedure TRichViewEditEx.WriteData(Stream: TStream);

> var M:TMemoryStream;

> begin

>  M := TMemoryStream.Create;

>  Try

>    SaveRVFToStream(M,False);

>    If M.Size > 0 then begin

>       Stream.CopyFrom(M,0);

>    end;

>  Finally

>   M.Free;

>  end;

> end;

>

> procedure TRichViewEditEx.ReadData(Stream: TStream);

> begin

>   Clear;

>   LoadRVFFromStream(Stream);

>   Format;

> end;

>

> I do not use this control at design time. Only at RUN time. The forms dfm

> data

> is streamed dynamically from a database blob field.

>

> This extended Richivew has it's own Style control created internally

>

> Please if you can think of anything

>

> Only a day to go before release, and I am working late>>>>>

>

> HELP !!!!!

>

> Mike

>

>

>

>

>

>

>

> --

>

>

> WorkSmart Ltd

>

> Tel:    01908 394 361

> Fax:   01908 394 360

>

> ============================================================

> This email message and any accompanying attachments may contain

> information that is confidential. If you are not the intended recipient,

do

> not read, disseminate, distribute or copy this message or attachments.

> If you have received this message in error,  please notify the sender

> immediately and delete this message.

>

> Before opening any attachments, please check them for viruses and defects.

> ============================================================

> "Sergey Tkachenko" <[email protected]> wrote in message

> news:[email protected]...

> > Settings are correct.

> > Can you give me a code that saves and loads RVF?

> >

> >

>

>





Powered by ABC Amber Outlook Express Converter