Foros Club Delphi - Como traducir fácilmente una aplicación a otros idiomas

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Como traducir fácilmente una aplicación a otros idiomas (https://www.clubdelphi.com/foros/showthread.php?t=67633)

Como traducir fácilmente una aplicación a otros idiomas

Hola.

Existe un Unit que permite traducir una aplicación a otros idiomas de forma muy sencilla y rápida.

Es IniLang vs. 0.9. Se encuentra en http://www.torry.net/pages.php?id=273 y aparece como un componente (realmente es un Unit) para Delphi 4.

Al ser de 1999 y aparecer como para Delphi 4, seguramente muchas personas lo desestimarán. Sin embargo, creo que es una joya.

Funciona bien en Delphi 4, 5, 6 y 7; quizás también lo haga en versiones posteriores.

Traduce los caption, los hint, las líneas de memos y richedit, las constantes de texto, etc. y permite cambiar de idioma en ejecución.

Para utilizarlo, primero se añade IniLang.pas a la aplicación, todos los form que tengan componentes que deban ser traducidos deben incluir IniLang en el Uses.

Luego se guardan todas las constantes de texto en un Unit específico.

Después se añade la llamada al procedimiento "Fillcustomini", que crea el archivo INI (custom.ini) con los datos de todos los componentes de todos los form y con los datos de todas las constantes de texto.

Y ya está hecho el trabajo.

Finalmente se traduce el texto del archivo creado (custom.ini) y se guarda con el nombre del nuevo idioma. Se añade al programa una llamada a ese archivo y unos pocos detalles más.

Incluye un ejemplo bastante claro.

Aclarar que seguramente no funcionará con idiomas como el árabe, el japonés, etc.

El componente comete uno o dos errores que se resuelven con unas modificaciones que están incluidas en IniLang2.

Todo ello se encuentra en el archivo de descarga que aparece en mi mensaje del día 30-04-2010. En ese archivo la unit se llama IniLang2 y sustituye a IniLang.

Y aquí van algunas recomendaciones de uso:

- El ejemplo incluido es muy claro.

- Los nombres de los componentes deben ser diferentes de los caption, pues si son iguales, los caption son ignorados por INILang2.

- Para que un componente sea ignorado por INILang2, su nombre debe comenzar por "out"; por ejemplo, "outLabel1".

- Cuando se va a crear el archivo "custom.ini" con el procedimiento "Fillcustomini" hay que asegurarse antes de que todos los form están cargados en memoria.
Es decir, que en menú Project/Options.../Forms (pestaña) todos los forms están en el cuadro de la izquierda (Auto-create forms). Si alguno está en el cuadro de la derecha (Avalaible Forms), sus datos no se incluirán en el archivo "custom.ini".

- Cuando se ejecuta el programa desde Delphi (con F9) para crear el archivo "custom.ini" (con el procedimiento "Fillcustomini" ), aparece un error al leer las constantes, y no se crea el archivo "custom.ini" de forma completa.
Para solucionarlo, hay que compilar con Ctrl-F9 y luego ejecutar el programa desde el navegador de windows.

- Para obtener el texto de una constante de texto (por ejemplo, una cuyo nombre sea "Form1_01") hay que utilizar la función "misc( , )", que recibe 2 parámetros. De esta manera: "misc(Form1_01,'Form1_01')". Un ejemplo sería:
showMessage( misc(Form1_01,'Form1_01') );

- Importante: Este error se encuentra en IniLang, pero está resuelto en IniLang2.
En el código del programa (después de "implementation") no pueden haber líneas que, después de eliminar los espacios en blanco (con Trim() ), se inicien con alguno de estos 3 caracteres (# ' +) .

Si hay líneas que se inicien con alguno de estos 3 caracteres (# ' +), IniLang las confundirá con constantes de texto que contienen varias líneas y se producirá un error al crear la sección [Misc] del archivo "Custom.ini"

Un ejemplo de esto sería:

Label3.caption := Label1.caption
+ Label2.caption ;

La segunda línea ( "+ Label2.caption ;" ) producirá un error cuando INILang vaya a crear el archivo "Custom.ini".

Si es necesario que existan estas líneas, el autor recomienda esta solución utilizando las llaves de comentarios para evitar que, tras usar Trim(), "+" sea el primer caracter de la línea y respetando el código:

Label3.caption := Label1.caption
{} + Label2.caption ;

Como ya se mencionó, este error no aparecerá en IniLang2.

El cambio, es decir, el añadir los comentarios "{}" lo realizará automáticamente el procedimiento "Before_SearchStr". Esa es la mejora principal que aporta INILang2 0.9 .

Debido a estos cambios (añadiendo "{}"), después de ejecutar el programa, Delphi le anunciará que aquellos archivos modificados (que estuvieran cargados por Delphi) han sufrido cambios y le preguntará si deben ser leidos de nuevo.

- Es recomendable borrar el fichero "custom.ini" antes de utilizar la función "Fillcustomini". Por ello, IniLang2 incluye este proceso al inicio del procedimiento "Fillcustomini".

Salu2.

Ramón

Localización, traducción.

Se agradece el mini-tutorial. :)

La verdad es que, con lo útil que me pareció IniLang (después de investigar otras 10 ó 12 opciones) y con todo lo que he aprendido de este foro y todas las ayudas que he recibido en él, me sentí casi obligado a compartir esta información con quien la pudiera utilizar.;)
Salu2.
Ramón.

Cita:

Empezado por Neftali (Mensaje 362087)

Se agradece el mini-tutorial. :)

Acá hay otro muy bueno :rolleyes: http://neftali.clubdelphi.com/?p=688

Maxium, gracias por el enlace al tutorial de Neftali. Y mis felicitaciones a Neftali por la calidad y claridad de su tutorial.

Hace un tiempo también encontré el GNU Gettext pero, como ya había probado IniLang anteriormente (y conocía su facilidad de uso), deseché GNU Gettext porque me pareció muy complicado el proceso que exige, aunque no llegué a probarlo.

Gracias a la guía de Neftali y a tu recomendación, me animé a probarlo y se confirmó mi impresión inicial: para mí, GNU Gettext exige un proceso (bastante) más laborioso que IniLang.

Sin embargo, ofrece más posibilidades que IniLang, como utilizar Google para hacer la traducción (lo vi en un menú, no lo he probado) o trabajar con textos en Unicode (también visto, pero no probado) y seguro que muchas más.

A pesar de ello, si se trata de hacer una traducción a idiomas que utilizan el alfabeto europeo occidental (español, inglés, francés, alemán, catalán, gallego, euskera, etc.), creo que IniLang es mucho más rápido y sencillo de usar.

He modificado mi primer comentario de este hilo, donde explico como usar IniLang para actualizar cosas que antes no estaban incluidas. Por ejemplo, he retirado el código en Delphi (porque ya está incluido en el zip de descarga), lo demás son cambios en los comentarios.

He intentado ponerme en contacto con el autor de IniLang, pero su correo electrónico no existe (tiene más de 10 años).

Y creo que IniLang es una aportación demasiado buena como para que quede olvidada por las personas que podrían beneficiarse de ella.

IniLang no se puede actualizar (en torry.net) porque no soy el autor original. Por ello, he pensado en incluir todos estos cambios y enviarlos a torry.net como un nuevo componente, que se llamaría IniLang2.

Para hacerlo pido ayuda a otros miembros del foro porque, aunque he podido probar IniLang en Delphi 5, 6 y 7 (el autor ya la hizo en Delphi 4) y sería interesante probarlo en Delphi 2005, 2006, 2007, 2009 y 2010.

Incluyo un archivo zip de descarga en el que se incluye todo lo necesario para hacer la prueba. Basta con cargar el proyecto en Delphi, compilar con Ctrl-F9 y ejecutar el programa desde el navegador de Windows.

¿Qué hay que probar?. Pues 2 cosas:

1- Que el archivo "custom.ini" (lo creará el programa al hacer clic en el botón 'Crear "Custom.ini" (FR)' o 'Create "Custom.ini"') es igual que el archivo 'Custom_muestra.ini' que se incluye en el archivo zip.

2- Que el programa permite cambiar de idioma los caption de los botones, etiquetas, etc. Haciendo clic en los botones 'Français/French' y 'Anglais/English'.

Si lo pruebas, incluye en este hilo el resultado como una respuesta y así podré incluir esa información para indicar las versiones de Delphi en las que funciona.

La Unit 'IniLang2' incluida en el fichero zip es la versión modificada del IniLang original.

Gracias de antemano.

Ramón.

A ver si durante el fin de semana o a lo más tardar el lunes le puedo echar un vistazo.

Pues parece que funciona sin problemas en Delphi 2010. He añadido un nuevo idioma y compilado sin problemas.

Neftali, muchas gracias por probarlo y por tu aportación del catalán.

Bueno, parece que funciona en Delphi 2010.

Vuelvo a pedir ayuda a los miembros del foro que tengan acceso a una versión de Delphi 2005, 2006, 2007 ó 2009 para que hagan la prueba que explico en mi mensaje del día 30 de Abril (hace 4 días).

Como ya comenté, la intención es la de publicar IniLang2 en torry.net para que otros usuarios de Delphi puedan beneficiarse de su facilidad de uso y posibilidades.

Es por ello que pido ayuda para facilitar una información lo más completa posible y poder indicar si esas versiones de Delphi funcionan bien con IniLang2.

Salu2.

Ramón.

Es casi seguro que funcionando en D2010 no tendrás ningun problema en las anteriores desde D2006 hasta D2009.

Torry publicó IniLang2

Hola a todos/as.

Después de unas semanas de espera, Torry publicó IniLang2.

Por si a alguien le puede interesar está en este enlace.

Espero sea útil a mucha gente.

Muchas gracias Neftali.

Salu2 a to2/as.

Ramón.

P.D.: :rolleyes: La petición de que alguien que tenga Delphi 2006, 2007 ó 2009 lo pruebe y diga si funcionó o no, sigue en pie.
Si se tuviera esa confirmación, posiblemente se podría modificar el texto en Torry acerca de qué versiones de Delphi lo pueden usar y posiblemente más personas podrían beneficiarse de su uso. ;)

Hola, y disculpen que este post es un poco antiguo, pero necesito saber como usar el componente inilang, para traducir una serie de valores de constantes de un idioma a otro que se encuentran en una units de resourcestring, por ejemplo en esta unit guardo el caption en español de un botón que se encuentra en un determinado formulario, este al crearse habre la unit de recurso para obtener el valor de la propiedad caption para el botón de comado.

¿Has descargado y revisado el componente? (descarga la versión 2 que aparece más arriba)
Descargalo, descomprímelo y revisa los ficheros que hay dentro. A parte de los ficheros de texto de cómo utilizarlo hay alguna demo que puedes revisar.

Hola, gracias. ya he estado revisando los ejemplos, pero me salta una duda, sabes si acepta el idioma ruso ?

Cita:

Empezado por cmfab (Mensaje 371968)

Hola, gracias. ya he estado revisando los ejemplos, pero me salta una duda, sabes si acepta el idioma ruso ?

:confused::confused: No lo se. Pruébalo y dinos.
¿Porqué no debería aceptarlo?

Funciona con el ruso, pero solo cambiando la configuración regional. saludos a todos

Cmfab, gracias por tu aportación, y lo mismo para Neftali.

Ramón.

Neftalí estuve revisando el tutorial sobre las GNU Gettext
dejé un post agregado sobre los menuitems porque no me funciona correctamente por ejemplo en español sería Archivo - Abrir - Cerrar en inglés sería File - Open - Close. es decir para que me entiendan mejor Abrir y Cerrar serían subitems del item principal Archivo. sin embargo nunca traduce a File cuando presiono el idioma inglés siempre se mantiene Archivo que es el idioma por defecto con el que se diseñó la pequeña aplicación de prueba.

saludos y gracias a todos

Si tengo un hueco lo probaré. No recuerdo que me pasara nada raro y lo he utilizado con menús. :confused::confused::confused:

Gracias por el tutorial.

Yo para mis proyectos me he creado una minilibrería de funciones que me hace la función de traductor en unicode.

Aquí os dejo una función de autodetecta los ficheros .ini que sean de idioma que haya en un directorio determinado de la aplicación.

Código Delphi [-]type
 TIDI_omas=record
              idioma:widestring;  //Texto del idioma
              ID:widestring;      //ID del idioma (ESP=Español; ENG=Inglés)
              fichero:widestring; //Fichero del que se leerá
           end;

var
 IDI_numero:word=0;         //Número de idiomas encontrados
 IDI_idioma_actual:word=0;  //Idioma actual
 IDI_idiomas:array of TIDI_omas;

var
 CH_directorio:widestring; //Directorio del programa
 IDI_cual_def:integer=0; //Variable que tiene cual será el idioma por defecto

procedure IDI_pre_carga_idiomas;
var
 f:tinifile;
  sr: TSearchRec;
  FileAttrs: Integer;
  st,st1,st2:string;
  sw:pwidechar;
  p:pointer;
begin
  IDI_numero:=0;
  setlength(IDI_idiomas,0);
  //Cargamos primeramente el idioma Español
  if fileexists(CH_directorio+'LANG\IDI_esp.ini')=false then
   begin
     f:=tinifile.Create(CH_directorio+'LANG\esp.ini');
     try
       f.WriteString('GENERAL','IDG','IDENTIFICADOR_APP');
       f.WriteString('GENERAL','ID1','Español');
       f.WriteString('GENERAL','ID2','ESP');
     finally
       f.Destroy;
     end;
   end;

   //Buscamos los idiomas
  st:=CH_directorio+'LANG\IDI_*.ini';
  fileattrs:=faReadOnly+faHidden+faSysFile+faArchive+faAnyFile;
  FindFirst(st,fileattrs,sr);

  repeat
    sw:=pchar(CH_directorio+'LANG\'+sr.Name);
    //Leemos a ver si es un fichero correcto
    f:=tinifile.Create(sw);
    try
      st:=f.ReadString('GENERAL','IDG','');
      st1:=f.ReadString('GENERAL','ID1','');
      st2:=f.ReadString('GENERAL','ID2','');
    finally
      f.Destroy;
    end;

    if (st='IDENTIFICADOR_APP')and(st1<>'')and(st2<>'') then
     begin
       IDI_numero:=IDI_numero+1;
       setlength(IDI_idiomas,IDI_numero);
       IDI_idiomas[IDI_numero-1].idioma:=st1;
       IDI_idiomas[IDI_numero-1].ID:=st2;
       IDI_idiomas[IDI_numero-1].fichero:=sw;
     end;
  until FindNext(sr)<>0;
  FindClose(sr);
  //OPCIONAL: La siguiente línea carga los nuevos idiomas en un Tmenuitem para que se puedan seleccionar y cambiar por el usuario.
  IDI_pre_carga_menuitem;
 //La siguiente línea carga las cadenas de texto del idioma predefinido
  if IDI_cual_def>=0 then
   begin
      IDI_cambia_idioma(IDI_cual_def);
   end;

end;

Espero que os sirva. Luego solo hay que crear el procedimiento "IDI_cambia_idioma" y leer las cadenas del fichero de idioma asignado y cambiarla a los componentes y cadenas del programa.

Hola compañeros,

He implementado algunas modificaciones al IniLang2, que amplian el abanico de componentes que permte traducir (DBgrid, Panel, TabControl)
dejo el codigo para quien lo quiera utilizar:

Código:

{ This is a text added for IniLang2.

 The difference in  IniLang2 is that has been included the procedure "Before_SearchStr"

 and that the file "custom.ini" is deleted (at the beggining of the procedure

 "fillcustomini").

 IniLang2 (and IniLang too) works with Delphi 4, 5, 6 and 7. May be that it works well

 in later versions of Delphi (it has not been checked).

}



{Freeware unit for Delphi 4 projects, provided 'As Is'

Frédéric Sigonneau <aFas> 24/04/1999

e-mail : frederic.sigonneau@wanadoo.fr



IniLang can help you to build at design-time, in a single pass, a .ini file

filled with all properties and messages you have to localize for a

multilingual distribution.

Useful for large projects including many forms and lot of messages

(and, you know, a little project grows very quickly!).

At run-time, allows you to change your interface localization 'on the fly', as

long as you translated the .ini file created with IniLang in as many languages

you want to be available. Yet, that's the only ::)))) job you have to do

by yourself.



I wrote that unit because the components or units written by Serge Sushko,

Aldo Ghigliano or José Maria Gías didn't exactly do what I needed  (ie less

work as possible!), but their ideas and their code helped me several times

to turn off some problems. So, thanks to all of them.



Finally, please, read commentaries before use. Then try, there is no danger !

If you use and improve this unit, just send me a copy if possible. Thanks. FS}



{Copy this file in the directory of your project and add IniLang to

the 'uses' implementation clause of units which use it, as usual}

unit IniLang2;



interface



uses Windows, SysUtils, Classes, Forms, stdCtrls, typInfo,

     extCtrls, iniFiles, Controls, DBGrids, ComCtrls;



const

   sep='*|*';   //separator for multiline messages

   FR='French.ini';   FRENCH=2;

   EN='English.ini';  ENGLISH=0;

   SP='Spanish.ini';  SPANISH=1;

   CU='Custom.ini';   CUSTOM=3;

   //add what you want



var

   CL:TMemIniFile;   //Global variable for current language

   //must be inited in the onShow event of your main form.

   // Synthax : CL:=loadIni(XX);

   //where XX is the const name of the ini file you want to load.

   //You can use either a string or an integer const to load a language file.



//user procs

function loadIni(nom:string):TMemIniFile;overload;

function loadIni(ID:integer):TMemIniFile;overload;

procedure fillCustomIni;

procedure fillProps(TC:array of TComponent;ini:TMemIniFile);

function misc(VAL,KEY:string):string;



procedure Before_SearchStr ;       // This procedure was added in IniLang2



//utilities

procedure searchStr(var ini:TIniFile);

function getProp(comp:TComponent;prop:string):string;

procedure setProp(comp:TComponent;{const }prop,value:string);

function HasProperty(comp:TComponent;prop:string):boolean;

function str2IntID(s:string):integer;

function intID2Str(ID:integer):string;



implementation



function loadIni(nom:string):TMemIniFile;

var

   chemin:string;

begin

   chemin:=extractFileDir(application.exeName)+'\'+nom;

   if not fileExists(chemin) then

      result:=nil

   else

      result:=TMemIniFile.create(chemin);

end;

//other way for the same result

function loadIni(ID:integer):TMemIniFile;overload;

var

   chemin,nom:string;

begin

   case ID of

      -1:nom:= '';

      FRENCH:nom:=FR;

      ENGLISH:nom:=EN;

      SPANISH:nom:=SP;

      CUSTOM:nom:=CU;

   end;

   chemin:=extractFileDir(application.exeName)+'\'+nom;

   if not fileExists(chemin) then

      result:=nil

   else

      result:=TMemIniFile.create(chemin);

end;



{Creates the original iniFile 'Custom.ini' and fills it first

with string properties and their values (captions, hints,

items -TRadioGroup and TComboBox-

and lines -TMemo and TRichEdit-  values).

One section for each form in the project.

Then fills a 'Misc' section with strings declared with 'const' or

'resourcestring' keywords (customized messages to inform your users or

properties dynamically renamed in your code).

Call 'fillCustomIni' from the onCreate event of the last created form

in your project.

At this time, ALL FORMS MUST BE IN THE 'AUTOMATICALLY

CREATED FORMS' list of your Project\Options\Forms tab .

Then just run form IDE (F9) and close your project, and it's done !}



procedure fillCustomIni;

var

   ini:TIniFile;

   i,j,k,l,m,n:integer;

   fiche,cmpt:TComponent;

   val,comp,nomComp:string;

begin



      // Delete the old file "custom.ini" if it exists

      // This code was added in Inilang2

          // Borra el anterior archivo "custom.ini" si existía

          // Este  código fue añadido en Inilang2

  if FileExists ( 'custom.ini' )

    then DeleteFile ( 'custom.ini' ) ;



   ini:=TIniFile.create(extractFileDir(application.exeName)+'\'+CU);



   {First search the properties that will be translated}



   for i := 0 to application.ComponentCount - 1 do

   begin

      fiche:=application.Components[i];

      nomComp:=fiche.Name;

       if HasProperty(fiche,'Caption') and

      not (nomComp=getProp(fiche,'Caption')) then

        ini.writeString(nomComp,nomComp+'.Caption',

                      getProp(fiche,'Caption'));

      for j:=0 to fiche.componentCount-1 do

      begin

         cmpt:=fiche.Components[j];

         nomComp:=cmpt.name;

         //use a 'out' prefixed name if you want the component won't appear

         //in the list (ie : outLabel6:TLabel) so as the list won't be too big

         if copy(nomComp,1,3)='out' then continue;

         if HasProperty(cmpt,'Caption') and

         not (nomComp=getProp(cmpt,'Caption')) and

         not (getProp(cmpt,'Caption')='-') and

         not (getProp(cmpt,'Caption')='') then

              ini.writeString(fiche.Name,fiche.Name+'.'+nomComp+'.Caption',

                            getProp(cmpt,'Caption'));

         if HasProperty(cmpt,'Hint') and (getProp(cmpt,'Hint')<>'')then

              ini.writeString(fiche.Name,fiche.Name+'.'+nomComp+'.Hint',

                            getProp(cmpt,'Hint'));



         if (cmpt is TCustomMemo) then

         for k:=0 to TCustomMemo(cmpt).Lines.count-1 do

         begin

            val:=TCustomMemo(cmpt).Lines[k];

            if val=nomComp then break;

            comp:=nomComp+'.Lines['+intToStr(k)+']';

            ini.writeString(fiche.Name,fiche.Name+'.'+comp,val);

         end;



         if (cmpt is TRadioGroup) then

         for l:= 0 to TRadioGroup(cmpt).Items.Count-1 do

         begin

            val:=TRadioGroup(cmpt).Items[l];

            comp:=nomComp+'.Items['+IntToStr(l)+']';

            ini.writeString(fiche.Name,fiche.Name+'.'+comp,val);

         end;



         if (cmpt is TComboBox) then

         for m:=0 to TComboBox(cmpt).Items.Count-1 do

         begin

            val:=TComboBox(cmpt).Items[m];

            comp:=nomComp+'.Items['+IntToStr(m)+']';

            ini.writeString(fiche.Name,fiche.Name+'.'+comp,val);

         end;



         if (cmpt is TDBGrid) then

         for n:=0 to TDBGrid(cmpt).Columns.Count-1 do

         begin

            val:=TDBGrid(cmpt).Columns.Items[n].Title.Caption;

            comp:=nomComp+'.Items['+IntToStr(n)+']';

            ini.writeString(fiche.Name,fiche.Name+'.'+comp,val);

         end;



         if (cmpt is TTabControl) then

         for n:=0 to TTabControl(cmpt).Tabs.Count-1 do

         begin

            val:=TTabControl(cmpt).Tabs[n];

            comp:=nomComp+'.Items['+IntToStr(n)+']';

            ini.writeString(fiche.Name,fiche.Name+'.'+comp,val);

         end;

      end;

   end;





   { In the code of "*.pas" files (after 'implementation'), if find a line that beggins

     with ( ' + # ), then add comments at the beggining of the line for avoid mistakes

     on the procedure 'searchStr(ini);' }       // This is the code added whith Inilang2

   { En el código de ficheros "*.pas" (después de 'implementation'), si alguna línea

     empieza por ( ' + # ), se añade comentarios al inicio de esa línea para evitar errores

     en el procedimiento 'searchStr(ini);' }    // Este es el código añadido con Inilang2

   Before_SearchStr ;





   {search for error or information messages stored as

   const or resourcestring - see below}

   searchStr(ini);



   ini.free;

end;





procedure Before_SearchStr ;

var

   rep:string;

   sr:TSearchRec;

   line :string;

   Archivo :TStringList;

   cc :integer;

   Actuar, cambios : boolean ;



begin



   rep:=extractFileDir(application.exeName)+'\';



  Archivo:=TStringList.create;



   if findFirst(rep+'*.pas', faAnyFile, sr)=0

  then

      repeat



      if (sr.name='IniLang2.pas')

        then findNext(sr);



      Archivo.Clear ;

      Archivo.LoadFromFile( sr.Name );



      Actuar := false ;

      Cambios := false ;

      for cc := 0 to Archivo.Count -1 do

      begin

               // It works only after 'implementation'

               // solo actúa después de 'implementation'

        if LowerCase( copy ( trim ( Archivo [ cc ] ), 1, 14 ) ) =  'implementation'

          then Actuar := true ;



        if Actuar

        then

          begin

            line := trim ( Archivo [ cc ] ) ;



              // if the first character is ( '  +  # ), then it add '{}' at the beginning

              // Si empieza por  ( '  +  # ),   entonces le añade '{}' al principio

            if   (pos('''',line)=1)

              or (pos('+',line)=1)

              or (pos('#',line)=1)

            then

              begin

             

                Cambios := true ;



                if copy ( Archivo [ cc ], 1, 2 ) = '  '

                then

                    Archivo [ cc ] := '{}'

{}                    + copy ( Archivo [ cc ], 3, length ( Archivo [ cc ] ) )

                else

                  Archivo [ cc ] := '{}' + Archivo [ cc ] ;



              end ;



          end ;



      end;



      if cambios

      then

        Archivo.SaveToFile( SR.Name );



      fileClose(sr.findHandle);



    until findNext(sr)<>0;



  findClose(sr);



end;







{Translates the form you choose in the language called in ini.

Only created forms are translated with fillProps. Call it in the onShow

event of your main form whith names of all automatically created forms

at the start-up of your application in the TC parameter.

In runtime, call it when you create dynamically a form. For example :

procedure TForm1.Button3Click(Sender: TObject);

begin

   if form2=nil then

      form2:=TForm2.create(application);

   if CL<>nil then fillProps([form2],CL);

   form2.show;

end;}

procedure fillProps(TC:array of TComponent;ini:TMemIniFile);

var

   i,i2,i3,i4,i5,tab:integer;

   comp,fiche:TComponent;

   s,s1,s2,s3,s4,s5:string;

begin

   with ini do

   for tab:=0 to high(TC) do

   begin

      fiche:=TC[tab];

      if fiche=nil then continue;

      s:=readString(fiche.name,fiche.name+'.Caption','');

      if s<>'' then TForm(fiche).caption:=s;

      for i:=0 to fiche.componentCount-1 do

      begin

         comp:=fiche.Components[i];



         s1:=readString(fiche.name,fiche.name+'.'+comp.name+'.Caption','');

         if s1<>'' then setProp(comp,'Caption',s1);



         s2:=readString(fiche.name,fiche.name+'.'+comp.name+'.Hint','');

         if s2<>'' then setProp(comp,'Hint',s2);



         if comp is TCustomMemo then

            for i2:=0 to TCustomMemo(comp).lines.count-1 do

            begin

               s3:=readString(fiche.name,

                  fiche.name+'.'+comp.name+'.lines['+intToStr(i2)+']','fsdef');

               //in TMemo or TRichEdit, you may have to leave some lines empty

               if s3<fsdef>0 then

         repeat

            delete(ligne,pos('''''',ligne),1);

         until pos('''''',ligne)=0;

      strList[x]:=ligne;

      temp:=strList.values[strList.names[x]];

      if pos('''+',temp)=0 then

         ini.writeString('Misc',strList.names[x],temp)

      else

      begin

         repeat

            y:=pos('''+',temp);

               repeat

                  delete(temp,y,1);

               until temp[y]='''';

            temp:=copy(temp,1,y-1)+sep+copy(temp,y+1,length(temp));

         until pos('''+',temp)=0;

         ini.writeString('Misc',strList.names[x],temp);

      end;

   end;



   strList.free;

end;



//Backs up the prop property value of the comp component

function getProp(comp:TComponent;prop:string):string;

var

   ppi:PPropInfo;

begin

   ppi:=getPropInfo(comp.classInfo,prop);

   if ppi<>nil then

      result:=getStrProp(comp,ppi)

   else

      result:='';

end;



//Assign the value value to prop property of comp component

procedure setProp(comp:TComponent;{const }prop,value:string);

var

   ppi:PPropInfo;

begin

   if value<>'' then

   begin

      ppi:=getPropInfo(comp.classInfo,prop);

      if ppi<>nil then setStrProp(comp,ppi,value);

   end;

end;



//True if prop property exists for comp component

function HasProperty(comp:TComponent;prop:string):boolean;

begin

   result:=(getPropInfo(comp.classInfo,prop)<>nil) and (comp.name<>'');

end;



//Converts a const string language name into a const integer language name

function str2IntID(s:string):integer;

begin

   result:=-1;

   if s=FR then result:=FRENCH       //2

   else if s=EN then result:=ENGLISH //0

   else if s=SP then result:=SPANISH //1

   else if s=CU then result:=CUSTOM; //3;

end;



//Converts a const integer language name into a const string language name

function intID2Str(ID:integer):string;

begin

   result:='';

   if ID=2 then result:=FR

   else if ID=0 then result:=EN

   else if ID=1 then result:=SP

   else if ID=3 then result:=CU;

end;



end.

Saludos,

Da error en esta línea:

Código Delphi [-]  if s30 then

No se si puede haber sido un problema con las etiquetas al poner el mensaje.
Tal vez sea mejor que subas el PAS como archivo adjunto.

AÑADO: Hay algun error más, como si faltase parte del código; Por ejemplo, no hay definición para: strList

Hola Neftali,

He subido el fichero .pas pruebalo ahora, deberia funcionar.

Saludos.

Perdon, perdon..... Ahora si esta subido el archivo. Es un archivo .zip pero realmente es un .rar (no me dejaba subirlo)

Saludos,

Ok. Gracias.
Ahora compila y funciona perfectamente.

Hola.

Bueno, me he llevado una alegría porque estoy preparando una actualización para IniLang2 que aparecerá en breve.

Por mi parte, una mejora es que leerá las líneas de los ListBox, pero hay algún detalle más... del que por ahora no quiero hablar.

Y...¡sorpresa!, alguien más ha trabajado en la misma dirección (y de forma complementaria), pues ¡genial!.

Bueno, aprovecho para pedir cosas...

Toni ¿Me autorizas a incluir tus modificaciones en la nueva versión?. Si quieres ser citado como colaborador, por favor, dime también los datos tuyos que quieres que aparezcan.

Neftali ¿Me autorizas a incluir la traducción que hiciste al catalán en el ejemplo que incluí aquí hace meses?. Si quieres ser citado como colaborador, por favor, dime también los datos tuyos que quieres que aparezcan.

Salu2.

Hola Rrf,

Por mi parte puedes darle el uso que quieras. Para eso lo he subido al foro. Las modificaciones que yo le he realizado son minimas pero creo que necesarias porque sino estaba muy limitado en los controles que traducia.

Tengo pendiente otro pequeño cambio interesante, pero siempre siguiendo la linea del 'proyecto' inicial. Que creo que es muy simple pero a la vez practico y util.

saludos.

Nota: Creo que si seria interesante ponerle un numero de subversion para no liarnos, si vamos añadiendo cosas.

Cita:

Empezado por Toni (Mensaje 378009)

Por mi parte puedes darle el uso que quieras.

Gracias. ¿Quieres aparecer como colaborador?. ¿Basta con Toni o quieres añadir algún dato tuyo más (nombre completo, correo electrónico, etc.)? Pondré lo que me facilites.

Cita:

Empezado por Toni (Mensaje 378009)

Las modificaciones que yo le he realizado son minimas

También lo son las mías, pero muchos pequeños cambios ocasionan a veces grandes mejoras...

Cita:

Empezado por Toni (Mensaje 378009)

Tengo pendiente otro pequeño cambio interesante, pero siempre siguiendo la linea del 'proyecto' inicial. Que creo que es muy simple pero a la vez practico y util.

Espero que lo hagas rápido.

Cita:

Empezado por Toni (Mensaje 378009)

Nota: Creo que si seria interesante ponerle un numero de subversion para no liarnos, si vamos añadiendo cosas.

Ya lo he hecho, estoy trabajando con la versión 0.9.02 (supongo que te refieres a eso ¿no?). Pero como pensaba que era el único que trabajaba en ello, pues no pensé que fuera importante...

Salu2.

Hola rrf, no, no hace falta que me pongas como colaborador. Pero si que me gustaria que cuando la tengas nos digas que novedades incluye.

Nota: si, me refereia a eso mismo lo de la version.

Hola de nuevo.

Por fin llegó la nueva versión de IniLang2. Será la 0.9.03 .

Incluye algunos cambios menores que no vale la pena mencionar y, como cambios interesantes está el que ahora también lee los textos de los DBGrid, los PageControl y los ListBox. Bueno, también se incluye un nuevo ejemplo con las versiones antes y después de aplicar IniLang2, y un par de textos con explicaciones de uso.

Pero ninguna de esas es la mejora más importante de esta versión (al menos desde mi punto de vista).

La mejora más importante es que se acompaña de Utili_IniLang2, que es una utilidad que facilita (mucho) la adaptación de una aplicación para que utilice IniLang2.

Casi todo lo que hay que hacer para usar IniLang2 lo hace Utili_IniLang2 y a base de unos pocos clic.

Ahora, en la mayoría de los casos, lo más complicado para adaptar una aplicación es asegurarse de que las constantes están bien declaradas con relación a como las interpreta IniLang2.

El resto se hace en unos pocos minutos (dependiendo del tamaño de la aplicación) y con bastante poco esfuerzo.

Aclaro que la versión no es definitiva en cuanto a la presentación. Por ej. hay textos que no están completamente traducidos, hay varios detalles que habría que modificar, etc.

Pero está completa en cuanto a lo que se espera que sea la versión pública, al menos en lo importante.

Lo he puesto a descargar en un lugar externo al foro para no reducir mucho la capacidad de subir archivos al foro por mi parte. ESTÁ EN ESTE ENLACE. Me da problemas para acceder a esa descarga.

Pongo aquí el enlace directamente, porque en la redacción del mensaje me daba problemas para acceder a la descarga:

www.inilang2.000a.biz/inilang2.zip

(Basta con copiar el enlace y pegarlo en un navegador de internet y se puede descargar sin problemas. Lo probé en Firefox)

Cualquier aportación, opinión, sugerencia, crítica, etc. será bienvenida.

Saludos.

Hola otra vez.

Les informo que ya está disponible la versión 0.9.04 de IniLang2.

Sobre la anterior versión, incluye el trabajar con más componentes y con las propiedades text de diferentes componentes.

También incluye mejoras y corrección de errores de la anterior versión.

Ahora se automatiza casi totalmente la adaptación de una aplicación a usar IniLang2, utilizando la utilidad Utili_IniLang2.

Además, se mejoraron los textos explicando su uso.

Por último, incluye un editor sencillo que facilita la edición de los archivos *.ini con los textos traducidos.

Todo ello está descargable desde LA PÁGINA DE INILANG2.

Creo que la facilidad que ofrece ahora, para hacer una aplicación multiidiomas, es muy grande. Aunque, como se suele decir, "el ojo del amo engorda el caballo...".

Saludos.

Hola Ramón.
Buen trabajo con este componente.

Si me permites algunos comentarios acerca de él, espero que los aceptes de buen grado.
El primer vistazo que le he echado a la aplicación da una buena impresión, pero al intentar extraer constantes de un proyecto me he devuelto que no encontraba nada. :(
Revisando un poco he visto que es porque:

* Las constantes de IMPLEMENTACIÓN no las acepta (esto le he visto luego en la documentación).
* Las constantes definidas con un espacio a los lados del = tampoco. Esta tal vez es un poco más grave ya que en mi caso siempre las coloco así (tal vez otras personas también). No he revisado a fondo la documentación, pero seguro que debe estar también.

Tal vez intentaría mejorar este reconocimiento.

En cuanto a la utilidad he detectado algunos pequeños detalles que se pueden corregir.
* En el editor de la última pestaña si se pudieran añadir columnas para editar más idiomas sería muy bueno.
* Al grabar con F5 no graba utilizando la extensión del cuadro de diálogo.
* En algun momento me crea un fichero CUSTOM.INI de idioma que no comprendo de dónde sale, aunque el código insertado en el formulario parece correcto:

Código Delphi [-]  // IniLang2 (deje aquí este comentario ) / (keep this comentary here)
  CL:=loadIni( 'Lang1.ini' );
  if CL<>nil then fillProps([Form1],CL);

.

Otra cosa a mejorar, es que si no se copian los ficheros INI junto con el EXE (por ejemplo, los que acompañan a la utilidad Utili_IniLang2.exe) en pantalla aparacen las constantes completas. Tal vez habría que retocarlo para que aparecieran sólo las originales (en caso de que falten los ficheros).

Otra mejora creo que sería la posibilidad de que los ficheros estuvieran en un directorio (no se si ahora se puede configurar fácil).

Tengo un par de proyectos pendientes; A medida que lo vaya utiliznado ya te iré comentando.

Gracias de nuevo y enhorabuena por el trabajo realizado.

Un saludo.

Hola Neftali.

Gracias por tus opiniones y sugerencias. Te contesto algunos detalles.

Cita:

Empezado por Neftali (Mensaje 379247)

* Las constantes de IMPLEMENTACIÓN no las acepta (esto le he visto luego en la documentación).
* Las constantes definidas con un espacio a los lados del = tampoco. Esta tal vez es un poco más grave ya que en mi caso siempre las coloco así (tal vez otras personas también). No he revisado a fondo la documentación, pero seguro que debe estar también.

Lo más trabajoso con IniLang2 es declarar las constantes de forma que IniLang2 las pueda leer bien. Si se hace correctamente, vale la pena el esfuerzo, pues después se puede adaptar una aplicación en unos pocos minutos usando la aplicación Utili_IniLang2.

Cita:

Empezado por Neftali (Mensaje 379247)

Otra cosa a mejorar, es que si no se copian los ficheros INI junto con el EXE (por ejemplo, los que acompañan a la utilidad Utili_IniLang2.exe) en pantalla aparacen las constantes completas. Tal vez habría que retocarlo para que aparecieran sólo las originales (en caso de que falten los ficheros).

Es necesario que los ficheros INI acompañen a la aplicación. Y eso ocurrirá también con nuestra aplicación si utiliza IniLang2. Bueno, se podría hacer de otra forma (y no lo veo difícil), pero aquí y ahora, las cosas están así.

Cuando no se incluyen los ficheros INI, la aplicación presenta el contenido de los caption, hint, etc. que tiene.

Cita:

* En algun momento me crea un fichero CUSTOM.INI de idioma que no comprendo de dónde sale, aunque el código insertado en el formulario parece correcto:

Ese fichero lo crea IniLang2 cuando lee, en la aplicación, las constantes, los caption, los hint, etc. y es el fichero desde el que se parte para hacer las traducciones. Se crea cuando se llama al procedimiento "fillCustomIni". En la aplicación Utili_IniLang2, el botón que permite ejecutar ese procedimiento está invisible, aunque está. Hay 2 posibilidades, que lo hicieras visible y lo ejecutaras o que yo me despistara y dejara en la carpeta de esa aplicación el fichero Custom.ini .

Cita:

* En el editor de la última pestaña si se pudieran añadir columnas para editar más idiomas sería muy bueno.

Me quedo con la idea, aunque la verdad es que no le veo la ventaja a primera vista. ¿Qué mejora tiene el que se vean 3 ó más idiomas simultaneamente?.

Cita:

* Al grabar con F5 no graba utilizando la extensión del cuadro de diálogo.

Lo probé y no entendí cual era el error que me comentas. De todos modos, ya tengo una nueva versión del editor que corrige un par de errores (aunque ninguno en esa opción) y añade la posibilidad de leer, desde el disco duro, el archivo INI de la columna derecha. Antes solo permitía leer el de la columna izquierda y rellenar el de la derecha y guardarlo; lo que hacía imposible dejar el trabajo de traducción a medias. Y ahora las teclas de función son otras (aunque no han cambiado mucho).

Cita:

Otra mejora creo que sería la posibilidad de que los ficheros estuvieran en un directorio (no se si ahora se puede configurar fácil).

No entiendo lo que me comentas aquí.

Cita:

Tengo un par de proyectos pendientes; A medida que lo vaya utiliznado ya te iré comentando.

Si lo vas a usar, solo comentarte que, en mi opinión, lo más importante es declarar las constantes de texto como las lee IniLang2. Si lo haces así, luego todo sale de maravilla.

Y también sugerirte que dediques un rato a leer los textos con las explicaciones y comentarios, no solo los de IniLang2, sino también los del autor original de IniLang. Es poco texto y creo que sería un esfuerzo bien invertido.

Neftali, gracias por tus aportaciones.

Saludos.

Cita:

Empezado por rrf (Mensaje 379297)

Esta sugerencia era debida a que para una aplicación que ya está hecha y que puede tener bastantes constantes definidas, sería cómodo que las reconociera con esos leves detalles al definirlas (mejorando el "parser").

Cita:

Empezado por rrf (Mensaje 379297)

Cuando no se incluyen los ficheros INI, la aplicación presenta el contenido de los caption, hint, etc. que tiene.

Una solución sencilla es que si el fichero INI correspondiente no se encuentra (por lo que sea) se realiza el mismo proceso, pero quedándose siempre con la primera cadena (original).

Cita:

Empezado por rrf (Mensaje 379297)

Hay 2 posibilidades, que lo hicieras visible y lo ejecutaras o que yo me despistara y dejara en la carpeta de esa aplicación el fichero Custom.ini .

Esto posíblemente ha sido un error mío trastendo, no hagas caso.

Cita:

Empezado por rrf (Mensaje 379297)

Me quedo con la idea, aunque la verdad es que no le veo la ventaja a primera vista. ¿Qué mejora tiene el que se vean 3 ó más idiomas simultaneamente?.

Facilidad a la hora de traducirlos todos a la vez; Facilidad de corrección,...
Simple comodidad, nada importante.

Un saludo.

Hola otra vez.

Con relación a lo comentado en el hilo por Neftali:

Cita:

estuve pensando como resolverlo y, la mejor opción que se me ocurrió fue el incorporar la posibilidad de hacer búsquedas y sustituciones de texto en el código del programa (nada nuevo, si se usa por ejemplo CNPack), pero con un añadido interesante.

Permite hacer búsquedas y sustituciones de texto solo en la parte del texto donde se declaran las constantes (antes y/o después de "implementation") y lo hace en todos los Unit de la aplicación; lo que creo que simplifica bastante el adaptar las constantes.

También incluye la posibilidad de hacer búsquedas y sustitución en todo el código de la aplicación.

Estas mejoras ya se pueden descargar desde http://www.inilang2.000a.biz/

Saludos.

Hola otra vez.

Les informo de que ya está disponible una nueva versión de IniLang2 en la página web de descarga.

Es la 0.9.08 y la Unit IniLang2 tiene solo 1 mejora.

Sin embargo, los programas que le acompañan (Utili_IniLang2 y Edit_ini) si que tienen muchas mejoras.

Utili_IniLang2 ahora diferencia, en los archivos *.pas, los que pertenecen a un Form a un Datamodule o son un Unit, se ha reestructurado la presentación de las opciones del programa para que sigan el proceso de traducir una aplicación, se ha incluido la opción de reemplazar texto en el código de una aplicación eligiendo en qué partes de la aplicación se actúa, se ha mejorado la "automatización" del proceso de insertar IniLang2 en una aplicación y más mejoras que no me vienen ahora a la mente.

Edit_ini ofrece bastantes mejoras con respecto a la anterior versión pública. Pero la más interesante (al menos para mí) es la de permitir hacer automaticamente la traducción de los textos de una aplicación (guardados a un fichero INI con IniLang2) usando Google Traslator. Se pudo hacer GRACIAS AL EJEMPLO OFRECIDO EN ESTE HILO.

Ahora es bastante más fácil y rápido adaptar una aplicación para que pueda utilizarse en diferentes idiomas.

Si lo pruebas, es muy recomendable que leas (aunque sea superficialmente) la documentación. Hay una guía que explica, paso por paso, lo que hay que ir haciendo y está adaptada al programa Utili_IniLang2. La documentación está en español y en inglés.

Todo lleva el código fuente incluido y se permite utilizarlo libremente, incluso para desarrollar programas comerciales.

Si usas Delphi 2006, 2007, 2009 ó XE y lo pruebas, te agradecería que me comentaras si te ha funcionado bien. Pues así podré informar si funciona correctamente en esas versiones de Delphi.

LA PÁGINA WEB DE DESCARGA ES ESTA.

Cualquier aportación, comentario y/o crítica será bienvenida.

Saludos.

Buena noticia.
Sólo comentarte que actualmente la página "está en OFF" y no es posible descargar el componente.

Un saludo.

Bueno, ya la página funciona y permite la descarga.

Aprovecho (ayer lo olvidé) para añadir que, siguiendo la sugerencia de Neftali, ahora IniLang2 es menos exigente al leer las constantes de texto en la aplicación.

Saludos.