Skip to content

Instantly share code, notes, and snippets.

@Al-Muhandis
Al-Muhandis / invoice_pdf.pas
Created October 23, 2025 21:38
Пример генерации счета в FreePascal с помощью fcl-pdf
unit invoice_pdf;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, fppdf, cmn_globals
;
@Al-Muhandis
Al-Muhandis / invoice_pdf.pdf
Created October 23, 2025 21:38
Пример генерации счета в FreePascal с помощью fcl-pdf
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
@Al-Muhandis
Al-Muhandis / unix_sendmail.pas
Last active October 26, 2025 18:30
CLI wrapper to send email via msmtp/sendemail (Linux specific)
unit unix_sendmail;
{ smtp mailer via standard Unix sendmail support }
{$mode ObjFPC}{$H+}
interface
uses
Classes, SysUtils
# Lazarus compiler-generated binaries (safe to delete)
*.exe
*.dll
*.so
*.dylib
*.res
*.compiled
*.dbg
*.ppu
*.o
@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)
unit ungzip;
{$mode ObjFPC}{$H+}
interface
uses
Classes, SysUtils
;
@Al-Muhandis
Al-Muhandis / certbot.pas
Created December 1, 2023 11:23
Certbot wrapper for FreePascal
unit certbot;
{$mode ObjFPC}{$H+}
interface
uses
Classes, SysUtils, eventlog, process
;
@Al-Muhandis
Al-Muhandis / unit1.pas
Created September 29, 2022 20:51
Just send message with inlinekeyboard
unit Unit1;
{$mode ObjFPC}{$H+}
interface
uses
Classes, SysUtils, tgsendertypes
;
@Al-Muhandis
Al-Muhandis / odt_2_pdf.pas
Last active December 18, 2023 06:10
simple method to export from odt/doc to pdf
unit odt_2_pdf;
{$mode ObjFPC}{$H+}
interface
uses
Classes, SysUtils;
function ConvertODT2Pdf(const aSrcODT, aOutDir: String): Boolean;
@Al-Muhandis
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
unit zip_odt;
{$mode ObjFPC}{$H+}
interface
uses
Classes, SysUtils;
procedure FillODTDoc(const aSrcFile, aDestFile: String; aKeyValuePairs: TStringList; const aODTSubFile: String = '');
@Al-Muhandis
Al-Muhandis / project1.pas
Last active September 9, 2021 18:24
Compressing and decompressing. String input and output
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;
type