как из delphi задать выполнение php-скрипта на сайте?

[Dux]

Собственно вопрос, есть страница http://www.mysite/file.php

необходимо программно из дельфи выполнить этот php-файл. (как-бы открыть эту страницу фактически не открывая). Просто необходимо получить результат выполнения этой страницы.

В принципе, для выполнения можно банально загрузить в TWebBrowser, однако необходимо, чтобы этот процесс происходил скрыто (в фоновом режиме).

Есть ли какие-то соображения?

[veniside]

выполнить где, на сервере или на клиенте?
Если на сервере, то посылаете HTTP GET запрос, и сервер сам всё выполнит и вернёт результат.

[bulldog5293]

В принципе, для выполнения можно банально загрузить в TWebBrowser, однако необходимо, чтобы этот процесс происходил скрыто (в фоновом режиме).

Создаёш форму со свойством HIde, кидаеш Idhttp и прописыва от ситлуации Idhttp1.get или Idhttp.post

[Dux]

Сообщение от veniside

выполнить где, на сервере или на клиенте?
Если на сервере, то посылаете HTTP GET запрос, и сервер сам всё выполнит и вернёт результат.

На сервере. Если не затруднит, можно примерчик HTTP GET запроса?

[veniside]

ну вот простейший код, который посылает запрос и ждёт ответа. Ответ заносится в memo. Ожидание заканчивается по закрытию сокета или если нет новых данных в течение 10 секунд.

uses
  ScktComp;

procedure TForm1.Button1Click(Sender: TObject);
var
  myClient: TClientSocket;
  req, resp: string;
  tc: Integer;
begin
  Memo1.Lines.Clear();
  //
  with (TClientSocket.Create(nil)) do try
    //
    ClientType := ctBlocking;
    host := 'php.net';
    port := 80;
    //
    Open();
    //
    req := 'GET /docs.php HTTP/1.0'#13#10 +
           'Connection: close'#13#10 +
           #13#10;
    //
    Socket.SendText(req);
    //
    tc := GetTickCount();
    while (Socket.Connected) do begin
      //
      Application.ProcessMessages();
      //
      if (0 < Socket.ReceiveLength) then begin
        //
        resp := Socket.ReceiveText();
        if ('' <> resp) then begin
          //
          tc := GetTickCount();
          Memo1.Text := Memo1.Text + resp;
        end  
        else
          break;
      end
      else begin
        //
        Sleep(10);
        if (GetTickCount() - tc > 10000) then
          break;
      end;
    end;
    //
  finally
    Free();
  end;
end;

Код достаточно примитивный, просто показывает принцип общения с ХТТП сервером. В реальном проекте сокет может работать в ctNonBlocking режиме, с использованием потоков, событий и т.д.

Или можно использовать готовый IdHHTP компонент, как подсказали выше.