{"id":5013,"date":"2024-01-13T19:29:05","date_gmt":"2024-01-13T11:29:05","guid":{"rendered":"https:\/\/www.kenpai.com\/cms\/5013\/"},"modified":"2024-01-13T19:29:05","modified_gmt":"2024-01-13T11:29:05","slug":"delphi%e4%b8%8b%e6%a3%80%e6%9f%a5sql-server%e6%9c%8d%e5%8a%a1%e5%99%a8%e5%bd%93%e5%89%8d%e8%bf%90%e8%a1%8c%e7%8a%b6%e6%80%81%ef%bc%81","status":"publish","type":"post","link":"https:\/\/www.kenpai.com\/cms\/5013\/","title":{"rendered":"Delphi\u4e0b\u68c0\u67e5SQL Server\u670d\u52a1\u5668\u5f53\u524d\u8fd0\u884c\u72b6\u6001\uff01"},"content":{"rendered":"<\/p>\n

Delphi\u4e0b\u68c0\u67e5SQL Server\u670d\u52a1\u5668\u5f53\u524d\u8fd0\u884c\u72b6\u6001\uff01
\u8981\u6c42\uff1a\uff24\uff45\uff4c\uff50\uff48\uff49\u4e0b\u968f\u65f6\u76d1\u63a7\uff33\uff31\uff2c\u3000\uff33\uff45\uff52\uff56\uff45\uff52\u72b6\u6001\u3002
\uff11\u3001\u547d\u4ee4\u63d0\u793a\u7b26\u4e0b\u53ef\u7528\uff1aTELNET <SQL Server IP> 1433\u3000\u3000\u68c0\u67e5\u3002
\uff12\u3001\uff24\uff45\uff4c\uff50\uff48\uff49\u4e0b\u5982\u4f55\u6a21\u62df\u5b9e\u73b0\u4e0a\u8ff0\u529f\u80fd\u3002<\/p>\n

———-
\u539f\u6765\u505a\u8fc7\uff1a
function GetSqlServerStatus(lpszComputerName: LPCTSTR): Integer;
var
ssStatus: SERVICE_STATUS;
dwOldCheckPoint: DWORD;
dwStartTickCount: DWORD;
dwWaitTime: DWORD;
dwStatus: DWORD;
lpszServiceName: LPCTSTR;
schSCManager: SC_HANDLE;
schService: SC_HANDLE;
begin
if (lpszComputerName <> nil) and
((StrComp(lpszComputerName, \\\\\\’127.0.0.1\\\\\\’) = 0) or (StrComp(lpszComputerName, \\\\\\’.\\\\\\’) = 0)) then
lpszComputerName := nil;
lpszServiceName := \\\\\\’MSSQLServer\\\\\\’;
schSCManager := OpenSCManager(
lpszComputerName, \/\/Computer name
nil, \/\/ ServicesActive database
SC_MANAGER_ALL_ACCESS); \/\/ full access rights<\/p>\n

if schSCManager = 0 then
GetSqlServerStatus := -1; \/\/Machine not exists
schService := OpenService(
schSCManager, \/\/ SCM database
lpszServiceName, \/\/ service name
SERVICE_ALL_ACCESS);
if schService = 0 then begin
CloseServiceHandle(schService);
GetSqlServerStatus := -2; \/\/SqlServer Service not Exists
end;
if not QueryServiceStatus(
schService, \/\/ handle to service
ssStatus) then begin \/\/ address of status information structure
GetSqlServerStatus := -3; \/\/MyErrorExit(\\\\\\’QueryServiceStatus\\\\\\’);
Result := ssStatus.dwCurrentState;
end;
\/\/———-
\u7f51\u4e0a\u627e\u7684,\u770b\u770b\u6709\u7528\u4e0d
uses Registry, ShellAPI, FileCtrl, Unit2;
{$R *.DFM}<\/p>\n

function IsNT: Boolean;
begin
Result := (Win32MajorVersion >= 4) and (Win32Platform = VER_PLATFORM_WIN32_NT);
end;
var
IsExists: Boolean = False;
function IsExistsMSSQL: Boolean;
const
MSSQLSERVER = \\\\\\’SOFTWARE\/Microsoft\/MSSQLServer\\\\\\’;
Reg: TRegistry;
Result := IsExists;
if Result then Exit;
if not IsNT then
Reg := TRegistry.Create else
Reg := TRegistry.Create(KEY_READ);
with Reg do
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
Result := KeyExists(MSSQLSERVER);
IsExists := Result;
finally
Free;
end;
MSSQL_98StartCommand = \\\\\\’scm -action 1 -pwd "%s"\\\\\\’;
MSSQL_NTStartCommand = \\\\\\’net start mssqlserver\\\\\\’;
MSSQL_98StopCommand = \\\\\\’scm -action 6\\\\\\’;
MSSQL_NTStopCommand = \\\\\\’net stop mssqlserver\\\\\\’;
function StartMSSQL(Pass: string): Boolean;
S: string;
Screen.Cursor := crHourGlass;
if not IsNT then
S := Format(MSSQL_98StartCommand, [Pass]) else
S := MSSQL_NTStartCommand;
try
WinExec(PChar(S), SW_HIDE);
Result := True;
except
Result := False;
end;
Screen.Cursor := crDefault;
function StopMSSQL: Boolean;
WinExec(MSSQL_98StopCommand, SW_HIDE) else
WinExec(MSSQL_NTStopCommand, SW_HIDE);
procedure TForm1.Button2Click(Sender: TObject);
if StartMSSQL(edPass.Text) then
MessageBox(Handle, \\\\\\’\u542f\u52a8\u5b8c\u6210\\\\\\’, \\\\\\’\u5b8c\u6210\\\\\\’, MB_OK MB_ICONINFORMATION);
———————————————-
program Project1;
uses
Windows,
WinSvc;
procedure RunMSSQLSERVICE;
SrvHandle: SC_HANDLE;
Service_Status: _SERVICE_STATUS;
SrvStatus : Integer;
try
SrvHandle := OpenSCManager(\\\\\\’\\\\\\’, SERVICES_ACTIVE_DATABASE, SC_MANAGER_ALL_ACCESS);
SrvHandle := OpenService(SrvHandle, PChar(\\\\\\’MSSQLServer\\\\\\’), SERVICE_QUERY_STATUS or SERVICE_START);
if QueryServiceStatus(SrvHandle, Service_Status)
then
SrvStatus := Service_Status.dwCurrentState;
if SrvStatus = SERVICE_STOPPED
Winexec(\\\\\\’scm -action 1 -slient 1 -service mssqlserver \\\\\\’,sw_Normal);
except
RunMSSQLSERVICE;
end.
\u83b7\u53d6SQL Server\u670d\u52a1\u5668\u5217\u8868\u7684\u51e0\u79cd\u65b9\u6cd5<\/p>\n

\u4e00\u3001 SQL DMO
\u63cf\u8ff0\uff1aSQL Distributed Management Objects\uff08SQL\u5206\u5e03\u5f0f\u7ba1\u7406\u5bf9\u8c61\uff09\uff0c\u5b58\u5728\u4e8eSQLDMO.dll\u6587\u4ef6\u4e2d\uff0c\u5b9e\u9645\u4e0a\u662f\u4e00\u4e2aCOM \u5bf9\u8c61\uff0c\u901a\u8fc7\u8c03\u7528SQL DMO\u7684ListAvailableSQLServers\u65b9\u6cd5\u53d6\u5f97\u3002
\u5217\u8868\u7c7b\u578b\uff1a\u5217\u4e3e\u88c5\u6709“\u5ba2\u6237\u7aef”\u548c“\u670d\u52a1\u7aef”\u7684\u8ba1\u7b97\u673a<\/strong>\u3002
\u9002\u7528\u6761\u4ef6\uff1a\u88c5\u6709 SQL Server\uff0c\u4e14\u6709SQLDMO.dll\u6587\u4ef6\u3002
\u901f\u5ea6\uff1a\u4e2d
\u8c03\u7528\u793a\u4f8b\uff1aGetSQLServerList(ListBox1.items);
\u4ee3\u7801\uff1a
ComObj;
function GetSQLServerList(var AList: TStrings): Boolean;
SQLServerApp: Variant;
ServerList: Variant;
i: Integer;
Result := True;
try
SQLServerApp := CreateOleObject(\\\\\\’SQLDMO.Application\\\\\\’);
ServerList := SQLServerApp.ListAvailableSQLServers;
for i := 1 to ServerList.Count do
AList.Add(ServerList.Item(i));
SQLServerApp := Unassigned;
ServerList := Unassigned;
except
Result := False;
\u4e8c\u3001 NetServerEnum
\u63cf\u8ff0\uff1a\u7f51\u7edc<\/strong>\u670d\u52a1\u51fd\u6570\uff0c\u5b58\u5728\u4e8eNetApi32.dll\u6587\u4ef6\u4e2d\uff1b\u901a\u8fc7NetServerEnum\u51fd\u6570\u53ef\u53d6\u5f97\u88c5\u6709SQL Server\u670d\u52a1\u7aef\u7684\u8ba1\u7b97\u673a\u5217\u8868\uff0c\u53ea\u88c5\u6709SQL Server\u5ba2\u6237\u7aef\u7684\u8ba1\u7b97\u673a\u5c06\u4e0d\u4f1a\u88ab\u5217\u4e3e\u5176\u4e2d\uff1b\u5982\u679c\u4e00\u53f0\u8ba1\u7b97\u673a\u7684SQL Server\u670d\u52a1\u521a\u521a\u542f\u52a8\uff0c\u90a3\u4e48\u6b64\u51fd\u6570\u5c06\u4f1a\u8fc7\u5f88\u4e45\u624d\u80fd\u53d6\u5230\u8be5\u8ba1\u7b97\u673a\u3002
\u5217\u8868\u7c7b\u578b\uff1a\u4ec5\u5217\u4e3e\u88c5\u6709“\u670d\u52a1\u7aef”\u7684\u8ba1\u7b97\u673a\u3002
\u9002\u7528\u6761\u4ef6\uff1a\u6709NetApi32.dll\u6587\u4ef6\u3002
\u901f\u5ea6\uff1a\u5feb
type
NET_API_STATUS = DWORD;
PServerInfo100 = ^TServerInfo100;
_SERVER_INFO_100 = record
sv100_platform_id: DWORD;
sv100_name: LPWSTR;
{$EXTERNALSYM _SERVER_INFO_100}
TServerInfo100 = _SERVER_INFO_100;
SERVER_INFO_100 = _SERVER_INFO_100;
{$EXTERNALSYM SERVER_INFO_100}
const
NERR_Success = 0;
MAX_PREFERRED_LENGTH = DWORD(-1);
SV_TYPE_SQLSERVER = $00000004;
function NetApiBufferAllocate(ByteCount: DWORD; var Buffer: Pointer):
NET_API_STATUS; stdcall; external \\\\\\’netapi32.dll\\\\\\’ name \\\\\\’NetApiBufferAllocate\\\\\\’;
function NetServerEnum(ServerName: LPCWSTR; Level: DWORD; var BufPtr: Pointer;
PrefMaxLen: DWORD; var EntriesRead: DWORD; var TotalEntries: DWORD;
ServerType: DWORD; Domain: LPCWSTR; ResumeHandle: PDWORD): NET_API_STATUS;
stdcall; external \\\\\\’netapi32.dll\\\\\\’ name \\\\\\’NetServerEnum\\\\\\’;
function NetApiBufferFree(Buffer: Pointer): NET_API_STATUS; stdcall; external
\\\\\\’netapi32.dll\\\\\\’ name \\\\\\’NetApiBufferFree\\\\\\’;
function GetSQLServerList(var AList: TStrings; pwcServerName: PWChar = nil;
pwcDomain: PWChar = nil): Boolean;
NetAPIStatus: DWORD;
dwLevel: DWORD;
pReturnSvrInfo: Pointer;
dwPrefMaxLen: DWORD;
dwEntriesRead: DWORD;
dwTotalEntries: DWORD;
dwServerType: DWORD;
dwResumeHandle: PDWORD;
pCurSvrInfo: PServerInfo100;
i, j: Integer;
dwLevel := 100;
pReturnSvrInfo := nil;
dwPrefMaxLen := MAX_PREFERRED_LENGTH;
dwEntriesRead := 0;
dwTotalEntries := 0;
dwServerType := SV_TYPE_SQLSERVER; \/\/\u670d\u52a1\u5668\u7c7b\u578b
dwResumeHandle := nil;
NetApiBufferAllocate(SizeOf(pReturnSvrInfo), pReturnSvrInfo);
try
NetAPIStatus := NetServerEnum(pwcServerName, dwLevel, pReturnSvrInfo,
dwPrefMaxLen, dwEntriesRead, dwTotalEntries, dwServerType, pwcDomain,
dwResumeHandle);
if ((NetAPIStatus = NERR_Success) or (NetAPIStatus = ERROR_MORE_DATA)) and
(pReturnSvrInfo <> nil) then
begin
pCurSvrInfo := pReturnSvrInfo;
\/\/ \u5faa\u73af\u53d6\u5f97\u6240\u6709SQL Server\u670d\u52a1\u5668
i := 0;
j := dwEntriesRead;
while i < j do
begin
if pCurSvrInfo = nil then
Break;
with AList do
Add(pCurSvrInfo^.sv100_name);
Inc(i);
Inc(pCurSvrInfo);
end;
end;
finally
if Assigned(pReturnSvrInfo) then
NetApiBufferFree(pReturnSvrInfo);
end;
\u4e09\u3001 SQLBrowseConnect
\u63cf\u8ff0\uff1aODBC\u51fd\u6570\uff08Microsoft Open Database Connectivity\uff0c\u5f00\u653e\u5f0f\u6570\u636e\u5e93\u8fde\u63a5\uff09\uff0c\u5b58\u5728\u4e8eodbc32.dll\u6587\u4ef6\u4e2d\uff1b\u901a\u8fc7SQLBrowseConnect\u51fd\u6570\u53ef\u8fd4\u56de\u8fde\u63a5\u5b57\u7b26\u4e32\u4fe1\u606f\uff0c\u5305\u62ecDSN\u3001DRIVER\u3001SERVER\u3001UID\u3001PWD\u3001APP\u3001WSID\u3001DATABASE\u3001LANGUAGE\u7b49\u4fe1\u606f\u3002\u5728\u51fd\u6570GetODBCInfo \u4e2d\u4f20\u5165itServer\u3001itDatabase\u3001itLanguage\u53ef\u5206\u522b\u53d6\u5f97“\u670d\u52a1\u5668”\u3001“\u6570\u636e\u5e93”\u53ca“\u8bed\u8a00”\u7b49\u4fe1\u606f\u5217\u8868\uff0c\u5176\u4e2d itDatabase\u3001itLanguage\u9ed8\u8ba4\u53d6\u672c\u5730\u4fe1\u606f\uff0c\u53d6\u8fdc\u7a0b\u4fe1\u606f\u8bf7\u81ea\u884c\u4fee\u6539“\\\\\\’Driver={SQL Server};SERVER=(local);UID=sa;PWD=\\\\\\’”\u8fde\u63a5\u5b57\u7b26\u4e32\u3002
\u9002\u7528\u6761\u4ef6\uff1a\u7531\u4e8eMDAC 2.6 \u30012.6 SP1\u30012.7\u548cMicrosoft ODBC Driver for SQL Server 2000 2000.80.194\u6709Bug\uff0c\u56e0\u6b64\u5728\u8fd9\u4e9b\u7248\u672c\u4e2d\u6b64\u51fd\u6570\u65e0\u6cd5\u53d6\u5f97Microsoft SQL Server 7.0\u7684\u670d\u52a1\u5668\u3002
\u8c03\u7528\u793a\u4f8b\uff1aGetODBCInfo(ListBox1.items, itServer);
TInfoType = (itServer, itDatabase, itLanguage);
SQLHANDLE = Pointer;
SQLSMALLINT = SHORT;
SQLINTEGER = LongInt;
PSQLHANDLE = ^SQLHANDLE;
SQLHENV = SQLHANDLE;
SQLHDBC = SQLHANDLE;
SQLRETURN = SQLSMALLINT;
SQLCHAR = UCHAR;
PSQLCHAR = ^SQLCHAR;
SQLPOINTER = Pointer;
PSQLSMALLINT = ^SQLSMALLINT;
function SQLAllocHandle(HandleType: SQLSMALLINT; InputHandle: SQLHANDLE;
OutputHandle: PSQLHANDLE): SQLRETURN; stdcall; external \\\\\\’odbc32.dll\\\\\\’ name
\\\\\\’SQLAllocHandle\\\\\\’;
function SQLSetEnvAttr(EnvironmentHandle: SQLHENV; Attribute: SQLINTEGER;
Value: SQLPOINTER; StringLength: SQLINTEGER): SQLRETURN; stdcall; external
\\\\\\’odbc32.dll\\\\\\’ name \\\\\\’SQLSetEnvAttr\\\\\\’;
function SQLBrowseConnect(hdbc: SQLHDBC; szConnStrIn: PSQLCHAR;
cbConnStrIn: SQLSMALLINT; szConnStrOut: PSQLCHAR;
cbConnStrOutMax: SQLSMALLINT; pcbConnStrOut: PSQLSMALLINT): SQLRETURN;
stdcall; external \\\\\\’odbc32.dll\\\\\\’ name \\\\\\’SQLBrowseConnect\\\\\\’;
function SQLDisconnect(ConnectionHandle: SQLHDBC): SQLRETURN; stdcall; external
\\\\\\’odbc32.dll\\\\\\’ name \\\\\\’SQLDisconnect\\\\\\’;
function SQLFreeHandle(HandleType: SQLSMALLINT; Handle: SQLHANDLE): SQLRETURN;
stdcall; external \\\\\\’odbc32.dll\\\\\\’ name \\\\\\’SQLFreeHandle\\\\\\’;
SQL_HANDLE_ENV = 1;
SQL_HANDLE_DBC = 2;
SQL_NULL_HANDLE = LongInt(0);
SQL_SUCCESS = 0;
SQL_ERROR = -1;
SQL_ATTR_ODBC_VERSION = 200;
SQL_OV_ODBC3 = ULONG(3);
SQL_NTS = -3;
function GetODBCInfo(var AList: TStrings; InfoType: TInfoType): Boolean;
ConnStrOutMax = 4824;
SplitterStr = \\\\\\’={\\\\\\’;
HENV: SQLHENV;
HDBC: SQLHDBC;
RetCode: SQLRETURN;
ConnStrOut: PSQLCHAR;
cbConnStrOut: SQLSMALLINT;
ConnStrIn, TmpStr: string;
TmpPos: Integer;
case InfoType of
itServer: ConnStrIn := \\\\\\’Driver={SQL Server}\\\\\\’;
itDatabase, itLanguage: ConnStrIn := \\\\\\’Driver={SQL Server};SERVER=(local);UID=sa;PWD=\\\\\\’;
Result := False;
\/\/ \u5206\u914d ODBC \u73af\u5883\u53e5\u67c4
RetCode := SQLAllocHandle(SQL_HANDLE_ENV, SQLPOINTER(SQL_NULL_HANDLE), @HENV);
if RetCode = SQL_ERROR then
Exit;
\/\/ \u8bbe\u7f6e ODBC \u7248\u672c
RetCode := SQLSetEnvAttr(HENV, SQL_ATTR_ODBC_VERSION, SQLPointer(SQL_OV_ODBC3), 0);
if RetCode <> SQL_SUCCESS then
\/\/ \u5206\u914d\u6570\u636e\u5e93\u8fde\u63a5\u53e5\u67c4
RetCode := SQLAllocHandle(SQL_HANDLE_DBC, HENV, @HDBC);
GetMem(ConnStrOut, ConnStrOutMax);
RetCode := SQLBrowseConnect(HDBC, PSQLCHAR(ConnStrIn), SQL_NTS, ConnStrOut,
ConnStrOutMax, @cbConnStrOut);
if RetCode <> SQL_ERROR then
begin
TmpStr := PChar(ConnStrOut);
if InfoType = itLanguage then
Delete(TmpStr, 1, AnsiPos(\\\\\\’};\\\\\\’, TmpStr) 1);
Delete(TmpStr, 1, AnsiPos(SplitterStr, TmpStr) 1);
Delete(TmpStr, AnsiPos(\\\\\\’}\\\\\\’, TmpStr), Length(TmpStr));
while TmpStr <> \\\\\\’\\\\\\’ do
TmpPos := AnsiPos(\\\\\\’,\\\\\\’, TmpStr);
if TmpPos > 0 then
AList.Add(Copy(TmpStr, 1, TmpPos – 1))
else
AList.Add(TmpStr);
TmpStr := \\\\\\’\\\\\\’;
Delete(TmpStr, 1, TmpPos)
Result := True;
FreeMem(ConnStrOut, ConnStrOutMax);
finally
if Assigned(HDBC) then
SQLDisconnect(HDBC);
SQLFreeHandle(SQL_HANDLE_DBC, HDBC);
HDBC := nil;
if Assigned(HENV) then
SQLFreeHandle(SQL_HANDLE_ENV, HENV);
HENV := nil;
\uff0d\uff0d\uff0d\uff0d\uff0d\uff0d\uff0d\uff0d\uff0d\uff0d\uff0d\uff0d\uff0d\uff0d\uff0d\uff0d\uff0d\uff0d\uff0d
\u6784\u9020\u4e00\u4e2a\u8fde\u63a5\u5b57\u4e32\uff0c\u4ece\u4e00\u4e2aini\u6587\u4ef6\u8bfb\u53d6\u53c2\u6570\u3002
var AppIni: TIniFile;
IniFile, TFStr,: string;
Source, User, Passwd, DBase: string;
IniFile := ChangeFileExt(Application.ExeName, \\\\\\’.INI\\\\\\’);
if FileExists(IniFile) then
begin
AppIni := TIniFile.Create(IniFile);
Source := AppIni.ReadString(\\\\\\’DataBaseSet\\\\\\’, \\\\\\’Source\\\\\\’, \\\\\\’\\\\\\’);
User := AppIni.ReadString(\\\\\\’DataBaseSet\\\\\\’, \\\\\\’User\\\\\\’, \\\\\\’\\\\\\’);
Passwd := AppIni.ReadString(\\\\\\’DataBaseSet\\\\\\’, \\\\\\’Passwd\\\\\\’, \\\\\\’\\\\\\’);
DBase := AppIni.ReadString(\\\\\\’DataBaseSet\\\\\\’, \\\\\\’DBase\\\\\\’, \\\\\\’\\\\\\’);
Provider := AppIni.ReadString(\\\\\\’DataBaseSet\\\\\\’, \\\\\\’Provider\\\\\\’, \\\\\\’\\\\\\’);
\/\/Provider := \\\\\\’SQLOLEDB.1\\\\\\’
if Ado.Passwd = \\\\\\’\\\\\\’ then TFStr := \\\\\\’False\\\\\\’ else TFStr := \\\\\\’True\\\\\\’;
ADOCon.Close();
ADOCon.ConnectionString :=
\\\\\\’Locale Identifier=2052\\\\\\’
\\\\\\’;Use Procedure for Prepare=1\\\\\\’
\\\\\\’;Auto Translate=True\\\\\\’
\\\\\\’;Packet Size=4096\\\\\\’
\\\\\\’;Persist Security Info=\\\\\\’ TFStr
\\\\\\’;Provider=\\\\\\’ Ado.Provider
\\\\\\’;Password=\\\\\\’ Ado.Passwd
\\\\\\’;Workstation ID=\\\\\\’ Ado.Source
\\\\\\’;Connect Timeout=\\\\\\’ IntToStr(Ado.Time)
\\\\\\’;User ID=\\\\\\’ Ado.User
\\\\\\’;Data Source=\\\\\\’ Ado.Source
\\\\\\’;Initial Catalog=\\\\\\’ ADO.DBase;
ADOCon.Open();
Application.MessageBox(\\\\\\’\u6570\u636e\u5e93\u8fde\u63a5\u5931\u8d25\uff0c\u8bf7\u901a\u77e5\u7cfb\u7edf<\/strong>\u7ba1\u7406\u5458\\\\\\’, \\\\\\’\u63d0\u793a\\\\\\’, MB_ICONWARNING);<\/p>\n

\u66f4\u591a\u5173\u4e8e\u4e91\u670d\u52a1\u5668\uff0c\u57df\u540d<\/a><\/span>\u6ce8\u518c\uff0c\u865a\u62df\u4e3b\u673a\u7684\u95ee\u9898\uff0c\u8bf7\u8bbf\u95ee\u57a6\u6d3e\u79d1\u6280<\/a><\/span>\u5b98\u7f51\uff1awww.kenpai.com<\/a><\/span><\/p>\n","protected":false},"excerpt":{"rendered":"

Delphi\u4e0b\u68c0\u67e5SQL Server\u670d\u52a1\u5668\u5f53\u524d\u8fd0\u884c\u72b6\u6001\uff01\u8981\u6c42\uff1a\uff24\uff45\uff4c\uff50\uff48\uff49\u4e0b\u968f\u65f6\u76d1\u63a7\uff33\uff31\uff2c \uff33\uff45\uff52\uff56\uff45\uff52\u72b6\u6001\u3002\uff11\u3001\u547d\u4ee4\u63d0\u793a\u7b26\u4e0b\u53ef\u7528\uff1aTELNET &l<\/p>\n","protected":false},"author":2,"featured_media":4351,"comment_status":"","ping_status":"","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[3322],"tags":[3883],"class_list":["post-5013","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-ktougao","tag-delphisql-server"],"_links":{"self":[{"href":"https:\/\/www.kenpai.com\/cms\/wp-json\/wp\/v2\/posts\/5013","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.kenpai.com\/cms\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.kenpai.com\/cms\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.kenpai.com\/cms\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.kenpai.com\/cms\/wp-json\/wp\/v2\/comments?post=5013"}],"version-history":[{"count":0,"href":"https:\/\/www.kenpai.com\/cms\/wp-json\/wp\/v2\/posts\/5013\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.kenpai.com\/cms\/wp-json\/wp\/v2\/media\/4351"}],"wp:attachment":[{"href":"https:\/\/www.kenpai.com\/cms\/wp-json\/wp\/v2\/media?parent=5013"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.kenpai.com\/cms\/wp-json\/wp\/v2\/categories?post=5013"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.kenpai.com\/cms\/wp-json\/wp\/v2\/tags?post=5013"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}