lcore.org gitweb
/
lcore.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
must free tdnswinasync in tdnsasync destructor
[lcore.git]
/
lcorewsaasyncselect.pas
diff --git
a/lcorewsaasyncselect.pas
b/lcorewsaasyncselect.pas
index 622c92ea82ad1bec51d389bc89e119c1baf702cb..075d5587622d40177d71ec9bc23bceff58784716 100755
(executable)
--- a/
lcorewsaasyncselect.pas
+++ b/
lcorewsaasyncselect.pas
@@
-6,7
+6,10
@@
procedure lcoreinit;
\r
implementation
\r
\r
\r
implementation
\r
\r
-uses wcore,lcore,bsearchtree,sysutils,windows,winsock,pgtypes,messages,classes,lsocket;
\r
+uses
\r
+ dnswin, //to call init
\r
+ wcore,lcore,bsearchtree,sysutils,windows,winsock,pgtypes,messages,classes,lsocket;
\r
+
\r
type
\r
twineventcore=class(teventcore)
\r
public
\r
type
\r
twineventcore=class(teventcore)
\r
public
\r
@@
-205,6
+208,8
@@
procedure lcoreinit;
begin
\r
if (inited) then exit;
\r
\r
begin
\r
if (inited) then exit;
\r
\r
+ dnswin.init;
\r
+
\r
eventcore := twineventcore.create;
\r
if Windows.RegisterClass(MyWindowClass) = 0 then halt;
\r
//writeln('about to create lcore handle, hinstance=',hinstance);
\r
eventcore := twineventcore.create;
\r
if Windows.RegisterClass(MyWindowClass) = 0 then halt;
\r
//writeln('about to create lcore handle, hinstance=',hinstance);
\r
@@
-226,6
+231,7
@@
begin
WSAStartup(2, GInitData);
\r
absoloutemaxs := maxlongint;
\r
\r
WSAStartup(2, GInitData);
\r
absoloutemaxs := maxlongint;
\r
\r
+ wcoreinit;
\r
\r
inited := true;
\r
end;
\r
\r
inited := true;
\r
end;
\r