clithread.pas

外国人写的各种类型的源代码,有兴趣的朋友看看吧！是学习的好东西哟

unit CliThread;

interface

uses
  Classes, ScktComp;

type
  TClientThread = class(TThread)
  private
    MemStream: TMemoryStream;
    procedure LoadInForm;
  protected
    procedure Execute; override;
  public
    Socket: TClientWinSocket;
  end;

implementation

{ TClientThread }

uses
  ClientForm;

procedure TClientThread.Execute;
var
  SockStream: TWinSocketStream;
  Buffer: array [0..999] of Char;
  nBytes: Integer;
begin
  SockStream := TWinSocketStream.Create(
    Socket, 30000);
  MemStream := TMemoryStream.Create;
  try
    while (not Terminated) and (Socket.Connected) do
    begin
      SockStream.WaitForData (3000);
      nBytes := SockStream.Read (Buffer, sizeof (Buffer));
      MemStream.Write (Buffer, nBytes);
    end;
  finally
    MemStream.Position := 0;
    Synchronize (LoadInForm);
    MemStream.Free;
    SockStream.Free;
  end;
end;

procedure TClientThread.LoadInForm;
begin
  Form1.Image1.Picture.Bitmap.LoadFromStream (MemStream);
end;

end.