.zip-Archiv in bestimmtes Archiv herunterladen

[DeddyH]

Versuch mal, ob das passt:

Delphi-Quellcode:

uses SHFolder;

function SpecialFolder(CSIDL: integer): string;
const
  SHGFP_TYPE_CURRENT = 1;
begin
  SetLength(Result, MAX_PATH);
  SHGetFolderPath(0, CSIDL, 0, SHGFP_TYPE_CURRENT, PChar(Result));
  SetLength(Result, StrLen(PChar(Result)));
end;

function UserAppData: string;
begin
  Result := SpecialFolder(CSIDL_APPDATA);
end;

[Premaider]

Zitat von DeddyH:

Versuch mal, ob das passt:

Delphi-Quellcode:

uses SHFolder;

function SpecialFolder(CSIDL: integer): string;
const
  SHGFP_TYPE_CURRENT = 1;
begin
  SetLength(Result, MAX_PATH);
  SHGetFolderPath(0, CSIDL, 0, SHGFP_TYPE_CURRENT, PChar(Result));
  SetLength(Result, StrLen(PChar(Result)));
end;

function UserAppData: string;
begin
  Result := SpecialFolder(CSIDL_APPDATA);
end;

Wohin geht der jetzt ? Nur zu Appdata ? Und was ist jetzt das "Ergebnis" das ich als Programmpfad angeben muss. Sorry klingt vllt ein bisschen "dumm" aber ich bin ein ziemlicher Anfänger.

[s.h.a.r.k]

[klugscheiss_mode_on]
Auch, wenn es nichts mit dem Thema zu tun hat, aber das Ding nennt sich Archiv und nicht Archiev
[/klugscheiss_mode_on]

[Premaider]

Oh ups

[DeddyH]

ShowMessage(UserAppData); Da siehst Du, was ermittelt wird und kannst den Rest dranhängen.

[Premaider]

Zitat von DeddyH:

ShowMessage(UserAppData); Da siehst Du, was ermittelt wird und kannst den Rest dranhängen.

Sieht jetzt bei mir so aus:
urldownloadtofile(nil,'http://img3.imagebanana.com/img/k789yl2d/AssassinsCreed_Dx102008061616351998.jpg','UserAppData\.minecraft\texturepacks',0,nil); Habe die größe .zip Datei mal durch ein einfaches Bild ersetzt. Jedoch lädt er es nicht in das Gewünschte Verzeichnis. Ist es möglich dabei einige downloadinfos anzeigen zu lassen ? Weil bei der 30MB .zip-Datei kann das ja schon etwas dauern, also downloadgeschwindigkeit und restdauer oder so

[s.h.a.r.k]

Du musst das schon richtig platzieren! Zeig mal den Code, den du gerade hast -- halt einen sinnvollen Ausschnitt davon!

[himitsu]

Zitat von DeddyH:

Delphi-Quellcode:

function UserAppData: string;
begin
  Result := SpecialFolder(CSIDL_APPDATA);
end;

Unit SysUtils:
GetHomePath (das entspricht dem CSIDL_APPDATA, unter Windows ... im Linux ist es die Environmentvariable HOME und Mac weiß ich jetzt nicht)

Unit IOUtils:
TPath.GetTempPath
TPath.GetHomePath

[DeddyH]

Prima, zumal die Delphi-Version nicht angegeben ist. Das ganze Dorf ist stolz auf Dich.

[himitsu]

Zitat von DeddyH:

Prima, zumal die Delphi-Version nicht angegeben ist. Das ganze Dorf ist stolz auf Dich.

Dann ist er selber Schuld, wenn er nichts sagt.
Vielleicht hat er ja eine passende Version?

Und ich kann es nicht angeben, da ich es nicht weiß (leider wird sowas ja nicht in der OH erwähnt).
Ist aber vermutlich irgendwann ab D2006 bis XE dazugekommen.

War aber auch für dich und Andere bestimmt. (im XE ist es schon drin)