ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
16.08.2009, 05:52
|
|
Познающий
Регистрация: 13.06.2009
Сообщений: 32
Провел на форуме:
42683
Репутация:
2
|
|
кто прогу может немного переделать?)) чтоб все куки оперы вставлялись в мемо расшифрованы %)
Последний раз редактировалось Seregakz; 16.08.2009 в 06:01..
|
|
|
16.08.2009, 14:36
|
|
Участник форума
Регистрация: 07.01.2009
Сообщений: 186
Провел на форуме:
1247273
Репутация:
166
|
|
CloseFile забыл =)
Плюс, действительно считывать надо не 500 строк:
Код:
while not EOF(f) do
begin
Readln(f, st);
cook:=cook+st;
end;
А вообще - зачет. Надо будет раскидать по сети ))
Последний раз редактировалось ex3me; 16.08.2009 в 14:40..
|
|
|
|
16.08.2009, 21:34
|
|
Познающий
Регистрация: 13.06.2009
Сообщений: 32
Провел на форуме:
42683
Репутация:
2
|
|
Сообщение от ex3me
CloseFile забыл =)
Плюс, действительно считывать надо не 500 строк:
Код:
while not EOF(f) do
begin
Readln(f, st);
cook:=cook+st;
end;
А вообще - зачет. Надо будет раскидать по сети ))
Если чисто весь файл в мемо кинуть то он не отображаетсо =// неподскажеш чтоб все куки грабились чё сделать?))))
|
|
|
|
16.08.2009, 22:39
|
|
Участник форума
Регистрация: 07.01.2009
Сообщений: 186
Провел на форуме:
1247273
Репутация:
166
|
|
Все отображается. Прекрасно. Можешь не в мемо кидать построчно, а Memo1.Lines.LoadFromFile, или же
Код:
var
str:TStrings;
begin
str:=TStringList.Create
str.LoadFromFile('filename');
...
str.Free;
end;
|
|
|
|
17.08.2009, 01:31
|
|
Познающий
Регистрация: 13.06.2009
Сообщений: 32
Провел на форуме:
42683
Репутация:
2
|
|
а моя не внимательность проблемы были с переменой)
токо вот чёт
PHP код:
while not EOF(f) do
begin
Readln(f, st);
cook:=cook+st;
end;
не грузит весь файл))
Последний раз редактировалось Seregakz; 17.08.2009 в 01:36..
|
|
|
|
17.08.2009, 01:46
|
|
Участник форума
Регистрация: 07.01.2009
Сообщений: 186
Провел на форуме:
1247273
Репутация:
166
|
|
Seregakz, у переменных типа string, коей является cook имеется один небольшой недостаток (читай - твоя невнимательность) - ограничение по длинне. Именно поэтому я привел пример загрузки файла не построчно, а целиком в посте #14
|
|
|
|
17.08.2009, 04:05
|
|
Познающий
Регистрация: 13.06.2009
Сообщений: 32
Провел на форуме:
42683
Репутация:
2
|
|
ex3me, токо пример с 14-го поста не проканал =/
Делал так:
PHP код:
str:=TStringList.Create;
str.LoadFromFile(Opera);
memo1.Lines.AddStrings(str);
str.Free;
не подскажеш как разгребсти их в читабельный вид?))) а это это ппц всё вместе)
Последний раз редактировалось Seregakz; 17.08.2009 в 08:37..
|
|
|
|
17.08.2009, 09:41
|
|
Участник форума
Регистрация: 07.01.2009
Сообщений: 186
Провел на форуме:
1247273
Репутация:
166
|
|
|
|
|
|
17.08.2009, 09:49
|
|
Познающий
Регистрация: 13.06.2009
Сообщений: 32
Провел на форуме:
42683
Репутация:
2
|
|
аналогично не пашет) простой файл грузит, а файл с куками нет)
PHP код:
str:=TStringList.Create;
str.LoadFromFile(Opera);
memo1.Lines.Assign(str);
str.Free;
|
|
|
|
18.08.2009, 00:35
|
|
Познающий
Регистрация: 28.01.2009
Сообщений: 90
Провел на форуме:
432613
Репутация:
80
|
|
ну дык нуль терминейт символы в файле есть
храни во времнном буфере, и открывай вот так файл
var FS: TFileStream;
buf: array of char; // временный буфер
begin
FS:=TFileStream.Create('path of file', fmOpenRead);
SetLength(buf, FS.size+1);
FS.Read(buf, FS.Size);
FS.Free;
while not EOF(f) do
begin
Readln(f, st);
cook:=cook+st;
end;
Блин не построчно (Readln), а посимвольно(Read) читать надо
Последний раз редактировалось flacs; 18.08.2009 в 00:41..
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
