mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 07:48:08 +02:00
23 lines
397 B
ObjectPascal
23 lines
397 B
ObjectPascal
{$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.
|