 |
|
09.07.2009, 22:28
|
|
Новичок
Регистрация: 19.01.2009
Сообщений: 8
С нами:
9109371
Репутация:
1
|
|
подскажите.
Код:
procedure TForm1.button1Click(Sender: TObject);
var
Index: Integer;
Temp: TStringList;
begin
Temp:= TStringList.Create();
for Index:= 0 to Bana.Count - 1 do
begin
if (Bana[Index] <> '') and (Temp.IndexOf(Bana[Index]) = -1) then
Temp.Add(Bana[Index])
end;
try
begin
Temp.SaveToFile...
и при нажатии на кнопку выходит ошибка:
Project raised exception class EAccessViolation with message...
и становиться на строку for Index:= 0 to Bana.Count - 1 do
в чем проблема? |
|
|
10.07.2009, 11:00
|
|
Участник форума
Регистрация: 16.07.2008
Сообщений: 159
С нами:
9379190
Репутация:
240
|
|
Когда делаю такой запрос
Код:
Memo1.Text:= idHTTP1.Get('http://mail.ru');
норм сорц грузит, а если
Код:
Memo1.Text:= idHTTP1.Get('http://my.mail.ru/mail/wasja.lllw/');
Вылезает ошибка 302, что сделать чтобы сорц тоже грузило? |
|
|
|
10.07.2009, 11:03
|
|
Участник форума
Регистрация: 16.07.2008
Сообщений: 159
С нами:
9379190
Репутация:
240
|
|
Все разобрался)
поставил
idhttp1.HandleRedirects:=true;
|
|
|
|
10.07.2009, 14:17
|
|
Познающий
Регистрация: 15.02.2008
Сообщений: 98
С нами:
9598011
Репутация:
50
|
|
2boomba мож Bana не инициализирован? Оо
добавь if Assigned(Bana) then перед циклом
Код:
if Assigned(Bana) then
for Index:= 0 to Bana.Count - 1 do
и посмотри что получиться.
|
|
|
|
10.07.2009, 17:45
|
|
Новичок
Регистрация: 19.01.2009
Сообщений: 8
С нами:
9109371
Репутация:
1
|
|
спасибо. обошлось без ошибки.
|
|
|
|
11.07.2009, 03:39
|
|
Постоянный
Регистрация: 31.01.2008
Сообщений: 643
С нами:
9619229
Репутация:
445
|
|
Есть стринг такого вида
str:='c:\catalog\number1\program.exe';
Как вырезать слово program.exe и вставить в другую переменную?(делфи)
|
|
|
|
11.07.2009, 07:01
|
|
Участник форума
Регистрация: 02.07.2007
Сообщений: 189
С нами:
9926261
Репутация:
212
|
|
Сообщение от diznt
Есть стринг такого вида
str:='c:\catalog\number1\program.exe';
Как вырезать слово program.exe и вставить в другую переменную?(делфи)
str:=Copy(str,20,Length(str)-20);
и в str у тебя будет program.exe
что то типо такого
Последний раз редактировалось Freedom; 11.07.2009 в 07:03..
|
|
|
|
11.07.2009, 07:54
|
|
Постоянный
Регистрация: 31.01.2008
Сообщений: 643
С нами:
9619229
Репутация:
445
|
|
Сообщение от Freedom
str:=Copy(str,20,Length(str)-20);
и в str у тебя будет program.exe
что то типо такого
Чуть дополню вопрос для непонятливых
Путь до программы может быть разным...
|
|
|
|
11.07.2009, 09:12
|
|
Участник форума
Регистрация: 02.07.2008
Сообщений: 132
С нами:
9399214
Репутация:
52
|
|
sr:=extractfilename(str);
в sr твоё имя файла ток подключи модуль sysutils
|
|
|
|
11.07.2009, 12:50
|
|
Участник форума
Регистрация: 21.03.2009
Сообщений: 207
С нами:
9021828
Репутация:
119
|
|
есть рега на сайте . хочу сделать для нее бота , который сам регистрируется.
рега очень простая, несколько полей ввода типа: логин, пароль, секретный вопрос,ответ на него,майл + одна кнопка.
Я делал так , заполнял поля и нажимал на кнопку. А возможно ли осуществить подобное отправкой одного пост запроса?
перехватил отправку данных на их сервер (через Firefox Tamper Data)
и вот что получилось...
POSTDATA=login=jijidjijio&pass=ijiojioijio&questio n=ijiojiooioihiosxsx&answer=ihiohihoioh&email=ihih oihoi&submit=%26%231043%3B%26%231086%3B%26%231090% 3B%26%231086%3B%26%231074%3B%26%231086%3B
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
