Web forum is in read-only mode. Login as active registered customer for write access
  Forum Search   New Posts New Posts

Is TMS Data Modeler Library updated?

 Post Reply Post Reply
Author
Didier SALMON View Drop Down
New Member
New Member
Avatar

Joined: 08 Mar 2013
Posts: 5
Post Options Post Options   Quote Didier SALMON Quote  Post ReplyReply Direct Link To This Post Topic: Is TMS Data Modeler Library updated?
    Posted: 08 Mar 2013 at 6:12am
My developpment programming environment
  • Delphi XE3 PRO update 2
  • TMS DATA MODELER 201010
  • TMS Data Modeler Library (version 2010)
What happens?
 
I've migrated to DataModeler version 2.0 and use the TMS Data Modeler Library.
When i try to compile my App  i have an Exception when AureliusExportOptions object  is parsed...
 
My question:
 
How do i can rid of it?
 
More information
Portion of the DGP file that mays cause problem
 
  AureliusExportOptions =
    '<Mappings CreateDescriptions="true">'#13#10'  <ProjectFile/>'#13#10'  <Outpu' +
    'tDir>C:\Users\ASUS_DIDIER\Documents\RAD Studio\Projets\XE3\AppBa' +
    'se\UNITS\MODULES</OutputDir>'#13#10'  <MainUnitName>AppDataModele</Mai' +
    'nUnitName>'#13#10'  <DictionaryName>Dic</DictionaryName>'#13#10'  <Dictionar' +
    'yUnitName/>'#13#10'  <TableNaming Source="caption" Format="T%s"/>'#13#10'  <' +
    'FieldNaming Source="caption" Format="%s"/>'#13#10'  <AssociationNaming' +
    ' Source="ChildFieldCaption" Format="%s"/>'#13#10'  <ManyValuedNaming S' +
    'ource="ChildTableCaption" Format="%sList"/>'#13#10'  <Tables/>'#13#10'  <Ass' +
    'ociations/>'#13#10'</Mappings>'#13#10
Back to Top
Wagner R. Landgraf View Drop Down
TMS Support
TMS Support
Avatar

Joined: 18 May 2010
Posts: 2427
Post Options Post Options   Quote Wagner R. Landgraf Quote  Post ReplyReply Direct Link To This Post Posted: 08 Mar 2013 at 6:49am
TMS Data Modeler library is deprecated and is not being updated anymore.
Back to Top
Didier SALMON View Drop Down
New Member
New Member
Avatar

Joined: 08 Mar 2013
Posts: 5
Post Options Post Options   Quote Didier SALMON Quote  Post ReplyReply Direct Link To This Post Posted: 08 Mar 2013 at 7:05am
Poor of me....
 
Back to Top
Wagner R. Landgraf View Drop Down
TMS Support
TMS Support
Avatar

Joined: 18 May 2010
Posts: 2427
Post Options Post Options   Quote Wagner R. Landgraf Quote  Post ReplyReply Direct Link To This Post Posted: 08 Mar 2013 at 7:08am
Ok ok.  :)
Please contact me in private with more info (dgp and your DM library code) maybe we can do a quick workaround.
Back to Top
Didier SALMON View Drop Down
New Member
New Member
Avatar

Joined: 08 Mar 2013
Posts: 5
Post Options Post Options   Quote Didier SALMON Quote  Post ReplyReply Direct Link To This Post Posted: 08 Mar 2013 at 7:43am
Where is your private mail adress?
Back to Top
Wagner R. Landgraf View Drop Down
TMS Support
TMS Support
Avatar

Joined: 18 May 2010
Posts: 2427
Post Options Post Options   Quote Wagner R. Landgraf Quote  Post ReplyReply Direct Link To This Post Posted: 08 Mar 2013 at 7:49am
Just send to regular support e-mail
Back to Top
Didier SALMON View Drop Down
New Member
New Member
Avatar

Joined: 08 Mar 2013
Posts: 5
Post Options Post Options   Quote Didier SALMON Quote  Post ReplyReply Direct Link To This Post Posted: 08 Mar 2013 at 7:53am
I just find a 'private' way to get aroud by writing this
 
 procedure DeleteAureliusExportOptionsTagInFile(aDGPFile:string);
    var
    FileContent:TStringList;
    S:string;
    I:Integer;
    begin
    if not FileExists(aDGPFile) then    Exit;
      FileContent:=TStringList.Create;
      try
         FileContent.LoadFromFile(aDGPFile);
        I:=FileContent.IndexOf('  AureliusExportOptions = ');
        if I<>-1 then
         begin
           S:=FileContent;
             while (I<FileContent.Count) AND (Pos('</Mappings>',S)=0) do
             begin
               FileContent.Delete(I);
               S:=FileContent;
             end;
           if Pos('</Mappings>',S)<>0 then
              FileContent.Delete(I);
            FileContent.SaveToFile(fn);
           end;
      finally
        FileContent.Free;
      end;
    end;
Back to Top
Didier SALMON View Drop Down
New Member
New Member
Avatar

Joined: 08 Mar 2013
Posts: 5
Post Options Post Options   Quote Didier SALMON Quote  Post ReplyReply Direct Link To This Post Posted: 08 Mar 2013 at 7:54am
in above code, yould read
S:=FileContent(I)
Back to Top
 Post Reply Post Reply

Forum Jump Forum Permissions View Drop Down