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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Ошибка 'Abstract Error', Возникает при пересылке 
:(
    Опции темы
posta
Дата 13.12.2005, 06:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Подскажите, плиз, в чем проблема. Вываливается "Абстрактная ошибка"...

Код




procedure ListFileDir(Path: string; FileList: TStrings);
 var
   SR: TSearchRec;
 begin
   if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then
   begin
     repeat
       if (SR.Attr <> faDirectory) then
       begin
         if (sr.Attr and faDirectory)<>0 then FileList.Add('+ папка '+SR.Name)
         else  if (sr.Attr and faHidden)<>0 then FileList.Add(' - файл '+SR.Name+' размер: '+inttostr(SR.Size)+'байт - скрытый')
         else  if (sr.Attr and faSysFile)<>0 then FileList.Add(' - файл '+SR.Name+' размер: '+inttostr(SR.Size)+'байт - системный')
         else  FileList.Add(' - файл '+SR.Name+' - '+inttostr(SR.Size));
       end;
     until FindNext(SR) <> 0;
     FindClose(SR);
   end;
 end;






var
  subdirs: TStrings;
  separ: '#10';

if copy(sub_str,1,i-1)='dirlist' then
begin
  sub_str:=copy(s,i+3,length(s)-i+3); // здесь идет значение, например 'C:\' 
  subdirs:= TStrings.Create;
  ListFileDir(sub_str, subdirs);
  subdirs.Insert(0,'dirlist'+separ);  // #10 - разделитель в строке

 memStr:=  TMemoryStream.Create;
 memStr.Position:=0;
 subdirs.SaveToStream(memStr);
 memStr.Position:=0;
 Socket.SendStream(memStr);  // здесь отправляется на клиент ... 

end



... но почему то происходит ошибка 'Abstract Error' на стороне сервера.
думаю, что контент не подходит для отправки.... Либо как то не так отправлять надо...
PM MAIL   Вверх
Snowy
Дата 13.12.2005, 10:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
Потому что Tstrings - абстрактный класс.
Нужно использовать его наследника: TStringList.
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

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

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

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

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

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


 




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


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

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