1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:

  HttpThreadClass=class(TThread)
    private
      XCamNo:Integer;                    //What is my Camera Number
      QRead,QWrite:Byte;                 //Control for the command Q
      LP:Integer;                        // Last Position Number from POS Command
      LastPos:String;                    // Last Position Text
    protected
    procedure Execute; override;
    public
    procedure InitQ;
    procedure AddCommand(Value:String); {Add a Command line to the Thread Objects Q}
    function SomethingToDo:Boolean;     {is there still something in the Q}
    property CamNumber:Integer read XCamNo write XCamNo; // The channel number for every thread
  end;
  function InPortB(Port:DWord):Word; cdecl; external 'ACCES32.dll';
  function InPort(Port:DWord):Word; cdecl; external 'ACCES32.dll';
  function InPortL(Port:DWord):DWord; cdecl; external 'ACCES32.dll';
var
HttpThread:Array[1..48] of HttpThreadClass;
T:TFileStream; // The Logfile


procedure HttpThreadClass.Execute();
var S:String;FS:TFileStream;CamNo:Integer;idhttp1:TidHttp;RS,ImageStamp:String;X:TSystemTime;
begin
       CamNo:=XCamNo; // Thats my number
       idhttp1:=TIdHttp.Create;
       FS:=TFileStream.Create(RS,fmCreate or fmShareExclusive);
        try
          idhttp1.Request.BasicAuthentication:=true;
          idhttp1.Request.Username:=Cams[CamNo].Username;
          idhttp1.Request.Password:=Cams[CamNo].Password;
          idhttp1.MaxAuthRetries:=1;
          RS:=StringReplace(Cams[CamNo].GetCommand,'%P1',ImageStamp,[rfReplaceAll]);
          idHttp1.Get(RS,FS);
        except
          on e:Exception do begin
            RS:=e.message;
            FS.Write(RS[1],length(RS));
            T.Write(RS[1],length(RS));
          end;
        end;
        FS.Free;
        idhttp1.Free;
end;