Print Page | Close Window

Is TMS Data Modeler Library updated?

Printed From: TMS Software
Category: Business Tools
Forum Name: Data Modeler
Forum Discription:
URL: http://www.tmssoftware.com/site/forum/forum_posts.asp?TID=2356
Printed Date: 21 Oct 2019 at 9:48pm


Topic: Is TMS Data Modeler Library updated?
Posted By: Didier SALMON
Subject: Is TMS Data Modeler Library updated?
Date 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



Replies:
Posted By: Wagner R. Landgraf
Date Posted: 08 Mar 2013 at 6:49am
TMS Data Modeler library is deprecated and is not being updated anymore.


Posted By: Didier SALMON
Date Posted: 08 Mar 2013 at 7:05am
Poor of me....
 


Posted By: Wagner R. Landgraf
Date 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.


Posted By: Didier SALMON
Date Posted: 08 Mar 2013 at 7:43am
Where is your private mail adress?


Posted By: Wagner R. Landgraf
Date Posted: 08 Mar 2013 at 7:49am
Just send to regular support e-mail


Posted By: Didier SALMON
Date 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;


Posted By: Didier SALMON
Date Posted: 08 Mar 2013 at 7:54am
in above code, yould read
S:=FileContent(I)



Print Page | Close Window