I hereby claim:
- I am tondrej on github.
- I am tondrej (https://keybase.io/tondrej) on keybase.
- I have a public key whose fingerprint is BF32 CE19 32B2 61E8 8F2F F6CD 9D6B 32D2 2E82 F39D
To claim this, I am signing this object:
Ondrej Kelle tondrej
tondrej
/ Data.Win.OleDbUtils.pas
Last active
December 30, 2021 14:34
SQL Server bullk copy using Delphi (https://tondrej.blogspot.com/2016/04/sql-server-bulk-copy-using-delphi.html)
This file contains hidden or 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 Data.Win.OleDbUtils; | |
| interface | |
| uses | |
| System.Classes, | |
| System.SysUtils, | |
| System.Win.ComObj, | |
| Winapi.Windows, | |
| Winapi.ActiveX, |
tondrej
/ ADORecordSet.pas
Last active
July 12, 2020 10:56
A very crude ADO RecordSet wrapper for a TDataSet with basic navigation
This file contains hidden or 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 ADORecordSet; | |
| interface | |
| uses | |
| Winapi.Windows, Winapi.ActiveX, Winapi.ADOInt, | |
| System.Classes, System.SysUtils, System.Win.ComObj, System.Variants, | |
| Data.DB; | |
| type |
tondrej
/ keybase.md
Created
October 21, 2016 05:45
This file contains hidden or 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
| #!/bin/bash | |
| BLACK=000 | |
| BLUE=001 | |
| RED=010 | |
| MAGENTA=011 | |
| GREEN=100 | |
| AQUA=101 | |
| YELLOW=110 | |
| WHITE=111 |
tondrej
/ JwaWinPerf.patch
Created
January 22, 2017 18:29
JwaWinPerf patch for WIN64 (https://sourceforge.net/projects/jedi-apilib/)
This file contains hidden or 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
| Index: JwaWinPerf.pas | |
| =================================================================== | |
| --- JwaWinPerf.pas (revision 1115) | |
| +++ JwaWinPerf.pas (working copy) | |
| @@ -171,13 +171,21 @@ | |
| // counter definition for this | |
| // object | |
| ObjectNameTitleIndex: DWORD; // Index to name in Title Database | |
| +{$ifdef WIN64} | |
| + ObjectNameTitle: DWORD; // Should use this as an offset |
tondrej
/ pre-commit
Last active
August 19, 2024 13:22
Git pre-commit hook to convert Delphi's *.dfm files from binary to text
This file contains hidden or 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
| #!/bin/sh | |
| # Check *.dfm files being committed for binary format, if so convert to text automatically. | |
| for s in $(git diff --cached --name-only *.dfm); do | |
| grep -qI '' $s | |
| if [ $? = 1 ]; then | |
| echo Converting $s from binary to text | |
| convert -i -t $s > /dev/null | |
| git add $s | |
| fi |
This file contains hidden or 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
| // example usage... | |
| procedure TDataModuleMain.DataModuleCreate(Sender: TObject); | |
| begin | |
| try | |
| FRuntime := TChakraCoreRuntime.Create([ccroEnableExperimentalFeatures, ccroDispatchSetExceptionsToDebugger]); | |
| FContext := TChakraCoreContext.Create(FRuntime); | |
| FContext.Activate; | |
| ChakraCoreCheck(JsCreateObject(FConsole)); | |
| ChakraCoreCheck(JsAddRef(FConsole, nil)); | |
| SetCallback(FConsole, 'assert', ConsoleAssertFunc, Self); |
Delphi and Free Pascal bindings and classes for Microsoft's ChakraCore library.
ChakraCore version: 1.7.6
Supported compilers:
- Delphi 7 or newer
- Free Pascal 3.0.4 or newer
Supported target platforms:
This file contains hidden or 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
| Index: pascalbind.h | |
| =================================================================== | |
| --- pascalbind.h (revision 57427) | |
| +++ pascalbind.h (working copy) | |
| @@ -27,13 +27,13 @@ | |
| #include "chandles.h" | |
| -#if defined(__WIN32__) | |
| +#if defined(__WIN32__) || defined(_WIN32) |
This file contains hidden or 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+} | |
| {$macro on} | |
| interface | |
| uses | |
| Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls; |
OlderNewer