#1
  1. No Profile Picture
    Registered User
    Devshed Newbie (0 - 499 posts)

    Join Date
    Jul 2004
    Posts
    21
    Rep Power
    0

    Downloading multiple URLs


    Ok, I'm making a program, and to start out it downloads files from a variable amount of URLs, but for some reason the files don't get downloaded. Can anyone tell me whats wrong with my code?
    Code:
    unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, urlmon;
    
    type
      TForm1 = class(TForm)
        procedure FormCreate(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    
    procedure TForm1.FormCreate(Sender: TObject);
    var
    input:string;
    urls:TStringList;
    i:integer;
    path:string;
    saveto:string;
    inputnum:integer;
    begin
    urls := TStringList.Create;
    inputnum := StrToInt( InputBox('', 'how many URLs do you have?',''));
    for i := 1 to inputnum do
    begin
    input := inputbox('URL', 'Type the URL', '');
    urls.Add(input);
    end;//end loop
    path := ExtractFilePath(Application.ExeName);
    for i := 0 to urls.Count-1 do
    begin
    saveto := path + IntToStr(i);
    URLDownloadToFile(nil, PChar(urls[i]), PChar(saveto), 0, nil);
    end;
    end;
    
    end.
  2. #2
  3. Banned ;)
    Devshed Supreme Being (6500+ posts)

    Join Date
    Nov 2001
    Location
    Woodland Hills, Los Angeles County, California, USA
    Posts
    9,642
    Rep Power
    4247
    Works for me. I noticed is it doesn't work if you don't include a http:// in your url when you type it in. If you include the http:// when typing in the URL, it works fine.
    Up the Irons
    What Would Jimi Do? Smash amps. Burn guitar. Take the groupies home.
    "Death Before Dishonour, my Friends!!" - Bruce D ickinson, Iron Maiden Aug 20, 2005 @ OzzFest
    Down with Sharon Osbourne

    "I wouldn't hire a butcher to fix my car. I also wouldn't hire a marketing firm to build my website." - Nilpo
  4. #3
  5. No Profile Picture
    Registered User
    Devshed Newbie (0 - 499 posts)

    Join Date
    Jul 2004
    Posts
    21
    Rep Power
    0
    oh ok, thanks a lot =).

IMN logo majestic logo threadwatch logo seochat tools logo