1:
2:
3:
4:
5:
6:

  if NOT HTTPClient.Socket.Connected then
  try
    HTTPClient.Active := True;
  except
    ShowMessage('Verbindung konnte nicht geöffnet werden');
  end;                    

1:
2:
3:
4:
5:
6:

if NOT HTTPClient.Socket.Connected then
  try
    HTTPClient.Active := True;
  except
    ShowMessage('Verbindung konnte nicht geöffnet werden');
  end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

type
  THTTPThread = class(TThread)
  private
    { Private-Deklarationen }
    HTTPClient: TIdHTTP;
    function BPM_Request(Option, ServerIP: string): string;
    function IntToBool(Int : Integer): Boolean;
  public
    //constructor Create();
    //destructor Destroy; override;
    function GetData(ServerIP: string): TPlayer;
  end;                    

1:
2:
3:
4:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ScktComp, ExtCtrls, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdHTTP;