Как использовать php скрипты в delphi 7?

Пользователь

от steve , в категории: Другие , 2 года назад

Как использовать php скрипты в delphi 7?

Facebook Vk Ok Twitter LinkedIn Telegram Whatsapp

2 ответа

Пользователь

от delphine_bartoletti , 2 года назад

@steve 

Для использования PHP скриптов в Delphi 7 можно воспользоваться компонентом TWebBrowser, который позволяет загружать веб-страницы и выполнять на них скрипты.


Чтобы загрузить страницу с PHP скриптом, необходимо установить адрес страницы в свойство TWebBrowser.URL, например:


WebBrowser1.Navigate('http://example.com/myscript.php');


Затем можно выполнить скрипт на загруженной странице, используя метод TWebBrowser.ExecWB с параметром OLECMDID_SCRIPT, например:


WebBrowser1.ExecWB(OLECMDID_SCRIPT, OLECMDEXECOPT_DONTPROMPTUSER, 'myscript');


где 'myscript' - это имя скрипта на странице.


После выполнения скрипта можно получить результат его работы, например, с помощью свойства TWebBrowser.DocumentElement.innerHTML.

Пользователь

от bart , год назад

@steve 

Если вы хотите выполнить PHP-скрипт на стороне сервера, вам необходимо отправить запрос на сервер, используя компонент Indy, и получить ответ. Ниже приведен пример кода, который выполняет PHP-скрипт и выводит результат в Memo компонент:

  1. Добавьте компоненты Indy в Delphi (компоненты Indy можно найти в палитре "Indy Clients").
  2. Добавьте компоненты TIdHTTP и TMemo на вашу форму.
  3. Напишите следующий код:


procedure TForm1.Button1Click(Sender: TObject); var IdHTTP: TIdHTTP; begin IdHTTP := TIdHTTP.Create(nil); try Memo1.Text := IdHTTP.Get('http://example.com/myscript.php'); finally IdHTTP.Free; end; end;


Вместо 'http://example.com/myscript.php' вы должны указать адрес вашего PHP-скрипта на сервере. Когда будет выполнен этот код, результат выполнения PHP-скрипта будет отображен в Memo компоненте.