quick examples

Home > Exemplos Rápidos

Exemplos Rápidos

Exemplo de um servidor simples no Delphi:

// Delphi example of a quick ping-pong server
program RALQuickConsole;

uses
  System.Classes, System.SysUtils,

  // Choose here the engine of the server
  RALSynopseServer,
  //RALIndyServer,
  //RALSaguiServer,

  RALServer;

var
  FServer: TRALServer;

procedure PingReply(ARequest: TRALRequest; AResponse: TRALResponse);
begin
  AResponse.Answer(200, 'pong', 'text/plain');
end;

begin
  // Change the engine of the server here:
  FServer := TRALSynopseServer.Create(nil);
  //FServer := TRALIndyServer.Create(nil);
  //FServer := TRALSaguiServer.Create(nil);

  try
    // adding routes to the server:
    FServer.CreateRoute('ping', PingReply, 'simple route example that answers pong');

    FServer.Port := 8000; // 8000 is the default port if none is assigned.
    FServer.Start;

    WriteLn('RALQuickServer running on Port ' + FServer.Port.ToString);
    WriteLn('Press any key to finish');
    ReadLn;
  finally
    FServer.Stop;
    FreeAndNil(FServer);
  end;
end.

Exemplo de um servidor ping-pong simples no Lazarus

// Lazarus example of a quick ping-pong server
program RALQuickConsole;

uses
  Classes, SysUtils,

  // Choose here the engine of the server
  RALSynopseServer,
  //RALIndyServer,
  //RALfpHttpServer,
  //RALSaguiServer,

  RALServer;

var
  FServer: TRALServer;

procedure PingReply(ARequest: TRALRequest; AResponse: TRALResponse);
begin
  AResponse.Answer(200, 'pong', 'text/plain');
end;

begin
  // Change the engine of the server here:
  FServer := TRALSynopseServer.Create(nil);
  //FServer := TRALIndyServer.Create(nil);
  //FServer := TRALfpHttpServer.Create(nil);
  //FServer := TRALSaguiServer.Create(nil);

  try
    // adding routes to the server:
    FServer.CreateRoute('ping', @PingReply, 'simple route example that answers pong');

    FServer.Port := 8000; // 8000 is the default port if none is assigned.
    FServer.Start;

    WriteLn('RALQuickServer running on Port ' + FServer.Port.ToString);
    WriteLn('Press any key to finish');
    ReadLn;
  finally
    FServer.Stop;
    FreeAndNil(FServer);
  end;
end.