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 ?

[Dalai]

Zitat:

Zitat von Premaider (Beitrag 1165094)

Das Problem ist dann müsste ich das Programm immer ändern.

Äh, wie wär's mit ner INI, XML, Registry oder notfalls Textdatei?

MfG Dalai, der sich immer noch wundert, warum Pfade (egal ob lokal, im LAN oder Internet) hartkodiert werden...

[Luckie]

Caste die URL nach PChar. Die Funktion erwartet einen PChar. Gibst du ein Stringliteral an, macht das der Compiler für dich automatisch. Das funktioniert aber nicht mehr, wenn du die Zeichenkette zusammenbaust.

[Premaider]

Habe jetzt alles so gemacht wie es funktionieren müsste.
Programm ist im Angang. Es werden jetzt die richtigen Datein heruntergeladen, aber wenn man den Haken bei
Checkbox1 gesetzt hat, startet der "MC-Patcher" nicht und es wird auch kein Prozess des downloads mehr
bei der Gauge angezeigt.
Vllt. könnt ihr mir ja helfen.

Zitat:

Zitat von Dalai (Beitrag 1165104)

Zitat:

Zitat von Premaider (Beitrag 1165094)

Das Problem ist dann müsste ich das Programm immer ändern.

Äh, wie wär's mit ner INI, XML, Registry oder notfalls Textdatei?

MfG Dalai, der sich immer noch wundert, warum Pfade (egal ob lokal, im LAN oder Internet) hartkodiert werden...

Hab ich jetzt hier so gelöst. Eventuell kannst du dir ja mein Programm anschauen und mir sagen was falsch ist oder
was ich besser machen kann. Das würde mir als Anfänger sehr helfen :D

[Bummi]

Lass Dir mal anzeigen was Du aufrufst...

Delphi-Quellcode:

Showmessage(UserAppData+'.minecraft\texturepacks\mcpatcher-'+Memo3.Lines[0]+'.exe');
If CheckBox1.checked=true Then

[himitsu]

=true ? :shock:

Zitat:

Zitat von Premaider

Delphi-Quellcode:

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

Zitat:

Zitat von Luckie

Caste die URL nach PChar. Die Funktion erwartet einen PChar

Sehr guter Vorschlag, aber mal so als Tipp:
Hat schonmal jemand einen Parameter weiter geschaut? :roll:

[Dalai]

Zitat:

Zitat von Premaider (Beitrag 1165116)

Hab ich jetzt hier so gelöst.

Das ist zwar etwas besser, aber nicht wirklich. Wieso benutzt du nicht eine Textdatei, die z.B. im selben Verzeichnis wie das Programm liegt, in der alle URLs enthalten sind, die geladen werden sollen? Die liest du in eine Stringliste ein und lädst sie mit einzeln runter (mit ner Schleife natürlich).

Noch eine andere Frage: Warum benutzt du TMemos, wenn du davon eh nur die erste Zeile belegst? Da kann man auch gleich bei nem TEdit bleiben.

Und noch etwas: Benutze aussagekräftige Bezeichner! Memo1 bis Memo4, Button1, Label1 & Co sind es nicht. Gib den Dingern Namen, die aussagen, was sie tun oder was sie anzeigen.

MfG Dalai

[Premaider]

Danke für die vielen Antworten werde mich sofort dransetzten wenn ich von der Schule wieder da bin :D

[p80286]

Zitat:

Zitat von Dalai (Beitrag 1165127)

Wieso benutzt du nicht eine Textdatei, die z.B. im selben Verzeichnis wie das Programm liegt, in der alle URLs enthalten sind, die geladen werden sollen? Die liest du in eine Stringliste ein und lädst sie mit einzeln runter (mit ner Schleife natürlich).

Naja unter %user%\AppData\Myapp wären sie etwas besser aufgehoben.

Gruß
K-H

[Premaider]

So. Ich will mich erstmal um die funktionalität kümmern.
Projektdatein sind wieder im Anhang. Die 2 Datein werden richtig gedownloaded,
aber es wird kein Downloadprozess angezeigt. Und vorallem, wenn die Datein schon da sind
wird

Delphi-Quellcode:

BINDSTATUS_FINDINGRESOURCE:

aber nicht angewendet.
Findet ihr den Fehler ?

[Premaider]

Hoffe bis ich morgen wenn ich von der Schule ist eine Antwort/Lösung da. Sonst muss ich alles neuschreiben und dann schauen obs funktioniert.

[Medium]

Das wäre ja tragisch, wo du schon so freundlich gepushed hast.

[Premaider]

Es ist wichtig, das es bis Mittwoch fertig ist. Da braucht man ja schnelle Hilfe

[Premaider]

Da man hier leider langsam verwirrt wird was jetzt das neue Problem ist werde ich ein neues
Thema erstellen um alles nochmal richtig zu posten.
#closerequest