Post запрос из Файла

 
0
 
Delphi, Kylix and Pascal
ava
HoZeY | 11.06.2009, 18:27
Как отправить пост запрос я знаю.


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
Ответы (10)
ava
Keeper89 | 11.06.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
ava
HoZeY | 13.06.2009, 00:59 #
Цитата (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в. Как мне быть?
ava
Magister Y0da | 13.06.2009, 06:42 #
Цитата (HoZeY @ 13.6.2009, 00:59 findReferencedText)
допустим у меня файл 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
ava
HoZeY | 13.06.2009, 09:08 #
Цитата (Magister Y0da @ 13.6.2009, 06:42)
Цитата (HoZeY @  13.6.2009, 00:59 \\"findReferencedText\\")
допустим у меня файл 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в
ava
Magister Y0da | 13.06.2009, 09:37 #
так... что-то я не понимаю...
у тебя есть ~20 файлов вида

query=
username=vasya
password=123456
submitted=submit

так?

логины/пароли везде разные или одинаковые?
ava
Keeper89 | 13.06.2009, 12:37 #
Действительно, как сказал Magister Y0da, логичнее хранить в файлах связку логин+пароль.
А так сформулируйте задачу более четко, немного непонятно что вам нужно в итоге.
ava
HoZeY | 13.06.2009, 21:05 #
У меня ~20 файлов с параметрами для пост. Они НЕ ОДНОТИПНЫЕ.
В каждом из файлов есть параметры Login и Password.
Логин и пароль одинаковый во всех 20 файлах.
Что бы поменять логины и пароли, когда нужно, мне нужно будет редактировать 20 или более файлов, что займет некоторое время.
Вот я хочу узнать, можно ли как-то упростить эту задачу изменения логин/пароль. Что бы вручную не редактировать.
что можете посоветовать
ava
Keeper89 | 13.06.2009, 22:51 #
HoZeY, т.е. логин и пароль везде одинаковые, отличаются только остальные параметры?
ava
HoZeY | 13.06.2009, 23:12 #
Цитата (Keeper89 @ 13.6.2009, 22:51)
HoZeY, т.е. логин и пароль везде одинаковые, отличаются только остальные параметры?

да
ava
Keeper89 | 13.06.2009, 23:31 #
Тогда в папке с этими 20 файлами можно создать отдельный файл с логином и паролем, и соответственно загружать его лишь один раз для всех 20 файлов с параметрами.
Зарегистрируйтесь или войдите, чтобы написать.
Фирма дня
Вы также можете добавить свою фирму в каталог IT-фирм, и публиковать статьи, новости, вакансии и другую информацию от имени фирмы.
Подробнее
Участники
advanced
Отправить