CLient Socket Connect

[Darkmorph]

was bezweckst du damit?

dieser Code ergibt keinen Sinn...
ich entferne gleich mal die redundanzen und strukturiere den COde ein wenig, woraus sich dieser CODE ergibt:

Delphi-Quellcode:

var CON: TCLientSocket;
{deklarations-teil}

Procedure TForm1.Create();
begin
con:=TClientSocket.Create();
con.Port := 2323;
end;

procedure Connect;
begin 
with con begin
Host :=  ListBox1.Items[Form1.ListBox1.ItemIndex];
active := true;
end;
end; 

procedure Disconnect;
begin
con.close;
con.host:=ListBox1.Items[Form1.ListBox1.ItemIndex];
end;

procedure TForm1.ButtonClick(Sender: TObject); 
begin 
if Sender = Button1 then Con.Socket.SendText('D:\test\Wms.exe.lnk'); 
if Sender = Button4 then 
  begin 
  Con.Socket.SendText('D:\test\iltis_start.exe.lnk'); 
  Button5.Enabled := true; 
  end; 
if Sender = Button5 then Con.Socket.SendText('IltisWMS'); 
if Sender = Button3 then Connect; 
if Sender = Button2 then Disconnect; 
end;

Habe den CODE nicht getestet, sondern frei schnautze geschrieben, da ich dir nur den weg weisen wollte und nicht deine arbeit machen

dadurch sparste ne extra Bibliothek und schreibarbeit. außerdem ist dieser code ein wenig übersichtlicher... egal was dieser code bezweckt, dein weg ist umständlich...

MorPH