Модераторы: Snowy, Poseidon, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Post запрос из Файла, Если такое возможно 
:(
    Опции темы
HoZeY
Дата 11.6.2009, 17:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 19.11.2008

Репутация: нет
Всего: нет
Как отправить пост запрос я знаю.

Код

procedure TForm1.BitBtn6Click(Sender: TObject);
begin
    namer:=edit1.Text;
    pass:=edit2.Text;
  try
    zap:=TStringList.Create;
    Application.ProcessMessages;
    zap.Add('username='+namer);
    zap.Add('password='+pass);
    idhttp1.Post('http://site.ru/login.php/',zap);
    except
    end;
  zap.Free;
end;


Вопрос вот в чем. Можно ли сделать чтоб программа отправляла Post-запрос, который записан в файле?
Чтоб редактировать пост-запрос в файле, а не в делфи.
Делфи у меня 7
Спасибо

smile 
PM MAIL WWW   Вверх
Keeper89
Дата 11.6.2009, 20:49 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 6
Всего: 58
Можно, почему нет:
Код

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  zap: TStringList;
begin
  try
    zap := TStringList.Create;
    zap.LoadFromFile('login.txt');
    idhttp1.Post('http://site.ru/login.php/', zap);
  finally
    zap.Free;
  end;
end;

где файл (login.txt) содержит строки (жестко прописанные):
Код

username=petya
password=123


Это сообщение отредактировал(а) Keeper89 - 11.6.2009, 20:50


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
HoZeY
Дата 13.6.2009, 00:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 19.11.2008

Репутация: нет
Всего: нет
Цитата(Keeper89 @ 11.6.2009,  20:49)
Можно, почему нет:
Код

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  zap: TStringList;
begin
  try
    zap := TStringList.Create;
    zap.LoadFromFile('login.txt');
    idhttp1.Post('http://site.ru/login.php/', zap);
  finally
    zap.Free;
  end;
end;

где файл (login.txt) содержит строки (жестко прописанные):
Код

username=petya
password=123

Спасибо.
Но из этого возникает еще вопрос:

допустим у меня файл Login.txt содержит строки:
Код

query=
username=vasya
password=123456
submitted=submit


Но параметры username=vasya и password=123456 мне нужно взять из Edit`oв. Как мне быть?

Это сообщение отредактировал(а) HoZeY - 13.6.2009, 01:03
PM MAIL WWW   Вверх
Magister Y0da
Дата 13.6.2009, 06:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Зелёненький
*


Профиль
Группа: Участник
Сообщений: 235
Регистрация: 30.11.2004

Репутация: нет
Всего: 2
Цитата(HoZeY @  13.6.2009,  00:59 Найти цитируемый пост)
допустим у меня файл Login.txt содержит строки:
query=
username=vasya
password=123456
submitted=submit

возникает вопрос... зачем дважды имя пользователя? в файле и в эдитах?
если например в файле их не будет то можно сделать так
Код

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  zap: TStringList;
begin
  try
    zap := TStringList.Create;
    zap.LoadFromFile('login.txt');
    zap.Add('username='+edit1.text);
    zap.add('password'+edit2.text);
    idhttp1.Post('http://site.ru/login.php/', zap);
  finally
    zap.Free;
  end;
end

--------------------
PM MAIL ICQ   Вверх
HoZeY
Дата 13.6.2009, 09:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 19.11.2008

Репутация: нет
Всего: нет
Цитата(Magister Y0da @ 13.6.2009,  06:42)
Цитата(HoZeY @  13.6.2009,  00:59 Найти цитируемый пост)
допустим у меня файл Login.txt содержит строки:
query=
username=vasya
password=123456
submitted=submit

возникает вопрос... зачем дважды имя пользователя? в файле и в эдитах?
если например в файле их не будет то можно сделать так
Код

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  zap: TStringList;
begin
  try
    zap := TStringList.Create;
    zap.LoadFromFile('login.txt');
    zap.Add('username='+edit1.text);
    zap.add('password'+edit2.text);
    idhttp1.Post('http://site.ru/login.php/', zap);
  finally
    zap.Free;
  end;
end

Если бы меня устраивал этот вариант, я бы не просил помощи, но все равно  спасибо.

НО, у меня таких файлов как Login.txt будет около 20 или больше. Значит будет около 20 разных параметров для POST
Что бы не редактировать все Login.txt, изменяя параметры имя и пароль, хотелось бы брать их из Edit`oв
PM MAIL WWW   Вверх
Magister Y0da
Дата 13.6.2009, 09:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Зелёненький
*


Профиль
Группа: Участник
Сообщений: 235
Регистрация: 30.11.2004

Репутация: нет
Всего: 2
так... что-то я не понимаю...
у тебя есть ~20 файлов вида
Код

query=
username=vasya
password=123456
submitted=submit

так?

логины/пароли везде разные или одинаковые?
--------------------
PM MAIL ICQ   Вверх
Keeper89
Дата 13.6.2009, 12:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 6
Всего: 58
Действительно, как сказал Magister Y0da, логичнее хранить в файлах связку логин+пароль.
А так сформулируйте задачу более четко, немного непонятно что вам нужно в итоге.


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
HoZeY
Дата 13.6.2009, 21:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 19.11.2008

Репутация: нет
Всего: нет
У меня ~20 файлов с параметрами для пост. Они НЕ ОДНОТИПНЫЕ.
В каждом из файлов есть параметры Login и Password.
Логин и пароль одинаковый во всех 20 файлах.
Что бы поменять логины и пароли, когда нужно, мне нужно будет редактировать 20 или более файлов, что займет некоторое время.
Вот я хочу узнать, можно ли как-то упростить эту задачу изменения логин/пароль. Что бы вручную не редактировать.
что можете посоветовать
PM MAIL WWW   Вверх
Keeper89
Дата 13.6.2009, 22:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 6
Всего: 58
HoZeY, т.е. логин и пароль везде одинаковые, отличаются только остальные параметры?


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
HoZeY
Дата 13.6.2009, 23:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 19.11.2008

Репутация: нет
Всего: нет
Цитата(Keeper89 @ 13.6.2009,  22:51)
HoZeY, т.е. логин и пароль везде одинаковые, отличаются только остальные параметры?

да
PM MAIL WWW   Вверх
Keeper89
Дата 13.6.2009, 23:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 6
Всего: 58
Тогда в папке с этими 20 файлами можно создать отдельный файл с логином и паролем, и соответственно загружать его лишь один раз для всех 20 файлов с параметрами.


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Сети | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0817 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.