Stijn Sanders stijnsanders
stijnsanders
/ DelphiWIATakePicture
Created
February 2, 2012 16:17
Delphi: WIA to take image from digital Camera connected to USB
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
| uses WIALib_TLB; | |
| procedure TForm1.Button1Click(Sender: TObject); | |
| var | |
| wia:IWia; | |
| wiad:OleVariant; | |
| wiax:IWiaDispatchItem; | |
| i:integer; | |
| tc1,tc2:cardinal; | |
| begin |
stijnsanders
/ chkrc.dpr
Created
June 4, 2012 12:49
chkrc: Delphi pre-compiler tool to touch any rc with modified included files
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
| program chkrc; | |
| {$APPTYPE CONSOLE} | |
| uses | |
| Windows, SysUtils, Classes; | |
| const | |
| AppName='chkrc by Stijn Sanders <[email protected]> 2012';//version? |
stijnsanders
/ CheckEmptySubject.vba
Created
November 5, 2012 09:41
Outlook script to replace empty subjects
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
| Private Sub CheckEmptySubject() | |
| Dim fi | |
| Dim mi As Object | |
| Dim s As String | |
| Set fi = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox) | |
| If fi.Items.Count <> 0 Then | |
| Set mi = fi.Items.Item(fi.Items.Count) | |
| If mi.Subject = "" Then | |
| mi.Subject = "<E-mail without subject by " & mi.SenderName & " on " & CStr(Now) & ">" | |
| 'mi.ConversationTopic |
stijnsanders
/ sortable.html
Created
July 19, 2013 15:30
A simple straightforward sortable table in JavaScript
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
| <style><!-- | |
| TABLE,P {padding:0.2em;} | |
| TH {padding: 0.2em;border:1px solid green;} | |
| TH.sorted_up {background-color:#CFC;} | |
| TH.sorted_down {background-color:#FCC;} | |
| TD {padding: 0.2em;border:1px solid blue;} | |
| TD.n {text-align:right;} | |
| //--></style> | |
| <table id="sortable" cellspacing="0" cellpadding="2"> |
stijnsanders
/ SSCCE_arc.pas
Last active
August 29, 2015 13:58
SSCCE about reference counting of TStreamAdapter's
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 SSCCE_arc; | |
| //see also http://stackoverflow.com/questions/22846335/why-is-this-tstreamadapter-not-released | |
| interface | |
| procedure SSCCE_arc1; | |
| implementation |
stijnsanders
/ PdfParser.pas
Created
October 27, 2014 12:09
Minimal PDF parser to extract text of first page
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 PdfParser; | |
| interface | |
| uses SysUtils, Classes; | |
| type | |
| TPdfDocument=class;//forward | |
| TPdfDataBlockType=(dbtDictionary,dbtArray,dbtSingleValue); |
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
| { | |
| "name":"Brussels-National", | |
| "level":"hard", | |
| "radio":"Brussels", | |
| "icao":"EBBR", | |
| "wind":{ | |
| "angle":230, | |
| "speed":5 | |
| }, | |
| "fixes":{ |
stijnsanders
/ FDFACXLib_TLB.pas
Created
January 22, 2015 21:14
Delphi ActiveX/COM wrapper for FDFACX.DLL
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 FDFACXLib_TLB; | |
| // ************************************************************************ // | |
| // WARNING | |
| // ------- | |
| // The types declared in this file were generated from data read from a | |
| // Type Library. If this type library is explicitly or indirectly (via | |
| // another type library referring to this type library) re-imported, or the | |
| // 'Refresh' command of the Type Library Editor activated while editing the | |
| // Type Library, the contents of this file will be regenerated and all |
stijnsanders
/ Acrobat_TLB.pas
Created
March 27, 2015 12:11
Adobe Acrobat 8.0 Type Library Delphi unit without wrappers
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 Acrobat_TLB; | |
| // ************************************************************************ // | |
| // WARNING | |
| // ------- | |
| // The types declared in this file were generated from data read from a | |
| // Type Library. If this type library is explicitly or indirectly (via | |
| // another type library referring to this type library) re-imported, or the | |
| // 'Refresh' command of the Type Library Editor activated while editing the | |
| // Type Library, the contents of this file will be regenerated and all |
stijnsanders
/ MSDASC_TLB.pas
Created
November 16, 2015 21:46
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 MSDASC_TLB; | |
| // ************************************************************************ // | |
| // WARNING | |
| // ------- | |
| // The types declared in this file were generated from data read from a | |
| // Type Library. If this type library is explicitly or indirectly (via | |
| // another type library referring to this type library) re-imported, or the | |
| // 'Refresh' command of the Type Library Editor activated while editing the | |
| // Type Library, the contents of this file will be regenerated and all |
OlderNewer