Execute News

Des nouvelles fraîches de http://www.execute.frRSS « Avant | Après » | [3DEngine] [ARC] [Astuces] [Banque] [BugList] [Compression] [Delphi] [Expérience] [Features] [Firemonkey] [Games] [GDI+] [Github] [Hardware] [Kylix] [LF2016] [MAPI] [NF525] [OpenGL] [PHP] [Samsung] [Société]

Portage de Windows vers Linux et les dates

Publié le 15/02/2021 [Delphi] [Expérience]
après mes problèmes d'accents, voici les problèmes de dates :)

si mes serveurs Windows sont généralement en français, ce n'est pas le cas du serveur Linux sur lequel j'ai déployé ma solution.

les fonctions de conversion Date/String posent alors des problèmes que l'on solutionne assez facilement finalement !

{$IFDEF LINUX}
  FormatSettings := TFormatSettings.Create('fr-FR');
{$ENDIF}


bon ok, ça serait plus propre de gérer les dates sans dépendre de FormatSettings...mais c'est une solution rapide au problème.

Portage de Windows vers Linux et les accents

Publié le 22/01/2021 [Delphi] [Expérience]
Je le note ici pour m'en souvenir.

j'ai porté une application Windows sous Linux (toujours sous Delphi) et je rencontre des problèmes d'accents sur les AnsiString...cela vient de ce que la page de code par défaut de Linux n'est pas la même que celle de Windows (pour un Windows français en tout cas). Pour assurer une meilleur comptabilité, il est possible de fixer la page de code par défaut.

{$IFDEF LINUX}
  SetMultiByteConversionCodePage(1252); // https://fr.wikipedia.org/wiki/Windows-1252
{$ENDIF}


Voilà !

Utilisation des Records Managés sous Delphi Sydney

Publié le 11/08/2020 [Delphi]
Une des grosses nouveauté de Sydney au niveau du compilateur est le support des Records Managés.

Cette fonctionnalité est assez intéressante dans son fonctionnement, elle permet d'appeler une fonction automatiquement pour initialiser un Record et une autre pour faire le ménage.

Prenons un exemple simple.
procedure TForm1.Button1Click(Sender: TObject);
var
  SL: TStringList;
begin
  SL := TStringList.Create;
  try
    SL.Add('Hello');
    SL.Add('World');
    ShowMessage(SL.Text);
  finally
    SL.Free;
  end;
end;

dans cet exemple classique (et bidon) j'instancie un StringList qui est détruit à la fin de la procédure...mais voici comment éviter le try/finally/end
type
  TStringListRecord = record
    SL: TStringList;
    class operator Initialize(out R: TStringListRecord);
    class operator Finalize(var R: TStringListRecord);
  end;

class operator TStringListRecord.Initialize(out R: TStringListRecord);
begin
  R.SL := TStringList.Create;
end;

class operator TStringListRecord.Finalize(var R: TStringListRecord);
begin
  R.SL.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  R: TStringListRecord;
begin
  R.SL.Add('Hello');
  R.SL.Add('World');
  ShowMessage(R.SL.Text);
end;

et voilà ! grâce aux deux opérateurs déclarés, TStringListRecord instancie automatiquement un TStringList qui est libéré en fin de procédure car la variable R est locale.

Alors évidemment ça n'a d'intérêt que si vous utiliser (TStringListRecord) à différents endroits, mais ce n'est qu'un exemple...et on peut aussi imager utiliser un <generic> pour faire des choses plus évoluées.
type
  TRecord<T:class,constructor> = record
    Instance: T;
    class operator Initialize(out R: TRecord);
    class operator Finalize(var R: TRecord);
  end;

class operator TRecord<T>.Initialize(out R: TRecord);
begin
  R.Instance := T.Create;
end;

class operator TRecord<T>.Finalize(var R: TRecord);
begin
  R.Instance.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  R: TRecord<TStringList>;
begin
  R.Instance.Add('Hello');
  R.Instance.Add('World');
  ShowMessage(R.Instance.Text);
end;

l'opération fun du jour

Publié le 30/03/2020 [Hardware]
Savez-vous que les badges d'accès aux immeubles sont en fait des RFID ?

avec une appli mobile (MIFARE Classic Tool) on peut faire une copie de la clé et la réenregistrer sur un autre RFID.

comme il se trouve que je bosse pour des médecins, j'ai des cartes de professionnels de santé de TEST, et il se trouve que ces cartes sont équipées d'un RFID....

et bien je viens de faire le test, en copiant mon badge sur une carte, je peux maintenant rentrer dans mon bâtiment en badgeant avec une carte de professionnel de santé :D

oui, je sais ça sert à rien, mais c'est drôle :)

Pourquoi je n'aime pas les overloads

Publié le 06/12/2019 [Delphi] [Expérience]
Je n'ai jamais aimé la possibilité de créer plusieurs fonctions portant le même nom mais avec différents paramètres (overload).

Je viens de taper un code utilisant les RTTI qui exprime bien en quoi cela rend les choses ambiguës 

begin
  case TypeInfo.Kind of
    tkInteger: Result := IntToStr(TypeInfo.GetOrd(Instance));
    tkInt64  : Result := IntToStr(PInt64(Instance)^);
  end;
end;


On a ici un code qui cherche à déterminer le type d'une variable pour appeler dans les deux cas la fonction IntToStr()...sauf que dans le premier cas c'est un Integer et dans le second un Int64, ce n'est donc PAS la même fonction qui est invoquée !

function IntToStr(Value: Integer): string; overload;
function IntToStr(Value: Int64): string; overload;


j'aurais préféré deux fonctions distinctes

function IntToStr(Value: Integer): string;
function Int64ToStr(Value: Int64): string;


voir, éventuellement

function IntToStr(Value: Integer): string; inline; // appelle Int32ToStr()
function Int32ToStr(Value: Int64): string;
function Int64ToStr(Value: Int64): string;