Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Add your voice to the tech community where 5M+ people, just like you, are talking about what matters.
Type TThreadSafeParametersList = class(TThreadList) constructor Create; destructor Destroy; override; procedure FreeAllAndClearList; end; Implementation constructor TThreadSafeParametersList.Create; begin inherited Create; self.Duplicates := dupAccept; end; destructor TThreadSafeParametersList.Destroy; begin FreeAllAndClearList; ////<= from time-to-time AV is caused by pointer to this method no longer is valid (000000) inherited Destroy; end; procedure TThreadSafeParametersList.FreeAllAndClearList; var i: integer; begin with LockList do try for i := 0 to Count-1 do try if Assigned(TObject(Items[i])) then TObject(Items[i]).Free; finally end; Clear; finally UnlockList; end; end;
|How to convert wav to mp3 in delphi||9||221|
|Is anyone willing to have a look through this code and help debug?||25||82|
|Firemonkey BASS_Init into a thread||17||30|
|How to add columns to a RAD Studio FMX grid at design time||1||2|