LNet TCP-Client. Connecten aber nicht Disconnecten.

[Flashbanger]

Hier mal der code.....

Code: Alles auswählen

procedure TMBSSMform.VerbindenbuttonClick(Sender: TObject);
begin
  If Verbunden = false then LTCPC.Connect(IpAdressecombo.Text, (strtoint(Portcombo.text)))
  else if Verbunden = true then LtCPC.Disconnect;
end;
 
procedure TMBSSMform.LTCPCDisconnect(aSocket: TLSocket);
begin
  Verbindenbutton.Caption:='Verbinden';
  Verbindenbutton.Color:=cllime;
  Verbunden:=false;
  Label1.Caption:='Nicht Verbunden';
  Label1.Color:=clred;
end;
 
procedure TMBSSMform.FormCreate(Sender: TObject);
begin
  Verbunden:=false;
end;
 
 
 
procedure TMBSSMform.LTCPCConnect(aSocket: TLSocket);
begin
   Label1.Caption:='Verbunden mit '+IPAdressecombo.Text;
   Label1.Color:=cllime;
   Verbindenbutton.Caption:='Trennen';
   Verbindenbutton.Color:=clred;
   verbunden:=true;
end;

MfG Flashbanger