unit1.pas.bak

自动升级控件源代码

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    CS1: TClientSocket;
    SS1: TServerSocket;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure SS1ClientRead(Sender: TObject; Socket: TCustomWinSocket);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
close;

end;

procedure TForm1.SS1ClientRead(Sender: TObject; Socket: TCustomWinSocket);
VAR Stemp:string;
begin
sTemp:= SS1.Socket.ReceiveText;
panel1.Caption:=copy(sTemp,6,pos('@',sTemp)-1)+' 要求更新程序,正在发送升级信息..' ;
end;

end.