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.

Ačkoliv REST je momentálně na vrcholu popularity, sem tam je potřeba i SOAP.

Delphi podporuje SOAP od cca Delphi 5 (tj. rok 2000). Bohužel vždy podporoval jen RPC/encoded variantu, což se někdy jeví jako problém, zvláště pokud máte komunikovat se systémem, který podporuje SOAP pouze ve variantě Document/literal. Ukázka rozdílů Literal vs. Encoded, RPC- vs. Document.

Jediná rozumná implementace SOAP co znám pro variantu Document/literal (ale podporuje i RPC) pro Delphi je IndySOAP. Jedná se o open source knihovnu, dostupnou na IndySOAP, přičemž verze z SVN je unicode kompatibilní.

Více...

Každá firma má svůj příběh. Ty z IT oboru často začínají tím, jak dva kamarádi pracují na něčem, co tu ještě nebylo. Nejlépe v garáži. Dvojice přátel stála také u zrodu ABRA Software. Jeden programoval, druhý organizoval. Jen ne v suterénu, ale na půdě. Své role si ponechali dodnes, pouze s rozdílem, že za 29 let na trhu se firma rozrostla o dalších 150 lidí, kteří v Čechách, na Slovensku a ve Švýcarsku pomáhají vyvíjet software pro celý svět.

A co to má společného s Delphi? Vývoj robustního informačního systému, který organizuje procesy celé firmy a zvládá účetní operace, správu skladů, řízení výroby i aktualizaci nových zákonů. Delphi jako vývojové prostředí po letech útlumu zase ožívá a má budoucnost. Držíme krok a Delphi pravidelně aktualizujeme na nejnovější verzi.

Informační systém píšeme jako třívrstvou aplikaci. Produkt skládáme z větší části z našich vlastních vizuálních i nevizuálních komponent, což usnadňuje vývojářům práci a zvyšuje přehlednost. Kód průběžně refaktorujeme. Aplikace také podporuje běh na monitorech s vysokým rozlišením.

V produktu máme vlastní skriptovací jazyk a moderní REST API rozhraní. Informační systém podporuje tři databázové servery, přičemž používáme vlastní framework, který při většině práce koncového vývojáře odstíní od specifik konkrétní databáze. V rámci vývoje píšeme testy – unit, integrační, performance a jiné.

A jak se u nás pracuje? Nestane se, že by něco vázlo. Kdo neví, ten se zeptá, a kdo může, pomůže. Bez ohledu na pozici. Bonusem je fitness stezka prospívající ajťáckým zádům a letní stolování na terase. Když si přivstanete, zacvičíte si nebo vyrazíte na společný běh. Poctivá zmrzlina u stánku ve firemním baru hned chutná o něco lépe.

Dostali jste chuť být součástí ABRA týmu? Potřebujeme zkušeného Delphi Developera, který je odvážný a spolu s hlavním architektem, dalšími programátory a testery posune jádro ERP systému ABRA Gen zase o kus dál. Chopte se příležitosti pracovat s třívrstvou architekturou a nástroji automatizace a optimalizujte jejich výkon. U nás uplatníte svoje rozsáhlé zkušenosti.

abra.eu/volne-pozice/

V nejbližších dnech pořádáme Prague Delphi Meetup. Jste srdečně zváni, více informací a registrace na: https://bit.ly/2kOCvON

Během týdne vyšel druhý update pro Delphi Rio (10.3.2). Je to významný update nejen z hlediska platforem, kdy přináší macOS 64-bit a C++17 pro Windows 64-bit, ale i vzhledem k různým opravám.

Pro mne jsou důležité opravy ohledně IDE a jeho stability, ale z hlediska budoucnosti je nejdůležitější C++ LSP vylepšení (tj. to co jsem psal co se chystá pro Delphi - out of process napovídání a doplňování kódu). Dále např. Tools > Options > IDE > Compiling and Running > Enable unit directory cache, zrychlující přístup k souborům ve velkých projektech.

Přes GetIt je pro Enterprise+ dostupný FMXLinux.

docwiki, opravené chyby a nové věci

Na závěr: moje osobní třešnička - vylepšený TStrings Visualizer - dá se kopírovat text!

Embarcadero oznámilo dohodu s Eugene Kryukov, což je originální autor FMX o licencování FMX pro Linux. Nejedná se o jednorázovou akci, ale o dlouhodobou spolupráci.

FMXLinux je dostupný jako GetIt download pro verzi 10.3.1 Delphi.

Originální oznámení Announcing FmxLinux Bundling with Delphi and RAD Studio

Embarcadero zveřejnilo plány dalšího vývoje Delphi včetně komentáře jednotlivých produkt managerů.

Roadmap RAD Studio Roadmap May 2019, dále komentáře produkt managerů.

Více...

Technická konference pro potenciální i stávající uživatele vývojových nástrojů Embarcadero RAD Studio, Delphi a C++Builder.

6.6.2019 od 9:00 hodin, Velký sál Doprastav, Košická 52, Bratislava - Ružinov

Svět se mění čím dál tím rychleji a pro oblast informačních technologií to platí dvojnásob. Internet věcí přestává být synonymem pro "hračky" a různé "podivnosti" a stále častěji nachází uplatnění ve vědě, průmyslu a dalších odvětvích. Stejně tak se stalo běžnou realitou využívání cloudových služeb. Uživatelé očekávají od nových aplikací propojitelnost s existujícími systémy, webový přístup a podporu mobilních zařízení. Větší důraz je také kladen na jejich vzhled, ergonomii a kvalitu. Profesionální design a důkladné testování již není konkurenční výhoda, ale nezbytnost. Jedná se o nové výzvy, ale především úplně nové příležitosti pro programátory a vývojáře. Přijďte se podívat, jak Vám mohou pomoci vývojové nástroje společností Embarcadero a Ranorex.

Program konference

• 08:00 - 09:00 Registrace účastníků
• 09:00 - 09:05 Zahájení konference
• 09:05 - 10:30 Vývoj vestavěných aplikací s RAD Studiem a RAD Serverem
• 10:30 - 10:40 Občerstvení
• 10:40 - 11:40 Využití stylů a designových jazyků Microsoft a Google ve VCL
• 11:40 - 12:00 Občerstvení
• 12:00 - 13:15 Úvod do automatizovaného testování s nástrojem Ranorex Studio
• 13:15 - 13:30 Shrnutí, dotazy a závěr konference

Přednášky budou probíhat v angličtině, pro zájemce však bude k dispozici simultánní překlad do slovenštiny.

Nutná je registrace na seminář (zdarma)

Už od verze 2007 Delphi podporuje procházení přes for - in, bohužel některé třídy stále tuto podporu nemají.

Požadovaný stav:

var
  bmk: TBookmark;
begin
  for bmk in  DBGrid1.SelectedRows do
  begin
//xxx
  end;
end;

Více...

V Delphi Rio byla přidána podpora pro VCL multi resolution imagelisty.

V podstatě se jedná o dvě spolupracující komponenty:

• TImageCollection - udržuje vlastní multi resolution bitmapy
• TVirtualImageList - podle DPI zprostředkovává pohled na TImageCollection

Více...

U příležitosti 24. výročí uvedení Delphi na trh byl vydán 1.update pro Delphi 10.3 Rio.

Release notes.

Ve zkratce co mne zaujalo:

• lepší podpora FireDAC pro Firebird 3.0.4 a embedded Firebird
• u SOAP klientů lepší podpora pro certifikáty (souvisí se zásadní změnou implementace SOAP za pomoci http knihovny viz 10.3)

Oprava některých chyb ohledně IDE a mnoha dalších - celý seznam

Sem tam mne Delphi překvapí. Nepřijde vám ta syntaxe u PrintOut trochu zajímavá? Delphi prý to podporují od verze 2. Myslím, že na pořadí ani nezáleží.

  if (OpenDialog1.Execute) then
  begin
    WinWord := CreateOleObject('Word.Application');
    if (not (VarIsEmpty(WinWord))) then
    begin
      try
        WinWord.Visible := false;
        Docs := WinWord.Documents;
        Doc := Docs.Open(OpenDialog1.FileName);
        vFrom := 1;
        vTo := 2;
        Doc.PrintOut(Background := false, Append := false, Range := wdPrintFromTo, OutputFileName := EmptyParam, From := vFrom, To := vTo);
                  // err
      finally
        WinWord.Quit;
      end;
    end;

Jen pro připomenutí - PrintOut má mnoho parametrů - word.document.printout