Ver Mensaje Individual
  #3  
Antiguo 28-02-2008
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.732
Reputación: 20
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
Para el tema de interrumpir:

Yo pongo una variable global booleana.
Un botón que al ser presionado poner la variable a True.
Todo el procedimiento de envío/recepcion deberá estar dentro de un while que chequee esta variable.

Código Delphi [-]
var
  interrumpir : boolean;

procedure TFMMain.BInterrumpirClick(Sender: TObject);
begin 
   interrumpir := True;
end;

procedure TFMMain.BLecturaEscrituraClick(Sender: TObject);
begin 
   interrumpir := False;
   while (not interrumpir) and (not TermioLecturaEscritura) do
   begin
      {Hacer lo que hay que hacer}
   end;
end;
Responder Con Cita