iNet Verbindung wieder aufbauen

[aldi]

Hallo,
habe ein kleines Problem, ich trenne eine Verbindung nach einem Text empfang.
Wie baue ich die Verbindung am Ende es Quelltextes wieder auf?

Code: Alles auswählen

 
procedure TForm1.EmpfangGridReceive(aSocket: TLSocket);
  var
  Port : integer;
  Verbindungsaufbau : boolean;
  i : integer;
  Eingangstext : String;
begin
  aSocket.GetMessage(Eingangstext);
  EmpfangGrid.Disconnect(False);     // Verbindung wird unterbrochen
  StringGrid2.RowCount := StringGrid2.RowCount + 1;
  for i := StringGrid2.RowCount - 1 downto StringGrid2.FixedRows + 1 do
    StringGrid2.Rows [i].Assign (StringGrid2.Rows [i - 1]);
  StringGrid2.Rows [StringGrid2.FixedRows].Clear;
  StringGrid2.Cells [1, StringGrid2.FixedRows] := FormatDateTime ('dd:mm:yyyy', Now);
  StringGrid2.Cells [2, StringGrid2.FixedRows] := FormatDateTime ('hh:nn:ss', Now);
  StringGrid2.Cells [3, StringGrid2.FixedRows] := Eingangstext ;
end; 

Habe schon einiges probiert, leider ohne Erfolg

Code: Alles auswählen

 
 var
  Port : integer;
  ServerIP : String;
  Verbindungsaufbau : boolean;
begin
  Port := StrToInt('4321');
  Verbindungsaufbau := EmpfangGrid.Listen(Port);
  if verbindungsaufbau then
  StatusBar1.Panels.Clear;
  StatusBar1.Panels.Add.Text:= ('Warte auf ein Netzwerkereignis aus BosMon . . .');
end; 

[Socke]

habe ein kleines Problem, ich trenne eine Verbindung nach einem Text empfang.
Wie baue ich die Verbindung am Ende es Quelltextes wieder auf?

Wie wärs mit aSocket.Connect(...)?

[NoCee]

Hallo,
mit ...Listen(port) machst du einen Server (Listener) auf und must warten bis dich ein Client connected.
mit ..connect baust du selber aktiv als Client eine Verbindung zu einem Server auf.
Was mich aber interressieren würde, warum du die Verbindung bei Empfang abbaust und danach wieder
aufbauen willst? Die Verbindung darf doch stehen bleiben außer es wäre eine andere Adresse oder die Verbindung
würde nur sporadisch gebraucht.

Gruß
NoCee

[aldi]

hey,

wenn ich einen Text empfange, wird eine endlos schleife ausgelöst!
Das StringGrid wird voll geschrieben?

Ist oben am Quelltext was falsch?

[aldi]

hallo,
habe die Lösung gefunden!

aSocket.free;

Der Speicher muss wieder freigeben werden!