Нажмите CTRL-D чтобы добавить нас в закладки
HackZone.RU - stringlist и какой то ошибка Актуальные базы 2GIS в форматах CSV,Excel,SQL
Войти / Регистрация / Участники
Определение даты выпуска iPhone по серийному номеру
-
Поиск по сайту
Форумы



Реклама

Программирование / Delphi & Pascal RSS подписка на сообщения с форума Subscribe Модераторы: RenGO, Leo08, codemaster, B3JIoMep, BRUNOTTI, Virous


Новая тема Наиболее обсуждаемые темы Наиболее посещаемые темы
Поиск 
Период
Перейти

Просмотров - 2230
stringlist и какой то ошибка
Добавить этот топик в закладки »
RSS-лента ответов »Subscribe
B3JIoMep



HackZone TEAM
Platinum Member
# | Сообщение добавлено 14.12.2010 16:54:24
Код:
Text
program Project1;
 
uses
  Windows,
 classes, sysutils;
 

 
var
 
  aa:string;
 
  pap:  TStringList;
  sText : string;
  sd:tstringlist;
  gg:string;
 
  sr: TSearchRec;
 
{$R *.res}
 
begin
pap.Clear;
aa:='C:\';
if directoryexists(aa) then begin
 if FindFirst(aa, faAnyFile, sr) = 0 then
  begin
  repeat
  pap.Add(sr.Name);
  until FindNext(sr) <> 0;
  FindClose(sr);
 end;
gg:=pap.Text;
end;
 
end.
 
При запуске выходит ошибка. В чем дело?
 
Добавлено 14.12.2010 19:41:10 (через 3 часа 47 минут 47 секунд )
 
   up)))

 
гений, миллиардер, плейбой, филантроп)0)
Сказать спасибо Ответить Цитировать

HACK_ER




Platinum Member
# | Сообщение добавлено 14.12.2010 20:09:28
FindFirst принимает директорию с маской, а у тебя просто 'C:\'. А так же у тебя еще должно быть
Delphi
pap:=TStringList.Create;
Сказать спасибо Ответить Цитировать

B3JIoMep



HackZone TEAM
Platinum Member
# | Сообщение добавлено 15.12.2010 07:04:37
Исправил теперь код такой:
Delphi
pap.create;
pap.Clear;
aa:='C:\*.*';
if directoryexists(aa) then begin
 if FindFirst(aa, faAnyFile, sr) = 0 then
  begin
  repeat
  pap.Add(sr.Name);
  until FindNext(sr) <> 0;
  FindClose(sr);
 end;
gg:=pap.Text;
send(acc_sock, gg, length(gg), 0); end
Итог - на сокет приходят какие то непонятные символыэээ
 
гений, миллиардер, плейбой, филантроп)0)
Сказать спасибо Ответить Цитировать

codemaster



Moderator
Platinum Member
# | Сообщение добавлено 07.01.2011 12:37:22
попробуй так:
 
Delphi

pap.create;
pap.Clear;
aa:='C:\*.*';
if directoryexists('c:\') then begin // как может существовать директория "C:\*.*" ?
 if FindFirst(aa, faAnyFile, sr) = 0 then
  begin
  repeat
  pap.Add(sr.Name);
  until FindNext(sr) <> 0;
  FindClose(sr);
 end;
gg:=pap.Text;
if send(acc_sock, gg, length(gg), 0)=socket_error then showmessage('ошибка сокета!') end;
 

 
Сказать спасибо Ответить Цитировать

B3JIoMep



HackZone TEAM
Platinum Member
# | Сообщение добавлено 07.01.2011 12:40:36
Я как бы уже давно исправил)
 
гений, миллиардер, плейбой, филантроп)0)
Сказать спасибо Ответить Цитировать


Только зарегистрированные пользователи могут оставлять сообщения в форуме

Зарегистрироваться *** Авторизоваться

 Последние новости и статьи  Последние сообщения с форумов
  • Самозащита от вируса Petya
  • Google Pixel взломали за 60 секунд
  • В CMS Joomla обнаружена критическая 0-day уязвимость
  • ФБР не смогло взломать протокол шифрования переписки террористов ...
  • Полиция обыскала дом предполагаемого создателя платежной системы ...
  • Google: квантовый ПК будет в 100 млн раз быстрее стандартных чипо...
  • "Лаборатория Касперского" констатирует усиление атак кибергруппир...
  • Microsoft Edge откроет исходные коды ChakraCore
  • Anonymous объявили 11 декабря «днём троллинга» ИГИЛ
  • Миллионы телевизоров, смартфонов и маршрутизаторов оказались уязв...

    Все новости... Все статьи... Прислать новость RSS
  • Разное / Ищу работу » Re: взлом почты на майле
  • Разное / Ищу работу » Re: Взлом емейлов, вконтакте, одноклассники
  • Разное / Ищу работу » Re: Взлом почты mail.ru, yandex.ru, rambler, gmail
  • Разное / Ищу работу » Re: Качественный подбор паролей к почтам. Работаем с 2011 го...
  • Разное / Ищу работу » Re: Взлом ВКонтакте на заказ. Взлом почты на заказ.
  • Интернет / Разное » SOCKS 4/5, HTTPS прокси сервис - proxybuy
  • Программирование / WEB Design » Уроки по JavaScript для начинающих
  • Разное / Ищу работу » Re: Прогон 7ым XRumerоm по форумам, блогам, гостевым. ru и e...
  • Разное / Ищу работу » Re: взлом почты на майле
  • Разное / Предложения работы » Нужен способ заработка, майнинга

    Все форумы... RSS


  • Разместить рекламу
    © HackZone Ltd. 2007-2012. Все права зарегистрированы.
    Перепечатка материалов без согласования и указания источника будет преследоваться по Закону

    О проекте | История проекта | Размещение рекламы | Обратная связь | Правила поведения на портале
    Ya-Cyt службы мониторинга серверов

    #{title}

    #{text}

    x

    #{title}

    #{text}