blob: d7a399eaa36f8cc57c9efb1d0fc50107f369ef4a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
{$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.
|
