Datei über Sockets senden... Mit Fortschrittsanzeige!

[ManuMF]

Hallo,

ich möchte eine Datei über die Sockets senden, wie es z.B. im Delphi-Forum beschrieben ist
(notfalls auch mit Indy, siehe Code-Library).
Dabei möchte ich den Fortschritt des Sendens auf der Sender-Seite überwachen (z.B. mit ProgressBar).

Kennt jemand vielleicht eine Komplett-Lösung?
Mit dem Besispiel auf der o.g. Seite komme ich nicht zurecht (Für dieses Beispiel: woher weiß ich, wann das Senden abgeschlossen ist? Und wie werte ich die Rückmeldung aus?)

Danke,
ManuMF

[ManuMF]

[edit]
Alles zur Übersicht in den 1. Beitrag verschoben.

@Chakotay1308:
Es ging mir ja nicht ums Pushen, hab nur nicht ans Editieren gedacht :oops:
[/edit]

[CalganX]

Hi,
für solche Fälle gibt es die Edit-Funktion. Bitte pushe nicht deinen Beitrag unnötig innerhalb von weniger als 24 Stunden. :warn:

Danke,
Chris

[ManuMF]

So, das ganze hat sich nun erledigt.
Aber es gibt ein anderes Problem

[mangaka]

wäre nett, wenn du die lösung des fortschritts posten würdest

[ManuMF]

:mrgreen: Endlich hab ichs mit Fortschrittsanzeige! :mrgreen:

Delphi-Quellcode:

// Client

{Global} var Groesse : Integer;


procedure TSendeForm.DateiSendeButtonClick(Sender : TObject);

var FStream : TFileStream;
    IDS : TidStreamVCL;

begin
  TCPSender.Host := HostEdit.text;
  if not (DateiOpenDialog.execute) then
    exit;

  FStream := TFileStream.Create(DateiOpenDialog.FileName, fmOpenRead);
  IDS := TidStreamVCL.Create(FStream);

  with TCPSender do
  begin
    Connect;
    try
      Socket.Write(IDS, 0, true);
    finally
      Disconnect;
    end;
  end;

  FStream.Free;
  IDS.Free;
end;


procedure TSendeForm.TCPSenderWork(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Integer);
begin
  ProgressBar.Position := Round((AWorkCount / Groesse) * 100);
  Application.ProcessMessages;
end;


procedure TSendeForm.TCPSenderWorkBegin(ASender: TObject; AWorkMode: TWorkMode; AWorkCountMax: Integer);
begin
  Groesse := AWorkCountMax;
end;



// Server

procedure TEmpfangsForm.TCPReceiverExecute(AContext: TIdContext);

var FSTream : TFileStream;
    SizeOfIncomingStream : Integer;
    IDS : TidStreamVCL;

begin
  if not (DateiSaveDialog.execute) then
  begin
    showmessage('Es wurde keine Datei ausgewählt!');
    exit;
  end;

  FStream := TFileStream.Create(DateiSaveDialog.FileName, fmCreate);
  IDS := TidStreamVCL.Create(FStream);

  with AContext.connection do
  begin
    try
      SizeOfIncomingStream := Socket.ReadInteger;
      Socket.ReadStream(IDS, SizeOfIncomingStream);
    finally
      Disconnect;
    end;
  end;

  IDS.VCLStream.Position := 0;

  FStream.Free;
  IDS.Free;
end;