diff --git a/dependencies/delphizmq b/dependencies/delphizmq
index 4f72c49..2a0f49d 160000
--- a/dependencies/delphizmq
+++ b/dependencies/delphizmq
@@ -1 +1 @@
-Subproject commit 4f72c4989a46e294d2275b4a9262220f2af2c12f
+Subproject commit 2a0f49dee5513c8074aa10317c71408849ae693c
diff --git a/experiment_runner/experiment_runner.lpi b/experiment_runner/experiment_runner.lpi
index 7aad589..9af75aa 100644
--- a/experiment_runner/experiment_runner.lpi
+++ b/experiment_runner/experiment_runner.lpi
@@ -32,7 +32,7 @@
-
+
@@ -47,7 +47,8 @@
-
+
@@ -59,7 +60,7 @@
-
+
@@ -70,6 +71,10 @@
+
+
+
@@ -80,7 +85,7 @@
-
+
@@ -119,69 +124,69 @@
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
@@ -193,7 +198,7 @@
-
+
@@ -205,7 +210,8 @@
-
+
diff --git a/experiment_runner/experiment_runner.lpr b/experiment_runner/experiment_runner.lpr
index 894c8b8..d46204e 100644
--- a/experiment_runner/experiment_runner.lpr
+++ b/experiment_runner/experiment_runner.lpr
@@ -95,6 +95,7 @@ const
begin
ApplicationPath := ExtractFilePath(Application.ExeName);
+ PrintZmqVersion(ApplicationPath);
{$IFDEF DEBUG}
if not CreateDebugFoldersForPlayers then Exit;
{$ENDIF}
diff --git a/experiment_runner/lib/x86_64-linux/experiment_runner.compiled b/experiment_runner/lib/x86_64-linux/experiment_runner.compiled
index 434dcb5..95fae91 100644
--- a/experiment_runner/lib/x86_64-linux/experiment_runner.compiled
+++ b/experiment_runner/lib/x86_64-linux/experiment_runner.compiled
@@ -1,5 +1,5 @@
-
+
diff --git a/experiment_runner/units/helpers.pas b/experiment_runner/units/helpers.pas
index b858b0d..48de5af 100644
--- a/experiment_runner/units/helpers.pas
+++ b/experiment_runner/units/helpers.pas
@@ -8,9 +8,13 @@ uses
Classes, SysUtils;
function RandomString(ALength : Integer): Utf8String;
+procedure PrintZmqVersion(AAplicationPath:string);
+
implementation
+uses zmq;
+
function RandomString( ALength: Integer ): Utf8String;
const
Chars = '0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHJKLMNPQRSTUVWXYZ';
@@ -22,6 +26,26 @@ begin
Result := Result + Chars[Random(Length(Chars)) + 1];
end;
+procedure PrintZmqVersion(AAplicationPath : string);
+var
+ LPatch, LMinor, LMajor: Integer;
+ S : TStringList;
+begin
+ LMajor := 0; LMinor := 0; LPatch := 0;
+ zmq_version(LMajor,LMinor,LPatch);
+ try
+ WriteLn('ZMQVERSION:',LMajor,'.',LMinor,'.',LPatch);
+ except
+ on E : Exception do
+ begin
+ S := TStringList.Create;
+ S.Append(IntToStr(LMajor)+IntToStr(LMinor)+IntToStr(LPatch));
+ S.SaveToFile(AAplicationPath+PathDelim+'ZMQVERSION');
+ S.Free;
+ end;
+ end;
+end;
+
initialization
Randomize;
--
libgit2 0.21.2