Permalink
Browse files

Merge branch 'norayr-master'

  • Loading branch information...
devi committed Apr 30, 2015
2 parents 1d68837 + ceae9ba commit c8516261207172b5357641f4bc0a15aea8855200
Showing with 509 additions and 55 deletions.
  1. +0 −1 README.txt
  2. +16 −1 demo/dxmpp.dpr
  3. +109 −0 demo/dxmpp.lpi
  4. +161 −0 demo/dxmpp.lps
  5. +70 −37 demo/mainunit.dfm
  6. +54 −5 demo/mainunit.pas
  7. +10 −10 source/tcpsynapse/synautil.pas
  8. +89 −1 source/uxmpp.pas
View
@@ -2,4 +2,3 @@ This is my starting point to learn XMPP with Delphi and Lazarus Free Pascal.
note:
- OpenSSL required !
- Last update September 15 , 2009
View
@@ -1,10 +1,25 @@
program dxmpp;
{$IFDEF FPC}
{$MODE Delphi}
{$ENDIF}
uses
{$IFDEF FPC}
{$IFDEF LINUX}
cthreads,
{$ENDIF}
{$ENDIF}
{$IFNDEF FPC}
{$ELSE}
Interfaces,
{$ENDIF}
Forms,
mainunit in 'mainunit.pas' {frmMain};
{$R *.res}
//{$R *.res}
begin
Application.Initialize;
View
@@ -0,0 +1,109 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<General>
<Flags>
<MainUnitHasUsesSectionForAllUnits Value="False"/>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="dxmpp"/>
<UseAppBundle Value="False"/>
<ResourceType Value="res"/>
</General>
<i18n>
<EnableI18N LFM="False"/>
</i18n>
<VersionInfo>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="1">
<Item1>
<PackageName Value="LCL"/>
</Item1>
</RequiredPackages>
<Units Count="5">
<Unit0>
<Filename Value="dxmpp.dpr"/>
<IsPartOfProject Value="True"/>
</Unit0>
<Unit1>
<Filename Value="mainunit.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="frmMain"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="mainunit"/>
</Unit1>
<Unit2>
<Filename Value="../source/tcpsynapse/synautil.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="synautil"/>
</Unit2>
<Unit3>
<Filename Value="../source/tcpsynapse/synacode.pas"/>
<IsPartOfProject Value="True"/>
</Unit3>
<Unit4>
<Filename Value="../source/uxmpp.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="uxmpp"/>
</Unit4>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<SearchPaths>
<IncludeFiles Value="../source/tcpsynapse;../source"/>
<OtherUnitFiles Value="../source/tcpsynapse;../source"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<SyntaxMode Value="delphi"/>
</SyntaxOptions>
</Parsing>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerMessages>
<MsgFileName Value=""/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<Exceptions Count="3">
<Item1>
<Name Value="EAbort"/>
</Item1>
<Item2>
<Name Value="ECodetoolError"/>
</Item2>
<Item3>
<Name Value="EFOpenError"/>
</Item3>
</Exceptions>
</Debugging>
</CONFIG>
View
@@ -0,0 +1,161 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectSession>
<Version Value="9"/>
<BuildModes Active="Default"/>
<Units Count="7">
<Unit0>
<Filename Value="dxmpp.dpr"/>
<IsPartOfProject Value="True"/>
<EditorIndex Value="0"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="1" Y="13"/>
<UsageCount Value="21"/>
<Loaded Value="True"/>
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit0>
<Unit1>
<Filename Value="mainunit.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="frmMain"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="mainunit"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<WindowIndex Value="0"/>
<TopLine Value="182"/>
<CursorPos X="23" Y="92"/>
<UsageCount Value="21"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit1>
<Unit2>
<Filename Value="../source/tcpsynapse/synautil.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="synautil"/>
<EditorIndex Value="2"/>
<WindowIndex Value="0"/>
<TopLine Value="172"/>
<CursorPos X="16" Y="192"/>
<UsageCount Value="21"/>
<Loaded Value="True"/>
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit2>
<Unit3>
<Filename Value="../source/tcpsynapse/synacode.pas"/>
<IsPartOfProject Value="True"/>
<UsageCount Value="21"/>
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit3>
<Unit4>
<Filename Value="../source/uxmpp.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="uxmpp"/>
<EditorIndex Value="3"/>
<WindowIndex Value="0"/>
<TopLine Value="765"/>
<CursorPos X="19" Y="772"/>
<UsageCount Value="21"/>
<Loaded Value="True"/>
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit4>
<Unit5>
<Filename Value="/tail/home/noch/github/uxmpp/source/uxmpp.pas"/>
<UnitName Value="uxmpp"/>
<WindowIndex Value="0"/>
<TopLine Value="768"/>
<CursorPos X="1" Y="780"/>
<UsageCount Value="10"/>
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit5>
<Unit6>
<Filename Value="/tail/home/noch/github/uxmpp/demo/mainunit.pas"/>
<UnitName Value="mainunit"/>
<WindowIndex Value="0"/>
<TopLine Value="189"/>
<CursorPos X="1" Y="205"/>
<UsageCount Value="10"/>
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit6>
</Units>
<General>
<ActiveWindowIndexAtStart Value="0"/>
</General>
<JumpHistory Count="15" HistoryIndex="14">
<Position1>
<Filename Value="dxmpp.dpr"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position1>
<Position2>
<Filename Value="dxmpp.dpr"/>
<Caret Line="13" Column="22" TopLine="1"/>
</Position2>
<Position3>
<Filename Value="mainunit.pas"/>
<Caret Line="65" Column="30" TopLine="58"/>
</Position3>
<Position4>
<Filename Value="mainunit.pas"/>
<Caret Line="66" Column="30" TopLine="59"/>
</Position4>
<Position5>
<Filename Value="mainunit.pas"/>
<Caret Line="111" Column="27" TopLine="99"/>
</Position5>
<Position6>
<Filename Value="../source/tcpsynapse/synautil.pas"/>
<Caret Line="157" Column="35" TopLine="135"/>
</Position6>
<Position7>
<Filename Value="../source/tcpsynapse/synautil.pas"/>
<Caret Line="195" Column="17" TopLine="175"/>
</Position7>
<Position8>
<Filename Value="../source/tcpsynapse/synautil.pas"/>
<Caret Line="196" Column="21" TopLine="176"/>
</Position8>
<Position9>
<Filename Value="../source/tcpsynapse/synautil.pas"/>
<Caret Line="149" Column="18" TopLine="149"/>
</Position9>
<Position10>
<Filename Value="mainunit.pas"/>
<Caret Line="208" Column="1" TopLine="193"/>
</Position10>
<Position11>
<Filename Value="mainunit.pas"/>
<Caret Line="202" Column="1" TopLine="188"/>
</Position11>
<Position12>
<Filename Value="mainunit.pas"/>
<Caret Line="195" Column="3" TopLine="187"/>
</Position12>
<Position13>
<Filename Value="mainunit.pas"/>
<Caret Line="55" Column="20" TopLine="43"/>
</Position13>
<Position14>
<Filename Value="mainunit.pas"/>
<Caret Line="92" Column="23" TopLine="82"/>
</Position14>
<Position15>
<Filename Value="../source/uxmpp.pas"/>
<Caret Line="772" Column="19" TopLine="765"/>
</Position15>
</JumpHistory>
</ProjectSession>
<Debugging>
<BreakPoints Count="1">
<Item1>
<Kind Value="bpkSource"/>
<WatchScope Value="wpsLocal"/>
<WatchKind Value="wpkWrite"/>
<Source Value="../source/uxmpp.pas"/>
<Line Value="806"/>
</Item1>
</BreakPoints>
</Debugging>
</CONFIG>
Oops, something went wrong.

0 comments on commit c851626

Please sign in to comment.