unit7.pas

有关密码为： 服务端：为 “1”。 客户端：为机器的月份+日期。 如“2005/08/05”

unit Unit7;

interface

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

type
  TXCKH = class(TForm)
    kz: TClientSocket;
    PopupMenu1: TPopupMenu;
    Panel1: TPanel;
    Image: TImage;
    N1: TMenuItem;
    Timer1: TTimer;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    procedure kzRead(Sender: TObject; Socket: TCustomWinSocket);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure N4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    bmpmap1:TMemorystream;

  end;
  const buffer=2048;

var
  XCKH: TXCKH;


implementation


uses Unit1;

{$R *.dfm}



procedure TXCKH.kzRead(Sender: TObject; Socket: TCustomWinSocket);
var buf:array[0..buffer-1] of char;
    temp:integer;
begin
temp:=socket.ReceiveLength;
bmpmap1.WriteBuffer(buf,Socket.ReceiveBuf(buf,temp));
if temp<buffer then
begin
bmpmap1.Position:=0;
image.Picture.Bitmap.LoadFromStream(bmpmap1);
bmpmap1.clear;
end
else Socket.SendText('cut');
end;


procedure TXCKH.FormCreate(Sender: TObject);
begin
bmpmap1:=TMemorystream.Create;
  kz.Address:=trim(form1.lv1.Selected.SubItems[11]);;
  kz.Active:=true;
end;

procedure TXCKH.FormDestroy(Sender: TObject);
begin
bmpmap1.free;
kz.Active:=false;
kz.Address:='';
end;

procedure TXCKH.N1Click(Sender: TObject);
begin
    bmpmap1.Clear;
    kz.Socket.SendText('cut');
end;

procedure TXCKH.Timer1Timer(Sender: TObject);
begin
    bmpmap1.Clear;
    kz.Socket.SendText('cut');
    timer1.Enabled:=false;
end;

procedure TXCKH.N4Click(Sender: TObject);
begin
close;
end;

end.