Einzelnen Beitrag anzeigen

Benutzerbild von Net7
Net7

Registriert seit: 22. Jun 2004
Ort: Lauenburg
161 Beiträge
 
Delphi 7 Professional
 
#10

Re: Transfer von Daten mit Pause bzw. Abbrech Button

  Alt 1. Nov 2005, 15:09
Zitat von bladecs:
thx, nur wie kann ich das Versenden der Datei abbrechen, ohne die Verbindung zu schließen.

Delphi-Quellcode:
procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
Socket.SendStream(TFileStream.Create('c:\datei.exe', fmOpenRead or fmShareDenyWrite)); // Diesen Transfer möchte ich abbrechen können, ohne die Verbindung zum client zu schließen bzw. den Server zu schließen (also der Server soll die Datei erst gar nicht weiter schicken)
end;

Joa gute frage.. dazu müstes aber diese Procedure anpassen.

Ich würde zb. das mit Write (Methode von TWinSocketStream)versuchen. Man stückelt die Größe des Streams
und schickt zb. immer nur 1 kb.

Dann wird abgefragt ob der User "Stopp den Transfer" gedrückt hat, wenn nicht wieder 1 Kb usw.

Wenn der User abbricht, wird eine Nachricht an den Client verschickt.

Siehe dir mal das Beispiel bei Write(Methode von TWinSocketStream) an.
Marko
So`ne Atombombe kann einem den ganzen Tag verderben!
Eine eigene DLL in C++ geschrieben wird meist ein Sklave für mein Delphi/Pascal.
  Mit Zitat antworten Zitat