Transfer von Daten mit Pause bzw. Abbrech Button

[St.Pauli]

Mit der Lösung vom Swissdelphicenter:

Delphi-Quellcode:

var
  Form1: TForm1;
  Abbruch : boolean;

implementation

{$R *.dfm}

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var
  iLen: Integer;
  Bfr: Pointer;
begin
  iLen := Socket.ReceiveLength;
  GetMem(Bfr, iLen);
  try
    IF Abbruch THEN exit;
    Socket.ReceiveBuf(Bfr^, iLen);
    FStream.Write(Bfr^, iLen);
  finally
    FreeMem(Bfr);
  end;
end;

und dann noch auf einen Button legen "Abbruch := True"...