12 respuestas en este tema

[Agustin Ortu]

Hola,

 

Me he creado un repositorio en GitHub en el que ire metiendo clases, funciones, procedimientos, ejemplos y esa clase de yerbas

 

Ojala pueda mantenerlo actualizado

 

Gusten tomar lo que quieran

 

Saludos

[egostar]

Hola

 

He creado un clone de tu Git, espero darme un poco de tiempo para darle un vistazo con mi delphi.

 

Saludos

Archivos adjuntos

•  GitHub.png   194,73KB   3 descargas

[genriquez]

Muchas gracias por compartir, de eso se trata nuestra comunidad. 

 

Trataré de darle un vistazo también.

 

Saludos.

[Nikolas]

gracias

[linch]

gracias

[linch]

Gracias

[Agustin Ortu]

Han pasado algunos dias, esto es lo ultimo que he ido agregando:

• Vcl.BlobImageLoader: En esta unidad tenemos un metodo que sirve para levantar de un campo blob (TBlobField) una imagen; los formatos soportados son varios: PNG, ICO, WMF, EMF, BMP, JPG, JPEG, TIFF, GIF.
  
  El procedimiento vuelca el resultado en un objeto TPicture
   
• RTL.DeviceInfo.Android: Ya habia posteado hace algun tiempo esto; simplemente agregue un par de clases wrappers para que el uso sea mas amigable, la funcionalidad es la misma. Se incluye un ejemplo listo para compilar y ejecutar
   
• RTL.Benchmark: Esta unidad define una clase que nos permite medir el tiempo de ejecucion de un proceso. El funcionamiento es sencillo, solamente recibe como parametro una referencia a un procedure y lo ejecuta una determinada cantidad de veces, previo a inicializar un TChronometer (que no es mas que un wrapper del viejo truco de QueryPerformanceCounter) y nos retorna un record con la cantidad de segundos y mseg que tardo
   
• Tambien agregué una implementacion de patron Observer para App Tethering. Hay algunos ejemplos por alli
   
• Valiendome de esa implementacion, nacieron:
  Vcl.TrayNotifications.Tethering: Basicamente se engancha a un TTrayIcon y envia una notificacion cuando se conecta/desconecta un dispositivo
  
  Vcl.AppTethering.DevicesListView: Al igual que el anterior, este se egancha a un TListView y lista todos los dispositivos a los que estamos conectados, con algun que otro dato y tambien para cada uno un boton "desconectar"
  
  Ambos cuentan con sus respectivos ejemplos
   
• Por ultimo algunas pequeñas unidades que quiza vayan creciendo con el tiempo, por ejemplo la RTL.DateTime, en donde implemento un TNullableDateTime (una fecha con valor nulo, vamos) o RTL.Firebird

Saludos!

[Wilson]

Gracias por compartir Agustín.

 

Un cordial saludo.

[ELKurgan]

Gracias por compartir, amigo

[Agustin Ortu]

Agrego consultas al padron de AFIP Argentina

[jmonfor]

Gracias por compartir. Se agradece muchísimo.
Un saludo

[Agustin Ortu]

He realizado una actualizacion en la biblioteca AFIP Public API, mas info acá

[Agustin Ortu]

Port de la biblioteca AFIP Public API para FreePascal, mas info acá