thrift/lib/delphi/test/TestConstants.pas
Jens Geyer 0223091b70 THRIFT-4841 THTTPTransport relies on activeX component
Client: Delphi
Patch: Jens Geyer

This closes #1778
2019-04-06 09:53:09 +02:00

164 lines
9.1 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.
*)
unit TestConstants;
interface
uses SysUtils;
type
TKnownProtocol = (
prot_Binary, // default binary protocol
prot_JSON, // JSON protocol
prot_Compact
);
TServerType = (
srv_Simple,
srv_Nonblocking,
srv_Threadpool,
srv_Threaded
);
TEndpointTransport = (
trns_Sockets,
trns_MsxmlHttp,
trns_WinHttp,
trns_NamedPipes,
trns_AnonPipes,
trns_EvHttp // as listed on http://thrift.apache.org/test
);
TLayeredTransport = (
trns_Buffered,
trns_Framed
);
TLayeredTransports = set of TLayeredTransport;
const
SERVER_TYPES : array[TServerType] of string
= ('Simple', 'Nonblocking', 'Threadpool', 'Threaded');
THRIFT_PROTOCOLS : array[TKnownProtocol] of string
= ('Binary', 'JSON', 'Compact');
LAYERED_TRANSPORTS : array[TLayeredTransport] of string
= ('Buffered', 'Framed');
ENDPOINT_TRANSPORTS : array[TEndpointTransport] of string
= ('Sockets', 'Http', 'WinHttp', 'Named Pipes','Anon Pipes', 'EvHttp');
// defaults are: read=false, write=true
BINARY_STRICT_READ = FALSE;
BINARY_STRICT_WRITE = FALSE;
HUGE_TEST_STRING = 'Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy '
+ 'eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam '
+ 'voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet '
+ 'clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit '
+ 'amet. Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam '
+ 'nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed '
+ 'diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet '
+ 'clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit amet. '
+ 'Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy '
+ 'eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam '
+ 'voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet '
+ 'clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit '
+ 'amet. Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam '
+ 'nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed '
+ 'diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet '
+ 'clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit amet. '
+ 'Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy '
+ 'eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam '
+ 'voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet '
+ 'clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit '
+ 'amet. Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam '
+ 'nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed '
+ 'diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet '
+ 'clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit amet. '
+ 'Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy '
+ 'eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam '
+ 'voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet '
+ 'clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit '
+ 'amet. Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam '
+ 'nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed '
+ 'diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet '
+ 'clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit amet. '
+ 'Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy '
+ 'eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam '
+ 'voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet '
+ 'clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit '
+ 'amet. Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam '
+ 'nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed '
+ 'diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet '
+ 'clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit amet. '
+ 'Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy '
+ 'eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam '
+ 'voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet '
+ 'clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit '
+ 'amet. Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam '
+ 'nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed '
+ 'diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet '
+ 'clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit amet. '
+ 'Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy '
+ 'eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam '
+ 'voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet '
+ 'clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit '
+ 'amet. Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam '
+ 'nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed '
+ 'diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet '
+ 'clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit amet. '
+ 'Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy '
+ 'eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam '
+ 'voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet '
+ 'clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit '
+ 'amet. Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam '
+ 'nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed '
+ 'diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet '
+ 'clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit amet. '
+ 'Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy '
+ 'eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam '
+ 'voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet '
+ 'clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit '
+ 'amet. Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam '
+ 'nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed '
+ 'diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet '
+ 'clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit amet. ';
function BytesToHex( const bytes : TBytes) : string;
implementation
function BytesToHex( const bytes : TBytes) : string;
var i : Integer;
begin
result := '';
for i := Low(bytes) to High(bytes) do begin
result := result + IntToHex(bytes[i],2);
end;
end;
end.