WPSuperMerge and Bitmap merge substitution

enricorav

Hi to all,

i have a Template rtf document with some "Merge-fields". For one of this i need to substitute the field with a Bitmap image readed from a BMP file.

I write this code:

1) On my class constructor (C++Builder) i read the bitmap and stored it on a TBitmap object:

FBitmapLogo = new Graphics::TBitmap();
String logoFile = ExtractFilePath(Application->ExeName) + "Logo.bmp";
if ( FileExists(logoFile) )
FBitmapLogo->LoadFromFile(logoFile);

2) On event OnGetText i assign the bitmap to a new TWPOImage object and set Contents->Obj:

void __fastcall TMailMergeEngine::SuperMergeGetText(TObject *Sender,
const AnsiString fName, TWPInsertTextContents *Contents)
{
if ( fName == "LogoGrafico" )
{
TWPOImage * obj = new TWPOImage(WPMerge);
obj->Picture->Bitmap->Assign(FBitmapLogo);
obj->HeightTW = MulDiv(obj->Picture->Bitmap->Height,1440,Screen->PixelsPerInch);
obj->WidthTW = MulDiv(obj->Picture->Bitmap->Width,1440,Screen->PixelsPerInch);

obj->WriteRTFMode = wobOnlyRTF;
Contents->Obj = obj;
}
}

But non Bitmap are displayed on my report.

I missing something ?

support

Please set the flag

mmInsertObject

in Contents.options

enricorav

Hi,
i have modified my code as your reply:

TWPOImage * obj = new TWPOImage(WPMerge);
obj->Picture->Bitmap->Assign(FBitmapLogo);
obj->HeightTW = MulDiv(obj->Picture->Bitmap->Height,1440,Screen->PixelsPerInch);
obj->WidthTW = MulDiv(obj->Picture->Bitmap->Width,1440,Screen->PixelsPerInch);

obj->WriteRTFMode = wobOnlyRTF;
Contents->Options = (Contents->Options << mmInsertObject);
Contents->Obj = obj;

But a compiler error stop me now:

[C++ Error] WpEngineU.cpp(202): E2094 'operator<<' not implemented in type 'TInsertTextOptions' for arguments of type 'TWPMailMergeContinueOption'
[C++ Error] WpEngineU.cpp(395): E2096 Illegal structure operation

I see the help and object TWPInsertTextContents don't have flags mmInsertObject.
Only in TWPMMInsertTextContents i see this flags but how can i set it from SuperMerge->OnGetText event ?

support

Hi,

maybe with a temporary variable

TInsertTextOptions options << mmInsertObject;
Contents->Options = options;

Julian

enricorav

Hi Julian,

don't work also with a temporary variable.

From WpTools help i see:

TInsertTextOption type

Code

UnitWPMergeDeclaration TInsertTextOption = (    wpinsTrim,    wpinsMaxLength, { Use 'FMaxLength' }    wpinsIgnoreTrailingSpacesIfEmpty, { Skip Whitespaces behind if empty }    wpinsIgnoreParIndents, { Only for RTF Input - Ignore spacing, shading, ... }    wpinsIgnoreParSpacing,    wpinsIgnoreParAlign,    wpinsIgnoreParColor,    wpinsIgnoreParTabs,    wpinsIgnoreParNumbering,    wpinsIgnoreParID, { also sets or delte parProtected flag! }    wpinsIgnoreFonts, { Only for RTF Input - use current font }    wpinsIgnoreFontSize, { Only for RTF Input - use current fontsize }    wpinsReadFromRTFText, { copy from CP as much text as fits to the destination }    wpinsFormatRTFToPosition, { moves the loaded text to the current insentation (first indent!)  V3.12a }    wpinsKeepOriginalText    );

As you can see no mmInsertObject are present in this set.

For find mmInsertObject declaration i must search TWPMMInsertTextContents Object and then i can read that on WpTools help:

Code

UnitWPRtfIODeclarationTWPMMInsertTextContents = class(TObject)DescriptionOne instance of this class is passed to the OnMailMergeGetText event to let the event modify or read out the merged text. The component TWPMMDataProvider can be used to automatically handle the data transfer. CategoryEditField SupportMailmerge Support

TWPMMInsertTextContents options Properties:

HTML

Applies to
TWPMMInsertTextContents
Declaration
property options: TWPMailMergeContinueOptions;
Description
You can modify this property to change way the mail-merge engine will continue to operate after the OnMailMergeGetText event was processed.
You can abort the process or you can tell the engine that this paragraph should be discarded. Other possibilities are in particular useful when you are merging formatted text:
The SET controls the mail merge process in the OnMailMergeGetText event:
mmStopNow: will stop merging at once
mmMergeTrim trim white spaces from the inserted text
mmIgnoreNewParAttr: if you are inserting RTF or HTML text the paragraph properties of the new text will override the current paragraph properties. If this flag is used, the current paragraph properties have priority instead.
mmIgnoreAllNewParAttr: like above but the current paragraph
attributes will be applied to all paragraphs of the inserted, merged text.
mmMergeAsRTF: Normally RTF is automatically detected. To force the usage as RTF use this flag.
mmMergeAsHTML: HTML is only detected when the text starts with '<html>'. It is better to use this tag to force HTML.
mmSkipSpacesBehind:skip white spaces after this field. This is useful if you are inserting an empty string.
mmInsertObject: insert object from obj reference. This is automatically set once you assign an object to 'contents.obj'.
mmDeleteUntilFieldEnd: If this flag is set the text until the EditField-End will be deleted. This is very useful if not all the text between the start and end marks has the afsAutomatic attribute.
mmNoChange: If this flag is set the current text will not be changed. It is still necessary to execute WPRichText1.Refresh after the MergeTextFast procedure.

Alles anzeigen

But i canno't find any instance of TWPMMInsertTextContents class passed to the OnMailMergeGetText event

support

The wpmerge.pas supports different optiuons, thats true. (In V5 this has changed, both use same parameter)

Here it is sufficine to set the obj parameter - please check the source in wpmerge.pas, line 1935 ...

there it should go into this code

else if mrgcont.Obj is TWPObject then
begin
location := wplstObj;
ins_obj := TWPObject(mrgcont.Obj);
FIgnoreTrailingSpaces := FALSE;
end

WidthTW and HeightTW must be defined - I see no way why this should not work,

but I do not think this is ideal:

obj->Picture->Bitmap->Assign(FBitmapLogo);

Better do a LoadFromFile since then the original data is saved in that object.

Also TWPOImage(WPMerge) is not perfect, that should be owned by the Destinateion, not the source.

enricorav

Hi Julian,

the source in wpmerge.pas, line 1935 are right.

i have modified my code as here:

Code

void TWpEngine::SuperMergeGetVariable(TObject *Sender,
      const AnsiString FieldName, TWPInsertTextContents *Contents)
{
      if ( FieldName == "ReferencePerson" )
         Contents->StringValue = MainForm->GetStringFromRegistry("Variables", "Reference");
      else if ( FieldName == "Operator" )
         Contents->StringValue = MainForm->GetStringFromRegistry("Variables", "Operator");
      else if ( FieldName == "PhoneOp" )
         Contents->StringValue = MainForm->GetStringFromRegistry("Variables", "PhoneOp");
      else if ( FieldName == "LogoGrafico" )
      {
         String logoFile = ExtractFilePath(Application->ExeName) + "Logo.bmp";
         if ( FileExists(logoFile) )
         {
            TWPOImage * obj = new TWPOImage(WPTemplate);
//            obj->Picture->Bitmap->Assign(FBitmapLogo);
            obj->Picture->Bitmap->LoadFromFile(logoFile);


            obj->HeightTW = MulDiv(obj->Picture->Bitmap->Height,1440,Screen->PixelsPerInch);
            obj->WidthTW = MulDiv(obj->Picture->Bitmap->Width,1440,Screen->PixelsPerInch);


            obj->WriteRTFMode = wobOnlyRTF;


            Contents->Obj = obj;
         }
         else
            Contents->StringValue = "";
      }
}
//---------------------------------------------------------------------------

Alles anzeigen

With debug i follow code execution in my function and all seem ok but the problem are not solved.

support

Hi,

if you can please create a small demo which does this seperately from your main application. In all my demos it works just fine.

Julian