Also mein versuch ist etwas in die Binsen gegangen. Offenbar habe ich das Prinzip noch von den beiden Dictionaries nicht verstanden.
habe die von Alzaimar
Siehe Hier genommen und Intuitiv folgendes erstellt.
Diesen code habe ich mal aus der
Unit herauskopiert was benötigt ist damit das überhaupt gehen kann.
Delphi-Quellcode:
var UserPosID : TStringDictionary;
procedure TForm1.FormCreate(Sender:TObject);
begin
UserPosID := TStringDictionary.Create;
UserPosID.CaseInsensitive := true;
UserPosID.Clear;
end;
Die Find Funktion müsste wenn ich das Prinzip richtig verstanden habe dann die werte auslesen. Ich muss dazusagen ich bin absoluter Neuling im bereicht Pointer und habe davon KEINE Ahnung.
Es wird eigentlich nur der username zu dem entsprechenden esocket gespeichert.
Der String wird dann wenn es geht hinterher so aussehen : 'UserName;GameNR;'
Wenn ich die Variablen in den Funktionen definiere bekomme ich sogar ne Zugriffsverletzung....
Delphi-Quellcode:
var dReadString : String;
dReadPointer : Pointer;
dWriteString : String;
dWritePointer : Pointer;
procedure Speichere_UserDaten(eSocket : Integer; oWriteString: String);
begin
dWriteString := oWriteString;
dWritePointer := @dWriteString;
UserPosID.Add(inttostr(eSocket),dWritePointer);
end;
function Lese_UserDaten(eSocket : Integer) : String;
begin
UserPosID.First;
dReadPointer := nil;
UserPosID.Find(inttostr(eSocket),dReadPointer);
dReadString := string(dReadPointer^);
result := dReadString;
end;
aus einem Bestimmten grund bekomme ich immer den zu letzt angelegten eintrag zu sehen
Meine Aufrufe sind wie Folgt :
Delphi-Quellcode:
Speichere_UserDaten(SocketNR,UserName);
UserName := Lese_UserDaten(SocketNR);
Habe ich da was Grundlegend Falsch gemacht ???
Das kommt davon wenn man sich auf ein gebiet begiebt das man nicht kennt
Hoffe es hat jemand einen Rat für mich....
gruss Sascha