Hallo Leute,
ich bin grad voll am verzweifeln. Ich bin grad dabei so nen kleinen Browser zu proggen. Dafür hab ich auch so ne Art Downloadmanager gebastelt-besser gesagt: Ich bin noch dabei. Und jetzt fangen meine Probleme an.
Ich wollte es so handhaben, dass wenn die Endung der Datei in der Adressleiste z.B. 'exe' ist ein kleines Form (nennen wir es DownloadForm) aufgeht, und die datei herunterlädt. Funktionier auch. Nun wollte ich aber so haben, dass ich bzw. der User nicht nur eine datei runterladen kann, sondern mehrere DownloadForms gleichzeitig auf haben kann. Ich dachte, man kann das so lösen:
Delphi-Quellcode:
.
.
.
var
Fenster: TDownloadForm;
begin
Fenster := TDownloadForm.Create(MainForm);
Fenster.StartDownload(
URL);
end;
In der Prozedur Fenster.StartDownload steht folgended:
Delphi-Quellcode:
var
DownloadingFileName:
String;
DownloadingFilePath:
String;
begin
DownloadingFileName := GetFileNameOfURL(
URL);
DownloadingFilePath := GetPathOfDataURL(
URL);
FileNameLabel.Caption := DownloadingFileName;
OrtLabel.Caption := DownloadingFilePath;
Save.FileName := DownloadingFileName;
URLOfFile :=
URL;
DownloadDataForm.Show;
end;
Wenn ich das DownloadForm jetzt klassisch über DownloadForm.StartDownload(
URL); aufrufe klappt alles prima!
Rufe ich es aber wie oben beschreiben über meine Fenster Variable auf, klappt außer dem DownloadForm.Show; nichts.
D.h. die Label's z.B. bekommen keine neue Caption usw.
Kann mir evtl. jemand sagen, woran das liegen könnte?