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 | |
| ; |
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 | |
| ; |
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 Unit1; | |
| {$mode ObjFPC}{$H+} | |
| interface | |
| uses | |
| Classes, SysUtils, tgsendertypes | |
| ; |
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
/ 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 = ''); |
Al-Muhandis
/ project1.pas
Last active
September 9, 2021 18:24
Compressing and decompressing. String input and output
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 Unit1; | |
| {$mode objfpc}{$H+} | |
| interface | |
| uses | |
| Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls; | |
| type |
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; |
Al-Muhandis
/ Unit1.pas
Last active
February 16, 2021 11:24
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 Unit1; | |
| {$mode objfpc}{$H+} | |
| interface | |
| uses | |
| Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls; | |
| type |
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
/ dorpunycode.pas
Created
April 8, 2020 17:29
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
| {$mode Delphi} | |
| (* | |
| * punycode.c from RFC 3492prop | |
| * http://www.nicemice.net/idn/ | |
| * Adam M. Costello | |
| * http://www.nicemice.net/amc/ | |
| * | |
| * This is ANSI C code (C89) implementing Punycode (RFC 3492prop). | |
| * Delphi Conversion by: |
NewerOlder