Forum: Sonstige Fragen zu Delphi
Delphi
by The Lord,
20. Mär 2007
Ich habe das jetzt mal versucht zu ändern. Also es wird alles kompiliert und auch der download funktioniert. Nur dann zeigt mir das Status-Label an, dass ein Fehler aufgetreten ist. Und dann läuft der download anscheinend unendlich weiter. Vielleicht habe etwas an falscher Stelle eingesetzt oder deklariert.
procedure TForm4.Button1Click(Sender: TObject);
var
BytesKopiert,...
Forum: Sonstige Fragen zu Delphi
Delphi
by The Lord,
18. Mär 2007
Das habe ich erfolgreich geändert.
Woher kennt er die Variable 'DateigrößeBytes' ?
Werden die alten Ereignisse durch deine neuen ersetzt oder ergänzt? Ersetzt, oder?
--
Gruß
Forum: Sonstige Fragen zu Delphi
Delphi
by The Lord,
15. Mär 2007
Hi Lun,
ja richtig, ich habe auch das Beispiel benutzt. Die Datei wird heruntergeladen und immer wieder in sich selbst kopiert (wie soll ich es anders sagen ^^).
Hast du das Problem denn gelöst? Man muss also die Abbruchbedingung der Repeat-Schleife ändern, bzw. die Dateigröße anpassen?
Gute Nacht! :angel:
Forum: Sonstige Fragen zu Delphi
Delphi
by The Lord,
12. Mär 2007
Ich hab noch rumprobiert, aber der läd einfach zu viel herunter :(
Woran liegt das? :wiejetzt:
Grüße
Forum: Sonstige Fragen zu Delphi
Delphi
by The Lord,
11. Mär 2007
Ok es klappt. Ich habe nur die falsche Adresse genommen, ich musste Sie erst aus dem PHP-Code auslesen! Danke für alles... :)
Forum: Sonstige Fragen zu Delphi
Delphi
by The Lord,
11. Mär 2007
Jetzt funktioniert das Programm. Aber wieso muss ich die Quelldatei für idHTTP.pas suchen? Normalerweise hat er das automatisch gemacht, oder irre ich mich?
Ich habe die Datei gefunden, aber jetzt stürzt das Programm ab, wenn ich auf den Button klicke und es kommt eine Fehlermeldung mit: 'Unknown Protocol'!
Und jetzt?
Forum: Sonstige Fragen zu Delphi
Delphi
by The Lord,
11. Mär 2007
Hi,
ich wollte den Code ausprobieren, aber ich bekomme eine Masse an Fehlermeldungen. Warum funktioniert das nicht?
procedure THaupt.IdHTTPWorkBegin(ASender: TObject; AWorkMode: TWorkMode;
AWorkCountMax: Integer);
Hier z.B.: ';' erwartet, aber '.' gefunden