guangbo.pas

这是一个非常好的教师和学生沟通用的电子教室!

unit Guangbo;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, VCLUnZip, LZRW1,jpeg,
  ThdTimer, SkinForm;

type
  TGuangbof = class(TForm)
    Label1: TLabel;
    Image1: TImage;
    VCLUnZip1: TVCLUnZip;
    lzrw11: Tlzrw1;
    DxTimer1: TThreadedTimer;
    DxTimer2: TThreadedTimer;
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormHide(Sender: TObject);
    procedure DxTimer1Timer(Sender: TObject);
    procedure DxTimer2Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Guangbof: TGuangbof;
  myjpeg:tjpegimage;
implementation
uses main;
{$R *.DFM}

procedure TGuangbof.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if Guangboing = false then
    canclose := true
  else
    canclose := false;
end;

procedure TGuangbof.FormHide(Sender: TObject);
begin
  DXTimer1.Enabled := false;
  DXTimer2.Enabled := false;
end;

procedure TGuangbof.DxTimer1Timer(Sender: TObject);
var
  un_compress, wait_stream: TmemoryStream;
//  mylzh: Tlzrw1;
  wsh_pain: Tbitmap;
 // wei: string;
begin
 // wei := '未' + chr($D7);
  if (hua_ok = true)and(draw_ok=true) then
  begin
    hua_ok := false;
    draw_ok:=false;
    un_compress := Tmemorystream.Create;
    un_compress.Clear;
    un_compress.Position := 0;
    drawstream.Position := 0;
 //转存
    wait_stream := Tmemorystream.Create;
    wait_stream.Clear;
   // wait_stream.Position:=0;
    wait_stream.LoadFromStream(drawstream);
    wait_stream.Position := 0;

{     mylzh := Tlzrw1.Create(self);
//    try
      mylzh.Visible := false;
      mylzh.CompressMode := Fast;
      mylzh.UseStream := true;
      mylzh.InputStream := wait_stream;
      mylzh.OutputStream := un_compress;
      mylzh.DeCompress;
      mylzh.Free;}
 //解压缩流
    with vclunzip1 do
    begin
      ArchiveStream := TMemoryStream.Create;
      archivestream.Position := 0;
      wait_stream.SaveToStream(archivestream);
      archivestream.Position := 0;
      try
        unZiptoStream(un_compress, 'screen.jpg');
      finally
        archivestream.Free;
        archivestream := nil;
      end;
    end;

    wait_stream.Clear;
    wait_stream.Free;

    drawstream.Clear;
    wsh_pain := TBItmap.Create;
    myjpeg:=tjpegimage.Create ;
    un_compress.Position := 0;
    myjpeg.LoadFromStream (un_compress);
    //wsh_pain.LoadFromStream(un_compress);
    //wsh_pain.Assign(myjpeg);
    image1.Canvas.Draw (0,0,myjpeg);
    //Image1.Canvas.Draw(0, 0, wsh_pain);
   // Image1.Canvas.Font.Color := clLime; //register
   // Image1.Canvas.TextOut(random(screen.width), random(screen.height), wei + chr($A2) + '册！请支持国产软件！');
    wsh_pain.FreeImage;
    wsh_pain.Free;
    wsh_pain := nil;
    myjpeg.Free ;
    un_compress.Clear;
    un_compress.Free;
    draw_ok:=true;

  end;

end;

procedure TGuangbof.DxTimer2Timer(Sender: TObject);
var
  un_compress, wait_stream: TmemoryStream;
  mylzh: Tlzrw1;
  wsh_pain: Tbitmap;
 // wei: string;
begin
//  wei := '未' + chr($D7);
  if (hua_ok = true)and(draw_ok=true) then
  begin
    hua_ok := false;
    draw_ok:=false;
    un_compress := Tmemorystream.Create;
    un_compress.Clear;
    un_compress.Position := 0;
    drawstream.Position := 0;
 //转存
    wait_stream := Tmemorystream.Create;
    wait_stream.Clear;
   // wait_stream.Position:=0;
    wait_stream.LoadFromStream(drawstream);
    wait_stream.Position := 0;

      mylzh := Tlzrw1.Create(self);
      mylzh.Visible := false;
      mylzh.CompressMode := Fast;
      mylzh.UseStream := true;
      mylzh.InputStream := wait_stream;
      mylzh.OutputStream := un_compress;
      mylzh.DeCompress;
      mylzh.Free;
 //解压缩流

    wait_stream.Clear;
    wait_stream.Free;

    drawstream.Clear;
    wsh_pain := TBItmap.Create;
    myjpeg:=tjpegimage.Create ;
    un_compress.Position := 0;
    myjpeg.LoadFromStream (un_compress);
    //wsh_pain.LoadFromStream(un_compress);
    //wsh_pain.Assign(myjpeg);
    //Image1.Canvas.Draw(0, 0, wsh_pain);
    image1.Canvas.Draw (0,0,myjpeg);
 //   Image1.Canvas.Font.Color := clLime; //register
 //   Image1.Canvas.TextOut(random(screen.width), random(screen.height), wei + chr($A2) + '册！请支持国产软件！');
    wsh_pain.FreeImage;
    wsh_pain.Free;
    wsh_pain := nil;

    un_compress.Clear;
    un_compress.Free;
    draw_ok:=true;

  end;

end;

end.