Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 20.04.2009, 19:02   #21
mustang007
Пользователь
 
Регистрация: 13.04.2009
Сообщений: 72
По умолчанию

Но ссылки же переключает вроде джаваскрипт? а через пост её не как не льзя принять?
mustang007 вне форума
Старый 20.04.2009, 19:04   #22
mustang007
Пользователь
 
Регистрация: 13.04.2009
Сообщений: 72
По умолчанию

Но вроде ссылки на капчу джаваскрипт переключает???а через пост не как нельзя принять?
mustang007 вне форума
Старый 20.04.2009, 19:08   #23
Joe_Tribbiani
Форумчанин
 
Аватар для Joe_Tribbiani
 
Регистрация: 14.02.2009
Сообщений: 110
По умолчанию

ну так а зачес те джаваскрипт: ты получил содержиое страницы через idhttp методом get. Потом как в обычной строковой переменной, ищещ в результате ссылку на картинку, отображаеш её в имаге потом на ту же страницу отправляеш пост запрос, только в переменную passwd вносиш код с имаге
Joe_Tribbiani вне форума
Старый 20.04.2009, 19:53   #24
mustang007
Пользователь
 
Регистрация: 13.04.2009
Сообщений: 72
По умолчанию

Ну вот получаю код
Код:
 procedure TForm1.Button4Click(Sender: TObject);
var
list: TStringList;
begin
  list := TStringList.Create;
  list.Add('SmsNick=value');  
  list.Add('submit=value');
try
    memo7.lines.text := IdHTTP1.Post('http://www.megafonkavkaz.ru/sms',list);
  finally
//освобождение
    list.Free;
    IdHTTP1.Disconnect;
  end;
end;
end.
А как прописать именно в этой строке именно эту ссылку открыть?
P.S тока этот код ещё сразу должен post данные отправлять, в инете нашёл

Последний раз редактировалось mustang007; 20.04.2009 в 19:56. Причина: просто так
mustang007 вне форума
Старый 20.04.2009, 20:28   #25
Joe_Tribbiani
Форумчанин
 
Аватар для Joe_Tribbiani
 
Регистрация: 14.02.2009
Сообщений: 110
По умолчанию

да, это и есть отправка пост запрос
ну сначала напиши
Код:
  
str - строка
str := IdHTTP1.get('http://www.megafonkavkaz.ru/sms');
в коде html есть такая строчка
Код:
<img xmlns:fe="http://apache.org/cocoon/fragmentextractor/2.0" border="0" src="svg-images/71980513309457388603640786609295326545.png?"
где
71980513309457388603640786609295326 545.png? - капча

тоесть те надо найти это чтрочку в строке str и вытащить её... думаю ты с этим справишся))
так ты получиш ссылку на изображение, скачаеш его и оторазиш в имаге.
теперь отпарвляй пост запрос

Код:
procedure TForm1.Button4Click(Sender: TObject);
var


list: TStringList;
begin
  list := TStringList.Create;
  list.Add('phone_number=номер');  
  list.Add('msg=Сообщение');
 list.Add('passwd=капча');

try
IdHTTP1.Post('http://www.megafonkavkaz.ru/sms',list);
  finally
//освобождение
    list.Free;
    IdHTTP1.Disconnect;
  end;
end;
end.

Последний раз редактировалось Joe_Tribbiani; 20.04.2009 в 20:30.
Joe_Tribbiani вне форума
Старый 21.04.2009, 15:11   #26
mustang007
Пользователь
 
Регистрация: 13.04.2009
Сообщений: 72
По умолчанию

Спасибо!тока где-то в примерах я видел что не list.add а data.add какое из этого правильно?

Вот код поиска в memo
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
Find:string;
i:integer;
begin
find:=Edit1.Text;
For i:=0 to Memo1.Lines.Count-1 do
If Pos(FIND, Memo1.Lines.Text)<>0
Then
Begin
Memo1.SetFocus();
Memo1.SelStart:=Pos(FIND,Memo1.Lines.Text)-1;
Memo1.SelLength:=Length(FIND);
end;
end;
end.
Но он наиденный текст выделяет как сделать чтоб он его копирывал в edit2??

Последний раз редактировалось mustang007; 21.04.2009 в 15:18.
mustang007 вне форума
Старый 21.04.2009, 15:19   #27
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

все зависит от того как ты назвал переменную для хранения строк запроса(те которые Addишь)
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума
Старый 21.04.2009, 16:56   #28
mustang007
Пользователь
 
Регистрация: 13.04.2009
Сообщений: 72
По умолчанию

Вот код
Код:
procedure TForm1.Button2Click(Sender: TObject);
var
Find:string;
i:integer;
begin
find:='svg-images/';
For i:=0 to Memo1.Lines.Count+10 do
If Pos(FIND, Memo1.Lines.Text)<>0
Then
Begin
Memo1.SetFocus();
Memo1.SelStart:=Pos(FIND,Memo1.Lines.Text)-1;
Memo1.SelLength:=Length(FIND);
end;
end;
end.
Можно ли сделать так чтоб он выделил тока те символы которые находятся между определёнными знаками например "текст" ???
mustang007 вне форума
Старый 21.04.2009, 17:10   #29
Joe_Tribbiani
Форумчанин
 
Аватар для Joe_Tribbiani
 
Регистрация: 14.02.2009
Сообщений: 110
По умолчанию

Я б на твоём месте искал так (протестируй может я там чуток ошибся...):

Код:
var
str,link:string;
k:integer;
begin
link:='';

str:='<img xmlns:fe="http://apache.org/cocoon/fragmentextractor/2.0" border="0" src="';
k:=pos(str,memo1.lines.text) + length(str);

while memo1.lines.text[k]<>'"' do begin
link:=link+memo1.lines.text[k];
inc(k);
en;

link:='http://www.megafonkavkaz.ru/'+link;

end;
терь в переменной link будет ссылка вида:
Код:
http://www.megafonkavkaz.ru/svg-images/71980513309457388603640786609295326545.png?

Последний раз редактировалось Joe_Tribbiani; 21.04.2009 в 17:24.
Joe_Tribbiani вне форума
Старый 21.04.2009, 17:17   #30
mustang007
Пользователь
 
Регистрация: 13.04.2009
Сообщений: 72
По умолчанию

неа не пашет,
вот тут синей чертой подчеркиваиет
while memo1.lines.text[k]<>'"' do
mustang007 вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Обход капчи kobe24 Общие вопросы по программированию, компьютерный форум 13 09.03.2009 20:28
Загрузка в Image и считование Cookies Volt Общие вопросы Delphi 0 04.02.2009 15:42
Загрузка .ico на image через Resource delphin100 Мультимедиа в Delphi 6 28.01.2009 18:44
Вывод капчи, работа с куками. NikLik Работа с сетью в Delphi 3 10.10.2008 11:58
Image, загрузка JPEG Terran Мультимедиа в Delphi 4 19.12.2007 20:08