Delphi本地网络应用程序

Question

尝试学习如何制作服务器客户端应用程序之类的东西。我试图在所有客户端中绘制圆圈(单击鼠标)，所以这就是我尝试这样做的方式。但它不起作用 - 没有错误，但表单是空的。我需要修复什么？ 客户端代码

unit Client;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, {Figure, Ball,} IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, ScktComp;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Button1: TButton;
    ClientSocket: TClientSocket;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);



  private

  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  f:boolean;
  p:MyPoint;
  s:MyPoint;
  z:TCanvas;
  obj: MyFigure;
  pX, pY:Integer;
  myBuf: array[1..32] of Integer;
  dataBuf: array[1..32] of Integer;
implementation

{$R *.dfm}



procedure TForm1.FormCreate(Sender: TObject);
begin

  Timer1.Enabled:=false;
  Timer1.Interval:=5;
  z:=Form1.Canvas;//TCanvas.Create;

  Button1.Caption:='Пуск';


  f:=false;

  ClientSocket.Port:=1234;
  ClientSocket.Active:= False;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if not f then
 begin
  Timer1.Enabled:=true;
  Button1.Caption:='Стоп';
  f:=not f;
 end
else
 begin
  Timer1.Enabled:=false;
  Button1.Caption:='Пуск';
  ClientSocket.Active:= True;
  f:=not f;
 end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 //z.Lock;

  //z.Brush.Color:=ClWhite;
  //z.FillRect(Canvas.ClipRect);

  //obj.Draw(z);
  if ClientSocket.Active  then
     ClientSocket.Socket.ReceiveBuf(dataBuf, 32);

  z.Brush.Color:=ClRed; 
  z.Ellipse(dataBuf[1] + 10, dataBuf[2] + 10,dataBuf[1] - 10, dataBuf[2] - 10);

//z.Unlock;
end;



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


procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin

  myBuf[1]:=X;
  myBuf[2]:=Y;
  if ClientSocket.Active  then
     ClientSocket.Socket.SendBuf(myBuf, 32);

end;

end.

服务器

unit ServerProject;

interface

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

type
  TForm1 = class(TForm)
    ServerSocket1: TServerSocket;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ServerSocket1ClientRead(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ServerSocket1ClientWrite(Sender: TObject;
      Socket: TCustomWinSocket);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  sBufer : array [1..32] of Integer;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  ServerSocket1.Port:=1234;
  ServerSocket1.Active := True;
end;

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

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  i:integer;

begin
  for i := 0 to ServerSocket1.Socket.ActiveConnections-1 do
  begin
    with ServerSocket1.Socket.Connections[i] do
    begin
      ReceiveBuf(sBufer, 32);
    end;
  end;
end;

procedure TForm1.ServerSocket1ClientWrite(Sender: TObject;
  Socket: TCustomWinSocket);
var
  i:integer;

begin
  for i := 0 to ServerSocket1.Socket.ActiveConnections-1 do
  begin
    with ServerSocket1.Socket.Connections[i] do
    begin
      SendBuf(sBufer, 32);
    end;
  end;

end;

end.

Answer 1

您的绘画代码位于错误的位置，并且正在绘画到错误的对象。在 Windows 程序中，您应该根据 WM_PAINT 消息进行绘制。你没有这样做。此外，您必须在通过调用 BeginPaint 提供的设备上下文上进行绘制。

VCL 为您封装了所有这些详细信息，但您仍然需要遵守规则。对于您的情况，我建议您将 TPaintBox 组件添加到表单中。然后为绘画框实现一个 OnPaint 事件处理程序。最后，每当您希望重新绘制绘画框(例如在计时器上)时，请调用绘画框的 Invalidate 方法。

我怀疑您希望除了之前绘制的椭圆之外还绘制每个新的椭圆。在这种情况下，最好的方法可能是先将它们绘制到屏幕外的位图，然后当您要绘制到油漆盒时，在油漆盒上绘制该位图。关键是 window 需要能够完全重新粉刷自己。当您在屏幕设备上绘制时，下次需要绘制该窗口时，您绘制的内容将会丢失。因此，如果需要的话，应用程序有责任能够在任何时候绘制整个自身。

更一般地说，我敦促您停止使用全局变量。他们会给你带来无穷无尽的麻烦。尽可能首选局部变量。如果需要在不同的方法调用之间保留状态，请使用成员变量。指导原则是尽可能使用最窄的范围。

您当前的设计使用计时器来轮询新数据。这是一个非常糟糕的方法。最高效、最有效的方法是使用同步阻塞通信。印地采取了这种方法。相反，Windows 套接字组件往往以异步模式使用。无论这两种方法的相对优点如何，您都不应该对计时器进行轮询。如果您确实使用异步通信，则通过处理事件而不是轮询来响应新数据。

您的程序当前正在尝试将 GDI 绘画和网络通信混合在一起。我建议您尝试一次掌握这些概念。学习如何在不受交流干扰的情况下绘画。然后当你的绘画破裂时，尝试引入沟通方面的内容。