Сохранение файла + ошибка

[Alex2009]

Ребят где я что упустил? Вызывается ошибка exception class eaccessviolation with message после нажатия в SaveForm1 кнопки "Сохранить"

В массиве music[ListBox1.itemindex].url; у меня хранятся ссылки.

Вот код:

var
  donws: string;
  LoadStream: TMemoryStream;
begin
    LoadStream := TMemoryStream.Create;
    donws:=music[ListBox1.itemindex].url;
    if SaveDialog1.Execute then
    begin
      Form1.idHTTP1.Get(donws, LoadStream);
      LoadStream.SaveToFile(SaveDialog1.FileName + '.mp3');
      LoadStream.Free;
   end;
end;

[Аватар]

Ошибка точно на SaveToFile? А так?

LoadStream.Position:=0;
LoadStream.SaveToFile(SaveDialog1.FileName + '.mp3');

[Alex2009]

Так тоже не работает.
При ошибке выделяет синим текстом в idHTTP такую строку, indy обновлен до последней версии.

DoRequest(Id_HTTPMethodGet, AURL, nil, AResponseContent, AIgnoreReplies);

[Slym]

во первых последовательность

var
  donws: string;
  LoadStream: TMemoryStream;
begin
    if SaveDialog1.Execute then
    begin
      LoadStream := TMemoryStream.Create;
      try
        donws:=music[ListBox1.itemindex].url;
        Form1.idHTTP1.Get(donws, LoadStream);
        LoadStream.SaveToFile(SaveDialog1.FileName + '.mp3');
      finally
        LoadStream.Free;
      end;
   end;
end;

а во вторых URL точно правильный?

[Alex2009]

url правильный 100%

Не работает.

[Alex2009]

подставил уже url с другого сайта, такая же проблема.

[Человек_Борща]

А полный текст ошибки можно зачитать?
Вы вероятно в пустую ячейку стучитесь, включайте отладчик и смотрите.

[Alex2009]

Всем спасибо, разобрался.
Так и не понял в чем было дело, но вот сделал так, заработало.

var
  donws: string;
  Stream:TMemoryStream;
begin
    if SaveDialog1.Execute then
    begin
      Stream:=TMemoryStream.Create;
      try
        donws:=music[ListBox1.itemindex].url;
        IdHTTP1.Get(donws,Stream);
        Stream.SaveToFile(SaveDialog1.FileName + '.mp3');
      except
        on e:Exception do
        Stream.Free;
      end;
   end;
end;

[Alex2009]

Ребят еще вопрос, в LisxBox у меня ссылки на песни, как мне сделать так что бы выделенные Index`ы с ссылками по очереди закачивались?
Качаю сейчас потоками. Дайте пример или хоть какую нибудь инфу.

[Аватар]

Свойство Selected - True для выделенных. И цикл. Да, и правильнее

      try
        try
          donws:=music[ListBox1.itemindex].url;
          IdHTTP1.Get(donws,Stream);
          Stream.SaveToFile(SaveDialog1.FileName + '.mp3');
        except
          on e:Exception do ...
        end;
      finally
        Stream.Free;
      end;