Probleme mit Frames und deren Aktualisierung in Formularen

[Sko]

Ja, hab ich schon ausprobiert, hilft nicht. Das Problem ist ja nicht das sich die Progressbar nie bewegt, sie bewegt sich nur nicht wenn ich das ganze mit dynamisch erzeugten Frames mache, bei nicht-dynamischen Frames geht es.

[Sko]

nochmal

*push*

sry
:duck:

[omata]

Hallo Sko,

ich habe mal ein Beispiel gemacht. Was du da allerdings für einen Stream hast und wie das gehen soll, blicke ich noch nicht so. Da reicht dein Codeschnipsel nicht aus.

Gruss
Thorsten

[Sko]

vielen Dank! ich sehs mir gleich mal an :coder:

[Angel4585]

Wie sieht denn die Aktualisierungsrate des Timers aus?
Ich persönlich würde einen Thread nehmen, da die Timer sich gegenseitig behaken könnten(glaub ich) d.h. während der eine Timer in seinem OnTimer-Event ist, springt ein zweiter in seine bevor der erste sein Event fertig ausgeführt hat. Bei Threads hättest du das Problem denk ich nicht.

[Sko]

Ich habs jetzt so gebaut wie in omata´s Beispiel, das ist genau das was ich wollte, vielen Dank nochmal dafür :thumb: . Aber ich glaub ich hab da irgendwas bei der Anpassung falsch gemacht: wenn das Fenster, in das die Frames kommen, schon vor der Erstellung des Frames angezeigt wird, friert das Programm ab dem Zeitpunkt der Erstellung des Frames für die Dauer der Datenübertragung ein und beim Beenden des Programms kommt "Ungültiges Fensterhandle", außerdem wird der Frame sofort nach der Übertragung vom Formular entfernt, das hab ich - jedenfalls bewusst - garnicht eingebaut. Wenn das Fenster geschlossen ist, und ich es nach dem Zeitpunkt der Erstellung des Frames erst öffne, geht alles, nichts ist eingefroren, alles läuft wie´s soll und der Frame bleibt auch nach dem Ende der Übertragung da :gruebel: . Hier mal die entsprechenden Code-Schnipsel, ich hoffe ihr könnt mir helfen:

Hier wird das erstellen ausgelöst:

Delphi-Quellcode:

procedure TMainForm.TCPReceiverExecute(AContext: TIdContext);
var
  SizeOfIncomingStream: Integer;
  IDS: TidStreamVCL;
  DateiFrame: TFDatei;
  Target, DGroesse: string;
  DStream: TFileStream;
begin
  if DateiGroesse < 1048576 then DGroesse := RealToStr(DateiGroesse/1024) + ' KB';  //Dateigröße ist eine globale int64 Variable
  if DateiGroesse > 1048576 then DGroesse := RealToStr(DateiGroesse/1024/1024) + ' MB';
  if DateiGroesse > 1073741824 then DGroesse := RealToStr(DateiGroesse/1024/1024/1024) + ' GB';
  DateiFrame := FDownLoad.add(Target, DGroesse);  //<-hier wird der Frame erstellt
  DStream := DateiFrame.FStream;
  Application.ProcessMessages;
  try
    IDS := TidStreamVCL.Create(DStream);
    try
      with AContext.connection do
      begin
        try
          SizeOfIncomingStream := Socket.ReadInteger;
          Socket.ReadStream(IDS, SizeOfIncomingStream);
        finally
          Disconnect;
        end;
      end;
      IDS.VCLStream.Position := 0;
    finally
      FreeAndNil(IDS);
    end;
  finally
    with DateiFrame do
    begin
      Bar.Position := 100;
      Fertig := true;
      FStream.Free;
    end;
  end;
end;

So sieht das der Code für´s Downloadfenster aus:

Delphi-Quellcode:

unit DownLoadForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Math, EmpfDatei, StdCtrls;

type
  TLoadForm = class(TForm)
    SBDateien: TScrollBox;
    BAuf: TButton;
    procedure BAufClick(Sender: TObject);
  private
    { Private-Deklarationen }
    DownloadListe: TList;
    LTimer: TTimer;
  public
    { Public-Deklarationen }
    constructor create(AOwner:TComponent); reintroduce;
    destructor destroy; override;
    procedure TimerUpdate(Sender:TObject);
    function add(Dateiname, Dateigroesse: string): TFDatei;
    procedure del(Index:integer);
    function count:integer;
  end;

var
  LoadForm: TLoadForm;

implementation

{$R *.dfm}

function TLoadForm.count: integer;
begin
  Result := DownloadListe.Count;
end;

constructor TLoadForm.create(AOwner: TComponent);
begin
  inherited create(AOwner);
  DownloadListe:=TList.Create;
  LTimer := TTimer.Create(Self);
  LTimer.Interval := 500;
  LTimer.Enabled := false;
  LTimer.OnTimer := TimerUpdate;
end;

destructor TLoadForm.destroy;
var
  i: integer;
begin
  for i := 1 to DownloadListe.Count do
    TFDatei(DownloadListe[i-1]).free; 
  DownloadListe.free;
  LTimer.free;
  inherited;
end;

procedure TLoadForm.TimerUpdate(Sender: TObject);
var i:integer;
begin
  for i:=1 to DownloadListe.Count do
    TFDatei(DownloadListe[i-1]).Refresh;
  Application.ProcessMessages;
end;

function TLoadForm.add(Dateiname, Dateigroesse: string): TFDatei;
var
  FrameDownload: TFDatei;
  ID, i: integer;
begin
  i := 0;
  ID := 0;
  while (i < DownloadListe.Count) do
  begin
    ID := Max(ID, TFDatei(DownloadListe[i]).ID);
    inc(i);
  end;
  inc(ID);
  FrameDownload:=TFDatei.create(Self, ID, Dateiname, Dateigroesse);
  FrameDownload.Parent:=SBDateien;
  FrameDownload.Align:=alTop;
  LTimer.Enabled := true;
  DownloadListe.Add(FrameDownload);
  for i := 1 to DownloadListe.Count do
    TFDatei(DownloadListe[i-1]).Align:=alBottom;
  for i := 1 to DownloadListe.Count do
    TFDatei(DownloadListe[i-1]).Align:=alTop;
  result := FrameDownload;
  BAuf.Enabled:=(DownloadListe.Count > 0);
end;

procedure TLoadForm.del(Index: integer);
begin
  if (Index >= 0) and (Index < DownloadListe.Count) then begin
    TFDatei(DownloadListe[Index]).free;
    DownloadListe.Delete(Index);
    LTimer.Enabled := (DownloadListe.Count > 0);
    BAuf.Enabled := (DownloadListe.Count > 0);
  end;
end;

procedure TLoadForm.BAufClick(Sender: TObject);
var
  i: integer;
begin
  i := 0;
  while (i < DownloadListe.Count) do
  begin
    if TFDatei(DownloadListe[i]).Fertig then
    begin
      del(i);
    end
    else
      inc(i);
  end;
end;

end.

und so der Code vom Frame:

Delphi-Quellcode:

unit EmpfDatei;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, StdCtrls, ShellAPI;

type
  TFDatei = class(TFrame)
    Label1: TLabel;
    Label2: TLabel;
    LName: TLabel;
    LGroesse: TLabel;
    Bar: TProgressBar;
    Label3: TLabel;
    IIcon: TImage;
    LTyp: TLabel;
    Bevel1: TBevel;
  private
    { Private-Deklarationen }
    DID: integer;
  public
    FileName: String;
    DateiGroesse: Int64;
    FStream: TFileStream;
    DFertig: boolean;
    constructor create(AOwner:TComponent;
                       ID:integer;
                       Dateiname, Dateigroesse: string); reintroduce;
    destructor destroy; override;
    procedure Refresh;
    property Fertig: boolean read DFertig write DFertig;
    property ID: integer read DID;
  end;

implementation

uses ErwEinstellungen, Main;

{$R *.dfm}

function FileIcon(FileName: String): TIcon;
var
  FileInfo: TSHFileInfo;
  AIcon: TIcon;
begin
  FillChar(FileInfo,SizeOf(FileInfo),#0);
  SHGetFileInfo(PChar(FileName),0,FileInfo,SizeOf(FileInfo),SHGFI_ICON or SHGFI_LARGEICON);
  AIcon:=TIcon.Create;
  Try
    AIcon.Handle:=FileInfo.HIcon;
    AIcon.Transparent:=True;
  Except end;
  Result:=AIcon;
end;

function FileType(FileName: String): string;
var
  FileInfo: TSHFileInfo;
begin
  FillChar(FileInfo,SizeOf(FileInfo),#0);
  SHGetFileInfo(PChar(FileName),0,FileInfo,SizeOf(FileInfo),SHGFI_TYPENAME);
  Result := FileInfo.szTypeName;
end;

constructor TFDatei.create(AOwner: TComponent;
                                  ID:integer;
                                  Dateiname, Dateigroesse:string);
begin
  inherited create(AOwner);
  Self.Name := 'FrameDownload' + IntToStr(ID);
  LName.Caption := ExtractFileName(Dateiname);
  LTyp.Caption := FileType(Dateiname);
  LGroesse.Caption := Dateigroesse;
  IIcon.Picture.Icon := FileIcon(DateiName);
  FStream := TFileStream.Create(Dateiname, fmCreate);
  DFertig:=false;
  DID := ID;
end;

destructor TFDatei.destroy;
begin
  inherited;
end;

procedure TFDatei.Refresh;
begin
  if not DFertig then
  begin
    if (FStream <> nil) and (FStream.Position <> 0) then
      Bar.Position := round((FStream.Position * 100) / FStream.Size);
  end;
  Bar.Update;
end;

end.

[DataCool]

Hi Sko,

Du machst das ja von hinten mit der Faust durchs Auge ;-)

Frage 1: Warum Frames ?
Du könntest eine Download-Form erstellen wo nichts drin ist ausser einer Scrollbox oder einem Panel je nach dem was Dir lieber ist.

Für jeden Download erstellst Du dynamisch ein Panel als Parent für das dynamisch erzeugte Panel nimmst Du das Panel oder die Scrollbox die schon auf der Form ist.
Absolut gleiches aussehen wie in Firefox, habe das selber schon mit Indy so in einem Projekt gemacht.

Frage 2: Warum Timer ?
Vergiss den Timer das kann nur schief gehen. Du solltest für jeden Download einen Thread erstellen oder noch eleganter Du schreibst Dir eine eigene Download-Klasse die von TThread erbt und das dynamische erzeugen und zerstören der Panels übernimmt. Im Thread selber musst Du den Download Fortschritt SYNCRONISIERT anzeigen.

*** EDIT ***
Schau Dir mal die Sourcen meiner Demo an :
Versenden von Dateien mit Indy9

Ganz besonders solltest Du Dir die Klasse FileReceiver.pas anschauen im Server-Teil, ist eigentlich genau das was Du suchst ;-)
*** EDIT ***

Hoffe Du kannst mit meiner Erklärung was anfragen,

Gruß Data

[Sko]

Hmm, na gut, ich werds mir mal ansehen, ich dachte ich komm um die Threads herum, ich war froh als der eine in dem Programm lief :lol: (für´s Senden von Dateien). Nur wundert mich das trotzdem etwas, denn eigentlich hab ich omatas Beispiel nur angepasst und das Beispiel funktioniert ja. Na dann werd ich mich nochmal mit Threads auseinandersetzen :coder:

[Sko]

So, jetz gehts: ich habe eine neue Klasse von TThread abgeleitet die sich mit Synchronize um die Erstellung und Aktualisierung der Frames kümmert. Vielen Dank nochmal an omata für das Beispiel und an Angel4585 und DataCool für den Tipp mit dem Thread :thumb: .