Einzelnen Beitrag anzeigen

Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#27

AW: connection zum Server

  Alt 13. Mär 2013, 17:50
Also so wirst du da nicht weiterkommen ... und wir noch viel weniger ...

Ich würde mal vorschlagen du baust dir in das OnBeforeConnect Event der Connections einen StackTrace-Log ein, damit du erfährst, wer denn da die Verbindung auslöst (und ob es überhaupt die sind).

Im Anhang findest du die Units für das Loggen (Quelle http://synopse.info).

Einfach im Projekt-Verzeichnis auspacken und dann wie folgt dein Projekt bearbeiten:

In der DPR-Datei
Delphi-Quellcode:
uses
  SynCommons, // Unit hinzufügen
  ...;

begin
  // Alle Logs in die Datei schreiben
  with TSynLog.Family do
  begin
    Level := LOG_VERBOSE;
  end;

  ...
end.
Überall wo du jetzt den StackTrace benötigst fügst du einfach (SynCommons bei uses nicht vergessen) folgendes ein:
Delphi-Quellcode:
uses
  SynCommons,
  ...;

  // StackTrace in Log-Datei
  TSynLog.Add.Log( sllStackTrace );
Wichtig ist es jetzt beim Compilieren die MAP-Datei erzeugen zu lassen (Projekt/Optionen/Delphi-Compiler/Linken/Map-Datei = Detailiert) um auch die Namen im StackTrace zu sehen.

Für die Auslieferung wird nur noch die MAB-Datei benötigt (ist eine sehr stark komprimierte MAP-Datei und wird automatisch beim ersten Start der Anwendung selber erstellt).

Die Log-Dateien werden default im Anwendungs-Verzeichnis geschrieben.
Angehängte Dateien
Dateityp: zip SynLog.zip (243,1 KB, 13x aufgerufen)
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat