"Lost Connection during Query" oder "wie kann ich dieses View erstellen"

[Medium]

Das kann dann ein Problem werden, wenn du z.B. im Thread Komponenten nutzt die du auf dein Formular gelegt hast. Ich hatte bei MySQL Zugriffen auch schon Probleme damit, weiss nur nicht mehr ob das bei Zeos oder UniDAC war. Ich erstelle seither immer alle Ressourcen dafür im Thread selbst, und habe keine Probleme mehr gehabt.
Wichtig dabei ist: Im Konstruktor des Threads erstellte Dinge sind nicht im Threadkontext!! Daher quasi so:

Delphi-Quellcode:

type
  TMyThread = class(TThread)
  private
    FServerName: String;
    FPort: Integer;
    FUsername: String;
    FPassword: String;
    FCatalog: String;
  protected
    procedure Execute; override;
  public
    constructor Create(aConnection: TZConnection (*zur einfachen Übernahme der Verbindungsinfos von einer Connection auf dem Formular*));
  end;

implementation

constructor TMyThread.Create(aConnection: TZConnection);
begin
  inherited Create(false);
  FServerName := aConnection.Servername;
  FPort := aConnection.Port;
  ...
end;

procedure TMyThread.Execute;
var
  connection: TZConnection;
  query: TZQuery;
begin
  connection := TZConnection.Create(nil);
  connection.ServerName := FServerName;
  ...
  query := TZQuery.Create(nil);
  query.Connection := connection;
  try
    repeat
      ...
    until Terminated;
  finally
    connection.Free;
    query.Free;
  end;
end;

Oder die Connection und Query als Feld des Threads, falls man mal ein paar mehr Thread-Methoden aufrufen will und diese nicht immer als Parameter mitgeben will.