zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  TCPServer.Active := True;
end;

procedure TForm1.TCPServerExecute(AContext: TIdContext);
var
  strlst: TStringList;
begin
  strlst:=TStringList.Create;
  try
    strlst.add('Hello from Basic Indy Server server.');
    with AContext.Connection do
      begin
        WriteRFCStrings(strlst);
        Disconnect;
      end;
  finally
    strlst.Free;
  end;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  TCPServer.Active := False;
end;

Das soll der Server sein. Das funktioniert soweit alles, hoffe ich mal. ^^
Wenn ich das ganze jetzt schließe, kommt eine Fehlermeldung (s. Anhang)

Die Indy10 Komponenten sind einfach noch nicht ausgereift. Ich bin von Indy10 genau deswegen wieder auf Indy9 zurückgegangen. Der TCP Server hat mich bis zur Weißglut gebracht. Da gibt es so schöne sachen, wie dass er sich nach dem öffnen nicht wieder beenden lässt, bevor alle Clients getrennt wurden. Oder beim TCP Client kann man eine Verbindung zum Server herstellen, trennen und will man dann wieder verbinden bekommt man einen "AlreadyConnected" Error.

Also: Benutz lieber die guten alten Indy9 Komponenten.

Florian

Okay. Das werde ich dann mal machen.