Probleme bei Download auf delphilosen Pc

[Jeff93]

Hallo,

habe eine Problem mit meinem kleinen Installationsprogramm, das die Dateien von meiner Homepage in einen Ordner kopieren soll. Dies klappt auch soweit, nur nicht auf meinem Pc. Mein Pc hat kein Delphi noch die dafür nötigen Installationen. Der Pc hat Windows Xp SP2.

Habe dies schon im Tutorial gepostet, ging leider in den Beiträgen unter und entschloss mich es in eingenen Thread zu stellen

Ist es vlt. ein Problem mit der uses UrlMo

Delphi-Quellcode:

const
  HELPURL = 'http://meinehomepage.de/help.ini';

Delphi-Quellcode:

procedure Tfrm_InstallVocTrainer.bbtn_installClick(Sender: TObject);
var
  Ziel, UFile : String;
  Ini         : TIniFile;
  loop, i     : Integer;

  function ExtractUrlFileName(Url:String) : String;
  var SPos : Integer;
  begin
    SPos   := Pos('/', Url);
    if SPos <> 0 then
    begin
      Result := ExtractUrlFileName(Copy(Url, SPos+1, Length(Url)-1));
    end
    else
    begin
      Result := Url;
    end;
  end;

begin
  if ed_InstallDir.Text='' then
    ed_InstallDir.Text := GetProgDir; //Gibt Ordner der Programme zurueck (C:\Programme\)
  Try
    Ziel := ed_InstallDir.Text+'VokabelTrainer\';
    UrlDownloadToFile(nil, HELPURL, PChar(Ziel+ExtractUrlFileName(HELPURL)), 0, nil);
  Except
    ShowMessage('Fehler bei Download');
  End;
  Ini := TIniFile.Create(Ziel+ExtractUrlFileName(HELPURL));
  Try
    Try
      i := Ini.ReadInteger('D-Files','FCount', 0);
      Memo1.Clear;
      Memo1.Lines.Add('Download gestartet');  //Diese beiden sind als einzige im Memo sichtbar
      Memo1.Lines.Add(''); //Diese auch, bin ratlos
      for loop := 1 to i do
      begin
        UFile := Ini.ReadString('D-Files', 'File'+IntToStr(loop), '');
        UrlDownloadToFile(nil, Pchar(UFile), PChar(Ziel+ExtractUrlFileName(UFile)), 0, nil);
        Memo1.Lines.Add(UFile+' nach:');
        Memo1.Lines.Add(Ziel+ExtractUrlFileName(UFile)+' gedownloadet');
      end;
    Except
      ShowMessage('Download fehlgeschlagen!');
    End;
  Finally
    Ini.Free;
  End;
end;

Die Ini sieht so aus

Code:

[D-Files]
FCOUNT=5
File1=http://meinehomepage.de/Options.ini
File2=http://meinehomepage.de/VocabularyTeacher.exe
File3=http://meinehomepage.de/s_neutral.bmp
File4=http://meinehomepage.de/s_right.bmp
File5=http://meinehomepage.de/s_wrong.bmp