V dalším díle bych rád ukázal komponenty od MiTeC a musím se přiznat, že je to trochu ostuda, že to zde nebylo dříve.

Michal Mutl alias MiTeC nabízí za pakatel (cca 110EUR) nejobsáhlejší komponenty ohledně všeho možného v systému, od detekce HW s neskutečnými detaily (System Information Component Suite), přes monitorování systému, přes Portable Executable Reader (včetně detekce kompilátoru) až po Key a Mouse logger komponenty.

Více...

Další zajímavou komponentou, resp. balíčkem je ZXing.Delphi. Jedná se o port ZXing (Zebra Crossing) což je populární knihovna pro čtení všech možných čárových kódu, včetně QR.

Port je plný, tj. bez DLL knihovny, celý je v Object Pascalu a podporuje jak VCL, tak FMX i pro mobilní kompilátory. FMX má automaticky podporu kamery i na mobilech, pro VCL je v demech jednoduché zapouzdření kamery přes DirectShow, ale můžete použít cokoliv jiného.

Licence: free, Apache 2.0 license

Pokračujeme v seznamu zajímavých komponent balíkem TECNativeMap. Nejedná se o žádný další wrapper nad prohlížečem k zobrazování map, ale plnohodný nativní zobrazovač map k různým datovým podkladům psaný celý v Delphi na bázi jak VCL tak FMX takže kompletně bez závislosti na nějakém prohlížeči.

Co ho odlišuje od nějakého obyčejného zobrazovače map? Jednak široká podpora mapových podkladů, dále si do něho můžete šáhnout a hlavně může být celý v módu OFFLINE a co byl můj případ, můžete mu v módu OwnerDraw šoupat svoje podklady (Tile) které nejsou veřejné např. z DB, nebo v mém případě číst z proprietárního formátu s neveřejnými daty.

A to celé bez nutnosti připojení k internetu nebo naopak pro online data to automaticky transparentně stahuje.

Zároveň komponenta umožňuje volitelně vytvářet na disku cache stažených obrázků, takže se příště nic nemusí stahovat. Všechno je to svižné a máte to pod kontrolou.

Více...

V nové verzi je možno specifikovat ve VCL různé styly pro jednotlivé vizuální komponenty. Předtím byla možné použít styl pro celou aplikaci.

Jednotlivé vizuální komponenty mají property StyleName, kde se napíše jako text jméno stylu.

Styl musí být v aplikaci zaveden (buďto za běhu nebo třeba jako výchozí styl přes Project Options - je pak zaveden v dpr).

Více...

Embarcadero vydalo verzi Delphi 10.4 Sydney.

Základní info

• Co je nového
• Feature Matrix
• Fix list
• Release notes
• Stažení z my.embarcadero.com, nebo z cc.embarcadero.com

Klíčové vlastnosti

• už jsem psal o LSP (nové Code Insight)
• managed records
• odstranění ARC u mobilních platform (děkuji, děkuji, fakt mi to výrazně zjednodušilo život)
• offline instalace má stejný instalátor jako online
• konečně aktualizace v rámci IDE
• pro IDE je doporučeno Windows 10, Windows 7 nejsou oficiálně pro IDE podporovány, toto neplatí pro výsledné aplikace

Více...

Publikováno se speciálním svolením Embarcadero - beta blogging.

Následující hlavní verze je Delphi 10.4 Sydney.

Marco zveřejnil něco o RTL v 10.4, Delphi RTL 10.4. Kromě věcí jako optimalizace JSON nebo RTTI optimalizace je pro mne důležitá hlavně změna deklarace FreeAndNil.

Pozadí: během refaktorizace kódu často dojde k tomu, že z původní např. třídy se stane rekord nebo interface. Což by ničemu navadilo, ale někdy se zapomene, že FreeAndNil to zkousne, protože jeho deklarace je celkem volná, ale ve výsledku se mohou dít věci.

Více...

V novějších Delphi, nejméně XE3 - hlouběji jsem se nedíval, je v jednotce System.SysUtils definováno pár generických a zaroveň anonymních metod.

// Generic Anonymous method declarations
type
  TProc = reference to procedure;
  TProc<T> = reference to procedure (Arg1: T);
  TProc<T1,T2> = reference to procedure (Arg1: T1; Arg2: T2);
  TProc<T1,T2,T3> = reference to procedure (Arg1: T1; Arg2: T2; Arg3: T3);
  TProc<T1,T2,T3,T4> = reference to procedure (Arg1: T1; Arg2: T2; Arg3: T3; Arg4: T4);

  TFunc<TResult> = reference to function: TResult;
  TFunc<T,TResult> = reference to function (Arg1: T): TResult;
  TFunc<T1,T2,TResult> = reference to function (Arg1: T1; Arg2: T2): TResult;
  TFunc<T1,T2,T3,TResult> = reference to function (Arg1: T1; Arg2: T2; Arg3: T3): TResult;
  TFunc<T1,T2,T3,T4,TResult> = reference to function (Arg1: T1; Arg2: T2; Arg3: T3; Arg4: T4): TResult;

  TPredicate<T> = reference to function (Arg1: T): Boolean;

Více...

Publikováno se speciálním svolením Embarcadero - beta blogging.

Následující hlavní verze je Delphi 10.4 Sydney a z toho co jsem vyzkoušel je na co se těšit.

Jak Marco Cantu, tak David Millington (oba produkt manažeři za Rad Studio) již publikovali dvě ze zásadních novinek a to New in Delphi 10.4: Redesigned Code Insight a Custom Managed Records Coming to Delphi 10.4.

Proč se těšit? Prvním důvodem je LSP, který je jádrem změn v Code Insight.

Jak jsem již psal, jedná se o zkratku Language Server Protocol. V podstatě se jedná o největší změnu v IDE za takových 15let (od Delphi 2005, které změnilo IDE).

Více...

Je několik možností jak zrychlit build aplikace (budeme ignorovat nový HW).

Většinou stačí mít dobře stukturovaný projekt bez kruhových referencí, tj. že kompilátor nic nemusí řešit a jde od základních unit směrem k složitějším. Samozřejmě IDEFixPack hlavně pro starší verze také pomůže, ale následující už tak známé není.

Pokud máte hodně jader je možné, že se už začne projevovat přehazování scheduleru Windows, což zejména u starších verzí (třeba XE) může způsobit už trošku zpomalení.

Zkuste ve správci úloh omezit počet procesorů (osvědčilo se mi na 2 kousky) - nebojte se, platí to jen pro aktuálně spuštěný program, Windows si to nezapamatují.

Tímto způsobem jsem zrychlil kompilaci 1.2MLOC z cca 28s na 19s, což není špatné.

Pokud to zafunguje a má to přínos, máte několik možností (kromě na to zapomenout):

• Process Lasso
• teoreticky se dá patchnout bds.exe, v exe je info o tom na kolika procesorech to má běžet, je na to malinký program, který byl kdysi součástí Windows 2000 Server Resource Kit a použivají to převážně hráči na patch starších her, které na více jádrových systémech neběží - https://robpol86.com/imagecfg.html , nezkoušel jsem

V důsledku nefunguje jen rychleji kompilace, ale i třeba napovídání atd. což do brzké (doufám že v další verzi) doby než bude napovídání kódu řešeno přes language server taky potěší.

Na fóru Karel Horký sdílel pěkný tip řešící občasný problém s mizením modálního okna za hlavní formulář (např. při různých přepínání - nemyslím TForm.PopupMode) často ve Windows 10.

procedure DisableProcessWindowsGhosting;
var
  DisableProcessWindowsGhostingProc: procedure;
begin
  DisableProcessWindowsGhostingProc := GetProcAddress(
    GetModuleHandle('user32.dll'),
    'DisableProcessWindowsGhosting');
  if Assigned(DisableProcessWindowsGhostingProc) then begin
    DisableProcessWindowsGhostingProc;
  end;
end;

Karel Horký k tomu píše: Volá se to z Create hlavního okna aplikace.

Celé vlákno: forum.delphi.cz/index.php/topic,16907.msg107189.html#msg107189

Už dříve jsem psal o TThread.Queue, ale možná jsem nezdůraznil, že v případě volání z hlavního vlákna je takový kód proveden okamžitě, tj. bez volání synchronize, což třeba nejen u Android aplikací může být požadováno.

Pro takový případ je k dispozici TThread.ForceQueue který zaručí, že i v případě volání z hlavního vlákna je takový kód prováděn se synchronizací.

Zkuste si novou aplikaci a na tlačítko Button1.OnClick dejte

procedure TForm6.Button1Click(Sender: TObject);
begin
  TThread.ForceQueue(nil,
     procedure
     begin
       Button1.Caption := 'hello'; // break point 1
       //Button1.Repaint;
     end
    );
end;// break point 2

A nyní program otestujte. Měl by se nejdříve zastavit na break point 2 a pak až na break point 1. Pokud ForceQueue nahradíte za Queue, tak se pořadí zastavení prohodí.

Sem tam se stane, že je třeba nahradit komponentu za nějakou jinou, např. TEdit za TMemo. Samozřejmě je možno vložit novou komponentu, napasovat pozici, upravit TabOrder, přepojit události atd.

Nebo zobrazit formulář jako text (přes popup menu View as text)

  object Edit1: TEdit
    Left = 192
    Top = 64
    Width = 121
    Height = 21
    TabOrder = 1
    Text = 'Edit1'
  end

Přepsat TEdit na TMemo, přepnout se zpět a IDE zahlásí které property neexistují. Následně při změně pas souboru a jeho uložení IDE zahlásí

Field Form2.Edit1 should be of type Vcl.StdCtrls.TMemo 
but is declared as TEdit. Correct the declaration?

a při Yes se deklarace upraví.

Rozhodl jsem se, že zkusím nějakou sérii malých článků o drobnostech. První bude spíše částečně nedokumentované chování.

System.Copy

function Copy(S: <string or dynamic array>; Index: Integer; Count: Integer): string;

z helpu:

"When S is a dynamic array, you can omit the Index and Count 
parameters and Copy copies the entire array."

takže

var
  s: string;
  s2: string;
begin
  s := 'Hello cool';
  s2 := Copy(s, 3); // <<<<<<<<<< jen 2 parametry
  ShowMessage(s2);

v assembleru Win32

Unit1.pas.32: s2 := Copy(s, 3);
    lea eax,[ebp-$0c]
    push eax
    mov ecx,$7fffffff  <<<< MaxInt
    mov edx,$00000003
    mov eax,[ebp-$08]
    call @UStrCopy

Jako poslední parametr je předán interně MaxInt a Copy vždy kontroluje zda délka odpovídá (můžete si ušetřit počítání zbývajících znaků - v helpu je popsáno, že se kontrola provede, aspoň se neseknete o 1).

Dne 21.11.2019 Embarcadero vydalo Delphi 10.3.3, tj. třetí release Rio.

Hlavní novinky jsou:

• Delphi Android 64-bit support
• iOS 13 and macOS Catalina (Delphi) Support

Android 64bit stále používá ARC memory model a přidává podporu Android App Bundle. Podpora celé RTL (vlákna atd) je samozřejmostí. Rozsáhlý článek od PM RAD Studio 10.3.3. Features, DocWiki: docwiki.embarcadero.com/RADStudio/Rio/en/10.3_Rio_-_Release_3, opravené chyby: New_features_and_customer_reported_issues_fixed_in_RAD_Studio_10.3.3.

Download: cc.embarcadero.com/reg/delphi

Zdá se mi to neuvěřitelné, ale už je to 10 let co jsem založil server delphi.cz. Moc děkuji všem lidem co jsem během těch let potkal za podporu a ze všech těch lidí speciální dík pro Richarda Kubáta z EMBT, protože bez jeho důvěry by tehdy server nevznikl.

Díky a jedeme dál.

R.