Renat Suleymanov Al-Muhandis
Al-Muhandis
/ ungzip.pas
Last active
December 13, 2023 21:36
One simple procedure for unzip GZip file (uses native fcl gzio.pas)
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| unit ungzip; | |
| {$mode ObjFPC}{$H+} | |
| interface | |
| uses | |
| Classes, SysUtils | |
| ; |
Al-Muhandis
/ zip_odt.pas
Last active
December 18, 2023 06:08
Example demonstrating filling out the odt documents files using the native FPC paszlib library
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| unit zip_odt; | |
| {$mode ObjFPC}{$H+} | |
| interface | |
| uses | |
| Classes, SysUtils; | |
| procedure FillODTDoc(const aSrcFile, aDestFile: String; aKeyValuePairs: TStringList; const aODTSubFile: String = ''); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| unit certbot; | |
| {$mode ObjFPC}{$H+} | |
| interface | |
| uses | |
| Classes, SysUtils, eventlog, process | |
| ; |
Al-Muhandis
/ odt_2_pdf.pas
Last active
December 18, 2023 06:10
simple method to export from odt/doc to pdf
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| unit odt_2_pdf; | |
| {$mode ObjFPC}{$H+} | |
| interface | |
| uses | |
| Classes, SysUtils; | |
| function ConvertODT2Pdf(const aSrcODT, aOutDir: String): Boolean; |
Al-Muhandis
/ configuration.pas
Last active
December 18, 2023 06:10
Saving an object in JSON and loading it from it
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| // ... ... ... | |
| uses fpjson, jsonscanner, fpjsonrtti | |
| ; | |
| // ... ... ... | |
| procedure LoadFromJSON(AObject: TObject; const AFileName: String); | |
| var | |
| ADeStreamer: TJSONDeStreamer; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| unit sbrvalutes; | |
| {$mode objfpc}{$H+} | |
| interface | |
| uses | |
| Classes, SysUtils, fgl | |
| ; |
Al-Muhandis
/ taskworker.pas
Last active
December 18, 2023 06:12
Worker thread template class with task queue (FIFO) without third-party components. FreePascal
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| unit taskworker; | |
| {$mode objfpc}{$H+} | |
| interface | |
| uses | |
| Classes, SysUtils; | |
| type |
Al-Muhandis
/ imageswebutils.pas
Last active
December 18, 2023 06:12
Разбивка изображения. FreePascal
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| unit imageswebutils; | |
| {$mode objfpc}{$H+} | |
| interface | |
| uses | |
| Classes, SysUtils, FPimage, FPImgCanv, fgl; | |
| type |
OlderNewer