Hi Leute ich habe da mal ne Frage.
Ich wollte ein Proggy schreiben, was eine varierbare Anzahl von Connections zu einem Server aufbaut, und zwar gleichzeitig.
Nun habe ich alles soweit fertig nur mit dem erstellen neuer TClientSocket Komponenten wärend des betriebes hakert es:
Delphi-Quellcode:
var
show: Tshow;
newclient: TClientSocket;
kompo: TClientSocket;
namec: String;
implementation
{$R *.dfm}
procedure connect;
var
null: Integer;
begin
for null := 0 to StrToInt(show.anzahl.Text) do
begin
namec := 'clientkompo'+IntToStr(null);
kompo := newclient.Create(kompo);
kompo.Name := namec;
kompo.Port := StrToInt(show.portt.Text);
kompo.Host := show.adr.Text;
kompo.Open;
end;
end;
was ist daran falsch????
BITTE GENAUE LÖSUNGSBESCHREIBUNG UND WENN ES GEHT EINEN ÜBERARBEITETEN QUELLTEXT
THX Basti