Delphi 域名解析为IP地址

花生壳:
1.LJSZForm-Lable1-Caption改成 “IP地址或域名：”
2.LJSZForm-BitBtn1Click-注释掉--else if IsIP(Trim(IPEdit.Text))=False then
TLShowMessage(‘IP地址错误‘,False)

3.DataM-DLDataSrvr-fmLJWait.Label1.Caption:=‘正在连接数据服务器,请稍候....‘;
fmLJWait.Update;-后面SConn.Address:=ZJIPAdd;改成
if IsIP(Trim(ZJIPAdd)) then
begin
SConn.Address:=ZJIPAdd;
end else
begin
SConn.Address:=HostToIP(ZJIPAdd);
end;
4.DataM加一个函数解析花生壳域名
function HostToIP(Name: string):STRING;
var
wsdata : TWSAData;
hostName : array [0..255] of char;
hostEnt : PHostEnt;
addr : PChar;
begin
WSAStartup ($0101,wsdata);
try
gethostname (hostName,sizeof (hostName));
StrPCopy(hostName,Name);
hostEnt := gethostbyname (hostName);
if Assigned (hostEnt) then
if Assigned (hostEnt^.h_addr_list) then begin
addr := hostEnt^.h_addr_list^;
if Assigned (addr) then begin
Result := Format (‘%d.%d.%d.%d‘,[byte (addr [0]),
byte (addr [1]),byte (addr [2]),byte (addr [3])]);
end
else
Result := ‘‘;
end
else
Result := ‘‘
else begin
Result := ‘‘;
end;
finally
WSACleanup;
end
end;
5.DataM-uses-加上,WinSock

 

改变服务端:
1.tljxcwj-MainForm.Caption:=DMName+iif(m_RegFlags=0,‘(未注册)‘,‘‘);改成 MainForm.Caption:=DMName;
2.DataM-SConn
Port:5927
ServerGUID:{F64E160D-552B-4C8B-9428-3C850B53A6F9}
3.DataM-DLDataSrvr-
Function TDataM.DLDataSrvr():Boolean; // 登录数据服务器
Var Re:String;
RegFlags:Integer;
HWndCalc:HWnd;
XFFlags:Boolean;
IPSvr:String;
begin
Result:=True;
if DataM.SConn.Connected then
DataM.SConn.Close;

CSPath:=Extractfiledir(application.ExeName);
InstProc(‘midas.dll‘);
InstProc(‘dbclient.dll‘);
InstProc(‘intrcpt.dll‘);

GetZJLJFS();
if ZJLJFS=0 then
begin
if (FileExists(CSPath+‘\‘+ServerFileName)) then
begin
HWndCalc:=FindWindow(nil,ServerRunFlags);
if HWndCalc=0 then
WinExec(PChar(CSPath+‘\‘+ServerFileName),SW_RESTORE);
SConn.Address:=‘127.0.0.1‘;
end
else
begin
Application.CreateForm(TLJSZForm,LJSZForm);
if LJSZForm.ShowModal=mrCancel then
begin
ExitFlags:=True;
Result:=False;
LJSZForm.Free;
exit;
end;
LJSZForm.Free;
end;
end;

fmLJWait.Label1.Caption:=‘正在查找数据服务器,请稍候....‘; fmLJWait.Show; fmLJWait.Update; XFFlags:=True; While XFFlags do begin XFFlags:=False; if ZJLJFS=1 then begin fmLJWait.Label1.Caption:=‘正在连接数据服务器,请稍候....‘; fmLJWait.Update; if IsIP(Trim(ZJIPAdd)) then begin SConn.Address:=ZJIPAdd; end else begin SConn.Address:=HostToIP(ZJIPAdd); end; end else begin fmLJWait.Label1.Caption:=‘正在读取数据服务器的IP地址,请稍候....‘; fmLJWait.Update; Re:=DIPHttp1.GetSrvrIP(ZJDLZH,ZJDLMM); if Re=‘Error‘ then begin XFFlags:=True; end else begin fmLJWait.Label1.Caption:=‘正在连接数据服务器,请稍候....‘; fmLJWait.Update; SConn.Address:=Re; end; end; if Not XFFlags then begin try DataM.SConn.Connected:=True; except XFFlags:=True; end; end; if XFFlags then begin fmLJWait.Close; Application.CreateForm(TLJSZForm,LJSZForm); if LJSZForm.ShowModal=mrCancel then begin XFFlags:=False; ExitFlags:=True; Result:=False; LJSZForm.Free; exit; end else begin LJSZForm.Free; fmLJWait.Show; fmLJWait.Update; end; end; end; YGDAListCDS.Open; fmLJWait.Close;end;4.Pubsub-Const SJtmpFileName=‘tlclienttmpN.exe‘; // 升级时的临时文件 JKFileName=‘TLJK.exe‘; // 鸿鹏监控文件 RegTabeBoot=‘\Software\TaiLaiSoft\‘; // 在注册表中根 RegTableWZ=‘TLWJGL‘ ; // 注册表目录的文件名 ServerFileName=‘TLWJSrvr.exe‘; // 服务端程序名称 ServerRunFlags=‘tlwjglsrvr‘; // 服务端已运行的标识 m_SoftName=‘商务E点通五金版‘; m_SoftCaption=‘商务E点通五金版‘; AdminRunFlags = ‘TLJXCWJAdmin‘; // 客户端系统管理员运行标识 ClientRunFlags = ‘TLJXCWJClient‘; // 客户端运行标识 FXiniFileName=‘TLJXCWJ‘ ; // INI文件的文件名 m_SoftVer=‘1.00‘;5.Pubsub-procedure GetSysOption;-IniFileName:=CSPath+‘\‘+FXiniFileName+‘.ini‘;