ccy

Introduction

A DHCP server listen on a network interface (e.g: eth0)

$ cat /etc/default/isc-dhcp-server
INTERFACESv4="eth0"
INTERFACESv6=""

ccy

version: '2.4'

services:
  dns:
    image: estreamsoftware/coredns-forward
    restart: always
    networks:
      default:
        ipv4_address: 10.10.50.255

ccy

DEPRECATED: Refer to delphi-ppl

UI design strategy for long running task

A long running task may cause the application runtime become unresponsive and lead perception of application halt or hang during the operation.

For example:

1. A database backup operation spend 10 minutes to finish.
2. Perform length report calculation

ccy

procedure AlignHorzCenter(aControls: array of TfrxView);
var i: Integer;
    iTotalWidth, iLeft: Extended;
    CalcWidths: array of Extended;
    Gaps: array of Extended;
begin
  if not Engine.FinalPass then Exit;
  if Length(aControls) = 0 then Exit;

  // Calculate actual width of controls

ccy

uses System.Messaging, FMX.Platform;

var FId: Integer;

// Subscribe to TOrientationChangedMessage
FId := TMessageManager.DefaultManager.SubscribeToMessage(TOrientationChangedMessage, DoOrientationChanged);

// Write orientation change handler:
procedure TMyForm.DoOrientationChanged(const Sender: TObject; const M: TMessage);
var s: IFMXScreenService;

ccy

uses Patterns.Singleton.Generic;
  
var o1, o2: TSingleton<TStringList>;
    s1, s2, s3: string;
begin
  o1.Get.AddStrings(['a1', 'a2']);
  s1 := o1.Get.Text;  // return "a1<cr,lf>a2"
  s2 := o2.Get.Text;  // return "a1<cr,lf>a2"
  s3 := TSingleton<TStringList>.Get.Text;  // // return "a1<cr,lf>a2"

ccy

uses
  System.SysUtils,
  Winapi.Windows,
  Winapi.IpTypes,
  Winapi.IpHlpApi;

var
  Adapter, Current: PIP_ADAPTER_ADDRESSES;
  Buffer: NativeInt;
  Error: DWord;

ccy

// Use Gists to store code you would like to remember later on
console.log(window); // log the "window" object to the console

ccy

procedure UpdateExeResource(Const Source,Dest:string);
var
  Stream     : TFileStream;
  hDestRes   : THANDLE;
  lpData     : Pointer;
  cbData     : DWORD;
begin
  Stream := TFileStream.Create(Source,fmOpenRead or fmShareDenyNone);
  try
    Stream.Seek(0, soFromBeginning);

ccy

uses Winapi.ShellAPI;

function GetIconByFileExt(aFileExt: string): TBytes;
var C: TIcon;
    N: SHFILEINFO;
    S: TBytesStream;
begin
  C := TIcon.Create;
  try
    Win32Check(Succeeded(