Quellcode

Clientsocket1.Socket.SendText(RESET);

Quellcode

unit Unit1; 

interface 

uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls, ComCtrls, ScktComp; 

type 
  TForm1 = class(TForm) 
    Clientsocket1: TClientSocket; 
    StatusBar1: TStatusBar; 
    Button1: TButton; 
    Button2: TButton; 
    Edit1: TEdit; 
    Label1: TLabel; 
    Button3: TButton; 
    CheckBox1: TCheckBox; 
    Checkbox2: TCheckBox; 
    procedure Button1Click(Sender : TObject); 
    procedure Button2Click(Sender : TObject); 
    procedure Clientsocket1Error(Sender : TObject; Socket : TCustomWinSocket; 
      ErrorEvent : TErrorEvent; var ErrorCode : integer); 
    procedure Clientsocket1Disconnect(Sender : TObject; 
      Socket : TCustomWinSocket); 
    procedure Clientsocket1Connect(Sender : TObject; 
      Socket : TCustomWinSocket); 
    procedure Button3Click(Sender : TObject); 
    procedure FormClose(Sender : TObject; var Action : TCloseAction); 
    procedure FormDestroy(Sender : TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 

var 
  Form1 : TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.Button1Click(Sender : TObject); 
begin 
  Clientsocket1.Active := True; 
end; 

procedure TForm1.Button2Click(Sender : TObject); 
begin 
  Clientsocket1.Active := False; 
end; 

procedure TForm1.Clientsocket1Error(Sender : TObject; 
  Socket : TCustomWinSocket; ErrorEvent : TErrorEvent; 
  var ErrorCode : integer); 
begin 
  errorcode := 0; 
  StatusBar1.SimpleText := 'Error'; 
end; 

procedure TForm1.Clientsocket1Disconnect(Sender : TObject; 
  Socket : TCustomWinSocket); 
begin 
  StatusBar1.SimpleText := 'Disconnect'; 
end; 

procedure TForm1.Clientsocket1Connect(Sender : TObject; 
  Socket : TCustomWinSocket); 
begin 
  StatusBar1.SimpleText := Clientsocket1.Address; 
end; 

procedure TForm1.Button3Click(Sender : TObject); 
var 
  ukaz : string; 
  orders : string; 
  Text : string; 
  box : string; 
begin 
  ukaz := edit1.Text; 
  Clientsocket1.Socket.SendText(ukaz); 
  if checkbox1.Checked = True then 
  begin 
    orders := 'power'; 
    Clientsocket1.Socket.SendText(orders); 
  end; 
  if Checkbox2.Checked = True then 
  begin 
    Text := 'reset'; 
    Clientsocket1.Socket.SendText(Text); 
  end; 
end; 

procedure TForm1.FormClose(Sender : TObject; var Action : TCloseAction); 
begin 
  Clientsocket1.Active := False; 
end; 

procedure TForm1.FormDestroy(Sender : TObject); 
begin 
  Clientsocket1.Active := False; 
end; 

end.

Quellcode

procedure TForm1.Button1Click(Sender : TObject); 
begin 
  Clientsocket1.Active := True; 
  Clientsocket1.Port:= XXX;
end;

Quellcode

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ScktComp;
type
  TForm1 = class(TForm)
    Button1: TButton;
    ClientSocket1: TClientSocket;
    Edit1: TEdit;
    Button2: TButton;
    Button3: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
  public
  end;
var
  Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
 ClientSocket1.Port:=55;
 ClientSocket1.Host:='192.168.2.31';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
 if
   clientsocket1.active
 then
   ClientSocket1.Socket.SendText('>'+Timetostr(time)+'\Client_Message:'+Edit1.Text);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
 Clientsocket1.active:=true;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Clientsocket1.active:=false;
end;

end.

Quellcode

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ScktComp, StdCtrls;
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    ServerSocket1: TServerSocket;
    procedure FormCreate(Sender: TObject);
    procedure ServerSocket1ClientRead(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
 private
 public
 end;
var
  Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
ServerSocket1.Port := 55;
ServerSocket1.Active := True;
end;
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Memo1.Lines.Add(Socket.ReceiveText);
if Copy(Socket.ReceiveText,1,5)
= 'show ' Then ShowMessage(Copy(Socket.ReceiveText,6,Length(Socket.Receivetext)));
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ServerSocket1.active := false;
end;
end.

Quellcode

//Beim Absenden des Textes einfügen
//wahrscheinlich ja:
ClientSocket1.Socket.SendText(Edit1.Text);
Memo1.Lines.Add('Du sagst: ' + Edit1.Text);