Programm funktioniert nicht mehr ???

[Premaider]

Hey Leute. Ich habe euch das Programm als Anhang hochgeladen.
Bis jetzt wurden die 2 Datein beim klicken auf Button1 herunterladen und im
gewünschten Ordner platziert, doch seit ich mal eine zweite Form hatte die ich
aber schon wieder gelöscht habe funktioniert dies nicht mehr. Die Dateien sind zwar
da aber nur 2kb groß. Warum ? :(

[Premaider]

Kann mir niemand helfen ?

[Jens Hartmann]

Du hast die uses Anweisung deiner zweiten Form noch nicht aus dem Code entfernt...

Delphi-Quellcode:

implementation

uses Unit2;

{$R *.dfm}
{$R Design.res}

[Premaider]

Hab ich jetzt gemacht. Immernoch selber Fehler. Starte mal das Programm, setz den hacken bei der Checkbox und installier dann :(

[Horst0815]

Ersetze die URLs

Delphi-Quellcode:

status := URLDownloadToFIle(nil,'http://claasfansblog.gaming-society.net/premaider/Premaidercraft%20v3.0.zip',
     PChar(Datei),0,CDownStatus);
    cDownStatus.Free;

   Datei := IncludeTrailingPathDelimiter(Pfad) + 'Mc-Patcher.exe';
  cDownStatus := cDownloadStatusCallBack.Create;

   status := URLDownloadToFIle(nil,'https://github.com/downloads/pclewis/mcpatcher/mcpatcher-2.3.6_03.exe',
     PChar(Datei),0,CDownStatus);
    cDownStatus.Free;

URLDownloadToFIle läd dir nur die Website wenn du nix anderes angibst

[Premaider]

Das Problem ist dann müsste ich das Programm immer ändern. Kennt ihr evtl. Weiterleitungs-Seiten wie goo.gl wo ich die URL auf die weitergeleitet wird immer ändern kann ?

[Horst0815]

Mit dem TWebbrowser sollte der Download so funktionieren

[Premaider]

Zitat:

Zitat von Horst0815 (Beitrag 1165095)

Mit dem TWebbrowser sollte der Download so funktionieren

Aber ich will ja, dass alles automatisch funktioniert.

EDIT:

Habe eine Seite gefunden mit der es funktioniert (tiny.cc)
Danke für eure hilfe :D

[Luckie]

Leg dir eine zweite Datei in den Ordner, in der der Name der herunterzuladenden Datei steht.

[Premaider]

Ich habe noch eine Frage.
Ich lade mir eine .txt Datei herunter und
setze den Inhalt in eine Memo ein.

Jetzt möchte ich, dass memo1.lines[0] dem downloadlink hinzugefügt wird.

Etwa so:

Delphi-Quellcode:

URLDownloadToFIle(nil, 'http://claasfansblog.gaming-society.net/premaider/Premaidercraft'+PreVersion+'.zip' ,
     PChar(Datei),0,CDownStatus);

PreVersion ist Memo1.lines[0].

Jetzt kommt aber immer ein PChar und String fehler. Egal was ich mache. Wie löse ich das ?