求高人把这段C#代码改成delphi实现

2014-01-04 09:22:01 229 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Delphi 11新手避坑指南：从安装到第一个跨平台App实战本文为Delphi 11新手提供了一份极简高效的实战指南。文章详细介绍了从安装配置、环境避坑，到使用FireMonkey框架创建首个跨平台桌面应用的全过程，并通过集成新闻API的实战案例，手把手演示了界面设计、网络请求与JSON解析等核心开发技能，帮助开发者快速上手并避开常见陷阱。阅读详情

如题, 谢谢了. 对http控件不熟悉...
var strUrl = textBox1.Text;
var req = WebRequest.Create(strUrl) as HttpWebRequest;
//得到域名
string host = req.GetResponse().ResponseUri.Host;
//根据域名得到IP
string getIp = Dns.Resolve(host).AddressList.GetValue(0).ToString();

...全文

反编译工具IDR实战指南：从二进制文件还原Delphi程序逻辑反编译是软件逆向工程中的核心技术，其本质是将机器码或字节码逆向还原为高级语言代码的过程。这一过程涉及文件格式解析、指令解码、控制流与数据流分析、类型推导及高级语言结构重建等多个复杂阶段，旨在恢复程序的可读逻辑。在安全研究、遗留系统维护、第三方库接口分析及漏洞挖掘等场景中，反编译工具发挥着不可替代的作用。针对不同平台与语言，工具选型至关重要：通用场景可选用Ghidra或IDA Pro，Java生态常用JD-GUI，.NET程序适合dnSpy。而对于使用Borland Delphi或C++ Builder编译的阅读详情

SVIP_

网络通信/分布式开发 1,594 成员 32,944 内容

+ 关注 + 加入社区

切换为时间正序

SVIP_ 2014-01-04

打赏
举报

得到值了, 谢谢.

sololie 2014-01-04

打赏
举报

取得的地址没错了，113.120.135.232

sololie 2014-01-04

打赏
举报

真是麻烦哦，上面你按着思路改改嘛如果要处理重定向，给idhtp1.HandleRedirects:=true


uses WinSock, IdHTTP;

function TForm1.GetIPFromUrl(const Url: string): string;
var
  wsdata: TWSAData;
  hostEnt: PHostEnt;
  addr: PChar;
  idhtp1: TIdHTTP;
begin
  Result := '';
  WSAStartup($0101, wsdata);
  idhtp1 := TIdHTTP.Create(nil);
  try
    idhtp1.HandleRedirects := true;  // 启用处理重定向
    idhtp1.Get(Url, nil);
    hostEnt := gethostbyname(PChar(idhtp1.Host));
    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 := '';
  finally
    WSACleanup;
    idhtp1.Free;
  end
end;

SVIP_ 2014-01-04

打赏
举报

这个是为了解析一个ddns的IP, 比如http://www.hik-online.com/minjuyangtai这个地址, 输入后会跳转成http://113.120.135.232/这个ip, 需要取得返回的这个ip

sololie 2014-01-04

打赏
举报

上面的不要了，改下面的，传入一个URL



uses WinSock, IdHTTP;



function TForm1.GetIPFromUrl(const Url: string): string;

var

  wsdata: TWSAData;

  hostName: array[0..255] of char;

  hostEnt: PHostEnt;

  addr: PChar;

  idhtp1: TIdHTTP;

begin

  Result := '';

  WSAStartup($0101, wsdata);

  idhtp1 := TIdHTTP.Create(nil);

  try

    idhtp1.Get(Url, nil);

    gethostname(hostName, sizeof(hostName));

    StrPCopy(hostName, idhtp1.Host);

    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 := '';

  finally

    WSACleanup;

    idhtp1.Free;

  end

end;

sololie 2014-01-04

打赏
举报

补上 uses WinSock;

sololie 2014-01-04

打赏
举报

你的目的是不是只要得到一个网站的IP？



function TForm1.GetIPFromHost(const 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;



// 调用

procedure TForm1.Button1Click(Sender: TObject);

begin

  Edit2.Text := GetIPFromHost(Edit1.Text);

end;

SVIP_ 2014-01-04

打赏
举报

 lst := TStringList.Create;
    RespData := TStringStream.Create('');
    idhtp1 := TIdHTTP.Create(nil);
    str_1 := 'http://www.hik-online.com/minjuyangtai';
    idhtp1.Post(str_1, RespData);
    idhtp1.Request.Referer := str_1;
    reStr := RespData.DataString ;

这样吗? 好像卡住了

sololie 2014-01-04

打赏
举报

用indy组件的 idhttp

求高人把这段C#代码改成delphi实现

相关推荐