ProfessionalConnect - Komponente

[Zacherl]

Hallo,
da viele das Problem haben, bei einer Verbindung über die Sockets ihre Clients eindeutig zu identifizieren, habe ich diese Komponenten entwickelt. Sie sind noch nicht optimiert und es könnten kleinere Fehler drin sein, aber eigentlich funktionieren sie schon recht gut.
Der Server wird mit ProfessionalServer1.Open gestartet und mit Close geschlossen. Der Client mit Connect verbunden und mit Disconnect getrennt. Im OnEndListUpdating Ereigniss sollte z.B. die Namensliste aktualisiert werden.
Eine Demo liegt bei. Die Demo ist ganz auf die Schnelle entstanden und nicht dokumentiert. Aber ein Blick in den Quelltext dürfte das klären. Hierbei befinden sich 2 Clienten und 1 Server auf dem gleichen Formular.

Florian

[Zacherl]

Hat jemand die Komponente getestet?
Ich würde mich über ein Feedback freuen!

Florian

[shmia]

Zitat:

Zitat von Florian Bernd

Hat jemand die Komponente getestet?
Ich würde mich über ein Feedback freuen!

Nur Sourcecode angeschaut.
Vorschlag:
statt jedes Event neu zu deklarieren

Delphi-Quellcode:

Type
  TOnConnect = procedure (Sender: TObject) of object;
Type
  TOnDisconnect = procedure (Sender: TObject) of object;

verwende einfach das vordefinierte Event TNotifyEvent.
Nur wenn ein Event mehr als Parameter Sender benötigt, wird ein neuer Eventtyp deklariert.
TProfessionalServer:
die Deklaration TempClientHeader: array[0..30000] of TClientHeader frisst richtig viel Heu (RAM).
Hier wäre eine Ableitung von TList angebracht.

[Khabarakh]

Ich habe mir auch nur den Sourcecode angeschaut, aber gleich ein paar Memory Leaks gefunden. Bevor du ein Programm oder eine Komponente zur Verfügung stellst, solltest du den Code immer erst mit MemCheck o.Ä. prüfen.

[Zacherl]

Hallo,
erst mal danke für die Vorschläge!

Zitat:

die Deklaration TempClientHeader: array[0..30000] of TClientHeader frisst richtig viel Heu (RAM).
Hier wäre eine Ableitung von TList angebracht.

Wie könnte man so was realisieren?

Zitat:

Ich habe mir auch nur den Sourcecode angeschaut, aber gleich ein paar Memory Leaks gefunden. Bevor du ein Programm oder eine Komponente zur Verfügung stellst, solltest du den Code immer erst mit MemCheck o.Ä. prüfen.

:shock: Hab ich noch nie gemacht. Wo sind denn z.B. Memory Leaks?

Florian

[Khabarakh]

Zitat:

Zitat von Florian Bernd

Zitat:

die Deklaration TempClientHeader: array[0..30000] of TClientHeader frisst richtig viel Heu (RAM).
Hier wäre eine Ableitung von TList angebracht.

Wie könnte man so was realisieren?

http://www.delphipraxis.net/internal...=139745#139745
oder du arbeitest mit TObjectList und Klassen, ist IMO einfacher.

Zitat:

Zitat:

Ich habe mir auch nur den Sourcecode angeschaut, aber gleich ein paar Memory Leaks gefunden. Bevor du ein Programm oder eine Komponente zur Verfügung stellst, solltest du den Code immer erst mit MemCheck o.Ä. prüfen.

:shock: Hab ich noch nie gemacht. Wo sind denn z.B. Memory Leaks?

Du gibst das Feld "Cmds" in beiden Klassen nicht frei, die Listen in OnClientReadF, ...
Das habe ich beim Anschauen des Codes gesehen, einen vollen MemCheck-Bericht kann ich dir ohne Anwendung, in der deine Komponenten benutzt werden, nicht geben.
MemCheck

[Zacherl]

Zitat:

Du gibst das Feld "Cmds" in beiden Klassen nicht frei, die Listen in OnClientReadF, ...

Achso das meinst du. Ich bin die Komponente noch am weiterentwickeln. Wollte sie nur noch schnell hochladen, bevor ich in Urlaub gefahren bin :oops:

Zitat:

http://www.delphipraxis.net/internal...=139745#139745
oder du arbeitest mit TObjectList und Klassen, ist IMO einfacher.

Danke!
Florian