autonomous web application

[fhuvu]

hello excuse for my bad English
lazarus can build cgis yeah, but I could write a web server and integrate in the application?, ie write a server capable of running your own application?, something like making php from version 5.2 incorporates their own server to run applications without apache
thanks

[marcov]

Yes. Just like any other TCP/IP server. There are various socket suites (Indy, lnet, Synapse) that support this.  SSL might be a bit more difficult, so if you need that, factor it into your decision.

Note that hooking ports under 1024 usually needs adminstrator rights.

see also http://indyproject.org

[BigChimp]

I seem to remember fpweb
http://wiki.lazarus.freepascal.org/fcl-web
has the ability to include a simple web server module (programmed in FPC) so your program does not need to depend on a web server.

I am not sure though.

[Leledumbo]

If you install fpweb (fcl-web) it has http server application in the new project dialog. I'm using Brook for all my web needs, though. It's built on top of fcl-web but with more flexible structure and has more advanced features.

[fhuvu]

perhaps express myself badly. not want to use third-party modules framenworks not, let me know if I can create a cgi and integrate a server module and pascal freepascal only pure
Here's an example of pure application made ​​in another language, it is not what I want to do as I want to demonstrate pro
http://bitshare.com/files/izrmvvix/web-example.zip.html

[BigChimp]

Yes, you can create a cgi application.

Read
http://wiki.lazarus.freepascal.org/fcl-web
for more details.

If you have more questions, perhaps posting in your native language as well as English may help?

[kodok.buncit]

perhaps express myself badly. not want to use third-party modules framenworks not, let me know if I can create a cgi and integrate a server module and pascal freepascal only pure
Here's an example of pure application made ​​in another language, it is not what I want to do as I want to demonstrate pro
http://bitshare.com/files/izrmvvix/web-example.zip.html

fcl-web is not third party library its part of LCL and its pure object pascal. please refer to the link given by bigchimp for more info

[fhuvu]

perfecto gracias, esto se parece a lo que yo quiero, prefiero que creo todo

[fhuvu]

http://wiki.lazarus.freepascal.org/fcl-web reading I realize that is not what I need, what I want is a full cgi but independent, requires no server, so I can incorporate a own server, the wiki shows how to create a cgi for apache but not independent, there is no way I will have to do it in c + +, thanks for everything

[BigChimp]

I'm sorry but a cgi application is a cgi application. It doesn't depend on any particular web server.
Just compile the cgi application and follow your web server's instructions to install it.

If you read the wiki carefully you'll see it even mentions that Apache is used as an example; it is not necessary and another server can be used.

[fhuvu]

I put an example here veanlo download it http://bitshare.com/files/izrmvvix/web-example.zip.html

[BigChimp]

It seems you uploaded some kind of web server. (I'm not going to run it, sorry)
Now you can compile an fpweb cgi application and put the cgi where your web server expects the file to be.

[fhuvu]

the file is safe, I have no own server, so I go up there, is an example of what I

[fhuvu]

after running it should go to localhost

[kodok.buncit]

may be what fhuvu want is something like TFPHttpServer on unit fphttpserver please describe it to him 
here minimal demo on how to use THttpServer

Code: [Select]

program justtest;

{$mode objfpc}{$H+}

uses
  cthreads,
  sysutils,
  fphttpserver;
Type

  { TMyHttpServer }

  TMyHttpServer = class(TFPHttpServer)
  protected
    procedure HandleRequest(Var ARequest: TFPHTTPConnectionRequest;
                            Var AResponse : TFPHTTPConnectionResponse); override;
  end;

{ TMyHttpServer }

procedure TMyHttpServer.HandleRequest(var ARequest: TFPHTTPConnectionRequest;
  var AResponse: TFPHTTPConnectionResponse);
begin
  inherited HandleRequest(ARequest, AResponse);
  //handle your request here
  AResponse.Contents.add('Hello World im alive!');
end;

var
  MyServer : TMyHttpServer;
begin
  MyServer:=TMyHttpServer.Create(nil);
  try
    MyServer.Port := 9090;//listen on port 9090 (its up to you)
    MyServer.Active:= True;
  finally
    MyServer.Free;
  end;
end.

then point http://localhost:9090 on your browser
explore it to suite your need