In linux every adapter configuration has a file system path, for example the adapter eth0 has all configuration, in some text files located in “/sys/class/net/eth0/”. The file whose name is “address” contains a single line with the mac adrress value. function GetLinuxMacAddress(device_name : String): string; const linux_path = ‘/sys/class/net/%s/address’; var f : textfile; device, path,…
Leggi tutto
TMiaStruttura = record case integer of 0 : (content : array[0..19] of char); 1 : ( primidue : array[0..1] of char; dalduealquattro : array[0..1] of char; cognome : array[0..15] of char; ) end; procedure TForm7.Button1Click(Sender: TObject); begin a.content := ‘0123456789ABCDEFGHIL’; ShowMessage(a.dalduealquattro); a.dalduealquattro := ‘BB’; ShowMessage(a.content); end; thank’s to my self obviusly
Manage a System.string as buffer to copy content of string into a generic TStream: Stream.Write(Str[1], StrLen * SizeOf(Str[1]));
RadStudio 10.4 è una release che promette grandi cose in tutte le aree di questo fantastico ambiente di sviluppo. Facendo un primo giro di test abbiamo notato: Nelle applicazioni FMX abbiamo notato un notevole miglioramento del render dei caratteri Il nuovo sistema LSP (language server protocol) sembra aver reso l’IDE ancora più fluido e produttivo…
Leggi tutto
TThreadedMsgEvent = class( TThread ) private FLock : TCriticalSection; FStr : TQueue<String>; FMemo : TMemo; function GetEvent : String; protected procedure Execute; override; public procedure AddEvent( aMsg : String ); constructor Create( AMemo: TMemo ); destructor Destroy; override; end; implementation { TThreadedMsgEvent } procedure TThreadedMsgEvent.AddEvent(aMsg: String); begin FLock.Acquire; FStr.Enqueue( FormatDateTime(‘DD/MM/YY HH:NN:SS.ZZZ’,Now)+ ‘ : ‘+ aMsg…
Leggi tutto
Delphi Linux … create a background process… daemon service stay tuned https://chapmanworld.com/2017/04/05/creating-a-linux-daemon-service-in-delphi/ http://blog.paolorossi.net/2017/07/11/building-a-real-linux-daemon-with-delphi-part-1-2/ http://blog.paolorossi.net/2017/09/04/building-a-real-linux-daemon-with-delphi-part-2/
