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;
Verein
Links
