├── .github └── workflows │ ├── build_results_base.yml │ ├── build_results_jcl.yml │ └── build_results_jvcl.yml ├── build_results ├── .gitignore ├── .vscode │ └── settings.json ├── all.js ├── badges │ ├── jcl.svg │ ├── jcl_c6.svg │ ├── jcl_d10.svg │ ├── jcl_d11.svg │ ├── jcl_d12.svg │ ├── jcl_d14.svg │ ├── jcl_d15.svg │ ├── jcl_d16.svg │ ├── jcl_d16_x64.svg │ ├── jcl_d17.svg │ ├── jcl_d17_x64.svg │ ├── jcl_d18.svg │ ├── jcl_d18_x64.svg │ ├── jcl_d19.svg │ ├── jcl_d19_x64.svg │ ├── jcl_d20.svg │ ├── jcl_d20_x64.svg │ ├── jcl_d21.svg │ ├── jcl_d21_x64.svg │ ├── jcl_d22.svg │ ├── jcl_d22_x64.svg │ ├── jcl_d23.svg │ ├── jcl_d23_x64.svg │ ├── jcl_d24.svg │ ├── jcl_d24_x64.svg │ ├── jcl_d25.svg │ ├── jcl_d25_x64.svg │ ├── jcl_d26.svg │ ├── jcl_d26_x64.svg │ ├── jcl_d27.svg │ ├── jcl_d27_x64.svg │ ├── jcl_d28.svg │ ├── jcl_d28_x64.svg │ ├── jcl_d29.svg │ ├── jcl_d29_x64.svg │ ├── jcl_d6.svg │ ├── jcl_d7.svg │ ├── jvcl.svg │ ├── jvcl_c6.svg │ ├── jvcl_d10.svg │ ├── jvcl_d11.svg │ ├── jvcl_d12.svg │ ├── jvcl_d14.svg │ ├── jvcl_d15.svg │ ├── jvcl_d16.svg │ ├── jvcl_d16_x64.svg │ ├── jvcl_d17.svg │ ├── jvcl_d17_x64.svg │ ├── jvcl_d18.svg │ ├── jvcl_d18_x64.svg │ ├── jvcl_d19.svg │ ├── jvcl_d19_x64.svg │ ├── jvcl_d20.svg │ ├── jvcl_d20_x64.svg │ ├── jvcl_d21.svg │ ├── jvcl_d21_x64.svg │ ├── jvcl_d22.svg │ ├── jvcl_d22_x64.svg │ ├── jvcl_d23.svg │ ├── jvcl_d23_x64.svg │ ├── jvcl_d24.svg │ ├── jvcl_d24_x64.svg │ ├── jvcl_d25.svg │ ├── jvcl_d25_x64.svg │ ├── jvcl_d26.svg │ ├── jvcl_d26_x64.svg │ ├── jvcl_d27.svg │ ├── jvcl_d27_x64.svg │ ├── jvcl_d28.svg │ ├── jvcl_d28_x64.svg │ ├── jvcl_d29.svg │ ├── jvcl_d29_x64.svg │ ├── jvcl_d6.svg │ └── jvcl_d7.svg ├── common.js ├── jcl.js ├── jcl.md ├── jcl.mustache ├── jcl.xml ├── jvcl.js ├── jvcl.md ├── jvcl.mustache ├── jvcl.xml ├── package-lock.json └── package.json ├── ccnet ├── server │ ├── ccnet.config │ └── xsl │ │ ├── buildresults-jedi.xsl │ │ ├── jedi.xsl │ │ ├── jedi_all.xsl │ │ └── modifications-jedi.xsl └── webdashboard │ ├── dashboard.config │ └── xsl │ ├── buildresults-jedi.xsl │ ├── jedi.xsl │ └── jedi_all.xsl ├── helpsync ├── Diff │ ├── Demos │ │ ├── DiffDemo.dpr │ │ ├── DiffDemo.dproj │ │ ├── DiffDemo.res │ │ ├── DiffDemos.groupproj │ │ ├── DiffMainUnit.dfm │ │ ├── DiffMainUnit.pas │ │ ├── Merge3Demo.dpr │ │ ├── Merge3Demo.dproj │ │ ├── Merge3Demo.res │ │ ├── Merge3MainUnit.dfm │ │ ├── Merge3MainUnit.pas │ │ ├── MergeAfterDemo.dpr │ │ ├── MergeAfterDemo.dproj │ │ ├── MergeAfterDemo.res │ │ ├── MergeAfterMainUnit.dfm │ │ ├── MergeAfterMainUnit.pas │ │ ├── MergeBeforeMainUnit.dfm │ │ ├── MergeBeforeMainUnit.pas │ │ ├── MergeDemo.dpr │ │ ├── MergeDemo.dproj │ │ ├── MergeDemo.res │ │ ├── MergeMainUnit.dfm │ │ └── MergeMainUnit.pas │ ├── LICENSE.txt │ └── SimpleDiff.pas ├── DocOMaticTools │ ├── DoxSettings.pas │ ├── vcllinks │ │ └── VCLLinks.dpr │ └── xmllinks │ │ └── XMLLinks.dpr └── MediaWikiApi │ ├── Demos │ ├── DeleteMainUnit.dfm │ ├── DeleteMainUnit.pas │ ├── DeleteProject.dpr │ ├── DeleteProject.dproj │ ├── DeleteProject.res │ ├── DeleteRevisionMainUnit.dfm │ ├── DeleteRevisionMainUnit.pas │ ├── DeleteRevisionProject.dpr │ ├── DeleteRevisionProject.dproj │ ├── DeleteRevisionProject.res │ ├── EditMainUnit.dfm │ ├── EditMainUnit.pas │ ├── EditProject.dpr │ ├── EditProject.dproj │ ├── EditProject.res │ ├── MediaWikiDemos.groupproj │ ├── MoveMainUnit.dfm │ ├── MoveMainUnit.pas │ ├── MoveProject.dpr │ ├── MoveProject.dproj │ ├── MoveProject.res │ ├── QueryAllCategoriesMainUnit.dfm │ ├── QueryAllCategoriesMainUnit.pas │ ├── QueryAllCategoriesProject.dpr │ ├── QueryAllCategoriesProject.dproj │ ├── QueryAllCategoriesProject.res │ ├── QueryAllPagesMainUnit.dfm │ ├── QueryAllPagesMainUnit.pas │ ├── QueryAllPagesProject.dpr │ ├── QueryAllPagesProject.dproj │ ├── QueryAllPagesProject.res │ ├── QueryAllUsersMainUnit.dfm │ ├── QueryAllUsersMainUnit.pas │ ├── QueryAllUsersProject.dpr │ ├── QueryAllUsersProject.dproj │ ├── QueryAllUsersProject.res │ ├── QueryBackLinksMainUnit.dfm │ ├── QueryBackLinksMainUnit.pas │ ├── QueryBackLinksProject.dpr │ ├── QueryBackLinksProject.dproj │ ├── QueryBackLinksProject.res │ ├── QueryBlocksMainUnit.dfm │ ├── QueryBlocksMainUnit.pas │ ├── QueryBlocksProject.dpr │ ├── QueryBlocksProject.dproj │ ├── QueryBlocksProject.res │ ├── QueryCategoryMembersMainUnit.dfm │ ├── QueryCategoryMembersMainUnit.pas │ ├── QueryCategoryMembersProject.dpr │ ├── QueryCategoryMembersProject.dproj │ ├── QueryCategoryMembersProject.res │ ├── QueryPageBackLinkInfosMainUnit.dfm │ ├── QueryPageBackLinkInfosMainUnit.pas │ ├── QueryPageBackLinkInfosProject.dpr │ ├── QueryPageBackLinkInfosProject.dproj │ ├── QueryPageBackLinkInfosProject.res │ ├── QueryPageCategoryInfosMainUnit.dfm │ ├── QueryPageCategoryInfosMainUnit.pas │ ├── QueryPageCategoryInfosProject.dpr │ ├── QueryPageCategoryInfosProject.dproj │ ├── QueryPageCategoryInfosProject.res │ ├── QueryPageExternalLinkInfosMainUnit.dfm │ ├── QueryPageExternalLinkInfosMainUnit.pas │ ├── QueryPageExternalLinkInfosProject.dpr │ ├── QueryPageExternalLinkInfosProject.dproj │ ├── QueryPageExternalLinkInfosProject.res │ ├── QueryPageInfosMainUnit.dfm │ ├── QueryPageInfosMainUnit.pas │ ├── QueryPageInfosProject.dpr │ ├── QueryPageInfosProject.dproj │ ├── QueryPageInfosProject.res │ ├── QueryPageLinkInfosMainUnit.dfm │ ├── QueryPageLinkInfosMainUnit.pas │ ├── QueryPageLinkInfosProject.dpr │ ├── QueryPageLinkInfosProject.dproj │ ├── QueryPageLinkInfosProject.res │ ├── QueryPageTemplateInfosMainUnit.dfm │ ├── QueryPageTemplateInfosMainUnit.pas │ ├── QueryPageTemplateInfosProject.dpr │ ├── QueryPageTemplateInfosProject.dproj │ ├── QueryPageTemplateInfosProject.res │ ├── QuerySiteInfoDBReplLagMainUnit.dfm │ ├── QuerySiteInfoDBReplLagMainUnit.pas │ ├── QuerySiteInfoDBReplLagProject.dpr │ ├── QuerySiteInfoDBReplLagProject.dproj │ ├── QuerySiteInfoDBReplLagProject.res │ ├── QuerySiteInfoExtensionsMainUnit.dfm │ ├── QuerySiteInfoExtensionsMainUnit.pas │ ├── QuerySiteInfoExtensionsProject.dpr │ ├── QuerySiteInfoExtensionsProject.dproj │ ├── QuerySiteInfoExtensionsProject.res │ ├── QuerySiteInfoGeneralMainUnit.dfm │ ├── QuerySiteInfoGeneralMainUnit.pas │ ├── QuerySiteInfoGeneralProject.dpr │ ├── QuerySiteInfoGeneralProject.dproj │ ├── QuerySiteInfoGeneralProject.res │ ├── QuerySiteInfoInterWikiMapMainUnit.dfm │ ├── QuerySiteInfoInterWikiMapMainUnit.pas │ ├── QuerySiteInfoInterWikiMapProject.dpr │ ├── QuerySiteInfoInterWikiMapProject.dproj │ ├── QuerySiteInfoInterWikiMapProject.res │ ├── QuerySiteInfoMagicWordsMainUnit.dfm │ ├── QuerySiteInfoMagicWordsMainUnit.pas │ ├── QuerySiteInfoMagicWordsProject.dpr │ ├── QuerySiteInfoMagicWordsProject.dproj │ ├── QuerySiteInfoMagicWordsProject.res │ ├── QuerySiteInfoNamespaceAliasesMainUnit.dfm │ ├── QuerySiteInfoNamespaceAliasesMainUnit.pas │ ├── QuerySiteInfoNamespaceAliasesProject.dpr │ ├── QuerySiteInfoNamespaceAliasesProject.dproj │ ├── QuerySiteInfoNamespaceAliasesProject.res │ ├── QuerySiteInfoNamespacesMainUnit.dfm │ ├── QuerySiteInfoNamespacesMainUnit.pas │ ├── QuerySiteInfoNamespacesProject.dpr │ ├── QuerySiteInfoNamespacesProject.dproj │ ├── QuerySiteInfoNamespacesProject.res │ ├── QuerySiteInfoSpecialPageAliasesMainUnit.dfm │ ├── QuerySiteInfoSpecialPageAliasesMainUnit.pas │ ├── QuerySiteInfoSpecialPageAliasesProject.dpr │ ├── QuerySiteInfoSpecialPageAliasesProject.dproj │ ├── QuerySiteInfoSpecialPageAliasesProject.res │ ├── QuerySiteInfoStatisticsMainUnit.dfm │ ├── QuerySiteInfoStatisticsMainUnit.pas │ ├── QuerySiteInfoStatisticsProject.dpr │ ├── QuerySiteInfoStatisticsProject.dproj │ ├── QuerySiteInfoStatisticsProject.res │ ├── QuerySiteInfoUserGroupsMainUnit.dfm │ ├── QuerySiteInfoUserGroupsMainUnit.pas │ ├── QuerySiteInfoUserGroupsProject.dpr │ ├── QuerySiteInfoUserGroupsProject.dproj │ ├── QuerySiteInfoUserGroupsProject.res │ ├── QueryUserInfoBlockInfoMainUnit.dfm │ ├── QueryUserInfoBlockInfoMainUnit.pas │ ├── QueryUserInfoBlockInfoProject.dpr │ ├── QueryUserInfoBlockInfoProject.dproj │ ├── QueryUserInfoBlockInfoProject.res │ ├── QueryUserInfoChangeableGroupsMainUnit.dfm │ ├── QueryUserInfoChangeableGroupsMainUnit.pas │ ├── QueryUserInfoChangeableGroupsProject.dpr │ ├── QueryUserInfoChangeableGroupsProject.dproj │ ├── QueryUserInfoChangeableGroupsProject.res │ ├── QueryUserInfoGroupsMainUnit.dfm │ ├── QueryUserInfoGroupsMainUnit.pas │ ├── QueryUserInfoGroupsProject.dpr │ ├── QueryUserInfoGroupsProject.dproj │ ├── QueryUserInfoGroupsProject.res │ ├── QueryUserInfoOptionsMainUnit.dfm │ ├── QueryUserInfoOptionsMainUnit.pas │ ├── QueryUserInfoOptionsProject.dpr │ ├── QueryUserInfoOptionsProject.dproj │ ├── QueryUserInfoOptionsProject.res │ ├── QueryUserInfoRateLimitsMainUnit.dfm │ ├── QueryUserInfoRateLimitsMainUnit.pas │ ├── QueryUserInfoRateLimitsProject.dpr │ ├── QueryUserInfoRateLimitsProject.dproj │ ├── QueryUserInfoRateLimitsProject.res │ ├── QueryUserInfoRightsMainUnit.dfm │ ├── QueryUserInfoRightsMainUnit.pas │ ├── QueryUserInfoRightsProject.dpr │ ├── QueryUserInfoRightsProject.dproj │ ├── QueryUserInfoRightsProject.res │ ├── UploadFileProject.dpr │ ├── UploadFileProject.dproj │ ├── UploadFileProject.res │ ├── UploadMainUnit.dfm │ ├── UploadMainUnit.pas │ ├── UserMergeMainUnit.dfm │ └── UserMergeMainUnit.pas │ ├── LICENSE.txt │ ├── MediaWikiApi.pas │ └── MediaWikiUtils.pas └── shared ├── code formatter └── Formatter_Jedi.config └── help ├── JEDI.dox ├── Make CHM Help.bat ├── Make H2 Help.bat ├── Make HTML Help.bat ├── Make PDF Help.bat ├── Make WINHELP Help.bat ├── Make Xml Help.bat ├── jedi.dtx └── kylix.dtx /.github/workflows/build_results_base.yml: -------------------------------------------------------------------------------- 1 | run-name: Build ${{ inputs.base_name }} badges 2 | 3 | on: 4 | workflow_call: 5 | inputs: 6 | base_name: 7 | required: true 8 | type: string 9 | 10 | jobs: 11 | badges: 12 | runs-on: ubuntu-latest 13 | defaults: 14 | run: 15 | working-directory: ./build_results 16 | 17 | permissions: 18 | # Give the default GITHUB_TOKEN write permission to commit and push the 19 | # added or changed files to the repository. 20 | contents: write 21 | 22 | steps: 23 | - name: Checkout current repository to Master branch 24 | uses: actions/checkout@v3 25 | - name: Setup NodeJs 16.x 26 | uses: actions/setup-node@v3 27 | with: 28 | node-version: '16.x' 29 | cache: 'npm' 30 | cache-dependency-path: build_results/package-lock.json 31 | #- name: Cache dependencies and build outputs to improve workflow execution time. 32 | # uses: actions/cache@v3 33 | # with: 34 | # path: node_modules 35 | # key: ${{ runner.os }}-js-${{ hashFiles('package-lock.json') }} 36 | - name: Install dependencies 37 | run: npm install 38 | - name: Generate badges file 39 | run: node ${{ inputs.base_name }}.js 40 | # Commit all changed files back to the repository 41 | - uses: stefanzweifel/git-auto-commit-action@v4 42 | with: 43 | commit_message: Automated badges generation 44 | file_pattern: 'build_results/*.md build_results/badges/*.svg' 45 | -------------------------------------------------------------------------------- /.github/workflows/build_results_jcl.yml: -------------------------------------------------------------------------------- 1 | name: Update JCL badges 2 | 3 | on: 4 | push: 5 | branches: master 6 | paths: 7 | - 'build_results/jcl.xml' 8 | workflow_dispatch: 9 | 10 | jobs: 11 | jcl_badges: 12 | uses: ./.github/workflows/build_results_base.yml 13 | with: 14 | base_name: jcl 15 | -------------------------------------------------------------------------------- /.github/workflows/build_results_jvcl.yml: -------------------------------------------------------------------------------- 1 | name: Update JVCL badges 2 | 3 | on: 4 | push: 5 | branches: master 6 | paths: 7 | - 'build_results/jvcl.xml' 8 | workflow_dispatch: 9 | 10 | jobs: 11 | jvcl_badges: 12 | uses: ./.github/workflows/build_results_base.yml 13 | with: 14 | base_name: jvcl 15 | -------------------------------------------------------------------------------- /build_results/.gitignore: -------------------------------------------------------------------------------- 1 | /node_modules 2 | -------------------------------------------------------------------------------- /build_results/.vscode/settings.json: -------------------------------------------------------------------------------- 1 | { 2 | "cSpell.words": [ 3 | "badgen", 4 | "jvcl" 5 | ] 6 | } -------------------------------------------------------------------------------- /build_results/all.js: -------------------------------------------------------------------------------- 1 | const jcl = require("./jcl"); 2 | const jvcl = require("./jvcl"); 3 | -------------------------------------------------------------------------------- /build_results/badges/jcl.svg: -------------------------------------------------------------------------------- 1 | 2 | JCL: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jcl_c6.svg: -------------------------------------------------------------------------------- 1 | 2 | C++Builder 6: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jcl_d10.svg: -------------------------------------------------------------------------------- 1 | 2 | Borland Developer Studio 2006: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jcl_d11.svg: -------------------------------------------------------------------------------- 1 | 2 | RAD Studio 2007: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jcl_d12.svg: -------------------------------------------------------------------------------- 1 | 2 | RAD Studio 2009: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jcl_d14.svg: -------------------------------------------------------------------------------- 1 | 2 | RAD Studio 2010: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jcl_d15.svg: -------------------------------------------------------------------------------- 1 | 2 | RAD Studio XE: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jcl_d16.svg: -------------------------------------------------------------------------------- 1 | 2 | RAD Studio XE2 32 bit: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jcl_d16_x64.svg: -------------------------------------------------------------------------------- 1 | 2 | RAD Studio XE2 64 bit: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jcl_d17.svg: -------------------------------------------------------------------------------- 1 | 2 | RAD Studio XE3 32 bit: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jcl_d17_x64.svg: -------------------------------------------------------------------------------- 1 | 2 | RAD Studio XE3 64 bit: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jcl_d18.svg: -------------------------------------------------------------------------------- 1 | 2 | RAD Studio XE4 32 bit: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jcl_d18_x64.svg: -------------------------------------------------------------------------------- 1 | 2 | RAD Studio XE4 64 bit: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jcl_d19.svg: -------------------------------------------------------------------------------- 1 | 2 | RAD Studio XE5 32 bit: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jcl_d19_x64.svg: -------------------------------------------------------------------------------- 1 | 2 | RAD Studio XE5 64 bit: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jcl_d20.svg: -------------------------------------------------------------------------------- 1 | 2 | RAD Studio XE6 32 bit: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jcl_d20_x64.svg: -------------------------------------------------------------------------------- 1 | 2 | RAD Studio XE6 64 bit: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jcl_d21.svg: -------------------------------------------------------------------------------- 1 | 2 | RAD Studio XE7 32 bit: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jcl_d21_x64.svg: -------------------------------------------------------------------------------- 1 | 2 | RAD Studio XE7 64 bit: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jcl_d22.svg: -------------------------------------------------------------------------------- 1 | 2 | RAD Studio XE8 32 bit: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jcl_d22_x64.svg: -------------------------------------------------------------------------------- 1 | 2 | RAD Studio XE8 64 bit: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jcl_d23.svg: -------------------------------------------------------------------------------- 1 | 2 | RAD Studio 10 32 bit: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jcl_d23_x64.svg: -------------------------------------------------------------------------------- 1 | 2 | RAD Studio 10 64 bit: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jcl_d24.svg: -------------------------------------------------------------------------------- 1 | 2 | RAD Studio 10.1 32 bit: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jcl_d24_x64.svg: -------------------------------------------------------------------------------- 1 | 2 | RAD Studio 10.1 64 bit: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jcl_d25.svg: -------------------------------------------------------------------------------- 1 | 2 | RAD Studio 10.2 32 bit: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jcl_d25_x64.svg: -------------------------------------------------------------------------------- 1 | 2 | RAD Studio 10.2 64 bit: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jcl_d26.svg: -------------------------------------------------------------------------------- 1 | 2 | RAD Studio 10.3 32 bit: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jcl_d26_x64.svg: -------------------------------------------------------------------------------- 1 | 2 | RAD Studio 10.3 64 bit: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jcl_d27.svg: -------------------------------------------------------------------------------- 1 | 2 | RAD Studio 10.4 32 bit: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jcl_d27_x64.svg: -------------------------------------------------------------------------------- 1 | 2 | RAD Studio 10.4 64 bit: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jcl_d28.svg: -------------------------------------------------------------------------------- 1 | 2 | RAD Studio 11 32 bit: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jcl_d28_x64.svg: -------------------------------------------------------------------------------- 1 | 2 | RAD Studio 11 64 bit: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jcl_d29.svg: -------------------------------------------------------------------------------- 1 | 2 | RAD Studio 12 32 bit: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jcl_d29_x64.svg: -------------------------------------------------------------------------------- 1 | 2 | RAD Studio 12 64 bit: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jcl_d6.svg: -------------------------------------------------------------------------------- 1 | 2 | Delphi 6: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jcl_d7.svg: -------------------------------------------------------------------------------- 1 | 2 | Delphi 7: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jvcl.svg: -------------------------------------------------------------------------------- 1 | 2 | JVCL: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jvcl_c6.svg: -------------------------------------------------------------------------------- 1 | 2 | C++Builder 6.0: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jvcl_d10.svg: -------------------------------------------------------------------------------- 1 | 2 | Borland Developer Studio 2006: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jvcl_d11.svg: -------------------------------------------------------------------------------- 1 | 2 | CodeGear RAD Studio 2007: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jvcl_d12.svg: -------------------------------------------------------------------------------- 1 | 2 | CodeGear RAD Studio 2009: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jvcl_d14.svg: -------------------------------------------------------------------------------- 1 | 2 | Embarcadero RAD Studio 2010: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jvcl_d15.svg: -------------------------------------------------------------------------------- 1 | 2 | Embarcadero RAD Studio XE: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jvcl_d16.svg: -------------------------------------------------------------------------------- 1 | 2 | Embarcadero RAD Studio XE2 Win32: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jvcl_d16_x64.svg: -------------------------------------------------------------------------------- 1 | 2 | Embarcadero RAD Studio XE2 Win64: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jvcl_d17.svg: -------------------------------------------------------------------------------- 1 | 2 | Embarcadero RAD Studio XE3 Win32: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jvcl_d17_x64.svg: -------------------------------------------------------------------------------- 1 | 2 | Embarcadero RAD Studio XE3 Win64: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jvcl_d18.svg: -------------------------------------------------------------------------------- 1 | 2 | Embarcadero RAD Studio XE4 Win32: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jvcl_d18_x64.svg: -------------------------------------------------------------------------------- 1 | 2 | Embarcadero RAD Studio XE4 Win64: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jvcl_d19.svg: -------------------------------------------------------------------------------- 1 | 2 | Embarcadero RAD Studio XE5 Win32: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jvcl_d19_x64.svg: -------------------------------------------------------------------------------- 1 | 2 | Embarcadero RAD Studio XE5 Win64: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jvcl_d20.svg: -------------------------------------------------------------------------------- 1 | 2 | Embarcadero RAD Studio XE6 Win32: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jvcl_d20_x64.svg: -------------------------------------------------------------------------------- 1 | 2 | Embarcadero RAD Studio XE6 Win64: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jvcl_d21.svg: -------------------------------------------------------------------------------- 1 | 2 | Embarcadero RAD Studio XE7 Win32: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jvcl_d21_x64.svg: -------------------------------------------------------------------------------- 1 | 2 | Embarcadero RAD Studio XE7 Win64: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jvcl_d22.svg: -------------------------------------------------------------------------------- 1 | 2 | Embarcadero RAD Studio XE8 Win32: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jvcl_d22_x64.svg: -------------------------------------------------------------------------------- 1 | 2 | Embarcadero RAD Studio XE8 Win64: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jvcl_d23.svg: -------------------------------------------------------------------------------- 1 | 2 | Embarcadero RAD Studio 10 Win32: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jvcl_d23_x64.svg: -------------------------------------------------------------------------------- 1 | 2 | Embarcadero RAD Studio 10 Win64: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jvcl_d24.svg: -------------------------------------------------------------------------------- 1 | 2 | Embarcadero RAD Studio 10.1 Win32: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jvcl_d24_x64.svg: -------------------------------------------------------------------------------- 1 | 2 | Embarcadero RAD Studio 10.1 Win64: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jvcl_d25.svg: -------------------------------------------------------------------------------- 1 | 2 | Embarcadero RAD Studio 10.2 Win32: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jvcl_d25_x64.svg: -------------------------------------------------------------------------------- 1 | 2 | Embarcadero RAD Studio 10.2 Win64: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jvcl_d26.svg: -------------------------------------------------------------------------------- 1 | 2 | Embarcadero RAD Studio 10.3 Win32: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jvcl_d26_x64.svg: -------------------------------------------------------------------------------- 1 | 2 | Embarcadero RAD Studio 10.3 Win64: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jvcl_d27.svg: -------------------------------------------------------------------------------- 1 | 2 | Embarcadero RAD Studio 10.4 Win32: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jvcl_d27_x64.svg: -------------------------------------------------------------------------------- 1 | 2 | Embarcadero RAD Studio 10.4 Win64: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jvcl_d28.svg: -------------------------------------------------------------------------------- 1 | 2 | Embarcadero RAD Studio 11 Win32: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jvcl_d28_x64.svg: -------------------------------------------------------------------------------- 1 | 2 | Embarcadero RAD Studio 11 Win64: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jvcl_d29.svg: -------------------------------------------------------------------------------- 1 | 2 | Embarcadero RAD Studio 12 Win32: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jvcl_d29_x64.svg: -------------------------------------------------------------------------------- 1 | 2 | Embarcadero RAD Studio 12 Win64: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jvcl_d6.svg: -------------------------------------------------------------------------------- 1 | 2 | Delphi 6.0: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/badges/jvcl_d7.svg: -------------------------------------------------------------------------------- 1 | 2 | Delphi 7.0: Success 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 19 | 20 | -------------------------------------------------------------------------------- /build_results/jcl.js: -------------------------------------------------------------------------------- 1 | const common = require("./common"); 2 | 3 | common.Process("jcl", "JclInstall", "jcl", "JCL"); -------------------------------------------------------------------------------- /build_results/jcl.mustache: -------------------------------------------------------------------------------- 1 | # JCL build results 2 | 3 | Generated {{generated}} 4 | 5 | {{#installations}} 6 |
7 | {{TargetName}} 8 | 9 | ``` 10 | {{{LogFile}}} 11 | ``` 12 | 13 |
14 | {{/installations}} -------------------------------------------------------------------------------- /build_results/jvcl.js: -------------------------------------------------------------------------------- 1 | const common = require("./common"); 2 | 3 | common.Process("jvcl", "JvclInstall", "jvcl", "JVCL"); -------------------------------------------------------------------------------- /build_results/jvcl.mustache: -------------------------------------------------------------------------------- 1 | # JVCL build results 2 | 3 | Generated {{generated}} 4 | 5 | {{#installations}} 6 | {{#LogFile}} 7 |
8 | {{TargetName}} 9 | 10 | ``` 11 | {{{LogFile}}} 12 | ``` 13 | 14 |
15 | {{/LogFile}} 16 | {{^LogFile}} 17 | {{TargetName}} 18 | {{/LogFile}} 19 | {{/installations}} -------------------------------------------------------------------------------- /build_results/package.json: -------------------------------------------------------------------------------- 1 | { 2 | "name": "project-jedi-badges", 3 | "version": "0.0.0", 4 | "main": "all.js", 5 | "author": "Olivier Sannier", 6 | "license": "MPL", 7 | "dependencies": 8 | { 9 | "badgen": "^3.2.2", 10 | "fast-xml-parser": "^4.4.1", 11 | "mustache": "^4.2.0" 12 | } 13 | } -------------------------------------------------------------------------------- /ccnet/server/xsl/buildresults-jedi.xsl: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 15 | 16 |
12 | 13 | Execution result 14 |
17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | -------------------------------------------------------------------------------- /ccnet/server/xsl/jedi_all.xsl: -------------------------------------------------------------------------------- 1 |  2 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | JCL 17 | 18 | 19 | 20 | 21 | 22 | JCL 23 | 24 | 25 | 26 | 27 | 28 | JVCL 29 | 30 | 31 | 32 | 33 | 34 | JVCL 35 | 36 | 37 | -------------------------------------------------------------------------------- /ccnet/webdashboard/dashboard.config: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | xsl\header.xsl 28 | xsl\jedi_all.xsl 29 | xsl\buildresults-jedi.xsl 30 | xsl\modifications.xsl 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | -------------------------------------------------------------------------------- /ccnet/webdashboard/xsl/buildresults-jedi.xsl: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 15 | 16 |
12 | 13 | Execution result 14 |
17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | -------------------------------------------------------------------------------- /ccnet/webdashboard/xsl/jedi_all.xsl: -------------------------------------------------------------------------------- 1 |  2 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | JCL 17 | 18 | 19 | 20 | 21 | 22 | JCL 23 | 24 | 25 | 26 | 27 | 28 | JVCL 29 | 30 | 31 | 32 | 33 | 34 | JVCL 35 | 36 | 37 | -------------------------------------------------------------------------------- /helpsync/Diff/Demos/DiffDemo.dpr: -------------------------------------------------------------------------------- 1 | program DiffDemo; 2 | 3 | uses 4 | Forms, 5 | SimpleDiff in '..\SimpleDiff.pas', 6 | DiffMainUnit in 'DiffMainUnit.pas' {FormMain}; 7 | 8 | {$R *.res} 9 | 10 | begin 11 | Application.Initialize; 12 | Application.MainFormOnTaskbar := True; 13 | Application.CreateForm(TFormMain, FormMain); 14 | Application.Run; 15 | end. 16 | 17 | -------------------------------------------------------------------------------- /helpsync/Diff/Demos/DiffDemo.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/ac3b5c187af2ae0897ecaae7aaa9c47909bca561/helpsync/Diff/Demos/DiffDemo.res -------------------------------------------------------------------------------- /helpsync/Diff/Demos/Merge3Demo.dpr: -------------------------------------------------------------------------------- 1 | program Merge3Demo; 2 | 3 | uses 4 | Forms, 5 | SimpleDiff in '..\SimpleDiff.pas', 6 | Merge3MainUnit in 'Merge3MainUnit.pas' {FormMain}; 7 | 8 | {$R *.res} 9 | 10 | begin 11 | Application.Initialize; 12 | Application.MainFormOnTaskbar := True; 13 | Application.CreateForm(TFormMain, FormMain); 14 | Application.Run; 15 | end. 16 | 17 | -------------------------------------------------------------------------------- /helpsync/Diff/Demos/Merge3Demo.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/ac3b5c187af2ae0897ecaae7aaa9c47909bca561/helpsync/Diff/Demos/Merge3Demo.res -------------------------------------------------------------------------------- /helpsync/Diff/Demos/MergeAfterDemo.dpr: -------------------------------------------------------------------------------- 1 | program MergeAfterDemo; 2 | 3 | uses 4 | Forms, 5 | SimpleDiff in '..\SimpleDiff.pas', 6 | MergeAfterMainUnit in 'MergeAfterMainUnit.pas' {FormMain}; 7 | 8 | {$R *.res} 9 | 10 | begin 11 | Application.Initialize; 12 | Application.MainFormOnTaskbar := True; 13 | Application.CreateForm(TFormMain, FormMain); 14 | Application.Run; 15 | end. 16 | 17 | -------------------------------------------------------------------------------- /helpsync/Diff/Demos/MergeAfterDemo.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/ac3b5c187af2ae0897ecaae7aaa9c47909bca561/helpsync/Diff/Demos/MergeAfterDemo.res -------------------------------------------------------------------------------- /helpsync/Diff/Demos/MergeDemo.dpr: -------------------------------------------------------------------------------- 1 | program MergeDemo; 2 | 3 | uses 4 | Forms, 5 | MergeMainUnit in 'MergeMainUnit.pas' {FormMain}, 6 | SimpleDiff in '..\SimpleDiff.pas'; 7 | 8 | {$R *.res} 9 | 10 | begin 11 | Application.Initialize; 12 | Application.MainFormOnTaskbar := True; 13 | Application.CreateForm(TFormMain, FormMain); 14 | Application.Run; 15 | end. 16 | 17 | -------------------------------------------------------------------------------- /helpsync/Diff/Demos/MergeDemo.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/ac3b5c187af2ae0897ecaae7aaa9c47909bca561/helpsync/Diff/Demos/MergeDemo.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/DeleteProject.dpr: -------------------------------------------------------------------------------- 1 | program DeleteProject; 2 | 3 | uses 4 | Forms, 5 | DeleteMainUnit in 'DeleteMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/DeleteProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/ac3b5c187af2ae0897ecaae7aaa9c47909bca561/helpsync/MediaWikiApi/Demos/DeleteProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/DeleteRevisionProject.dpr: -------------------------------------------------------------------------------- 1 | program DeleteRevisionProject; 2 | 3 | uses 4 | Forms, 5 | DeleteRevisionMainUnit in 'DeleteRevisionMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/DeleteRevisionProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/ac3b5c187af2ae0897ecaae7aaa9c47909bca561/helpsync/MediaWikiApi/Demos/DeleteRevisionProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/EditProject.dpr: -------------------------------------------------------------------------------- 1 | program EditProject; 2 | 3 | uses 4 | Forms, 5 | EditMainUnit in 'EditMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/EditProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/ac3b5c187af2ae0897ecaae7aaa9c47909bca561/helpsync/MediaWikiApi/Demos/EditProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/MoveProject.dpr: -------------------------------------------------------------------------------- 1 | program MoveProject; 2 | 3 | uses 4 | Forms, 5 | MoveMainUnit in 'MoveMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/MoveProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/ac3b5c187af2ae0897ecaae7aaa9c47909bca561/helpsync/MediaWikiApi/Demos/MoveProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryAllCategoriesMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object LabelMaxCategories: TLabel 19 | Left = 335 20 | Top = 73 21 | Width = 79 22 | Height = 13 23 | Caption = '&Max Categories:' 24 | FocusControl = EditMaxCategories 25 | end 26 | object LabelStartCategory: TLabel 27 | Left = 335 28 | Top = 100 29 | Width = 28 30 | Height = 13 31 | Caption = '&Start:' 32 | end 33 | object MemoResult: TMemo 34 | Left = 16 35 | Top = 8 36 | Width = 297 37 | Height = 273 38 | ReadOnly = True 39 | TabOrder = 0 40 | end 41 | object ButtonQueryAsync: TButton 42 | Left = 336 43 | Top = 8 44 | Width = 97 45 | Height = 25 46 | Caption = 'Async Query' 47 | TabOrder = 1 48 | OnClick = ButtonQueryAsyncClick 49 | end 50 | object ButtonQuerySync: TButton 51 | Left = 336 52 | Top = 39 53 | Width = 97 54 | Height = 25 55 | Caption = 'Sync Query' 56 | TabOrder = 2 57 | OnClick = ButtonQuerySyncClick 58 | end 59 | object EditMaxCategories: TEdit 60 | Left = 400 61 | Top = 70 62 | Width = 33 63 | Height = 21 64 | TabOrder = 3 65 | Text = '10' 66 | end 67 | object EditStartCategory: TEdit 68 | Left = 376 69 | Top = 97 70 | Width = 57 71 | Height = 21 72 | Font.Charset = DEFAULT_CHARSET 73 | Font.Color = clBtnFace 74 | Font.Height = -11 75 | Font.Name = 'Tahoma' 76 | Font.Style = [] 77 | ParentFont = False 78 | ReadOnly = True 79 | TabOrder = 4 80 | end 81 | end 82 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryAllCategoriesProject.dpr: -------------------------------------------------------------------------------- 1 | program QueryAllCategoriesProject; 2 | 3 | uses 4 | Forms, 5 | QueryAllCategoriesMainUnit in 'QueryAllCategoriesMainUnit.pas' {MainForm}, 6 | MediaWikiApi in '..\MediaWikiApi.pas', 7 | MediaWikiUtils in '..\MediaWikiUtils.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryAllCategoriesProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/ac3b5c187af2ae0897ecaae7aaa9c47909bca561/helpsync/MediaWikiApi/Demos/QueryAllCategoriesProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryAllPagesMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object LabelMaxPages: TLabel 19 | Left = 335 20 | Top = 73 21 | Width = 56 22 | Height = 13 23 | Caption = '&Max Pages:' 24 | FocusControl = EditMaxPages 25 | end 26 | object LabelStartPage: TLabel 27 | Left = 335 28 | Top = 100 29 | Width = 28 30 | Height = 13 31 | Caption = '&Start:' 32 | end 33 | object MemoResult: TMemo 34 | Left = 16 35 | Top = 8 36 | Width = 297 37 | Height = 273 38 | ReadOnly = True 39 | TabOrder = 0 40 | end 41 | object ButtonQueryAsync: TButton 42 | Left = 336 43 | Top = 8 44 | Width = 97 45 | Height = 25 46 | Caption = 'Async Query' 47 | TabOrder = 1 48 | OnClick = ButtonQueryAsyncClick 49 | end 50 | object ButtonQuerySync: TButton 51 | Left = 336 52 | Top = 39 53 | Width = 97 54 | Height = 25 55 | Caption = 'Sync Query' 56 | TabOrder = 2 57 | OnClick = ButtonQuerySyncClick 58 | end 59 | object EditMaxPages: TEdit 60 | Left = 400 61 | Top = 70 62 | Width = 33 63 | Height = 21 64 | TabOrder = 3 65 | Text = '10' 66 | end 67 | object EditStartPage: TEdit 68 | Left = 376 69 | Top = 97 70 | Width = 57 71 | Height = 21 72 | Font.Charset = DEFAULT_CHARSET 73 | Font.Color = clBtnFace 74 | Font.Height = -11 75 | Font.Name = 'Tahoma' 76 | Font.Style = [] 77 | ParentFont = False 78 | ReadOnly = True 79 | TabOrder = 4 80 | end 81 | end 82 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryAllPagesProject.dpr: -------------------------------------------------------------------------------- 1 | program QueryAllPagesProject; 2 | 3 | uses 4 | Forms, 5 | QueryAllPagesMainUnit in 'QueryAllPagesMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryAllPagesProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/ac3b5c187af2ae0897ecaae7aaa9c47909bca561/helpsync/MediaWikiApi/Demos/QueryAllPagesProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryAllUsersMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object LabelMaxUsers: TLabel 19 | Left = 335 20 | Top = 73 21 | Width = 54 22 | Height = 13 23 | Caption = '&Max Users:' 24 | FocusControl = EditMaxUsers 25 | end 26 | object LabelStartUser: TLabel 27 | Left = 335 28 | Top = 100 29 | Width = 28 30 | Height = 13 31 | Caption = '&Start:' 32 | end 33 | object MemoResult: TMemo 34 | Left = 16 35 | Top = 8 36 | Width = 297 37 | Height = 273 38 | ReadOnly = True 39 | TabOrder = 0 40 | end 41 | object ButtonQueryAsync: TButton 42 | Left = 336 43 | Top = 8 44 | Width = 97 45 | Height = 25 46 | Caption = 'Async Query' 47 | TabOrder = 1 48 | OnClick = ButtonQueryAsyncClick 49 | end 50 | object ButtonQuerySync: TButton 51 | Left = 336 52 | Top = 39 53 | Width = 97 54 | Height = 25 55 | Caption = 'Sync Query' 56 | TabOrder = 2 57 | OnClick = ButtonQuerySyncClick 58 | end 59 | object EditMaxUsers: TEdit 60 | Left = 400 61 | Top = 70 62 | Width = 33 63 | Height = 21 64 | TabOrder = 3 65 | Text = '10' 66 | end 67 | object EditStartUser: TEdit 68 | Left = 376 69 | Top = 97 70 | Width = 57 71 | Height = 21 72 | Font.Charset = DEFAULT_CHARSET 73 | Font.Color = clBtnFace 74 | Font.Height = -11 75 | Font.Name = 'Tahoma' 76 | Font.Style = [] 77 | ParentFont = False 78 | ReadOnly = True 79 | TabOrder = 4 80 | end 81 | end 82 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryAllUsersProject.dpr: -------------------------------------------------------------------------------- 1 | program QueryAllUsersProject; 2 | 3 | uses 4 | Forms, 5 | QueryAllUsersMainUnit in 'QueryAllUsersMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryAllUsersProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/ac3b5c187af2ae0897ecaae7aaa9c47909bca561/helpsync/MediaWikiApi/Demos/QueryAllUsersProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryBackLinksMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object LabelMaxLinks: TLabel 19 | Left = 335 20 | Top = 100 21 | Width = 50 22 | Height = 13 23 | Caption = '&Max Links:' 24 | FocusControl = EditMaxLinks 25 | end 26 | object LabelStartLink: TLabel 27 | Left = 335 28 | Top = 127 29 | Width = 28 30 | Height = 13 31 | Caption = '&Start:' 32 | end 33 | object LabelPageTitle: TLabel 34 | Left = 333 35 | Top = 73 36 | Width = 51 37 | Height = 13 38 | Caption = '&Page Title:' 39 | end 40 | object MemoResult: TMemo 41 | Left = 16 42 | Top = 8 43 | Width = 297 44 | Height = 273 45 | ReadOnly = True 46 | TabOrder = 0 47 | end 48 | object ButtonQueryAsync: TButton 49 | Left = 336 50 | Top = 8 51 | Width = 97 52 | Height = 25 53 | Caption = 'Async Query' 54 | TabOrder = 1 55 | OnClick = ButtonQueryAsyncClick 56 | end 57 | object ButtonQuerySync: TButton 58 | Left = 336 59 | Top = 39 60 | Width = 97 61 | Height = 25 62 | Caption = 'Sync Query' 63 | TabOrder = 2 64 | OnClick = ButtonQuerySyncClick 65 | end 66 | object EditMaxLinks: TEdit 67 | Left = 400 68 | Top = 97 69 | Width = 33 70 | Height = 21 71 | TabOrder = 3 72 | Text = '10' 73 | end 74 | object EditStartLink: TEdit 75 | Left = 376 76 | Top = 124 77 | Width = 57 78 | Height = 21 79 | Font.Charset = DEFAULT_CHARSET 80 | Font.Color = clBtnFace 81 | Font.Height = -11 82 | Font.Name = 'Tahoma' 83 | Font.Style = [] 84 | ParentFont = False 85 | ReadOnly = True 86 | TabOrder = 4 87 | end 88 | object EditPageTitle: TEdit 89 | Left = 390 90 | Top = 70 91 | Width = 43 92 | Height = 21 93 | TabOrder = 5 94 | Text = 'JEDI_Code_Library' 95 | end 96 | end 97 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryBackLinksProject.dpr: -------------------------------------------------------------------------------- 1 | program QueryBackLinksProject; 2 | 3 | uses 4 | Forms, 5 | QueryBackLinksMainUnit in 'QueryBackLinksMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryBackLinksProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/ac3b5c187af2ae0897ecaae7aaa9c47909bca561/helpsync/MediaWikiApi/Demos/QueryBackLinksProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryBlocksMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object LabelMaxBlocks: TLabel 19 | Left = 335 20 | Top = 100 21 | Width = 56 22 | Height = 13 23 | Caption = '&Max Blocks:' 24 | FocusControl = EditMaxBlocks 25 | end 26 | object LabelStartBlock: TLabel 27 | Left = 335 28 | Top = 127 29 | Width = 28 30 | Height = 13 31 | Caption = '&Start:' 32 | end 33 | object MemoResult: TMemo 34 | Left = 16 35 | Top = 8 36 | Width = 297 37 | Height = 273 38 | ReadOnly = True 39 | TabOrder = 0 40 | end 41 | object ButtonQueryAsync: TButton 42 | Left = 336 43 | Top = 8 44 | Width = 97 45 | Height = 25 46 | Caption = 'Async Query' 47 | TabOrder = 1 48 | OnClick = ButtonQueryAsyncClick 49 | end 50 | object ButtonQuerySync: TButton 51 | Left = 336 52 | Top = 39 53 | Width = 97 54 | Height = 25 55 | Caption = 'Sync Query' 56 | TabOrder = 2 57 | OnClick = ButtonQuerySyncClick 58 | end 59 | object EditMaxBlocks: TEdit 60 | Left = 400 61 | Top = 97 62 | Width = 33 63 | Height = 21 64 | TabOrder = 3 65 | Text = '10' 66 | end 67 | object EditStartBlock: TEdit 68 | Left = 376 69 | Top = 124 70 | Width = 57 71 | Height = 21 72 | Font.Charset = DEFAULT_CHARSET 73 | Font.Color = clBtnFace 74 | Font.Height = -11 75 | Font.Name = 'Tahoma' 76 | Font.Style = [] 77 | ParentFont = False 78 | ReadOnly = True 79 | TabOrder = 4 80 | end 81 | end 82 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryBlocksProject.dpr: -------------------------------------------------------------------------------- 1 | program QueryBlocksProject; 2 | 3 | uses 4 | Forms, 5 | QueryBlocksMainUnit in 'QueryBlocksMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryBlocksProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/ac3b5c187af2ae0897ecaae7aaa9c47909bca561/helpsync/MediaWikiApi/Demos/QueryBlocksProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryCategoryMembersMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object LabelMaxCategoryMembers: TLabel 19 | Left = 335 20 | Top = 100 21 | Width = 70 22 | Height = 13 23 | Caption = '&Max Members:' 24 | FocusControl = EditMaxCategoryMembers 25 | end 26 | object LabelStartCategoryMember: TLabel 27 | Left = 335 28 | Top = 127 29 | Width = 28 30 | Height = 13 31 | Caption = '&Start:' 32 | end 33 | object LabelCategory: TLabel 34 | Left = 335 35 | Top = 73 36 | Width = 49 37 | Height = 13 38 | Caption = '&Category:' 39 | FocusControl = EditCategory 40 | end 41 | object MemoResult: TMemo 42 | Left = 16 43 | Top = 8 44 | Width = 297 45 | Height = 273 46 | ReadOnly = True 47 | TabOrder = 0 48 | end 49 | object ButtonQueryAsync: TButton 50 | Left = 336 51 | Top = 8 52 | Width = 97 53 | Height = 25 54 | Caption = 'Async Query' 55 | TabOrder = 1 56 | OnClick = ButtonQueryAsyncClick 57 | end 58 | object ButtonQuerySync: TButton 59 | Left = 336 60 | Top = 39 61 | Width = 97 62 | Height = 25 63 | Caption = 'Sync Query' 64 | TabOrder = 2 65 | OnClick = ButtonQuerySyncClick 66 | end 67 | object EditMaxCategoryMembers: TEdit 68 | Left = 400 69 | Top = 97 70 | Width = 33 71 | Height = 21 72 | TabOrder = 3 73 | Text = '10' 74 | end 75 | object EditStartCategoryMember: TEdit 76 | Left = 376 77 | Top = 124 78 | Width = 57 79 | Height = 21 80 | TabOrder = 4 81 | end 82 | object EditCategory: TEdit 83 | Left = 390 84 | Top = 70 85 | Width = 43 86 | Height = 21 87 | TabOrder = 5 88 | Text = 'Category:Template' 89 | end 90 | end 91 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryCategoryMembersProject.dpr: -------------------------------------------------------------------------------- 1 | program QueryCategoryMembersProject; 2 | 3 | uses 4 | Forms, 5 | QueryCategoryMembersMainUnit in 'QueryCategoryMembersMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryCategoryMembersProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/ac3b5c187af2ae0897ecaae7aaa9c47909bca561/helpsync/MediaWikiApi/Demos/QueryCategoryMembersProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryPageBackLinkInfosMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object LabelMaxLinks: TLabel 19 | Left = 335 20 | Top = 100 21 | Width = 50 22 | Height = 13 23 | Caption = '&Max Links:' 24 | FocusControl = EditMaxLinks 25 | end 26 | object LabelPage: TLabel 27 | Left = 335 28 | Top = 73 29 | Width = 28 30 | Height = 13 31 | Caption = '&Page:' 32 | end 33 | object LabelStartLink: TLabel 34 | Left = 335 35 | Top = 127 36 | Width = 28 37 | Height = 13 38 | Caption = '&Start:' 39 | FocusControl = EditStartLink 40 | end 41 | object MemoResult: TMemo 42 | Left = 16 43 | Top = 8 44 | Width = 297 45 | Height = 273 46 | ReadOnly = True 47 | TabOrder = 0 48 | end 49 | object ButtonQueryAsync: TButton 50 | Left = 336 51 | Top = 8 52 | Width = 97 53 | Height = 25 54 | Caption = 'Async Query' 55 | TabOrder = 1 56 | OnClick = ButtonQueryAsyncClick 57 | end 58 | object ButtonQuerySync: TButton 59 | Left = 336 60 | Top = 39 61 | Width = 97 62 | Height = 25 63 | Caption = 'Sync Query' 64 | TabOrder = 2 65 | OnClick = ButtonQuerySyncClick 66 | end 67 | object EditMaxLinks: TEdit 68 | Left = 400 69 | Top = 97 70 | Width = 33 71 | Height = 21 72 | TabOrder = 3 73 | Text = '10' 74 | end 75 | object EditPage: TEdit 76 | Left = 376 77 | Top = 70 78 | Width = 57 79 | Height = 21 80 | TabOrder = 4 81 | Text = 'JEDI_Code_Library' 82 | end 83 | object EditStartLink: TEdit 84 | Left = 376 85 | Top = 124 86 | Width = 57 87 | Height = 21 88 | Font.Charset = DEFAULT_CHARSET 89 | Font.Color = clBtnFace 90 | Font.Height = -11 91 | Font.Name = 'Tahoma' 92 | Font.Style = [] 93 | ParentFont = False 94 | ReadOnly = True 95 | TabOrder = 5 96 | end 97 | end 98 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryPageBackLinkInfosProject.dpr: -------------------------------------------------------------------------------- 1 | program QueryPageBackLinkInfosProject; 2 | 3 | uses 4 | Forms, 5 | QueryPageBackLinkInfosMainUnit in 'QueryPageBackLinkInfosMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryPageBackLinkInfosProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/ac3b5c187af2ae0897ecaae7aaa9c47909bca561/helpsync/MediaWikiApi/Demos/QueryPageBackLinkInfosProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryPageCategoryInfosMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object LabelMaxPages: TLabel 19 | Left = 335 20 | Top = 100 21 | Width = 79 22 | Height = 13 23 | Caption = '&Max Categories:' 24 | FocusControl = EditMaxCategories 25 | end 26 | object LabelPage: TLabel 27 | Left = 335 28 | Top = 73 29 | Width = 28 30 | Height = 13 31 | Caption = '&Page:' 32 | end 33 | object LabelStartCategory: TLabel 34 | Left = 335 35 | Top = 127 36 | Width = 28 37 | Height = 13 38 | Caption = '&Start:' 39 | FocusControl = EditStartCategory 40 | end 41 | object MemoResult: TMemo 42 | Left = 16 43 | Top = 8 44 | Width = 297 45 | Height = 273 46 | ReadOnly = True 47 | TabOrder = 0 48 | end 49 | object ButtonQueryAsync: TButton 50 | Left = 336 51 | Top = 8 52 | Width = 97 53 | Height = 25 54 | Caption = 'Async Query' 55 | TabOrder = 1 56 | OnClick = ButtonQueryAsyncClick 57 | end 58 | object ButtonQuerySync: TButton 59 | Left = 336 60 | Top = 39 61 | Width = 97 62 | Height = 25 63 | Caption = 'Sync Query' 64 | TabOrder = 2 65 | OnClick = ButtonQuerySyncClick 66 | end 67 | object EditMaxCategories: TEdit 68 | Left = 400 69 | Top = 97 70 | Width = 33 71 | Height = 21 72 | TabOrder = 3 73 | Text = '10' 74 | end 75 | object EditPage: TEdit 76 | Left = 376 77 | Top = 70 78 | Width = 57 79 | Height = 21 80 | TabOrder = 4 81 | Text = 'JEDI_Code_Library' 82 | end 83 | object EditStartCategory: TEdit 84 | Left = 376 85 | Top = 124 86 | Width = 57 87 | Height = 21 88 | Font.Charset = DEFAULT_CHARSET 89 | Font.Color = clBtnFace 90 | Font.Height = -11 91 | Font.Name = 'Tahoma' 92 | Font.Style = [] 93 | ParentFont = False 94 | ReadOnly = True 95 | TabOrder = 5 96 | end 97 | end 98 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryPageCategoryInfosProject.dpr: -------------------------------------------------------------------------------- 1 | program QueryPageCategoryInfosProject; 2 | 3 | uses 4 | Forms, 5 | QueryPageCategoryInfosMainUnit in 'QueryPageCategoryInfosMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryPageCategoryInfosProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/ac3b5c187af2ae0897ecaae7aaa9c47909bca561/helpsync/MediaWikiApi/Demos/QueryPageCategoryInfosProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryPageExternalLinkInfosMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object LabelMaxLinks: TLabel 19 | Left = 335 20 | Top = 100 21 | Width = 50 22 | Height = 13 23 | Caption = '&Max Links:' 24 | FocusControl = EditMaxLinks 25 | end 26 | object LabelPage: TLabel 27 | Left = 335 28 | Top = 73 29 | Width = 28 30 | Height = 13 31 | Caption = '&Page:' 32 | end 33 | object LabelStartLink: TLabel 34 | Left = 335 35 | Top = 127 36 | Width = 28 37 | Height = 13 38 | Caption = '&Start:' 39 | FocusControl = EditStartLink 40 | end 41 | object MemoResult: TMemo 42 | Left = 16 43 | Top = 8 44 | Width = 297 45 | Height = 273 46 | ReadOnly = True 47 | TabOrder = 0 48 | end 49 | object ButtonQueryAsync: TButton 50 | Left = 336 51 | Top = 8 52 | Width = 97 53 | Height = 25 54 | Caption = 'Async Query' 55 | TabOrder = 1 56 | OnClick = ButtonQueryAsyncClick 57 | end 58 | object ButtonQuerySync: TButton 59 | Left = 336 60 | Top = 39 61 | Width = 97 62 | Height = 25 63 | Caption = 'Sync Query' 64 | TabOrder = 2 65 | OnClick = ButtonQuerySyncClick 66 | end 67 | object EditMaxLinks: TEdit 68 | Left = 400 69 | Top = 97 70 | Width = 33 71 | Height = 21 72 | TabOrder = 3 73 | Text = '10' 74 | end 75 | object EditPage: TEdit 76 | Left = 376 77 | Top = 70 78 | Width = 57 79 | Height = 21 80 | TabOrder = 4 81 | Text = 'JEDI_Code_Library' 82 | end 83 | object EditStartLink: TEdit 84 | Left = 376 85 | Top = 124 86 | Width = 57 87 | Height = 21 88 | Font.Charset = DEFAULT_CHARSET 89 | Font.Color = clBtnFace 90 | Font.Height = -11 91 | Font.Name = 'Tahoma' 92 | Font.Style = [] 93 | ParentFont = False 94 | ReadOnly = True 95 | TabOrder = 5 96 | end 97 | end 98 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryPageExternalLinkInfosProject.dpr: -------------------------------------------------------------------------------- 1 | program QueryPageExternalLinkInfosProject; 2 | 3 | uses 4 | Forms, 5 | QueryPageExternalLinkInfosMainUnit in 'QueryPageExternalLinkInfosMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryPageExternalLinkInfosProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/ac3b5c187af2ae0897ecaae7aaa9c47909bca561/helpsync/MediaWikiApi/Demos/QueryPageExternalLinkInfosProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryPageInfosMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object LabelMaxLinks: TLabel 19 | Left = 335 20 | Top = 100 21 | Width = 50 22 | Height = 13 23 | Caption = '&Max Links:' 24 | FocusControl = EditMaxLinks 25 | end 26 | object LabelStartLink: TLabel 27 | Left = 335 28 | Top = 127 29 | Width = 28 30 | Height = 13 31 | Caption = '&Start:' 32 | end 33 | object LabelPageTitle: TLabel 34 | Left = 333 35 | Top = 73 36 | Width = 51 37 | Height = 13 38 | Caption = '&Page Title:' 39 | end 40 | object MemoResult: TMemo 41 | Left = 16 42 | Top = 8 43 | Width = 297 44 | Height = 273 45 | ReadOnly = True 46 | TabOrder = 0 47 | end 48 | object ButtonQueryAsync: TButton 49 | Left = 336 50 | Top = 8 51 | Width = 97 52 | Height = 25 53 | Caption = 'Async Query' 54 | TabOrder = 1 55 | OnClick = ButtonQueryAsyncClick 56 | end 57 | object ButtonQuerySync: TButton 58 | Left = 336 59 | Top = 39 60 | Width = 97 61 | Height = 25 62 | Caption = 'Sync Query' 63 | TabOrder = 2 64 | OnClick = ButtonQuerySyncClick 65 | end 66 | object EditMaxLinks: TEdit 67 | Left = 400 68 | Top = 97 69 | Width = 33 70 | Height = 21 71 | TabOrder = 3 72 | Text = '10' 73 | end 74 | object EditStartLink: TEdit 75 | Left = 376 76 | Top = 124 77 | Width = 57 78 | Height = 21 79 | TabOrder = 4 80 | end 81 | object EditPageTitle: TEdit 82 | Left = 390 83 | Top = 70 84 | Width = 43 85 | Height = 21 86 | TabOrder = 5 87 | Text = 'JEDI_Code_Library' 88 | end 89 | end 90 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryPageInfosProject.dpr: -------------------------------------------------------------------------------- 1 | program QueryPageInfosProject; 2 | 3 | uses 4 | Forms, 5 | QueryPageInfosMainUnit in 'QueryPageInfosMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryPageInfosProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/ac3b5c187af2ae0897ecaae7aaa9c47909bca561/helpsync/MediaWikiApi/Demos/QueryPageInfosProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryPageLinkInfosMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object LabelMaxLinks: TLabel 19 | Left = 335 20 | Top = 100 21 | Width = 50 22 | Height = 13 23 | Caption = '&Max Links:' 24 | FocusControl = EditMaxLinks 25 | end 26 | object LabelPage: TLabel 27 | Left = 335 28 | Top = 73 29 | Width = 28 30 | Height = 13 31 | Caption = '&Page:' 32 | end 33 | object LabelStartLink: TLabel 34 | Left = 335 35 | Top = 127 36 | Width = 28 37 | Height = 13 38 | Caption = '&Start:' 39 | FocusControl = EditStartLink 40 | end 41 | object MemoResult: TMemo 42 | Left = 16 43 | Top = 8 44 | Width = 297 45 | Height = 273 46 | ReadOnly = True 47 | TabOrder = 0 48 | end 49 | object ButtonQueryAsync: TButton 50 | Left = 336 51 | Top = 8 52 | Width = 97 53 | Height = 25 54 | Caption = 'Async Query' 55 | TabOrder = 1 56 | OnClick = ButtonQueryAsyncClick 57 | end 58 | object ButtonQuerySync: TButton 59 | Left = 336 60 | Top = 39 61 | Width = 97 62 | Height = 25 63 | Caption = 'Sync Query' 64 | TabOrder = 2 65 | OnClick = ButtonQuerySyncClick 66 | end 67 | object EditMaxLinks: TEdit 68 | Left = 400 69 | Top = 97 70 | Width = 33 71 | Height = 21 72 | TabOrder = 3 73 | Text = '10' 74 | end 75 | object EditPage: TEdit 76 | Left = 376 77 | Top = 70 78 | Width = 57 79 | Height = 21 80 | TabOrder = 4 81 | Text = 'JEDI_Code_Library' 82 | end 83 | object EditStartLink: TEdit 84 | Left = 376 85 | Top = 124 86 | Width = 57 87 | Height = 21 88 | Font.Charset = DEFAULT_CHARSET 89 | Font.Color = clBtnFace 90 | Font.Height = -11 91 | Font.Name = 'Tahoma' 92 | Font.Style = [] 93 | ParentFont = False 94 | ReadOnly = True 95 | TabOrder = 5 96 | end 97 | end 98 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryPageLinkInfosProject.dpr: -------------------------------------------------------------------------------- 1 | program QueryPageLinkInfosProject; 2 | 3 | uses 4 | Forms, 5 | QueryPageLinkInfosMainUnit in 'QueryPageLinkInfosMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryPageLinkInfosProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/ac3b5c187af2ae0897ecaae7aaa9c47909bca561/helpsync/MediaWikiApi/Demos/QueryPageLinkInfosProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryPageTemplateInfosMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object LabelMaxTemplates: TLabel 19 | Left = 335 20 | Top = 100 21 | Width = 76 22 | Height = 13 23 | Caption = '&Max Templates:' 24 | FocusControl = EditMaxTemplates 25 | end 26 | object LabelPage: TLabel 27 | Left = 335 28 | Top = 73 29 | Width = 28 30 | Height = 13 31 | Caption = '&Page:' 32 | end 33 | object LabelStartTemplate: TLabel 34 | Left = 335 35 | Top = 127 36 | Width = 28 37 | Height = 13 38 | Caption = '&Start:' 39 | FocusControl = EditStartTemplate 40 | end 41 | object MemoResult: TMemo 42 | Left = 16 43 | Top = 8 44 | Width = 297 45 | Height = 273 46 | ReadOnly = True 47 | TabOrder = 0 48 | end 49 | object ButtonQueryAsync: TButton 50 | Left = 336 51 | Top = 8 52 | Width = 97 53 | Height = 25 54 | Caption = 'Async Query' 55 | TabOrder = 1 56 | OnClick = ButtonQueryAsyncClick 57 | end 58 | object ButtonQuerySync: TButton 59 | Left = 336 60 | Top = 39 61 | Width = 97 62 | Height = 25 63 | Caption = 'Sync Query' 64 | TabOrder = 2 65 | OnClick = ButtonQuerySyncClick 66 | end 67 | object EditMaxTemplates: TEdit 68 | Left = 400 69 | Top = 97 70 | Width = 33 71 | Height = 21 72 | TabOrder = 3 73 | Text = '10' 74 | end 75 | object EditPage: TEdit 76 | Left = 376 77 | Top = 70 78 | Width = 57 79 | Height = 21 80 | TabOrder = 4 81 | Text = 'Template:SourceForge Hosted Site' 82 | end 83 | object EditStartTemplate: TEdit 84 | Left = 376 85 | Top = 124 86 | Width = 57 87 | Height = 21 88 | Font.Charset = DEFAULT_CHARSET 89 | Font.Color = clBtnFace 90 | Font.Height = -11 91 | Font.Name = 'Tahoma' 92 | Font.Style = [] 93 | ParentFont = False 94 | ReadOnly = True 95 | TabOrder = 5 96 | end 97 | end 98 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryPageTemplateInfosProject.dpr: -------------------------------------------------------------------------------- 1 | program QueryPageTemplateInfosProject; 2 | 3 | uses 4 | Forms, 5 | QueryPageTemplateInfosMainUnit in 'QueryPageTemplateInfosMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryPageTemplateInfosProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/ac3b5c187af2ae0897ecaae7aaa9c47909bca561/helpsync/MediaWikiApi/Demos/QueryPageTemplateInfosProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoDBReplLagMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object MemoResult: TMemo 19 | Left = 16 20 | Top = 8 21 | Width = 297 22 | Height = 273 23 | ReadOnly = True 24 | TabOrder = 0 25 | end 26 | object ButtonQueryAsync: TButton 27 | Left = 336 28 | Top = 8 29 | Width = 97 30 | Height = 25 31 | Caption = 'Async Query' 32 | TabOrder = 1 33 | OnClick = ButtonQueryAsyncClick 34 | end 35 | object ButtonQuerySync: TButton 36 | Left = 336 37 | Top = 39 38 | Width = 97 39 | Height = 25 40 | Caption = 'Sync Query' 41 | TabOrder = 2 42 | OnClick = ButtonQuerySyncClick 43 | end 44 | object CheckBoxAllDB: TCheckBox 45 | Left = 336 46 | Top = 80 47 | Width = 97 48 | Height = 17 49 | Caption = 'All DB' 50 | TabOrder = 3 51 | end 52 | end 53 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoDBReplLagMainUnit.pas: -------------------------------------------------------------------------------- 1 | unit QuerySiteInfoDBReplLagMainUnit; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 | Dialogs, StdCtrls, 8 | MediaWikiUtils, 9 | MediaWikiApi; 10 | 11 | type 12 | TMainForm = class(TForm) 13 | MemoResult: TMemo; 14 | ButtonQueryAsync: TButton; 15 | ButtonQuerySync: TButton; 16 | CheckBoxAllDB: TCheckBox; 17 | procedure FormCreate(Sender: TObject); 18 | procedure ButtonQuerySyncClick(Sender: TObject); 19 | procedure ButtonQueryAsyncClick(Sender: TObject); 20 | procedure FormClose(Sender: TObject; var Action: TCloseAction); 21 | private 22 | FMediaWikiApi: TMediaWikiApi; 23 | procedure MediaWikiSiteInfoDBReplLagDone(Sender: TMediaWikiApi; Infos: TStrings); 24 | public 25 | end; 26 | 27 | var 28 | MainForm: TMainForm; 29 | 30 | implementation 31 | 32 | {$R *.dfm} 33 | 34 | procedure TMainForm.ButtonQueryAsyncClick(Sender: TObject); 35 | begin 36 | MemoResult.Lines.Clear; 37 | FMediaWikiApi.OnQuerySiteInfoDBReplLagDone := MediaWikiSiteInfoDBReplLagDone; 38 | FMediaWikiApi.QueryInit; 39 | FMediaWikiApi.QuerySiteInfoDBReplLagAsync(CheckBoxAllDB.Checked); 40 | FMediaWikiApi.QueryExecuteAsync; 41 | end; 42 | 43 | procedure TMainForm.ButtonQuerySyncClick(Sender: TObject); 44 | begin 45 | MemoResult.Lines.Clear; 46 | FMediaWikiApi.OnQuerySiteInfoDBReplLagDone := nil; 47 | FMediaWikiApi.QuerySiteInfoDBReplLag(CheckBoxAllDB.Checked, MemoResult.Lines); 48 | end; 49 | 50 | procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction); 51 | begin 52 | Action := caFree; 53 | // logout is not required 54 | //FMediaWikiApi.Logout; 55 | FMediaWikiApi.Free; 56 | end; 57 | 58 | procedure TMainForm.FormCreate(Sender: TObject); 59 | begin 60 | FMediaWikiApi := TMediaWikiApi.Create; 61 | FMediaWikiApi.HttpCli.URL := 'http://wiki.delphi-jedi.org/w/api.php'; 62 | FMediaWikiApi.HttpCli.Agent := 'MediaWiki JEDI bot'; 63 | FMediaWikiApi.HttpCli.FollowRelocation := False; 64 | // login is not mandatory 65 | //FMediaWikiApi.Login() 66 | end; 67 | 68 | procedure TMainForm.MediaWikiSiteInfoDBReplLagDone(Sender: TMediaWikiApi; Infos: TStrings); 69 | begin 70 | MemoResult.Lines.Assign(Infos); 71 | end; 72 | 73 | end. 74 | 75 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoDBReplLagProject.dpr: -------------------------------------------------------------------------------- 1 | program QuerySiteInfoDBReplLagProject; 2 | 3 | uses 4 | Forms, 5 | QuerySiteInfoDBReplLagMainUnit in 'QuerySiteInfoDBReplLagMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoDBReplLagProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/ac3b5c187af2ae0897ecaae7aaa9c47909bca561/helpsync/MediaWikiApi/Demos/QuerySiteInfoDBReplLagProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoExtensionsMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object MemoResult: TMemo 19 | Left = 16 20 | Top = 8 21 | Width = 297 22 | Height = 273 23 | ReadOnly = True 24 | TabOrder = 0 25 | end 26 | object ButtonQueryAsync: TButton 27 | Left = 336 28 | Top = 8 29 | Width = 97 30 | Height = 25 31 | Caption = 'Async Query' 32 | TabOrder = 1 33 | OnClick = ButtonQueryAsyncClick 34 | end 35 | object ButtonQuerySync: TButton 36 | Left = 336 37 | Top = 39 38 | Width = 97 39 | Height = 25 40 | Caption = 'Sync Query' 41 | TabOrder = 2 42 | OnClick = ButtonQuerySyncClick 43 | end 44 | end 45 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoExtensionsProject.dpr: -------------------------------------------------------------------------------- 1 | program QuerySiteInfoExtensionsProject; 2 | 3 | uses 4 | Forms, 5 | QuerySiteInfoExtensionsMainUnit in 'QuerySiteInfoExtensionsMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoExtensionsProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/ac3b5c187af2ae0897ecaae7aaa9c47909bca561/helpsync/MediaWikiApi/Demos/QuerySiteInfoExtensionsProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoGeneralMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object MemoResult: TMemo 19 | Left = 16 20 | Top = 8 21 | Width = 297 22 | Height = 273 23 | ReadOnly = True 24 | TabOrder = 0 25 | end 26 | object ButtonQueryAsync: TButton 27 | Left = 336 28 | Top = 8 29 | Width = 97 30 | Height = 25 31 | Caption = 'Async Query' 32 | TabOrder = 1 33 | OnClick = ButtonQueryAsyncClick 34 | end 35 | object ButtonQuerySync: TButton 36 | Left = 336 37 | Top = 39 38 | Width = 97 39 | Height = 25 40 | Caption = 'Sync Query' 41 | TabOrder = 2 42 | OnClick = ButtonQuerySyncClick 43 | end 44 | end 45 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoGeneralMainUnit.pas: -------------------------------------------------------------------------------- 1 | unit QuerySiteInfoGeneralMainUnit; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 | Dialogs, StdCtrls, 8 | MediaWikiUtils, 9 | MediaWikiApi; 10 | 11 | type 12 | TMainForm = class(TForm) 13 | MemoResult: TMemo; 14 | ButtonQueryAsync: TButton; 15 | ButtonQuerySync: TButton; 16 | procedure FormCreate(Sender: TObject); 17 | procedure ButtonQuerySyncClick(Sender: TObject); 18 | procedure ButtonQueryAsyncClick(Sender: TObject); 19 | procedure FormClose(Sender: TObject; var Action: TCloseAction); 20 | private 21 | FMediaWikiApi: TMediaWikiApi; 22 | procedure MediaWikiSiteInfoGeneralDone(Sender: TMediaWikiApi; Infos: TStrings); 23 | public 24 | end; 25 | 26 | var 27 | MainForm: TMainForm; 28 | 29 | implementation 30 | 31 | {$R *.dfm} 32 | 33 | procedure TMainForm.ButtonQueryAsyncClick(Sender: TObject); 34 | begin 35 | MemoResult.Lines.Clear; 36 | FMediaWikiApi.OnQuerySiteInfoGeneralDone := MediaWikiSiteInfoGeneralDone; 37 | FMediaWikiApi.QueryInit; 38 | FMediaWikiApi.QuerySiteInfoGeneralAsync; 39 | FMediaWikiApi.QueryExecuteAsync; 40 | end; 41 | 42 | procedure TMainForm.ButtonQuerySyncClick(Sender: TObject); 43 | begin 44 | MemoResult.Lines.Clear; 45 | FMediaWikiApi.OnQuerySiteInfoGeneralDone := nil; 46 | FMediaWikiApi.QuerySiteInfoGeneral(MemoResult.Lines); 47 | end; 48 | 49 | procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction); 50 | begin 51 | Action := caFree; 52 | // logout is not required 53 | //FMediaWikiApi.Logout; 54 | FMediaWikiApi.Free; 55 | end; 56 | 57 | procedure TMainForm.FormCreate(Sender: TObject); 58 | begin 59 | FMediaWikiApi := TMediaWikiApi.Create; 60 | FMediaWikiApi.HttpCli.URL := 'http://wiki.delphi-jedi.org/w/api.php'; 61 | FMediaWikiApi.HttpCli.Agent := 'MediaWiki JEDI bot'; 62 | FMediaWikiApi.HttpCli.FollowRelocation := False; 63 | // login is not mandatory 64 | //FMediaWikiApi.Login() 65 | end; 66 | 67 | procedure TMainForm.MediaWikiSiteInfoGeneralDone(Sender: TMediaWikiApi; Infos: TStrings); 68 | begin 69 | MemoResult.Lines.Assign(Infos); 70 | end; 71 | 72 | end. 73 | 74 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoGeneralProject.dpr: -------------------------------------------------------------------------------- 1 | program QuerySiteInfoGeneralProject; 2 | 3 | uses 4 | Forms, 5 | QuerySiteInfoGeneralMainUnit in 'QuerySiteInfoGeneralMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoGeneralProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/ac3b5c187af2ae0897ecaae7aaa9c47909bca561/helpsync/MediaWikiApi/Demos/QuerySiteInfoGeneralProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoInterWikiMapMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object MemoResult: TMemo 19 | Left = 16 20 | Top = 8 21 | Width = 297 22 | Height = 273 23 | ReadOnly = True 24 | TabOrder = 0 25 | end 26 | object ButtonQueryAsync: TButton 27 | Left = 336 28 | Top = 8 29 | Width = 97 30 | Height = 25 31 | Caption = 'Async Query' 32 | TabOrder = 1 33 | OnClick = ButtonQueryAsyncClick 34 | end 35 | object ButtonQuerySync: TButton 36 | Left = 336 37 | Top = 39 38 | Width = 97 39 | Height = 25 40 | Caption = 'Sync Query' 41 | TabOrder = 2 42 | OnClick = ButtonQuerySyncClick 43 | end 44 | object CheckBoxLocal: TCheckBox 45 | Left = 336 46 | Top = 80 47 | Width = 97 48 | Height = 17 49 | Caption = 'Local wiki map' 50 | TabOrder = 3 51 | end 52 | end 53 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoInterWikiMapMainUnit.pas: -------------------------------------------------------------------------------- 1 | unit QuerySiteInfoInterWikiMapMainUnit; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 | Dialogs, StdCtrls, 8 | MediaWikiUtils, 9 | MediaWikiApi; 10 | 11 | type 12 | TMainForm = class(TForm) 13 | MemoResult: TMemo; 14 | ButtonQueryAsync: TButton; 15 | ButtonQuerySync: TButton; 16 | CheckBoxLocal: TCheckBox; 17 | procedure FormCreate(Sender: TObject); 18 | procedure ButtonQuerySyncClick(Sender: TObject); 19 | procedure ButtonQueryAsyncClick(Sender: TObject); 20 | procedure FormClose(Sender: TObject; var Action: TCloseAction); 21 | private 22 | FMediaWikiApi: TMediaWikiApi; 23 | procedure MediaWikiSiteInfoInterWikiMapDone(Sender: TMediaWikiApi; Infos: TStrings); 24 | public 25 | end; 26 | 27 | var 28 | MainForm: TMainForm; 29 | 30 | implementation 31 | 32 | {$R *.dfm} 33 | 34 | procedure TMainForm.ButtonQueryAsyncClick(Sender: TObject); 35 | begin 36 | MemoResult.Lines.Clear; 37 | FMediaWikiApi.OnQuerySiteInfoInterWikiMapDone := MediaWikiSiteInfoInterWikiMapDone; 38 | FMediaWikiApi.QueryInit; 39 | FMediaWikiApi.QuerySiteInfoInterWikiMapAsync(CheckBoxLocal.Checked); 40 | FMediaWikiApi.QueryExecuteAsync; 41 | end; 42 | 43 | procedure TMainForm.ButtonQuerySyncClick(Sender: TObject); 44 | begin 45 | MemoResult.Lines.Clear; 46 | FMediaWikiApi.OnQuerySiteInfoInterWikiMapDone := nil; 47 | FMediaWikiApi.QuerySiteInfoInterWikiMap(CheckBoxLocal.Checked, MemoResult.Lines); 48 | end; 49 | 50 | procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction); 51 | begin 52 | Action := caFree; 53 | // logout is not required 54 | //FMediaWikiApi.Logout; 55 | FMediaWikiApi.Free; 56 | end; 57 | 58 | procedure TMainForm.FormCreate(Sender: TObject); 59 | begin 60 | FMediaWikiApi := TMediaWikiApi.Create; 61 | FMediaWikiApi.HttpCli.URL := 'http://wiki.delphi-jedi.org/w/api.php'; 62 | FMediaWikiApi.HttpCli.Agent := 'MediaWiki JEDI bot'; 63 | FMediaWikiApi.HttpCli.FollowRelocation := False; 64 | // login is not mandatory 65 | //FMediaWikiApi.Login() 66 | end; 67 | 68 | procedure TMainForm.MediaWikiSiteInfoInterWikiMapDone(Sender: TMediaWikiApi; Infos: TStrings); 69 | begin 70 | MemoResult.Lines.Assign(Infos); 71 | end; 72 | 73 | end. 74 | 75 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoInterWikiMapProject.dpr: -------------------------------------------------------------------------------- 1 | program QuerySiteInfoInterWikiMapProject; 2 | 3 | uses 4 | Forms, 5 | QuerySiteInfoInterWikiMapMainUnit in 'QuerySiteInfoInterWikiMapMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoInterWikiMapProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/ac3b5c187af2ae0897ecaae7aaa9c47909bca561/helpsync/MediaWikiApi/Demos/QuerySiteInfoInterWikiMapProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoMagicWordsMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object MemoResult: TMemo 19 | Left = 16 20 | Top = 8 21 | Width = 297 22 | Height = 273 23 | ReadOnly = True 24 | TabOrder = 0 25 | end 26 | object ButtonQueryAsync: TButton 27 | Left = 336 28 | Top = 8 29 | Width = 97 30 | Height = 25 31 | Caption = 'Async Query' 32 | TabOrder = 1 33 | OnClick = ButtonQueryAsyncClick 34 | end 35 | object ButtonQuerySync: TButton 36 | Left = 336 37 | Top = 39 38 | Width = 97 39 | Height = 25 40 | Caption = 'Sync Query' 41 | TabOrder = 2 42 | OnClick = ButtonQuerySyncClick 43 | end 44 | end 45 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoMagicWordsMainUnit.pas: -------------------------------------------------------------------------------- 1 | unit QuerySiteInfoMagicWordsMainUnit; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 | Dialogs, StdCtrls, 8 | MediaWikiUtils, 9 | MediaWikiApi; 10 | 11 | type 12 | TMainForm = class(TForm) 13 | MemoResult: TMemo; 14 | ButtonQueryAsync: TButton; 15 | ButtonQuerySync: TButton; 16 | procedure FormCreate(Sender: TObject); 17 | procedure ButtonQuerySyncClick(Sender: TObject); 18 | procedure ButtonQueryAsyncClick(Sender: TObject); 19 | procedure FormClose(Sender: TObject; var Action: TCloseAction); 20 | private 21 | FMediaWikiApi: TMediaWikiApi; 22 | procedure MediaWikiSiteInfoMagicWordsDone(Sender: TMediaWikiApi; Infos: TStrings); 23 | public 24 | end; 25 | 26 | var 27 | MainForm: TMainForm; 28 | 29 | implementation 30 | 31 | {$R *.dfm} 32 | 33 | procedure TMainForm.ButtonQueryAsyncClick(Sender: TObject); 34 | begin 35 | MemoResult.Lines.Clear; 36 | FMediaWikiApi.OnQuerySiteInfoMagicWordsDone := MediaWikiSiteInfoMagicWordsDone; 37 | FMediaWikiApi.QueryInit; 38 | FMediaWikiApi.QuerySiteInfoMagicWordsAsync; 39 | FMediaWikiApi.QueryExecuteAsync; 40 | end; 41 | 42 | procedure TMainForm.ButtonQuerySyncClick(Sender: TObject); 43 | begin 44 | MemoResult.Lines.Clear; 45 | FMediaWikiApi.OnQuerySiteInfoMagicWordsDone := nil; 46 | FMediaWikiApi.QuerySiteInfoMagicWords(MemoResult.Lines); 47 | end; 48 | 49 | procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction); 50 | begin 51 | Action := caFree; 52 | // logout is not required 53 | //FMediaWikiApi.Logout; 54 | FMediaWikiApi.Free; 55 | end; 56 | 57 | procedure TMainForm.FormCreate(Sender: TObject); 58 | begin 59 | FMediaWikiApi := TMediaWikiApi.Create; 60 | FMediaWikiApi.HttpCli.URL := 'http://wiki.delphi-jedi.org/w/api.php'; 61 | FMediaWikiApi.HttpCli.Agent := 'MediaWiki JEDI bot'; 62 | FMediaWikiApi.HttpCli.FollowRelocation := False; 63 | // login is not mandatory 64 | //FMediaWikiApi.Login() 65 | end; 66 | 67 | procedure TMainForm.MediaWikiSiteInfoMagicWordsDone(Sender: TMediaWikiApi; Infos: TStrings); 68 | begin 69 | MemoResult.Lines.Assign(Infos); 70 | end; 71 | 72 | end. 73 | 74 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoMagicWordsProject.dpr: -------------------------------------------------------------------------------- 1 | program QuerySiteInfoMagicWordsProject; 2 | 3 | uses 4 | Forms, 5 | QuerySiteInfoMagicWordsMainUnit in 'QuerySiteInfoMagicWordsMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoMagicWordsProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/ac3b5c187af2ae0897ecaae7aaa9c47909bca561/helpsync/MediaWikiApi/Demos/QuerySiteInfoMagicWordsProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoNamespaceAliasesMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object MemoResult: TMemo 19 | Left = 16 20 | Top = 8 21 | Width = 297 22 | Height = 273 23 | ReadOnly = True 24 | TabOrder = 0 25 | end 26 | object ButtonQueryAsync: TButton 27 | Left = 336 28 | Top = 8 29 | Width = 97 30 | Height = 25 31 | Caption = 'Async Query' 32 | TabOrder = 1 33 | OnClick = ButtonQueryAsyncClick 34 | end 35 | object ButtonQuerySync: TButton 36 | Left = 336 37 | Top = 39 38 | Width = 97 39 | Height = 25 40 | Caption = 'Sync Query' 41 | TabOrder = 2 42 | OnClick = ButtonQuerySyncClick 43 | end 44 | end 45 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoNamespaceAliasesMainUnit.pas: -------------------------------------------------------------------------------- 1 | unit QuerySiteInfoNamespaceAliasesMainUnit; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 | Dialogs, StdCtrls, 8 | MediaWikiUtils, 9 | MediaWikiApi; 10 | 11 | type 12 | TMainForm = class(TForm) 13 | MemoResult: TMemo; 14 | ButtonQueryAsync: TButton; 15 | ButtonQuerySync: TButton; 16 | procedure FormCreate(Sender: TObject); 17 | procedure ButtonQuerySyncClick(Sender: TObject); 18 | procedure ButtonQueryAsyncClick(Sender: TObject); 19 | procedure FormClose(Sender: TObject; var Action: TCloseAction); 20 | private 21 | FMediaWikiApi: TMediaWikiApi; 22 | procedure MediaWikiSiteInfoNamespaceAliasesDone(Sender: TMediaWikiApi; Infos: TStrings); 23 | public 24 | end; 25 | 26 | var 27 | MainForm: TMainForm; 28 | 29 | implementation 30 | 31 | {$R *.dfm} 32 | 33 | procedure TMainForm.ButtonQueryAsyncClick(Sender: TObject); 34 | begin 35 | MemoResult.Lines.Clear; 36 | FMediaWikiApi.OnQuerySiteInfoNamespaceAliasesDone := MediaWikiSiteInfoNamespaceAliasesDone; 37 | FMediaWikiApi.QueryInit; 38 | FMediaWikiApi.QuerySiteInfoNamespaceAliasesAsync; 39 | FMediaWikiApi.QueryExecuteAsync; 40 | end; 41 | 42 | procedure TMainForm.ButtonQuerySyncClick(Sender: TObject); 43 | begin 44 | MemoResult.Lines.Clear; 45 | FMediaWikiApi.OnQuerySiteInfoNamespaceAliasesDone := nil; 46 | FMediaWikiApi.QuerySiteInfoNamespaceAliases(MemoResult.Lines); 47 | end; 48 | 49 | procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction); 50 | begin 51 | Action := caFree; 52 | // logout is not required 53 | //FMediaWikiApi.Logout; 54 | FMediaWikiApi.Free; 55 | end; 56 | 57 | procedure TMainForm.FormCreate(Sender: TObject); 58 | begin 59 | FMediaWikiApi := TMediaWikiApi.Create; 60 | FMediaWikiApi.HttpCli.URL := 'http://wiki.delphi-jedi.org/w/api.php'; 61 | FMediaWikiApi.HttpCli.Agent := 'MediaWiki JEDI bot'; 62 | FMediaWikiApi.HttpCli.FollowRelocation := False; 63 | // login is not mandatory 64 | //FMediaWikiApi.Login() 65 | end; 66 | 67 | procedure TMainForm.MediaWikiSiteInfoNamespaceAliasesDone(Sender: TMediaWikiApi; Infos: TStrings); 68 | begin 69 | MemoResult.Lines.Assign(Infos); 70 | end; 71 | 72 | end. 73 | 74 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoNamespaceAliasesProject.dpr: -------------------------------------------------------------------------------- 1 | program QuerySiteInfoNamespaceAliasesProject; 2 | 3 | uses 4 | Forms, 5 | QuerySiteInfoNamespaceAliasesMainUnit in 'QuerySiteInfoNamespaceAliasesMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoNamespaceAliasesProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/ac3b5c187af2ae0897ecaae7aaa9c47909bca561/helpsync/MediaWikiApi/Demos/QuerySiteInfoNamespaceAliasesProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoNamespacesMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object MemoResult: TMemo 19 | Left = 16 20 | Top = 8 21 | Width = 297 22 | Height = 273 23 | ReadOnly = True 24 | TabOrder = 0 25 | end 26 | object ButtonQueryAsync: TButton 27 | Left = 336 28 | Top = 8 29 | Width = 97 30 | Height = 25 31 | Caption = 'Async Query' 32 | TabOrder = 1 33 | OnClick = ButtonQueryAsyncClick 34 | end 35 | object ButtonQuerySync: TButton 36 | Left = 336 37 | Top = 39 38 | Width = 97 39 | Height = 25 40 | Caption = 'Sync Query' 41 | TabOrder = 2 42 | OnClick = ButtonQuerySyncClick 43 | end 44 | end 45 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoNamespacesMainUnit.pas: -------------------------------------------------------------------------------- 1 | unit QuerySiteInfoNamespacesMainUnit; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 | Dialogs, StdCtrls, 8 | MediaWikiUtils, 9 | MediaWikiApi; 10 | 11 | type 12 | TMainForm = class(TForm) 13 | MemoResult: TMemo; 14 | ButtonQueryAsync: TButton; 15 | ButtonQuerySync: TButton; 16 | procedure FormCreate(Sender: TObject); 17 | procedure ButtonQuerySyncClick(Sender: TObject); 18 | procedure ButtonQueryAsyncClick(Sender: TObject); 19 | procedure FormClose(Sender: TObject; var Action: TCloseAction); 20 | private 21 | FMediaWikiApi: TMediaWikiApi; 22 | procedure MediaWikiSiteInfoNamespacesDone(Sender: TMediaWikiApi; Infos: TStrings); 23 | public 24 | end; 25 | 26 | var 27 | MainForm: TMainForm; 28 | 29 | implementation 30 | 31 | {$R *.dfm} 32 | 33 | procedure TMainForm.ButtonQueryAsyncClick(Sender: TObject); 34 | begin 35 | MemoResult.Lines.Clear; 36 | FMediaWikiApi.OnQuerySiteInfoNamespacesDone := MediaWikiSiteInfoNamespacesDone; 37 | FMediaWikiApi.QueryInit; 38 | FMediaWikiApi.QuerySiteInfoNamespacesAsync; 39 | FMediaWikiApi.QueryExecuteAsync; 40 | end; 41 | 42 | procedure TMainForm.ButtonQuerySyncClick(Sender: TObject); 43 | begin 44 | MemoResult.Lines.Clear; 45 | FMediaWikiApi.OnQuerySiteInfoNamespacesDone := nil; 46 | FMediaWikiApi.QuerySiteInfoNamespaces(MemoResult.Lines); 47 | end; 48 | 49 | procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction); 50 | begin 51 | Action := caFree; 52 | // logout is not required 53 | //FMediaWikiApi.Logout; 54 | FMediaWikiApi.Free; 55 | end; 56 | 57 | procedure TMainForm.FormCreate(Sender: TObject); 58 | begin 59 | FMediaWikiApi := TMediaWikiApi.Create; 60 | FMediaWikiApi.HttpCli.URL := 'http://wiki.delphi-jedi.org/w/api.php'; 61 | FMediaWikiApi.HttpCli.Agent := 'MediaWiki JEDI bot'; 62 | FMediaWikiApi.HttpCli.FollowRelocation := False; 63 | // login is not mandatory 64 | //FMediaWikiApi.Login() 65 | end; 66 | 67 | procedure TMainForm.MediaWikiSiteInfoNamespacesDone(Sender: TMediaWikiApi; Infos: TStrings); 68 | begin 69 | MemoResult.Lines.Assign(Infos); 70 | end; 71 | 72 | end. 73 | 74 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoNamespacesProject.dpr: -------------------------------------------------------------------------------- 1 | program QuerySiteInfoNamespacesProject; 2 | 3 | uses 4 | Forms, 5 | QuerySiteInfoNamespacesMainUnit in 'QuerySiteInfoNamespacesMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoNamespacesProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/ac3b5c187af2ae0897ecaae7aaa9c47909bca561/helpsync/MediaWikiApi/Demos/QuerySiteInfoNamespacesProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoSpecialPageAliasesMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object MemoResult: TMemo 19 | Left = 16 20 | Top = 8 21 | Width = 297 22 | Height = 273 23 | ReadOnly = True 24 | TabOrder = 0 25 | end 26 | object ButtonQueryAsync: TButton 27 | Left = 336 28 | Top = 8 29 | Width = 97 30 | Height = 25 31 | Caption = 'Async Query' 32 | TabOrder = 1 33 | OnClick = ButtonQueryAsyncClick 34 | end 35 | object ButtonQuerySync: TButton 36 | Left = 336 37 | Top = 39 38 | Width = 97 39 | Height = 25 40 | Caption = 'Sync Query' 41 | TabOrder = 2 42 | OnClick = ButtonQuerySyncClick 43 | end 44 | end 45 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoSpecialPageAliasesMainUnit.pas: -------------------------------------------------------------------------------- 1 | unit QuerySiteInfoSpecialPageAliasesMainUnit; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 | Dialogs, StdCtrls, 8 | MediaWikiUtils, 9 | MediaWikiApi; 10 | 11 | type 12 | TMainForm = class(TForm) 13 | MemoResult: TMemo; 14 | ButtonQueryAsync: TButton; 15 | ButtonQuerySync: TButton; 16 | procedure FormCreate(Sender: TObject); 17 | procedure ButtonQuerySyncClick(Sender: TObject); 18 | procedure ButtonQueryAsyncClick(Sender: TObject); 19 | procedure FormClose(Sender: TObject; var Action: TCloseAction); 20 | private 21 | FMediaWikiApi: TMediaWikiApi; 22 | procedure MediaWikiSiteInfoSpecialPageAliasesDone(Sender: TMediaWikiApi; Infos: TStrings); 23 | public 24 | end; 25 | 26 | var 27 | MainForm: TMainForm; 28 | 29 | implementation 30 | 31 | {$R *.dfm} 32 | 33 | procedure TMainForm.ButtonQueryAsyncClick(Sender: TObject); 34 | begin 35 | MemoResult.Lines.Clear; 36 | FMediaWikiApi.OnQuerySiteInfoSpecialPageAliasesDone := MediaWikiSiteInfoSpecialPageAliasesDone; 37 | FMediaWikiApi.QueryInit; 38 | FMediaWikiApi.QuerySiteInfoSpecialPageAliasesAsync; 39 | FMediaWikiApi.QueryExecuteAsync; 40 | end; 41 | 42 | procedure TMainForm.ButtonQuerySyncClick(Sender: TObject); 43 | begin 44 | MemoResult.Lines.Clear; 45 | FMediaWikiApi.OnQuerySiteInfoSpecialPageAliasesDone := nil; 46 | FMediaWikiApi.QuerySiteInfoSpecialPageAliases(MemoResult.Lines); 47 | end; 48 | 49 | procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction); 50 | begin 51 | Action := caFree; 52 | // logout is not required 53 | //FMediaWikiApi.Logout; 54 | FMediaWikiApi.Free; 55 | end; 56 | 57 | procedure TMainForm.FormCreate(Sender: TObject); 58 | begin 59 | FMediaWikiApi := TMediaWikiApi.Create; 60 | FMediaWikiApi.HttpCli.URL := 'http://wiki.delphi-jedi.org/w/api.php'; 61 | FMediaWikiApi.HttpCli.Agent := 'MediaWiki JEDI bot'; 62 | FMediaWikiApi.HttpCli.FollowRelocation := False; 63 | // login is not mandatory 64 | //FMediaWikiApi.Login() 65 | end; 66 | 67 | procedure TMainForm.MediaWikiSiteInfoSpecialPageAliasesDone(Sender: TMediaWikiApi; Infos: TStrings); 68 | begin 69 | MemoResult.Lines.Assign(Infos); 70 | end; 71 | 72 | end. 73 | 74 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoSpecialPageAliasesProject.dpr: -------------------------------------------------------------------------------- 1 | program QuerySiteInfoSpecialPageAliasesProject; 2 | 3 | uses 4 | Forms, 5 | QuerySiteInfoSpecialPageAliasesMainUnit in 'QuerySiteInfoSpecialPageAliasesMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoSpecialPageAliasesProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/ac3b5c187af2ae0897ecaae7aaa9c47909bca561/helpsync/MediaWikiApi/Demos/QuerySiteInfoSpecialPageAliasesProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoStatisticsMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object MemoResult: TMemo 19 | Left = 16 20 | Top = 8 21 | Width = 297 22 | Height = 273 23 | ReadOnly = True 24 | TabOrder = 0 25 | end 26 | object ButtonQueryAsync: TButton 27 | Left = 336 28 | Top = 8 29 | Width = 97 30 | Height = 25 31 | Caption = 'Async Query' 32 | TabOrder = 1 33 | OnClick = ButtonQueryAsyncClick 34 | end 35 | object ButtonQuerySync: TButton 36 | Left = 336 37 | Top = 39 38 | Width = 97 39 | Height = 25 40 | Caption = 'Sync Query' 41 | TabOrder = 2 42 | OnClick = ButtonQuerySyncClick 43 | end 44 | end 45 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoStatisticsMainUnit.pas: -------------------------------------------------------------------------------- 1 | unit QuerySiteInfoStatisticsMainUnit; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 | Dialogs, StdCtrls, 8 | MediaWikiUtils, 9 | MediaWikiApi; 10 | 11 | type 12 | TMainForm = class(TForm) 13 | MemoResult: TMemo; 14 | ButtonQueryAsync: TButton; 15 | ButtonQuerySync: TButton; 16 | procedure FormCreate(Sender: TObject); 17 | procedure ButtonQuerySyncClick(Sender: TObject); 18 | procedure ButtonQueryAsyncClick(Sender: TObject); 19 | procedure FormClose(Sender: TObject; var Action: TCloseAction); 20 | private 21 | FMediaWikiApi: TMediaWikiApi; 22 | procedure MediaWikiSiteInfoStatisticsDone(Sender: TMediaWikiApi; Infos: TStrings); 23 | public 24 | end; 25 | 26 | var 27 | MainForm: TMainForm; 28 | 29 | implementation 30 | 31 | {$R *.dfm} 32 | 33 | procedure TMainForm.ButtonQueryAsyncClick(Sender: TObject); 34 | begin 35 | MemoResult.Lines.Clear; 36 | FMediaWikiApi.OnQuerySiteInfoStatisticsDone := MediaWikiSiteInfoStatisticsDone; 37 | FMediaWikiApi.QueryInit; 38 | FMediaWikiApi.QuerySiteInfoStatisticsAsync; 39 | FMediaWikiApi.QueryExecuteAsync; 40 | end; 41 | 42 | procedure TMainForm.ButtonQuerySyncClick(Sender: TObject); 43 | begin 44 | MemoResult.Lines.Clear; 45 | FMediaWikiApi.OnQuerySiteInfoStatisticsDone := nil; 46 | FMediaWikiApi.QuerySiteInfoStatistics(MemoResult.Lines); 47 | end; 48 | 49 | procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction); 50 | begin 51 | Action := caFree; 52 | // logout is not required 53 | //FMediaWikiApi.Logout; 54 | FMediaWikiApi.Free; 55 | end; 56 | 57 | procedure TMainForm.FormCreate(Sender: TObject); 58 | begin 59 | FMediaWikiApi := TMediaWikiApi.Create; 60 | FMediaWikiApi.HttpCli.URL := 'http://wiki.delphi-jedi.org/w/api.php'; 61 | FMediaWikiApi.HttpCli.Agent := 'MediaWiki JEDI bot'; 62 | FMediaWikiApi.HttpCli.FollowRelocation := False; 63 | // login is not mandatory 64 | //FMediaWikiApi.Login() 65 | end; 66 | 67 | procedure TMainForm.MediaWikiSiteInfoStatisticsDone(Sender: TMediaWikiApi; Infos: TStrings); 68 | begin 69 | MemoResult.Lines.Assign(Infos); 70 | end; 71 | 72 | end. 73 | 74 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoStatisticsProject.dpr: -------------------------------------------------------------------------------- 1 | program QuerySiteInfoStatisticsProject; 2 | 3 | uses 4 | Forms, 5 | QuerySiteInfoStatisticsMainUnit in 'QuerySiteInfoStatisticsMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoStatisticsProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/ac3b5c187af2ae0897ecaae7aaa9c47909bca561/helpsync/MediaWikiApi/Demos/QuerySiteInfoStatisticsProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoUserGroupsMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object MemoResult: TMemo 19 | Left = 16 20 | Top = 8 21 | Width = 297 22 | Height = 273 23 | ReadOnly = True 24 | TabOrder = 0 25 | end 26 | object ButtonQueryAsync: TButton 27 | Left = 336 28 | Top = 8 29 | Width = 97 30 | Height = 25 31 | Caption = 'Async Query' 32 | TabOrder = 1 33 | OnClick = ButtonQueryAsyncClick 34 | end 35 | object ButtonQuerySync: TButton 36 | Left = 336 37 | Top = 39 38 | Width = 97 39 | Height = 25 40 | Caption = 'Sync Query' 41 | TabOrder = 2 42 | OnClick = ButtonQuerySyncClick 43 | end 44 | object CheckBoxUserCount: TCheckBox 45 | Left = 336 46 | Top = 80 47 | Width = 97 48 | Height = 17 49 | Caption = 'User count' 50 | TabOrder = 3 51 | end 52 | end 53 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoUserGroupsMainUnit.pas: -------------------------------------------------------------------------------- 1 | unit QuerySiteInfoUserGroupsMainUnit; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 | Dialogs, StdCtrls, 8 | MediaWikiUtils, 9 | MediaWikiApi; 10 | 11 | type 12 | TMainForm = class(TForm) 13 | MemoResult: TMemo; 14 | ButtonQueryAsync: TButton; 15 | ButtonQuerySync: TButton; 16 | CheckBoxUserCount: TCheckBox; 17 | procedure FormCreate(Sender: TObject); 18 | procedure ButtonQuerySyncClick(Sender: TObject); 19 | procedure ButtonQueryAsyncClick(Sender: TObject); 20 | procedure FormClose(Sender: TObject; var Action: TCloseAction); 21 | private 22 | FMediaWikiApi: TMediaWikiApi; 23 | procedure MediaWikiSiteInfoUserGroupsDone(Sender: TMediaWikiApi; Infos: TStrings); 24 | public 25 | end; 26 | 27 | var 28 | MainForm: TMainForm; 29 | 30 | implementation 31 | 32 | {$R *.dfm} 33 | 34 | procedure TMainForm.ButtonQueryAsyncClick(Sender: TObject); 35 | begin 36 | MemoResult.Lines.Clear; 37 | FMediaWikiApi.OnQuerySiteInfoUserGroupsDone := MediaWikiSiteInfoUserGroupsDone; 38 | FMediaWikiApi.QueryInit; 39 | FMediaWikiApi.QuerySiteInfoUserGroupsAsync(CheckBoxUserCount.Checked); 40 | FMediaWikiApi.QueryExecuteAsync; 41 | end; 42 | 43 | procedure TMainForm.ButtonQuerySyncClick(Sender: TObject); 44 | begin 45 | MemoResult.Lines.Clear; 46 | FMediaWikiApi.OnQuerySiteInfoUserGroupsDone := nil; 47 | FMediaWikiApi.QuerySiteInfoUserGroups(CheckBoxUserCount.Checked, MemoResult.Lines); 48 | end; 49 | 50 | procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction); 51 | begin 52 | Action := caFree; 53 | // logout is not required 54 | //FMediaWikiApi.Logout; 55 | FMediaWikiApi.Free; 56 | end; 57 | 58 | procedure TMainForm.FormCreate(Sender: TObject); 59 | begin 60 | FMediaWikiApi := TMediaWikiApi.Create; 61 | FMediaWikiApi.HttpCli.URL := 'http://wiki.delphi-jedi.org/w/api.php'; 62 | FMediaWikiApi.HttpCli.Agent := 'MediaWiki JEDI bot'; 63 | FMediaWikiApi.HttpCli.FollowRelocation := False; 64 | // login is not mandatory 65 | //FMediaWikiApi.Login() 66 | end; 67 | 68 | procedure TMainForm.MediaWikiSiteInfoUserGroupsDone(Sender: TMediaWikiApi; Infos: TStrings); 69 | begin 70 | MemoResult.Lines.Assign(Infos); 71 | end; 72 | 73 | end. 74 | 75 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoUserGroupsProject.dpr: -------------------------------------------------------------------------------- 1 | program QuerySiteInfoUserGroupsProject; 2 | 3 | uses 4 | Forms, 5 | QuerySiteInfoUserGroupsMainUnit in 'QuerySiteInfoUserGroupsMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoUserGroupsProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/ac3b5c187af2ae0897ecaae7aaa9c47909bca561/helpsync/MediaWikiApi/Demos/QuerySiteInfoUserGroupsProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryUserInfoBlockInfoMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object MemoResult: TMemo 19 | Left = 16 20 | Top = 8 21 | Width = 297 22 | Height = 273 23 | ReadOnly = True 24 | TabOrder = 0 25 | end 26 | object ButtonQueryAsync: TButton 27 | Left = 336 28 | Top = 8 29 | Width = 97 30 | Height = 25 31 | Caption = 'Async Query' 32 | TabOrder = 1 33 | OnClick = ButtonQueryAsyncClick 34 | end 35 | object ButtonQuerySync: TButton 36 | Left = 336 37 | Top = 39 38 | Width = 97 39 | Height = 25 40 | Caption = 'Sync Query' 41 | TabOrder = 2 42 | OnClick = ButtonQuerySyncClick 43 | end 44 | end 45 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryUserInfoBlockInfoMainUnit.pas: -------------------------------------------------------------------------------- 1 | unit QueryUserInfoBlockInfoMainUnit; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 | Dialogs, StdCtrls, 8 | MediaWikiUtils, 9 | MediaWikiApi; 10 | 11 | type 12 | TMainForm = class(TForm) 13 | MemoResult: TMemo; 14 | ButtonQueryAsync: TButton; 15 | ButtonQuerySync: TButton; 16 | procedure FormCreate(Sender: TObject); 17 | procedure ButtonQuerySyncClick(Sender: TObject); 18 | procedure ButtonQueryAsyncClick(Sender: TObject); 19 | procedure FormClose(Sender: TObject; var Action: TCloseAction); 20 | private 21 | FMediaWikiApi: TMediaWikiApi; 22 | procedure MediaWikiUserInfoBlockInfoDone(Sender: TMediaWikiApi; Infos: TStrings); 23 | public 24 | end; 25 | 26 | var 27 | MainForm: TMainForm; 28 | 29 | implementation 30 | 31 | {$R *.dfm} 32 | 33 | procedure TMainForm.ButtonQueryAsyncClick(Sender: TObject); 34 | begin 35 | MemoResult.Lines.Clear; 36 | FMediaWikiApi.OnQueryUserInfoBlockInfoDone := MediaWikiUserInfoBlockInfoDone; 37 | FMediaWikiApi.QueryInit; 38 | FMediaWikiApi.QueryUserInfoBlockInfoAsync; 39 | FMediaWikiApi.QueryExecuteAsync; 40 | end; 41 | 42 | procedure TMainForm.ButtonQuerySyncClick(Sender: TObject); 43 | begin 44 | MemoResult.Lines.Clear; 45 | FMediaWikiApi.OnQueryUserInfoBlockInfoDone := nil; 46 | FMediaWikiApi.QueryUserInfoBlockInfo(MemoResult.Lines); 47 | end; 48 | 49 | procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction); 50 | begin 51 | Action := caFree; 52 | // logout is not required 53 | //FMediaWikiApi.Logout; 54 | FMediaWikiApi.Free; 55 | end; 56 | 57 | procedure TMainForm.FormCreate(Sender: TObject); 58 | begin 59 | FMediaWikiApi := TMediaWikiApi.Create; 60 | FMediaWikiApi.HttpCli.URL := 'http://wiki.delphi-jedi.org/w/api.php'; 61 | FMediaWikiApi.HttpCli.Agent := 'MediaWiki JEDI bot'; 62 | FMediaWikiApi.HttpCli.FollowRelocation := False; 63 | // login is not mandatory 64 | //FMediaWikiApi.Login() 65 | end; 66 | 67 | procedure TMainForm.MediaWikiUserInfoBlockInfoDone(Sender: TMediaWikiApi; Infos: TStrings); 68 | begin 69 | MemoResult.Lines.Assign(Infos); 70 | end; 71 | 72 | end. 73 | 74 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryUserInfoBlockInfoProject.dpr: -------------------------------------------------------------------------------- 1 | program QueryUserInfoBlockInfoProject; 2 | 3 | uses 4 | Forms, 5 | QueryUserInfoBlockInfoMainUnit in 'QueryUserInfoBlockInfoMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryUserInfoBlockInfoProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/ac3b5c187af2ae0897ecaae7aaa9c47909bca561/helpsync/MediaWikiApi/Demos/QueryUserInfoBlockInfoProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryUserInfoChangeableGroupsMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object MemoResult: TMemo 19 | Left = 16 20 | Top = 8 21 | Width = 297 22 | Height = 273 23 | ReadOnly = True 24 | TabOrder = 0 25 | end 26 | object ButtonQueryAsync: TButton 27 | Left = 336 28 | Top = 8 29 | Width = 97 30 | Height = 25 31 | Caption = 'Async Query' 32 | TabOrder = 1 33 | OnClick = ButtonQueryAsyncClick 34 | end 35 | object ButtonQuerySync: TButton 36 | Left = 336 37 | Top = 39 38 | Width = 97 39 | Height = 25 40 | Caption = 'Sync Query' 41 | TabOrder = 2 42 | OnClick = ButtonQuerySyncClick 43 | end 44 | end 45 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryUserInfoChangeableGroupsProject.dpr: -------------------------------------------------------------------------------- 1 | program QueryUserInfoChangeableGroupsProject; 2 | 3 | uses 4 | Forms, 5 | QueryUserInfoChangeableGroupsMainUnit in 'QueryUserInfoChangeableGroupsMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryUserInfoChangeableGroupsProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/ac3b5c187af2ae0897ecaae7aaa9c47909bca561/helpsync/MediaWikiApi/Demos/QueryUserInfoChangeableGroupsProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryUserInfoGroupsMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object MemoResult: TMemo 19 | Left = 16 20 | Top = 8 21 | Width = 297 22 | Height = 273 23 | ReadOnly = True 24 | TabOrder = 0 25 | end 26 | object ButtonQueryAsync: TButton 27 | Left = 336 28 | Top = 8 29 | Width = 97 30 | Height = 25 31 | Caption = 'Async Query' 32 | TabOrder = 1 33 | OnClick = ButtonQueryAsyncClick 34 | end 35 | object ButtonQuerySync: TButton 36 | Left = 336 37 | Top = 39 38 | Width = 97 39 | Height = 25 40 | Caption = 'Sync Query' 41 | TabOrder = 2 42 | OnClick = ButtonQuerySyncClick 43 | end 44 | end 45 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryUserInfoGroupsMainUnit.pas: -------------------------------------------------------------------------------- 1 | unit QueryUserInfoGroupsMainUnit; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 | Dialogs, StdCtrls, 8 | MediaWikiUtils, 9 | MediaWikiApi; 10 | 11 | type 12 | TMainForm = class(TForm) 13 | MemoResult: TMemo; 14 | ButtonQueryAsync: TButton; 15 | ButtonQuerySync: TButton; 16 | procedure FormCreate(Sender: TObject); 17 | procedure ButtonQuerySyncClick(Sender: TObject); 18 | procedure ButtonQueryAsyncClick(Sender: TObject); 19 | procedure FormClose(Sender: TObject; var Action: TCloseAction); 20 | private 21 | FMediaWikiApi: TMediaWikiApi; 22 | procedure MediaWikiUserInfoGroupsDone(Sender: TMediaWikiApi; Infos: TStrings); 23 | public 24 | end; 25 | 26 | var 27 | MainForm: TMainForm; 28 | 29 | implementation 30 | 31 | {$R *.dfm} 32 | 33 | procedure TMainForm.ButtonQueryAsyncClick(Sender: TObject); 34 | begin 35 | MemoResult.Lines.Clear; 36 | FMediaWikiApi.OnQueryUserInfoGroupsDone := MediaWikiUserInfoGroupsDone; 37 | FMediaWikiApi.QueryInit; 38 | FMediaWikiApi.QueryUserInfoGroupsAsync; 39 | FMediaWikiApi.QueryExecuteAsync; 40 | end; 41 | 42 | procedure TMainForm.ButtonQuerySyncClick(Sender: TObject); 43 | begin 44 | MemoResult.Lines.Clear; 45 | FMediaWikiApi.OnQueryUserInfoGroupsDone := nil; 46 | FMediaWikiApi.QueryUserInfoGroups(MemoResult.Lines); 47 | end; 48 | 49 | procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction); 50 | begin 51 | Action := caFree; 52 | // logout is not required 53 | //FMediaWikiApi.Logout; 54 | FMediaWikiApi.Free; 55 | end; 56 | 57 | procedure TMainForm.FormCreate(Sender: TObject); 58 | begin 59 | FMediaWikiApi := TMediaWikiApi.Create; 60 | FMediaWikiApi.HttpCli.URL := 'http://wiki.delphi-jedi.org/w/api.php'; 61 | FMediaWikiApi.HttpCli.Agent := 'MediaWiki JEDI bot'; 62 | FMediaWikiApi.HttpCli.FollowRelocation := False; 63 | // login is not mandatory 64 | //FMediaWikiApi.Login() 65 | end; 66 | 67 | procedure TMainForm.MediaWikiUserInfoGroupsDone(Sender: TMediaWikiApi; Infos: TStrings); 68 | begin 69 | MemoResult.Lines.Assign(Infos); 70 | end; 71 | 72 | end. 73 | 74 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryUserInfoGroupsProject.dpr: -------------------------------------------------------------------------------- 1 | program QueryUserInfoGroupsProject; 2 | 3 | uses 4 | Forms, 5 | QueryUserInfoGroupsMainUnit in 'QueryUserInfoGroupsMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryUserInfoGroupsProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/ac3b5c187af2ae0897ecaae7aaa9c47909bca561/helpsync/MediaWikiApi/Demos/QueryUserInfoGroupsProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryUserInfoOptionsMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object MemoResult: TMemo 19 | Left = 16 20 | Top = 8 21 | Width = 297 22 | Height = 273 23 | ReadOnly = True 24 | TabOrder = 0 25 | end 26 | object ButtonQueryAsync: TButton 27 | Left = 336 28 | Top = 8 29 | Width = 97 30 | Height = 25 31 | Caption = 'Async Query' 32 | TabOrder = 1 33 | OnClick = ButtonQueryAsyncClick 34 | end 35 | object ButtonQuerySync: TButton 36 | Left = 336 37 | Top = 39 38 | Width = 97 39 | Height = 25 40 | Caption = 'Sync Query' 41 | TabOrder = 2 42 | OnClick = ButtonQuerySyncClick 43 | end 44 | end 45 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryUserInfoOptionsMainUnit.pas: -------------------------------------------------------------------------------- 1 | unit QueryUserInfoOptionsMainUnit; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 | Dialogs, StdCtrls, 8 | MediaWikiUtils, 9 | MediaWikiApi; 10 | 11 | type 12 | TMainForm = class(TForm) 13 | MemoResult: TMemo; 14 | ButtonQueryAsync: TButton; 15 | ButtonQuerySync: TButton; 16 | procedure FormCreate(Sender: TObject); 17 | procedure ButtonQuerySyncClick(Sender: TObject); 18 | procedure ButtonQueryAsyncClick(Sender: TObject); 19 | procedure FormClose(Sender: TObject; var Action: TCloseAction); 20 | private 21 | FMediaWikiApi: TMediaWikiApi; 22 | procedure MediaWikiUserInfoOptionsDone(Sender: TMediaWikiApi; Infos: TStrings); 23 | public 24 | end; 25 | 26 | var 27 | MainForm: TMainForm; 28 | 29 | implementation 30 | 31 | {$R *.dfm} 32 | 33 | procedure TMainForm.ButtonQueryAsyncClick(Sender: TObject); 34 | begin 35 | MemoResult.Lines.Clear; 36 | FMediaWikiApi.OnQueryUserInfoOptionsDone := MediaWikiUserInfoOptionsDone; 37 | FMediaWikiApi.QueryInit; 38 | FMediaWikiApi.QueryUserInfoOptionsAsync; 39 | FMediaWikiApi.QueryExecuteAsync; 40 | end; 41 | 42 | procedure TMainForm.ButtonQuerySyncClick(Sender: TObject); 43 | begin 44 | MemoResult.Lines.Clear; 45 | FMediaWikiApi.OnQueryUserInfoOptionsDone := nil; 46 | FMediaWikiApi.QueryUserInfoOptions(MemoResult.Lines); 47 | end; 48 | 49 | procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction); 50 | begin 51 | Action := caFree; 52 | // logout is required 53 | FMediaWikiApi.Logout; 54 | FMediaWikiApi.Free; 55 | end; 56 | 57 | procedure TMainForm.FormCreate(Sender: TObject); 58 | var 59 | LoginName, LoginPassword: string; 60 | begin 61 | FMediaWikiApi := TMediaWikiApi.Create; 62 | FMediaWikiApi.HttpCli.URL := 'http://wiki.delphi-jedi.org/w/api.php'; 63 | FMediaWikiApi.HttpCli.Agent := 'MediaWiki JEDI bot'; 64 | FMediaWikiApi.HttpCli.FollowRelocation := False; 65 | // login is mandatory 66 | InputQuery('Login information', 'login name', LoginName); 67 | InputQuery('Login information', 'login password', LoginPassword); 68 | FMediaWikiApi.Login(LoginName, LoginPassword, True); 69 | end; 70 | 71 | procedure TMainForm.MediaWikiUserInfoOptionsDone(Sender: TMediaWikiApi; Infos: TStrings); 72 | begin 73 | MemoResult.Lines.Assign(Infos); 74 | end; 75 | 76 | end. 77 | 78 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryUserInfoOptionsProject.dpr: -------------------------------------------------------------------------------- 1 | program QueryUserInfoOptionsProject; 2 | 3 | uses 4 | Forms, 5 | QueryUserInfoOptionsMainUnit in 'QueryUserInfoOptionsMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryUserInfoOptionsProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/ac3b5c187af2ae0897ecaae7aaa9c47909bca561/helpsync/MediaWikiApi/Demos/QueryUserInfoOptionsProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryUserInfoRateLimitsMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object MemoResult: TMemo 19 | Left = 16 20 | Top = 8 21 | Width = 297 22 | Height = 273 23 | ReadOnly = True 24 | TabOrder = 0 25 | end 26 | object ButtonQueryAsync: TButton 27 | Left = 336 28 | Top = 8 29 | Width = 97 30 | Height = 25 31 | Caption = 'Async Query' 32 | TabOrder = 1 33 | OnClick = ButtonQueryAsyncClick 34 | end 35 | object ButtonQuerySync: TButton 36 | Left = 336 37 | Top = 39 38 | Width = 97 39 | Height = 25 40 | Caption = 'Sync Query' 41 | TabOrder = 2 42 | OnClick = ButtonQuerySyncClick 43 | end 44 | end 45 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryUserInfoRateLimitsProject.dpr: -------------------------------------------------------------------------------- 1 | program QueryUserInfoRateLimitsProject; 2 | 3 | uses 4 | Forms, 5 | QueryUserInfoRateLimitsMainUnit in 'QueryUserInfoRateLimitsMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryUserInfoRateLimitsProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/ac3b5c187af2ae0897ecaae7aaa9c47909bca561/helpsync/MediaWikiApi/Demos/QueryUserInfoRateLimitsProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryUserInfoRightsMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object MemoResult: TMemo 19 | Left = 16 20 | Top = 8 21 | Width = 297 22 | Height = 273 23 | ReadOnly = True 24 | TabOrder = 0 25 | end 26 | object ButtonQueryAsync: TButton 27 | Left = 336 28 | Top = 8 29 | Width = 97 30 | Height = 25 31 | Caption = 'Async Query' 32 | TabOrder = 1 33 | OnClick = ButtonQueryAsyncClick 34 | end 35 | object ButtonQuerySync: TButton 36 | Left = 336 37 | Top = 39 38 | Width = 97 39 | Height = 25 40 | Caption = 'Sync Query' 41 | TabOrder = 2 42 | OnClick = ButtonQuerySyncClick 43 | end 44 | end 45 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryUserInfoRightsMainUnit.pas: -------------------------------------------------------------------------------- 1 | unit QueryUserInfoRightsMainUnit; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 | Dialogs, StdCtrls, 8 | MediaWikiUtils, 9 | MediaWikiApi; 10 | 11 | type 12 | TMainForm = class(TForm) 13 | MemoResult: TMemo; 14 | ButtonQueryAsync: TButton; 15 | ButtonQuerySync: TButton; 16 | procedure FormCreate(Sender: TObject); 17 | procedure ButtonQuerySyncClick(Sender: TObject); 18 | procedure ButtonQueryAsyncClick(Sender: TObject); 19 | procedure FormClose(Sender: TObject; var Action: TCloseAction); 20 | private 21 | FMediaWikiApi: TMediaWikiApi; 22 | procedure MediaWikiUserInfoRightsDone(Sender: TMediaWikiApi; Infos: TStrings); 23 | public 24 | end; 25 | 26 | var 27 | MainForm: TMainForm; 28 | 29 | implementation 30 | 31 | {$R *.dfm} 32 | 33 | procedure TMainForm.ButtonQueryAsyncClick(Sender: TObject); 34 | begin 35 | MemoResult.Lines.Clear; 36 | FMediaWikiApi.OnQueryUserInfoRightsDone := MediaWikiUserInfoRightsDone; 37 | FMediaWikiApi.QueryInit; 38 | FMediaWikiApi.QueryUserInfoRightsAsync; 39 | FMediaWikiApi.QueryExecuteAsync; 40 | end; 41 | 42 | procedure TMainForm.ButtonQuerySyncClick(Sender: TObject); 43 | begin 44 | MemoResult.Lines.Clear; 45 | FMediaWikiApi.OnQueryUserInfoRightsDone := nil; 46 | FMediaWikiApi.QueryUserInfoRights(MemoResult.Lines); 47 | end; 48 | 49 | procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction); 50 | begin 51 | Action := caFree; 52 | // logout is not required 53 | //FMediaWikiApi.Logout; 54 | FMediaWikiApi.Free; 55 | end; 56 | 57 | procedure TMainForm.FormCreate(Sender: TObject); 58 | begin 59 | FMediaWikiApi := TMediaWikiApi.Create; 60 | FMediaWikiApi.HttpCli.URL := 'http://wiki.delphi-jedi.org/w/api.php'; 61 | FMediaWikiApi.HttpCli.Agent := 'MediaWiki JEDI bot'; 62 | FMediaWikiApi.HttpCli.FollowRelocation := False; 63 | // login is not mandatory 64 | //FMediaWikiApi.Login() 65 | end; 66 | 67 | procedure TMainForm.MediaWikiUserInfoRightsDone(Sender: TMediaWikiApi; Infos: TStrings); 68 | begin 69 | MemoResult.Lines.Assign(Infos); 70 | end; 71 | 72 | end. 73 | 74 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryUserInfoRightsProject.dpr: -------------------------------------------------------------------------------- 1 | program QueryUserInfoRightsProject; 2 | 3 | uses 4 | Forms, 5 | QueryUserInfoRightsMainUnit in 'QueryUserInfoRightsMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryUserInfoRightsProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/ac3b5c187af2ae0897ecaae7aaa9c47909bca561/helpsync/MediaWikiApi/Demos/QueryUserInfoRightsProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/UploadFileProject.dpr: -------------------------------------------------------------------------------- 1 | program UploadFileProject; 2 | 3 | uses 4 | Forms, 5 | MediaWikiUtils in '..\MediaWikiUtils.pas', 6 | MediaWikiApi in '..\MediaWikiApi.pas', 7 | UploadMainUnit in 'UploadMainUnit.pas' {MainForm}; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/UploadFileProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/ac3b5c187af2ae0897ecaae7aaa9c47909bca561/helpsync/MediaWikiApi/Demos/UploadFileProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/UserMergeMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 466 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object LabelPage: TLabel 19 | Left = 335 20 | Top = 73 21 | Width = 16 22 | Height = 13 23 | Caption = '&To:' 24 | FocusControl = EditToUser 25 | end 26 | object ButtonQueryAsync: TButton 27 | Left = 336 28 | Top = 8 29 | Width = 97 30 | Height = 25 31 | Caption = 'Async Query' 32 | TabOrder = 0 33 | OnClick = ButtonQueryAsyncClick 34 | end 35 | object ButtonQuerySync: TButton 36 | Left = 336 37 | Top = 39 38 | Width = 97 39 | Height = 25 40 | Caption = 'Sync Query' 41 | TabOrder = 1 42 | OnClick = ButtonQuerySyncClick 43 | end 44 | object EditToUser: TEdit 45 | Left = 369 46 | Top = 70 47 | Width = 64 48 | Height = 21 49 | TabOrder = 2 50 | end 51 | object ButtonMergeAsync: TButton 52 | Left = 336 53 | Top = 122 54 | Width = 97 55 | Height = 25 56 | Caption = 'Async Merge' 57 | TabOrder = 3 58 | OnClick = ButtonMergeAsyncClick 59 | end 60 | object ButtonMergeSync: TButton 61 | Left = 336 62 | Top = 153 63 | Width = 97 64 | Height = 25 65 | Caption = 'Sync Merge' 66 | TabOrder = 4 67 | OnClick = ButtonMergeSyncClick 68 | end 69 | object ListBoxUserList: TListBox 70 | Left = 16 71 | Top = 8 72 | Width = 297 73 | Height = 278 74 | ItemHeight = 13 75 | TabOrder = 5 76 | end 77 | object CheckBoxDeleteUser: TCheckBox 78 | Left = 336 79 | Top = 99 80 | Width = 97 81 | Height = 17 82 | Caption = 'Delete User' 83 | TabOrder = 6 84 | end 85 | end 86 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/MediaWikiApi.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/ac3b5c187af2ae0897ecaae7aaa9c47909bca561/helpsync/MediaWikiApi/MediaWikiApi.pas -------------------------------------------------------------------------------- /shared/help/Make CHM Help.bat: -------------------------------------------------------------------------------- 1 | "%DMCC%" -config "CHM" -noshow -w3 JEDI.dox 2 | -------------------------------------------------------------------------------- /shared/help/Make H2 Help.bat: -------------------------------------------------------------------------------- 1 | "%DMCC%" -config "H2" -noshow -w3 JEDI.dox 2 | -------------------------------------------------------------------------------- /shared/help/Make HTML Help.bat: -------------------------------------------------------------------------------- 1 | "%DMCC%" -config "HTML" -noshow -w3 JEDI.dox 2 | -------------------------------------------------------------------------------- /shared/help/Make PDF Help.bat: -------------------------------------------------------------------------------- 1 | "%DMCC%" -config "PDF" -noshow -w3 JEDI.dox 2 | -------------------------------------------------------------------------------- /shared/help/Make WINHELP Help.bat: -------------------------------------------------------------------------------- 1 | "%DMCC%" -config "HLP" -noshow -w3 JEDI.dox 2 | -------------------------------------------------------------------------------- /shared/help/Make Xml Help.bat: -------------------------------------------------------------------------------- 1 | "%DMCC%" -config "XML" -noshow -w3 JEDI.dox 2 | "%XMLLINKS%" JEDI.dox XML "JEDI_Help:%%id" 3 | -------------------------------------------------------------------------------- /shared/help/kylix.dtx: -------------------------------------------------------------------------------- 1 |  2 | @@kylix.inc 3 | 4 | Summary 5 | The kylix.inc contains linux specific detections. 6 | 7 | Description 8 | The kylix.inc file is included by jedi.inc. 9 | 10 | Do not include kylix.inc directly in your code, rather use 11 | {$I jedi.inc} to detect kylix versions. 12 | --------------------------------------------------------------------------------