Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=125504&view=findpost&p=946797 Tue, 13 Dec 2005 06:22:19 +0000 Ошибка 'Abstract Error' https://forum.sources.ru/index.php?showtopic=125504&view=findpost&p=946797 Rouse_ Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=125504&view=findpost&p=946777 Tue, 13 Dec 2005 05:36:59 +0000 Ошибка 'Abstract Error' https://forum.sources.ru/index.php?showtopic=125504&view=findpost&p=946777
    var
    subdirs: TStringList;
    ........................
    subdirs:= TStringList.Create;
    .................................
    end


Цитата
... но почему то происходит ошибка 'Abstract Error' на стороне сервера.
.... дык..." TStrings contains abstract methods and should not be directly instantiated."(с)]]> Тестировщица Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=125504&view=findpost&p=946747 Tue, 13 Dec 2005 03:55:17 +0000 Ошибка 'Abstract Error' https://forum.sources.ru/index.php?showtopic=125504&view=findpost&p=946747
    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' на стороне сервера.
думаю, что контент не подходит для отправки.... Либо как то не так отправлять надо...]]> VAP Delphi: Сетевое программирование