Access violation at address in module. Read of address при скачивании файла

@ec6f5d2 · Регистрация: 10.09.2013

Студворк — интернет-сервис помощи студентам

Код программы:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, idhttp, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, clipbrd;
 
type
  Tgf = class(TForm)
    IdHTTP2: TIdHTTP;
  end;
 
var
  gf: Tgf;
implementation
 
{$R *.dfm}
 
procedure GetFile(URL, SavetoFile: string);
 
var
  TM: TMemoryStream;
begin
  if SavetoFile = '' then
    SavetoFile := ExtractFilePath(Application.ExeName);
  try
    try
      TM := TMemoryStream.Create;
      gf.IdHTTP2.Get(URL);
      TM.SavetoFile(SavetoFile);
    except
      on e: exception do
        Clipboard.AsText:=e.Message;
    end;
 
  finally
    TM.Free;
 
  end;
 
end;
 
begin
  GetFile('http://yandex.st/images-thumbs/_/ayZ8t0UFi79MFT3ZHmsRm62fr8s.jpg', 'D:\file\')
 
end.

@FIL · 10.09.2013, 22:40

Добавь кнопку, щелкни по ней 2 раза - появится обработчик нажатия. Перенеси туда GetFile(...
37 строка: form2.IdHTTP1.Get(URL, TM);

@ec6f5d2 · 10.09.2013, 22:44 **[ТС]**

Добавил TM, заработало!

Добавлено через 27 секунд
Спасибо!
А если без кнопки, то у меня правильно?

Добавлено через 1 минуту
И есть ли функция чтобы взять расширение файла из ссылки? Или самому писать?

@FIL · 10.09.2013, 22:46

Сообщение от ec6f5d2

А если без кнопки, то у меня правильно?

Если работает - значит правильно

Сообщение от ec6f5d2

И есть ли функция чтобы взять расширение файла из ссылки? Или самому писать?

ExtractFileExt

@ec6f5d2 · 10.09.2013, 22:47 **[ТС]**

Все, понял, спасибо

@volvo · 10.09.2013, 22:51

А ExtractFileExt-у как-то все равно, в какой строке искать последнюю точку, и возвращать все символы, которые за ней следуют... Что из локального имени файла, что из URL-а... Или вообще из:

Delphi
1
  ShowMessage(ExtractFileExt('Hello.World'));

@ec6f5d2 · 10.09.2013, 22:58 **[ТС]**

Спасибо, большое спасибо

Новые блоги и статьи Все статьи Все блоги /
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .

@FIL Модератор 3492 / 2614 / 742 Регистрация: 19.09.2012 Сообщений: 7,978
	10.09.2013, 22:40
	Добавь кнопку, щелкни по ней 2 раза - появится обработчик нажатия. Перенеси туда GetFile(... 37 строка: form2.IdHTTP1.Get(URL, TM); 0

@ec6f5d2 2 / 2 / 2 Регистрация: 10.09.2013 Сообщений: 72
	10.09.2013, 22:44 [ТС]
	Добавил TM, заработало! Добавлено через 27 секунд Спасибо! А если без кнопки, то у меня правильно? Добавлено через 1 минуту И есть ли функция чтобы взять расширение файла из ссылки? Или самому писать? 0

@ec6f5d2 2 / 2 / 2 Регистрация: 10.09.2013 Сообщений: 72
	10.09.2013, 22:47 [ТС]
	Все, понял, спасибо 0

@ec6f5d2 2 / 2 / 2 Регистрация: 10.09.2013 Сообщений: 72
	10.09.2013, 22:58 [ТС]
	Спасибо, большое спасибо 0