Kryvich

Any modern CPU has SHA extensions - set of instructions that accelerate the Secure Hash Algorithms. Do you know any implementation of SHA in Delphi, which uses these extensions?

@Tommi Prami Yes, this code uses SHA Extensions. I think it's possible to convert it to a Delphi asm procedure. https://github.com/minio/sha256-simd/blob/master/sha256blockSha_amd64.s

I do not see SHA instructions in this assembler code. The author writes that he tested his implementations on Intel Core 2 Quad Q6600 processor. This processor does not support SHA extensions.

Yes, I can call my DLL function, no error. Library source code: library DllWithFmx; uses System.SysUtils, System.Classes, FMX.Graphics; {$R *.res} function TestDll: Integer; stdcall; begin Result := Integer(TFontWeight.Semibold); end; exports TestDll; begin end. Console app that use the DLL (the static linking is used): program DllUse; {$APPTYPE CONSOLE} {$R *.res} uses System.SysUtils; function TestDll: Integer; stdcall; external 'DllWithFmx.dll'; var i: Integer; begin i := TestDll; Writeln(i); Readln; end.

Have you obtain an Android phone with HDD? )

Use Google Public DNS.

+1 for @Dany Marmur except for specially optimized and proven to be good functions/units.

Works for me now.

Sorry can't help, Delphi CE here, no Linux compiler. I tried creating a DLL that uses FMX.Graphics unit. No problem in Windows 10.

I think I know why you get the exception. Put this code to the FormCloseQuery: if IdTCPServer1.Active then begin IdTCPServer1.Active := False; IdTCPClient1.Disconnect; end; You'll get the exception. Then swap the lines: IdTCPClient1.Disconnect; IdTCPServer1.Active := False; No exception.

If I put a breakpoint to the line TThread.Queue(...) it gets hit twice on every button press. I think it's how the debugger works. I've added a counter and there is no any missed clicks. And no error messages on exit. procedure TForm1.Button1Click(Sender: TObject); begin if not IdTCPServer1.Active then begin IdTCPServer1.Active := True; IdTCPClient1.Connect; end; Inc(ClickCount); IdTCPClient1.IOHandler.WriteLn(Format('Hello, world. Click #%d.', [ClickCount])); end; procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin if IdTCPServer1.Active then IdTCPClient1.Disconnect; end; procedure TForm1.IdTCPServer1Execute(AContext: TIdContext); var s: string; begin s := AContext.Binding.PeerIP + ': ' + AContext.Connection.IOHandler.ReadLn; TThread.Queue(nil, procedure begin Memo1.Lines.Add(s) end); end;

No, there is no deadlock here.

No problem here with Indy components included in Delphi 10.3.3 package. Just change Button1Click as follows: if not IdTCPServer1.Active then begin IdTCPServer1.Active := True; IdTCPClient1.Connect; end; IdTCPClient1.IOHandler.WriteLn('Hello, world'); I did not find projects IndyCore260, IndyProtocols260 etc. for the new Delphi 10.3.3 in the library on GitHub.

I think, it's a bug in the TStrings visualizer, not in the code itself. Your program should work correctly both in Windows and Android. Nevertheless, I suggest use TBytes for byte manipulation instead of UTF8String. See "Delphi in a Unicode World" by Nick Hodges, Chapter "USING STRINGS AS DATA BUFFERS".

Yes, it can. Although non-monospaced fonts look ugly in Lazarus. IDE tries to preserve columns in the editor.

Interestingly, Lazarus can use this font in the editor.

BTW do you see circles next to the file names in tabs of modified files in IDE?

@jbg IDE Fix Pack 6.4.4 installed and works good for me with Delphi CE 10.3.3. As well as my own IDE packages compiled with Delphi CE 10.3.2.

@Gustav Schubert I can confirm: they added a new license exclusively for Delphi CE 10.3.3. Thanks Embarcadero.

@Uwe Raabe Yes, I just upgraded my Delphi CE 10.3.2 to 10.3.3, a serial number is the same. The problem is a product license status: 2 days remaining on license.

@chkaufmann I will not mind if they take my idea and embed it in the IDE.

Try Status Bars.

I think most of these online formatters use HTML Tidy internally.

@Markus Kinzler You're right. The site is not accessible from several providers in my country, but is accessible when I use a foreign VPN. Very strange.

403 Forbidden ( https://community.idera.com site unavailable )