Hola, navegando por la web, he encontrado un ejemplo de programación realizado magistralmente, se llama

Magenta Systems WMI and SMART Component v5.1

Su página web: http://www.magsys.co.uk

Lo podéis bajar aquí: http://www.magsys.co.uk/download/software/magwmi51.zip

Consulta todas estas funciones, con sólo una función.

Win32_OperatingSystem
Win32_Keyboard
Win32_AutochkSetting
Win32_DiskDrive
Win32_DiskDrivePhysicalMedia
Win32_PhysicalMedia
Win32_LogicalDisk
Win32_MappedLogicalDisk
Win32_TapeDrive
Win32_BaseBoard
Win32_BIOS
Win32_Bus
Win32_DeviceSettings
Win32_IDEController
Win32_MemoryDevice
Win32_PhysicalMemory
Win32_PNPDevice
Win32_PortConnector
Win32_Processor
Win32_SerialPort
Win32_SerialPortConfiguration
Win32_SerialPortSetting
Win32_SoundDevice
Win32_SystemBIOS
Win32_USBController
Win32_USBControllerDevice
Win32_NetworkAdapter
Win32_NetworkAdapterConfiguration
Win32_NetworkAdapterSetting
Win32_Printer
Win32_PrinterConfiguration
Win32_POTSModem
Win32_POTSModemToSerialPort
Win32_DesktopMonitor
Win32_DisplayConfiguration
Win32_VideoController
Win32_VideoSettings
Win32_ActiveRoute
Win32_IP4PersistedRouteTable
Win32_IP4RouteTable
Win32_NetworkClient
Win32_NetworkConnection
Win32_BootConfiguration
Win32_ComputerSystem
Win32_MotherboardDevice
Win32_SystemUsers
Win32_SystemTimeZone
Win32_SystemSetting
Win32_Account
Win32_UserAccount
Win32_SystemAccount
Win32_Group
Win32_LogonSession
Win32_ComputerSystemWindowsProductActivation
Win32_WindowsProductActivation
Win32_FontIntoAction
Win32_ScheduledJob
Win32_Process
Win32_ServiceControl
Win32_Product
Win32_TemperatureProbe
Win32_StartupCommand
Win32_BaseService
Win32_Service
Win32_Desktop
Win32_Environment
Win32_LogicalProgramGroup
Win32_ProgramGroup
Win32_PerfFormattedData_RemoteAccess_RASTotal
Win32_PerfFormattedData_RemoteAccess_RASPort
Win32_PerfRawData_RemoteAccess_RASPort

Tiene un ejemplo clarísimo que os puede sacar de dudas, y se puede usar.

Hola, publico el único algoritmo que me ha funcionado en Delphi para encontrar los servidores activos de SQL disponible.

También listar servidores de sql server desde TSQL

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, ActiveX, ComObj, AdoInt, OleDB, StdCtrls;

procedure ListAvailableSQLServers(Names : TStrings);
var
  RSCon                    : ADORecordsetConstruction;
  Rowset                   : IRowset;
  SourcesRowset            : ISourcesRowset;
  SourcesRecordset         : _Recordset;
  SourcesName, SourcesType : TField;
begin
  OleCheck(CoCreateInstance(CLASS_Recordset, nil, CLSCTX_INPROC_SERVER or
                            CLSCTX_LOCAL_SERVER, IUnknown, SourcesRecordset) );
  RSCon := SourcesRecordset as ADORecordsetConstruction;

  SourcesRowset := CreateComObject(ProgIDToClassID('SQLOLEDB Enumerator'))
                   as ISourcesRowset;
  OleCheck(SourcesRowset.GetSourcesRowset(nil, IRowset, 0, nil, IUnknown(Rowset)));
  RSCon.Rowset := RowSet;
  with TADODataSet.Create(nil) do
  try
    Recordset := SourcesRecordset;
    SourcesName := FieldByName('SOURCES_NAME'); { do not localize }
    SourcesType := FieldByName('SOURCES_TYPE'); { do not localize }
    Names.BeginUpdate;
      try
        while not EOF do
        begin
          if (  (SourcesType.AsInteger = DBSOURCETYPE_DATASOURCE) and
                (SourcesName.AsString <> '')
             )
          then
            Names.Add(SourcesName.AsString);
          Next;
        end;
      finally
        Names.EndUpdate;
     end;
  finally
    Free;
  end;
end;

//Si queréis un ejemplo completo, con servidores sql server y bases de datos, descargadlo aquí

Hola blogueros,

Este es un post muy ambicioso para publicar mis favoritos sobre el lenguaje de programación Delphi, en el cual programo día a día y acumulo muchísimos favoritos, tengo cientos, a continuación los dejo desordenados, y los iré comentando poco a poco, si me ayudáis, podremos construir entre todos unos favoritos elegantes y comentados de qué sirve cada uno, así será bueno para que los que busquen una página, no tengan que andar “mendigando” en GUGLE.

Aquellos que estén en inglés, les pondremos EN al final, los de español ES. Debajo pondré una breve descripción y también unas palabras clave para que podamos localizar más rápido.

Se me ocurre dividir los links por:

TRUCO — Son pequeños algoritmos que nos sacan de un apuro muy concreto

APUNTE — Tutoriales aclaratorios sobre un TEMA Delphi o un Componente Delphi

COMPONENTE — Páginas dedicadas de fabricantes de Componentes famosos que consideramos muy útiles en Delphi.

BBDD_ — Bases de Datos, Páginas dedicadas a bases de datos, con independencia del Lenguaje Delphi, serán un anexo muy querido de nuestros Delphi’s Favorites.

BBDD_ADO — Bases de Datos basadas en ADO. Si hubiera suficientes links, también podríamos incluir BDE en otra categoría

Ask the Delphi Pros Discussion Forum

3.3 Creación de bases de datos y tablas en Paradox

ADO.NET and Paradox

Apendiendo OOP con Delphi

Trucos, codigo Componentes (Alemán)

Calling Dr. Marteens – Artículos

Trucomania, Trucos Delphi en español – Delphi tips

Trucomania, Trucos Delphi en español – Delphi tips

Foros de Trucomania, trucos para Delphi, Tips for Delphi

Curso de Creación de Componentes en Delphi

Components Vcl 1

Componentes visuales en la VCL de Delphi – La web de JM

Developer Express – Making RAD a Reality

Dream Company – Delphi components, C++Builder components and Kylix components and source code for developers.

Delphi by Design – One-Step ActiveX

Curso de Delphi Básico en Español

A Beginner’s Guide to Delphi Database Programming

Delphi Basics RTL by starting letter E

Curso Programación con ADO Express-DataSnap en Delphi 7 – Intuitive Sight

Tutorial Delphi

Cursillo de Delphi

Capítulo 1. La aplicación – El archivo de Proyecto de Delphi

ADO Tutorial

ADO y DELPHI

DelphiFAQ

Cursos Programación – arroba más más

Hola, estoy haciendo un nuevo proyecto en Delphi para gestión de alquileres, necesitaba una librería que pasándole dos fechas, me dijera en letra el resultado de las dos fechas, es decir, pasando 10/09/07 y 11/09/07 me devolviera: UN DÍA. Podéis sacarlo en días, en semanas, en años, redondeando o no al alza. También el número de días, días del último mes, o en números. Cualquier recomendación la añadiré a la librería. Incluye un ejemplo de demostración.

Lo podéis bajar desde aquí

Doy las gracias a los que escribieron la librería fundamentals pues me ha sido de gran ayuda, está puesto en un tag anterior pero no lo encuentra el buscador, así que lo vuelvo a postear aquí.

DHola, en el proceso de escribir mi programa, del que hablaré según vaya avanzando, me gustaría compartir las traducciones que estoy haciendo para Delphi 7 de los mensajes de error.

Aquí os dejo la traducción. Este fichero se usa sustituyendo el const.pas original del delphi (haciendo siempre una copia del original), o cambiando el orden del path de búsqueda de inits de Delphi.

También las ADOCONST.pas aquí

Una sorpresa, españoliza tu Delphi con estas traducciones completas

Página usada para traducir: Diccionario traductor completo en varios idiomas

Hola!

He encontrado un componente que ahorra muchísimos dolores de cabeza, muchísimas horas enfrente del ordenador escribiendo código que ya está hecho por gente muy altruísta que ha querido compartir sus horas de trabajo con nosotros.

Tiene funciones de cálculo, extracción de fechas, String, Hash, MD5, SHA1.

http://sourceforge.net/projects/fundementals/

Dejo las cabeceras de las funciones de fecha para que veáis un resumen.

procedure DecodeDateTime(const DateTime: TDateTime;
var Year, Month, Day, Hour, Minute, Second, Millisecond: Word);
{$ENDIF}
function Century(const D: TDateTime): Word;
function Year(const D: TDateTime): Word;
function Month(const D: TDateTime): Word;
function Day(const D: TDateTime): Word;
function Hour(const D: TDateTime): Word;
function Minute(const D: TDateTime): Word;
function Second(const D: TDateTime): Word;
function Millisecond(const D: TDateTime): Word;

const
OneDay = 1.0;
OneWeek = OneDay * 7;
OneHour = OneDay / 24.0;
OneMinute = OneHour / 60.0;
OneSecond = OneMinute / 60.0;
OneMillisecond = OneSecond / 1000.0;

{ }
{ Encoding }
{ }
{$IFNDEF DELPHI6_UP}
function EncodeDateTime(const Year, Month, Day, Hour, Minute, Second, Millisecond: Word): TDateTime;
{$ENDIF}
procedure SetYear(var D: TDateTime; const Year: Word);
procedure SetMonth(var D: TDateTime; const Month: Word);
procedure SetDay(var D: TDateTime; const Day: Word);
procedure SetHour(var D: TDateTime; const Hour: Word);
procedure SetMinute(var D: TDateTime; const Minute: Word);
procedure SetSecond(var D: TDateTime; const Second: Word);
procedure SetMillisecond(var D: TDateTime; const Milliseconds: Word);

{ }
{ Comparison }
{ }
function IsEqual(const D1, D2: TDateTime): Boolean; overload;
function IsEqual(const D1: TDateTime; const Ye, Mo, Da: Word): Boolean; overload;
function IsEqual(const D1: TDateTime; const Ho, Mi, Se, ms: Word): Boolean; overload;
function IsAM(const D: TDateTime): Boolean;
function IsPM(const D: TDateTime): Boolean;
function IsMidnight(const D: TDateTime): Boolean;
function IsNoon(const D: TDateTime): Boolean;
function IsSunday(const D: TDateTime): Boolean;
function IsMonday(const D: TDateTime): Boolean;
function IsTuesday(const D: TDateTime): Boolean;
function IsWedneday(const D: TDateTime): Boolean;
function IsThursday(const D: TDateTime): Boolean;
function IsFriday(const D: TDateTime): Boolean;
function IsSaturday(const D: TDateTime): Boolean;
function IsWeekend(const D: TDateTime): Boolean;

{ }
{ Relative date/times }
{ }
function Noon(const D: TDateTime): TDateTime;
function Midnight(const D: TDateTime): TDateTime;
function FirstDayOfMonth(const D: TDateTime): TDateTime;
function LastDayOfMonth(const D: TDateTime): TDateTime;
function NextWorkday(const D: TDateTime): TDateTime;
function PreviousWorkday(const D: TDateTime): TDateTime;
function FirstDayOfYear(const D: TDateTime): TDateTime;
function LastDayOfYear(const D: TDateTime): TDateTime;
function EasterSunday(const Year: Word): TDateTime;
function GoodFriday(const Year: Word): TDateTime;

function AddMilliseconds(const D: TDateTime; const N: Int64): TDateTime;
function AddSeconds(const D: TDateTime; const N: Int64): TDateTime;
function AddMinutes(const D: TDateTime; const N: Integer): TDateTime;
function AddHours(const D: TDateTime; const N: Integer): TDateTime;
function AddDays(const D: TDateTime; const N: Integer): TDateTime;
function AddWeeks(const D: TDateTime; const N: Integer): TDateTime;
function AddMonths(const D: TDateTime; const N: Integer): TDateTime;
function AddYears(const D: TDateTime; const N: Integer): TDateTime;

{ }
{ Counting }
{ }
{ DayOfYear and WeekNumber start at 1. }
{ WeekNumber is not the ISO week number but the week number where week one }
{ starts at Jan 1. }
{ For reference: ISO standard 8601:1988 – (European Standard EN 28601). }
{ “It states that a week is identified by its number in a given year. }
{ A week begins with a Monday (day 1) and ends with a Sunday (day 7). }
{ The first week of a year is the one which includes the first Thursday }
{ (day 4), or equivalently the one which includes January 4. }
{ In other words, the first week of a new year is the week that has the }
{ majority of its days in the new year.” }
{ ISOFirstWeekOfYear returns the start date (Monday) of the first ISO week }
{ of a year (may be in the previous year). }
{ ISOWeekNumber returns the ISO Week number and the year to which the week }
{ number applies. }
{ }
function DayOfYear(const Ye, Mo, Da: Word): Integer; overload;
function DayOfYear(const D: TDateTime): Integer; overload;
function DaysInMonth(const Ye, Mo: Word): Integer; overload;
function DaysInMonth(const D: TDateTime): Integer; overload;
function DaysInYear(const Ye: Word): Integer;
function DaysInYearDate(const D: TDateTime): Integer;
function WeekNumber(const D: TDateTime): Integer;
function ISOFirstWeekOfYear(const Ye: Word): TDateTime;
procedure ISOWeekNumber(const D: TDateTime; var WeekNumber, WeekYear: Word);
function DateTimeAsISO8601String(const D: TDateTime): String;
function ISO8601StringAsDateTime(const D: String): TDateTime;

{ }
{ Difference }
{ Returns difference between two dates (D2 – D1). }
{ }
function DiffMilliseconds(const D1, D2: TDateTime): Int64;
function DiffSeconds(const D1, D2: TDateTime): Integer;
function DiffMinutes(const D1, D2: TDateTime): Integer;
function DiffHours(const D1, D2: TDateTime): Integer;
function DiffDays(const D1, D2: TDateTime): Integer;
function DiffWeeks(const D1, D2: TDateTime): Integer;
function DiffMonths(const D1, D2: TDateTime): Integer;
function DiffYears(const D1, D2: TDateTime): Integer;

{ }
{ Time Zone }
{ Uses systems regional settings to convert between local and GMT time. }
{ }
function GMTTimeToLocalTime(const D: TDateTime): TDateTime;
function LocalTimeToGMTTime(const D: TDateTime): TDateTime;
function NowAsGMTTime: TDateTime;

{ }
{ Conversions }
{ }
{ ANSI Integer is an integer in the format YYYYDDD (where DDD = day number) }
{ ISO-8601 Integer date is an integer in the format YYYYMMDD. }
{ TropicalYear is the time for one orbit of the earth around the sun. }
{ TwoDigitYearToYear returns the full year number given a two digit year. }
{ SynodicMonth is the time between two full moons. }
{ }
function DateTimeToANSI(const D: TDateTime): Integer;
function ANSIToDateTime(const Julian: Integer): TDateTime;
function DateTimeToISOInteger(const D: TDateTime): Integer;
function DateTimeToISO(const D: TDateTime): String;
function ISOIntegerToDateTime(const ISOInteger: Integer): TDateTime;
function TwoDigitRadix2000YearToYear(const Y: Integer): Integer;
function DateTimeAsElapsedTime(const D: TDateTime;
const IncludeMilliseconds: Boolean = False): String;

Hola, os presento un fichero muy poco traducido en Delphi, de hecho, no he encontrado nada en la web, por eso, lo he decidido traducir para todos vosotros.

Traducción Sysconst.pas para Delphi 7, D7. Bajarlo aquí

Os presento dos de los mejores boletines de noticias, trucos y novedades en Delphi. Sí, estoy escribiendo demasiado sobre Delphi y no tiene nada que ver con Ubuntito. Pero por cuestiones de trabajo, no dispongo de demasiado tiempo.

Publicación quincenal, llamado Boletín Pascal, en español.

http://www.latiumsoftware.com/es/pascal/index.php

Este otro está en inglés, y soportado por Marco Cantú, una de las figuras más queridas en Delphi.

http://delphi.newswhat.com

http://betterado.hit.bg/TBetterADODataSet_Interface.htm

Aquí tenéis un componente imprescindible para una programación Delphi con ADO. Tiene una cosa muy importante, que es el Resync_Command. Normalmente, el ADO, cuando hace una actualización o una grabación, hace un REOPEN de la tabla. Con este componente, sólo refresca la fila en edición. Usando toda la potencia de ADO y de Delphi y optimizando los tiempos de respuesta.

http://betterado.hit.bg

Hola, en el trabajo hemos tenido un serio problema.

Un señor tiene una base de datos en COBOL y en la BBDD que trabajamos nosotros es Paradox.

Al final, encontré una página que tenía todos los vendors de Odbc. El Proveedor de odbc de COBOL se llama liant. Por cierto, es carísimo y al final nos tocó parsear.

aquí os dejo un link con todos los vendedores de odbc. Creo que puede ser útil en situaciones desesperadas.

Estuve buscando un grid con alta funcionalidad para Delphi7, también lo hay para la vers 2005. Este grid tiene ordenación múltiple de columnas, campos memo y foto visibles con un clic y muchas cosas más. Echadle un vistazo y compradlo. Vale 39 €.

En la página web del autor, podéis comprarlo. Merece la pena.

http://www.rosinsky.cz/delphi.html

Aunque lo más profesional  (y lo que ocupa más memoria) sigue siendo Developer Express

Mirar esta página (inglés) y ésta (portugués) para instalar correctamente kylix en Ubuntu, pues hay un par de cosas como esto:

Cosa1: Create a symbolic link from /usr/x11R6/lib/libx11.so.6.2 to /usr/x11R6/lib/libx11.so

Cosa 2: In the startdelphi script, add this: LANG=en_US.ISO8859-1

Hola, recomiendo una página muy interesante para programadores Delphi.

http://www.delphibasics.co.uk/

DelphiBasics está en inglés, y la recomiendo para principiantes, los que necesitan una ampliación sobre las funciones básicas de Delphi.

Hace un tiempo se me ocurrió hacer un programita que capturara todas las habitaciones del sou de la Universidad de Salamanca. Lo he retomado y todavía está un poquillo a medias, el parseador funcionaba correctamente. Funciona en Windows. Me gustaría que si alguien tiene tiempo y ganas le eche un vistazo. Eso sí, no permito la comercialización de un producto basado en este código (Bajo licencia GNU). Gracias. Aquí el código. Está en Delphi 7.