Progressbar um Loadfromfile fortschritt anzuzeigen.

[Nelphin]

Zitat von himitsu:

Tut mir Leid, aber diese Streamdekoratoren bringen nicht wirklich, denn eine StringList ließt erstmal den gesamten Stream oder die Datei ein, seit D2009 wird der dann im Ganzen decodiert (TEncoding) und danach als Ganzes an SetTextStr aka .Text übergeben ... das Einlesen ist also nur ein Bruchteil dessen, was da passiert.

Also bringt es nicht viel, da was NUR am Stream machen zu wollen.

Hier hätte man erstmal eine Variante für BIS Delphi 2007, wo allergings erstmal nur die Stringaufteilung beachtet wird.
[add]
OK, hab noch schnell LoadFromStream reingemacht, wo und nur wird mit -1 der Start des Einlesens der Daten aus dem Stream, bzw. aus der Datei angezeigt und bei 0 würde mit dem Zerlegen des Textes begonnen.

Wenn das jemand noch für D2009/D2010 haben will, so möge er sich melden.
(dort wurde ja so Einiges erweitert)
[/add]

Delphi-Quellcode:

// If Progress = -1 then, it will start reading the file/stream data.
Type TProgressyEvent = Procedure(Sender: TObject; Progress: Byte) of Object;
  TProgressStrings = Class(TStringList)
  Private
    FProgress: TProgressyEvent;
  Protected
    Procedure SetTextStr(Const Value: String); Override;
    Property OnProgress: TNotifyEvent Read FProgress Write FProgress;
  Public
    Procedure LoadFromStream(Stream: TStream); Override;
  End;

Procedure TProgressStrings.SetTextStr(Const Value: String);
  Var
    P, Start: PChar;
    S: String;
  Begin
    BeginUpdate;
    Try
      If Assigned(FProgress) Then FProgress(Self, 0);
      Clear;
      P := Pointer(Value);
      If P <> nil Then
        While P^ <> #0 do Begin
          Start := P;
          While not (P^ in [#0, #10, #13]) do Inc(P);
          SetString(S, Start, P - Start);
          Add(S);
          If P^ = #13 Then Inc(P);
          If P^ = #10 Then Inc(P);
          If Assigned(FProgress) Then FProgress(Self,
            Length(Value) * 100 div (Integer(P) - Integer(Value)));
        End;
      If Assigned(FProgress) Then FProgress(Self, 100);
    Finally
      EndUpdate;
    End;
  End;

Procedure TStrings.LoadFromStream(Stream: TStream);
  Var
    Size: Integer;
    S: String;
  Begin
    BeginUpdate;
    Try
      Size := Stream.Size - Stream.Position;
      If Assigned(FProgress) Then FProgress(Self, -1);
      SetString(S, nil, Size);
      Stream.Read(Pointer(S)^, Size);
      SetTextStr(S);
    Finally
      EndUpdate;
    End;
  End;

Will man auch noch das Laden haben, dann müßte man noch LoadFromStream überschreiben, dann hätte man schonmal den Begin des Ladens und die Zeit für's Decodieren, und will man auch noch das Laden selber, dann müßte man wirklich noch eine Streambehandlung implementieren.

hmm jetzt hast du mich neugierig gemacht... ich verstehe davon nicht wirklich viel, wie bringe ich das zum laufen?
ich habe versucht es in eine anwendung reinzupasten dabei musste ich aber die Zeile
Procedure TStrings.LoadFromStream(Stream: TStream); in
Procedure TProgressStrings.LoadFromStream(Stream: TStream); ändern weil mein delphi meinte Unit2 enthielte kein element mit namen Loadfromstream...

jetzt sind die fehler weg aber wenn ich compilieren will kommt für die Zeile:

 Property OnProgress: TNotifyEvent Read FProgress Write FProgress; die Fehlermeldung:

Zitat:

[Pascal Fehler] Unit2.pas(30): E2010 Inkompatible Typen: 'TProgressyEvent' und 'TNotifyEvent'

was muss ich sonst noch auf meinem formular haben damit dein code funktioniert?
testweise habe ich zur zeit folgende ladeprocedur in einen butten geklatscht:

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var laden:Topendialog;
var start,dauer:Cardinal;
var sl:tstringlist;
begin

Laden:=Topendialog.create(self);
sl:=TStringlist.Create;

 if Laden.execute then begin
    start := GetTickCount();
      sl.LoadFromFile(laden.FileName);

 end;

dauer  := GetTickCount() - start;


panel1.caption:='Laden hat '+(floattostr(dauer/1000))+' Sekunden gedauert';

end;

und eine progressbar in die form gezogen... wie vertüdel ich jetzt das alles richtig?