Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Convertir de Delphi 5 a versiones modernas (https://www.clubdelphi.com/foros/showthread.php?t=96349)

ciudad54 04-09-2023 16:47:10

Convertir de Delphi 5 a versiones modernas
 
1 Archivos Adjunto(s)
Hola tengo un pequeño proyecto que me fue asignado en mi trabajo pero no encuentro los componentes para versiones actuales de Delphi.
Me podrían ayudar con algunas alternativas. Les dejo el proyecto acá.

egostar 04-09-2023 18:08:17

Los componentes que requieres para hacer tu migración si existen

https://www.devexpress.com
https://www.woll2woll.com/1stclass
https://www.woll2woll.com/infopower

Solo tienes que comprarlos.

Saludos

ciudad54 04-09-2023 18:44:46

Cita:

Empezado por egostar (Mensaje 552428)
Los componentes que requieres para hacer tu migración si existen

https://www.devexpress.com
https://www.woll2woll.com/1stclass
https://www.woll2woll.com/infopower

Solo tienes que comprarlos.

Saludos

No me carga, yo tengo una versión TRIAL de los componentes y no me carga, me dice que no existe tal componente. La idea es usar los componentes normales, esos por lo que veo solo están utilizados para la parte visual.

egostar 04-09-2023 19:36:35

Cita:

Empezado por ciudad54 (Mensaje 552429)
No me carga, yo tengo una versión TRIAL de los componentes y no me carga, me dice que no existe tal componente. La idea es usar los componentes normales, esos por lo que veo solo están utilizados para la parte visual.

Algunos componentes como los Botones y Labels son muy simples, solo tienes que editar el dfm y el pas y sustituirlos por el componente nativo, además debes de eiminar de los dfm aquellas propiedades propias de los componentes de terceros.

TclLabel --> TLabel

Eliminar de los dfm las propiedades que no existan, por ejemplo:

TextOptions.Alignment = taLeftJustify
TextOptions.ExtrudeEffects.Depth = 3
TextOptions.ExtrudeEffects.Enabled = True
TextOptions.ExtrudeEffects.FarColor = clBlue
TextOptions.VAlignment = vaTop
TextOptions.OutlineColor = clRed
TextOptions.Style = fclsRaised
TextOptions.VAlignment = vaTop

Te paso un ejemplo de una unidad que he convertido, toca ver que hace cada uno de los componentes y tratar de imitar el comportamiento.

https://www.delphienmovimiento.mx/wp...9/ufacerca.zip

Saludos

pgranados 04-09-2023 20:56:09

Yo tengo licencia de los componentes de Woll2Woll en Delphi 10.4 y sin problema, tuve errores por otros componentes que no tengo pero con los de Woll2Woll no (1st class)

ciudad54 04-09-2023 21:15:34

lo tengo casi listo pero me presenta estos errores ahora.

[dcc32 Error] ufmenu.pas(11): E2004 Identifier redeclared: 'Winapi.Windows'
[dcc32 Error] ufmenu.pas(12): E2004 Identifier redeclared: 'Winapi.Messages'
[dcc32 Error] ufmenu.pas(12): E2004 Identifier redeclared: 'System.SysUtils'
[dcc32 Error] ufmenu.pas(12): E2004 Identifier redeclared: 'System.Classes'
[dcc32 Error] ufmenu.pas(12): E2004 Identifier redeclared: 'Vcl.Graphics'
[dcc32 Error] ufmenu.pas(13): E2004 Identifier redeclared: 'Vcl.Controls'
[dcc32 Error] ufmenu.pas(13): E2004 Identifier redeclared: 'Vcl.Forms'
[dcc32 Error] ufmenu.pas(13): E2004 Identifier redeclared: 'Vcl.Dialogs'
[dcc32 Warning] dxCore.pas(241): W1050 WideChar reduced to byte char in set expressions. Consider using 'CharInSet' function in 'SysUtils' unit.
[dcc32 Warning] dxCore.pas(261): W1000 Symbol 'UTF8Decode' is deprecated: 'Use UTF8ToWideString or UTF8ToString'
[dcc32 Warning] dxCore.pas(294): W1058 Implicit string cast with potential data loss from 'string' to 'AnsiString'
[dcc32 Warning] dxCore.pas(299): W1057 Implicit string cast from 'AnsiString' to 'string'
[dcc32 Warning] dxCore.pas(318): W1058 Implicit string cast with potential data loss from 'string' to 'AnsiString'
[dcc32 Warning] dxCore.pas(323): W1000 Symbol 'UTF8Decode' is deprecated: 'Use UTF8ToWideString or UTF8ToString'
[dcc32 Warning] dxCore.pas(338): W1057 Implicit string cast from 'AnsiString' to 'string'
[dcc32 Warning] dxCore.pas(343): W1058 Implicit string cast with potential data loss from 'string' to 'AnsiString'
[dcc32 Warning] dxCore.pas(368): W1057 Implicit string cast from 'ShortString' to 'string'
[dcc32 Warning] dxCore.pas(373): W1058 Implicit string cast with potential data loss from 'string' to 'ShortString'
[dcc32 Warning] dxCore.pas(428): W1057 Implicit string cast from 'AnsiString' to 'string'
[dcc32 Fatal Error] uflogin.pas(6): F2063 Could not compile used unit 'dxCore.pas'
Failed
Elapsed time: 00:00:00.8

egostar 04-09-2023 21:40:17

Código Delphi [-]
[dcc32 Error] ufmenu.pas(11): E2004 Identifier redeclared: 'Winapi.Windows'
[dcc32 Error] ufmenu.pas(12): E2004 Identifier redeclared: 'Winapi.Messages'
[dcc32 Error] ufmenu.pas(12): E2004 Identifier redeclared: 'System.SysUtils'
[dcc32 Error] ufmenu.pas(12): E2004 Identifier redeclared: 'System.Classes'
[dcc32 Error] ufmenu.pas(12): E2004 Identifier redeclared: 'Vcl.Graphics'
[dcc32 Error] ufmenu.pas(13): E2004 Identifier redeclared: 'Vcl.Controls'
[dcc32 Error] ufmenu.pas(13): E2004 Identifier redeclared: 'Vcl.Forms'
[dcc32 Error] ufmenu.pas(13): E2004 Identifier redeclared: 'Vcl.Dialogs'

Quita todas esas unidades duplicadas, con eso ya te compilará.

Código Delphi [-]
[dcc32 Warning] dxCore.pas(241): W1050 WideChar reduced to byte char in set expressions. Consider using 'CharInSet' function in 'SysUtils' unit.
[dcc32 Warning] dxCore.pas(261): W1000 Symbol 'UTF8Decode' is deprecated: 'Use UTF8ToWideString or UTF8ToString'
[dcc32 Warning] dxCore.pas(294): W1058 Implicit string cast with potential data loss from 'string' to 'AnsiString'
[dcc32 Warning] dxCore.pas(299): W1057 Implicit string cast from 'AnsiString' to 'string'
[dcc32 Warning] dxCore.pas(318): W1058 Implicit string cast with potential data loss from 'string' to 'AnsiString'
[dcc32 Warning] dxCore.pas(323): W1000 Symbol 'UTF8Decode' is deprecated: 'Use UTF8ToWideString or UTF8ToString'
[dcc32 Warning] dxCore.pas(338): W1057 Implicit string cast from 'AnsiString' to 'string'
[dcc32 Warning] dxCore.pas(343): W1058 Implicit string cast with potential data loss from 'string' to 'AnsiString'
[dcc32 Warning] dxCore.pas(368): W1057 Implicit string cast from 'ShortString' to 'string'
[dcc32 Warning] dxCore.pas(373): W1058 Implicit string cast with potential data loss from 'string' to 'ShortString'
[dcc32 Warning] dxCore.pas(428): W1057 Implicit string cast from 'AnsiString' to 'string'

Referente a estos errores, estás utilizando una versión antigua de la unidad dxCore.pas, aunque no deberían detener la compilación sería bueno que actualizaras esos componentes también.

Saludos

ciudad54 04-09-2023 21:56:45

Tendrías el dxCore.pas actual que me compartieras?
Porque como te comente no tengo ninguno de esos componentes solo tengo el proyecto y estoy intentando revivirlo.

ciudad54 05-09-2023 02:16:34

Ya pude compilarlo y que funcione. Mil gracias por los consejos y la ayuda. Me queda mucho camino por recorrer aun.

egostar 05-09-2023 17:16:23

Cita:

Empezado por ciudad54 (Mensaje 552435)
Ya pude compilarlo y que funcione. Mil gracias por los consejos y la ayuda. Me queda mucho camino por recorrer aun.

Genial ||-||

Saludos


La franja horaria es GMT +2. Ahora son las 23:02:23.

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