delphi - How to enumerate MSSQL Servers from a 64-bit client app? -


i'm looking way of enumerating ms sql servers on local network 64-bit delphi application. method i've used far on 32-bit works fine contains assembly code won't compile on 32-bit. can't seem find way of enumerating servers 64-bit client.

the code cannot compile this:

function ptcreateadoobject(const classid: tguid): iunknown; var   status: hresult;   fpucontrolword: word; begin   asm     fnstcw fpucontrolword   end;   status := cocreateinstance(               class_recordset,               nil,               clsctx_inproc_server or clsctx_local_server,               iunknown,               result);   asm     fnclex     fldcw fpucontrolword   end;   olecheck(status); end;

example here adopted x64, compatible both, x32/x64 systems.

uses   activex, comobj, oledb, db, adoint, adodb;  function createadoobject(const classid: tguid): iunknown; var   status: hresult; {$ifdef cpux86}   fpucontrolword: word; {$endif cpux86} begin  {$ifdef cpux86}   asm     fnstcw  fpucontrolword   end; {$endif cpux86}   status := cocreateinstance(classid, nil, clsctx_inproc_server or     clsctx_local_server, iunknown, result); {$ifdef cpux86}   asm     fnclex     fldcw fpucontrolword   end; {$endif cpux86}   if (status = regdb_e_classnotreg)     raise exception.create('error')   else     olecheck(status); end;  procedure listavailablesqlservers(names: tstringlist); var   rscon: adorecordsetconstruction;   rowset: irowset;   sourcesrowset: isourcesrowset;   sourcesrecordset: _recordset;   sourcesname, sourcestype: tfield; begin   sourcesrecordset := createadoobject(class_recordset) _recordset;   rscon := sourcesrecordset adorecordsetconstruction;    sourcesrowset := createcomobject(progidtoclassid('sqloledb enumerator')) isourcesrowset;    olecheck(sourcesrowset.getsourcesrowset(nil, irowset, 0, nil, iunknown(rowset)));    rscon.rowset := rowset;    tadodataset.create(nil)    try      recordset := sourcesrecordset;      sourcesname := fieldbyname('sources_name');      sourcestype := fieldbyname('sources_type');      names.beginupdate;      names.clear;      try         while not eof         begin           if (sourcestype.asinteger = dbsourcetype_datasource) ,              (sourcesname.asstring <> '')                        names.add(sourcesname.asstring);           next;         end;              names.endupdate;      end;        free;   end; end;  procedure getserver; var   oitems: tstringlist; begin   oitems:= tstringlist.create;   try     listavailablesqlservers(oitems);     // oitems     showmessage(oitems.text);       oitems.free;   end; end;

Comments

Post a Comment

Popular posts from this blog

javascript - RequestAnimationFrame not working when exiting fullscreen switching space on Safari -

request animation frame stops working when exiting fullscreen clicking on original space's safari window. fine if fullscreen mode canceled escape key or calling cancelfullscreen(). steps reproduce: open https://dl.dropboxusercontent.com/u/769042/prezi/safari-fullscreen.html click "draw raf", kittie appears click "fullscreen", go fullscreen click "draw raf", kittie appears go space original safari was, showing "click exit fullscreen mode", click anywhere, out fullscreen click "draw raf", nothing happens what handling click calling: window.requestanimationframe(draw); which draws on canvas context: function draw() { ctx.drawimage(img, math.random()*500|0, math.random()*400|0, 100, 100); } i checked .hidden , .visibilitystate, updated correctly. tested on osx 10.9.3, safari 7.0.4 (9537.76.4). has workaround/solution other switching old settimeout? this sounds webkit bug 88940 : using reque
Read more

Python ctypes access violation with const pointer arguments -

i have api i'm trying wrap in python (2.7.6 on win7) code using ctypes. here's api: client_dllfunc bool clientapi search_exporttoclipcopy(clienthsearch handle, int channel, lpctstr filename, const time_t& from, const time_t& to, const bool* cameras, int length, bool usepassword, lpctstr password, bool includetextin = false, bool excludeplayer = false); the issue i'm having cameras argument; , i've had issue other const pointer arguments well. here's how i'm wrapping api: def search_exporttoclipcopy(self, hsearch, csearch, filename, tfrom, tto, cameras, length, usepassword, password, includetextin=true, excludeplayer=false): exporttoclipcopy = self.sdkdll.search_exporttoclipcopy exporttoclipcopy.argtypes = [c_int, c_int, c_wchar_p, c_long, c_long, pointer(c_bool), c_int, c_bool, c_wchar_p, c_bool, c_bool] exporttoclipcopy.restype = c_bool exporttoclipcopy(hsearch, csearch, filename, tfrom, tto, cameras, length, usepassword, pass
Read more