Peter M. Groen / knowledgetree

Commit 9094d5dc644aae6b4cd24171e5a0cf4675c2758d

Authored by conradverm 2008-02-15 10:02:50 +0000

KTS-3025

"Move KTWSAPI foders to KnowledgeTree forge"
Moved.

Committed By: Conrad Vermeulen
Reviewed By: Kevin Fourie

git-svn-id: https://kt-dms.svn.sourceforge.net/svnroot/kt-dms/trunk@8061 c91229c3-7414-0410-bfa2-8a42b809f60b

Inline Side-by-side

Showing 24 changed files with 0 additions and 5125 deletions

ktwsapi/README.txt deleted

View file @b56238b

1	-KnowledgeTree WebService API
2	-============================
3	-
4	-This folder contains the object model in various languages, used to access
5	-KnowledgeTree via web services.
6	\ No newline at end of file	0	\ No newline at end of file

ktwsapi/cpp/TODO.txt deleted

View file @b56238b

ktwsapi/delphi/doc/KTWSAPI.chm deleted

View file @b56238b

No preview for this file type

ktwsapi/delphi/examples/KTWSAPIExamples.bdsproj deleted

View file @b56238b

1	-<?xml version="1.0" encoding="utf-8"?>
2	-<BorlandProject>
3	- <PersonalityInfo>
4	- <Option>
5	- <Option Name="Personality">Delphi.Personality</Option>
6	- <Option Name="ProjectType">VCLApplication</Option>
7	- <Option Name="Version">1.0</Option>
8	- <Option Name="GUID">{A7B8ECC5-0F7B-4E7C-8C44-8356FDCDB36A}</Option>
9	- </Option>
10	- </PersonalityInfo>
11	- <Delphi.Personality>
12	- <Source>
13	- <Source Name="MainSource">KTWSAPIExamples.dpr</Source>
14	- </Source>
15	- <FileVersion>
16	- <FileVersion Name="Version">7.0</FileVersion>
17	- </FileVersion>
18	- <Compiler>
19	- <Compiler Name="A">8</Compiler>
20	- <Compiler Name="B">0</Compiler>
21	- <Compiler Name="C">1</Compiler>
22	- <Compiler Name="D">1</Compiler>
23	- <Compiler Name="E">0</Compiler>
24	- <Compiler Name="F">0</Compiler>
25	- <Compiler Name="G">1</Compiler>
26	- <Compiler Name="H">1</Compiler>
27	- <Compiler Name="I">1</Compiler>
28	- <Compiler Name="J">0</Compiler>
29	- <Compiler Name="K">0</Compiler>
30	- <Compiler Name="L">1</Compiler>
31	- <Compiler Name="M">0</Compiler>
32	- <Compiler Name="N">1</Compiler>
33	- <Compiler Name="O">1</Compiler>
34	- <Compiler Name="P">1</Compiler>
35	- <Compiler Name="Q">0</Compiler>
36	- <Compiler Name="R">0</Compiler>
37	- <Compiler Name="S">0</Compiler>
38	- <Compiler Name="T">0</Compiler>
39	- <Compiler Name="U">0</Compiler>
40	- <Compiler Name="V">1</Compiler>
41	- <Compiler Name="W">0</Compiler>
42	- <Compiler Name="X">1</Compiler>
43	- <Compiler Name="Y">1</Compiler>
44	- <Compiler Name="Z">1</Compiler>
45	- <Compiler Name="ShowHints">True</Compiler>
46	- <Compiler Name="ShowWarnings">True</Compiler>
47	- <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
48	- <Compiler Name="NamespacePrefix"></Compiler>
49	- <Compiler Name="GenerateDocumentation">False</Compiler>
50	- <Compiler Name="DefaultNamespace"></Compiler>
51	- <Compiler Name="SymbolDeprecated">True</Compiler>
52	- <Compiler Name="SymbolLibrary">True</Compiler>
53	- <Compiler Name="SymbolPlatform">True</Compiler>
54	- <Compiler Name="SymbolExperimental">True</Compiler>
55	- <Compiler Name="UnitLibrary">True</Compiler>
56	- <Compiler Name="UnitPlatform">True</Compiler>
57	- <Compiler Name="UnitDeprecated">True</Compiler>
58	- <Compiler Name="UnitExperimental">True</Compiler>
59	- <Compiler Name="HResultCompat">True</Compiler>
60	- <Compiler Name="HidingMember">True</Compiler>
61	- <Compiler Name="HiddenVirtual">True</Compiler>
62	- <Compiler Name="Garbage">True</Compiler>
63	- <Compiler Name="BoundsError">True</Compiler>
64	- <Compiler Name="ZeroNilCompat">True</Compiler>
65	- <Compiler Name="StringConstTruncated">True</Compiler>
66	- <Compiler Name="ForLoopVarVarPar">True</Compiler>
67	- <Compiler Name="TypedConstVarPar">True</Compiler>
68	- <Compiler Name="AsgToTypedConst">True</Compiler>
69	- <Compiler Name="CaseLabelRange">True</Compiler>
70	- <Compiler Name="ForVariable">True</Compiler>
71	- <Compiler Name="ConstructingAbstract">True</Compiler>
72	- <Compiler Name="ComparisonFalse">True</Compiler>
73	- <Compiler Name="ComparisonTrue">True</Compiler>
74	- <Compiler Name="ComparingSignedUnsigned">True</Compiler>
75	- <Compiler Name="CombiningSignedUnsigned">True</Compiler>
76	- <Compiler Name="UnsupportedConstruct">True</Compiler>
77	- <Compiler Name="FileOpen">True</Compiler>
78	- <Compiler Name="FileOpenUnitSrc">True</Compiler>
79	- <Compiler Name="BadGlobalSymbol">True</Compiler>
80	- <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
81	- <Compiler Name="InvalidDirective">True</Compiler>
82	- <Compiler Name="PackageNoLink">True</Compiler>
83	- <Compiler Name="PackageThreadVar">True</Compiler>
84	- <Compiler Name="ImplicitImport">True</Compiler>
85	- <Compiler Name="HPPEMITIgnored">True</Compiler>
86	- <Compiler Name="NoRetVal">True</Compiler>
87	- <Compiler Name="UseBeforeDef">True</Compiler>
88	- <Compiler Name="ForLoopVarUndef">True</Compiler>
89	- <Compiler Name="UnitNameMismatch">True</Compiler>
90	- <Compiler Name="NoCFGFileFound">True</Compiler>
91	- <Compiler Name="ImplicitVariants">True</Compiler>
92	- <Compiler Name="UnicodeToLocale">True</Compiler>
93	- <Compiler Name="LocaleToUnicode">True</Compiler>
94	- <Compiler Name="ImagebaseMultiple">True</Compiler>
95	- <Compiler Name="SuspiciousTypecast">True</Compiler>
96	- <Compiler Name="PrivatePropAccessor">True</Compiler>
97	- <Compiler Name="UnsafeType">False</Compiler>
98	- <Compiler Name="UnsafeCode">False</Compiler>
99	- <Compiler Name="UnsafeCast">False</Compiler>
100	- <Compiler Name="OptionTruncated">True</Compiler>
101	- <Compiler Name="WideCharReduced">True</Compiler>
102	- <Compiler Name="DuplicatesIgnored">True</Compiler>
103	- <Compiler Name="UnitInitSeq">True</Compiler>
104	- <Compiler Name="LocalPInvoke">True</Compiler>
105	- <Compiler Name="MessageDirective">True</Compiler>
106	- <Compiler Name="CodePage"></Compiler>
107	- </Compiler>
108	- <Linker>
109	- <Linker Name="MapFile">0</Linker>
110	- <Linker Name="OutputObjs">0</Linker>
111	- <Linker Name="GenerateHpps">False</Linker>
112	- <Linker Name="ConsoleApp">1</Linker>
113	- <Linker Name="DebugInfo">False</Linker>
114	- <Linker Name="RemoteSymbols">False</Linker>
115	- <Linker Name="GenerateDRC">False</Linker>
116	- <Linker Name="MinStackSize">16384</Linker>
117	- <Linker Name="MaxStackSize">1048576</Linker>
118	- <Linker Name="ImageBase">4194304</Linker>
119	- <Linker Name="ExeDescription"></Linker>
120	- </Linker>
121	- <Directories>
122	- <Directories Name="OutputDir"></Directories>
123	- <Directories Name="UnitOutputDir"></Directories>
124	- <Directories Name="PackageDLLOutputDir"></Directories>
125	- <Directories Name="PackageDCPOutputDir"></Directories>
126	- <Directories Name="SearchPath"></Directories>
127	- <Directories Name="Packages"></Directories>
128	- <Directories Name="Conditionals"></Directories>
129	- <Directories Name="DebugSourceDirs"></Directories>
130	- <Directories Name="UsePackages">False</Directories>
131	- </Directories>
132	- <Parameters>
133	- <Parameters Name="RunParams"></Parameters>
134	- <Parameters Name="HostApplication"></Parameters>
135	- <Parameters Name="Launcher"></Parameters>
136	- <Parameters Name="UseLauncher">False</Parameters>
137	- <Parameters Name="DebugCWD"></Parameters>
138	- <Parameters Name="Debug Symbols Search Path"></Parameters>
139	- <Parameters Name="LoadAllSymbols">True</Parameters>
140	- <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
141	- </Parameters>
142	- <Language>
143	- <Language Name="ActiveLang"></Language>
144	- <Language Name="ProjectLang">$00000000</Language>
145	- <Language Name="RootDir"></Language>
146	- </Language>
147	- <VersionInfo>
148	- <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
149	- <VersionInfo Name="AutoIncBuild">False</VersionInfo>
150	- <VersionInfo Name="MajorVer">1</VersionInfo>
151	- <VersionInfo Name="MinorVer">0</VersionInfo>
152	- <VersionInfo Name="Release">0</VersionInfo>
153	- <VersionInfo Name="Build">0</VersionInfo>
154	- <VersionInfo Name="Debug">False</VersionInfo>
155	- <VersionInfo Name="PreRelease">False</VersionInfo>
156	- <VersionInfo Name="Special">False</VersionInfo>
157	- <VersionInfo Name="Private">False</VersionInfo>
158	- <VersionInfo Name="DLL">False</VersionInfo>
159	- <VersionInfo Name="Locale">1044</VersionInfo>
160	- <VersionInfo Name="CodePage">1252</VersionInfo>
161	- </VersionInfo>
162	- <VersionInfoKeys>
163	- <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
164	- <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
165	- <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
166	- <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
167	- <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
168	- <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
169	- <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
170	- <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
171	- <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
172	- <VersionInfoKeys Name="Comments"></VersionInfoKeys>
173	- </VersionInfoKeys> <Excluded_Packages>
174	- <Excluded_Packages Name="C:\Programfiler\Fellesfiler\RemObjects Software\Everwood\Bin\RemObjects_Everwood_D10.bpl">RemObjects Everwood for Delphi</Excluded_Packages>
175	- <Excluded_Packages Name="C:\Programfiler\RemObjects Software\RemObjects SDK for Delphi\Dcu\D10\RemObjects_Core_D10.bpl">RemObjects SDK - Core Library</Excluded_Packages>
176	- <Excluded_Packages Name="C:\Programfiler\RemObjects Software\RemObjects SDK for Delphi\Dcu\D10\RemObjects_WebBroker_D10.bpl">RemObjects SDK - WebBroker Library</Excluded_Packages>
177	- <Excluded_Packages Name="C:\Programfiler\RemObjects Software\RemObjects SDK for Delphi\Dcu\D10\RemObjects_RODX_D10.bpl">RemObjects SDK - RODXSock Library</Excluded_Packages>
178	- <Excluded_Packages Name="C:\Programfiler\RemObjects Software\RemObjects SDK for Delphi\Dcu\D10\RemObjects_BPDX_D10.bpl">RemObjects SDK - BPDX Library</Excluded_Packages>
179	- <Excluded_Packages Name="C:\Programfiler\RemObjects Software\RemObjects SDK for Delphi\Dcu\D10\RemObjects_DataSnap_D10.bpl">RemObjects SDK - DataSnap Integration Pack</Excluded_Packages>
180	- <Excluded_Packages Name="C:\Programfiler\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_Core_D10.bpl">RemObjects Pascal Script - Core Package</Excluded_Packages>
181	- <Excluded_Packages Name="C:\Programfiler\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
182	- <Excluded_Packages Name="C:\Programfiler\RemObjects Software\RemObjects SDK for Delphi\Dcu\D10\RemObjects_Indy_D10.bpl">RemObjects SDK - Indy Library</Excluded_Packages>
183	- <Excluded_Packages Name="C:\Programfiler\RemObjects Software\RemObjects SDK for Delphi\Dcu\D10\RemObjects_IDE_D10.bpl">RemObjects SDK - IDE Integration for Win32</Excluded_Packages>
184	- <Excluded_Packages Name="C:\Programfiler\RemObjects Software\Data Abstract for Delphi\Dcu\D10\DataAbstract_Core_D10.bpl">RemObjects Data Abstract - Core Library</Excluded_Packages>
185	- <Excluded_Packages Name="C:\Programfiler\RemObjects Software\Data Abstract for Delphi\Dcu\D10\DataAbstract_IDE_D10.bpl">RemObjects Data Abstract - IDE Package</Excluded_Packages>
186	- <Excluded_Packages Name="C:\Programfiler\RemObjects Software\Data Abstract for Delphi\Dcu\D10\DataAbstract_ADODriver_D10.bpl">RemObjects Data Abstract - ADOExpress/dbGo Driver</Excluded_Packages>
187	- <Excluded_Packages Name="C:\Programfiler\RemObjects Software\Data Abstract for Delphi\Dcu\D10\DataAbstract_IBXDriver_D10.bpl">RemObjects Data Abstract - InterBase Express Driver</Excluded_Packages>
188	- <Excluded_Packages Name="C:\Programfiler\RemObjects Software\Data Abstract for Delphi\Dcu\D10\DataAbstract_DBXDriver_D10.bpl">RemObjects Data Abstract - dbExpress Driver</Excluded_Packages>
189	- <Excluded_Packages Name="C:\Programfiler\RemObjects Software\Data Abstract for Delphi\Dcu\D10\DataAbstract_Scripting_D10.bpl">RemObjects Data Abstract - Scripting Integration Library</Excluded_Packages>
190	- </Excluded_Packages>
191	- </Delphi.Personality>
192	- <StarTeamAssociation></StarTeamAssociation>
193	- <StarTeamNonRelativeFiles></StarTeamNonRelativeFiles>
194	-</BorlandProject>

ktwsapi/delphi/examples/KTWSAPIExamples.dpr deleted

View file @b56238b

1	-{
2	- Copyright (c) 2008, The Jam Warehouse Software (Pty) Ltd.
3	-
4	- All rights reserved.
5	-
6	- Redistribution and use in source and binary forms, with or without
7	- modification, are permitted provided that the following conditions are met:
8	-
9	- i) Redistributions of source code must retain the above copyright notice,
10	- this list of conditions and the following disclaimer.
11	- ii) Redistributions in binary form must reproduce the above copyright
12	- notice, this list of conditions and the following disclaimer in the
13	- documentation and/or other materials provided with the distribution.
14	- iii) Neither the name of the The Jam Warehouse Software (Pty) Ltd nor the
15	- names of its contributors may be used to endorse or promote products
16	- derived from this software without specific prior written permission.
17	-
18	- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
19	- "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
20	- LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
21	- A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
22	- CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
23	- EXEMPLARY, OR CONSEQUENTIAL DAMAGES ( INCLUDING, BUT NOT LIMITED TO,
24	- PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
25	- PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
26	- LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT ( INCLUDING
27	- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
28	- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
29	-}
30	-
31	-{*
32	- This is a Delphi port of the php api for KnowledgeTree WebService.
33	-
34	- @Author Bjarte Kalstveit Vebj�rnsen <bjarte@macaos.com>
35	- @Version 1.0 BKV 24.09.2007 Initial revision
36	-*}
37	-
38	-
39	-program KTWSAPIExamples;
40	-
41	-uses
42	- Forms,
43	- uFolderContentExample in 'uFolderContentExample.pas' {FolderContentExample},
44	- uwebservice in '..\uwebservice.pas',
45	- uktwsapi in '..\uktwsapi.pas',
46	- uPHPserialize in '..\uPHPserialize.pas';
47	-
48	-{$R *.res}
49	-
50	-begin
51	- Application.Initialize;
52	- Application.CreateForm(TFolderContentExample, FolderContentExample);
53	- Application.Run;
54	-end.
55	-

ktwsapi/delphi/examples/KTWSAPIExamples.res deleted

View file @b56238b

No preview for this file type

ktwsapi/delphi/examples/uFolderContentExample.dfm deleted

View file @b56238b

1	-object FolderContentExample: TFolderContentExample
2	- Left = 0
3	- Top = 0
4	- Caption = 'FolderContentExample'
5	- ClientHeight = 538
6	- ClientWidth = 219
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	- PixelsPerInch = 96
15	- TextHeight = 13
16	- object tvFolderList: TTreeView
17	- AlignWithMargins = True
18	- Left = 3
19	- Top = 34
20	- Width = 213
21	- Height = 501
22	- Align = alClient
23	- Images = ImageList4
24	- Indent = 19
25	- TabOrder = 0
26	- OnCollapsed = tvFolderListCollapsed
27	- OnExpanded = tvFolderListExpanded
28	- end
29	- object Button1: TButton
30	- AlignWithMargins = True
31	- Left = 3
32	- Top = 3
33	- Width = 213
34	- Height = 25
35	- Align = alTop
36	- Caption = 'Populate folders'
37	- TabOrder = 1
38	- OnClick = Button1Click
39	- end
40	- object ImageList4: TImageList
41	- Left = 8
42	- Top = 496
43	- Bitmap = {
44	- 494C010102000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
45	- 0000000000003600000028000000400000001000000001002000000000000010
46	- 00000000000000000000000000000000000000000000078DBE00078DBE00078D
47	- BE00078DBE00078DBE00078DBE00078DBE00078DBE00078DBE00078DBE00078D
48	- BE00078DBE00078DBE00000000000000000000000000078DBE00078DBE00078D
49	- BE00078DBE00078DBE00078DBE00078DBE00078DBE00078DBE00078DBE00078D
50	- BE00078DBE000000000000000000000000000000000000000000000000000000
51	- 0000000000000000000000000000000000000000000000000000000000000000
52	- 0000000000000000000000000000000000000000000000000000000000000000
53	- 0000000000000000000000000000000000000000000000000000000000000000
54	- 000000000000000000000000000000000000078DBE0063CBF800078DBE00A3E1
55	- FB0066CDF90065CDF80065CDF90065CDF90065CDF80065CDF90065CDF80066CD
56	- F8003AADD800ACE7F500078DBE0000000000078DBE0025A1D10071C6E80084D7
57	- FA0066CDF90065CDF90065CDF90065CDF90065CDF80065CDF90065CDF80066CE
58	- F9003AADD8001999C90000000000000000000000000000000000000000000000
59	- 0000000000000000000000000000000000000000000000000000000000000000
60	- 0000000000000000000000000000000000000000000000000000000000000000
61	- 0000000000000000000000000000000000000000000000000000000000000000
62	- 000000000000000000000000000000000000078DBE006AD1F900078DBE00A8E5
63	- FC006FD4FA006FD4F9006ED4FA006FD4F9006FD4FA006FD4FA006FD4FA006ED4
64	- F9003EB1D900B1EAF500078DBE0000000000078DBE004CBCE70039A8D100A0E2
65	- FB006FD4FA006FD4F9006ED4FA006FD4F9006FD4FA006FD4FA006FD4FA006ED4
66	- F9003EB1D900C9F0F300078DBE00000000000000000000000000000000000000
67	- 0000000000000000000000000000000000000000000000000000000000000000
68	- 0000000000000000000000000000000000000000000000000000000000000000
69	- 0000000000000000000000000000000000000000000000000000000000000000
70	- 000000000000000000000000000000000000078DBE0072D6FA00078DBE00AEEA
71	- FC0079DCFB0079DCFB0079DCFB0079DCFB0079DCFB007ADCFB0079DCFA0079DC
72	- FA0044B5D900B6EEF600078DBE0000000000078DBE0072D6FA00078DBE00AEE9
73	- FC0079DCFB0079DCFB0079DCFB0079DCFB0079DCFB007ADCFB0079DCFA0079DC
74	- FA0044B5D900C9F0F300078DBE00000000000000000000000000000000000000
75	- 0000000000000000000000000000000000000000000000000000000000000000
76	- 0000000000000000000000000000000000000000000000000000000000000000
77	- 0000000000000000000000000000000000000000000000000000000000000000
78	- 000000000000000000000000000000000000078DBE0079DDFB00078DBE00B5EE
79	- FD0083E4FB0084E4FB0083E4FC0083E4FC0084E4FC0083E4FC0083E4FB0084E5
80	- FC0048B9DA00BBF2F600078DBE0000000000078DBE0079DDFB001899C7009ADF
81	- F30092E7FC0084E4FB0083E4FC0083E4FC0084E4FC0083E4FC0083E4FB0084E5
82	- FC0048B9DA00C9F0F3001496C400000000000000000000000000000000000000
83	- 0000000000000000000000000000000000000000000000000000000000000000
84	- 0000000000000000000000000000000000000000000000000000000000000000
85	- 0000000000000000000000000000000000000000000000000000000000000000
86	- 000000000000000000000000000000000000078DBE0082E3FC00078DBE00BAF3
87	- FD008DEBFC008DEBFC008DEBFC008DEBFD008DEBFD008DEBFC008DEBFD008DEB
88	- FC004CBBDA00BEF4F700078DBE0000000000078DBE0082E3FC0043B7DC0065C2
89	- E000ABF0FC008DEBFC008DEBFC008DEBFD008DEBFD008DEBFC008DEBFD008DEB
90	- FC004CBBDA00C9F0F300C9F0F300078DBE000000000000000000000000000000
91	- 0000000000000000000000000000000000000000000000000000000000000000
92	- 0000000000000000000000000000000000000000000000000000000000000000
93	- 0000000000000000000000000000000000000000000000000000000000000000
94	- 000000000000000000000000000000000000078DBE008AEAFC00078DBE00FFFF
95	- FF00C9F7FE00C8F7FE00C9F7FE00C9F7FE00C9F7FE00C8F7FE00C9F7FE00C8F7
96	- FE009BD5E700DEF9FB00078DBE0000000000078DBE008AEAFC0077DCF300219C
97	- C700FEFFFF00C8F7FD00C9F7FD00C9F7FD00C9F7FE00C8F7FE00C9F7FD00C8F7
98	- FE009BD5E600EAFEFE00D2F3F800078DBE000000000000000000000000000000
99	- 0000000000000000000000000000000000000000000000000000000000000000
100	- 0000000000000000000000000000000000000000000000000000000000000000
101	- 0000000000000000000000000000000000000000000000000000000000000000
102	- 000000000000000000000000000000000000078DBE0093F0FE00078DBE00078D
103	- BE00078DBE00078DBE00078DBE00078DBE00078DBE00078DBE00078DBE00078D
104	- BE00078DBE00078DBE00078DBE0000000000078DBE0093F0FE0093F0FD001697
105	- C500078DBE00078DBE00078DBE00078DBE00078DBE00078DBE00078DBE00078D
106	- BE00078DBE00078DBE00078DBE00078DBE000000000000000000000000000000
107	- 0000000000000000000000000000000000000000000000000000000000000000
108	- 0000000000000000000000000000000000000000000000000000000000000000
109	- 0000000000000000000000000000000000000000000000000000000000000000
110	- 000000000000000000000000000000000000078DBE009BF5FE009AF6FE009AF6
111	- FE009BF5FD009BF6FE009AF6FE009BF5FE009AF6FD009BF5FE009AF6FE009AF6
112	- FE000989BA00000000000000000000000000078DBE009BF5FE009AF6FE009AF6
113	- FE009BF5FD009BF6FE009AF6FE009BF5FE009AF6FD009BF5FE009AF6FE009AF6
114	- FE000989BA000000000000000000000000000000000000000000000000000000
115	- 0000000000000000000000000000000000000000000000000000000000000000
116	- 0000000000000000000000000000000000000000000000000000000000000000
117	- 0000000000000000000000000000000000000000000000000000000000000000
118	- 000000000000000000000000000000000000078DBE00FEFEFE00A0FBFF00A0FB
119	- FE00A0FBFE00A1FAFE00A1FBFE00A0FAFE00A1FBFE00A1FBFF00A0FBFF00A1FB
120	- FF000989BA00000000000000000000000000078DBE00FEFEFE00A0FBFF00A0FB
121	- FE00A0FBFE00A1FAFE00A1FBFE00A0FAFE00A1FBFE00A1FBFF00A0FBFF00A1FB
122	- FF000989BA000000000000000000000000000000000000000000000000000000
123	- 0000000000000000000000000000000000000000000000000000000000000000
124	- 0000000000000000000000000000000000000000000000000000000000000000
125	- 0000000000000000000000000000000000000000000000000000000000000000
126	- 00000000000000000000000000000000000000000000078DBE00FEFEFE00A5FE
127	- FF00A5FEFF00A5FEFF00078DBE00078DBE00078DBE00078DBE00078DBE00078D
128	- BE000000000000000000000000000000000000000000078DBE00FEFEFE00A5FE
129	- FF00A5FEFF00A5FEFF00078DBE00078DBE00078DBE00078DBE00078DBE00078D
130	- BE00000000000000000000000000000000000000000000000000000000000000
131	- 0000000000000000000000000000000000000000000000000000000000000000
132	- 0000000000000000000000000000000000000000000000000000000000000000
133	- 0000000000000000000000000000000000000000000000000000000000000000
134	- 0000000000000000000000000000000000000000000000000000078DBE00078D
135	- BE00078DBE00078DBE0000000000000000000000000000000000000000000000
136	- 0000000000000000000000000000000000000000000000000000078DBE00078D
137	- BE00078DBE00078DBE0000000000000000000000000000000000000000000000
138	- 0000000000000000000000000000000000000000000000000000000000000000
139	- 0000000000000000000000000000000000000000000000000000000000000000
140	- 0000000000000000000000000000000000000000000000000000000000000000
141	- 0000000000000000000000000000000000000000000000000000000000000000
142	- 0000000000000000000000000000000000000000000000000000000000000000
143	- 0000000000000000000000000000000000000000000000000000000000000000
144	- 0000000000000000000000000000000000000000000000000000000000000000
145	- 0000000000000000000000000000000000000000000000000000000000000000
146	- 0000000000000000000000000000000000000000000000000000000000000000
147	- 0000000000000000000000000000000000000000000000000000000000000000
148	- 0000000000000000000000000000000000000000000000000000000000000000
149	- 0000000000000000000000000000000000000000000000000000000000000000
150	- 0000000000000000000000000000000000000000000000000000000000000000
151	- 0000000000000000000000000000000000000000000000000000000000000000
152	- 0000000000000000000000000000000000000000000000000000000000000000
153	- 0000000000000000000000000000000000000000000000000000000000000000
154	- 0000000000000000000000000000000000000000000000000000000000000000
155	- 0000000000000000000000000000000000000000000000000000000000000000
156	- 0000000000000000000000000000000000000000000000000000000000000000
157	- 0000000000000000000000000000000000000000000000000000000000000000
158	- 0000000000000000000000000000000000000000000000000000000000000000
159	- 0000000000000000000000000000000000000000000000000000000000000000
160	- 0000000000000000000000000000000000000000000000000000000000000000
161	- 0000000000000000000000000000000000000000000000000000000000000000
162	- 0000000000000000000000000000000000000000000000000000000000000000
163	- 0000000000000000000000000000000000000000000000000000000000000000
164	- 0000000000000000000000000000000000000000000000000000000000000000
165	- 0000000000000000000000000000000000000000000000000000000000000000
166	- 0000000000000000000000000000000000000000000000000000000000000000
167	- 0000000000000000000000000000000000000000000000000000000000000000
168	- 0000000000000000000000000000000000000000000000000000000000000000
169	- 0000000000000000000000000000000000000000000000000000000000000000
170	- 0000000000000000000000000000000000000000000000000000000000000000
171	- 0000000000000000000000000000000000000000000000000000000000000000
172	- 0000000000000000000000000000000000000000000000000000000000000000
173	- 0000000000000000000000000000000000000000000000000000000000000000
174	- 000000000000000000000000000000000000424D3E000000000000003E000000
175	- 2800000040000000100000000100010000000000800000000000000000000000
176	- 000000000000000000000000FFFFFF0080038007000000000001000300000000
177	- 0001000100000000000100010000000000010001000000000001000000000000
178	- 0001000000000000000100000000000000070007000000000007000700000000
179	- 800F800F00000000C3FFC3FF00000000FFFFFFFF00000000FFFFFFFF00000000
180	- FFFFFFFF00000000FFFFFFFF0000000000000000000000000000000000000000
181	- 000000000000}
182	- end
183	-end

ktwsapi/delphi/examples/uFolderContentExample.pas deleted

View file @b56238b

1	-unit uFolderContentExample;
2	-
3	-interface
4	-
5	-uses
6	- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7	- Dialogs, uKtwsapi, uWebService, ImgList, ComCtrls, StdCtrls;
8	-
9	-type
10	- TFolderContentExample = class(TForm)
11	- tvFolderList: TTreeView;
12	- ImageList4: TImageList;
13	- Button1: TButton;
14	- procedure Button1Click(Sender: TObject);
15	- procedure tvFolderListCollapsed(Sender: TObject; Node: TTreeNode);
16	- procedure tvFolderListExpanded(Sender: TObject; Node: TTreeNode);
17	- private
18	- { Private declarations }
19	- FIsPopulating: Boolean;
20	- procedure PopulateTreeView(items: kt_folder_items;
21	- parent: TTreeNode; tv: TTreeView);
22	- public
23	- { Public declarations }
24	- end;
25	-
26	-var
27	- FolderContentExample: TFolderContentExample;
28	- UserName, Password: String;
29	-
30	-implementation
31	-
32	-{$R *.dfm}
33	-
34	-procedure TFolderContentExample.Button1Click(Sender: TObject);
35	-var
36	- ktapi: TKTWSAPI;
37	- folder: TKTWSAPI_Folder;
38	- contents: kt_folder_contents;
39	-begin
40	- if FIsPopulating then Exit;
41	-
42	- Screen.Cursor := crHourglass;
43	-
44	- FIsPopulating := True;
45	- ktapi := TKTWSAPI.Create;
46	- try
47	- ktapi.SetDownloadPath(ExtractFileDir(Application.ExeName));
48	- ktapi.StartSession(UserName,Password);
49	-
50	- folder:= ktapi.GetRootFolder;
51	- try
52	- contents := folder.GetListing(10);
53	- try
54	- PopulateTreeView(contents.items, nil, tvFolderList);
55	- finally
56	- contents.Free;
57	- end;
58	- finally
59	- folder.Free;
60	- end;
61	-
62	- ktapi.Logout;
63	- finally
64	- ktapi.Free;
65	- Screen.Cursor := crDefault;
66	- FIsPopulating := False;
67	- end;
68	-end;
69	-
70	-procedure TFolderContentExample.PopulateTreeView(items: kt_folder_items; parent: TTreeNode;
71	- tv: TTreeView);
72	-var
73	- I: Integer;
74	- node: TTreeNode;
75	- it: kt_folder_item;
76	-begin
77	- for I := 0 to Length(items) - 1 do
78	- begin
79	- it := items[i];
80	- if it.item_type <> 'F' then Continue;
81	- node := tv.Items.AddChild(parent, it.title);
82	- node.ImageIndex := 0;
83	- node.Data := it;
84	- if (Length(it.items) > 0) then
85	- PopulateTreeView(it.items, node, tv);
86	- end;
87	-end;
88	-
89	-procedure TFolderContentExample.tvFolderListCollapsed(Sender: TObject;
90	- Node: TTreeNode);
91	-begin
92	- Node.ImageIndex := 0;
93	-end;
94	-
95	-procedure TFolderContentExample.tvFolderListExpanded(Sender: TObject;
96	- Node: TTreeNode);
97	-begin
98	- Node.ImageIndex := 1;
99	-end;
100	-
101	-initialization
102	- UserName := 'xxxx';
103	- Password := 'xxxx';
104	- uktwsapi.KTWebServerUrl := 'http://ktdms.trunk';
105	- uktwsapi.KTWebServiceUrl := uktwsapi.KTWebServerUrl+'/ktwebservice/webservice.php?wsdl';
106	- uktwsapi.KTUploadUrl := uktwsapi.KTWebServerUrl+'/ktwebservice/upload.php';
107	-
108	-end.

ktwsapi/delphi/uPHPserialize.pas deleted

View file @b56238b

1	-{
2	- Copyright (c) 2007, The Jam Warehouse Software (Pty) Ltd.
3	-
4	- All rights reserved.
5	-
6	- Redistribution and use in source and binary forms, with or without
7	- modification, are permitted provided that the following conditions are met:
8	-
9	- i) Redistributions of source code must retain the above copyright notice,
10	- this list of conditions and the following disclaimer.
11	- ii) Redistributions in binary form must reproduce the above copyright
12	- notice, this list of conditions and the following disclaimer in the
13	- documentation and/or other materials provided with the distribution.
14	- iii) Neither the name of the The Jam Warehouse Software (Pty) Ltd nor the
15	- names of its contributors may be used to endorse or promote products
16	- derived from this software without specific prior written permission.
17	-
18	- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
19	- "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
20	- LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
21	- A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
22	- CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
23	- EXEMPLARY, OR CONSEQUENTIAL DAMAGES ( INCLUDING, BUT NOT LIMITED TO,
24	- PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
25	- PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
26	- LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT ( INCLUDING
27	- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
28	- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
29	-}
30	-
31	-{*
32	- A helper unit to unserialize a php serialized string
33	-
34	- Inspired by the various implementaions presented here
35	- http://www.phpguru.org/static/PHP_Unserialize.html
36	-
37	- @Author Bjarte Kalstveit Vebjørnsen <bjarte@macaos.com>
38	- @Version 1.0 BKV 24.09.2007 Initial revision
39	- @Todo A complementary serializing function would be nice
40	-*}
41	-
42	-unit uPHPSerialize;
43	-
44	-interface
45	-
46	-uses
47	- Classes, SysUtils, Variants, ComCtrls;
48	-
49	-type
50	- TPHPValue = class;
51	- TPHPArray = class;
52	- TPHPSerialize = class;
53	-
54	- /// a single hash element
55	- TPHPHashElement = record
56	- Key: TPHPValue; /// The Key part of the element
57	- Value: TPHPValue; /// The Value part of the element
58	- end;
59	-
60	- /// an array of hash elements
61	- TPHPHashedElementArray = array of TPHPHashElement;
62	-
63	- /// Tries to replicate a php array by accessing values through strings
64	- /// @Todo: Add support for numeric keys
65	- TPHPArray = class
66	- private
67	- FElements: TPHPHashedElementArray; /// array of hash elements
68	- function GetValue(Key: string): TPHPValue; overload;
69	- function GetValue(Key: TPHPValue): TPHPValue; overload;
70	- procedure SetValue(Key: TPHPValue; VValue: TPHPValue); overload;
71	- function GetCount: Integer;
72	- function Getempty: Boolean;
73	- public
74	- property Value[Key: string]: TPHPValue read GetValue; default;
75	- property Value[Key: TPHPValue]: TPHPValue read GetValue write SetValue; default;
76	- property Count: Integer read GetCount;
77	- property Empty: Boolean read Getempty;
78	- procedure Clear;
79	- constructor Create;
80	- destructor Destroy; override;
81	- end;
82	-
83	- /// Tries to represent a PHP value of any type
84	- TPHPValue = class
85	- private
86	- FObj: TObject; /// Holds value if it's an object or array
87	- FValue: String; /// Holds value if it's something else
88	- procedure Clear;
89	- public
90	- constructor Create(Value: TObject); overload;
91	- constructor Create(Value: String); overload;
92	- destructor Destroy; override;
93	- function AsString: String;
94	- function AsDouble: Double;
95	- function AsInteger: Integer;
96	- function AsObject: TObject;
97	- function AsArray: TPHPArray;
98	- function AsBoolean: Boolean;
99	- end;
100	-
101	- /// Class for unserializing a php serialized string
102	- TPHPSerialize = class
103	- private
104	- function GetLength(Data: String): Integer;
105	- function GetIntLength(Value: Integer): Integer;
106	- public
107	- class function Unserialize(Data: String): TPHPValue;
108	- function _Unserialize(var Data: String): TPHPValue;
109	- end;
110	-
111	-implementation
112	-
113	-{ TPHPSerialize }
114	-
115	-{*
116	- Finds the length of they to the type
117	-
118	- @param string Data
119	- @return integer
120	-*}
121	-function TPHPSerialize.GetLength(Data: String): Integer;
122	-begin
123	- Data := Copy(Data, 3, Length(Data));
124	-
125	- Result := StrToIntDef(Copy(Data, 0, Pos(':', Data)-1), 0);
126	-end;
127	-
128	-{*
129	- Finds the lenght of the character-space the value occupies
130	-
131	- @param integer Value
132	- @return Integer
133	-*}
134	-function TPHPSerialize.GetIntLength(Value: Integer): Integer;
135	-begin
136	- Result := Length(IntToStr(Value));
137	-end;
138	-
139	-{*
140	- Helper function to use this class statically
141	-
142	- @param integer Value
143	- @return Integer
144	-*}
145	-class function TPHPSerialize.Unserialize(Data: String): TPHPValue;
146	-var
147	- obj: TPHPSerialize;
148	-begin
149	- obj := TPHPSerialize.Create;
150	- try
151	- Result := obj._Unserialize(Data);
152	- finally
153	- obj.Free;
154	- end;
155	-end;
156	-
157	-{*
158	- Recursing function for unserializing a string and creating a php value from it
159	-
160	- @see TPHPValue
161	- @param Data String
162	- @return TPHPValue
163	-*}
164	-function TPHPSerialize._Unserialize(var Data: String): TPHPValue;
165	-var
166	- I, Len: Integer;
167	- Num: Double;
168	- C: String;
169	- Arr: TPHPArray;
170	- Key, Value: TPHPValue;
171	-begin
172	- C := Copy(Data,0,1);
173	-
174	- if (C = 'a') then
175	- begin
176	- Len := GetLength(Data);
177	- Data := Copy(Data, GetIntLength(Len) + 5, Length(Data) );
178	-
179	- Arr := TPHPArray.Create;
180	- for I := 0 to Len-1 do
181	- begin
182	- Key := _Unserialize(Data);
183	- Value := _Unserialize(Data);
184	-
185	- Arr[Key] := Value;
186	- end;
187	-
188	- Data := Copy(Data, Length(Data));
189	- Result := TPHPValue.Create(Arr);
190	-
191	- end else if (C = 's') then
192	- begin
193	- Len := GetLength(Data);
194	- Result := TPHPValue.Create(Copy(Data, GetIntLength(Len) + 5, Len));
195	- Data := Copy(Data, GetIntLength(Len) + 7 + Len, Length(Data));
196	- end else if (C = 'i') or (C = 'd') then
197	- begin
198	- Num := StrToFloat(Copy(Data, 3, AnsiPos(';', Data)-3));
199	- Result := TPHPValue.Create(FloatToStr(Num));
200	- Data := Copy(Data, Length(FloatToStr(Num)) + 4, Length(Data));
201	- end else if (C = 'b') then
202	- begin
203	- Result := TPHPValue.Create(BoolToStr(Copy(Data, 3, 1) = '1'));
204	- Data := Copy(Data, 4, Length(Data));
205	- end else if (C = 'O') or (C = 'r') or (C = 'C') or (C = 'R')
206	- or (C = 'U') then
207	- begin
208	- raise Exception.Create('Unsupported PHP data type found!');
209	- end else if (C = 'N') then
210	- begin
211	- Result := TPHPValue.Create(nil);
212	- Data := Copy(Data, 2, Length(Data));
213	- end else
214	- begin
215	- Result := TPHPValue.Create(nil);
216	- Data := '';
217	- end;
218	-end;
219	-
220	-
221	-{ TPHPValue }
222	-
223	-{*
224	- Returns value as boolan
225	-
226	- @return boolean value
227	-*}
228	-function TPHPValue.AsBoolean: Boolean;
229	-begin
230	- Result := StrToBool(FValue);
231	-end;
232	-
233	-{*
234	- Returns value as double
235	-
236	- @return double value
237	-*}
238	-function TPHPValue.AsDouble: Double;
239	-begin
240	- Result := StrToFloat(FValue);
241	-end;
242	-
243	-{*
244	- Returns value as an associative-array
245	-
246	- @return associative-array
247	-*}
248	-function TPHPValue.AsArray: TPHPArray;
249	-begin
250	- Result := nil;
251	- Assert(Assigned(FObj));
252	-
253	- if (FObj.ClassType = TPHPArray) then
254	- Result := TPHPArray(FObj);
255	-end;
256	-
257	-{*
258	- Returns value as an integer
259	-
260	- @return integer value
261	-*}
262	-function TPHPValue.AsInteger: Integer;
263	-begin
264	- Result := StrToInt(FValue);
265	-end;
266	-
267	-{*
268	- Returns value as an object
269	-
270	- @return object value
271	-*}
272	-function TPHPValue.AsObject: TObject;
273	-begin
274	- Assert(Assigned(FObj));
275	- Result := FObj;
276	-end;
277	-
278	-{*
279	- Returns value as a string
280	-
281	- @return string value
282	-*}
283	-function TPHPValue.AsString: String;
284	-begin
285	- Result := FValue;
286	-end;
287	-
288	-{*
289	- Constructor
290	-
291	- @param Value Value to store
292	-*}
293	-constructor TPHPValue.Create(Value: String);
294	-begin
295	- Clear;
296	- FValue := Value;
297	-end;
298	-
299	-{*
300	- Constructor
301	-
302	- @param Value Value to store
303	-*}
304	-constructor TPHPValue.Create(Value: TObject);
305	-begin
306	- Clear;
307	- FObj := Value;
308	-end;
309	-
310	-{*
311	- Clears current value
312	-*}
313	-procedure TPHPValue.Clear;
314	-begin
315	- FValue := '';
316	- if Assigned(FObj) then FObj.Free;
317	- FObj := nil;
318	-end;
319	-
320	-{*
321	- Destructor
322	-*}
323	-destructor TPHPValue.Destroy;
324	-begin
325	- Clear;
326	- inherited;
327	-end;
328	-
329	-{ TPHPArray }
330	-
331	-
332	-{*
333	- Clears whole array
334	-*}
335	-procedure TPHPArray.Clear;
336	-var
337	- i: Integer;
338	-begin
339	- for i := 0 to GetCount - 1 do
340	- begin
341	- FElements[i].Key.Free;
342	- FElements[i].Key := nil;
343	- FElements[i].Value.Free;
344	- FElements[i].Value := nil;
345	- end;
346	- SetLength(FElements, 0);
347	-end;
348	-
349	-{*
350	- Constructor
351	-*}
352	-constructor TPHPArray.Create;
353	-begin
354	- inherited;
355	- Clear;
356	-end;
357	-
358	-{*
359	- Destructor
360	-*}
361	-destructor TPHPArray.Destroy;
362	-begin
363	- Clear;
364	- inherited;
365	-end;
366	-
367	-{*
368	- Returns the number of items in the array
369	-
370	- @return number of items
371	-*}
372	-function TPHPArray.GetCount: Integer;
373	-begin
374	- Result := Length(FElements);
375	-end;
376	-
377	-{*
378	- Checks if the array is empty
379	-
380	- @return true
381	-*}
382	-function TPHPArray.Getempty: Boolean;
383	-begin
384	- Result := Length(FElements) = 0;
385	-end;
386	-
387	-{*
388	- Fetch a phpvalue from the array
389	-
390	- @param Key Handle to phpvalue
391	- @return handle to phpvalue
392	-*}
393	-function TPHPArray.GetValue(Key: TPHPValue): TPHPValue;
394	-begin
395	- Result := GetValue(Key.FValue);
396	-end;
397	-
398	-{*
399	- Fetch a phpvalue from the array
400	-
401	- @param Key Index to element
402	- @return handle to phpvalue
403	-*}
404	-function TPHPArray.GetValue(Key: string): TPHPValue;
405	-var
406	- i: Integer;
407	- r: Boolean;
408	-begin
409	- Result := nil;
410	- i := 0;
411	- r := False;
412	- while (i < Length(FElements)) and (not r) do
413	- begin
414	- if AnsiUpperCase(FElements[i].key.AsString) = AnsiUpperCase(Key) then
415	- begin
416	- Result := FElements[i].Value;
417	- r := True;
418	- end;
419	- i := i + 1;
420	- end;
421	-end;
422	-
423	-{*
424	- Insert a phpvalue into the array
425	-
426	- @param Key Index to element
427	- @return handle to phpvalue
428	-*}
429	-procedure TPHPArray.SetValue(Key, VValue: TPHPValue);
430	-var
431	- i, j: Integer;
432	- r: Boolean;
433	- E: TPHPHashedElementArray;
434	-begin
435	- if VValue <> nil then
436	- begin
437	- i := 0;
438	- r := False;
439	- while (i < Length(FElements)) and not r do
440	- begin
441	- if AnsiUpperCase(FElements[i].key.AsString) = AnsiUpperCase(Key.AsString) then
442	- begin
443	- FElements[i].Value := VValue;
444	- r := True;
445	- end;
446	- i := i + 1;
447	- end;
448	- if not r then
449	- begin
450	- SetLength(FElements, Length(FElements) + 1);
451	- FElements[Length(FElements) - 1].Key := Key;
452	- FElements[Length(FElements) - 1].Value := Vvalue;
453	- end;
454	- end;
455	-
456	- SetLength(E, Length(FElements));
457	- for i := 0 to Length(FElements) - 1 do E[i] := FElements[i];
458	- SetLength(FElements, 0);
459	- for i := 0 to Length(E) - 1 do if (E[i].Key.AsString <> '')
460	- and (E[i].Value <> nil) then
461	- begin
462	- j := Length(FElements);
463	- setlength(FElements, j + 1);
464	- FElements[j] := E[i];
465	- end;
466	-end;
467	-
468	-end.
469	-

ktwsapi/delphi/uktwsapi.pas deleted

View file @b56238b

1	-{
2	- Copyright (c) 2007, The Jam Warehouse Software (Pty) Ltd.
3	-
4	- All rights reserved.
5	-
6	- Redistribution and use in source and binary forms, with or without
7	- modification, are permitted provided that the following conditions are met:
8	-
9	- i) Redistributions of source code must retain the above copyright notice,
10	- this list of conditions and the following disclaimer.
11	- ii) Redistributions in binary form must reproduce the above copyright
12	- notice, this list of conditions and the following disclaimer in the
13	- documentation and/or other materials provided with the distribution.
14	- iii) Neither the name of the The Jam Warehouse Software (Pty) Ltd nor the
15	- names of its contributors may be used to endorse or promote products
16	- derived from this software without specific prior written permission.
17	-
18	- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
19	- "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
20	- LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
21	- A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
22	- CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
23	- EXEMPLARY, OR CONSEQUENTIAL DAMAGES ( INCLUDING, BUT NOT LIMITED TO,
24	- PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
25	- PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
26	- LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT ( INCLUDING
27	- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
28	- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
29	-}
30	-
31	-{*
32	- This is a Delphi port of the php api for KnowledgeTree WebService.
33	-
34	- @Author Bjarte Kalstveit Vebjørnsen <bjarte@macaos.com>
35	- @Version 1.0 BKV 24.09.2007 Initial revision
36	-*}
37	-
38	-unit uktwsapi;
39	-
40	-interface
41	-
42	-uses
43	- Classes, SysUtils, SOAPHTTPClient, uwebservice;
44	-
45	-type
46	-
47	- /// Base exception class
48	- EKTWSAPI_Exception = class(Exception);
49	-
50	- TKTWSAPI_FolderItem = class;
51	- TKTWSAPI_Folder = class;
52	- TKTWSAPI_Document = class;
53	- TKTWSAPI = class;
54	-
55	- /// Base class for documents and folders
56	- TKTWSAPI_FolderItem = class(TObject)
57	- private
58	- FKTAPI: TKTWSAPI; /// Handle to KTAPI object
59	- FParentId: Integer; /// Id of parent folder
60	-
61	- function _GetFileSize(FileName: WideString): WideString;
62	- function _UploadFile(FileName, Action: WideString; DocumentId: Integer = 0): WideString;
63	- function _DownloadFile(Url, LocalPath, FileName: WideString): Boolean;
64	- function _SaveBase64StringAsFile(Base64String, LocalPath, FileName: WideString): Boolean;
65	- function _LoadFileAsBase64String(FileName: WideString): WideString;
66	-
67	- public
68	- function GetParentFolder:TKTWSAPI_Folder;
69	- end;
70	-
71	- /// Class representing a folder
72	- TKTWSAPI_Folder = class(TKTWSAPI_FolderItem)
73	- private
74	- FFolderName, /// Name of folder
75	- FFullPath: WideString; /// Full path to folder
76	-
77	- FFolderId: Integer; /// Id to folder
78	- public
79	- constructor Create(KTAPI:TKTWSAPI; FolderDetail: kt_folder_detail); overload;
80	- class function Get(KTAPI: TKTWSAPI; FolderId:Integer): TKTWSAPI_Folder;
81	- function GetParentFolderId: Integer;
82	- function GetFolderName: WideString;
83	- function GetFolderId: Integer;
84	- function GetFolderByName(FolderName: WideString): TKTWSAPI_Folder;
85	- function GetFullPath: WideString;
86	- function GetListing(Depth: Integer=1; What: WideString = 'DF'): kt_folder_contents;
87	- function GetDocumentByName(Title: WideString): TKTWSAPI_Document;
88	- function GetDocumentByFileName(FileName: WideString): TKTWSAPI_Document;
89	- function AddFolder(FolderName: WideString): TKTWSAPI_Folder;
90	- function Delete(Reason: WideString): Boolean;
91	- function Rename(NewName: WideString): Boolean;
92	- function Move(TargetFolder:TKTWSAPI_Folder; Reason: WideString): Boolean;
93	- function Copy(TargetFolder:TKTWSAPI_Folder; Reason: WideString): Boolean;
94	- function AddDocument(FileName: WideString; Title: WideString = '';
95	- DocumentType: WideString = ''): TKTWSAPI_Document;
96	- function AddDocumentBase64(FileName: WideString; Title: WideString = '';
97	- DocumentType: WideString = ''): TKTWSAPI_Document;
98	- published
99	- property FolderName: WideString read FFolderName write FFolderName;
100	- property FullPath: WideString read FFullPath write FFullPath;
101	- property FolderId: Integer read FFolderId write FFolderId;
102	- end;
103	-
104	- /// Class representing a document
105	- TKTWSAPI_Document = class(TKTWSAPI_FolderItem)
106	- private
107	-
108	- FDocumentId: Integer; /// Id of document
109	- FTitle, /// Title of document
110	- FDocumentType, /// Type of document
111	- FVersion, /// Document version
112	- FFileName, /// Original filename
113	- FCreatedDate, /// Date created
114	- FCreatedBy, /// Name of user who created
115	- FUpdatedDate, /// Date updated
116	- FUpdatedBy, /// Name of user who updated
117	- FWorkflow, /// Workflow
118	- FWorkflowState, /// Workflow state
119	- FCheckoutBy, /// Name of user who checked out
120	- FFullPath: WideString; /// Full path to document
121	- public
122	- constructor Create(KTAPI: TKTWSAPI; DocumentDetail: kt_document_detail);
123	-
124	- class function Get(KTAPI: TKTWSAPI; DocumentId: Integer;
125	- LoadInfo: Boolean = System.True): TKTWSAPI_Document;
126	- function Checkin(FileName, Reason: WideString; MajorUpdate: Boolean): Boolean;
127	- function Checkout(Reason: WideString; LocalPath: WideString = '';
128	- DownloadFile: Boolean = True): Boolean;
129	- function UndoCheckout(Reason: WideString): Boolean;
130	- function Download(Version: WideString = ''; LocalPath: WideString = ''; FileName: WideString = ''): Boolean;
131	- function Delete(Reason: WideString): Boolean;
132	- function ChangeOwner(UserName, Reason: WideString): Boolean;
133	- function Copy(Folder: TKTWSAPI_Folder; Reason: WideString;
134	- NewTitle: WideString = ''; NewFileName: WideString = ''): Boolean;
135	- function Move(Folder: TKTWSAPI_Folder; Reason: WideString;
136	- NewTitle: WideString = ''; NewFileName: WideString = ''): Boolean;
137	- function ChangeDocumentType(DocumentType: WideString): Boolean;
138	- function RenameTitle(NewTitle: WideString): Boolean;
139	- function RenameFilename(NewFilename: WideString): Boolean;
140	- function StartWorkflow(WorkFlow: WideString): Boolean;
141	- function DeleteWorkflow: Boolean;
142	- function PeformWorkflowTransition(Transition, Reason: WideString): Boolean;
143	- function GetMetadata:kt_metadata_response;
144	- function UpdateMetadata(Metadata: kt_metadata_fieldsets): Boolean;
145	- function GetTransactionHistory: kt_document_transaction_history_response;
146	- function GetVersionHistory: kt_document_version_history_response;
147	- function GetLinks: kt_linked_document_response;
148	- function Link(DocumentId: Integer; const LinkType: WideString): Boolean;
149	- function Unlink(DocumentId: Integer): Boolean;
150	- function CheckinBase64(FileName, Reason: WideString; MajorUpdate: Boolean): Boolean;
151	- function CheckoutBase64(Reason: WideString; LocalPath: WideString = '';
152	- DownloadFile: Boolean = True): Boolean;
153	- function DownloadBase64(Version: WideString = ''; LocalPath: WideString = ''): Boolean;
154	- function GetTypes: kt_document_types_response;
155	- function GetLinkTypes: kt_document_types_response;
156	-
157	- property DocumentId: Integer read FDocumentId write FDocumentId;
158	- property Title: WideString read FTitle write FTitle;
159	- property DocumentType: WideString read FDocumentType write FDocumentType;
160	- property Version: WideString read FVersion write FVersion;
161	- property FileName: WideString read FFileName write FFileName;
162	- property CreatedDate: WideString read FCreatedBy write FCreatedBy;
163	- property CreatedBy: WideString read FCreatedBy write FCreatedBy;
164	- property UpdatedDate: WideString read FUpdatedDate write FUpdatedDate;
165	- property UpdatedBy: WideString read FUpdatedBy write FUpdatedBy;
166	- property Workflow: WideString read FWorkflow write FWorkflow;
167	- property WorkflowState: WideString read FWorkflowState write FWorkflowState;
168	- property CheckoutBy: WideString read FCheckoutBy write FCheckoutBy;
169	- property FullPath: WideString read FFullPath write FFullPath;
170	- end;
171	-
172	- /// Api entry point
173	- TKTWSAPI = class
174	- private
175	-
176	- FSession, /// Current session id
177	- FDownloadPath: WideString; /// Current download path
178	-
179	- FSoapClient:KnowledgeTreePort; /// Object implementing the
180	- /// KnowledgeTreePort interface
181	- public
182	- constructor Create();
183	- function GetDownloadPath: WideString;
184	- function SetDownloadPath(DownloadPath:WideString): Boolean;
185	- function StartAnonymousSession(Ip: WideString = ''): WideString;
186	- function StartSession(Username, Password: WideString; Ip: WideString = ''): WideString;
187	- function ActiveSession(Session: WideString; Ip: WideString = ''): WideString;
188	- function Logout: Boolean;
189	- function GetRootFolder: TKTWSAPI_Folder;
190	- function GetFolderById(FolderId: Integer): TKTWSAPI_Folder;
191	- function GetDocumentById(DocumentId: Integer): TKTWSAPI_Document;
192	- published
193	- property SoapClient: KnowledgeTreePort read FSoapClient write FSoapClient;
194	- property Session: WideString read FSession write FSession;
195	- end;
196	-var
197	- KTWebServerUrl: WideString; /// Your webserver url
198	- KTUploadUrl: WideString; /// URL to the web-service upload.php
199	- KTWebServiceUrl: WideString; /// URL to the web-service wsdl
200	-
201	-implementation
202	-
203	-uses
204	- IdComponent, IdURI, IdHttp, IdMultipartFormData, IdGlobalProtocols,
205	- uPHPSerialize, EncdDecd;
206	-const
207	- KTWSAPI_ERR_SESSION_IN_USE =
208	- 'There is a session already active.'; /// Exception message when session is in use
209	- KTWSAPI_ERR_SESSION_NOT_STARTED =
210	- 'An active session has not been started.'; /// Exception message when session is not started
211	-
212	-
213	-{ TKTWSAPI_FolderItem }
214	-
215	-{*
216	- Finds the filesize of a file.
217	-
218	- @param FileName Path to the file
219	- @return The size of the file as a string
220	-*}
221	-function TKTWSAPI_FolderItem._GetFileSize(FileName: WideString): WideString;
222	-var
223	- SearchRec: TSearchRec;
224	- sgPath: string;
225	- inRetval, I1: Integer;
226	-begin
227	- sgPath := ExpandFileName(FileName);
228	- try
229	- inRetval := FindFirst(ExpandFileName(FileName), faAnyFile, SearchRec);
230	- if inRetval = 0 then
231	- I1 := SearchRec.Size
232	- else
233	- I1 := -1;
234	- finally
235	- SysUtils.FindClose(SearchRec);
236	- end;
237	- Result := IntToStr(I1);
238	-end;
239	-
240	-{*
241	- Reads a file into a string and base64 encodes it.
242	-
243	- @param Base64String Base64 encoded string
244	- @param LocalPath Path to load from
245	- @param FileName FileName to read
246	- @return base64 encoded string
247	- @throws EKTWSAPI_Exception 'Could not access file to read.'
248	-*}
249	-function TKTWSAPI_FolderItem._LoadFileAsBase64String(FileName: WideString): WideString;
250	-var
251	- Stream: TFileStream;
252	- InString: AnsiString;
253	-begin
254	- if not FileExists(FileName) then
255	- raise EKTWSAPI_Exception.Create('Could not access file to read.');
256	- Stream := TFileStream.Create(FileName, fmOpenRead);
257	- try
258	- SetLength(InString, Stream.Size);
259	- Stream.ReadBuffer(InString[1], Length(InString));
260	- Result := EncodeString(InString);
261	- finally
262	- Stream.Free;
263	- end;
264	-end;
265	-
266	-{*
267	- Save a Base64 encoded string as a file.
268	-
269	- @param Base64String Base64 encoded string
270	- @param LocalPath Path to save to
271	- @param FileName FileName to save as
272	- @return true if success
273	-*}
274	-function TKTWSAPI_FolderItem._SaveBase64StringAsFile(Base64String, LocalPath,
275	- FileName: WideString): Boolean;
276	-var
277	- OutString: AnsiString;
278	- Stream: TFileStream;
279	- LocalFileName: String;
280	-begin
281	- LocalFileName := LocalPath + '/' + FileName;
282	- OutString := DecodeString(Base64String);
283	- Stream := TFileStream.Create(LocalFileName, fmCreate);
284	- try
285	- // For some reason it fails if I use WideString instead of AnsiString
286	- Stream.WriteBuffer(Pointer(OutString)^, Length(OutString));
287	- Result := true;
288	- finally
289	- Stream.Free;
290	- end;
291	-end;
292	-
293	-{*
294	- Upload a file to KT.
295	-
296	- @param FileName Path to upload file
297	- @param Action Which action to perform with the file (A = Add, C = Checkin)
298	- @param DocumentId Id of the document
299	- @return The temporary filename on the server
300	- @throws EKTWSAPI_Exception Could not access file to upload.
301	- @throws EKTWSAPI_Exception No response from server.
302	- @throws EKTWSAPI_Exception Could not upload file.
303	-*}
304	-function TKTWSAPI_FolderItem._UploadFile(FileName, Action: WideString;
305	- DocumentId: Integer): WideString;
306	-var
307	- UploadName, UploadStatus, SessionId, StatusCode: WideString;
308	- PostStream: TIdMultiPartFormDataStream;
309	- ResponseStream: TStringStream;
310	- Fields: TStringList;
311	- HTTP: TIdHTTP;
312	- UploadData: TPHPValue;
313	- FilesArr: TPHPArray;
314	-begin
315	- Result := '';
316	- if not FileExists(FileName) then
317	- raise EKTWSAPI_Exception.Create('Could not access file to upload.');
318	- // TODO: Check if file is readable
319	-
320	- if (DocumentId = 0) then
321	- UploadName := 'upload_document'
322	- else
323	- UploadName := 'upload_'+IntToStr(DocumentId);
324	- SessionId := FKTAPI.Session;
325	-
326	- HTTP := TIdHttp.Create(nil);
327	- try
328	- PostStream := TIdMultiPartFormDataStream.Create;
329	- ResponseStream := TStringStream.Create('');
330	- Fields := TStringList.Create;
331	- try
332	- PostStream.AddFormField('session_id', SessionId);
333	- PostStream.AddFormField('action', Action);
334	- PostStream.AddFormField('document_id',IntToStr(DocumentId));
335	- PostStream.AddFormField(UploadName,'@' + FileName);
336	- PostStream.AddFile('file',FileName,GetMIMETypeFromFile(FileName));
337	-
338	- HTTP.Request.ContentType := PostStream.RequestContentType;
339	- HTTP.Post(KTUploadURL, PostStream, ResponseStream);
340	- if (ResponseStream.DataString = '') then
341	- raise EKTWSAPI_Exception.Create('No response from server.');
342	- ExtractStrings(['&'], [' '], pAnsiChar(ResponseStream.DataString), Fields);
343	-
344	- StatusCode := Copy(Fields[0], Pos('=',Fields[0])+1, 1);
345	- if (StatusCode <> '0') then
346	- raise EKTWSAPI_Exception.Create('Could not upload file.');
347	-
348	-
349	- UploadStatus := Copy(Fields[1], Pos('=',Fields[1])+1, Length(Fields[1]));
350	- UploadStatus := TIdURI.URLDecode(UploadStatus);
351	- UploadData := TPHPSerialize.Unserialize(TIdURI.URLDecode(UploadStatus));
352	- Assert(Assigned(UploadData));
353	- Assert(Assigned(UploadData.AsArray['file']));
354	- try
355	- FilesArr := UploadData.AsArray['file'].AsArray;
356	-
357	- if (FilesArr['size'].AsString <> _GetFileSize(FileName)) then
358	- raise EKTWSAPI_Exception.Create('Could not upload file.');
359	-
360	- Result := FilesArr['tmp_name'].AsString;
361	- finally
362	- UploadData.Free;
363	- end;
364	- finally
365	- PostStream.Free;
366	- ResponseStream.Free;
367	- Fields.Free;
368	- end;
369	- finally
370	- HTTP.Free;
371	- end;
372	-end;
373	-
374	-{*
375	- Downloads a file from KT.
376	-
377	- @param Url Http-url to download
378	- @param LocalPath Path to save to
379	- @param FileName FileName to save as
380	- @return true if success
381	- @throws EKTWSAPI_Exception Could not create local file
382	-*}
383	-function TKTWSAPI_FolderItem._DownloadFile(Url, LocalPath,
384	- FileName: WideString): Boolean;
385	-var
386	- Stream: TMemoryStream;
387	- LocalFileName: WideString;
388	- FP: File;
389	- HTTP: TIdHTTP;
390	-begin
391	- LocalFileName := LocalPath + '/' + FileName;
392	-
393	- AssignFile(FP, LocalFileName);
394	- {$I-}
395	- Rewrite(FP,1);
396	- {$I+}
397	- if (IOResult <> 0) then
398	- raise EKTWSAPI_Exception.Create('Could not create local file');
399	- CloseFile(FP);
400	- HTTP := TIdHttp.Create(Nil);
401	- try
402	- Stream := TMemoryStream.Create;
403	- try
404	- HTTP.Get(Url, Stream);
405	- Stream.SaveToFile(LocalFileName);
406	- Result := true;
407	- finally
408	- Stream.Free;
409	- end;
410	- finally
411	- HTTP.Free;
412	- end;
413	-end;
414	-
415	-{*
416	- Returns a reference to the parent folder.
417	-
418	- @return Handle to parent folder
419	-*}
420	-function TKTWSAPI_FolderItem.GetParentFolder: TKTWSAPI_Folder;
421	-begin
422	- Result := FKTAPI.GetFolderById(FParentId);
423	-end;
424	-
425	-
426	- { TKTWSAPI_Folder }
427	-
428	-{*
429	- Constructor
430	-
431	- @param KTAPI Handle to KTAPI object
432	- @param FolderDetail Handle to kt_folder_detail
433	-*}
434	-constructor TKTWSAPI_Folder.Create(KTAPI: TKTWSAPI;
435	- FolderDetail: kt_folder_detail);
436	-begin
437	- FKTAPI := KTAPI;
438	- FFolderId := FolderDetail.id;
439	- FFolderName := FolderDetail.folder_name;
440	- FParentId := FolderDetail.parent_id;
441	- FFullPath := FolderDetail.full_path;
442	-end;
443	-
444	-{*
445	- Returns a reference to a TKTWSAPI_Folder
446	-
447	- @param KTAPI Handle to KTAPI object
448	- @param FolderId Id of folder to fetch
449	- @return folder handle
450	- @throws EKTWSAPI_Exception Response message
451	-*}
452	-class function TKTWSAPI_Folder.Get(KTAPI: TKTWSAPI;
453	- FolderId: Integer): TKTWSAPI_Folder;
454	-var
455	- FolderDetail: kt_folder_detail;
456	-begin
457	- Assert(Assigned(KTAPI));
458	- Assert(KTAPI.ClassNameIs('TKTWSAPI'));
459	- Result := nil;
460	-
461	- FolderDetail := KTAPI.SoapClient.get_folder_detail(KTAPI.Session, FolderId);
462	- try
463	- if (FolderDetail.status_code <> 0) then
464	- raise EKTWSAPI_Exception.Create(FolderDetail.message_);
465	-
466	- Result := TKTWSAPI_Folder.Create(KTAPI, FolderDetail);
467	-
468	- finally
469	- FolderDetail.Free;
470	- end;
471	-end;
472	-
473	-{*
474	- Returns the parent folder id.
475	-
476	- @return parent folder id
477	-*}
478	-function TKTWSAPI_Folder.GetParentFolderId: Integer;
479	-begin
480	- Result := FParentId;
481	-end;
482	-
483	-{*
484	- Returns the folder name.
485	-
486	- @return folder name
487	-*}
488	-function TKTWSAPI_Folder.GetFolderName: WideString;
489	-begin
490	- Result := FFolderName;
491	-end;
492	-
493	-{*
494	- Returns the current folder id.
495	-
496	- @return current folder id
497	-*}
498	-function TKTWSAPI_Folder.GetFolderId: Integer;
499	-begin
500	- Result := FFolderId;
501	-end;
502	-
503	-{*
504	- Returns the folder based on foldername.
505	-
506	- @param FolderName Name of folder
507	- @return folder handle
508	- @throws EKTWSAPI_Exception Response message
509	-*}
510	-function TKTWSAPI_Folder.GetFolderByName(FolderName: WideString): TKTWSAPI_Folder;
511	-var
512	- Path: WideString;
513	- FolderDetail: kt_folder_detail;
514	-begin
515	- Path := FFullPath + '/' + FolderName;
516	- if (System.Copy(Path, 0, 13) = '/Root Folder/') then
517	- Path := System.Copy(Path, 13, Length(Path)-1);
518	- if (System.Copy(Path, 0, 12) = 'Root Folder/') then
519	- Path := System.Copy(Path, 12, Length(Path)-1);
520	-
521	- FolderDetail := FKTAPI.SoapClient.get_folder_detail_by_name(FKTAPI.Session,
522	- Path);
523	-
524	- if (FolderDetail.status_code <> 0) then
525	- raise EKTWSAPI_Exception.Create(FolderDetail.message_);
526	-
527	- Result := TKTWSAPI_Folder.Create(FKTAPI, FolderDetail);
528	-end;
529	-
530	-{*
531	- Returns the full folder path.
532	-
533	- @return Full folder path
534	-*}
535	-function TKTWSAPI_Folder.GetFullPath: WideString;
536	-begin
537	- Result := FFullPath;
538	-end;
539	-
540	-{*
541	- Returns the contents of a folder.
542	-
543	- @param Depth How many sub-folders to fetch
544	- @param What to fetch (F=Folders, D=Documents, FD=Both)
545	- @return folder contents handle
546	- @throws EKTWSAPI_Exception Response message
547	-*}
548	-function TKTWSAPI_Folder.GetListing(Depth: Integer;
549	- What: WideString): kt_folder_contents;
550	-begin
551	- Result := FKTAPI.SoapClient.get_folder_contents(
552	- FKTAPI.Session, FFolderId, Depth, What);
553	-
554	- if (Result.status_code <> 0) then
555	- raise EKTWSAPI_Exception.Create(Result.message_);
556	-end;
557	-
558	-{*
559	- Returns a document based on title.
560	-
561	- @param Title Title of document
562	- @return document handle
563	- @throws EKTWSAPI_Exception Response message
564	-*}
565	-function TKTWSAPI_Folder.GetDocumentByName(Title: WideString): TKTWSAPI_Document;
566	-var
567	- Path: WideString;
568	- DocumentDetail: kt_document_detail;
569	-begin
570	- Path := FFullPath + '/' + Title;
571	- if (System.Copy(Path, 0, 13) = '/Root Folder/') then
572	- Path := System.Copy(Path, 13, Length(Path)-1);
573	- if (System.Copy(Path, 0, 12) = 'Root Folder/') then
574	- Path := System.Copy(Path, 12, Length(Path)-1);
575	-
576	- DocumentDetail := FKTAPI.SoapClient.get_document_detail_by_name(FKTAPI.Session,
577	- Path, 'T');
578	-
579	- if (DocumentDetail.status_code <> 0) then
580	- raise EKTWSAPI_Exception.Create(DocumentDetail.message_);
581	-
582	- Result := TKTWSAPI_Document.Create(FKTAPI, DocumentDetail);
583	-end;
584	-
585	-{*
586	- Returns a document based on filename.
587	-
588	- @param FileName Name of file
589	- @return document handle
590	- @throws EKTWSAPI_Exception Response message
591	-*}
592	-function TKTWSAPI_Folder.GetDocumentByFileName(
593	- FileName: WideString): TKTWSAPI_Document;
594	-var
595	- Path: WideString;
596	- DocumentDetail: kt_document_detail;
597	-begin
598	- Result := nil;
599	- Path := FFullPath + '/' + FileName;
600	- if (System.Copy(Path, 0, 13) = '/Root Folder/') then
601	- Path := System.Copy(Path, 13, Length(Path)-1);
602	- if (System.Copy(Path, 0, 12) = 'Root Folder/') then
603	- Path := System.Copy(Path, 12, Length(Path)-1);
604	-
605	- DocumentDetail := FKTAPI.SoapClient.get_document_detail_by_name(FKTAPI.Session,
606	- Path, 'F');
607	- try
608	- if (DocumentDetail.status_code <> 0) then
609	- raise EKTWSAPI_Exception.Create(DocumentDetail.message_);
610	- Result := TKTWSAPI_Document.Create(FKTAPI, DocumentDetail);
611	- finally
612	- DocumentDetail.Free;
613	- end;
614	-end;
615	-
616	-{*
617	- Adds a sub folder.
618	-
619	- @param FolderName Name of folder
620	- @return new folder handle
621	- @throws EKTWSAPI_Exception Response message
622	-*}
623	-function TKTWSAPI_Folder.AddFolder(FolderName: WideString): TKTWSAPI_Folder;
624	-var
625	- FolderDetail: kt_folder_detail;
626	-begin
627	- Result := nil;
628	- FolderDetail := FKTAPI.SoapClient.create_folder(FKTAPI.Session, FFolderId, FolderName);
629	- try
630	- if (FolderDetail.status_code <> 0) then
631	- raise EKTWSAPI_Exception.Create(FolderDetail.message_);
632	-
633	- Result := TKTWSAPI_Folder.Create(FKTAPI, FolderDetail);
634	- finally
635	- FolderDetail.Free;
636	- end;
637	-end;
638	-
639	-{*
640	- Deletes the current folder.
641	-
642	- @param Reason Reason for deletetion
643	- @return true
644	- @throws EKTWSAPI_Exception Response message
645	-*}
646	-function TKTWSAPI_Folder.Delete(Reason: WideString): Boolean;
647	-var
648	- response: kt_response;
649	-begin
650	- // TODO: check why no transaction in folder_transactions
651	- Result := System.False;
652	- response := FKTAPI.SoapClient.delete_folder(FKTAPI.Session,
653	- FFolderId, Reason);
654	- try
655	- if (response.status_code <> 0) then
656	- raise EKTWSAPI_Exception.Create(response.message_);
657	- Result := System.True;
658	- finally
659	- response.Free;
660	- end;
661	-end;
662	-
663	-{*
664	- Renames the current folder.
665	-
666	- @param NewName New folder name
667	- @return true
668	- @throws EKTWSAPI_Exception Response message
669	-*}
670	-function TKTWSAPI_Folder.Rename(NewName: WideString): Boolean;
671	-var
672	- response: kt_response;
673	-begin
674	- Result := System.False;
675	- response := FKTAPI.SoapClient.rename_folder(FKTAPI.Session,
676	- FFolderId, NewName);
677	- try
678	- if (response.status_code <> 0) then
679	- raise EKTWSAPI_Exception.Create(response.message_);
680	- Result := System.True;
681	- finally
682	- response.Free;
683	- end;
684	-end;
685	-
686	-{*
687	- Moves a folder to another location.
688	-
689	- @param TargetFolder Handle to target folder
690	- @param Reason Reason for move
691	- @return true
692	- @throws EKTWSAPI_Exception Response message
693	-*}
694	-function TKTWSAPI_Folder.Move(TargetFolder: TKTWSAPI_Folder;
695	- Reason: WideString): Boolean;
696	-var
697	- response: kt_response;
698	-begin
699	- Result := System.False;
700	- Assert(Assigned(TargetFolder));
701	- Assert(TargetFolder.ClassNameIs('TKTWSAPI_Folder'));
702	-
703	- response := FKTAPI.SoapClient.move_folder(FKTAPI.Session,
704	- FFolderId, TargetFolder.GetFolderId, Reason);
705	- try
706	- if (response.status_code <> 0) then
707	- raise EKTWSAPI_Exception.Create(response.message_);
708	- Result := System.True;
709	- finally
710	- response.Free;
711	- end;
712	-end;
713	-
714	-{*
715	- Copies a folder to another location
716	-
717	- @param TargetFolder Handle to target folder
718	- @param Reason Reason for copy
719	- @return true
720	- @throws EKTWSAPI_Exception Response message
721	-*}
722	-function TKTWSAPI_Folder.Copy(TargetFolder: TKTWSAPI_Folder;
723	- Reason: WideString): Boolean;
724	-var
725	- TargetId: Integer;
726	- response: kt_response;
727	-begin
728	- Result := System.False;
729	- Assert(Assigned(TargetFolder));
730	- Assert(TargetFolder.ClassNameIs('TKTWSAPI_Folder'));
731	-
732	- TargetId := TargetFolder.GetFolderId;
733	- response := FKTAPI.SoapClient.copy_folder(FKTAPI.Session,
734	- FFolderId, TargetId, Reason);
735	- try
736	- if (response.status_code <> 0) then
737	- raise EKTWSAPI_Exception.Create(response.message_);
738	- Result := System.True;
739	- finally
740	- response.Free;
741	- end;
742	-end;
743	-
744	-{*
745	- Adds a document to the current folder.
746	-
747	- @param FileName FileName to upload
748	- @param Title Title to give document
749	- @param DocumentType Documenttype of document (Default is 'Default')
750	- @return handle to new document
751	- @throws EKTWSAPI_Exception Response message
752	-*}
753	-function TKTWSAPI_Folder.AddDocument(FileName, Title,
754	- DocumentType: WideString): TKTWSAPI_Document;
755	-var
756	- BaseName, TempFileName: WideString;
757	- DocumentDetail: kt_document_detail;
758	-begin
759	- Result := nil;
760	- BaseName := ExtractFileName(FileName);
761	- if (Title = '') then
762	- Title := BaseName;
763	- if (DocumentType = '') then
764	- DocumentType := 'Default';
765	-
766	- TempFileName := _UploadFile(FileName, 'A');
767	- DocumentDetail := FKTAPI.FSoapClient.add_document(FKTAPI.Session, FFolderId,
768	- Title, BaseName, DocumentType, TempFileName);
769	- try
770	- if (DocumentDetail.status_code <> 0) then
771	- raise EKTWSAPI_Exception.Create(DocumentDetail.message_);
772	-
773	- Result := TKTWSAPI_Document.Create(FKTAPI, DocumentDetail);
774	- finally
775	- DocumentDetail.Free;
776	- end;
777	-end;
778	-
779	-{*
780	- Adds a document to the current folder through web service.
781	-
782	- @param FileName FileName to upload
783	- @param Title Title to give document
784	- @param DocumentType Documenttype of document (Default is 'Default')
785	- @return handle to new document
786	- @throws EKTWSAPI_Exception Response message
787	-*}
788	-function TKTWSAPI_Folder.AddDocumentBase64(FileName, Title,
789	- DocumentType: WideString): TKTWSAPI_Document;
790	-begin
791	- raise EKTWSAPI_Exception.Create('Not implemented yet!');
792	-end;
793	-
794	-{ TKTWSAPI_Document }
795	-
796	-{*
797	- Constructor
798	-
799	- @param KTAPI Handle to KTAPI object
800	- @param DocumentDetail handle to kt_document_detail
801	-*}
802	-constructor TKTWSAPI_Document.Create(KTAPI: TKTWSAPI;
803	- DocumentDetail: kt_document_detail);
804	-begin
805	- FKTAPI := KTAPI;
806	- FDocumentId := DocumentDetail.document_id;
807	- FTitle := DocumentDetail.title;
808	- FDocumentType := DocumentDetail.document_type;
809	- FVersion := DocumentDetail.version;
810	- FFilename := DocumentDetail.filename;
811	- FCreatedDate := DocumentDetail.created_date;
812	- FCreatedBy := DocumentDetail.created_by;
813	- FUpdatedDate := DocumentDetail.updated_date;
814	- FUpdatedBy := DocumentDetail.updated_by;
815	- FParentId := DocumentDetail.folder_id;
816	- FWorkflow := DocumentDetail.workflow;
817	- FWorkflowState := DocumentDetail.workflow_state;
818	- FCheckoutBy := DocumentDetail.checkout_by;
819	- FFullPath := DocumentDetail.full_path;
820	-end;
821	-
822	-{*
823	- Returns a reference to a document.
824	-
825	- @param KTAPI Handle to KTAPI object
826	- @param DocumentId Id of document
827	- @param LoadInfo Call web service to load document details
828	- @return handle to document
829	- @throws EKTWSAPI_Exception Response message
830	-*}
831	-class function TKTWSAPI_Document.Get(KTAPI: TKTWSAPI; DocumentId: Integer;
832	- LoadInfo: Boolean): TKTWSAPI_Document;
833	-var
834	- DocumentDetail:kt_document_detail;
835	-begin
836	- Assert(Assigned(KTAPI));
837	- Assert(KTAPI.ClassNameIs('TKTWSAPI'));
838	- if LoadInfo then
839	- begin
840	- DocumentDetail := KTAPI.SoapClient.get_document_detail(KTAPI.Session, DocumentId);
841	-
842	- if (DocumentDetail.status_code <> 0) then
843	- raise EKTWSAPI_Exception.Create(DocumentDetail.message_);
844	-
845	- end else
846	- begin
847	- DocumentDetail := kt_document_detail.Create;
848	- DocumentDetail.document_id := DocumentId;
849	- end;
850	- try
851	- Result := TKTWSAPI_Document.Create(KTAPI, DocumentDetail);
852	- finally
853	- DocumentDetail.Free;
854	- end;
855	-end;
856	-
857	-{*
858	- Checks in a document.
859	-
860	- @param FileName Name of file to checkin
861	- @param Reason Reason for checkin
862	- @param MajorUpdate Checkin as a major update (bumps major version number)
863	- @return true
864	- @throws EKTWSAPI_Exception Response message
865	-*}
866	-function TKTWSAPI_Document.Checkin(FileName, Reason: WideString;
867	- MajorUpdate: Boolean): Boolean;
868	-var
869	- BaseName, TempFileName: WideString;
870	- response: kt_response;
871	-begin
872	- Result := System.False;
873	- BaseName := ExtractFileName(FileName);
874	-
875	- TempFileName := _UploadFile(FileName, 'C', FDocumentId);
876	- response := FKTAPI.SoapClient.checkin_document(FKTAPI.Session, FDocumentId, BaseName, Reason, TempFileName, MajorUpdate);
877	- try
878	- if (response.status_code <> 0) then
879	- raise EKTWSAPI_Exception.Create(response.message_);
880	- Result := System.True;
881	- finally
882	- response.Free;
883	- end;
884	-end;
885	-
886	-{*
887	- Checks out a document.
888	-
889	- @param Reason Reason for checkout
890	- @param LocalPath to save downloaded file to
891	- @param DownloadFile if false then checkout will happen without download
892	- @return true
893	- @throws EKTWSAPI_Exception local path does not exist
894	- @throws EKTWSAPI_Exception Response message
895	-*}
896	-function TKTWSAPI_Document.Checkout(Reason, LocalPath: WideString;
897	- DownloadFile: Boolean): Boolean;
898	-var
899	- response: kt_response;
900	- Url: WideString;
901	-begin
902	- Result := System.False;
903	- if (LocalPath = '') then LocalPath := FKTAPI.GetDownloadPath;
904	-
905	- if not DirectoryExists(LocalPath) then
906	- raise EKTWSAPI_Exception.Create('local path does not exist');
907	-
908	- // TODO check if Directory is writable
909	-
910	- response := FKTAPI.SoapClient.checkout_document(FKTAPI.Session, FDocumentId, Reason);
911	- try
912	- if (response.status_code <> 0) then
913	- raise EKTWSAPI_Exception.Create(response.message_);
914	-
915	- Url := response.message_;
916	-
917	- if DownloadFile then
918	- _DownloadFile(KTWebServerURL+Url, LocalPath, FFileName);
919	-
920	- Result := System.True;
921	- finally
922	- response.Free;
923	- end;
924	-end;
925	-
926	-{*
927	- Undo a document checkout
928	-
929	- @param Reason Reason for undoing the checkout
930	- @return true
931	- @throws EKTWSAPI_Exception Response message
932	-*}
933	-function TKTWSAPI_Document.UndoCheckout(Reason: WideString): Boolean;
934	-var
935	- response: kt_response;
936	-begin
937	- Result := System.False;
938	- response := FKTAPI.SoapClient.undo_document_checkout(FKTAPI.Session, FDocumentId, Reason);
939	- try
940	- if (response.status_code <> 0) then
941	- raise EKTWSAPI_Exception.Create(response.message_);
942	-
943	- Result := System.True;
944	- finally
945	- response.Free;
946	- end;
947	-end;
948	-
949	-{*
950	- Download a version of the document
951	-
952	- @param Version Which version of document to download
953	- @param LocalPath Optional path to save file to
954	- @param FileName Optional filename to save file as
955	- @return true
956	- @throws EKTWSAPI_Exception local path does not exist
957	- @throws EKTWSAPI_Exception Response message
958	-*}
959	-function TKTWSAPI_Document.Download(Version, LocalPath, FileName: WideString): Boolean;
960	-var
961	- response: kt_response;
962	- Url: WideString;
963	-begin
964	- Result := System.False;
965	- if (LocalPath = '') then LocalPath := FKTAPI.GetDownloadPath;
966	- if (FileName = '') then FileName := FFileName;
967	-
968	- if (not DirectoryExists(LocalPath)) then
969	- raise EKTWSAPI_Exception.Create('local path does not exist');
970	-
971	- // TODO: Check if local path is writable
972	-
973	- response := FKTAPI.SoapClient.download_document(FKTAPI.Session, FDocumentId);
974	- try
975	- if (response.status_code <> 0) then
976	- raise EKTWSAPI_Exception.Create(response.message_);
977	- Url := response.message_;
978	- Result := _DownloadFile(KTWebServerURL+Url, LocalPath, FileName);
979	- finally
980	- response.Free;
981	- end;
982	-end;
983	-
984	-
985	-{*
986	- Download a version of the document through webservice
987	-
988	- @param Version Which version of document to download
989	- @param LocalPath Path to save file to
990	- @return true
991	- @throws EKTWSAPI_Exception Response message
992	-*}
993	-function TKTWSAPI_Document.DownloadBase64(Version,
994	- LocalPath: WideString): Boolean;
995	-var
996	- response: kt_response;
997	-begin
998	- Result := System.False;
999	- if (LocalPath = '') then LocalPath := FKTAPI.GetDownloadPath;
1000	- if (FileName = '') then FileName := FFileName;
1001	-
1002	- if (not DirectoryExists(LocalPath)) then
1003	- raise EKTWSAPI_Exception.Create('local path does not exist');
1004	-
1005	- // TODO: Check if local path is writable
1006	-
1007	- response := FKTAPI.SoapClient.download_base64_document(FKTAPI.Session, FDocumentId);
1008	- try
1009	- if (response.status_code <> 0) then
1010	- raise EKTWSAPI_Exception.Create(response.message_);
1011	- Result := _SaveBase64StringAsFile(response.message_, LocalPath, FileName);
1012	- finally
1013	- response.Free;
1014	- end;
1015	-end;
1016	-
1017	-{*
1018	- Deletes the current document.
1019	-
1020	- @param Reason Reason for delete
1021	- @return true
1022	- @throws EKTWSAPI_Exception Response message
1023	-*}
1024	-function TKTWSAPI_Document.Delete(Reason: WideString): Boolean;
1025	-var
1026	- response: kt_response;
1027	-begin
1028	- Result := System.False;
1029	- response := FKTAPI.SoapClient.delete_document(FKTAPI.Session, FDocumentId, Reason);
1030	- try
1031	- if (response.status_code <> 0) then
1032	- raise EKTWSAPI_Exception.Create(response.message_);
1033	-
1034	- Result := System.True;
1035	- finally
1036	- response.Free;
1037	- end;
1038	-end;
1039	-
1040	-{*
1041	- Changes the owner of the document.
1042	-
1043	- @param UserName Username of new owner
1044	- @param Reason Reason for the owner change
1045	- @return true
1046	- @throws EKTWSAPI_Exception Response message
1047	-*}
1048	-function TKTWSAPI_Document.ChangeOwner(UserName, Reason: WideString): Boolean;
1049	-var
1050	- response: kt_response;
1051	-begin
1052	- Result := System.False;
1053	- response := FKTAPI.SoapClient.change_document_owner(FKTAPI.Session, FDocumentId, UserName, Reason);
1054	- try
1055	- if (response.status_code <> 0) then
1056	- raise EKTWSAPI_Exception.Create(response.message_);
1057	-
1058	- Result := System.True;
1059	- finally
1060	- response.Free;
1061	- end;
1062	-end;
1063	-
1064	-{*
1065	- Copies the current document to the specified folder.
1066	-
1067	- @param Folder Handle to target folder
1068	- @param Reason Reason for copy
1069	- @param NewTitle New title of the file
1070	- @param NewFileName New filename of the file
1071	- @return true
1072	- @throws EKTWSAPI_Exception Response message
1073	-*}
1074	-function TKTWSAPI_Document.Copy(Folder: TKTWSAPI_Folder; Reason, NewTitle,
1075	- NewFileName: WideString): Boolean;
1076	-var
1077	- response: kt_response;
1078	- FolderId: Integer;
1079	-begin
1080	- Result := System.False;
1081	- Assert(Assigned(Folder));
1082	- Assert(Folder.ClassNameIs('TKTWSAPI_Folder'));
1083	- FolderId := Folder.GetFolderId;
1084	-
1085	- response := FKTAPI.SoapClient.copy_document(FKTAPI.Session, FDocumentId, FolderId, Reason, NewTitle, NewFileName);
1086	- try
1087	- if (response.status_code <> 0) then
1088	- raise EKTWSAPI_Exception.Create(response.message_);
1089	-
1090	- Result := System.True;
1091	- finally
1092	- response.Free;
1093	- end;
1094	-end;
1095	-
1096	-{*
1097	- Moves the current document to the specified folder.
1098	-
1099	- @param Folder Handle to target folder
1100	- @param Reason Reason for move
1101	- @param NewTitle New title of the file
1102	- @param NewFileName New filename of the file
1103	- @return true
1104	- @throws EKTWSAPI_Exception Response message
1105	-*}
1106	-function TKTWSAPI_Document.Move(Folder: TKTWSAPI_Folder; Reason, NewTitle,
1107	- NewFileName: WideString): Boolean;
1108	-var
1109	- response: kt_response;
1110	- FolderId: Integer;
1111	-begin
1112	- Result := System.False;
1113	- Assert(Assigned(Folder));
1114	- Assert(Folder.ClassNameIs('TKTWSAPI_Folder'));
1115	- FolderId := Folder.GetFolderId;
1116	-
1117	- response := FKTAPI.SoapClient.move_document(FKTAPI.Session, FDocumentId, FolderId, Reason, NewTitle, NewFileName);
1118	- try
1119	- if (response.status_code <> 0) then
1120	- raise EKTWSAPI_Exception.Create(response.message_);
1121	- Result := System.True;
1122	- finally
1123	- response.Free;
1124	- end;
1125	-end;
1126	-
1127	-{*
1128	- Changes the document type.
1129	-
1130	- @param DocumentType DocumentType to change to
1131	- @return true
1132	- @throws EKTWSAPI_Exception Response message
1133	-*}
1134	-function TKTWSAPI_Document.ChangeDocumentType(DocumentType: WideString): Boolean;
1135	-var
1136	- response: kt_response;
1137	-begin
1138	- Result := System.False;
1139	- response := FKTAPI.SoapClient.change_document_type(FKTAPI.Session, FDocumentId, DocumentType);
1140	- try
1141	- if (response.status_code <> 0) then
1142	- raise EKTWSAPI_Exception.Create(response.message_);
1143	-
1144	- Result := System.True;
1145	- finally
1146	- response.Free;
1147	- end;
1148	-end;
1149	-
1150	-{*
1151	- Renames the title of the current document.
1152	-
1153	- @param NewTitle New title of the document
1154	- @return true
1155	- @throws EKTWSAPI_Exception Response message
1156	-*}
1157	-function TKTWSAPI_Document.RenameTitle(NewTitle: WideString): Boolean;
1158	-var
1159	- response: kt_response;
1160	-begin
1161	- Result := System.False;
1162	- response := FKTAPI.SoapClient.rename_document_title(FKTAPI.Session, FDocumentId, NewTitle);
1163	- try
1164	- if (response.status_code <> 0) then
1165	- raise EKTWSAPI_Exception.Create(response.message_);
1166	-
1167	- Result := System.True;
1168	- finally
1169	- response.Free;
1170	- end;
1171	-end;
1172	-
1173	-{*
1174	- Renames the filename of the current document.
1175	-
1176	- @param NewFilename New filename of the document
1177	- @return true
1178	-*}
1179	-function TKTWSAPI_Document.RenameFilename(NewFilename: WideString): Boolean;
1180	-var
1181	- response: kt_response;
1182	-begin
1183	- Result := System.False;
1184	- response := FKTAPI.SoapClient.rename_document_filename(FKTAPI.Session, FDocumentId, NewFilename);
1185	- try
1186	- if (response.status_code <> 0) then
1187	- raise EKTWSAPI_Exception.Create(response.message_);
1188	-
1189	- Result := System.True;
1190	- finally
1191	- response.Free;
1192	- end;
1193	-end;
1194	-
1195	-{*
1196	- Starts a workflow on the current document.
1197	-
1198	- @param WorkFlow Workflow
1199	- @return true
1200	- @throws EKTWSAPI_Exception Response message
1201	-*}
1202	-function TKTWSAPI_Document.StartWorkflow(WorkFlow: WideString): Boolean;
1203	-var
1204	- response: kt_response;
1205	-begin
1206	- Result := System.False;
1207	- response := FKTAPI.SoapClient.start_document_workflow(FKTAPI.Session, FDocumentId, WorkFlow);
1208	- try
1209	- if (response.status_code <> 0) then
1210	- raise EKTWSAPI_Exception.Create(response.message_);
1211	-
1212	- Result := System.True;
1213	- finally
1214	- response.Free;
1215	- end;
1216	-end;
1217	-
1218	-{*
1219	- Removes the workflow process from the current document.
1220	-
1221	- @return true
1222	- @throws EKTWSAPI_Exception Response message
1223	-*}
1224	-function TKTWSAPI_Document.DeleteWorkflow: Boolean;
1225	-var
1226	- response: kt_response;
1227	-begin
1228	- Result := System.False;
1229	- response := FKTAPI.SoapClient.delete_document_workflow(FKTAPI.Session, FDocumentId);
1230	- try
1231	- if (response.status_code <> 0) then
1232	- raise EKTWSAPI_Exception.Create(response.message_);
1233	-
1234	- Result := System.True;
1235	- finally
1236	- response.Free;
1237	- end;
1238	-end;
1239	-
1240	-{*
1241	- Performs a transition on the current document.
1242	-
1243	- @param Transition Transition
1244	- @param Reason Reason for transition
1245	- @return true
1246	- @throws EKTWSAPI_Exception Response message
1247	-*}
1248	-function TKTWSAPI_Document.PeformWorkflowTransition(Transition,
1249	- Reason: WideString): Boolean;
1250	-var
1251	- response: kt_response;
1252	-begin
1253	- Result := System.False;
1254	- response := FKTAPI.SoapClient.perform_document_workflow_transition(FKTAPI.Session, FDocumentId, Transition, Reason);
1255	- try
1256	- if (response.status_code <> 0) then
1257	- raise EKTWSAPI_Exception.Create(response.message_);
1258	-
1259	- Result := System.True;
1260	- finally
1261	- response.Free;
1262	- end;
1263	-end;
1264	-
1265	-{*
1266	- Returns metadata on the document.
1267	-
1268	- @return handle to metadata
1269	- @throws EKTWSAPI_Exception Response message
1270	-*}
1271	-function TKTWSAPI_Document.GetMetadata: kt_metadata_response;
1272	-begin
1273	- Result := FKTAPI.SoapClient.get_document_metadata(FKTAPI.Session, FDocumentId);
1274	-
1275	- if (Result.status_code <> 0) then
1276	- raise EKTWSAPI_Exception.Create(Result.message_);
1277	-end;
1278	-
1279	-{*
1280	- Updates the metadata on the current document.
1281	-
1282	- @param Metadata Handle to metadata
1283	- @return true
1284	- @throws EKTWSAPI_Exception Response message
1285	-*}
1286	-function TKTWSAPI_Document.UpdateMetadata(
1287	- Metadata: kt_metadata_fieldsets): Boolean;
1288	-var
1289	- response: kt_response;
1290	-begin
1291	- Result := System.False;
1292	- response := FKTAPI.SoapClient.update_document_metadata(FKTAPI.Session, FDocumentId, MetaData);
1293	- try
1294	- if (response.status_code <> 0) then
1295	- raise EKTWSAPI_Exception.Create(response.message_);
1296	-
1297	- Result := System.True;
1298	- finally
1299	- response.Free;
1300	- end;
1301	-end;
1302	-
1303	-{*
1304	- Returns the transaction history on the current document.
1305	-
1306	- @return handle to transaction history
1307	- @throws EKTWSAPI_Exception Response message
1308	-*}
1309	-function TKTWSAPI_Document.GetTransactionHistory: kt_document_transaction_history_response;
1310	-begin
1311	- Result := FKTAPI.SoapClient.get_document_transaction_history(FKTAPI.Session, FDocumentId);
1312	- if (Result.status_code <> 0) then
1313	- raise EKTWSAPI_Exception.Create(Result.message_);
1314	-end;
1315	-
1316	-{*
1317	- Returns the version history on the current document.
1318	-
1319	- @return handle to document version history
1320	- @throws EKTWSAPI_Exception Response message
1321	-*}
1322	-function TKTWSAPI_Document.GetVersionHistory: kt_document_version_history_response;
1323	-begin
1324	- Result := FKTAPI.SoapClient.get_document_version_history(FKTAPI.Session, FDocumentId);
1325	- if (Result.status_code <> 0) then
1326	- raise EKTWSAPI_Exception.Create(Result.message_);
1327	-end;
1328	-
1329	-{*
1330	- Returns the links of the current document
1331	-
1332	- @return handle to document version history
1333	- @throws EKTWSAPI_Exception Response message
1334	-*}
1335	-function TKTWSAPI_Document.GetLinks: kt_linked_document_response;
1336	-begin
1337	- Result := FKTAPI.SoapClient.get_document_links(FKTAPI.Session, FDocumentId);
1338	- if (Result.status_code <> 0) then
1339	- raise EKTWSAPI_Exception.Create(Result.message_);
1340	-end;
1341	-
1342	-{*
1343	- Links the current document to a DocumentId
1344	-
1345	- @param DocumentId DocumentId to link to
1346	- @param LinkType Type of link
1347	- @return true
1348	- @throws EKTWSAPI_Exception Response message
1349	-*}
1350	-function TKTWSAPI_Document.Link(DocumentId: Integer;
1351	- const LinkType: WideString): Boolean;
1352	-var
1353	- response: kt_response;
1354	-begin
1355	- Result := System.False;
1356	- response := FKTAPI.SoapClient.link_documents(FKTAPI.Session, FDocumentId,
1357	- DocumentId, LinkType);
1358	- try
1359	- if (response.status_code <> 0) then
1360	- raise EKTWSAPI_Exception.Create(response.message_);
1361	- Result := System.True;
1362	- finally
1363	- response.Free;
1364	- end;
1365	-end;
1366	-
1367	-{*
1368	- Unlinks the current document from a DocumentId
1369	-
1370	- @param DocumentId DocumentId to unlink to
1371	- @return true
1372	- @throws EKTWSAPI_Exception Response message
1373	-*}
1374	-function TKTWSAPI_Document.Unlink(DocumentId: Integer): Boolean;
1375	-var
1376	- response: kt_response;
1377	-begin
1378	- Result := System.False;
1379	- response := FKTAPI.SoapClient.unlink_documents(FKTAPI.Session, FDocumentId,
1380	- DocumentId);
1381	- try
1382	- if (response.status_code <> 0) then
1383	- raise EKTWSAPI_Exception.Create(response.message_);
1384	- Result := System.True;
1385	- finally
1386	- response.Free;
1387	- end;
1388	-end;
1389	-
1390	-{*
1391	- Checks out a document and downloads document through webservice
1392	-
1393	- @param Reason Reason for checkout
1394	- @param LocalPath to save downloaded file to
1395	- @return true
1396	- @throws EKTWSAPI_Exception local path does not exist
1397	- @throws EKTWSAPI_Exception Response message
1398	-*}
1399	-function TKTWSAPI_Document.CheckoutBase64(Reason,
1400	- LocalPath: WideString; DownloadFile: Boolean): Boolean;
1401	-var
1402	- response: kt_response;
1403	-begin
1404	- Result := System.False;
1405	- if (LocalPath = '') then LocalPath := FKTAPI.GetDownloadPath;
1406	-
1407	- if not DirectoryExists(LocalPath) then
1408	- raise EKTWSAPI_Exception.Create('local path does not exist');
1409	-
1410	- // TODO check if Directory is writable
1411	-
1412	- response := FKTAPI.SoapClient.checkout_base64_document(FKTAPI.Session, FDocumentId, Reason, DownloadFile);
1413	- try
1414	- if (response.status_code <> 0) then
1415	- raise EKTWSAPI_Exception.Create(response.message_);
1416	- Result := True;
1417	- if DownloadFile then
1418	- Result := _SaveBase64StringAsFile(response.message_, LocalPath, FFileName);
1419	- finally
1420	- response.Free;
1421	- end;
1422	-end;
1423	-
1424	-{*
1425	- Gets list of document types
1426	-
1427	- @return handle to document types response
1428	- @throws EKTWSAPI_Exception Response message
1429	-*}
1430	-function TKTWSAPI_Document.GetTypes: kt_document_types_response;
1431	-begin
1432	- Result := FKTAPI.SoapClient.get_document_types(FKTAPI.Session);
1433	- if (Result.status_code <> 0) then
1434	- raise EKTWSAPI_Exception.Create(Result.message_);
1435	-end;
1436	-
1437	-{*
1438	- Get list of document link types
1439	- @return handle to document types response
1440	- @throws EKTWSAPI_Exception Response message
1441	-*}
1442	-function TKTWSAPI_Document.GetLinkTypes: kt_document_types_response;
1443	-begin
1444	- Result := FKTAPI.SoapClient.get_document_link_types(FKTAPI.Session);
1445	- if (Result.status_code <> 0) then
1446	- raise EKTWSAPI_Exception.Create(Result.message_);
1447	-end;
1448	-
1449	-{*
1450	- Checks in a document and uploads through webservice
1451	-
1452	- @param FileName Name of file to checkin
1453	- @param Reason Reason for checkin
1454	- @param MajorUpdate Checkin as a major update (bumps major version number)
1455	- @return true
1456	- @throws EKTWSAPI_Exception Response message
1457	-*}
1458	-function TKTWSAPI_Document.CheckinBase64(FileName, Reason: WideString;
1459	- MajorUpdate: Boolean): Boolean;
1460	-var
1461	- Base64String, BaseName: WideString;
1462	- response: kt_response;
1463	-begin
1464	- Result := System.False;
1465	- Base64String := _LoadFileAsBase64String(FileName);
1466	- BaseName := ExtractFileName(FileName);
1467	-
1468	- response := FKTAPI.SoapClient.checkin_base64_document(FKTAPI.Session,
1469	- FDocumentId, BaseName, Reason, Base64String, MajorUpdate);
1470	- try
1471	- if (response.status_code <> 0) then
1472	- raise EKTWSAPI_Exception.Create(response.message_);
1473	- Result := System.True;
1474	- finally
1475	- response.Free;
1476	- end;
1477	-end;
1478	-
1479	-{ TKTWSAPI }
1480	-
1481	-{*
1482	- Constructor
1483	-*}
1484	-constructor Tktwsapi.Create();
1485	-begin
1486	- FSoapClient := GetKnowledgeTreePort(False, KTWebServiceUrl);
1487	- FDownloadPath := '';
1488	-end;
1489	-
1490	-{*
1491	- This returns the default location where documents are downloaded in download() and checkout().
1492	-
1493	- @return string
1494	-*}
1495	-function TKTWSAPI.GetDownloadPath: WideString;
1496	-begin
1497	- Result := FDownloadPath;
1498	-end;
1499	-
1500	-{*
1501	- Allows the default location for downloaded documents to be changed.
1502	-
1503	- @param DownloadPath Path to writable folder
1504	- @return true
1505	-*}
1506	-function TKTWSAPI.SetDownloadPath(DownloadPath: WideString): Boolean;
1507	-begin
1508	- if (not DirectoryExists(DownloadPath)) then
1509	- raise EKTWSAPI_Exception.Create('local path is not writable');
1510	- // TODO : Check if folder is writable
1511	-
1512	- FDownloadPath := DownloadPath;
1513	- Result := System.True;
1514	-end;
1515	-
1516	-{*
1517	- Starts an anonymous session.
1518	-
1519	- @param Ip Users Ip-adress
1520	- @return Active session id
1521	-*}
1522	-function TKTWSAPI.StartAnonymousSession(Ip: WideString): WideString;
1523	-begin
1524	- Result := StartSession('anonymous', '', Ip);
1525	-end;
1526	-
1527	-{*
1528	- Starts a user session.
1529	-
1530	- @param Username Users username
1531	- @param Password Users password
1532	- @param Ip Users Ip-adress
1533	- @return Active session id
1534	- @throws EKTWSAPI_Exception KTWSAPI_ERR_SESSION_IN_USE
1535	- @throws EKTWSAPI_Exception Response message
1536	-*}
1537	-function TKTWSAPI.StartSession(Username, Password, Ip: WideString): WideString;
1538	-var
1539	- response: kt_response;
1540	-begin
1541	- if (FSession <> '') then
1542	- raise EKTWSAPI_Exception.Create(KTWSAPI_ERR_SESSION_IN_USE);
1543	- response := FSoapClient.login(Username, Password, Ip);
1544	- try
1545	- if (response.status_code <> 0) then
1546	- raise EKTWSAPI_Exception.Create(response.message_);
1547	- FSession := response.message_;
1548	- Result := FSession;
1549	- finally
1550	- response.Free;
1551	- end;
1552	-end;
1553	-
1554	-{*
1555	- Sets an active session.
1556	-
1557	- @param Session Session id to activate
1558	- @param Ip Users Ip-adress
1559	- @return Active session id
1560	- @throws EKTWSAPI_Exception KTWSAPI_ERR_SESSION_IN_USE
1561	-*}
1562	-function TKTWSAPI.ActiveSession(Session, Ip: WideString): WideString;
1563	-begin
1564	- if (FSession <> '') then
1565	- raise EKTWSAPI_Exception.Create(KTWSAPI_ERR_SESSION_IN_USE);
1566	- FSession := Session;
1567	- Result := FSession;
1568	-end;
1569	-
1570	-{*
1571	- Closes an active session.
1572	-
1573	- @return true
1574	-*}
1575	-function TKTWSAPI.Logout: Boolean;
1576	-var
1577	- response: kt_response;
1578	-begin
1579	- Result := System.False;
1580	-
1581	- if (FSession = '') then
1582	- raise EKTWSAPI_Exception.Create(KTWSAPI_ERR_SESSION_NOT_STARTED);
1583	- response := FSoapClient.logout(FSession);
1584	- try
1585	- if (response.status_code <> 0) then
1586	- raise EKTWSAPI_Exception.Create(response.message_);
1587	- FSession := '';
1588	- Result := System.True;
1589	- finally
1590	- response.Free;
1591	- end;
1592	-end;
1593	-
1594	-{*
1595	- Returns a reference to the root folder.
1596	-
1597	- @return handle to folder
1598	-*}
1599	-function TKTWSAPI.GetRootFolder: TKTWSAPI_Folder;
1600	-begin
1601	- Result := GetFolderById(1);
1602	-end;
1603	-
1604	-{*
1605	- Returns a reference to a folder based on id.
1606	-
1607	- @param FolderId Id of folder
1608	- @return handle to folder
1609	-*}
1610	-function TKTWSAPI.GetFolderById(FolderId: Integer): TKTWSAPI_Folder;
1611	-begin
1612	- if FSession = '' then
1613	- raise EKTWSAPI_Exception.Create('A session is not active');
1614	- Result := TKTWSAPI_Folder.Get(Self, FolderId);
1615	-end;
1616	-
1617	-{*
1618	- Returns a reference to a document based on id.
1619	-
1620	- @param DocumentId Id of document
1621	- @return handle to document
1622	-*}
1623	-function TKTWSAPI.GetDocumentById(DocumentId: Integer): TKTWSAPI_Document;
1624	-begin
1625	- if FSession = '' then
1626	- raise EKTWSAPI_Exception.Create('A session is not active');
1627	- Result := TKTWSAPI_Document.Get(Self, DocumentId)
1628	-end;
1629	-
1630	-end.

ktwsapi/delphi/uwebservice.pas deleted

View file @b56238b

1	-{
2	- Copyright (c) 2007, The Jam Warehouse Software (Pty) Ltd.
3	-
4	- All rights reserved.
5	-
6	- Redistribution and use in source and binary forms, with or without
7	- modification, are permitted provided that the following conditions are met:
8	-
9	- i) Redistributions of source code must retain the above copyright notice,
10	- this list of conditions and the following disclaimer.
11	- ii) Redistributions in binary form must reproduce the above copyright
12	- notice, this list of conditions and the following disclaimer in the
13	- documentation and/or other materials provided with the distribution.
14	- iii) Neither the name of the The Jam Warehouse Software (Pty) Ltd nor the
15	- names of its contributors may be used to endorse or promote products
16	- derived from this software without specific prior written permission.
17	-
18	- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
19	- "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
20	- LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
21	- A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
22	- CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
23	- EXEMPLARY, OR CONSEQUENTIAL DAMAGES ( INCLUDING, BUT NOT LIMITED TO,
24	- PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
25	- PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
26	- LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT ( INCLUDING
27	- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
28	- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
29	-}
30	-
31	-{*
32	- Unit auto-generated by delphi's wsdl imported
33	-
34	- @Author Bjarte Kalstveit Vebjørnsen <bjarte@macaos.com>
35	- @Version 1.0 BKV 24.09.2007 Initial revision
36	-*}
37	-
38	-// ************************************************************************ //
39	-// The types declared in this file were generated from data read from the
40	-// WSDL File described below:
41	-// WSDL : http://ktdms.trunk/ktwebservice/webservice.php?wsdl
42	-// Codegen : [wfDebug,wfGenerateWarnings,wfUseSerializerClassForAttrs]
43	-// Version : 1.0
44	-// (23.09.2007 21:20:12 - 1.33.2.6)
45	-// ************************************************************************ //
46	-
47	-unit uwebservice;
48	-
49	-interface
50	-
51	-uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns;
52	-
53	-type
54	-
55	- // ************************************************************************ //
56	- // The following types, referred to in the WSDL document are not being represented
57	- // in this file. They are either aliases[@] of other types represented or were referred
58	- // to but never[!] declared in the document. The types from the latter category
59	- // typically map to predefined/known XML or Borland types; however, they could also
60	- // indicate incorrect WSDL documents that failed to declare or import a schema type.
61	- // ************************************************************************ //
62	- // !:int - "http://www.w3.org/2001/XMLSchema"
63	- // !:string - "http://www.w3.org/2001/XMLSchema"
64	- // !:boolean - "http://www.w3.org/2001/XMLSchema"
65	-
66	- kt_response = class; { "urn:KnowledgeTree" }
67	- kt_folder_detail = class; { "urn:KnowledgeTree" }
68	- kt_folder_item = class; { "urn:KnowledgeTree" }
69	- kt_folder_contents = class; { "urn:KnowledgeTree" }
70	- kt_document_detail = class; { "urn:KnowledgeTree" }
71	- kt_metadata_selection_item = class; { "urn:KnowledgeTree" }
72	- kt_metadata_field = class; { "urn:KnowledgeTree" }
73	- kt_metadata_fieldset = class; { "urn:KnowledgeTree" }
74	- kt_metadata_response = class; { "urn:KnowledgeTree" }
75	- kt_document_transitions_response = class; { "urn:KnowledgeTree" }
76	- kt_document_transaction_history_item = class; { "urn:KnowledgeTree" }
77	- kt_linked_document = class; { "urn:KnowledgeTree" }
78	- kt_linked_document_response = class; { "urn:KnowledgeTree" }
79	- kt_document_transaction_history_response = class; { "urn:KnowledgeTree" }
80	- kt_document_version_history_item = class; { "urn:KnowledgeTree" }
81	- kt_document_version_history_response = class; { "urn:KnowledgeTree" }
82	- kt_document_types_response = class; { "urn:KnowledgeTree" }
83	-
84	-
85	-
86	- // ************************************************************************ //
87	- // Namespace : urn:KnowledgeTree
88	- // ************************************************************************ //
89	- kt_response = class(TRemotable)
90	- private
91	- Fstatus_code: Integer;
92	- Fmessage_: WideString;
93	- published
94	- property status_code: Integer read Fstatus_code write Fstatus_code;
95	- property message_: WideString read Fmessage_ write Fmessage_;
96	- end;
97	-
98	-
99	-
100	- // ************************************************************************ //
101	- // Namespace : urn:KnowledgeTree
102	- // ************************************************************************ //
103	- kt_folder_detail = class(TRemotable)
104	- private
105	- Fstatus_code: Integer;
106	- Fmessage_: WideString;
107	- Fid: Integer;
108	- Ffolder_name: WideString;
109	- Fparent_id: Integer;
110	- Ffull_path: WideString;
111	- published
112	- property status_code: Integer read Fstatus_code write Fstatus_code;
113	- property message_: WideString read Fmessage_ write Fmessage_;
114	- property id: Integer read Fid write Fid;
115	- property folder_name: WideString read Ffolder_name write Ffolder_name;
116	- property parent_id: Integer read Fparent_id write Fparent_id;
117	- property full_path: WideString read Ffull_path write Ffull_path;
118	- end;
119	-
120	- kt_folder_items = array of kt_folder_item; { "urn:KnowledgeTree" }
121	-
122	-
123	- // ************************************************************************ //
124	- // Namespace : urn:KnowledgeTree
125	- // ************************************************************************ //
126	- kt_folder_item = class(TRemotable)
127	- private
128	- Fid: Integer;
129	- Fitem_type: WideString;
130	- Ftitle: WideString;
131	- Fcreator: WideString;
132	- Fchecked_out_by: WideString;
133	- Fmodified_by: WideString;
134	- Ffilename: WideString;
135	- Fsize: WideString;
136	- Fmajor_version: WideString;
137	- Fminor_version: WideString;
138	- Fstorage_path: WideString;
139	- Fmime_type: WideString;
140	- Fmime_icon_path: WideString;
141	- Fmime_display: WideString;
142	- Fworkflow: WideString;
143	- Fworkflow_state: WideString;
144	- Fitems: kt_folder_items;
145	- public
146	- destructor Destroy; override;
147	- published
148	- property id: Integer read Fid write Fid;
149	- property item_type: WideString read Fitem_type write Fitem_type;
150	- property title: WideString read Ftitle write Ftitle;
151	- property creator: WideString read Fcreator write Fcreator;
152	- property checked_out_by: WideString read Fchecked_out_by write Fchecked_out_by;
153	- property modified_by: WideString read Fmodified_by write Fmodified_by;
154	- property filename: WideString read Ffilename write Ffilename;
155	- property size: WideString read Fsize write Fsize;
156	- property major_version: WideString read Fmajor_version write Fmajor_version;
157	- property minor_version: WideString read Fminor_version write Fminor_version;
158	- property storage_path: WideString read Fstorage_path write Fstorage_path;
159	- property mime_type: WideString read Fmime_type write Fmime_type;
160	- property mime_icon_path: WideString read Fmime_icon_path write Fmime_icon_path;
161	- property mime_display: WideString read Fmime_display write Fmime_display;
162	- property workflow: WideString read Fworkflow write Fworkflow;
163	- property workflow_state: WideString read Fworkflow_state write Fworkflow_state;
164	- property items: kt_folder_items read Fitems write Fitems;
165	- end;
166	-
167	-
168	-
169	- // ************************************************************************ //
170	- // Namespace : urn:KnowledgeTree
171	- // ************************************************************************ //
172	- kt_folder_contents = class(TRemotable)
173	- private
174	- Fstatus_code: Integer;
175	- Fmessage_: WideString;
176	- Ffolder_id: Integer;
177	- Ffolder_name: WideString;
178	- Ffull_path: WideString;
179	- Fitems: kt_folder_items;
180	- public
181	- destructor Destroy; override;
182	- published
183	- property status_code: Integer read Fstatus_code write Fstatus_code;
184	- property message_: WideString read Fmessage_ write Fmessage_;
185	- property folder_id: Integer read Ffolder_id write Ffolder_id;
186	- property folder_name: WideString read Ffolder_name write Ffolder_name;
187	- property full_path: WideString read Ffull_path write Ffull_path;
188	- property items: kt_folder_items read Fitems write Fitems;
189	- end;
190	-
191	-
192	-
193	- // ************************************************************************ //
194	- // Namespace : urn:KnowledgeTree
195	- // ************************************************************************ //
196	- kt_document_detail = class(TRemotable)
197	- private
198	- Fstatus_code: Integer;
199	- Fmessage_: WideString;
200	- Ftitle: WideString;
201	- Fdocument_type: WideString;
202	- Fversion: WideString;
203	- Ffilename: WideString;
204	- Fcreated_date: WideString;
205	- Fcreated_by: WideString;
206	- Fupdated_date: WideString;
207	- Fupdated_by: WideString;
208	- Fdocument_id: Integer;
209	- Ffolder_id: Integer;
210	- Fworkflow: WideString;
211	- Fworkflow_state: WideString;
212	- Fcheckout_by: WideString;
213	- Ffull_path: WideString;
214	- published
215	- property status_code: Integer read Fstatus_code write Fstatus_code;
216	- property message_: WideString read Fmessage_ write Fmessage_;
217	- property title: WideString read Ftitle write Ftitle;
218	- property document_type: WideString read Fdocument_type write Fdocument_type;
219	- property version: WideString read Fversion write Fversion;
220	- property filename: WideString read Ffilename write Ffilename;
221	- property created_date: WideString read Fcreated_date write Fcreated_date;
222	- property created_by: WideString read Fcreated_by write Fcreated_by;
223	- property updated_date: WideString read Fupdated_date write Fupdated_date;
224	- property updated_by: WideString read Fupdated_by write Fupdated_by;
225	- property document_id: Integer read Fdocument_id write Fdocument_id;
226	- property folder_id: Integer read Ffolder_id write Ffolder_id;
227	- property workflow: WideString read Fworkflow write Fworkflow;
228	- property workflow_state: WideString read Fworkflow_state write Fworkflow_state;
229	- property checkout_by: WideString read Fcheckout_by write Fcheckout_by;
230	- property full_path: WideString read Ffull_path write Ffull_path;
231	- end;
232	-
233	-
234	-
235	- // ************************************************************************ //
236	- // Namespace : urn:KnowledgeTree
237	- // ************************************************************************ //
238	- kt_metadata_selection_item = class(TRemotable)
239	- private
240	- Fid: Integer;
241	- Fname_: WideString;
242	- Fvalue: WideString;
243	- Fparent_id: Integer;
244	- published
245	- property id: Integer read Fid write Fid;
246	- property name_: WideString read Fname_ write Fname_;
247	- property value: WideString read Fvalue write Fvalue;
248	- property parent_id: Integer read Fparent_id write Fparent_id;
249	- end;
250	-
251	- kt_metadata_selection = array of kt_metadata_selection_item; { "urn:KnowledgeTree" }
252	-
253	-
254	- // ************************************************************************ //
255	- // Namespace : urn:KnowledgeTree
256	- // ************************************************************************ //
257	- kt_metadata_field = class(TRemotable)
258	- private
259	- Fname_: WideString;
260	- Frequired: Boolean;
261	- Fvalue: WideString;
262	- Fdescription: WideString;
263	- Fcontrol_type: WideString;
264	- Fselection: kt_metadata_selection;
265	- public
266	- destructor Destroy; override;
267	- published
268	- property name_: WideString read Fname_ write Fname_;
269	- property required: Boolean read Frequired write Frequired;
270	- property value: WideString read Fvalue write Fvalue;
271	- property description: WideString read Fdescription write Fdescription;
272	- property control_type: WideString read Fcontrol_type write Fcontrol_type;
273	- property selection: kt_metadata_selection read Fselection write Fselection;
274	- end;
275	-
276	- kt_metadata_fields = array of kt_metadata_field; { "urn:KnowledgeTree" }
277	-
278	-
279	- // ************************************************************************ //
280	- // Namespace : urn:KnowledgeTree
281	- // ************************************************************************ //
282	- kt_metadata_fieldset = class(TRemotable)
283	- private
284	- Ffieldset: WideString;
285	- Fdescription: WideString;
286	- Ffields: kt_metadata_fields;
287	- public
288	- destructor Destroy; override;
289	- published
290	- property fieldset: WideString read Ffieldset write Ffieldset;
291	- property description: WideString read Fdescription write Fdescription;
292	- property fields: kt_metadata_fields read Ffields write Ffields;
293	- end;
294	-
295	- kt_metadata_fieldsets = array of kt_metadata_fieldset; { "urn:KnowledgeTree" }
296	-
297	-
298	- // ************************************************************************ //
299	- // Namespace : urn:KnowledgeTree
300	- // ************************************************************************ //
301	- kt_metadata_response = class(TRemotable)
302	- private
303	- Fstatus_code: Integer;
304	- Fmessage_: WideString;
305	- Fmetadata: kt_metadata_fieldsets;
306	- public
307	- destructor Destroy; override;
308	- published
309	- property status_code: Integer read Fstatus_code write Fstatus_code;
310	- property message_: WideString read Fmessage_ write Fmessage_;
311	- property metadata: kt_metadata_fieldsets read Fmetadata write Fmetadata;
312	- end;
313	-
314	- kt_document_transitions = array of WideString; { "urn:KnowledgeTree" }
315	-
316	-
317	- // ************************************************************************ //
318	- // Namespace : urn:KnowledgeTree
319	- // ************************************************************************ //
320	- kt_document_transitions_response = class(TRemotable)
321	- private
322	- Fstatus_code: Integer;
323	- Fmessage_: WideString;
324	- Fmetadata: kt_document_transitions;
325	- published
326	- property status_code: Integer read Fstatus_code write Fstatus_code;
327	- property message_: WideString read Fmessage_ write Fmessage_;
328	- property metadata: kt_document_transitions read Fmetadata write Fmetadata;
329	- end;
330	-
331	-
332	-
333	- // ************************************************************************ //
334	- // Namespace : urn:KnowledgeTree
335	- // ************************************************************************ //
336	- kt_document_transaction_history_item = class(TRemotable)
337	- private
338	- Ftransaction_name: WideString;
339	- Fusername: WideString;
340	- Fversion: WideString;
341	- Fcomment: WideString;
342	- Fdatetime: WideString;
343	- published
344	- property transaction_name: WideString read Ftransaction_name write Ftransaction_name;
345	- property username: WideString read Fusername write Fusername;
346	- property version: WideString read Fversion write Fversion;
347	- property comment: WideString read Fcomment write Fcomment;
348	- property datetime: WideString read Fdatetime write Fdatetime;
349	- end;
350	-
351	-
352	-
353	- // ************************************************************************ //
354	- // Namespace : urn:KnowledgeTree
355	- // ************************************************************************ //
356	- kt_linked_document = class(TRemotable)
357	- private
358	- Fdocument_id: Integer;
359	- Ftitle: WideString;
360	- Fsize: Integer;
361	- Fworkflow: WideString;
362	- Fworkflow_state: WideString;
363	- Flink_type: WideString;
364	- published
365	- property document_id: Integer read Fdocument_id write Fdocument_id;
366	- property title: WideString read Ftitle write Ftitle;
367	- property size: Integer read Fsize write Fsize;
368	- property workflow: WideString read Fworkflow write Fworkflow;
369	- property workflow_state: WideString read Fworkflow_state write Fworkflow_state;
370	- property link_type: WideString read Flink_type write Flink_type;
371	- end;
372	-
373	- kt_linked_documents = array of kt_linked_document; { "urn:KnowledgeTree" }
374	-
375	-
376	- // ************************************************************************ //
377	- // Namespace : urn:KnowledgeTree
378	- // ************************************************************************ //
379	- kt_linked_document_response = class(TRemotable)
380	- private
381	- Fstatus_code: Integer;
382	- Fmessage_: WideString;
383	- Fparent_document_id: WideString;
384	- Flinks: kt_linked_documents;
385	- public
386	- destructor Destroy; override;
387	- published
388	- property status_code: Integer read Fstatus_code write Fstatus_code;
389	- property message_: WideString read Fmessage_ write Fmessage_;
390	- property parent_document_id: WideString read Fparent_document_id write Fparent_document_id;
391	- property links: kt_linked_documents read Flinks write Flinks;
392	- end;
393	-
394	- kt_document_transaction_history = array of kt_document_transaction_history_item; { "urn:KnowledgeTree" }
395	-
396	-
397	- // ************************************************************************ //
398	- // Namespace : urn:KnowledgeTree
399	- // ************************************************************************ //
400	- kt_document_transaction_history_response = class(TRemotable)
401	- private
402	- Fstatus_code: Integer;
403	- Fmessage_: WideString;
404	- Fhistory: kt_document_transaction_history;
405	- public
406	- destructor Destroy; override;
407	- published
408	- property status_code: Integer read Fstatus_code write Fstatus_code;
409	- property message_: WideString read Fmessage_ write Fmessage_;
410	- property history: kt_document_transaction_history read Fhistory write Fhistory;
411	- end;
412	-
413	-
414	-
415	- // ************************************************************************ //
416	- // Namespace : urn:KnowledgeTree
417	- // ************************************************************************ //
418	- kt_document_version_history_item = class(TRemotable)
419	- private
420	- Fuser: Integer;
421	- Fmetadata_version: WideString;
422	- Fcontent_version: WideString;
423	- published
424	- property user: Integer read Fuser write Fuser;
425	- property metadata_version: WideString read Fmetadata_version write Fmetadata_version;
426	- property content_version: WideString read Fcontent_version write Fcontent_version;
427	- end;
428	-
429	- kt_document_version_history = array of kt_document_version_history_item; { "urn:KnowledgeTree" }
430	-
431	-
432	- // ************************************************************************ //
433	- // Namespace : urn:KnowledgeTree
434	- // ************************************************************************ //
435	- kt_document_version_history_response = class(TRemotable)
436	- private
437	- Fstatus_code: Integer;
438	- Fmessage_: WideString;
439	- Fhistory: kt_document_version_history;
440	- public
441	- destructor Destroy; override;
442	- published
443	- property status_code: Integer read Fstatus_code write Fstatus_code;
444	- property message_: WideString read Fmessage_ write Fmessage_;
445	- property history: kt_document_version_history read Fhistory write Fhistory;
446	- end;
447	-
448	- kt_document_types_array = array of WideString; { "urn:KnowledgeTree" }
449	-
450	-
451	- // ************************************************************************ //
452	- // Namespace : urn:KnowledgeTree
453	- // ************************************************************************ //
454	- kt_document_types_response = class(TRemotable)
455	- private
456	- Fstatus_code: Integer;
457	- Fmessage_: WideString;
458	- Fdocument_types: kt_document_types_array;
459	- published
460	- property status_code: Integer read Fstatus_code write Fstatus_code;
461	- property message_: WideString read Fmessage_ write Fmessage_;
462	- property document_types: kt_document_types_array read Fdocument_types write Fdocument_types;
463	- end;
464	-
465	-
466	- // ************************************************************************ //
467	- // Namespace : http://schemas.xmlsoap.org/soap/envelope/
468	- // soapAction: http://schemas.xmlsoap.org/soap/envelope/#KTWebService#%operationName%
469	- // transport : http://schemas.xmlsoap.org/soap/http
470	- // style : rpc
471	- // binding : KnowledgeTreeBinding
472	- // service : KnowledgeTreeService
473	- // port : KnowledgeTreePort
474	- // URL : http://ktdms.trunk/ktwebservice/webservice.php
475	- // ************************************************************************ //
476	- KnowledgeTreePort = interface(IInvokable)
477	- ['{FA35CA60-1DC3-B3C7-6C65-BE4E3A6A8A22}']
478	- function login(const username: WideString; const password: WideString; const ip: WideString): kt_response; stdcall;
479	- function anonymous_login(const ip: WideString): kt_response; stdcall;
480	- function logout(const session_id: WideString): kt_response; stdcall;
481	- function get_folder_detail(const session_id: WideString; const folder_id: Integer): kt_folder_detail; stdcall;
482	- function get_folder_detail_by_name(const session_id: WideString; const folder_name: WideString): kt_folder_detail; stdcall;
483	- function get_folder_contents(const session_id: WideString; const folder_id: Integer; const depth: Integer; const what: WideString): kt_folder_contents; stdcall;
484	- function create_folder(const session_id: WideString; const folder_id: Integer; const folder_name: WideString): kt_folder_detail; stdcall;
485	- function delete_folder(const session_id: WideString; const folder_id: Integer; const reason: WideString): kt_response; stdcall;
486	- function rename_folder(const session_id: WideString; const folder_id: Integer; const newname: WideString): kt_response; stdcall;
487	- function get_document_links(const session_id: WideString; const document_id: Integer): kt_linked_document_response; stdcall;
488	- function link_documents(const session_id: WideString; const parent_document_id: Integer; const child_document_id: Integer; const type_: WideString): kt_response; stdcall;
489	- function unlink_documents(const session_id: WideString; const parent_document_id: Integer; const child_document_id: Integer): kt_response; stdcall;
490	- function copy_folder(const session_id: WideString; const source_id: Integer; const target_id: Integer; const reason: WideString): kt_response; stdcall;
491	- function move_folder(const session_id: WideString; const source_id: Integer; const target_id: Integer; const reason: WideString): kt_response; stdcall;
492	- function get_document_detail(const session_id: WideString; const document_id: Integer): kt_document_detail; stdcall;
493	- function checkin_document(const session_id: WideString; const document_id: Integer; const filename: WideString; const reason: WideString; const tempfilename: WideString; const major_update: Boolean): kt_response; stdcall;
494	- function checkin_small_document(const session_id: WideString; const document_id: Integer; const filename: WideString; const reason: WideString; const base64: WideString; const major_update: Boolean): kt_response; stdcall;
495	- function checkin_base64_document(const session_id: WideString; const document_id: Integer; const filename: WideString; const reason: WideString; const base64: WideString; const major_update: Boolean): kt_response; stdcall;
496	- function add_document(const session_id: WideString; const folder_id: Integer; const title: WideString; const filename: WideString; const documentype: WideString; const tempfilename: WideString): kt_document_detail; stdcall;
497	- function add_small_document(const session_id: WideString; const folder_id: Integer; const title: WideString; const filename: WideString; const documentype: WideString; const base64: WideString): kt_document_detail; stdcall;
498	- function add_base64_document(const session_id: WideString; const folder_id: Integer; const title: WideString; const filename: WideString; const documentype: WideString; const base64: WideString): kt_document_detail; stdcall;
499	- function get_document_detail_by_name(const session_id: WideString; const document_name: WideString; const what: WideString): kt_document_detail; stdcall;
500	- function checkout_document(const session_id: WideString; const document_id: Integer; const reason: WideString): kt_response; stdcall;
501	- function checkout_small_document(const session_id: WideString; const document_id: Integer; const reason: WideString; const download: Boolean): kt_response; stdcall;
502	- function checkout_base64_document(const session_id: WideString; const document_id: Integer; const reason: WideString; const download: Boolean): kt_response; stdcall;
503	- function undo_document_checkout(const session_id: WideString; const document_id: Integer; const reason: WideString): kt_response; stdcall;
504	- function download_document(const session_id: WideString; const document_id: Integer): kt_response; stdcall;
505	- function download_small_document(const session_id: WideString; const document_id: Integer): kt_response; stdcall;
506	- function download_base64_document(const session_id: WideString; const document_id: Integer): kt_response; stdcall;
507	- function delete_document(const session_id: WideString; const document_id: Integer; const reason: WideString): kt_response; stdcall;
508	- function change_document_owner(const session_id: WideString; const document_id: Integer; const username: WideString; const reason: WideString): kt_response; stdcall;
509	- function copy_document(const session_id: WideString; const document_id: Integer; const folder_id: Integer; const reason: WideString; const newtitle: WideString; const newfilename: WideString): kt_response; stdcall;
510	- function move_document(const session_id: WideString; const document_id: Integer; const folder_id: Integer; const reason: WideString; const newtitle: WideString; const newfilename: WideString): kt_response; stdcall;
511	- function rename_document_title(const session_id: WideString; const document_id: Integer; const newtitle: WideString): kt_response; stdcall;
512	- function rename_document_filename(const session_id: WideString; const document_id: Integer; const newfilename: WideString): kt_response; stdcall;
513	- function change_document_type(const session_id: WideString; const document_id: Integer; const documenttype: WideString): kt_response; stdcall;
514	- function start_document_workflow(const session_id: WideString; const document_id: Integer; const workflow: WideString): kt_response; stdcall;
515	- function delete_document_workflow(const session_id: WideString; const document_id: Integer): kt_response; stdcall;
516	- function perform_document_workflow_transition(const session_id: WideString; const document_id: Integer; const transition: WideString; const reason: WideString): kt_response; stdcall;
517	- function get_document_metadata(const session_id: WideString; const document_id: Integer): kt_metadata_response; stdcall;
518	- function get_document_type_metadata(const session_id: WideString; const document_type: WideString): kt_metadata_response; stdcall;
519	- function update_document_metadata(const session_id: WideString; const document_id: Integer; const metadata: kt_metadata_fieldsets): kt_response; stdcall;
520	- function get_document_workflow_transitions(const session_id: WideString; const document_id: Integer): kt_document_transitions_response; stdcall;
521	- function get_document_workflow_state(const session_id: WideString; const document_id: Integer): kt_response; stdcall;
522	- function get_document_transaction_history(const session_id: WideString; const document_id: Integer): kt_document_transaction_history_response; stdcall;
523	- function get_document_version_history(const session_id: WideString; const document_id: Integer): kt_document_version_history_response; stdcall;
524	- function get_document_types(const session_id: WideString): kt_document_types_response; stdcall;
525	- function get_document_link_types(const session_id: WideString): kt_document_types_response; stdcall;
526	- end;
527	-
528	-function GetKnowledgeTreePort(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): KnowledgeTreePort;
529	-
530	-
531	-implementation
532	-
533	-function GetKnowledgeTreePort(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): KnowledgeTreePort;
534	-const
535	- defWSDL = 'http://ktdms.trunk/ktwebservice/webservice.php?wsdl';
536	- defURL = 'http://ktdms.trunk/ktwebservice/webservice.php';
537	- defSvc = 'KnowledgeTreeService';
538	- defPrt = 'KnowledgeTreePort';
539	-var
540	- RIO: THTTPRIO;
541	-begin
542	- Result := nil;
543	- if (Addr = '') then
544	- begin
545	- if UseWSDL then
546	- Addr := defWSDL
547	- else
548	- Addr := defURL;
549	- end;
550	- if HTTPRIO = nil then
551	- RIO := THTTPRIO.Create(nil)
552	- else
553	- RIO := HTTPRIO;
554	- try
555	- Result := (RIO as KnowledgeTreePort);
556	- if UseWSDL then
557	- begin
558	- RIO.WSDLLocation := Addr;
559	- RIO.Service := defSvc;
560	- RIO.Port := defPrt;
561	- end else
562	- RIO.URL := Addr;
563	- finally
564	- if (Result = nil) and (HTTPRIO = nil) then
565	- RIO.Free;
566	- end;
567	-end;
568	-
569	-
570	-destructor kt_folder_item.Destroy;
571	-var
572	- I: Integer;
573	-begin
574	- for I := 0 to Length(Fitems)-1 do
575	- if Assigned(Fitems[I]) then
576	- Fitems[I].Free;
577	- SetLength(Fitems, 0);
578	- inherited Destroy;
579	-end;
580	-
581	-destructor kt_folder_contents.Destroy;
582	-var
583	- I: Integer;
584	-begin
585	- for I := 0 to Length(Fitems)-1 do
586	- if Assigned(Fitems[I]) then
587	- Fitems[I].Free;
588	- SetLength(Fitems, 0);
589	- inherited Destroy;
590	-end;
591	-
592	-destructor kt_metadata_field.Destroy;
593	-var
594	- I: Integer;
595	-begin
596	- for I := 0 to Length(Fselection)-1 do
597	- if Assigned(Fselection[I]) then
598	- Fselection[I].Free;
599	- SetLength(Fselection, 0);
600	- inherited Destroy;
601	-end;
602	-
603	-destructor kt_metadata_fieldset.Destroy;
604	-var
605	- I: Integer;
606	-begin
607	- for I := 0 to Length(Ffields)-1 do
608	- if Assigned(Ffields[I]) then
609	- Ffields[I].Free;
610	- SetLength(Ffields, 0);
611	- inherited Destroy;
612	-end;
613	-
614	-destructor kt_metadata_response.Destroy;
615	-var
616	- I: Integer;
617	-begin
618	- for I := 0 to Length(Fmetadata)-1 do
619	- if Assigned(Fmetadata[I]) then
620	- Fmetadata[I].Free;
621	- SetLength(Fmetadata, 0);
622	- inherited Destroy;
623	-end;
624	-
625	-destructor kt_linked_document_response.Destroy;
626	-var
627	- I: Integer;
628	-begin
629	- for I := 0 to Length(Flinks)-1 do
630	- if Assigned(Flinks[I]) then
631	- Flinks[I].Free;
632	- SetLength(Flinks, 0);
633	- inherited Destroy;
634	-end;
635	-
636	-destructor kt_document_transaction_history_response.Destroy;
637	-var
638	- I: Integer;
639	-begin
640	- for I := 0 to Length(Fhistory)-1 do
641	- if Assigned(Fhistory[I]) then
642	- Fhistory[I].Free;
643	- SetLength(Fhistory, 0);
644	- inherited Destroy;
645	-end;
646	-
647	-destructor kt_document_version_history_response.Destroy;
648	-var
649	- I: Integer;
650	-begin
651	- for I := 0 to Length(Fhistory)-1 do
652	- if Assigned(Fhistory[I]) then
653	- Fhistory[I].Free;
654	- SetLength(Fhistory, 0);
655	- inherited Destroy;
656	-end;
657	-
658	-initialization
659	- InvRegistry.RegisterInterface(TypeInfo(KnowledgeTreePort), 'http://schemas.xmlsoap.org/soap/envelope/', '');
660	- InvRegistry.RegisterDefaultSOAPAction(TypeInfo(KnowledgeTreePort), 'http://schemas.xmlsoap.org/soap/envelope/#KTWebService#%operationName%');
661	- InvRegistry.RegisterExternalParamName(TypeInfo(KnowledgeTreePort), 'link_documents', 'type_', 'type');
662	- RemClassRegistry.RegisterXSClass(kt_response, 'urn:KnowledgeTree', 'kt_response');
663	- RemClassRegistry.RegisterExternalPropName(TypeInfo(kt_response), 'message_', 'message');
664	- RemClassRegistry.RegisterXSClass(kt_folder_detail, 'urn:KnowledgeTree', 'kt_folder_detail');
665	- RemClassRegistry.RegisterExternalPropName(TypeInfo(kt_folder_detail), 'message_', 'message');
666	- RemClassRegistry.RegisterXSInfo(TypeInfo(kt_folder_items), 'urn:KnowledgeTree', 'kt_folder_items');
667	- RemClassRegistry.RegisterXSClass(kt_folder_item, 'urn:KnowledgeTree', 'kt_folder_item');
668	- RemClassRegistry.RegisterXSClass(kt_folder_contents, 'urn:KnowledgeTree', 'kt_folder_contents');
669	- RemClassRegistry.RegisterExternalPropName(TypeInfo(kt_folder_contents), 'message_', 'message');
670	- RemClassRegistry.RegisterXSClass(kt_document_detail, 'urn:KnowledgeTree', 'kt_document_detail');
671	- RemClassRegistry.RegisterExternalPropName(TypeInfo(kt_document_detail), 'message_', 'message');
672	- RemClassRegistry.RegisterXSClass(kt_metadata_selection_item, 'urn:KnowledgeTree', 'kt_metadata_selection_item');
673	- RemClassRegistry.RegisterExternalPropName(TypeInfo(kt_metadata_selection_item), 'name_', 'name');
674	- RemClassRegistry.RegisterXSInfo(TypeInfo(kt_metadata_selection), 'urn:KnowledgeTree', 'kt_metadata_selection');
675	- RemClassRegistry.RegisterXSClass(kt_metadata_field, 'urn:KnowledgeTree', 'kt_metadata_field');
676	- RemClassRegistry.RegisterExternalPropName(TypeInfo(kt_metadata_field), 'name_', 'name');
677	- RemClassRegistry.RegisterXSInfo(TypeInfo(kt_metadata_fields), 'urn:KnowledgeTree', 'kt_metadata_fields');
678	- RemClassRegistry.RegisterXSClass(kt_metadata_fieldset, 'urn:KnowledgeTree', 'kt_metadata_fieldset');
679	- RemClassRegistry.RegisterXSInfo(TypeInfo(kt_metadata_fieldsets), 'urn:KnowledgeTree', 'kt_metadata_fieldsets');
680	- RemClassRegistry.RegisterXSClass(kt_metadata_response, 'urn:KnowledgeTree', 'kt_metadata_response');
681	- RemClassRegistry.RegisterExternalPropName(TypeInfo(kt_metadata_response), 'message_', 'message');
682	- RemClassRegistry.RegisterXSInfo(TypeInfo(kt_document_transitions), 'urn:KnowledgeTree', 'kt_document_transitions');
683	- RemClassRegistry.RegisterXSClass(kt_document_transitions_response, 'urn:KnowledgeTree', 'kt_document_transitions_response');
684	- RemClassRegistry.RegisterExternalPropName(TypeInfo(kt_document_transitions_response), 'message_', 'message');
685	- RemClassRegistry.RegisterXSClass(kt_document_transaction_history_item, 'urn:KnowledgeTree', 'kt_document_transaction_history_item');
686	- RemClassRegistry.RegisterXSClass(kt_linked_document, 'urn:KnowledgeTree', 'kt_linked_document');
687	- RemClassRegistry.RegisterXSInfo(TypeInfo(kt_linked_documents), 'urn:KnowledgeTree', 'kt_linked_documents');
688	- RemClassRegistry.RegisterXSClass(kt_linked_document_response, 'urn:KnowledgeTree', 'kt_linked_document_response');
689	- RemClassRegistry.RegisterExternalPropName(TypeInfo(kt_linked_document_response), 'message_', 'message');
690	- RemClassRegistry.RegisterXSInfo(TypeInfo(kt_document_transaction_history), 'urn:KnowledgeTree', 'kt_document_transaction_history');
691	- RemClassRegistry.RegisterXSClass(kt_document_transaction_history_response, 'urn:KnowledgeTree', 'kt_document_transaction_history_response');
692	- RemClassRegistry.RegisterExternalPropName(TypeInfo(kt_document_transaction_history_response), 'message_', 'message');
693	- RemClassRegistry.RegisterXSClass(kt_document_version_history_item, 'urn:KnowledgeTree', 'kt_document_version_history_item');
694	- RemClassRegistry.RegisterXSInfo(TypeInfo(kt_document_version_history), 'urn:KnowledgeTree', 'kt_document_version_history');
695	- RemClassRegistry.RegisterXSClass(kt_document_version_history_response, 'urn:KnowledgeTree', 'kt_document_version_history_response');
696	- RemClassRegistry.RegisterExternalPropName(TypeInfo(kt_document_version_history_response), 'message_', 'message');
697	- RemClassRegistry.RegisterXSInfo(TypeInfo(kt_document_types_array), 'urn:KnowledgeTree', 'kt_document_types_array');
698	- RemClassRegistry.RegisterXSClass(kt_document_types_response, 'urn:KnowledgeTree', 'kt_document_types_response');
699	- RemClassRegistry.RegisterExternalPropName(TypeInfo(kt_document_types_response), 'message_', 'message');
700	-
701	-end.

ktwsapi/dotnet/TODO.txt deleted

View file @b56238b

ktwsapi/java/TODO.txt deleted

View file @b56238b

ktwsapi/php/docs/INSTALL.txt deleted

View file @b56238b

1	-KnowledgeTree Web Server Object Model - PHP Edition
2	-===================================================
3	-
4	-The KTWSAPI PHP edition implements the object model wrapping the web services. It can thus be deployed on
5	-a remote machine independant of the actual KnowledgeTree installation.
6	-
7	-Dependencies
8	-============
9	-1) libcurl
10	-2) PEAR::SOAP
11	-
12	-Installation
13	-============
14	-
15	-Copy the ktwsapi/php folder to some location in your project.
16	-
17	-Update ktwsapi_cfg.inc.php with the appropriate settings for your system.
18	-
19	-Examples
20	-========
21	-
22	-There are some examples in the ktwsapi/php/examples folder.
23	-

ktwsapi/php/examples/ktws_eg_add_document.php deleted

View file @b56238b

1	-<?php
2	-/**
3	- * Copyright (c) 2008, The Jam Warehouse Software (Pty) Ltd.
4	- *
5	- * All rights reserved.
6	- *
7	- * Redistribution and use in source and binary forms, with or without
8	- * modification, are permitted provided that the following conditions are met:
9	- *
10	- * i) Redistributions of source code must retain the above copyright notice,
11	- * this list of conditions and the following disclaimer.
12	- * ii) Redistributions in binary form must reproduce the above copyright
13	- * notice, this list of conditions and the following disclaimer in the
14	- * documentation and/or other materials provided with the distribution.
15	- * iii) Neither the name of the The Jam Warehouse Software (Pty) Ltd nor the
16	- * names of its contributors may be used to endorse or promote products
17	- * derived from this software without specific prior written permission.
18	- *
19	- * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
20	- * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
21	- * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
22	- * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
23	- * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
24	- * EXEMPLARY, OR CONSEQUENTIAL DAMAGES ( INCLUDING, BUT NOT LIMITED TO,
25	- * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
26	- * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
27	- * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT ( INCLUDING
28	- * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
29	- * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
30	- */
31	-
32	-/*
33	- * This is a sample of how to add a document to the repository.
34	- */
35	-
36	-require_once('../ktwsapi.inc.php');
37	-
38	-$ktapi = new KTWSAPI(KTWebService_WSDL);
39	-
40	-$response = $ktapi->start_session('admin','admin');
41	-if (PEAR::isError($response))
42	-{
43	- print $response->getMessage();
44	- exit;
45	-}
46	-
47	-$root = $ktapi->get_root_folder();
48	-
49	-$root->add_document('c:/temp/test.doc');
50	-
51	-$ktapi->logout();
52	-
53	-?>

ktwsapi/php/examples/ktws_eg_anonymous.php deleted

View file @b56238b

1	-<?php
2	-/**
3	- * Copyright (c) 2008, The Jam Warehouse Software (Pty) Ltd.
4	- *
5	- * All rights reserved.
6	- *
7	- * Redistribution and use in source and binary forms, with or without
8	- * modification, are permitted provided that the following conditions are met:
9	- *
10	- * i) Redistributions of source code must retain the above copyright notice,
11	- * this list of conditions and the following disclaimer.
12	- * ii) Redistributions in binary form must reproduce the above copyright
13	- * notice, this list of conditions and the following disclaimer in the
14	- * documentation and/or other materials provided with the distribution.
15	- * iii) Neither the name of the The Jam Warehouse Software (Pty) Ltd nor the
16	- * names of its contributors may be used to endorse or promote products
17	- * derived from this software without specific prior written permission.
18	- *
19	- * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
20	- * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
21	- * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
22	- * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
23	- * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
24	- * EXEMPLARY, OR CONSEQUENTIAL DAMAGES ( INCLUDING, BUT NOT LIMITED TO,
25	- * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
26	- * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
27	- * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT ( INCLUDING
28	- * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
29	- * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
30	- */
31	-
32	-/*
33	- * Demonstrates how to create an anonymous session.
34	- */
35	-
36	-require_once('../ktwsapi.inc.php');
37	-
38	-$ktapi = new KTWSAPI(KTWebService_WSDL);
39	-
40	-$response = $ktapi->start_anonymous_session();
41	-if (PEAR::isError($response))
42	-{
43	- print $response->getMessage();
44	- exit;
45	-}
46	-
47	-// do something
48	-
49	-$root=$ktapi->get_root_folder();
50	-
51	-// when done, logout
52	-
53	-
54	-$ktapi->logout();
55	-
56	-?>

ktwsapi/php/examples/ktws_eg_checkin.php deleted

View file @b56238b

1	-<?php
2	-/**
3	- * Copyright (c) 2008, The Jam Warehouse Software (Pty) Ltd.
4	- *
5	- * All rights reserved.
6	- *
7	- * Redistribution and use in source and binary forms, with or without
8	- * modification, are permitted provided that the following conditions are met:
9	- *
10	- * i) Redistributions of source code must retain the above copyright notice,
11	- * this list of conditions and the following disclaimer.
12	- * ii) Redistributions in binary form must reproduce the above copyright
13	- * notice, this list of conditions and the following disclaimer in the
14	- * documentation and/or other materials provided with the distribution.
15	- * iii) Neither the name of the The Jam Warehouse Software (Pty) Ltd nor the
16	- * names of its contributors may be used to endorse or promote products
17	- * derived from this software without specific prior written permission.
18	- *
19	- * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
20	- * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
21	- * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
22	- * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
23	- * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
24	- * EXEMPLARY, OR CONSEQUENTIAL DAMAGES ( INCLUDING, BUT NOT LIMITED TO,
25	- * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
26	- * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
27	- * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT ( INCLUDING
28	- * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
29	- * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
30	- */
31	-
32	-/*
33	- * Demonstrates document checkout and checkin
34	- */
35	-
36	-require_once('../ktwsapi.inc.php');
37	-
38	-$ktapi = new KTWSAPI(KTWebService_WSDL);
39	-
40	-// change session to something that is in table 'active_sessions'
41	-
42	-$response = $ktapi->active_session('sj5827sohdoj6h3nvifrcsa1f2');
43	-if (PEAR::isError($response))
44	-{
45	- print $response->getMessage();
46	- exit;
47	-}
48	-
49	-$root = $ktapi->get_root_folder();
50	-if (PEAR::isError($root))
51	-{
52	- print $root->getMessage();
53	- exit;
54	-}
55	-
56	-$document = $root->add_document('c:/temp/test.doc');
57	-if (PEAR::isError($document))
58	-{
59	- print $document->getMessage();
60	- exit;
61	-}
62	-
63	-$result = $document->checkout('going to update','c:/');
64	-if (PEAR::isError($result))
65	-{
66	- print $result->getMessage();
67	- exit;
68	-}
69	-
70	-$result = $document->checkin('c:/test.doc','have updated',false);
71	-if (PEAR::isError($result))
72	-{
73	- print $result->getMessage();
74	- exit;
75	-}
76	-
77	-$ktapi->logout();
78	-
79	-?>

ktwsapi/php/examples/ktws_eg_create_folder.php deleted

View file @b56238b

1	-<?php
2	-/**
3	- * Copyright (c) 2008, The Jam Warehouse Software (Pty) Ltd.
4	- *
5	- * All rights reserved.
6	- *
7	- * Redistribution and use in source and binary forms, with or without
8	- * modification, are permitted provided that the following conditions are met:
9	- *
10	- * i) Redistributions of source code must retain the above copyright notice,
11	- * this list of conditions and the following disclaimer.
12	- * ii) Redistributions in binary form must reproduce the above copyright
13	- * notice, this list of conditions and the following disclaimer in the
14	- * documentation and/or other materials provided with the distribution.
15	- * iii) Neither the name of the The Jam Warehouse Software (Pty) Ltd nor the
16	- * names of its contributors may be used to endorse or promote products
17	- * derived from this software without specific prior written permission.
18	- *
19	- * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
20	- * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
21	- * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
22	- * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
23	- * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
24	- * EXEMPLARY, OR CONSEQUENTIAL DAMAGES ( INCLUDING, BUT NOT LIMITED TO,
25	- * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
26	- * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
27	- * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT ( INCLUDING
28	- * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
29	- * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
30	- */
31	-
32	-/*
33	- * Demonstrates creating a folder in an active session.
34	- */
35	-
36	-require_once('../ktwsapi.inc.php');
37	-
38	-$ktapi = new KTWSAPI(KTWebService_WSDL);
39	-
40	-// change session to something that is in table 'active_sessions'
41	-
42	-$response = $ktapi->active_session('qekolkpkk9mq2nlc31ghndi1l2');
43	-if (PEAR::isError($response))
44	-{
45	- print $response->getMessage();
46	- exit;
47	-}
48	-
49	-$root = $ktapi->get_root_folder();
50	-if (PEAR::isError($root))
51	-{
52	- print $root->getMessage();
53	- exit;
54	-}
55	-
56	-$folder = $root->add_folder('test folder');
57	-if (PEAR::isError($folder))
58	-{
59	- print $folder->getMessage();
60	- exit;
61	-}
62	-
63	-$subfolder = $folder->add_folder('test sub folder');
64	-if (PEAR::isError($subfolder))
65	-{
66	- print $subfolder->getMessage();
67	- exit;
68	-}
69	-
70	-?>

ktwsapi/php/examples/ktws_eg_doc_info.php deleted

View file @b56238b

1	-<?php
2	-/**
3	- * Copyright (c) 2008, The Jam Warehouse Software (Pty) Ltd.
4	- *
5	- * All rights reserved.
6	- *
7	- * Redistribution and use in source and binary forms, with or without
8	- * modification, are permitted provided that the following conditions are met:
9	- *
10	- * i) Redistributions of source code must retain the above copyright notice,
11	- * this list of conditions and the following disclaimer.
12	- * ii) Redistributions in binary form must reproduce the above copyright
13	- * notice, this list of conditions and the following disclaimer in the
14	- * documentation and/or other materials provided with the distribution.
15	- * iii) Neither the name of the The Jam Warehouse Software (Pty) Ltd nor the
16	- * names of its contributors may be used to endorse or promote products
17	- * derived from this software without specific prior written permission.
18	- *
19	- * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
20	- * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
21	- * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
22	- * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
23	- * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
24	- * EXEMPLARY, OR CONSEQUENTIAL DAMAGES ( INCLUDING, BUT NOT LIMITED TO,
25	- * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
26	- * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
27	- * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT ( INCLUDING
28	- * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
29	- * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
30	- */
31	-
32	-/*
33	- * Demonstrates using an active session and getting document info and metadata.
34	- */
35	-
36	-require_once('../ktwsapi.inc.php');
37	-
38	-$ktapi = new KTWSAPI(KTWebService_WSDL);
39	-
40	-// change session to something that is in table 'active_sessions'
41	-
42	-$response = $ktapi->active_session('sj5827sohdoj6h3nvifrcsa1f2');
43	-if (PEAR::isError($response))
44	-{
45	- print $response->getMessage();
46	- exit;
47	-}
48	-
49	-// lets ge the document based on id.
50	-
51	-$document = $ktapi->get_document_by_id(50);
52	-if (PEAR::isError($document))
53	-{
54	- print $document->getMessage();
55	- exit;
56	-}
57	-
58	-// lets get the document metadata
59	-
60	-$metadata = $document->get_metadata();
61	-if (PEAR::isError($metadata))
62	-{
63	- print $metadata->getMessage();
64	- exit;
65	-}
66	-var_dump($metadata);
67	-
68	-?>

ktwsapi/php/examples/ktws_eg_folder_listing.php deleted

View file @b56238b

1	-<?php
2	-/**
3	- * Copyright (c) 2008, The Jam Warehouse Software (Pty) Ltd.
4	- *
5	- * All rights reserved.
6	- *
7	- * Redistribution and use in source and binary forms, with or without
8	- * modification, are permitted provided that the following conditions are met:
9	- *
10	- * i) Redistributions of source code must retain the above copyright notice,
11	- * this list of conditions and the following disclaimer.
12	- * ii) Redistributions in binary form must reproduce the above copyright
13	- * notice, this list of conditions and the following disclaimer in the
14	- * documentation and/or other materials provided with the distribution.
15	- * iii) Neither the name of the The Jam Warehouse Software (Pty) Ltd nor the
16	- * names of its contributors may be used to endorse or promote products
17	- * derived from this software without specific prior written permission.
18	- *
19	- * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
20	- * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
21	- * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
22	- * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
23	- * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
24	- * EXEMPLARY, OR CONSEQUENTIAL DAMAGES ( INCLUDING, BUT NOT LIMITED TO,
25	- * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
26	- * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
27	- * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT ( INCLUDING
28	- * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
29	- * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
30	- */
31	-
32	-/*
33	- * Demonstrates document checkout and checkin
34	- */
35	-
36	-require_once('../ktwsapi.inc.php');
37	-
38	-$ktapi = new KTWSAPI(KTWebService_WSDL);
39	-
40	-// change session to something that is in table 'active_sessions'
41	-
42	-$response = $ktapi->active_session('sj5827sohdoj6h3nvifrcsa1f2');
43	-if (PEAR::isError($response))
44	-{
45	- print $response->getMessage();
46	- exit;
47	-}
48	-
49	-$root = $ktapi->get_root_folder();
50	-if (PEAR::isError($root))
51	-{
52	- print $root->getMessage();
53	- exit;
54	-}
55	-
56	-$listing = $root->get_listing();
57	-if (PEAR::isError($listing))
58	-{
59	- print $listing->getMessage();
60	- exit;
61	-}
62	-
63	-// lets display the items
64	-
65	-foreach($listing as $folderitem)
66	-{
67	- $title = $folderitem->title;
68	- $item_type = $folderitem->item_type;
69	- $mime_display = $folderitem->mime_display;
70	-
71	- print "$title $item_type $mime_display\n";
72	-}
73	-
74	-?>

ktwsapi/php/ktwsapi.inc.php deleted

View file @b56238b

1	-<?php
2	-/**
3	- * Copyright (c) 2008, The Jam Warehouse Software (Pty) Ltd.
4	- *
5	- * All rights reserved.
6	- *
7	- * Redistribution and use in source and binary forms, with or without
8	- * modification, are permitted provided that the following conditions are met:
9	- *
10	- * i) Redistributions of source code must retain the above copyright notice,
11	- * this list of conditions and the following disclaimer.
12	- * ii) Redistributions in binary form must reproduce the above copyright
13	- * notice, this list of conditions and the following disclaimer in the
14	- * documentation and/or other materials provided with the distribution.
15	- * iii) Neither the name of the The Jam Warehouse Software (Pty) Ltd nor the
16	- * names of its contributors may be used to endorse or promote products
17	- * derived from this software without specific prior written permission.
18	- *
19	- * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
20	- * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
21	- * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
22	- * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
23	- * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
24	- * EXEMPLARY, OR CONSEQUENTIAL DAMAGES ( INCLUDING, BUT NOT LIMITED TO,
25	- * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
26	- * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
27	- * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT ( INCLUDING
28	- * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
29	- * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
30	- */
31	-
32	-/*
33	- * This is the object model for the KnowledgeTree WebService.
34	- */
35	-
36	-// TODO: add more validation based on information already returned. this can prevent all validation being done server side and minimise a little traffic possibly...
37	-// TODO: caching so that requests don't have to be returned.
38	-// TODO: possibly add a subscriber model, where updates can be propogated through to a cache/model on the client side.
39	-
40	-require_once('ktwsapi_cfg.inc.php');
41	-
42	-ini_set('include_path', ini_get('include_path') . PATH_SEPARATOR . KT_PEAR_DIR);
43	-
44	-require_once('SOAP/Client.php');
45	-
46	-define('KTWSAPI_ERR_SESSION_IN_USE','There is a session already active.');
47	-define('KTWSAPI_ERR_SESSION_NOT_STARTED','An active session has not been started.');
48	-
49	-class KTWSAPI_FolderItem
50	-{
51	- var $ktapi;
52	-
53	- var $parent_id;
54	-
55	- /**
56	- * Upload a file to KT. Returns a temp filename on the server.
57	- *
58	- * @param string $filename
59	- * @param string $action
60	- * @param int $document_id
61	- * @return string
62	- */
63	- function _upload_file($filename, $action, $document_id=null)
64	- {
65	- if (!extension_loaded('curl'))
66	- {
67	- return new PEAR_Error('CURL library not included.');
68	- }
69	-
70	- if (!is_file($filename) \|\| !is_readable($filename))
71	- {
72	- return new PEAR_Error('Could not access file to upload.');
73	- }
74	-
75	- if (is_null($document_id))
76	- {
77	- $uploadname="upload_document";
78	- }
79	- else
80	- {
81	- $uploadname="upload_$document_id";
82	-
83	- }
84	-
85	- $session_id = $this->ktapi->session;
86	-
87	- $ch = curl_init();
88	- $fp = fopen ($filename, 'r');
89	- curl_setopt($ch, CURLOPT_URL, KTUploadURL);
90	- curl_setopt($ch, CURLOPT_POST, 1);
91	-
92	- $post_fields = array(
93	- 'session_id'=>$session_id,
94	- 'action'=>$action,
95	- 'document_id'=>$document_id,
96	- $uploadname=>'@' . $filename
97	-
98	- );
99	-
100	- $str = serialize($post_fields);
101	-
102	- curl_setopt($ch, CURLOPT_POSTFIELDS, $post_fields);
103	- curl_setopt($ch, CURLOPT_RETURNTRANSFER,1);
104	- $response = curl_exec ($ch);
105	- curl_close ($ch);
106	-
107	- if ($response == '')
108	- {
109	- return new PEAR_Error('No response from server.');
110	- }
111	-
112	- $fields=explode('&',$response);
113	- $status_code=-1;
114	- $msg='not set';
115	- $upload_status='';
116	-
117	-
118	- foreach($fields as $field)
119	- {
120	- list($fieldname, $value) = explode('=', $field);
121	-
122	- $$fieldname = $value;
123	- }
124	-
125	- if ($status_code == 0)
126	- {
127	- $upload_status= unserialize(urldecode($upload_status));
128	-
129	- if ($upload_status[$uploadname]['size'] == filesize($filename))
130	- {
131	- return $upload_status[$uploadname]['tmp_name'];
132	- }
133	- }
134	- return new PEAR_Error('Could not upload file.');
135	-
136	- }
137	-
138	- /**
139	- * Downlaods a file from KT.
140	- *
141	- * @param string $url
142	- * @param string $localpath
143	- * @param string $filename
144	- * @return boolean
145	- */
146	- function _download_file($url, $localpath, $filename)
147	- {
148	- $localfilename = $localpath . '/' . $filename;
149	-
150	- $fp = fopen($localfilename,'wb');
151	- if ($fp == null)
152	- {
153	- return new PEAR_Error('Could not create local file');
154	- }
155	-
156	- $ch = curl_init();
157	-
158	- curl_setopt($ch, CURLOPT_FILE, $fp);
159	- curl_setopt($ch, CURLOPT_HEADER, 0);
160	- curl_setopt($ch, CURLOPT_URL, $url);
161	-
162	- $response = curl_exec($ch);
163	- if ($response == false)
164	- {
165	- $response = new PEAR_Error(curl_error($ch));
166	- }
167	- else
168	- {
169	- $response = true;
170	- }
171	- curl_close($ch);
172	-
173	- fclose($fp);
174	-
175	- return $response;
176	- }
177	-
178	- /**
179	- * Returns a reference to the parent folder.
180	- *
181	- * @return KTWSAPI_Folder
182	- */
183	- function &get_parent_folder()
184	- {
185	- $parent = &KTAPI::get_folder_by_id($this->parent_id);
186	- return $parent;
187	- }
188	-
189	-}
190	-
191	-class KTWSAPI_Folder extends KTWSAPI_FolderItem
192	-{
193	- var $folder_name;
194	- var $full_path;
195	- var $folder_id;
196	-
197	- /**
198	- * Constructor
199	- *
200	- * @param KTWSAPI $ktapi
201	- * @param kt_folder_detail $kt_folder_detail
202	- * @return KTWSAPI_Folder
203	- */
204	- function KTWSAPI_Folder(&$ktapi, $kt_folder_detail)
205	- {
206	- $this->ktapi = &$ktapi;
207	- $this->folder_id = $kt_folder_detail->id+0;
208	- $this->folder_name = $kt_folder_detail->folder_name;
209	- $this->parent_id = $kt_folder_detail->parent_id+0;
210	- $this->full_path = $kt_folder_detail->full_path;
211	- }
212	-
213	- /**
214	- * Returns a reference to a KTWSAPI_Folder
215	- *
216	- * @param KTWSAPI $ktapi
217	- * @param int $folderid
218	- * @return KTWSAPI_Folder
219	- */
220	- function &get(&$ktapi, $folderid)
221	- {
222	- assert(!is_null($ktapi));
223	- assert(is_a($ktapi, 'KTWSAPI'));
224	- assert(is_numeric($folderid));
225	-
226	- $folderid += 0;
227	-
228	- $kt_folder_detail = $ktapi->soapclient->get_folder_detail($ktapi->session, $folderid);
229	- if (SOAP_Client::isError($kt_folder_detail))
230	- {
231	- return $kt_folder_detail;
232	- }
233	-
234	- if ($kt_folder_detail->status_code != 0)
235	- {
236	- return new PEAR_Error($kt_folder_detail->message);
237	- }
238	-
239	- $folder = & new KTWSAPI_Folder($ktapi, $kt_folder_detail);
240	-
241	- return $folder;
242	- }
243	-
244	- /**
245	- * Returnss the parent folder id.
246	- *
247	- * @return int
248	- */
249	- function get_parent_folder_id()
250	- {
251	- return $this->parent_id;
252	- }
253	-
254	- /**
255	- * Returns the folder name.
256	- *
257	- * @return string
258	- */
259	- function get_folder_name()
260	- {
261	- return $this->folder_name;
262	- }
263	-
264	- /**
265	- * Returns the current folder id.
266	- *
267	- * @return int
268	- */
269	- function get_folderid()
270	- {
271	- return $this->folder_id;
272	- }
273	-
274	- /**
275	- * Returns the foldre based on foldername.
276	- *
277	- * @param string $foldername
278	- * @return KTWSAPI_Folder
279	- */
280	- function &get_folder_by_name($foldername)
281	- {
282	- $path = $this->full_path . '/' . $foldername;
283	- if (substr($path,0,13) == '/Root Folder/')
284	- {
285	- $path = substr($path,13);
286	- }
287	- if (substr($path,0,12) == 'Root Folder/')
288	- {
289	- $path = substr($path,12);
290	- }
291	-
292	- $kt_folder_detail = $this->ktapi->soapclient->get_folder_detail_by_name($this->ktapi->session, $path);
293	-
294	- if (SOAP_Client::isError($kt_folder_detail))
295	- {
296	- return $kt_folder_detail;
297	- }
298	-
299	- if ($kt_folder_detail->status_code != 0)
300	- {
301	- return new PEAR_Error($kt_folder_detail->message);
302	- }
303	-
304	- $folder= & new KTWSAPI_Folder($this->ktapi, $kt_folder_detail);
305	- return $folder;
306	- }
307	-
308	- /**
309	- * Returns the full folder path.
310	- *
311	- * @return string
312	- */
313	- function get_full_path()
314	- {
315	- return $this->full_path;
316	- }
317	-
318	- /**
319	- * Returns the contents of a folder.
320	- *
321	- * @param int $depth
322	- * @param string $what
323	- * @return kt_folder_items
324	- */
325	- function get_listing($depth=1, $what='DF')
326	- {
327	- $kt_folder_contents = $this->ktapi->soapclient->get_folder_contents($this->ktapi->session, $this->folder_id, $depth+0, $what);
328	- if (SOAP_Client::isError($kt_folder_contents))
329	- {
330	- return $kt_folder_contents;
331	- }
332	-
333	- if ($kt_folder_contents->status_code != 0)
334	- {
335	- return new PEAR_Error($kt_folder_contents->message);
336	- }
337	-
338	- return $kt_folder_contents->items;
339	- }
340	-
341	- /**
342	- * Returns a document based on title.
343	- *
344	- * @param string $title
345	- * @return KTWSAPI_Document
346	- */
347	- function &get_document_by_name($title)
348	- {
349	- $path = $this->full_path . '/' . $title;
350	- if (substr($path,0,13) == '/Root Folder/')
351	- {
352	- $path = substr($path,13);
353	- }
354	- if (substr($path,0,12) == 'Root Folder/')
355	- {
356	- $path = substr($path,12);
357	- }
358	-
359	- $kt_document_detail = $this->ktapi->soapclient->get_document_detail_by_name($this->ktapi->session, $path, 'T');
360	-
361	- if (SOAP_Client::isError($kt_document_detail))
362	- {
363	- return $kt_document_detail;
364	- }
365	-
366	- if ($kt_document_detail->status_code != 0)
367	- {
368	- return new PEAR_Error($kt_document_detail->message);
369	- }
370	-
371	- $document = & new KTWSAPI_Document($this->ktapi, $kt_document_detail);
372	-
373	- return $document;
374	- }
375	-
376	- /**
377	- * Returns a document based on filename.
378	- *
379	- * @param string $filename
380	- * @return KTWSAPI_Document
381	- */
382	- function &get_document_by_filename($filename)
383	- {
384	- $path = $this->full_path . '/' . $filename;
385	- if (substr($path,0,13) == '/Root Folder/')
386	- {
387	- $path = substr($path,13);
388	- }
389	- if (substr($path,0,12) == 'Root Folder/')
390	- {
391	- $path = substr($path,12);
392	- }
393	-
394	- $kt_document_detail = $this->ktapi->soapclient->get_document_detail_by_name($this->ktapi->session, $path, 'F');
395	-
396	- if (SOAP_Client::isError($kt_document_detail))
397	- {
398	- return $kt_document_detail;
399	- }
400	-
401	- if ($kt_document_detail->status_code != 0)
402	- {
403	- return new PEAR_Error($kt_document_detail->message);
404	- }
405	-
406	- $document = & new KTWSAPI_Document($this->ktapi, $kt_document_detail);
407	- return $document;
408	- }
409	-
410	-
411	- /**
412	- * Adds a sub folder.
413	- *
414	- * @param string $foldername
415	- * @return KTWSAPI_Folder
416	- */
417	- function &add_folder($foldername)
418	- {
419	- $kt_folder_detail = $this->ktapi->soapclient->create_folder($this->ktapi->session, $this->folder_id, $foldername);
420	- if (SOAP_Client::isError($kt_folder_detail))
421	- {
422	- return $kt_folder_detail;
423	- }
424	-
425	- if ($kt_folder_detail->status_code != 0)
426	- {
427	- return new PEAR_Error($kt_folder_detail->message);
428	- }
429	-
430	- $folder = &new KTWSAPI_Folder($this->ktapi, $kt_folder_detail);
431	-
432	- return $folder;
433	- }
434	-
435	- /**
436	- * Deletes the current folder.
437	- *
438	- * @param string $reason
439	- * @return true
440	- */
441	- function delete($reason)
442	- {
443	- // TODO: check why no transaction in folder_transactions
444	- $kt_response = $this->ktapi->soapclient->delete_folder($this->ktapi->session, $this->folder_id, $reason);
445	- if (SOAP_Client::isError($kt_response))
446	- {
447	- return $kt_response;
448	- }
449	-
450	- if ($kt_response->status_code != 0)
451	- {
452	- return new PEAR_Error($kt_response->message);
453	- }
454	-
455	- return true;
456	- }
457	-
458	- /**
459	- * Renames the current folder.
460	- *
461	- * @param string $newname
462	- * @return true
463	- */
464	- function rename($newname)
465	- {
466	- $kt_response = $this->ktapi->soapclient->rename_folder($this->ktapi->session, $this->folder_id, $newname);
467	- if (SOAP_Client::isError($kt_response))
468	- {
469	- return $kt_response;
470	- }
471	-
472	- if ($kt_response->status_code != 0)
473	- {
474	- return new PEAR_Error($kt_response->message);
475	- }
476	-
477	- return true;
478	- }
479	-
480	- /**
481	- * Moves a folder to another location.
482	- *
483	- * @param KTWSAPI_Folder $ktwsapi_target_folder
484	- * @param string $reason
485	- * @return true
486	- */
487	- function move(&$ktwsapi_target_folder, $reason='')
488	- {
489	- assert(!is_null($ktwsapi_target_folder));
490	- assert(is_a($ktwsapi_target_folder,'KTWSAPI_Folder'));
491	-
492	- $kt_response = $this->ktapi->soapclient->move_folder($this->ktapi->session, $this->folder_id,$ktwsapi_target_folder->get_folderid());
493	- if (SOAP_Client::isError($kt_response))
494	- {
495	- return $kt_response;
496	- }
497	-
498	- if ($kt_response->status_code != 0)
499	- {
500	- return new PEAR_Error($kt_response->message);
501	- }
502	-
503	- return true;
504	- }
505	-
506	- /**
507	- * Copies a folder to another location
508	- *
509	- * @param KTWSAPI_Folder $ktwsapi_target_folder
510	- * @param string $reason
511	- * @return true
512	- */
513	- function copy(&$ktwsapi_target_folder, $reason='')
514	- {
515	- assert(!is_null($ktwsapi_target_folder));
516	- assert(is_a($ktwsapi_target_folder,'KTWSAPI_Folder'));
517	-
518	- $targetid=$ktwsapi_target_folder->get_folderid();
519	-
520	- $kt_response = $this->ktapi->soapclient->copy_folder($this->ktapi->session, $this->folder_id,$targetid, $reason);
521	- if (SOAP_Client::isError($kt_response))
522	- {
523	- return $kt_response;
524	- }
525	-
526	- if ($kt_response->status_code != 0)
527	- {
528	- return new PEAR_Error($kt_response->message);
529	- }
530	-
531	- return true;
532	- }
533	-
534	- /**
535	- * Adds a document to the current folder.
536	- *
537	- * @param string $filename
538	- * @param string $title
539	- * @param string $documenttype
540	- * @return KTWSAPI_Document
541	- */
542	- function &add_document($filename, $title=null, $documenttype=null)
543	- {
544	- if (empty($title))
545	- {
546	- $title=basename($filename);
547	- }
548	- $basename=basename($filename);
549	-
550	- if (empty($documenttype))
551	- {
552	- $documenttype='Default';
553	- }
554	-
555	- // First step - upload file
556	- $tempfilename = $this->_upload_file($filename,'A');
557	- if (PEAR::isError($tempfilename))
558	- {
559	- return new PEAR_Error($tempfilename->message);
560	- }
561	-
562	- // Second step - move file into KT
563	- $kt_document_detail = $this->ktapi->soapclient->add_document($this->ktapi->session, $this->folder_id, $title, $basename, $documenttype, $tempfilename );
564	- if (SOAP_Client::isError($kt_document_detail))
565	- {
566	- return $kt_document_detail;
567	- }
568	-
569	- if ($kt_document_detail->status_code != 0)
570	- {
571	- return new PEAR_Error($kt_document_detail->message);
572	- }
573	-
574	- $document = & new KTWSAPI_Document($this->ktapi, $kt_document_detail);
575	- return $document;
576	- }
577	-}
578	-
579	-class KTWSAPI_Document extends KTWSAPI_FolderItem
580	-{
581	- var $document_id;
582	- var $title;
583	- var $document_type;
584	- var $version;
585	- var $filename;
586	- var $created_date;
587	- var $created_by;
588	- var $updated_date;
589	- var $updated_by;
590	- var $workflow;
591	- var $workflow_state;
592	- var $checkout_by;
593	- var $full_path;
594	-
595	- /**
596	- * Constructor
597	- *
598	- * @param KTWSAPI $ktapi
599	- * @param kt_document_detail $kt_document_detail
600	- * @return KTWSAPI_Document
601	- */
602	- function KTWSAPI_Document(&$ktapi, $kt_document_detail)
603	- {
604	- $this->ktapi=&$ktapi;
605	- $this->document_id = $kt_document_detail->document_id;
606	- $this->title = $kt_document_detail->title;
607	- $this->document_type = $kt_document_detail->document_type;
608	- $this->version = $kt_document_detail->version;
609	- $this->filename = $kt_document_detail->filename;
610	- $this->created_date = $kt_document_detail->created_date;
611	- $this->created_by = $kt_document_detail->created_by;
612	- $this->updated_date = $kt_document_detail->updated_date;
613	- $this->updated_by = $kt_document_detail->updated_by;
614	- $this->parent_id = $kt_document_detail->folder_id;
615	- $this->workflow = $kt_document_detail->workflow;
616	- $this->workflow_state = $kt_document_detail->workflow_state;
617	- $this->checkout_by = $kt_document_detail->checkout_by;
618	- $this->full_path = $kt_document_detail->full_path;
619	- }
620	-
621	- /**
622	- * Returns a reference to a document.
623	- *
624	- * @param KTWSAPI $ktapi
625	- * @param int $documentid
626	- * @param boolean $loadinfo
627	- * @return KTWSAPI_Document
628	- */
629	- function &get(&$ktapi, $documentid, $loadinfo=true)
630	- {
631	- assert(!is_null($ktapi));
632	- assert(is_a($ktapi, 'KTWSAPI'));
633	- assert(is_numeric($documentid));
634	-
635	- if ($loadinfo)
636	- {
637	- $kt_document_detail = $ktapi->soapclient->get_document_detail($ktapi->session, $documentid);
638	- if (SOAP_Client::isError($kt_document_detail))
639	- {
640	- return $kt_document_detail;
641	- }
642	-
643	- if ($kt_document_detail->status_code != 0)
644	- {
645	- return new PEAR_Error($kt_document_detail->message);
646	- }
647	- }
648	- else
649	- {
650	- $kt_document_detail = array(
651	- 'document_id'=>$documentid,
652	- );
653	- }
654	-
655	- $document=& new KTWSAPI_Document($ktapi, $kt_document_detail);
656	- return $document;
657	- }
658	-
659	- /**
660	- * Checks in a document.
661	- *
662	- * @param string $filename
663	- * @param string $reason
664	- * @param boolean $major_update
665	- * @return true
666	- */
667	- function checkin($filename, $reason, $major_update )
668	- {
669	- $basename=basename($filename);
670	-
671	- $tempfilename = $this->_upload_file($filename,'C', $this->document_id);
672	- if (PEAR::isError($tempfilename))
673	- {
674	- return new PEAR_Error($tempfilename->message);
675	- }
676	-
677	- $kt_response = $this->ktapi->soapclient->checkin_document($this->ktapi->session, $this->document_id, $basename, $reason, $tempfilename, $major_update );
678	- if (SOAP_Client::isError($kt_response))
679	- {
680	- return $kt_response;
681	- }
682	-
683	- if ($kt_response->status_code != 0)
684	- {
685	- return new PEAR_Error($kt_response->message);
686	- }
687	-
688	- return true;
689	- }
690	-
691	- /**
692	- * Checks out a document.
693	- *
694	- * @param string $reason
695	- * @param string $localpath
696	- * @return true
697	- */
698	- function checkout($reason, $localpath=null)
699	- {
700	- if (is_null($localpath))
701	- {
702	- $localpath = $this->ktapi->get_download_path();
703	- }
704	-
705	- if (!is_dir($localpath))
706	- {
707	- return new PEAR_Error('local path does not exist');
708	- }
709	- if (!is_writable($localpath))
710	- {
711	- return new PEAR_Error('local path is not writable');
712	- }
713	-
714	- $kt_response = $this->ktapi->soapclient->checkout_document($this->ktapi->session, $this->document_id, $reason);
715	- if (SOAP_Client::isError($kt_response))
716	- {
717	- return $kt_response;
718	- }
719	-
720	- if ($kt_response->status_code != 0)
721	- {
722	- return new PEAR_Error($kt_response->message);
723	- }
724	-
725	- $url = $kt_response->message;
726	-
727	- $response = $this->_download_file($url, $localpath, $this->filename);
728	- if (PEAR::isError($response))
729	- {
730	- return new PEAR_Error($kt_response->message);
731	- }
732	-
733	- return true;
734	- }
735	-
736	- /**
737	- * Undo a document checkout
738	- *
739	- * @param string $reason
740	- * @return true
741	- */
742	- function undo_checkout($reason)
743	- {
744	- $kt_response = $this->ktapi->soapclient->undo_document_checkout($this->ktapi->session, $this->document_id, $reason);
745	- if (SOAP_Client::isError($kt_response))
746	- {
747	- return $kt_response;
748	- }
749	-
750	- if ($kt_response->status_code != 0)
751	- {
752	- return new PEAR_Error($kt_response->message);
753	- }
754	-
755	- return true;
756	- }
757	-
758	- /**
759	- * Download a version of the document
760	- *
761	- * @param string $version
762	- * @param string $localpath
763	- * @return true
764	- */
765	- function download($version=null, $localpath=null)
766	- {
767	- if (is_null($localpath))
768	- {
769	- $localpath = $this->ktapi->get_download_path();
770	- }
771	-
772	- if (!is_dir($localpath))
773	- {
774	- return new PEAR_Error('local path does not exist');
775	- }
776	- if (!is_writable($localpath))
777	- {
778	- return new PEAR_Error('local path is not writable');
779	- }
780	-
781	- $kt_response = $this->ktapi->soapclient->download_document($this->ktapi->session, $this->document_id);
782	- if (SOAP_Client::isError($kt_response))
783	- {
784	- return $kt_response;
785	- }
786	-
787	- if ($kt_response->status_code != 0)
788	- {
789	- return new PEAR_Error($kt_response->message);
790	- }
791	-
792	- $url = $kt_response->message;
793	-
794	- $response = $this->_download_file($url, $localpath, $this->filename);
795	- if (PEAR::isError($response))
796	- {
797	- return new PEAR_Error($kt_response->message);
798	- }
799	-
800	- return true;
801	- }
802	-
803	- /**
804	- * Deletes the current document.
805	- *
806	- * @param string $reason
807	- * @return true
808	- */
809	- function delete($reason)
810	- {
811	- $kt_response = $this->ktapi->soapclient->delete_document($this->ktapi->session, $this->document_id, $reason);
812	- if (SOAP_Client::isError($kt_response))
813	- {
814	- return $kt_response;
815	- }
816	-
817	- if ($kt_response->status_code != 0)
818	- {
819	- return new PEAR_Error($kt_response->message);
820	- }
821	-
822	- return true;
823	- }
824	-
825	- /**
826	- * Changes the owner of the document.
827	- *
828	- * @param string $username
829	- * @param string $reason
830	- * @return true
831	- */
832	- function change_owner($username, $reason)
833	- {
834	- $kt_response = $this->ktapi->soapclient->change_document_owner($this->ktapi->session, $this->document_id, $username, $reason);
835	- if (SOAP_Client::isError($kt_response))
836	- {
837	- return $kt_response;
838	- }
839	-
840	- if ($kt_response->status_code != 0)
841	- {
842	- return new PEAR_Error($kt_response->message);
843	- }
844	-
845	- return true;
846	- }
847	-
848	- /**
849	- * Copies the document to the specified folder.
850	- *
851	- * @param KTWSAPI_Folder $folder
852	- * @param string $reason
853	- * @param string $newtitle
854	- * @param string $newfilename
855	- */
856	- function copy(&$folder,$reason,$newtitle='',$newfilename='')
857	- {
858	- assert(is_a($folder,'KTWSAPI_Folder'));
859	- assert(!is_null($folder));
860	-
861	- $folder_id = $folder->folderid;
862	- $kt_response = $this->ktapi->soapclient->copy_document($this->ktapi->session, $this->document_id, $folder_id, $reason, $newtitle, $newfilename);
863	- if (SOAP_Client::isError($kt_response))
864	- {
865	- return $kt_response;
866	- }
867	-
868	- if ($kt_response->status_code != 0)
869	- {
870	- return new PEAR_Error($kt_response->message);
871	- }
872	-
873	- return true;
874	- }
875	-
876	- /**
877	- * Moves the current folder to the specified folder.
878	- *
879	- * @param KTWSAPI_Folder $folder
880	- * @param string $reason
881	- * @param string $newtitle
882	- * @param string $newfilename
883	- * @return true
884	- */
885	- function move(&$folder,$reason,$newtitle='',$newfilename='')
886	- {
887	- assert(is_a($folder,'KTWSAPI_Folder'));
888	- assert(!is_null($folder));
889	-
890	- $folder_id = $folder->folderid;
891	- $kt_response = $this->ktapi->soapclient->move_document($this->ktapi->session, $this->document_id, $folder_id, $reason, $newtitle, $newfilename);
892	- if (SOAP_Client::isError($kt_response))
893	- {
894	- return $kt_response;
895	- }
896	-
897	- if ($kt_response->status_code != 0)
898	- {
899	- return new PEAR_Error($kt_response->message);
900	- }
901	-
902	- return true;
903	- }
904	-
905	- /**
906	- * Changes the document type.
907	- *
908	- * @param string $documenttype
909	- * @return true
910	- */
911	- function change_document_type($documenttype)
912	- {
913	- $kt_response = $this->ktapi->soapclient->change_document_type($this->ktapi->session, $this->document_id, $documenttype);
914	- if (SOAP_Client::isError($kt_response))
915	- {
916	- return $kt_response;
917	- }
918	-
919	- if ($kt_response->status_code != 0)
920	- {
921	- return new PEAR_Error($kt_response->message);
922	- }
923	-
924	- return true;
925	- }
926	-
927	- /**
928	- * Renames the title of the current document.
929	- *
930	- * @param string $newtitle
931	- * @return true
932	- */
933	- function rename_title( $newtitle)
934	- {
935	- $kt_response = $this->ktapi->soapclient->rename_document_title($this->ktapi->session, $this->document_id, $newtitle);
936	- if (SOAP_Client::isError($kt_response))
937	- {
938	- return $kt_response;
939	- }
940	-
941	- if ($kt_response->status_code != 0)
942	- {
943	- return new PEAR_Error($kt_response->message);
944	- }
945	-
946	- return true;
947	- }
948	-
949	- /**
950	- * Renames the filename of the current document.
951	- *
952	- * @param string $newfilename
953	- * @return true
954	- */
955	- function rename_filename( $newfilename)
956	- {
957	- $kt_response = $this->ktapi->soapclient->rename_document_filename($this->ktapi->session, $this->document_id, $newfilename);
958	- if (SOAP_Client::isError($kt_response))
959	- {
960	- return $kt_response;
961	- }
962	-
963	- if ($kt_response->status_code != 0)
964	- {
965	- return new PEAR_Error($kt_response->message);
966	- }
967	-
968	- return true;
969	- }
970	-
971	- /**
972	- * Starts a workflow on the current document.
973	- *
974	- * @param string $workflow
975	- * @return true
976	- */
977	- function start_workflow($workflow)
978	- {
979	- $kt_response = $this->ktapi->soapclient->start_document_workflow($this->ktapi->session, $this->document_id, $workflow);
980	- if (SOAP_Client::isError($kt_response))
981	- {
982	- return $kt_response;
983	- }
984	-
985	- if ($kt_response->status_code != 0)
986	- {
987	- return new PEAR_Error($kt_response->message);
988	- }
989	-
990	- return true;
991	- }
992	-
993	- /**
994	- * Removes the workflow process from the current document.
995	- *
996	- * @return true
997	- */
998	- function delete_workflow()
999	- {
1000	- $kt_response = $this->ktapi->soapclient->delete_document_workflow($this->ktapi->session, $this->document_id);
1001	- if (SOAP_Client::isError($kt_response))
1002	- {
1003	- return $kt_response;
1004	- }
1005	-
1006	- if ($kt_response->status_code != 0)
1007	- {
1008	- return new PEAR_Error($kt_response->message);
1009	- }
1010	-
1011	- return true;
1012	- }
1013	-
1014	- /**
1015	- * Performs a transition on the current document.
1016	- *
1017	- * @param string $transition
1018	- * @param string $reason
1019	- * @return true
1020	- */
1021	- function perform_workflow_transition($transition,$reason)
1022	- {
1023	- $kt_response = $this->ktapi->soapclient->perform_workflow_transition($this->ktapi->session, $this->document_id, $transition, $reason);
1024	- if (SOAP_Client::isError($kt_response))
1025	- {
1026	- return $kt_response;
1027	- }
1028	-
1029	- if ($kt_response->status_code != 0)
1030	- {
1031	- return new PEAR_Error($kt_response->message);
1032	- }
1033	-
1034	- return true;
1035	- }
1036	-
1037	- /**
1038	- * Returns metadata on the document.
1039	- *
1040	- * @return kt_metadata_response
1041	- */
1042	- function get_metadata()
1043	- {
1044	- $kt_metadata_response = $this->ktapi->soapclient->get_document_metadata($this->ktapi->session, $this->document_id );
1045	- if (SOAP_Client::isError($kt_metadata_response))
1046	- {
1047	- return $kt_metadata_response;
1048	- }
1049	-
1050	- if ($kt_metadata_response->status_code != 0)
1051	- {
1052	- return new PEAR_Error($kt_metadata_response->message);
1053	- }
1054	-
1055	- return $kt_metadata_response;
1056	- }
1057	-
1058	- /**
1059	- * Updates the metadata on the current document.
1060	- *
1061	- * @param kt_metadata $metadata
1062	- * @return true
1063	- */
1064	- function update_metadata($metadata)
1065	- {
1066	- $kt_response = $this->ktapi->soapclient->update_document_metadata($this->ktapi->session, $this->document_id, $metadata);
1067	- if (SOAP_Client::isError($kt_response))
1068	- {
1069	- return $kt_response;
1070	- }
1071	-
1072	- if ($kt_response->status_code != 0)
1073	- {
1074	- return new PEAR_Error($kt_response->message);
1075	- }
1076	-
1077	- return true;
1078	- }
1079	-
1080	- /**
1081	- * Returns the transaction history on the current document.
1082	- *
1083	- * @return kt_document_transaction_history
1084	- */
1085	- function get_transaction_history()
1086	- {
1087	- $kt_document_transaction_history_response = $this->ktapi->soapclient->get_document_transaction_history($this->ktapi->session, $this->document_id);
1088	- if (SOAP_Client::isError($kt_document_transaction_history_response))
1089	- {
1090	- return $kt_document_transaction_history_response;
1091	- }
1092	-
1093	- if ($kt_document_transaction_history_response->status_code != 0)
1094	- {
1095	- return new PEAR_Error($kt_document_transaction_history_response->message);
1096	- }
1097	-
1098	- return $kt_document_transaction_history_response->history;
1099	- }
1100	-
1101	- /**
1102	- * Returns the version history on the current document.
1103	- *
1104	- * @return $kt_document_version_history
1105	- */
1106	- function get_version_history()
1107	- {
1108	- $kt_document_version_history_response = $this->ktapi->soapclient->get_document_version_history($this->ktapi->session, $this->document_id);
1109	- if (SOAP_Client::isError($kt_document_version_history_response))
1110	- {
1111	- return $kt_document_version_history_response;
1112	- }
1113	-
1114	- if ($kt_document_version_history_response->status_code != 0)
1115	- {
1116	- return new PEAR_Error($kt_document_version_history_response->message);
1117	- }
1118	-
1119	- return $kt_document_version_history_response->history;
1120	- }
1121	-}
1122	-
1123	-class KTWSAPI
1124	-{
1125	- var $wsdl;
1126	- /**
1127	- * Enter description here...
1128	- *
1129	- * @var SOAP_Client
1130	- */
1131	- var $soapclient;
1132	- var $timeout;
1133	- var $session;
1134	- var $download_path;
1135	-
1136	- /**
1137	- * Constructor
1138	- *
1139	- * @param string $wsdl
1140	- * @param int $timeout
1141	- * @return KTWSAPI
1142	- */
1143	- function KTWSAPI($wsdl = KTWebService_WSDL, $timeout=30)
1144	- {
1145	- $this->wsdl = new SOAP_WSDL($wsdl);
1146	- $this->timeout = $timeout;
1147	- $this->soapclient = $this->wsdl->getProxy();
1148	- $this->soapclient->setOpt('timeout', $this->timeout);
1149	- $this->download_path = 'c:/temp';
1150	- }
1151	-
1152	- /**
1153	- * This returns the default location where documents are downloaded in download() and checkout().
1154	- *
1155	- * @return string
1156	- */
1157	- function get_download_path()
1158	- {
1159	- return $this->download_path;
1160	- }
1161	-
1162	- /**
1163	- * Allows the default location for downloaded documents to be changed.
1164	- *
1165	- * @param string $download_path
1166	- * @return true
1167	- */
1168	- function set_download_path($download_path)
1169	- {
1170	- if (!is_dir($download_path))
1171	- {
1172	- return new PEAR_Error('local path is not writable');
1173	- }
1174	-
1175	- if (!is_writable($download_path))
1176	- {
1177	- return new PEAR_Error('local path is not writable');
1178	- }
1179	- $this->download_path = $download_path;
1180	- return true;
1181	- }
1182	-
1183	- /**
1184	- * Starts an anonymous session.
1185	- *
1186	- * @param string $ip
1187	- * @return string
1188	- */
1189	- function start_anonymous_session($ip=null)
1190	- {
1191	- return $this->start_session('anonymous','',$ip);
1192	- }
1193	-
1194	- /**
1195	- * Starts a user session.
1196	- *
1197	- * @param string $username
1198	- * @param string $password
1199	- * @param string $ip
1200	- * @return string
1201	- */
1202	- function start_session($username, $password, $ip=null)
1203	- {
1204	- if (!is_null($this->session))
1205	- {
1206	- return new PEAR_Error(KTWSAPI_ERR_SESSION_IN_USE);
1207	- }
1208	- $kt_response = $this->soapclient->login($username, $password, $ip);
1209	- if (SOAP_Client::isError($kt_response))
1210	- {
1211	- return $kt_response;
1212	- }
1213	-
1214	- if ($kt_response->status_code == 0)
1215	- {
1216	- $this->session = $kt_response->message;
1217	- }
1218	- else
1219	- {
1220	- return new PEAR_Error($kt_response->message);
1221	- }
1222	-
1223	- return $this->session;
1224	- }
1225	-
1226	- /**
1227	- * Sets an active session.
1228	- *
1229	- * @param string $session
1230	- * @param string $ip
1231	- * @return string
1232	- */
1233	- function active_session($session, $ip=null)
1234	- {
1235	- if (!is_null($this->session))
1236	- {
1237	- return new PEAR_Error(KTWSAPI_ERR_SESSION_IN_USE);
1238	- }
1239	- $this->session = $session;
1240	-
1241	- return $session;
1242	- }
1243	-
1244	- /**
1245	- * Closes an active session.
1246	- *
1247	- * @return true
1248	- */
1249	- function logout()
1250	- {
1251	- if (is_null($this->session))
1252	- {
1253	- return new PEAR_Error(KTWSAPI_ERR_SESSION_NOT_STARTED);
1254	- }
1255	-
1256	- $kt_response = $this->soapclient->logout($this->session);
1257	-
1258	- if ($kt_response->status_code != 0)
1259	- {
1260	- return new PEAR_Error($kt_response->message);
1261	- }
1262	- $this->session = null;
1263	-
1264	- return true;
1265	- }
1266	-
1267	- /**
1268	- * Returns a reference to the root folder.
1269	- *
1270	- * @return KTWSAPI_Folder
1271	- */
1272	- function &get_root_folder()
1273	- {
1274	- return $this->get_folder_by_id(1);
1275	- }
1276	-
1277	- /**
1278	- * Returns a reference to a folder based on id.
1279	- *
1280	- * @return KTWSAPI_Folder
1281	- */
1282	- function &get_folder_by_id($folderid)
1283	- {
1284	- if (is_null($this->session))
1285	- {
1286	- return new PEAR_Error('A session is not active');
1287	- }
1288	-
1289	- return KTWSAPI_Folder::get($this, $folderid);
1290	- }
1291	-
1292	- /**
1293	- * Returns a reference to a document based on id.
1294	- *
1295	- * @param int $documentid
1296	- * @return KTWSAPI_Document
1297	- */
1298	- function &get_document_by_id($documentid)
1299	- {
1300	- if (is_null($this->session))
1301	- {
1302	- return new PEAR_Error('A session is not active');
1303	- }
1304	-
1305	- return KTWSAPI_Document::get($this, $documentid);
1306	- }
1307	-}
1308	-
1309	-?>

ktwsapi/php/ktwsapi_cfg.inc.php deleted

View file @b56238b

1	-<?php
2	-/**
3	- * Copyright (c) 2008, The Jam Warehouse Software (Pty) Ltd.
4	- *
5	- * All rights reserved.
6	- *
7	- * Redistribution and use in source and binary forms, with or without
8	- * modification, are permitted provided that the following conditions are met:
9	- *
10	- * i) Redistributions of source code must retain the above copyright notice,
11	- * this list of conditions and the following disclaimer.
12	- * ii) Redistributions in binary form must reproduce the above copyright
13	- * notice, this list of conditions and the following disclaimer in the
14	- * documentation and/or other materials provided with the distribution.
15	- * iii) Neither the name of the The Jam Warehouse Software (Pty) Ltd nor the
16	- * names of its contributors may be used to endorse or promote products
17	- * derived from this software without specific prior written permission.
18	- *
19	- * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
20	- * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
21	- * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
22	- * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
23	- * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
24	- * EXEMPLARY, OR CONSEQUENTIAL DAMAGES ( INCLUDING, BUT NOT LIMITED TO,
25	- * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
26	- * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
27	- * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT ( INCLUDING
28	- * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
29	- * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
30	- */
31	-
32	-/*
33	- * This is the basic configuration for the KnowledgeTree WebService object model
34	- */
35	-
36	-// Path to PEAR libraries
37	-
38	-define('KT_PEAR_DIR', '/knowledgetree/ktdms.trunk/thirdparty/pear');
39	-
40	-// URL to KnowledgeTree installation
41	-// This must be configured by the administrator installing this component.
42	-
43	-define('KTWebServiceURL', 'http://localhost:80');
44	-
45	-define('KTWebService_WSDL', KTWebServiceURL . '/ktwebservice/index.php?wsdl');
46	-define('KTUploadURL', KTWebServiceURL . '/ktwebservice/upload.php');
47	-
48	-?>

ktwsapi/python/TODO.txt deleted

View file @b56238b

ktwsapi/ruby/TODO.txt deleted

View file @b56238b