Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 28-11-2023
tiqui_loquito tiqui_loquito is offline
Miembro
 
Registrado: oct 2013
Posts: 56
Poder: 12
tiqui_loquito Va por buen camino
No me lee versión correcta de bpl en delphi 11

Hola a todos, estoy trabajando con Delphi 11 comunity, anteriormente estaba usando delphi 10.3 comunity

Yo he creado un bpl, cada vez que hago un ajuste realizo el cambio de versión.

Tengo un programa que me lee la versión de la bpl, este es el codigo


Código Delphi [-]
procedure TFrmPrincipal.mniSelecionandoRutaClick(Sender: TObject);
var
   FileName,  Dir,
   MsgUsr, MsgApp : String;
begin

  Dir := 'C:\';
  FileCtrl.SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP);


   FileName := Dir+ '\Servicios.bpl';
   if (FileName <> EmptyStr) and (FileExists(FileName)) then
   begin


     MsgApp := 'GetFileVersion';
     MsgUsr := Format('%s v%s',[ExtractFileName(FileName),GetFileVersion(FileName)]);
     MessageBox(Handle, PChar(MsgUsr), PChar(MsgApp), MB_OK + MB_ICONINFORMATION);
   end
   else
    Application.MessageBox('No se encuentra Servicios.bpl en la ruta',
      'GetFileVersion', MB_OK + MB_ICONSTOP);

end;


Resulta que si leo una bpl que compile con delphi10.3 me lee de manera correcta la versión, pero si leo una bpl que compile con delphi11 me carga la ultima versión que compile con delphi 10 (1.1.0.4)

No se si me haga entender

Tengo las versiones;

(compilada con delphi 10.3) 1.1.0.1 me la lee bn
(compilada con delphi 10.3)1.1.0.2 me la lee bn
(compilada con delphi 10.3)1.1.0.3 me la lee bn
(compilada con delphi 10.3)1.1.0.4 me la lee bn
(compilada con delphi 11)1.1.0.5 me la lee con versión 1.1.0.4
(compilada con delphi 11)1.1.0.6 me la lee con versión 1.1.0.4

Adjunto el programa que lee la versión y las bpls

https://drive.google.com/file/d/1gkE...usp=drive_link
Responder Con Cita
  #2  
Antiguo 28-11-2023
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.549
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
A mi algo así me funciona correctamente con verisones de EXE's y BPL's compilados con calquer versión de Dlephi.

Código Delphi [-]
var AMajor, AMinor, ABuild: Cardinal;
GetProductVersion(FileName, AMajor, AMinor, ABuild);
memo1.Lines.Text := Format('GetProductVersion %d.%d.%d',[AMajor, AMinor, ABuild]);

NOTA: El adjunto que has puesto solicita permisos para descarga. Deberías eliminar esa restricción.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.

Última edición por Neftali [Germán.Estévez] fecha: 28-11-2023 a las 14:12:53.
Responder Con Cita
  #3  
Antiguo 28-11-2023
tiqui_loquito tiqui_loquito is offline
Miembro
 
Registrado: oct 2013
Posts: 56
Poder: 12
tiqui_loquito Va por buen camino
Buenos días Neftali

Ya quite la restricción, se me paso ese detalle.

Voy a probar lo que me dices.

Muchas gracis
Responder Con Cita
  #4  
Antiguo 29-11-2023
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.549
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Cita:
Empezado por tiqui_loquito Ver Mensaje
(compilada con delphi 11)1.1.0.5 me la lee con versión 1.1.0.4

En el link que as puesto, esta versión (1.1.0.5) realmente tiene esta información de versión:
Cita:

1 VERSIONINFO
FILEVERSION 1,1,0,4
PRODUCTVERSION 1,0,0,0
FILEOS 0x4
FILETYPE 0x1
{
BLOCK "StringFileInfo"
{
BLOCK "040904E4"
{
VALUE "FileDescription", "Servicios"
VALUE "FileVersion", "1.1.0.4"
VALUE "ProgramID", "com.embarcadero.Servicios"
VALUE "ProductName", "Servicios"
VALUE "ProductVersion", "1.0.0.0"
}
}

BLOCK "VarFileInfo"
{
VALUE "Translation", 0x0409 0x04E4
}
}
(Extraída con ResourceHacker)

Por lo tanto la información que te está devolviendo el procedimiento es correcta.
La versión 1.1.0.6 no está incluída en el attachment.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #5  
Antiguo 29-11-2023
tiqui_loquito tiqui_loquito is offline
Miembro
 
Registrado: oct 2013
Posts: 56
Poder: 12
tiqui_loquito Va por buen camino
Hola Neftali

Te adjunto el video del proceso que hago del cambio de versión de la bpl y no se pq al consultar me sigue diciendo que es 1.1.0.4 si le he colocado 1.1.0.6

Te adjunto la bpl que compilo en el video

Quizás algo este haciendo mal pero no se que sea, pq es el proceso que siempre hago

https://drive.google.com/drive/folde...Oh?usp=sharing
Responder Con Cita
  #6  
Antiguo 29-11-2023
tiqui_loquito tiqui_loquito is offline
Miembro
 
Registrado: oct 2013
Posts: 56
Poder: 12
tiqui_loquito Va por buen camino
Me respondo, borre varios archivos que estaban compilados con la versión anterior de delphi, los depure y ya me sale la versión que es.

No cai en cuenta hasta que hice el video

Suele pasar que las cosas obvias se nos pasen desapercibidas.

Muchas gracias Neftali por siempre tomarte el tiempo de leer y colaborarnos

Un abrazo desde Colombia
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Actualizar a Delphi XE desde cualquier versión de Delphi (hasta fin de mes) rrf Varios 0 11-03-2011 18:12:05
OllyDBG Version 2.0 - Pre-alpha code, Nueva versión de este increible depurador Black_Ocean Noticias 1 16-04-2008 12:51:47
Cual es la forma correcta de llamar y ejecutar un ProcAlmacenado en IB6 y Delphi 7??? Saltamontes Firebird e Interbase 5 11-07-2007 18:05:19
como puedo hacer para cambiar un archivo de excel con versión 2.1 a versión 8.0 RONPABLO Servers 4 23-01-2006 07:02:38
En las Demos de Delphi 7, DBExpress... Estructura correcta? Oxa78 Conexión con bases de datos 2 18-11-2004 18:30:42


La franja horaria es GMT +2. Ahora son las 00:56:29.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi