Synaptica News
Gli ultimi articoli dal nostro blog…..
RadStudio 10.4 – Prime impressioni
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[…]
Read moreHow to Hide Div when Click Outside of the Element using jQuery
Hide element on click outside, is a must-have functionality for the dropdown menu. Apart from that, it also used in some situations where you need to hide div when the[…]
Read moreTCriticalSection Threrad Example Delphi
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 |
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 ); FLock.Release; end; constructor TThreadedMsgEvent.Create(aMemo: TMemo); begin inherited Create(True); FreeOnTerminate := False; FOnMessage := ACallBack; FStr := TQueue<String>.Create(); FLock := TCriticalSection.Create; FMemo := aMemo; Resume; end; destructor TThreadedMsgEvent.Destroy; override; begin FreeAndNil( FStr ); FreeAndNil( FLock ); end; procedure TThreadedMsgEvent.Execute; begin while not Terminated do begin try if (FStr.Count > 0) then begin if Assigned( aMemo ) then begin TThread.synchronize( procedure begin FMemo.Lines.Add( GetEvent ); end; ); end; end; except end; TThread.Sleep(1); end; end; function TThreadedMsgEvent.GetEvent: String; begin FLock.Acquire; result := FStr.Dequeue; FLock.Release; end; |
From post found at: https://stackoverflow.com/questions/17506615/how-to-handle-log-in-a-threaded-manner-in-delphi
Read moreI nostri clienti
Da ormai anni collaboriamo con diverse società che ci hanno scelto e dato fiducia.
Cerchiamo di fare quanto ci è possibile per coltivare nel modo più produttivo e professionale il rapporto con i nostri clienti.
Tecnologie
LE PRINCIPALI TECNOLGIE CHE ABBIAMO SCELTO PER REALIZZARE I NOSTRI PROGETTI
Embarcadero RAD Studio
Embarcadero RAD Studio
Con i tool Embarcadero riusciamo ad ottenere un forte vantaggio in termini di performance e velocità di sviluppo.
KVM
Kernel-based Virtual Machine (KVM) è un’infrastruttura di virtualizzazione del kernel Linux. KVM attualmente supporta una completa virtualizzazione usando Intel VT o AMD-V. Un supporto limitato per la paravirtualizzazione è anche disponibile per gli ospiti Linux e Windows nella forma di un driver di rete paravirtuale.
Ubuntu – Linux
E’ il sistema operativo di base che utilizziamo principalemtne nell’area server.
DELL EMC Partner Program
Per noi un partner di eccellenza, DELL con le sue soluzioni SERVER e WORKSTATION ci ha garantito supporto e affidabilità molto importanti.
Tutti i nostri server presso la server farm di via caldera a Milano sono macchine DELL.
Possiamo affermare che dopo ben 10anni dall’inizio di questa impresa ancora oggi il primo server acquista è operativo e funzionante.
PhP
Un elemento che ovviamente non può mancare, leggerezza, velocità e portabilità lo rendono ancora oggi una delle tecnologie da non poter trascurare.
Embarcadero RAD Studio
upermicro, è una società di tecnologia dell’informazione con sede a San Jose, in California.
Utilizziamo le soluzioni supermicro per tutto il comparto sicurezza (Firewall – Gateway) e Iot Gateway.
Contact us
Get in touch
Address:
Via lattanzio, 23 20137 Milano Italy
Phone:
+39 02 36592025
