Why Gemfury? Push, build, and install  RubyGems npm packages Python packages Maven artifacts PHP packages Go Modules Debian packages RPM packages NuGet packages

Repository URL to install this package:

Details    
fpc-src / usr / share / fpcsrc / 3.2.0 / tests / webtbs / tw4350.pp
Size: Mime:
{$mode delphi}

unit tw4350;

interface

uses
  Classes;

type
  TIdStackSocketHandle = integer ;// class end;
  TIdServeFile = function(ASocket: TIdStackSocketHandle; AFileName: string): cardinal;
  TIdStackBSDBase = Class
                      end;

var
  GServeFileProc: TIdServeFile = nil; // comment either, and the other line works?
  GBSDStack: TIdStackBSDBase = nil;

implementation

end.