如何在lazarus

时间:2015-10-04 18:48:41

标签: lazarus synapse fpc

我正在尝试使用synapse在lazarus中创建https服务器,但我失败了。我想mys服务器从其他https客户端接收数据。 我正在使用https://localhost:1500向我的浏览器发送请求,并且mys服务器正在接收信号。但是当我尝试读取发送的数据时,我什么也得不到。当我测试简单的http服务器一切正常。但现在在https的情况下,它无法正常工作。我使用ubuntu 15.04作为我的操作系统

s:= ASocket.RecvString(timeout); //返回noething

我的示例代码:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

uses
  blcksock, sockets, Synautil, ssl_openssl, ssl_openssl_lib;

procedure AttendConnection(ASocket: TTCPBlockSocket);
var
  timeout: integer;
  s: string;
  method, uri, protocol: string;
  OutputDataString: string;
  ResultCode: integer;
begin
  timeout := 1000;

  WriteLn('Received headers+document from browser:');

  //read request line
  s := ASocket.RecvString(timeout);
  WriteLn(s);
  method := fetch(s, ' ');
  uri := fetch(s, ' ');
  protocol := fetch(s, ' ');

  //read request headers
  repeat
    s := ASocket.RecvString(Timeout);
    WriteLn(s);
  until s = '';

  // Now write the document to the output stream

  if uri = '/' then
  begin
    // Write the output document to the stream
    OutputDataString :=
      '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"'
      + ' "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">' + CRLF
      + '<html><h1>Teste</h1></html>' + CRLF;

    // Write the headers back to the client
    ASocket.SendString('HTTP/1.0 200' + CRLF);
    ASocket.SendString('Content-type: Text/Html' + CRLF);
    ASocket.SendString('Content-length: ' + IntTostr(Length(OutputDataString)) + CRLF);
    ASocket.SendString('Connection: close' + CRLF);
    ASocket.SendString('Date: ' + Rfc822DateTime(now) + CRLF);
    ASocket.SendString('Server: Servidor do Felipe usando Synapse' + CRLF);
    ASocket.SendString('' + CRLF);

  //  if ASocket.lasterror <> 0 then HandleError;

    // Write the document back to the browser
    ASocket.SendString(OutputDataString);
  end
  else
    ASocket.SendString('HTTP/1.0 404' + CRLF);
end;

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var
  ListenerSocket, ConnectionSocket: TTCPBlockSocket;
begin
  ListenerSocket := TTCPBlockSocket.Create;
  ConnectionSocket := TTCPBlockSocket.Create;

  ListenerSocket.CreateSocket;
  ListenerSocket.SSL.CertificateFile := '/home/imants/projects/apps/medieval/bin/40669199_localhost_8080.cert';
  ListenerSocket.SSL.PrivateKeyFile := '/home/imants/projects/apps/medieval/bin/40669199_localhost_8080.key';
  ListenerSocket.SSLDoConnect;
  ListenerSocket.setLinger(true,10);
  ListenerSocket.bind('localhost','1500');
  ListenerSocket.listen;

  repeat
    if ListenerSocket.canread(1000) then
    begin
      ConnectionSocket.Socket := ListenerSocket.accept;
      WriteLn('Attending Connection. Error code (0=Success): ', ConnectionSocket.lasterror);
      AttendConnection(ConnectionSocket);
      ConnectionSocket.CloseSocket;
    end;
  until false;

  ListenerSocket.Free;
  ConnectionSocket.Free;
end;

end.

2 个答案:

答案 0 :(得分:3)

我知道有两个来源,其中包含Synapse中HTTP(s)服务器的示例。

第一个例子是Synapse stable package (release 40)。虽然我建议您使用SVN version(您可以使用该页面上的Download Snapshot按钮),但仍然可以使用&#34; release 40 package&#34;中的示例。

synapse40\source\demo\httpsserv中的示例应该可用作HTTPS服务器。如果不是,您可以使用httpserv(HTTP)示例并将其更改为shown here。 (但我认为httpsserv与这些修改相同)

如果您使用的是Linux(Lazarus),则需要将winsock的每次更改都更改为synsock并删除任何windows - 子句。

另一个例子可以是found here。 (Direct download of SynHttp.zip)据我所知,它还具有HTTPS服务器功能。

答案 1 :(得分:2)

我知道你想使用Synapse,但你可能想看看Indy。我一直在用indy开发服务器/客户端应用程序多年,我喜欢它。它适用于Windows和Linux(32位,64位,手臂......)并且具有一些不错的功能。您可以使用TIdHTTPServer组件。另外得到一个IOHandlerSSLOpenSSL。事件OnCommandGet(AContext:TIdContext;   ARequestInfo:TIdHTTPRequestInfo; AResponseInfo:TIdHTTPResponseInfo)是最重要的一个。它允许访问请求(如A ARequestInfo.Document)和HTTP响应(AResponseInfo)。