mirror of
https://github.com/valitydev/thrift.git
synced 2024-11-07 10:48:51 +00:00
3bef8c221a
Patch: Jens Geyer git-svn-id: https://svn.apache.org/repos/asf/thrift/trunk@1394952 13f79535-47bb-0310-9956-ffa450edef68
64 lines
1.9 KiB
ObjectPascal
64 lines
1.9 KiB
ObjectPascal
(*
|
|
* Licensed to the Apache Software Foundation (ASF) under one
|
|
* or more contributor license agreements. See the NOTICE file
|
|
* distributed with this work for additional information
|
|
* regarding copyright ownership. The ASF licenses this file
|
|
* to you under the Apache License, Version 2.0 (the
|
|
* "License"); you may not use this file except in compliance
|
|
* with the License. You may obtain a copy of the License at
|
|
*
|
|
* http://www.apache.org/licenses/LICENSE-2.0
|
|
*
|
|
* Unless required by applicable law or agreed to in writing,
|
|
* software distributed under the License is distributed on an
|
|
* "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
|
|
* KIND, either express or implied. See the License for the
|
|
* specific language governing permissions and limitations
|
|
* under the License.
|
|
*)
|
|
|
|
program server;
|
|
|
|
{$APPTYPE CONSOLE}
|
|
|
|
uses
|
|
SysUtils,
|
|
TestServer in 'TestServer.pas',
|
|
Thrift.Test in 'gen-delphi\Thrift.Test.pas',
|
|
Thrift in '..\src\Thrift.pas',
|
|
Thrift.Transport in '..\src\Thrift.Transport.pas',
|
|
Thrift.Transport.Pipes in '..\src\Thrift.Transport.Pipes.pas',
|
|
Thrift.Protocol in '..\src\Thrift.Protocol.pas',
|
|
Thrift.Protocol.JSON in '..\src\Thrift.Protocol.JSON.pas',
|
|
Thrift.Collections in '..\src\Thrift.Collections.pas',
|
|
Thrift.Server in '..\src\Thrift.Server.pas',
|
|
Thrift.Console in '..\src\Thrift.Console.pas',
|
|
Thrift.Utils in '..\src\Thrift.Utils.pas',
|
|
Thrift.Stream in '..\src\Thrift.Stream.pas';
|
|
|
|
var
|
|
nParamCount : Integer;
|
|
args : array of string;
|
|
i : Integer;
|
|
arg : string;
|
|
s : string;
|
|
|
|
begin
|
|
try
|
|
Writeln( 'Delphi TestServer '+Thrift.Version);
|
|
nParamCount := ParamCount;
|
|
SetLength( args, nParamCount);
|
|
for i := 1 to nParamCount do
|
|
begin
|
|
arg := ParamStr( i );
|
|
args[i-1] := arg;
|
|
end;
|
|
TTestServer.Execute( args );
|
|
Readln;
|
|
except
|
|
on E: Exception do
|
|
Writeln(E.ClassName, ': ', E.Message);
|
|
end;
|
|
end.
|
|
|