-
Notifications
You must be signed in to change notification settings - Fork 9
/
SocketNative.dpr
33 lines (27 loc) · 955 Bytes
/
SocketNative.dpr
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
library SocketNative;
{$IFDEF WIN32}
{$LIBSUFFIX '32'}
{$ENDIF}
{$IFDEF WIN64}
{$LIBSUFFIX '64'}
{$ENDIF}
uses
System.SysUtils,
System.Classes,
v8napi,
uSocketNative in 'uSocketNative.pas';
{$R *.res}
{$M+}
begin
with ClassRegList.RegisterClass(TSocketNative, 'SocketNative', 'TSocketNative') do
begin
AddFunc('Connect', 'Ïîäêëþ÷èòüñÿ', @TSocketNative.ConnectFunc, 0);
AddFunc('Disconnect', 'Îòêëþ÷èòüñÿ', @TSocketNative.DisconnectFunc, 0);
AddFunc('SendData', 'Ïîñëàòü', @TSocketNative.SendDataFunc, 1);
AddFunc('RecvData', 'Ïðèíÿòü', @TSocketNative.RecvDataFunc, 0);
AddProp('EndOfLine', 'ÊîíåöÑòðîêè', True, True, @TSocketNative.PropertyEndOfLineGetSet);
AddProp('Timeout', 'Òàéìàóò', True, True, @TSocketNative.PropertyTimeoutGetSet);
AddProp('HostName', 'Ñåðâåð', True, True, @TSocketNative.PropertyHostNameGetSet);
AddProp('Port', 'Ïîðò', True, True, @TSocketNative.PropertyPortGetSet);
end;
end.