aqwapaq
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Есть код программы которая посылает POST запрос на сервер. Проблема в том, что для отправки нужно нажать на кнопку формы, когда нужен файл который выполнит эту функцию автоматически и закроется. Т.е требуется максимально автоматизировать процесс. (Не нужны формы, кнопки и прочий GUI) Заранее спасибо! Вот код: Код: unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdCustomTransparentProxy, IdSocks, IdHTTP, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, StdCtrls; type TForm2 = class(TForm) Button1: TButton; IdHTTP1: TIdHTTP; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form2: TForm2; response :TStringList; POSTData: TStringList; implementation {$R *.dfm} procedure TForm2.Button1Click(Sender: TObject); begin POSTData := TStringList.create; POSTData.add('modem_log_st_poe=&hang_up_st_poe=Disconnect&message='); IdHTTP1.Post('http://192.168.0.1/Status.htm/st_poe.cgi' ,POSTData); end; end. | Добавлено: Привет всем! Есть код который создает форму и кнопку. В обработчике кнопки стоит процедура посылки post запроса на сервер (вид процедуры- не суть). Что выполняется при запуске файла: 1. Создается форма (с кнопкой) 2. Ожидается нажатие на кнопке или закрытие программы Что надо: 1. После запуска файла немедленно выполнить процедуру 2. Ожидать завершения процедуры 3. Выход PS. программа не должна создавать форму и другие GUI элементы (т.е взаимодействие с пользователем не нужно) Вот код: Код: 1. unit Unit2; 2. 3. interface 4. 5. uses 6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7. Dialogs, IdCustomTransparentProxy, IdSocks, IdHTTP, IdBaseComponent, 8. IdComponent, IdTCPConnection, IdTCPClient, StdCtrls; 9. 10. type 11. TForm2 = class(TForm) 12. Button1: TButton; 13. IdHTTP1: TIdHTTP; 14. procedure Button1Click(Sender: TObject); 15. 16. private 17. { Private declarations } 18. public 19. { Public declarations } 20. end; 21. 22. var 23. Form2: TForm2; 24. response :TStringList; 25. POSTData: TStringList; 26. 27. implementation 28. 29. {$R *.dfm} 30. 31. procedure TForm2.Button1Click(Sender: TObject); 32. begin 33. POSTData := TStringList.create; 34. POSTData.add('modem_log_st_poe=&hang_up_st_poe=Disconnect&message='); 35. IdHTTP1.Post('http://192.168.0.1/Status.htm/st_poe.cgi' ,POSTData); 36. end; 37. 38. end. |
|