Работа с PHP, Delphi7

[DarckSol]

Помогите реализовать, выложите простейший пример работы с php скриптом..
На примере ShowMessage, текст сообщения брать со скрипта... заранее спасибо.

 

[lisa99]

без VCL for PHP?

 

[DarckSol]

ДА функционал на WinApi желательно, не визуалка.. пишу мини утилитку и столкнулся с этим в первые...

 

[Noctambulaar]

содержимое файла pr1.dpr

program pr1; {$APPTYPE CONSOLE}
uses urlmon, windows;

var i : hresult;
in,to:string;

procedure read;
var
  f: TextFile;
  fName: String[80];
  buf: string[80];
begin
  fName := to; AssignFile(f, fName);
  {$!-}
  Reset(f);
  {$I+}

  while not EOF(f) do
  begin
    readln(f, buf);
    writeln(buf);
  end;
  CloseFile(f);
end;

begin
in:='http://xxx.ri/12.php?tr=111';
to:='c:\temp.af';
i := URLDownloadToFile(nil, pchar (in), pchar (to), 0, nil);
if i <> 0 then writeln ('download error : ', i) else read;
readln;

end;
end.

возможны ошибки, писано сходу. простой вариант

<? echo "qwddqw"; ?>

 

[lisa99]

мде...
консольный вариант прожки на делфях, которая выполняет роль cgi - приложения, считывая что-то из файла .

Интересно, есть ли другие подходы