Grafik: Grafik laden u. mit Progressbar syncron anz.

[OldDelphi]

Hallo werte Delphi-Freunde,

ich habe mich im September bei Delphi-Praxis angemeldet und möchte mich kurz vorstellen.
Mein Name ist Helmut, bin 58, wohne in Berlin und möchte das Programmieren lernen, weil es mich interessiert.
Ich nutze DELPHI 7 Personal. Vorkenntnisse in Informatik habe ich nicht.
Habe einige kleine Programme für den Hausgebrauch "gebastelt". Zur Zeit möchte ich mir ein kleines Bildbearbeitungsprogramm "bauen".
Da möchte ich eine Grafik in ein Image laden und diesen Vorgang mit der Progressbar syncron anzeigen lassen.
Leider habe ich beim Stöbern nur einen Code gefunden, der das Kopieren einer Datei mit der Progressbar realisiert.

Delphi-Quellcode:

procedure TForm1.CopyFileWithProgressBar1(Source, Destination: String);
var FromF, ToF: file of byte;
    Buffer: array[0..4096] of Char;
    NumRead: integer;
    FileLength: longint;
    t1, t2: DWORD;
    maxi: integer;
begin
   AssignFile(FromF, Source);
   reset(FromF);
   AssignFile(Tof, Destination);
   rewrite(ToF);
   FileLength:= FileSize(FromF);
   with ProgressBar1 do
     begin
        Min:= 0;
        Max:= FileLength;
        t1 := TimeGetTime;
        maxi:= Max div 4096;
        while FileLength > 0 do
          begin
            BlockRead(FromF, Buffer[0], SizeOf(Buffer), NumRead);
            FileLength:= FileLength - NumRead;
            BlockWrite(ToF, Buffer[0], NumRead);
            t2:= TimeGetTime;
            Min:= Min + 1 ;
            Label1.Caption:= FormatFloat('0.00',((t2-t1)/min*maxi - t2+t1)/50);
            Application.ProcessMessages;
            Position:= Position + NumRead;
          end;
       CloseFile(FromF);
       CloseFile(Tof);
     end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin 
  CopyFileWithProgressBar1('F:\Meine Bilder\S7000001.bmp','E:\Meine Dateien\Gabi\Kopie\S7000001.bmp');
end;
Autor: Thomas Stuz, gefunden in SwissDelphiCenter.ch

Kann mir jemand Tips geben, wie ich diese Prozedur umbauen kann, um eine Grafik in ein Image zu laden?

Ich bedanke mich im Voraus für die Mühe und bin auf die Antwort(en) gespannt.
Mit besten Grüssen

Helmut

[mimi]

Ich glaube das brauchst du gar nicht. Wenn du TImage verwendest. Das müsste ein Entsprechendes Event haben. Meine ich... Wenn nicht:
Ich würde die Procedure so um schreiben, dass ich ein Stream laden kann. Denn könnte ich dann nutzen, z.b. für eine TBitMap oder so.

[jfheins]

Ähh .... Die Richtlinie ist ungefähr "Bei allem was länger als 1 Sekunde dauert, Sanduhrcursor anzeigen, über 5 Sekunden Forschritssleiste"
Was für ein Bild ist das, was du da laden möchtest?

Wenn ich mir das Recht überlege, müsstest du das laden nämlich drastisch verlangsamen, um überhaupt etwas von der Fortschrittsleiste zu haben (lies: "um sehen zu können, wie sie sich füllt") ...

[mimi]

Es könnte doch auch sein, dass es ein größeres Bild ist, was er laden möchte.

[Blup]

Wenn z.B. eine große Grafik auf einem langsamen Speichermedium liegt, könnte man die Datei mit einem FileStream öffnen, blockweise in einen MemoryStream kopieren und dabei den Fortschritt anzeigen.
Die Grafik aus dem MemoryStream zu laden, sollte dann aber wirklich in unter einer Sekunde möglich sein.

[OldDelphi]

Hallo,

vielen Dank für die Antworten auf meine Anfrage. Werde mit den Tips experimentieren.
In nächster Zeit werde ich allerding nicht dazu kommen. Melde mich, wenn ich eine brauchbare
Lösung gefunden habe.
Auf die Frage von jfheins: Ich möchte alle Grafikformate ggf. laden.

Der Delphi-Gemeinde frohe Feiertage und einen guten Rutsch !

MfG
Helmut