Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

modify

  • Loading branch information...
commit 3d9773638f85187f99b8100f64c61c23b086cb9b 1 parent f6fb6fe
dzchen authored
5 xmpp/XMPP.dpk
View
@@ -46,7 +46,8 @@ contains
Stream in 'protocol\Base\Stream.pas',
Avatar in 'protocol\Base\Avatar.pas',
Base64 in 'Base64.pas',
- Error in 'client\Error.pas',
- XmppUri in 'XmppUri.pas';
+ Error in 'protocol\client\Error.pas',
+ XmppUri in 'XmppUri.pas',
+ IQ in 'protocol\client\IQ.pas';
end.
3  xmpp/XMPP.dproj
View
@@ -67,8 +67,9 @@
<DCCReference Include="protocol\Base\Stream.pas"/>
<DCCReference Include="protocol\Base\Avatar.pas"/>
<DCCReference Include="Base64.pas"/>
- <DCCReference Include="client\Error.pas"/>
+ <DCCReference Include="protocol\client\Error.pas"/>
<DCCReference Include="XmppUri.pas"/>
+ <DCCReference Include="protocol\client\IQ.pas"/>
<None Include="ModelSupport_XMPP\default.txvpck"/>
<BuildConfiguration Include="Release">
<Key>Cfg_2</Key>
24 xmpp/client/IQ.pas
View
@@ -1,24 +0,0 @@
-unit IQ;
-
-interface
-uses
- Stanza,NativeXml,jid;
-type
- TIqType=(iqget,
- iqset,
- iqresult,
- iqerror);
- TIQ=class(TStanza)
- private
- procedure FSetIqType(value:TIqType);
- function FGetIqType:TIqType;
- public
- constructor Create(AOwner:TNativeXml);overload;
- constructor Create(AOwner:TNativeXml;iqtype:TIqType);overload;
- constructor Create(AOwner:TNativeXml;fromjid:TJID;tojid:TJID);overload;
- constructor Create(AOwner:TNativeXml;iqtype:TIqType;fromjid:TJID;tojid:TJID);overload;
- property IqType: TIqType read FGetIqType write FSetIqType;
- end;
-implementation
-
-end.
0  xmpp/client/Error.pas → xmpp/protocol/Client/Error.pas
View
File renamed without changes
21 xmpp/protocol/Client/IQ.pas
View
@@ -1,7 +1,24 @@
unit IQ;
interface
-
+uses
+ Stanza,NativeXml,jid;
+type
+ TIqType=(iqget,
+ iqset,
+ iqresult,
+ iqerror);
+ TIQ=class(TStanza)
+ private
+ procedure FSetIqType(value:TIqType);
+ function FGetIqType:TIqType;
+ public
+ constructor Create(AOwner:TNativeXml);overload;
+ constructor Create(AOwner:TNativeXml;iqtype:TIqType);overload;
+ constructor Create(AOwner:TNativeXml;fromjid:TJID;tojid:TJID);overload;
+ constructor Create(AOwner:TNativeXml;iqtype:TIqType;fromjid:TJID;tojid:TJID);overload;
+ property IqType: TIqType read FGetIqType write FSetIqType;
+ end;
implementation
-
+ //
end.
7 xmpp/protocol/Iq.pas
View
@@ -1,7 +0,0 @@
-unit Iq;
-
-interface
-
-implementation
-
-end.
Please sign in to comment.
Something went wrong with that request. Please try again.