Hi,
du hast bei der Implementierung deiner Methoden den class qualifier vergessen:
Delphi-Quellcode:
procedure TForm1.send_data(s_name,s_data,s_status:string);
begin
if b_connected then
begin
{Form1.}sock_client.socket.sendtext(s_name+s_data);
end else
begin
end;
end;
procedure TForm1.send_data2(s_name,s_data,s_status:string);
begin
if b_connected then
begin
{Form1.}sock_server.socket.Connections[0].sendtext(s_name+s_data);
end else
begin
end;
end;
Grüße vom marabu