| <!DOCTYPE html> |
| <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en"> |
| <head> |
| <meta content="text/html; charset=utf-8" http-equiv="Content-Type" /> |
| <meta content="en-us" http-equiv="Content-Language" /> |
| <meta name="viewport" content="width=device-width, initial-scale=1.0"> |
| |
| <link href="/static/images/favicon.ico" rel="shortcut icon" /> |
| <link href="/static/css/style.css" rel="stylesheet" type="text/css" /> |
| <link href="/static/css/codehilite.css" rel="stylesheet" type="text/css" /> |
| <link href="/static/css/bootstrap.css" media="screen, projection" rel="stylesheet" type="text/css" /> |
| <link href="/static/css/thrift.css" media="screen, projection" rel="stylesheet" type="text/css" /> |
| |
| <script src="/static/js/jquery.min.js"></script> |
| <script src="/static/js/bootstrap-dropdown.js"></script> |
| <script src="/static/js/bootstrap-tab.js"></script> |
| <script src="/static/js/thrift.js"></script> |
| |
| <title>Apache Thrift - Delphi</title> |
| </head> |
| <body> |
| <div class="navbar"> |
| <div class="navbar-inner"> |
| <div class="container"> |
| <a class="brand" href="/">Apache Thrift ™</a> |
| <div class="nav-collapse"> |
| <ul class="nav pull-right"> |
| <li><a href="/download">Download</a></li> |
| <li><a href="/docs">Documentation</a></li> |
| <li><a href="/developers">Developers</a></li> |
| <li><a href="/lib">Libraries</a></li> |
| <li><a href="/tutorial">Tutorial</a></li> |
| <li><a href="/test">Test Suite</a></li> |
| <li><a href="/about">About</a></li> |
| <li class="dropdown"> |
| <a href="#" class="dropdown-toggle" data-toggle="dropdown">Apache <b class="caret"></b></a> |
| <ul class="dropdown-menu"> |
| <li><a href="http://www.apache.org/" target="_blank">Apache Home</a></li> |
| <li><a href="http://www.apache.org/licenses/" target="_blank">Apache License v2.0</a></li> |
| <li><a href="http://www.apache.org/foundation/sponsorship.html" target="_blank">Donate</a></li> |
| <li><a href="http://www.apache.org/foundation/thanks.html" target="_blank">Thanks</a></li> |
| <li><a href="http://www.apache.org/security/" target="_blank">Security</a></li> |
| </ul> |
| </li> |
| </ul> |
| </div> |
| </div> |
| </div> |
| </div> |
| |
| <div class="container"> |
| <h2>Delphi Tutorial</h2> |
| |
| <h3>Introduction</h3> |
| |
| <p> |
| All Apache Thrift tutorials require that you have: |
| |
| <ol> |
| <li>The Apache Thrift Compiler and Libraries, see <a href="/download">Download</a> and <a href="/docs/BuildingFromSource">Building from Source</a> for more details.</li> |
| <li>Generated the <a href="https://github.com/apache/thrift/blob/master/tutorial/tutorial.thrift">tutorial.thrift</a> and <a href="https://github.com/apache/thrift/blob/master/tutorial/shared.thrift">shared.thrift</a> files:<br> |
| <pre><code>thrift -r --gen delphi tutorial.thrift</code></pre> |
| </li> |
| <li>Followed all prerequisites listed below.</li> |
| </ol> |
| |
| <h3 id="prerequisites">Prerequisites</h3> |
| <ul> |
| <li>Thrift requires at least Delphi 2010. Earlier versions and FPC will not work due to the lack of Generics.</li> |
| </ul> |
| |
| <h3 id="client">Client</h3> |
| |
| <div class="highlight"><pre class="codehilite"><code><span class="k">program</span> <span class="n">DelphiClient</span><span class="p">;</span> |
| |
| <span class="cm">{$APPTYPE CONSOLE}</span> |
| <span class="cm">{$D 'Copyright (c) 2012 The Apache Software Foundation'}</span> |
| |
| <span class="k">uses</span> |
| <span class="n">SysUtils</span><span class="p">,</span> |
| <span class="n">Generics</span><span class="p">.</span><span class="n">Collections</span><span class="p">,</span> |
| <span class="n">Thrift</span> <span class="k">in</span> <span class="s">'..\..\..\lib\delphi\src\Thrift.pas'</span><span class="p">,</span> |
| <span class="n">Thrift</span><span class="p">.</span><span class="n">Collections</span> <span class="k">in</span> <span class="s">'..\..\..\lib\delphi\src\Thrift.Collections.pas'</span><span class="p">,</span> |
| <span class="n">Thrift</span><span class="p">.</span><span class="n">Configuration</span> <span class="k">in</span> <span class="s">'..\..\..\lib\delphi\src\Thrift.Configuration.pas'</span><span class="p">,</span> |
| <span class="n">Thrift</span><span class="p">.</span><span class="n">Exception</span> <span class="k">in</span> <span class="s">'..\..\..\lib\delphi\src\Thrift.Exception.pas'</span><span class="p">,</span> |
| <span class="n">Thrift</span><span class="p">.</span><span class="n">Utils</span> <span class="k">in</span> <span class="s">'..\..\..\lib\delphi\src\Thrift.Utils.pas'</span><span class="p">,</span> |
| <span class="n">Thrift</span><span class="p">.</span><span class="n">Stream</span> <span class="k">in</span> <span class="s">'..\..\..\lib\delphi\src\Thrift.Stream.pas'</span><span class="p">,</span> |
| <span class="n">Thrift</span><span class="p">.</span><span class="n">Protocol</span> <span class="k">in</span> <span class="s">'..\..\..\lib\delphi\src\Thrift.Protocol.pas'</span><span class="p">,</span> |
| <span class="n">Thrift</span><span class="p">.</span><span class="n">Server</span> <span class="k">in</span> <span class="s">'..\..\..\lib\delphi\src\Thrift.Server.pas'</span><span class="p">,</span> |
| <span class="n">Thrift</span><span class="p">.</span><span class="n">Transport</span> <span class="k">in</span> <span class="s">'..\..\..\lib\delphi\src\Thrift.Transport.pas'</span><span class="p">,</span> |
| <span class="n">Thrift</span><span class="p">.</span><span class="n">Transport</span><span class="p">.</span><span class="n">WinHTTP</span> <span class="k">in</span> <span class="s">'..\..\..\lib\delphi\src\Thrift.Transport.WinHTTP.pas'</span><span class="p">,</span> |
| <span class="n">Thrift</span><span class="p">.</span><span class="n">Transport</span><span class="p">.</span><span class="n">MsxmlHTTP</span> <span class="k">in</span> <span class="s">'..\..\..\lib\delphi\src\Thrift.Transport.MsxmlHTTP.pas'</span><span class="p">,</span> |
| <span class="n">Thrift</span><span class="p">.</span><span class="n">WinHTTP</span> <span class="k">in</span> <span class="s">'..\..\..\lib\delphi\src\Thrift.WinHTTP.pas'</span><span class="p">,</span> |
| <span class="n">Shared</span> <span class="k">in</span> <span class="s">'..\gen-delphi\Shared.pas'</span><span class="p">,</span> |
| <span class="n">Tutorial</span> <span class="k">in</span> <span class="s">'..\gen-delphi\Tutorial.pas'</span><span class="p">;</span> |
| |
| |
| <span class="k">type</span> |
| <span class="n">DelphiTutorialClient</span> <span class="p">=</span> <span class="k">class</span> |
| <span class="k">public</span> |
| <span class="k">class</span> <span class="k">procedure</span> <span class="n">Main</span><span class="p">;</span> |
| <span class="k">end</span><span class="p">;</span> |
| |
| |
| <span class="c1">//--- DelphiTutorialClient --------------------------------------- |
| </span> |
| |
| <span class="k">class</span> <span class="k">procedure</span> <span class="n">DelphiTutorialClient</span><span class="p">.</span><span class="n">Main</span><span class="p">;</span> |
| <span class="k">var</span> <span class="n">transport</span> <span class="p">:</span> <span class="n">ITransport</span><span class="p">;</span> |
| <span class="n">protocol</span> <span class="p">:</span> <span class="n">IProtocol</span><span class="p">;</span> |
| <span class="n">client</span> <span class="p">:</span> <span class="n">TCalculator</span><span class="p">.</span><span class="n">Iface</span><span class="p">;</span> |
| <span class="n">work</span> <span class="p">:</span> <span class="n">IWork</span><span class="p">;</span> |
| <span class="n">sum</span><span class="p">,</span> <span class="n">quotient</span><span class="p">,</span> <span class="n">diff</span> <span class="p">:</span> <span class="kt">Integer</span><span class="p">;</span> |
| <span class="n">log</span> <span class="p">:</span> <span class="n">ISharedStruct</span><span class="p">;</span> |
| <span class="k">begin</span> |
| <span class="k">try</span> |
| <span class="n">transport</span> <span class="p">:=</span> <span class="n">TSocketImpl</span><span class="p">.</span><span class="n">Create</span><span class="p">(</span> <span class="s">'localhost'</span><span class="p">,</span> <span class="m">9090</span><span class="p">);</span> |
| <span class="n">protocol</span> <span class="p">:=</span> <span class="n">TBinaryProtocolImpl</span><span class="p">.</span><span class="n">Create</span><span class="p">(</span> <span class="n">transport</span><span class="p">);</span> |
| <span class="n">client</span> <span class="p">:=</span> <span class="n">TCalculator</span><span class="p">.</span><span class="n">TClient</span><span class="p">.</span><span class="n">Create</span><span class="p">(</span> <span class="n">protocol</span><span class="p">);</span> |
| |
| <span class="n">transport</span><span class="p">.</span><span class="n">Open</span><span class="p">;</span> |
| |
| <span class="n">client</span><span class="p">.</span><span class="n">ping</span><span class="p">;</span> |
| <span class="k">WriteLn</span><span class="p">(</span><span class="s">'ping()'</span><span class="p">);</span> |
| |
| <span class="n">sum</span> <span class="p">:=</span> <span class="n">client</span><span class="p">.</span><span class="n">add</span><span class="p">(</span> <span class="m">1</span><span class="p">,</span> <span class="m">1</span><span class="p">);</span> |
| <span class="k">WriteLn</span><span class="p">(</span> <span class="n">Format</span><span class="p">(</span> <span class="s">'1+1=%d'</span><span class="p">,</span> <span class="p">[</span><span class="n">sum</span><span class="p">]));</span> |
| |
| <span class="n">work</span> <span class="p">:=</span> <span class="n">TWorkImpl</span><span class="p">.</span><span class="n">Create</span><span class="p">;</span> |
| |
| <span class="n">work</span><span class="p">.</span><span class="n">Op</span> <span class="p">:=</span> <span class="n">TOperation</span><span class="p">.</span><span class="n">DIVIDE</span><span class="p">;</span> |
| <span class="n">work</span><span class="p">.</span><span class="n">Num1</span> <span class="p">:=</span> <span class="m">1</span><span class="p">;</span> |
| <span class="n">work</span><span class="p">.</span><span class="n">Num2</span> <span class="p">:=</span> <span class="m">0</span><span class="p">;</span> |
| <span class="k">try</span> |
| <span class="n">quotient</span> <span class="p">:=</span> <span class="n">client</span><span class="p">.</span><span class="n">calculate</span><span class="p">(</span><span class="m">1</span><span class="p">,</span> <span class="n">work</span><span class="p">);</span> |
| <span class="k">WriteLn</span><span class="p">(</span> <span class="s">'Whoa we can divide by 0'</span><span class="p">);</span> |
| <span class="k">WriteLn</span><span class="p">(</span> <span class="n">Format</span><span class="p">(</span><span class="s">'1/0=%d'</span><span class="p">,[</span><span class="n">quotient</span><span class="p">]));</span> |
| <span class="k">except</span> |
| <span class="k">on</span> <span class="n">io</span><span class="p">:</span> <span class="n">TInvalidOperation</span> |
| <span class="k">do</span> <span class="k">WriteLn</span><span class="p">(</span> <span class="s">'Invalid operation: '</span> <span class="p">+</span> <span class="n">io</span><span class="p">.</span><span class="n">Why</span><span class="p">);</span> |
| <span class="k">end</span><span class="p">;</span> |
| |
| <span class="n">work</span><span class="p">.</span><span class="n">Op</span> <span class="p">:=</span> <span class="n">TOperation</span><span class="p">.</span><span class="n">SUBTRACT</span><span class="p">;</span> |
| <span class="n">work</span><span class="p">.</span><span class="n">Num1</span> <span class="p">:=</span> <span class="m">15</span><span class="p">;</span> |
| <span class="n">work</span><span class="p">.</span><span class="n">Num2</span> <span class="p">:=</span> <span class="m">10</span><span class="p">;</span> |
| <span class="k">try</span> |
| <span class="n">diff</span> <span class="p">:=</span> <span class="n">client</span><span class="p">.</span><span class="n">calculate</span><span class="p">(</span> <span class="m">1</span><span class="p">,</span> <span class="n">work</span><span class="p">);</span> |
| <span class="k">WriteLn</span><span class="p">(</span> <span class="n">Format</span><span class="p">(</span><span class="s">'15-10=%d'</span><span class="p">,</span> <span class="p">[</span><span class="n">diff</span><span class="p">]));</span> |
| <span class="k">except</span> |
| <span class="k">on</span> <span class="n">io</span><span class="p">:</span> <span class="n">TInvalidOperation</span> |
| <span class="k">do</span> <span class="k">WriteLn</span><span class="p">(</span> <span class="s">'Invalid operation: '</span> <span class="p">+</span> <span class="n">io</span><span class="p">.</span><span class="n">Why</span><span class="p">);</span> |
| <span class="k">end</span><span class="p">;</span> |
| |
| <span class="n">log</span> <span class="p">:=</span> <span class="n">client</span><span class="p">.</span><span class="n">getStruct</span><span class="p">(</span><span class="m">1</span><span class="p">);</span> |
| <span class="k">WriteLn</span><span class="p">(</span> <span class="n">Format</span><span class="p">(</span> <span class="s">'Check log: %s'</span><span class="p">,</span> <span class="p">[</span><span class="n">log</span><span class="p">.</span><span class="k">Value</span><span class="p">]));</span> |
| |
| <span class="n">transport</span><span class="p">.</span><span class="n">Close</span><span class="p">();</span> |
| |
| <span class="k">except</span> |
| <span class="k">on</span> <span class="n">e</span> <span class="p">:</span> <span class="n">Exception</span> |
| <span class="k">do</span> <span class="k">WriteLn</span><span class="p">(</span> <span class="n">e</span><span class="p">.</span><span class="n">ClassName</span><span class="p">+</span><span class="s">': '</span><span class="p">+</span><span class="n">e</span><span class="p">.</span><span class="k">Message</span><span class="p">);</span> |
| <span class="k">end</span><span class="p">;</span> |
| <span class="k">end</span><span class="p">;</span> |
| |
| |
| <span class="k">begin</span> |
| <span class="k">try</span> |
| <span class="n">DelphiTutorialClient</span><span class="p">.</span><span class="n">Main</span><span class="p">;</span> |
| <span class="k">except</span> |
| </code></pre></div> |
| <p class="snippet_footer">This snippet was generated by Apache Thrift's <strong>source tree docs</strong>: |
| <a href="https://gitbox.apache.org/repos/asf?p=thrift.git;a=blob;hb=HEAD;f=tutorial/delphi/DelphiClient/DelphiClient.dpr">tutorial/delphi/DelphiClient/DelphiClient.dpr</a> |
| </p> |
| |
| <h3 id="server">Server</h3> |
| |
| <div class="highlight"><pre class="codehilite"><code><span class="k">program</span> <span class="n">DelphiServer</span><span class="p">;</span> |
| |
| <span class="cm">{$APPTYPE CONSOLE}</span> |
| <span class="cm">{$D 'Copyright (c) 2012 The Apache Software Foundation'}</span> |
| |
| <span class="cm">{$Q+}</span> <span class="c1">// throws exceptions on numeric overflows |
| </span> |
| <span class="k">uses</span> |
| <span class="n">SysUtils</span><span class="p">,</span> |
| <span class="n">Generics</span><span class="p">.</span><span class="n">Collections</span><span class="p">,</span> |
| <span class="n">Thrift</span> <span class="k">in</span> <span class="s">'..\..\..\lib\delphi\src\Thrift.pas'</span><span class="p">,</span> |
| <span class="n">Thrift</span><span class="p">.</span><span class="n">Collections</span> <span class="k">in</span> <span class="s">'..\..\..\lib\delphi\src\Thrift.Collections.pas'</span><span class="p">,</span> |
| <span class="n">Thrift</span><span class="p">.</span><span class="n">Configuration</span> <span class="k">in</span> <span class="s">'..\..\..\lib\delphi\src\Thrift.Configuration.pas'</span><span class="p">,</span> |
| <span class="n">Thrift</span><span class="p">.</span><span class="n">Exception</span> <span class="k">in</span> <span class="s">'..\..\..\lib\delphi\src\Thrift.Exception.pas'</span><span class="p">,</span> |
| <span class="n">Thrift</span><span class="p">.</span><span class="n">Utils</span> <span class="k">in</span> <span class="s">'..\..\..\lib\delphi\src\Thrift.Utils.pas'</span><span class="p">,</span> |
| <span class="n">Thrift</span><span class="p">.</span><span class="n">Stream</span> <span class="k">in</span> <span class="s">'..\..\..\lib\delphi\src\Thrift.Stream.pas'</span><span class="p">,</span> |
| <span class="n">Thrift</span><span class="p">.</span><span class="n">Protocol</span> <span class="k">in</span> <span class="s">'..\..\..\lib\delphi\src\Thrift.Protocol.pas'</span><span class="p">,</span> |
| <span class="n">Thrift</span><span class="p">.</span><span class="n">Server</span> <span class="k">in</span> <span class="s">'..\..\..\lib\delphi\src\Thrift.Server.pas'</span><span class="p">,</span> |
| <span class="n">Thrift</span><span class="p">.</span><span class="n">Transport</span> <span class="k">in</span> <span class="s">'..\..\..\lib\delphi\src\Thrift.Transport.pas'</span><span class="p">,</span> |
| <span class="n">Thrift</span><span class="p">.</span><span class="n">WinHTTP</span> <span class="k">in</span> <span class="s">'..\..\..\lib\delphi\src\Thrift.WinHTTP.pas'</span><span class="p">,</span> |
| <span class="n">Shared</span> <span class="k">in</span> <span class="s">'..\gen-delphi\Shared.pas'</span><span class="p">,</span> |
| <span class="n">Tutorial</span> <span class="k">in</span> <span class="s">'..\gen-delphi\Tutorial.pas'</span><span class="p">;</span> |
| |
| |
| <span class="k">type</span> |
| <span class="n">TCalculatorHandler</span> <span class="p">=</span> <span class="k">class</span><span class="p">(</span> <span class="n">TInterfacedObject</span><span class="p">,</span> <span class="n">TSharedService</span><span class="p">.</span><span class="n">Iface</span><span class="p">,</span> <span class="n">TCalculator</span><span class="p">.</span><span class="n">Iface</span><span class="p">)</span> |
| <span class="k">protected</span> |
| <span class="n">FLog</span> <span class="p">:</span> <span class="n">TDictionary</span><span class="p"><</span> <span class="kt">Integer</span><span class="p">,</span> <span class="n">ISharedStruct</span><span class="p">>;</span> |
| |
| <span class="c1">// TSharedService.Iface |
| </span> <span class="k">function</span> <span class="n">getStruct</span><span class="p">(</span><span class="n">key</span><span class="p">:</span> <span class="kt">Integer</span><span class="p">):</span> <span class="n">ISharedStruct</span><span class="p">;</span> |
| |
| <span class="c1">// TCalculator.Iface |
| </span> <span class="k">procedure</span> <span class="n">ping</span><span class="p">();</span> |
| <span class="k">function</span> <span class="n">add</span><span class="p">(</span><span class="n">num1</span><span class="p">:</span> <span class="kt">Integer</span><span class="p">;</span> <span class="n">num2</span><span class="p">:</span> <span class="kt">Integer</span><span class="p">):</span> <span class="kt">Integer</span><span class="p">;</span> |
| <span class="k">function</span> <span class="n">calculate</span><span class="p">(</span><span class="n">logid</span><span class="p">:</span> <span class="kt">Integer</span><span class="p">;</span> <span class="k">const</span> <span class="n">w</span><span class="p">:</span> <span class="n">IWork</span><span class="p">):</span> <span class="kt">Integer</span><span class="p">;</span> |
| <span class="k">procedure</span> <span class="n">zip</span><span class="p">();</span> |
| |
| <span class="k">public</span> |
| <span class="k">constructor</span> <span class="n">Create</span><span class="p">;</span> |
| <span class="k">destructor</span> <span class="n">Destroy</span><span class="p">;</span> <span class="k">override</span><span class="p">;</span> |
| |
| <span class="k">end</span><span class="p">;</span> |
| |
| <span class="n">DelphiTutorialServer</span> <span class="p">=</span> <span class="k">class</span> |
| <span class="k">public</span> |
| <span class="k">class</span> <span class="k">procedure</span> <span class="n">Main</span><span class="p">;</span> |
| <span class="k">end</span><span class="p">;</span> |
| |
| |
| <span class="c1">//--- TCalculatorHandler --------------------------------------------------- |
| </span> |
| |
| <span class="k">constructor</span> <span class="n">TCalculatorHandler</span><span class="p">.</span><span class="n">Create</span><span class="p">;</span> |
| <span class="k">begin</span> |
| <span class="k">inherited</span> <span class="n">Create</span><span class="p">;</span> |
| <span class="n">FLog</span> <span class="p">:=</span> <span class="n">TDictionary</span><span class="p"><</span> <span class="kt">Integer</span><span class="p">,</span> <span class="n">ISharedStruct</span><span class="p">>.</span><span class="n">Create</span><span class="p">();</span> |
| <span class="k">end</span><span class="p">;</span> |
| |
| |
| <span class="k">destructor</span> <span class="n">TCalculatorHandler</span><span class="p">.</span><span class="n">Destroy</span><span class="p">;</span> |
| <span class="k">begin</span> |
| <span class="k">try</span> |
| <span class="n">FreeAndNil</span><span class="p">(</span> <span class="n">FLog</span><span class="p">);</span> |
| <span class="k">finally</span> |
| <span class="k">inherited</span> <span class="n">Destroy</span><span class="p">;</span> |
| <span class="k">end</span><span class="p">;</span> |
| <span class="k">end</span><span class="p">;</span> |
| |
| |
| <span class="k">procedure</span> <span class="n">TCalculatorHandler</span><span class="p">.</span><span class="n">ping</span><span class="p">;</span> |
| <span class="k">begin</span> |
| <span class="k">WriteLn</span><span class="p">(</span> <span class="s">'ping()'</span><span class="p">);</span> |
| <span class="k">end</span><span class="p">;</span> |
| |
| |
| <span class="k">function</span> <span class="n">TCalculatorHandler</span><span class="p">.</span><span class="n">add</span><span class="p">(</span><span class="n">num1</span><span class="p">:</span> <span class="kt">Integer</span><span class="p">;</span> <span class="n">num2</span><span class="p">:</span> <span class="kt">Integer</span><span class="p">):</span> <span class="kt">Integer</span><span class="p">;</span> |
| <span class="k">begin</span> |
| <span class="k">WriteLn</span><span class="p">(</span> <span class="n">Format</span><span class="p">(</span> <span class="s">'add( %d, %d)'</span><span class="p">,</span> <span class="p">[</span><span class="n">num1</span><span class="p">,</span> <span class="n">num2</span><span class="p">]));</span> |
| <span class="n">result</span> <span class="p">:=</span> <span class="n">num1</span> <span class="p">+</span> <span class="n">num2</span><span class="p">;</span> |
| <span class="k">end</span><span class="p">;</span> |
| |
| |
| <span class="k">function</span> <span class="n">TCalculatorHandler</span><span class="p">.</span><span class="n">calculate</span><span class="p">(</span><span class="n">logid</span><span class="p">:</span> <span class="kt">Integer</span><span class="p">;</span> <span class="k">const</span> <span class="n">w</span><span class="p">:</span> <span class="n">IWork</span><span class="p">):</span> <span class="kt">Integer</span><span class="p">;</span> |
| <span class="k">var</span> <span class="n">entry</span> <span class="p">:</span> <span class="n">ISharedStruct</span><span class="p">;</span> |
| <span class="k">begin</span> |
| <span class="k">try</span> |
| <span class="k">WriteLn</span><span class="p">(</span> <span class="n">Format</span><span class="p">(</span><span class="s">'calculate( %d, [%d,%d,%d])'</span><span class="p">,</span> <span class="p">[</span><span class="n">logid</span><span class="p">,</span> <span class="n">Ord</span><span class="p">(</span><span class="n">w</span><span class="p">.</span><span class="n">Op</span><span class="p">),</span> <span class="n">w</span><span class="p">.</span><span class="n">Num1</span><span class="p">,</span> <span class="n">w</span><span class="p">.</span><span class="n">Num2</span><span class="p">]));</span> |
| |
| <span class="k">case</span> <span class="n">w</span><span class="p">.</span><span class="n">Op</span> <span class="k">of</span> |
| <span class="n">TOperation</span><span class="p">.</span><span class="n">ADD</span> <span class="p">:</span> <span class="n">result</span> <span class="p">:=</span> <span class="n">w</span><span class="p">.</span><span class="n">Num1</span> <span class="p">+</span> <span class="n">w</span><span class="p">.</span><span class="n">Num2</span><span class="p">;</span> |
| <span class="n">TOperation</span><span class="p">.</span><span class="n">SUBTRACT</span> <span class="p">:</span> <span class="n">result</span> <span class="p">:=</span> <span class="n">w</span><span class="p">.</span><span class="n">Num1</span> <span class="p">-</span> <span class="n">w</span><span class="p">.</span><span class="n">Num2</span><span class="p">;</span> |
| <span class="n">TOperation</span><span class="p">.</span><span class="n">MULTIPLY</span> <span class="p">:</span> <span class="n">result</span> <span class="p">:=</span> <span class="n">w</span><span class="p">.</span><span class="n">Num1</span> <span class="p">*</span> <span class="n">w</span><span class="p">.</span><span class="n">Num2</span><span class="p">;</span> |
| <span class="n">TOperation</span><span class="p">.</span><span class="n">DIVIDE</span> <span class="p">:</span> <span class="n">result</span> <span class="p">:=</span> <span class="n">Round</span><span class="p">(</span> <span class="n">w</span><span class="p">.</span><span class="n">Num1</span> <span class="p">/</span> <span class="n">w</span><span class="p">.</span><span class="n">Num2</span><span class="p">);</span> |
| <span class="k">else</span> |
| <span class="k">raise</span> <span class="n">TInvalidOperation</span><span class="p">.</span><span class="n">Create</span><span class="p">(</span> <span class="n">Ord</span><span class="p">(</span><span class="n">w</span><span class="p">.</span><span class="n">Op</span><span class="p">),</span> <span class="s">'Unknown operation'</span><span class="p">);</span> |
| <span class="k">end</span><span class="p">;</span> |
| |
| <span class="k">except</span> |
| <span class="k">on</span> <span class="n">e</span><span class="p">:</span><span class="n">Thrift</span><span class="p">.</span><span class="n">TException</span> <span class="k">do</span> <span class="k">raise</span><span class="p">;</span> <span class="c1">// let Thrift Exceptions pass through |
| </span> <span class="k">on</span> <span class="n">e</span><span class="p">:</span><span class="n">Exception</span> <span class="k">do</span> <span class="k">raise</span> <span class="n">TInvalidOperation</span><span class="p">.</span><span class="n">Create</span><span class="p">(</span> <span class="n">Ord</span><span class="p">(</span><span class="n">w</span><span class="p">.</span><span class="n">Op</span><span class="p">),</span> <span class="n">e</span><span class="p">.</span><span class="k">Message</span><span class="p">);</span> <span class="c1">// repackage all other |
| </span> <span class="k">end</span><span class="p">;</span> |
| |
| <span class="n">entry</span> <span class="p">:=</span> <span class="n">TSharedStructImpl</span><span class="p">.</span><span class="n">Create</span><span class="p">;</span> |
| <span class="n">entry</span><span class="p">.</span><span class="n">Key</span> <span class="p">:=</span> <span class="n">logid</span><span class="p">;</span> |
| <span class="n">entry</span><span class="p">.</span><span class="k">Value</span> <span class="p">:=</span> <span class="n">IntToStr</span><span class="p">(</span> <span class="n">result</span><span class="p">);</span> |
| <span class="n">FLog</span><span class="p">.</span><span class="n">AddOrSetValue</span><span class="p">(</span> <span class="n">logid</span><span class="p">,</span> <span class="n">entry</span><span class="p">);</span> |
| <span class="k">end</span><span class="p">;</span> |
| |
| |
| <span class="k">function</span> <span class="n">TCalculatorHandler</span><span class="p">.</span><span class="n">getStruct</span><span class="p">(</span><span class="n">key</span><span class="p">:</span> <span class="kt">Integer</span><span class="p">):</span> <span class="n">ISharedStruct</span><span class="p">;</span> |
| <span class="k">begin</span> |
| <span class="k">WriteLn</span><span class="p">(</span> <span class="n">Format</span><span class="p">(</span> <span class="s">'getStruct(%d)'</span><span class="p">,</span> <span class="p">[</span><span class="n">key</span><span class="p">]));</span> |
| <span class="n">result</span> <span class="p">:=</span> <span class="n">FLog</span><span class="p">[</span><span class="n">key</span><span class="p">];</span> |
| <span class="k">end</span><span class="p">;</span> |
| |
| |
| <span class="k">procedure</span> <span class="n">TCalculatorHandler</span><span class="p">.</span><span class="n">zip</span><span class="p">;</span> |
| <span class="k">begin</span> |
| <span class="k">WriteLn</span><span class="p">(</span> <span class="s">'zip()'</span><span class="p">);</span> |
| <span class="k">end</span><span class="p">;</span> |
| |
| |
| <span class="c1">//--- DelphiTutorialServer ---------------------------------------------------------------------- |
| </span> |
| |
| <span class="k">class</span> <span class="k">procedure</span> <span class="n">DelphiTutorialServer</span><span class="p">.</span><span class="n">Main</span><span class="p">;</span> |
| <span class="k">var</span> <span class="n">handler</span> <span class="p">:</span> <span class="n">TCalculator</span><span class="p">.</span><span class="n">Iface</span><span class="p">;</span> |
| <span class="n">processor</span> <span class="p">:</span> <span class="n">IProcessor</span><span class="p">;</span> |
| <span class="n">transport</span> <span class="p">:</span> <span class="n">IServerTransport</span><span class="p">;</span> |
| <span class="n">server</span> <span class="p">:</span> <span class="n">IServer</span><span class="p">;</span> |
| <span class="k">begin</span> |
| <span class="k">try</span> |
| <span class="n">handler</span> <span class="p">:=</span> <span class="n">TCalculatorHandler</span><span class="p">.</span><span class="n">Create</span><span class="p">;</span> |
| <span class="n">processor</span> <span class="p">:=</span> <span class="n">TCalculator</span><span class="p">.</span><span class="n">TProcessorImpl</span><span class="p">.</span><span class="n">Create</span><span class="p">(</span> <span class="n">handler</span><span class="p">);</span> |
| <span class="n">transport</span> <span class="p">:=</span> <span class="n">TServerSocketImpl</span><span class="p">.</span><span class="n">Create</span><span class="p">(</span> <span class="m">9090</span><span class="p">);</span> |
| <span class="n">server</span> <span class="p">:=</span> <span class="n">TSimpleServer</span><span class="p">.</span><span class="n">Create</span><span class="p">(</span> <span class="n">processor</span><span class="p">,</span> <span class="n">transport</span><span class="p">);</span> |
| |
| <span class="k">WriteLn</span><span class="p">(</span> <span class="s">'Starting the server...'</span><span class="p">);</span> |
| <span class="n">server</span><span class="p">.</span><span class="n">Serve</span><span class="p">();</span> |
| |
| <span class="k">except</span> |
| <span class="k">on</span> <span class="n">e</span><span class="p">:</span> <span class="n">Exception</span> <span class="k">do</span> <span class="k">WriteLn</span><span class="p">(</span> <span class="n">e</span><span class="p">.</span><span class="k">Message</span><span class="p">);</span> |
| <span class="k">end</span><span class="p">;</span> |
| |
| <span class="k">WriteLn</span><span class="p">(</span><span class="s">'done.'</span><span class="p">);</span> |
| <span class="k">end</span><span class="p">;</span> |
| |
| |
| <span class="k">begin</span> |
| <span class="k">try</span> |
| <span class="n">DelphiTutorialServer</span><span class="p">.</span><span class="n">Main</span><span class="p">;</span> |
| <span class="k">except</span> |
| <span class="k">on</span> <span class="n">E</span><span class="p">:</span> <span class="n">Exception</span> <span class="k">do</span> |
| <span class="k">Writeln</span><span class="p">(</span><span class="n">E</span><span class="p">.</span><span class="n">ClassName</span><span class="p">,</span> <span class="s">': '</span><span class="p">,</span> <span class="n">E</span><span class="p">.</span><span class="k">Message</span><span class="p">);</span> |
| </code></pre></div> |
| <p class="snippet_footer">This snippet was generated by Apache Thrift's <strong>source tree docs</strong>: |
| <a href="https://gitbox.apache.org/repos/asf?p=thrift.git;a=blob;hb=HEAD;f=tutorial/delphi/DelphiServer/DelphiServer.dpr">tutorial/delphi/DelphiServer/DelphiServer.dpr</a> |
| </p> |
| |
| <h2 id="additional-information">Additional Information</h2> |
| |
| |
| |
| |
| </div> |
| <div class="container"> |
| <hr> |
| <footer class="footer"> |
| <div class="row"> |
| <div class="span3"> |
| <h3>Links</h3> |
| <ul class="unstyled"> |
| <li><a href="/download">Download</a></li> |
| <li><a href="/developers">Developers</a></li> |
| <li><a href="/tutorial">Tutorials</a></li> |
| </ul> |
| <ul class="unstyled"> |
| <li><a href="/sitemap">Sitemap</a></li> |
| </ul> |
| </div> |
| <div class="span3"> |
| <h3>Get Involved</h3> |
| <ul class="unstyled"> |
| <li><a href="/mailing">Mailing Lists</a></li> |
| <li><a href="http://issues.apache.org/jira/browse/THRIFT">Issue Tracking</a></li> |
| <li><a href="/docs/HowToContribute">How To Contribute</a></li> |
| </ul> |
| </div> |
| <div class="span6"> |
| <a href="http://www.apache.org/"><img src="/static/images/feather.svg" onerror="this.src='/static/images/feather.png';this.onerror=null;" /></a> |
| Copyright © 2024 <a href="http://www.apache.org/">Apache Software Foundation</a>. |
| Licensed under the <a href="http://www.apache.org/licenses/">Apache License v2.0</a>. |
| Apache, Apache Thrift, and the Apache feather logo are trademarks of The Apache Software Foundation. |
| </div> |
| </div> |
| </footer> |
| </div> |
| |
| </body> |
| </html> |
