Hallo,
ich arbeite derzeit an einem weitreichenden System, bei dem als eine externe Komponente ein Geflecht aus Client - Serververbindungen (
TCP) notwendig ist.
Dies habe ich bisher alles mit Delphi realisiert und es klappt soweit auch alles.
Das einzige Problem ist die eindeutige Identifikation der Clients. Diese MUSS für das restliche System über die Macadresse des Clients laufen, welche dieser in einem Record nach der Anmeldung am Server
auch erfolgreich an diesen sendet.
Die Macadresse soll dann in AContext.Data gespeichert werden.
Serverseitiger Code:
OnConnect:
AContext.Data:=TClientIdentifier.Create;
Bei TClientIdentifier handelt es sich um eine Klasse von TObject die als einzige Definition mac:string; besitzt.
OnExecute:
Delphi-Quellcode:
if Assigned(AContext.Data) then
begin
if AContext.Data is TClientIdentifier then
begin
TClientIdentifier(AContext.Data).Mac:=Data.Mac;
end;
end;
Data.Mac ist der empfangene Datensatz, welcher die Macadresse enthält.
An dieser Stelle verliert der Client immer die Verbindung und versucht, sich erneut zu verbinden.
Kann im OnExecute Event nicht auf AContext.Data zugegriffen werden oder weshalb verliert der Client die Verbindung?!
Viele Grüße!