Модераторы: Snowy, Poseidon, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Abstract Error, замучался уже... 
:(
    Опции темы
Romikgy
Дата 13.2.2006, 16:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 3
Всего: 146
Код

procedure Down.Execute;
begin
  try
    ms:=TMemoryStream.Create;
    idHttp1 := TidHttp.Create(form1);
    //idHttp1.OnWork := OnDl;
    idHttp1.Get(fileurl,ms);
    ms.SaveToFile(Filename);
    ms.Position:=0;
  finally
    idHttp1.Free;
  end;
end;

А так тоже ошибка?
Добавлено @ 16:59
Ксати может так надо?
Код

procedure Down.Execute;
begin
  try
    ms:=TMemoryStream.Create;
    idHttp1 := TidHttp.Create(form1);
    idHttp1.OnWork := OnDl;
    idHttp1.Get(fileurl,ms);
    ms.Position:=0;
    ms.SaveToFile(Filename);

  finally
    idHttp1.Free;
  end;
end;



--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
Somebody32
Дата 13.2.2006, 17:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Overclocker
*


Профиль
Группа: Участник
Сообщений: 85
Регистрация: 2.1.2006
Где: Санкт-Петербург

Репутация: нет
Всего: 1
Romikgy, нет, если закомментить вызов onDl, то тогда вылетает лишь AbstractError... во втором варианте картина та же.
PM MAIL ICQ   Вверх
Romikgy
Дата 13.2.2006, 17:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 3
Всего: 146
Цитата(Somebody32 @ 13.2.2006, 16:03 Найти цитируемый пост)
если закомментить вызов onDl, то тогда вылетает лишь AbstractError.

Дык значит ошибка не в этом коде, закоментируй вызов потока
Код

function GetInetFile (fileURL,FileName: String): boolean;
  begin
  Form1.StatusBar1.Panels.Items[0].Text:='Состояние: Скачиваю файл';
  Unit3.FileUrl:=fileurl;
  Unit3.Filename:=filename;
  //co:=down.Create(False);
  //co.Priority:=tplowest;
 end;

Допустим так


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
Somebody32
Дата 13.2.2006, 17:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Overclocker
*


Профиль
Группа: Участник
Сообщений: 85
Регистрация: 2.1.2006
Где: Санкт-Петербург

Репутация: нет
Всего: 1
Romikgy, я же несколько постов назад говорил, что ошибка в потоке! Я, помимо нее сть еще ошибка Parametr List differ, которая меня тоже напрягает, но она в строке
Код

 idHttp1.OnWork := OnDl;


Сама Abstact Error в потоке.
PM MAIL ICQ   Вверх
Romikgy
Дата 13.2.2006, 17:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 3
Всего: 146
Цитата(Somebody32 @ 13.2.2006, 16:16 Найти цитируемый пост)
Сама Abstact Error в потоке.

И в каком месте потока? эта ошибка? дебагером мож пройтись?
Добавлено @ 17:25
Код

procedure Down.Execute;
begin
  try
    ms:=TMemoryStream.Create;
    idHttp1 := TidHttp.Create(form1);
    idHttp1.OnWork := OnDl;
    idHttp1.Get(fileurl,ms);
    ms.SaveToFile(Filename);
    ms.Position:=0;
  finally
    idHttp1.Free;
    ms.Free;
idhttp1:=nil;
ms:=nil;
  end;
end;



--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
Somebody32
Дата 13.2.2006, 17:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Overclocker
*


Профиль
Группа: Участник
Сообщений: 85
Регистрация: 2.1.2006
Где: Санкт-Петербург

Репутация: нет
Всего: 1
Romikgy, сложно, т.к. ниразу не пользовался.
PM MAIL ICQ   Вверх
Romikgy
Дата 14.2.2006, 09:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 3
Всего: 146
Так пошло или нет?


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
Somebody32
Дата 14.2.2006, 14:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Overclocker
*


Профиль
Группа: Участник
Сообщений: 85
Регистрация: 2.1.2006
Где: Санкт-Петербург

Репутация: нет
Всего: 1
Romikgy, нет, твой код не помог. Как деббагером пользоваться?
PM MAIL ICQ   Вверх
Romikgy
Дата 14.2.2006, 15:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 3
Всего: 146
Ставишь точки останова , где непонятно что происходит, и вперед
Добавлено @ 15:24
Брррр.....
Код

 Down = class(TThread)
  private
  protected
  procedure ShowProgress;
  procedure OnDl(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
  procedure Execute;[B] overrided; [/B]

  end;


Где съел overrided; ,
если взялся писать потоки , дык посмотри как они описываются smile



--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
Somebody32
Дата 14.2.2006, 15:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Overclocker
*


Профиль
Группа: Участник
Сообщений: 85
Регистрация: 2.1.2006
Где: Санкт-Петербург

Репутация: нет
Всего: 1
Romikgy, так, я поставил эти точки на всех строках, ошибка вылетала, но в окне ошибки я заметил галочку Ignore this exeption, поставил, нажал ok, всё ошибка не вылетает =) осталось теперь только ondl ошибку побороть.
PM MAIL ICQ   Вверх
Romikgy
Дата 14.2.2006, 15:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 3
Всего: 146
Цитата(Somebody32 @ 14.2.2006, 14:30 Найти цитируемый пост)
эти точки на всех строках

Какие точки?
Я те про
Цитата(Romikgy @ 14.2.2006, 14:20 Найти цитируемый пост)
overrided; ,
говорил,


Цитата(Somebody32 @ 14.2.2006, 14:30 Найти цитируемый пост)
Ignore this exeption

дык эксепшены обробатывать нуно а не игнорировать


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
Демо
Дата 15.2.2006, 20:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 3
Всего: 50
>Somebody32

Посмотри вот этот полностью рабочий пример:

Присоединённый файл ( Кол-во скачиваний: 2 )
Присоединённый файл  indy_Download.ra_ 8,51 Kb


--------------------
    
PM MAIL ICQ Skype   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Сети | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0519 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.