TWSocket

[FabianIBerlin]

Hi ich benutze für ein server programm folgende klasse

Author: François PIETTE
Description: TWSocket class encapsulate the Windows Socket paradigm

nun habe ich folgendes problem, dass wenn ich mich von einem rechner aus dem netzwerk einklicke eine zugriffsverletzung auftritt. Wenn ich mich aber von meinen eigenen rechner einklinke treten keine probleme auf. Woran kann das liegen?

Hier der entscheide quelltext (denke ich):

Delphi-Quellcode:

procedure TLeitrechnerForm.SessionAvailable(Sender: TObject; Error: Word);
var
  i, t : byte;
  SocketHandle : TSocket;
begin
  SocketHandle := Leitrechner.Accept;
  verb[0] := TWSocket.Create(nil);
  verb[0].Dup(SocketHandle);
  for i := 1 to 6 do
    if verb[0].GetPeerAddr = KreuzungInfos[i,2] then
      begin
        t := i;
        verb[t] := TWSocket.Create(nil);
        verb[t].Dup(SocketHandle);
        verb[t].OnDataAvailable := DataAvailable;
        verb[t].OnSessionClosed := SessionClosed;
        KreuzungInfos[t,6] := 'online';
      end;
  verb[0].cleanupinstance;
  if Error <> 0
    then
      mMeldungen.Lines.Add('keine Verbindung, Fehlernummer: ' + IntToStr(Error))
    else
      mMeldungen.Lines.Add(KreuzungInfos[t,1]+ ' hat sich am '+
      DateToStr(Date)+ ' um ' + Copy(TimeToStr(Time),1,5) +' Uhr eingeklinkt.');
end;

[FabianIBerlin]

OK ich kann das Problem spezifizieren. Es trit immrt dann auf, wenn ein Client mit nicht eingetragener IP connectet. Kann man dem vorbeugen?