-
Content Count
402 -
Joined
-
Last visited
-
Days Won
8
Posts posted by Kryvich
-
-
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.
-
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?
-
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.
-
-
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.
- 1
-
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 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.
-
-
-
@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.
- 1
-
@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.
- 1
-
-
-
-
@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.
-
SHA Extensions and Delphi
in RTL and Delphi Object Pascal
Posted
@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