aqwapaq
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Создал VCL. Удалил форму. Почему не работает так составленный код? Код: program Phttp5435; uses Forms, IdHTTP,IdComponent,SysUtils, IdBaseComponent; {$R *.res} var POSTData: TStringList; 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. | 2. Создал консольное приложение Тоже не работает: Код: program Project1; {$APPTYPE CONSOLE} uses SysUtils, IdHTTP,IdComponent; var POSTData: TStringList; begin try {$R *.res} 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); except on E:Exception do Writeln(E.Classname, ': ', E.Message); end; end. |
|