source upload

2022-01-17 22:16:47 +02:00
parent 12936d065b
commit 098e8c48de
1778 changed files with 1206749 additions and 0 deletions
--- a/performance/Project21HttpClient.dpr
+++ b/performance/Project21HttpClient.dpr
@@ -0,0 +1,23 @@
+/// this client will stress a remote TSQLRestServerDB over HTTP
+program Project21HttpClient;
+
+// first line of uses clause must be   {$I SynDprUses.inc}
+uses
+  {$I SynDprUses.inc}
+  Forms,
+  {$ifdef FPC}
+  Interfaces,
+  {$endif}
+  ECCProcess in '..\33 - ECC\ECCProcess.pas',
+  Project21HttpClientMain in 'Project21HttpClientMain.pas' {MainForm};
+
+{$ifndef FPC}
+{$R *.res}
+{$R Vista.res}
+{$endif}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TMainForm, MainForm);
+  Application.Run;
+end.