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