web в консоли? реально?

[Graer0k]

реально ли сделать следущее:
Есть веб сервер apache2+php.
на нем лежит index.php некоторым кодом.
Реально сделать чтобы Консольное приложение подключалось как браузер?

[Ecosasha]

Консольное приложение - это же как я понял просто приложение без визуальной формы.
А что конктретно хотите делать? Зачем это.

Если, например, на дельфи делать, то как вариант, сделать динамическое создание компонентов Indy и подключиться к странице и скачать ее, и потом уже делать что хочешь. Можно и другими средствами, все зависит от целей и задач.

[Graer0k]

Мне надо чтобы сервер выполнил скрипт php. К примеру он узнает с какова я ip зашел на сайт, он его в бд записывает. А мненадо чтобы не через браузер а через консоль

[raxp]

на сокетах ...пример

[Alex Cones]

Мне надо чтобы сервер выполнил скрипт php. К примеру он узнает с какова я ip зашел на сайт, он его в бд записывает. А мненадо чтобы не через браузер а через консоль

А вы что, думаете, что он не запишет IP, если вы зайдете с консоли? IP - он общий для компа.

[Graer0k]

raxp
Спс!


Да не суть запишет или нет. Мне надо чтобы он зашел. С консоли)

[Ecosasha]

IP адрес полюбому нужен будет, хоть свой хоть чужой, пробуйте заходить через прокси, если надо, но это уже совсем отдельная тема.

Вот, например, если мы решили делать это с помощью Indy, то код будет примерно такой:

uses idHttp;
var
  idhttp1: TidHttp;
  Str: TStringList;
  fs: TFileStream;
begin
  {создаем компонент}
        idhttp1:=TidHttp.Create(self);
   {позволяем кукиес}
     idHttp1.AllowCookies:=true;
   {позволяем автопереход на другую страницу, если такой есть на странице}
        idHttp1.HandleRedirects:=true;
   {указываем порт}
        idHttp1.Port:=80;
        {здесь ставим прокси, если надо}
        IdHTTP1.ProxyParams.ProxyServer:='127.29.30.01';
        IdHTTP1.ProxyParams.ProxyPort:=8080;
        IdHTTP1.ProxyParams.ProxyUsername:='';
        IdHTTP1.ProxyParams.ProxyPassword:='';

        {создвем переменную для параметров}
        Str:=TStringList.Create;
        Str.Clear;

        {устанавливаем header заголовок также там refer - с какой страницы ссылка на следующую страницу}
        idHttp1.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 5.5; Windows 98)';
        idHttp1.Request.AcceptLanguage := 'ru';
        idHttp1.Response.KeepAlive := true;


        idHttp1.Request.Referer:='mysite.ru'; //
        {текущий сайт}



        {код сохранения файла со страницы}
        try
          fs:=tfilestream.create('file.png',fmcreate);
          idhttp1.get('http://site.ru',fs);
        finally
          fs.free;
        end;

        {заполняем параметры}
        Str.Add('param1='+'MYLogin'); //указываем параметры для запроса
        Str.Add('param2='+'MYParol');

         {отображаем результат в мемо}
        MemoComments.Text:=IdHTTP1.Post('Здесь указываем страницу с запросом', Str);

       idHttp1.Free;
       Str.Free;
end;

В целом, примерно, так, более подробно лучше почитать в разделе "Работа с сетью в Delphi" на нашем форуме, также там и найдете и литературу.
Но, если разбираетесь, то в целом вышеуказанного кода думаю при должной доработке вполне достаточно.

[Graer0k]

Всё что мне надо было:

program Project2;

{$APPTYPE CONSOLE}

uses
  Windows,
  MMSystem,idHttp;

var
t,mmTimer: integer;
    idhttp1: TidHttp;

//обработчик таймера
procedure mmTimerProc(TimerID,Msg: Uint; dwUser,dw1,dw2: DWORD); pascal;
begin
  idhttp1.Get('http://xxx');

end;

begin
  idhttp1:=TidHttp.Create(nil);
 idhttp1.HandleRedirects:=true;
 idhttp1.Get('http://xxx');

  t:=30000; //интервал в мс
  //включить таймер
  mmTimer:=TimeSetEvent(t,0,@mmTimerProc,0,TIME_PERIODIC);
  readln;
end.

[raxp]

...чем не понравился пример на API?

[Ecosasha]

Вот интересно, а на API при работе с сокетами переадресация нормально проходит?
То есть, то за что в Indy отвечает => idhttp1.HandleRedirects:=true; ?