verbindung weiterleiten

[Thomas83]

deine procedure arbeitet mit einer separaten variable.
Entweder musst du eine variable zurück geben oder mit einem pointer arbeiten.

Delphi-Quellcode:

Function load_cs_settings(cs_load:TClientsocket;i_cs:integer) : TClientsocket;
begin
  cs_load:=TClientsocket.Create(nil);
  cs_load.Host:='127.0.0.1';
  cs_load.Port:=1080;
  cs_load.Address:=inttostr(i_cs);
  result := cs_load;
end;
//oder
Procedure load_cs_settings(var cs_load:TClientsocket;i_cs:integer);
begin
  cs_load:=TClientsocket.Create(nil);
  cs_load.Host:='127.0.0.1';
  cs_load.Port:=1080;
  cs_load.Address:=inttostr(i_cs);
end;
//oder irgend wie so
Procedure load_cs_settings(cs_load:PClientsocket;i_cs:integer);
begin
  cs_load^:=TClientsocket.Create(nil);
  cs_load^.Host:='127.0.0.1';
  cs_load^.Port:=1080;
  cs_load^.Address:=inttostr(i_cs);
end;